RosettaCodeData/Task/Arrays/BaCon/arrays-1.bacon
2023-07-01 13:44:08 -04:00

8 lines
202 B
Text

DATA "January", "February", "March", "April", "May", "June", "July"
DATA "August", "September", "October", "November", "December"
LOCAL dat$[11]
FOR i = 0 TO 11
READ dat$[i]
PRINT dat$[i]
NEXT