Skip to content

Fix READ, INPUT, DIM statements when used with a constant instead of a variable. Also fixes READ and GOTO

Francesco Sblendoriorequested to merge
sblendorio/swbasic:master into master

This code currently loops indefinitely. This merge request fixes these problems.

10 INPUT A$.
10 INPUT B$$
10 DATA "TEST"
20 READ 95
10 DATA "TEST", "TEST2"
20 READ A$,8
10 INPUT 7
10 INPUT A$,9
10 DIM 7
10 DIM A$,9

READ statement used to read numeric values into string variable. Now it's fixed. Sample code with problems, now fixed:

10 DATA 100
20 READ A$
30 PRINT LEN(A$)

IF..GOTO did not work. Now it works. Sample code with problems, now fixed:

10 A=1
20 IF A=1 GOTO 40
30 PRINT "NO"
40 END

The value "." was interpreted as "NotANumber", now it's fixed and correctly interpreted as "zero". Sample code with problems, now fixed:

10 A=.
20 PRINT A
Edited by Francesco Sblendorio

Merge request reports