RosettaCodeData/Task/Show-ASCII-table/IS-BASIC/show-ascii-table.basic

8 lines
145 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
100 TEXT 80
110 FOR R=0 TO 15
120 FOR C=32+R TO 112+R STEP 16
130 PRINT USING "###":C;:PRINT ": ";CHR$(C),
140 NEXT
150 PRINT
160 NEXT