RosettaCodeData/Task/Loops-Foreach/Creative-Basic/loops-foreach.basic

20 lines
344 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DEF AnArray[11]:INT
AnArray=0,1,2,3,4,5,6,7,8,9,10
'A console only program will work without OPENCONSOLE and
'CLOSECONSOLE; however, it does not hurt to use them.
OPENCONSOLE
FOR X=0 TO 10
PRINT AnArray[X]
NEXT X
'keep the console from closing right away.
DO:UNTIL INKEY$<>""
CLOSECONSOLE
'because this is a console only program.
END