RosettaCodeData/Task/Loops-Foreach/BASIC/loops-foreach-9.basic

18 lines
241 B
Plaintext

DEF AnArray[11]:INT
AnArray=0,1,2,3,4,5,6,7,8,9,10
OPENCONSOLE
FOR X=0 TO 10
PRINT AnArray[X]
NEXT X
PRINT
'a press any key message is automatic when compiled as console only.
CLOSECONSOLE
'Because this is a console only program.
END