Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
56
Examples/Core/data.bas
Normal file
56
Examples/Core/data.bas
Normal file
|
@ -0,0 +1,56 @@
|
|||
SUB MAIN
|
||||
DIM S AS STRING
|
||||
DIM X AS DOUBLE
|
||||
DIM I, N AS INTEGER
|
||||
|
||||
PRINT "Starting"
|
||||
|
||||
RESTORE dataList1
|
||||
READ S
|
||||
PRINT S
|
||||
READ N
|
||||
FOR I=1 TO N
|
||||
READ X
|
||||
PRINT X
|
||||
END FOR
|
||||
|
||||
RESTORE dataList2
|
||||
READ S
|
||||
PRINT S
|
||||
READ N
|
||||
FOR I=1 TO N
|
||||
READ S
|
||||
PRINT S
|
||||
END FOR
|
||||
|
||||
RESTORE dataList3
|
||||
READ S
|
||||
PRINT S
|
||||
READ N
|
||||
FOR I=1 TO N
|
||||
READ S
|
||||
PRINT S
|
||||
END FOR
|
||||
|
||||
PRINT "Finished"
|
||||
|
||||
datalist1:
|
||||
DATA Data List 1
|
||||
DATA 9
|
||||
DATA 1,2,3
|
||||
DATA 4,5,6
|
||||
DATA 7,8,9
|
||||
|
||||
dataList2:
|
||||
DATA Data List 2
|
||||
DATA 3
|
||||
DATA ABC,DEF,GHI
|
||||
|
||||
dataList3:
|
||||
DATA Data List 3
|
||||
DATA 5
|
||||
DATA "Hello World","Hello, World!"
|
||||
DATA Hello\ World,Hello\\World
|
||||
DATA \"Hello World\"
|
||||
|
||||
END SUB
|
Loading…
Add table
Add a link
Reference in a new issue