RosettaCodeData/Task/Generate-lower-case-ASCII-alphabet/ZX-Spectrum-Basic/generate-lower-case-ascii-alphabet.basic
2023-07-01 13:44:08 -04:00

5 lines
102 B
Text

10 DIM l$(26): LET init= CODE "a"-1
20 FOR i=1 TO 26
30 LET l$(i)=CHR$ (init+i)
40 NEXT i
50 PRINT l$