00001 *************************
00002 *
00003 * SEXIT.ASM
00004 * MDJ 01-25-91
00005 *
00006 * EXITS FROM PRINT
00007 * PARAMETERS MENU
00008 *
00009 *************************
00010 *
00011 PCLS    EQU     $3E4F
00012 RSCR    EQU     $5B63
00013 XCURS   EQU     $F3
00014 YCURS   EQU     $F5
00015 XCURSH  EQU     $56CE
00016 YCURSH  EQU     $56D0
00017         ORG     $5D0F
00018 SEXIT   PSHS    X
00019         LDX     XCURSH  RESTORE X-LOCATION
00020         STX     XCURS
00021         LDX     YCURSH  RESTORE Y-LOCATION
00022         STX     YCURS
00023         JSR     PCLS    GO CLEAR THE SCREEN
00024         JSR     RSCR    MOVE MAIN MENU FROM HIGH MEMORY
00025         PULS    X
00026 ZEND    RTS
00027         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
