;SUPTEST1
;4/4/86
;Copyright 1986, Logic Associates, Chicago
;
;  This batch job tests the standard (non-plus) set of SUPERMIT 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:
;
;            SUPTEST1
;            IF.COM
;            #.COM
;            GOTO.COM
;            SET.COM
;
;        []  Log on to the above disk.
;
;        []  Type--   SUBMIT SUPTEST1      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 SUPTEST1".
;
;  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 SUPTEST2.SUB.



;START OF SUPTEST1.SUB
;
;
;"NO FILE" IN NEXT STEP OK.
ERA COUNTERX.*
;
;
SAVE 0 COUNTERX.054
;
;
#  SUPTEST1.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 SUPTEST1
;