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

15 lines
184 B
Text

PROGRAM "progname"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
DIM a$[27]
FOR i = 1 TO 26
a$[i] = CHR$(i + 96)
PRINT a$[i];
NEXT i
END FUNCTION
END PROGRAM