Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/ERROR.PRG

Text File | 1990-04-25 | 880 b | 48 lines

** ┤φ╬≤┤ª└φ│╠╨≥ ERROR.PRG **
PARA PRG
CLEAR
DQ=ALIAS()
SELE 0
USE ERROR
APPE BLAN
REPL DATE WITH DATE(),TIME WITH TIME()
REPL ERR_NUM WITH ERROR(),MESS WITH MESS(),MESS1 WITH MESS(1)
REPL ERR_PRG WITH PRG,MAIN_PRG WITH SYS(16,2)
@ 2,10 CLEAR TO 9,70
@ 2,10 TO 9,70 DOUB
@ 3,11 SAY '┤φ╬≤│╠╨≥:'+PRG
@ 4,11 SAY '┤φ╬≤╨┼╧ó:'+MESS()
@ 5,11 SAY '┤φ╬≤│╠╨≥╨╨:'+TRIM(MESS(1))
@ 6,11 SAY '┤φ╬≤┤·║┼:'+STR(ERROR(),6)
@ 7,11 SAY '╡≈╙├│╠╨≥:'+SYS(16,2)
@ 8,11 SAY '╓≈│╠╨≥:'+SYS(16,0)
@ 0,0 SAY SPACE(80)
@ 0,10 PROM 'M_╖╡╗╪╓≈│╠╨≥'
@ 0,COL()+2 PROM 'R_╘┘╩╘╓┤╨╨╥╗┤╬'
@ 0,COL()+2 PROM 'I_╠°╣²┤φ╬≤│╠╨≥╨╨'
@ 0,COL()+1 PROM 'Q_═╦╗╪▓┘╨╨╧╡═│'
MENU TO A
DO CASE
CASE A=2
USE
IF LEN(DQ)<>0
SELE &DQ
ENDIF
RETRY
CASE A=1
CLEAR ALL
retu to master
CASE A=3
USE
IF LEN(DQ)<>0
SELE &DQ
ENDIF
RETU
CASE A=4
QUIT
ENDC
CLEAR ALL
RETU TO MAST
** END OF ERROR.PRG **