fileput "~UH Failed the random middle 3 #'s in Voice Phone"
fileput "Number check on ~SD, they entered"
fileput "$PHONE9$, should have been $PHONE11$"
fileclose
MENU MT0;PHONEFA4.MSG;`0ATGCheck;`0ATGCheck;~SS
fileerase @1@\PHONEFA4.MSG
JUMP FAIL!
:RAND1
RAN3 "A"
JUMP START2
:RAND2
RAN3 "B"
JUMP START2
:RAND3
RAN3 "C"
JUMP START2
:RAND4
RAN3 "D"
JUMP START2
:RAND5
RAN3 "E"
JUMP START2
:RAND6
RAN3 "F"
JUMP START2
:ERROR
MENU -CTGCheck - Error!!
putnl "~SG`83TGCHECK ERROR, Path to text not correct, look in Doc's!!!~SG"
MENU -CTGCheck - Error!!
putnl "~SP"
ENDSCRIPT
:PHONEH2
fileopen @1@\TGCHECK.log
fileput "`01│ `03Random Number Matches ($RAN$) Checking Last 4 #'s in VOICE Phone at ~ST"
fileclose
putnl "~SG"
:LOOP6
MENU -CTGCheck - Checking Last 4 #'s in VOICE Phone Number - Answer - $PHONE12$
IF "$A6$" "2"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!! "
Fileclose
ENDIF
IF "$A6$" "1"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!! "
Fileclose
ENDIF
IF "$A6$" "0"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!! "
Fileclose
ENDIF
JE "$A6$" "0" FAILED6
GET PHONEH2 "`08(`07$A6$`08) `02Enter Your Missing Numbers in your `0FVOICE `02Phone Number `0F###-###-`8F????`0F: `0A" 4 "<"MASK">: "####" "$PHONEH2$"
JE "$PHONEH2$" "$PHONE12$" OKAY
DECREMENT A6
JUMP LOOP6
:NOLOG
FILEERASE @1@\TGCHECK.LOG
FILECREATE @1@\TGCHECK.LOG
FILECLOSE
JUMP BEGIN2
:PHONEH3
fileopen @1@\TGCHECK.log
fileput "`01│ `03Random Number Matches ($RAN$) Checking Middle 3 #'s in VOICE Phone at ~ST"
fileclose
putnl "~SG"
:LOOP7
MENU -CCTGCheck - Checking Middle 3 #'s in VOICE Phone Number - Answer - $PHONE11$
IF "$A7$" "2"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!! "
Fileclose
ENDIF
IF "$A7$" "1"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!! "
Fileclose
ENDIF
IF "$A7$" "0"
Fileopen @1@\TGCHECK.LOG
fileput "`01│ `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!! "
Fileclose
ENDIF
JE "$A7$" "0" FAILED7
GET PHONE9 "`08(`07$A7$`08) `02Enter Your Missing Numbers in your `0FVOICE `02Phone Number `0F###-`8F???`0F-####`0B: `0A" 3 "<"MASK">: "###" "$PHONE9$"
JE "$PHONE9$" "$PHONE11$" OKAY
DECREMENT A7
JUMP LOOP7
:CAN
MENU -CTGCheck - Canadian Override
fileopen @1@\TGCHECK.LOG
fileput "`01│ `03 No Check Was made, Exiting at ~ST "