RosettaCodeData/Task/Show-ASCII-table/ZX-Spectrum-Basic/show-ascii-table.basic

10 lines
176 B
Plaintext

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