bwBASIC/BAS-EXAMPLES/dechex.bas

   10 REM this program prints decimal and corresponding hexadecimal numbers.
   15 REM it shows 20 numbers per page. To show the next page press any key.
   20 CALL SHELL("cls")
   30 LET S = 4095
   50 PRINT "Decimal","Hex"
   60 PRINT "-------","---"
   70 FOR I = S to (20 + S)
   80   LET A = I
   90   GOSUB 200
  100   PRINT I, X$
  110 NEXT I
  130 LET S = S + 20
  140 END
  150 END
  200 LET X$ = ""
  210 LET B = A - INT (A/16) * 16
    : REM B = A MOD 16
  220 IF B < 10 THEN
    :   H$ = STR$(B)
    : END IF
  230 IF (B >= 10 AND B <= 15) THEN
    :   H$ = " " + CHR$(65 + B - 10)
    : END IF
  240 LET X$ = H$ + X$
  250 LET A = (A - B) / 16
  260 IF (A > 0) THEN
    :   GOTO 210
    : END IF
  270 RETURN