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