QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 10:01:21 +00:00
Code Releases Wiki Activity

Alteration to FUNCTION lineformat$ to allow data.VARNAME and rem.VARNAME to be valid variable names to enhance QB45 compatability.

Browse source
This commit is contained in:
SMcNeill 2015-06-26 17:14:19 -04:00
parent b8cbe9096b
commit e2a6c51667
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/qb64.bas
View file

@ -18491,6 +18491,11 @@ IF (c >= 65 AND c <= 90) OR c = 95 THEN 'A-Z(a-z) or _
IF n2 = 3 THEN
IF a3$ = "REM" THEN
i = i + n2
IF i < n THEN
c = ASC(a$, i)
IF c = 46 THEN a2$ = a2$ + sp + MID$(ca$, i - n2, n2): GOTO extcheck 'data.Variable is a valid variable name in QB45
END IF
'note: In QBASIC 'IF cond THEN REM comment' counts as a single line IF statement, however use of ' instead of REM does not
IF UCASE$(RIGHT$(a2$, 5)) = sp + "THEN" THEN a2$ = a2$ + sp + "'" 'add nop
layoutcomment = "REM"
@ -18514,6 +18519,8 @@ IF (c >= 65 AND c <= 90) OR c = 95 THEN 'A-Z(a-z) or _
IF i < n THEN
c = ASC(a$, i)
IF c = 46 THEN a2$ = a2$ + sp + MID$(ca$, i - n2, n2): GOTO extcheck 'data.Variable is a valid variable name in QB45
IF c = 9 OR c = 32 THEN
IF scan = 0 THEN GOTO skipwhitespace
END IF