xbasic64 1.0.0

A BASIC-to-x86_64 native code compiler targeting 1980s-era BASIC dialects
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

' DATA/READ example - inline numeric data

DATA 10, 20, 30, 40, 50

PRINT "Reading 5 values:"
Sum = 0
FOR I = 1 TO 5
    READ X
    PRINT "Value"; I; "="; X
    Sum = Sum + X
NEXT I
PRINT "Sum ="; Sum

' RESTORE resets the data pointer
RESTORE
READ First
PRINT "First value again:"; First