AZXRFAX.m

AZXRFAX ;SUPPORT FAX PROBLEM LOG [ 02/24/94  2:11 PM ]

 D ^XBKSET

MAIN W @IOF

 W ?23,"SUPPORT FAX PROBLEM LOG"

 W !!

 W ?20,"MAIN MENU OPTIONS"

 W !!

 W "[1] - ADD/EDIT A PROBLEM",!

 W "[2] - PRINT A PROBLEM",!

 W "[3] - PURGE A PROBLEM",!

 W "[4] - QUIT",!

 W !!

 R "PLEASE CHOOSE 1,2,3 OR 4 AND PRESS ENTER -> ",AZXROPT

 IF AZXROPT=1 D ^AZXRFAX1 GOTO MAIN

 IF AZXROPT=2 D ^AZXRFAX2 GOTO MAIN

 IF AZXROPT=3 D ^AZXRFAX3 GOTO MAIN 

 IF AZXROPT=4 GOTO KILLOFF

 W @IOF

 W !!!!!!!!!!

 W ?23,"CAN'T YOU MAKE A SIMPLE CHOICE?",!

 W !

 W ?19,"TRY IT AGAIN, BEFORE CLINTON FIRES YOU!",!

 W ?23,"     (and hires Hillary!)",!

 W !

 R "PRESS RETURN TO CONTINUE",RET

 GOTO MAIN

KILLOFF K AZXROPT

 Q

AZXRFAX   ;SUPPORT FAX PROBLEM LOG [ 02/24/94  2:11 PM ]

 +1        DO ^XBKSET

MAIN       WRITE @IOF

 +1        WRITE ?23,"SUPPORT FAX PROBLEM LOG"

 +2        WRITE !!

 +3        WRITE ?20,"MAIN MENU OPTIONS"

 +4        WRITE !!

 +5        WRITE "[1] - ADD/EDIT A PROBLEM",!

 +6        WRITE "[2] - PRINT A PROBLEM",!

 +7        WRITE "[3] - PURGE A PROBLEM",!

 +8        WRITE "[4] - QUIT",!

 +9        WRITE !!

 +10       READ "PLEASE CHOOSE 1,2,3 OR 4 AND PRESS ENTER -> ",AZXROPT

 +11       IF AZXROPT=1

               DO ^AZXRFAX1

               GOTO MAIN

 +12       IF AZXROPT=2

               DO ^AZXRFAX2

               GOTO MAIN

 +13       IF AZXROPT=3

               DO ^AZXRFAX3

               GOTO MAIN

 +14       IF AZXROPT=4

               GOTO KILLOFF

 +15       WRITE @IOF

 +16       WRITE !!!!!!!!!!

 +17       WRITE ?23,"CAN'T YOU MAKE A SIMPLE CHOICE?",!

 +18       WRITE !

 +19       WRITE ?19,"TRY IT AGAIN, BEFORE CLINTON FIRES YOU!",!

 +20       WRITE ?23,"     (and hires Hillary!)",!

 +21       WRITE !

 +22       READ "PRESS RETURN TO CONTINUE",RET

 +23       GOTO MAIN

KILLOFF    KILL AZXROPT

 +1        QUIT