;SUPTEST2
;4/4/86
;Copyright 1986, Logic Associates, Chicago
;
;  This batch job tests the "plus" set of SUPERMIT modules, along with
;  the GOTO and the SET modules.
;
;  To execute this test,
;
;        []  Copy SUBMIT.COM onto a work disk.  (SUBMIT.COM is the
;            standard batch utility program supplied with CP/M.)
;
;        []  Copy the following SUPERMIT modules onto the above disk:
;
;            SUPTEST2
;            IF+.COM
;            #+.COM
;            GOTO.COM
;            SET.COM
;
;        []  Log on to the above disk.
;
;        []  Type--   SUBMIT SUPTEST2      then press the RETURN key.
;
;
;  The test consists of a loop that displays "IF+ ;LOOP PASS x" three
;  times (where x = pass number), then displays "END OF SUPTEST2".
;
;  If this test runs without the occurrence of any error messages, then
;  IF+, #+, GOTO, and SET are compatible with your system.
;
;  If any error message (apart from "NO FILE") occurs, then one or more
;  of the above SUPERMIT modules are incompatible with your system.  In
;  that case, please try SUPTEST3.SUB.


;START OF SUPTEST2.SUB
;
;
;"NO FILE" IN NEXT STEP OK.
ERA COUNTERX.*
;
;
SAVE 0 COUNTERX.054
;
;
#+  SUPTEST2.SUB(COUNTERX.*)
;
SET COUNTERX.* + 1
;
IF+ NOT COUNTERX.057 THEN GOTO - 5 ELSE GOTO + 6
;
;
IF+ ;LOOP PASS 1
IF+ ;LOOP PASS 2
IF+ ;LOOP PASS 3
;
;
ERA COUNTERX.*
;
;END OF SUPTEST2
;