aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-07-11 06:02:54 -0400
committerB. Watson <urchlay@slackware.uk>2024-07-11 06:02:54 -0400
commit1073c3969f5b79ada9ca8148f07cef6912432a2e (patch)
tree3985f786ef236dc8acf57787ecc374903406f3fb
parent7405217ad5ad2889de4c997dc346a70cb1e31897 (diff)
downloadbw-atari8-tools-1073c3969f5b79ada9ca8148f07cef6912432a2e.tar.gz
whichbas: add BASIC/A+ DIR, remove A+ RETURN (conflicts with Turbo CLOSE with no args).
-rw-r--r--whichbas.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/whichbas.c b/whichbas.c
index 3a86c94..aeb18f6 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -1081,6 +1081,7 @@ CALLBACK(check_aplus_cmd) {
case CMD_DEG: /* A+ WHILE */
case CMD_CLR: /* A+ DIM */
case 0x46: /* A+ SOUND <args>, Turbo LOOP, BXL/XE CP */
+ case 0x3c: /* A+ DIR <req'd arg>, Turbo REPEAT, BXL/XE ELSE */
if(has_args)
found_aplus();
break;
@@ -1088,7 +1089,7 @@ CALLBACK(check_aplus_cmd) {
case CMD_SAVE: /* A+ END */
case CMD_GRAPHICS: /* A+ STOP */
case CMD_DIM: /* A+ ENDWHILE */
- case CMD_GET: /* A+ RETURN */
+ /* case CMD_GET: */ /* A+ RETURN, but Turbo allows 0 args too! */
case 0x38: /* A+ DOS, Turbo DPOKE, BXL/XE WHILE */
if(!has_args)
found_aplus();