Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2025-01-02 18:29:49 +00:00
Code Issues Projects Releases Wiki Activity

TAB()/SPC() should have implicit trailing ;

Browse Source 
Also add docs.

Fixes #34
This commit is contained in:
Joshua Bell 2020-05-29 20:41:22 -07:00
parent af0a7eb886
commit dca4875d3d
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basic.js
View File

@ -1895,7 +1895,7 @@ this.basic = (function() {
trailing = false; trailing = false;
args.push('lib.comma()'); args.push('lib.comma()');
} else if (test('reserved', kws.SPC) || test('reserved', kws.TAB)) { } else if (test('reserved', kws.SPC) || test('reserved', kws.TAB)) {
trailing = true; trailing = false;
keyword = match('reserved'); keyword = match('reserved');
match("operator", "("); match("operator", "(");
expr = parseNumericExpression(); expr = parseNumericExpression();

3
reference.html
View File

@ -89,6 +89,9 @@ This is intended as a quick reference for the <a href="./">Applesoft BASIC in Ja
<dl> <dl>
<dt>PRINT <var>expr</var> [ [;,] <var>expr</var> ... ] [;]<dd>Output text. <code>;</code> concatenates, <dt>PRINT <var>expr</var> [ [;,] <var>expr</var> ... ] [;]<dd>Output text. <code>;</code> concatenates,
<code>,</code> advances to next tab stop. A trailing <code>;</code> suppresses line break. <code>,</code> advances to next tab stop. A trailing <code>;</code> suppresses line break.
<var>expr</var> can include <code>SPC(<var>aexpr</var>)</code> to advance by
multiple spaces, or <code>TAB(<var>aexpr</var>)</code> to advance by multiple tab stops.
<dt>INPUT [<var>string</var> ;] <var>var</var> [, <var>var</var> ...]<dd>Read line of comma-delimited input, with optional prompt <dt>INPUT [<var>string</var> ;] <var>var</var> [, <var>var</var> ...]<dd>Read line of comma-delimited input, with optional prompt
<dt>GET <var>var</var><dd>Read single key <dt>GET <var>var</var><dd>Read single key
<dt>HOME<dd>Clear text display <dt>HOME<dd>Clear text display

8
samples/sample.unittests.txt
View File

@ -358,15 +358,15 @@
4140 T$ = "SPC Operator" : 4140 T$ = "SPC Operator" :
: SX = PEEK(36) : SY = PEEK(37) : SX = PEEK(36) : SY = PEEK(37)
: VTAB 23 : HTAB 1 : PRINT "abc";SPC(10); : T = PEEK(36) : VTAB 23 : HTAB 1 : PRINT "abc";SPC(10) : T = PEEK(36)
: VTAB 23 : HTAB 1 : PRINT SPC(40); : VTAB 23 : HTAB 1 : PRINT SPC(40)
: POKE 36, SX : POKE 37, SY : POKE 36, SX : POKE 37, SY
: S = (T = 13) : GOSUB 1 : S = (T = 13) : GOSUB 1
4150 T$ = "TAB Operator" : 4150 T$ = "TAB Operator" :
: SX = PEEK(36) : SY = PEEK(37) : SX = PEEK(36) : SY = PEEK(37)
: VTAB 23 : HTAB 1 : PRINT "abc";TAB(10); : T = PEEK(36) : VTAB 23 : HTAB 1 : PRINT "abc";TAB(10) : T = PEEK(36)
: VTAB 23 : HTAB 1 : PRINT SPC(40); : VTAB 23 : HTAB 1 : PRINT SPC(40)
: POKE 36, SX : POKE 37, SY : POKE 36, SX : POKE 37, SY
: S = (T = 9) : GOSUB 1 : S = (T = 9) : GOSUB 1