10000 INIT
10010 TEXTMODE 2
10020 JIS=0
10030 DO
10040  LOCATE 0,0
10050  PRINT "  H  L  0 1 2 3 4 5 6 7 8 9 A B C D E F"
10060  FOR Y=0 TO 19
10070   I=INT(JIS/256)
10080   J=MOD(JIS,256)/16
10090   PRINT REPEAT$(" ",3-LEN(STR$(I)))+STR$(I);" ";
10100   PRINT REPEAT$(" ",2-LEN(STR$(J)))+STR$(J);" ";
10110   FOR X=0 TO 15
10120    PRINT CHR$(INT(JIS/256))+CHR$(MOD(JIS,256));
10130    JIS=MOD(JIS+1,65536)
10140   NEXT X
10150   PRINT ""
10160  NEXT Y
10170  JIS=MOD(JIS-20*16,65536)
10180  FSYNC 1
10190  DO
10200   IF PAD(1,3)>4 OR PAD(1,4)>4 THEN EXIT DO
10210  LOOP
10220  JIS=MOD(JIS+((PAD(1,4)>4)-(PAD(1,3)>4))*(16+112*(PAD(1,8)>4)),65536)
10230 LOOP