mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2025-01-17 23:31:06 +00:00
parent
697ccd63e9
commit
2495381bcb
2
basic.js
2
basic.js
@ -333,7 +333,7 @@ this.basic = (function() {
|
||||
var parseDataInput = (function() {
|
||||
|
||||
var regexWhitespace = /^[ \t]+/,
|
||||
regexQuotedString = /^"([^"]*?)"/,
|
||||
regexQuotedString = /^"([^"]*?)(?:"|(?=\n|\r|$))/,
|
||||
regexUnquotedString = /^[^:,\r\n]*/,
|
||||
regexComma = /^,/;
|
||||
|
||||
|
@ -384,6 +384,8 @@
|
||||
|
||||
6001 DATA 1,2,3
|
||||
6002 DATA "A","B","C"
|
||||
6003 DATA A,B,C
|
||||
6004 DATA "UNTERM,INATED
|
||||
|
||||
6010 T$ = "READ"
|
||||
: RESTORE
|
||||
@ -391,6 +393,8 @@
|
||||
: READ T,U : S = (T=2 AND U=3) : GOSUB 1
|
||||
: READ A$ : S = (A$="A") : GOSUB 1
|
||||
: READ A$,B$ : S = (A$="B" AND B$="C") : GOSUB 1
|
||||
: READ A$,B$,C$ : S = (A$="A" AND B$="B" AND C$="C") : GOSUB 1
|
||||
: READ A$ : S = (A$="UNTERM,INATED") : GOSUB 1
|
||||
|
||||
6020 T$ = "RESTORE" : RESTORE
|
||||
: READ T : S = (T=1) : GOSUB 1
|
||||
|
Loading…
x
Reference in New Issue
Block a user