basic: implement DEBUG-EVAL

Author: asarhaddon

impls/basic/step3_env.in.bas

@@ -92,8 +92,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step4_if_fn_do.in.bas

@@ -95,8 +95,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step5_tco.in.bas

@@ -101,8 +101,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step6_file.in.bas

@@ -101,8 +101,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step7_quote.in.bas

@@ -214,8 +214,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step8_macros.in.bas

@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/step9_try.in.bas

@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

impls/basic/stepA_mal.in.bas

@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":GOSUB ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST