10進数と16進数の対応表(10進basic)
LET i=1 DO WHILE i<=1000 LET y=i LET ff$="" FOR x=1 TO 100 LET z=y/16 LET w=INT(z) LET r=MOD(y,16) ! PRINT "r="; r LET r$=STR$(r) IF r=10 THEN LET r$="a" else IF r=11 THEN LET r$="b" ELSE IF r=12 THEN LET r$="c" ELSE IF r=13 THEN LET r$="d" ELSE IF r=14 THEN LET r$="e" ELSE IF r=15 THEN LET r$="f" ELSE LET ff$=r$&ff$ LET y=w IF w=0 THEN EXIT FOR NEXT X PRINT i;"===>";ff$ ! GOTO 10 LET i=i+1 loop PRINT "終了" END