! Ron Durkin SE Brisbane (0738872561)
! S12_CRT2.CMD V1.0  Start date    12/1/97
!                    Print Date
!
!---------------------------!
@LABEL S12_MAINT_TEST
  @set test_res = ""
  @set rrn = ""
  @SET CONNECT = ""
  @SET ERR_FLAG = ""
  @SET ERR = ""
  @IF JOB < 100 THEN GOSUB VAR_CHK
  @IF JOB = 4 THEN GOSUB LINE_CHK
  @IF JOB = 7 THEN GOSUB LINE_CHK
  @IF JOB = 9 THEN GOSUB LINE_CHK
  @IF JOB = 13 THEN GOSUB LINE_CHK
  @IF JOB = 14 THEN GOSUB LINE_CHK
  @IF JOB = 16 THEN GOSUB LINE_CHK
  @IF JOB = 17 THEN GOSUB LINE_CHK
  @IF JOB = 18 THEN GOSUB LINE_CHK
  @IF JOB = 19 THEN GOSUB LINE_CHK
  @IF JOB = 20 THEN GOSUB LINE_CHK_2
  @IF JOB = 21 THEN GOSUB LINE_CHK_2
  @IF JOB = 24 THEN GOSUB LINE_CHK
  @IF JOB = 25 THEN GOSUB LINE_CHK
  @IF JOB = 26 THEN GOSUB LINE_CHK
  @IF JOB = 27 THEN GOSUB LINE_CHK
  @IF JOB = 88 THEN GOSUB LINE_CHK
  @IF JOB = 89 THEN GOSUB LINE_CHK_2
  @IF CONNECT = "FAIL" THEN GOTO STOP
  @IF ERR_FLAG = "" THEN GOTO CONT_S12_MAINT_TEST
  @IF ERR_FLAG > 0 THEN GOTO LINE_STATE_ERR
@LABEL CONT_S12_MAINT_TEST
  @CHECK (OFF)
  @SET COMMAND = ""
  @SET COMMAND1 = ""
  @IF JOB = 1 THEN SET COMMAND = "DISPLAY-SUBSCR:DN=K'{dn};"
  @IF JOB = 2 THEN SET COMMAND = "DISPLAY-CONN:DN=K'{dn};"
  @IF JOB = 3 THEN SET COMMAND = "DISPLAY-BA-ALARMS:EN=H'{NA}&{NBR},MODE=0;"
  @IF JOB = 4 THEN SET COMMAND = "VERIFY:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},ITRCL=2,WTC=0;"
  @IF JOB = 5 THEN SET COMMAND = "DISABLE:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},WTC=0;"
  @IF JOB = 6 THEN SET COMMAND = "INITIALI:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr};"
  @IF JOB = 7 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=20;"
  @IF JOB = 8 THEN SET COMMAND = "DISPLAY-PABX-PLAN:GDN=K'{dn},DETAIL=LIST;"
  @IF JOB = 9 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=21,8;"
  @IF JOB = 10 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},OBSERV=1&2&4;"
  @IF JOB = 10 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{dn},OBSERV=1&1&4;"
  @IF JOB = 11 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},OBSERV=REMOVE&MALCIDF;"
  @IF JOB = 112 THEN SET COMMAND = "5019:ALL,ALMTYPE = {ALMTYPE};"
  @IF JOB = 13 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},DATALINK=PTP&PERM;"
  @IF JOB = 13 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{dn},MISC=REMOVE&TMLPOR;"
  @IF JOB = 14 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},DATALINK=PTMP&NONPERM;"
  @IF JOB = 14 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{dn},MISC=ADD&TMLPOR;"
  @IF JOB = 15 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},OBSERV=ADD&MALCIDF&RECALLSC;"
  @IF JOB = 16 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=1;"
   @IF JOB = 17 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=2;"
   @IF JOB = 18 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=11;"
   @IF JOB = 19 THEN SET COMMAND = "EXE-REQ-MT:NA=H'{NA},NBR={NBR},TSEGMENT=18;"
  @IF JOB = 20 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},DATALINK=PTP&PERM,ALLLINES;"
  @IF JOB = 20 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},MISC=REMOVE&TMLPOR,ALLLINES;"
  @IF JOB = 21 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},DATALINK=PTMP&NONPERM,ALLLINES;"
  @IF JOB = 21 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},MISC=ADD&TMLPOR,ALLLINES;"
  @IF JOB = 22 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},OBSERV=ADD&MALCIDF&RECALLSC,ALLLINES;"
  @IF JOB = 23 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},OBSERV=REMOVE&MALCIDF,ALLLINES;"
  @IF JOB = 24 THEN SET COMMAND = "VERIFY:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},TSEGMENT=7,ITRCL=2,WTC=0;"
  @IF JOB = 25 THEN SET COMMAND = "VERIFY:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},TSEGMENT=6,ITRCL=2,WTC=0;"
  @IF JOB = 26 THEN SET COMMAND = "VERIFY:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},TSEGMENT=1,ITRCL=2,WTC=0;"
  @IF JOB = 27 THEN SET COMMAND = "VERIFY:SBLTYPE=SLIF,NA=H'{NA},NBR={nbr},TSEGMENT=2,ITRCL=2,WTC=0;"
  @IF JOB = 28 THEN SET COMMAND = "DISPLAY-CONN:EN=H'{NA}&{NBR},MODE=1;"
  @IF JOB = 29 THEN SET COMMAND = "DISPLAY-SUBSCR:DN=K'{dn},DETAIL=1;"
  @IF JOB = 30 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},RECALL=ADD&CWTG&CAHLD;"
  @IF JOB = 31 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},RECALL=REMOVE&CWTG&CAHLD;"
  @IF JOB = 32 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},UUS=ADD&UUS1;"
  @IF JOB = 33 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},UUS=REMOVE&UUS1;"
  @IF JOB = 34 THEN SET COMMAND = "DISPLAY-PABX-FACIL:GDN=K'{GDN},DETAIL=LIST;"
  @IF JOB = 35 THEN SET COMMAND = "DISPLAY-LINE-STATUS:EN=H'{NA}&{NBR},STATE=ALL;"
  @IF JOB = 36 THEN SET COMMAND = "DISPLAY-SBL-DATA:SBLTYPE=SLIF,NA=H'{NA},NBR={NBR},OPTION=DEPLIST;"
  @IF JOB = 37 THEN SET COMMAND = "DISPLAY-BA-ALARMS:CONTROL=CANCEL;"
  @IF JOB = 38 THEN SET COMMAND = "DISPLAY-LINE-STATUS:GDN=K'{GDN};"
  @IF JOB = 39 THEN SET COMMAND = "DISPLAY-BA-ALARMS:ALL,ALMTYPE={ALM_VAL};"
  @IF JOB = 40 THEN SET COMMAND = "DISPLAY-PABX-PLAN:GDN=K'{GDN},DETAIL=LIST;"
  @IF JOB = 41 THEN SET COMMAND = "DISPLAY-PABX-PLAN:GDN=K'{DN},DETAIL=LIST;"
  @IF JOB = 42 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCG=REMOVE&CGLIR;"
  @IF JOB = 42 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCG=REMOVE&CGLIRDFN;"
  @IF JOB = 43 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCG=REMOVE&CGLIR,ALLLINES;"
  @IF JOB = 43 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCG=REMOVE&CGLIRDFN,ALLLINES;"
  @IF JOB = 44 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCG=ADD&CGLIR;"
  @IF JOB = 45 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCG=ADD&CGLIR,ALLLINES;"
  @IF JOB = 46 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCD=ADD&CGLIP;"
  @IF JOB = 47 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCD=ADD&CGLIP,ALLLINES;"
  @IF JOB = 48 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCD=REMOVE&CGLIP;"
  @IF JOB = 49 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCD=REMOVE&CGLIP,ALLLINES;"
  @IF JOB = 50 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},OCB=REMOVE,ALLLINES;"
  @IF JOB = 51 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},OCB={CB_PARAM},ALLLINES;"
  @IF JOB = 52 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},NBRIDFCG=ADD&CGLIRT;"
  @IF JOB = 53 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},NBRIDFCG=ADD&CGLIRT,ALLLINES;"
  @IF JOB = 60 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},OCB=REMOVE;"
  @IF JOB = 61 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},OCB={CB_PARAM};"
  @IF JOB = 70 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=REMOVE&SPEECH,BCAUTH=REMOVE&SPEECH;"
  @IF JOB = 70 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=REMOVE&TEL_3_1K,BCAUTH=REMOVE&AUD_3_1K;"
  @IF JOB = 71 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=REMOVE&UNR_DIG,BCAUTH=REMOVE&UNR_DIG;"
  @IF JOB = 72 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=REMOVE&SPEECH,BCAUTH=REMOVE&SPEECH,ALLLINES;"
  @IF JOB = 72 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=REMOVE&TEL_3_1K,BCAUTH=REMOVE&AUD_3_1K,ALLLINES;"
  @IF JOB = 73 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=REMOVE&UNR_DIG,BCAUTH=REMOVE&UNR_DIG,ALLLINES;"
  @IF JOB = 74 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&SPEECH,BCAUTH=ADD&SPEECH;"
  @IF JOB = 74 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&TEL_3_1K,BCAUTH=ADD&AUD_3_1K;"
  @IF JOB = 75 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&UNR_DIG,BCAUTH=ADD&UNR_DIG;"
  @IF JOB = 76 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&SPEECH,BCAUTH=ADD&SPEECH,ALLLINES;"
  @IF JOB = 76 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&TEL_3_1K,BCAUTH=ADD&AUD_3_1K;"
  @IF JOB = 77 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&UNR_DIG,BCAUTH=ADD&UNR_DIG,ALLLINES;"
  @IF JOB = 78 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&UNR_DIG,BCAUTH=ADD&UNR_DIG;"
  @IF JOB = 79 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&UNR_DIG,BCAUTH=ADD&UNR_DIG,ALLLINES;"
  @IF JOB = 80 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&SPEECH,BCAUTH=ADD&SPEECH;"
  @IF JOB = 80 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{DN},BSAUTH=ADD&TEL_3_1K,BCAUTH=ADD&AUD_3_1K;"
  @IF JOB = 81 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&SPEECH,BCAUTH=ADD&SPEECH,ALLLINES;"
  @IF JOB = 81 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},BSAUTH=ADD&TEL_3_1K,BCAUTH=ADD&AUD_3_1K,ALLLINES;"
  @IF JOB = 88 THEN SET COMMAND = "MODIFY-SUBSCR:DN=K'{dn},DATALINK=PTMP&PERM;"
  @IF JOB = 88 THEN SET COMMAND1 = "MODIFY-SUBSCR:DN=K'{dn},MISC=ADD&TMLPOR;"
  @IF JOB = 89 THEN SET COMMAND = "MODIFY-PABX-FACIL:GDN=K'{GDN},DATALINK=PTMP&PERM,ALLLINES;"
  @IF JOB = 89 THEN SET COMMAND1 = "MODIFY-PABX-FACIL:GDN=K'{GDN},MISC=ADD&TMLPOR,ALLLINES;"
  @IF JOB = 90 THEN SET COMMAND = "DISPLAY-SBL-DATA:SBLTYPE=CTLE,NA=H'{NA},NBR=1,OPTION=DEPLIST;"
  @IF JOB = 91 THEN SET COMMAND = "DISPLAY-LINE-STATUS:EN=H'{NA}&{NBRS},STATE=ALL;"
  @IF COMMAND = "" THEN GOTO STOP
{COMMAND}
  @GOSUB GET_TEST_RES
  @IF TEST_RES = "UNSUCCESSFUL" THEN GOTO STOP
  @IF COMMAND1 = "" THEN GOTO CONT_S12_MAINT_TEST_2
{COMMAND1}
!
@LABEL CONT_S12_MAINT_TEST_2
  @GOSUB GET_TEST_RES
@GOTO STOP
!
!-------------------------------------COMMAND CHECK FUNCTION-----------------------------------------!
!
@LABEL GET_TEST_RES
  @SET MAIN_CODE = ""
  @SET ACTION_CODE = ""
  @SET TEST_RES = ""
  @SET FAULT_LOC = ""
  @SET LINE = 0
  @SET LINE = scan("CANCEL")
  @IF LINE <> "0" THEN SET RRN = "UNSUCCESSFUL"
  @IF LINE <> "0" THEN SET TEST_RES = "UNSUCCESSFUL"
  @IF TEST_RES = "UNSUCCESSFUL" THEN GOSUB COMD_FAILS
  @IF TEST_RES = "UNSUCCESSFUL" THEN RETURN
  @set line = "0"
  @set line = scan("DNET IS NOT KNOWN")
  @IF line <> "0" then return
  @set line = "0"
  @set line = scan("SEARCH DN OF A PABX")
  @IF line <> "0" then return
  @SET LINE = "0"
  @SET LINE = scan("NOT SUCCESSFUL")
  @IF LINE = "0" THEN SET RRN = "SUCCESSFUL"
  @IF LINE = "0" THEN SET TEST_RES = "SUCCESSFUL"
  @IF LINE <> "0" THEN SET RRN = "UNSUCCESSFUL"
  @IF LINE <> "0" THEN SET TEST_RES = "UNSUCCESSFUL"
  @IF TEST_RES = "SUCCESSFUL" THEN RETURN
  @IF TEST_RES = "UNSUCCESSFUL" THEN GOSUB COMD_FAILS
  @IF TEST_RES = "UNSUCCESSFUL" THEN RETURN
  @SET LINE = ""
  @SET LINE = SCAN("TEX MAIN CODE")
  @IF LINE <> "" THEN SET MAIN_CODE = TRIM(COPY(REPLY(LINE),20,20)
  @SET LINE = ""
  @SET LINE = SCAN("ACTION RESULT")
  @IF LINE <> "" THEN SET ACTION_CODE = TRIM(COPY(REPLY(LINE),22,20)
  @SET LINE = ""
  @SET LINE = scan("FAULT LOCATION")
  @IF LINE <> "" THEN SET FAULT_LOC = "NO INFORMATION"
  @SET LINE = ""
  @SET LINE = scan("inconsistant")
  @IF LINE <> "" THEN SET MAIN_CODE = "INCONSISTANT DIR NBR"
  @ELSEIF LINE <> "" THEN SET ACTION_CODE = "CHECK DATA FOR ERRORS"
  @RETURN
!
!-------------------------------------LINE STATE CHECK FUNCTION----------------------------------------!
!
@LABEL VAR_CHK
  @IF dn <> "" THEN RETURN
  @DRAW(INV,CUP,20,12,"LRD and DN required first  - Press [ENTER]")
  @FORM(45,12,1,error)
  @SET err_flag = "1"
@RETURN
!
@label LINE_CHK
  @IF LNCD ="" THEN GOSUB NCODEWNG
  @IF LNCD = "" THEN SET CONNECT = "FAIL"
  @IF DN ="" THEN GOSUB NUMBWNG
  @IF DN = "" THEN SET CONNECT = "FAIL"
  @IF CONNECT = "FAIL" THEN RETURN
  DISPLAY-LINE-STATUS:EN=H'{NA}&{NBR},STATE=ALL;
  @SET LINE1 = SCAN("DH-STATE",STATUS)
  @SET STATE = (COPY(REPLY(LINE1 +2),STATUS ,6))
  @IF STATE = "AVFREE" THEN RETURN
  @clrscr
  @window
  @DRAW(CUP,17,03,INV,"LINE IN THE WRONG STATE FOR THE REQUESTED TEST")
  @DRAW(CUP,39,05,"OR")
  @DRAW(CUP,22,06,"DN INCONSISTANCY FAULT on Service -")
  @DRAW(CUP,10,08,"Check Report and send to TMG if req'd! - Press [ENTER] to clear")
  @DELAYSEC(3)
  @windend
  @SET ERR_FLAG = "2"
@RETURN
!
@label LINE_CHK_2
  @IF LNCD ="" THEN GOSUB NCODEWNG
  @IF LNCD = "" THEN SET CONNECT = "FAIL"
  @IF DN ="" THEN GOSUB NUMBWNG
  @IF DN = "" THEN SET CONNECT = "FAIL"
  @IF CONNECT = "FAIL" THEN RETURN
  @SET J = 1
  @FOR J = 1 to NUMB_DEV
  @SET NAZ = NA{J}
  @SET NBRZ = NBR{J}
  DISPLAY-LINE-STATUS:EN=H'{NAZ}&{NBRZ},STATE=ALL;
  @SET LINE1 = SCAN("DH-STATE",STATUS)
  @SET STATE = (COPY(REPLY(LINE1 +2),STATUS ,6))
  @IF STATE <> "AVFREE" THEN GOTO LINE_CHK_2FAIL
  @NEXT J
@RETURN
!
@LABEL LINE_CHK_2FAIL
  @ENDFOR
  @DRAW(BOX,09,11,73,16)
  @DRAW(INV,CUP,17,12,"LINE IN THE WRONG STATE for the REQUESTED TEST")
  @DRAW(INV,CUP,39,13,"OR")
  @DRAW(INV,CUP,22,14,"DN INCONSISTANCY FAULT on Service -")
  @DRAW(INV,CUP,10,15,"Check Report and send to TMG if req'd! - Press [ENTER] to clear")
  @INKEY("Press any key to continue!")
  @SET ERR_FLAG = "2"
  @RETURN
!
@LABEL S12_1ST_CK
@RETURN
!---------------------------!
@LABEL LINE_STATE_ERR
  @HIDE
 @INKEY(ERR,"If you wish to Overide the DLS result and continue, press O - Any key continues")
     @IF ERR = "O" THEN GOTO CONT_S12_MAINT_TEST
     @ELSE IF ERR <> "O" THEN GOTO STOP
!$$$$!
!---------------------------!
!------------------------------------------!
@LABEL NCODEWNG
  @WINDOW
  @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Node Code yet ...")
  @DRAW(HIGH,CUP,24,8,"Select E from Menu and enter! ....")
  @INKEY (dummy,"Press any key to continue")
  @windend
  @return
!------------------------------------------!
@LABEL NUMBWNG
  @WINDOW
  @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Diectory Number yet ...")
  @DRAW(HIGH,CUP,24,8,"Select D from Menu and enter! ....")
  @INKEY (dummy,"Press any key to continue")
  @windend
  @return
!---------------------------!
@label comd_fails
  @CLRSCR
  @WINDOW
  @draw(CUP,13,5,INV,">>>> Your ORJ is been NOT SUCCESSFUL - (Failed)! <<<<<")
  @draw(CUP,04,6,HIGH,">>>> Page UP/DOWN to check for the cause of failure in the report! <<<<<")
  @inkey(dummy,"Press any key to continue!")
  @windend
@return
!-------------------------------------COMMON FUNCTIONS----------------------------------------!
!
@LABEL WNG_NOT_ISDN
  @WINDOW
  @DRAW(CUP,20,5,HIGH,">>>> Your DN IS NOT part of an ISDN service <<<<")
  @DRAW(CUP,17,6,HIGH,">>>> Further testing on this service is not allowed! <<<<")
  @DELAYSEC(5)
  @WINDEND
  @GOTO STOP
!
@LABEL STOP
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!  END OF FILE
