home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / RESET.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  34 lines

  1. 10  REM  **********************
  2. 20  REM  * RESET.DEMO         *
  3. 30  REM  * BY  KENN SCRIBNER  *
  4. 40  REM  * COPYRIGHT (C) 1989 *
  5. 50  REM  * MICROSPARC, INC.   *
  6. 60  REM  * CONCORD, MA  01742 * 
  7. 70  REM  **********************
  8. 80  HOME : PRINT  CHR$(21): GOSUB 340
  9. 90  ONERR  GOTO 180
  10. 100  PRINT  CHR$(4);"BRUN RESET"
  11. 110  POKE 216,0: CALL SV: REM ***INITIALIZE RESET VECTOR***
  12. 120  GOSUB 340: PRINT : VTAB 12: PRINT "YOUR RESET VECTOR HAS NOW BEEN CHANGED!"
  13. 130 RE = 190: GOSUB 150
  14. 140  GOTO 140: REM ***INFINITE LOOP, PRESS RESET***
  15. 150 LNUM = RE: IF LNUM <0  THEN LNUM = (256 *256) +LNUM
  16. 160  VTAB 14: PRINT  TAB( 5);"YOU'LL NOW EXECUTE LINE #";LNUM: PRINT  TAB( 9);"WHEN YOU PRESS RESET."
  17. 170  RETURN 
  18. 180  GOSUB 340: PRINT "CANNOT FIND RESET.  INSERT DISK AND TRY AGAIN": END 
  19. 190 RE = 230: REM  ***CHANGE LINE TO 5000 ON RESET***
  20. 200  GOSUB 340: VTAB 12: PRINT "NOW WE'LL CHANGE THE RESET LINE NUMBER."
  21. 210  GOSUB 150
  22. 220  GOTO 220: REM  ***INFINITE LOOP, PRESS RESET*** 
  23. 230  GOSUB 340: VTAB 12: PRINT  TAB( 4);"NOW RESET DURING A GET STATEMENT."
  24. 240 RE = 270: REM  ***CHANGE RESET LINE NUMBER AGAIN***
  25. 250  GOSUB 150
  26. 260  PRINT : PRINT "GO AHEAD AND RESET YOUR COMPUTER NOW...";: GET A$: GOTO 260
  27. 270  GOSUB 340: VTAB 12: PRINT  TAB( 5);"NOW RESET AN INPUT STATEMENT."
  28. 280 RE = 310: REM  ***CHANGE RESET LINE NUMBER TO 310***
  29. 290  GOSUB 150
  30. 300  PRINT : HTAB (4): INPUT "TYPE SOMETHING IN, THEN RESET...";A$: GOTO 300
  31. 310  GOSUB 340: VTAB 12: PRINT " NOW I'LL DISABLE RESET MAGIC AND QUIT."
  32. 320  VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: GET A$: PRINT A$;: CALL KV
  33. 330  HOME : VTAB 23: END 
  34. 340  HOME : PRINT "RESET MAGIC BY KENN SCRIBNER": PRINT "(C) 1989 MICROSPARC, INC": RETURN