MSXPen

10 DEFINT N,C,H,I,J,K,P,Q,R,A,B,F

20 U$=SPACE$(&H1B):P=0

30 Q=VARPTR(U$):R=VARPTR(P)

40 POKE R,PEEK(Q+1)

50 POKE R+1,PEEK(Q+2)

60 FOR I=0 TO &H1A

70 READ C:POKE P+I,C

80 NEXT

90 DATA &HFE,&H02,&HC0,&HE5

100 DATA &HDD,&HE1,&HDD,&H46

110 DATA &H02,&HDD,&H4E,&H03

120 DATA &HC5,&HF1,&H27,&HF5

130 DATA &HC1,&H79,&HE6,&H7F

140 DATA &HDD,&H70,&H02,&HDD

150 DATA &H77,&H03,&HC9

160 DEF USR=P

170 FOR N=0 TO 1

180 FOR C=0 TO 1

190 FOR H=0 TO 1

200 FOR K=0 TO 8 STEP 8

210 PRINT "N=";HEX$(N);

220 PRINT ", C=";HEX$(C);

230 PRINT ", H=";HEX$(H)

240 FOR I=0 TO 7

250 PRINT "   ";HEX$(K+I);

260 NEXT I

270 PRINT

280 FOR I=0 TO &HF

290 PRINT " ";HEX$(I);

300 FOR J=0 TO 7

310 A=I*16+K+J:F=H*&H10+N*2+C

320 B=USR(F*&H100+A)

330 F=B\&H1000 MOD 2

340 F=F*2 + B\&H100 MOD 2

350 B=B MOD &H100 - A

360 IF B<0 THEN B=B+&H100

370 B=B*&H10+F:PRINT " ";

380 IF B<&H10 THEN PRINT "0";

390 IF B<&H100 THEN PRINT "0";

400 PRINT HEX$(B);

410 NEXT J

420 PRINT

430 NEXT I

440 IF INKEY$="" THEN GOTO 440

450 NEXT K:NEXT H:NEXT C:NEXT N

​