From 1073c3969f5b79ada9ca8148f07cef6912432a2e Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Thu, 11 Jul 2024 06:02:54 -0400
Subject: whichbas: add BASIC/A+ DIR, remove A+ RETURN (conflicts with Turbo
 CLOSE with no args).

---
 whichbas.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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();
-- 
cgit v1.2.3