whichbas: add BASIC/A+ DIR, remove A+ RETURN (conflicts with Turbo CLOSE with no args).

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();