home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22a.dsk / OCTOBER.1984 / TRAP.RESET.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  26 lines
  1. 10  REM  ************************
  2. 20  REM  *      TRAP.RESET      *
  3. 30  REM  *   BY ERIC SEIDEN     *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  HOME : PRINT "CHOOSE:": PRINT " <1> RESET TRAPPED": PRINT " <2> RESET NORMAL": PRINT " <3> QUIT"
  9. 90  HTAB 5: GET K$: PRINT K$:K =  VAL(K$): IF K <1  OR K >3  THEN 90
  10. 100  IF K = 3  THEN  GOSUB 250: HOME : END 
  11. 110  IF K = 1  THEN  GOSUB 200: GOTO 130
  12. 120  IF K = 2  THEN  GOSUB 250: GOTO 130
  13. 130  HOME : VTAB 10: PRINT "RESET IS ";
  14. 140  IF K = 1  THEN  PRINT "TRAPPED."
  15. 150  IF K = 2  THEN  PRINT "NORMAL."
  16. 160  FOR I = 1 TO 1000: VTAB 15: CALL  -958: PRINT I: NEXT 
  17. 170  GOTO 80
  18. 180  PRINT "ERROR NO.:"; PEEK(222): PRINT "PRESS A KEY TO CONTINUE": GET K$: PRINT : GOTO 80
  19. 190  REM  INSTALL RESET TRAP
  20. 200  POKE 848,169: POKE 849,62: POKE 850,32: POKE 851,9: POKE 852,190: REM  POKE ML ROUTINE AT $350
  21. 210  POKE 1010,80: POKE 1011,3: CALL  -1169: REM  SET RESET VECTOR TO POINT AT ML ROUTINE
  22. 220  ONERR  GOTO 180
  23. 230  RETURN 
  24. 240  REM  REMOVE RESET TRAP
  25. 250  POKE 1010,0: POKE 1011,190: CALL  -1169
  26. 260  RETURN