RosettaCodeData/Task/Arrays/BaCon/arrays-1.bacon

9 lines
202 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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