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

9 lines
176 B
Text

10 FOR x=0 TO 9
20 PRINT AT 0,4+2*x;x
30 PRINT AT x+1,0;10*(3+x)
40 NEXT x
50 FOR x=32 TO 127
60 LET d=x-10*INT (x/10)
70 LET t=(x-d)/10
80 PRINT AT t-2,4+2*d;CHR$ x
90 NEXT x