Add files via upload

This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions

56
Examples/Core/data.bas Normal file
View 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