RosettaCodeData/Task/Show-ASCII-table/True-BASIC/show-ascii-table.basic
2023-07-01 13:44:08 -04:00

14 lines
293 B
Text

FOR i = 32 TO 47
FOR j = i TO i+80 STEP 16
SELECT CASE j
CASE 32
LET s$ = "Spc"
CASE 127
LET s$ = "Del"
CASE else
LET s$ = CHR$(j)
END SELECT
PRINT USING "###: ### ": j, s$;
NEXT j
PRINT
NEXT