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

7 lines
145 B
Text

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