home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40b.dsk / BETTER.BRK.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  18 lines
  1. 1  REM  *************************
  2. 2  REM  * BETTER.BRK.DEMO       *
  3. 3  REM  * By Randall Banning    *
  4. 4  REM  * Copyright (c) 1990    *
  5. 5  REM  * MindCraft Publ. Corp. *
  6. 6  REM  * Concord, MA 01742     *
  7. 7  REM  *************************
  8. 10  HOME : PRINT  CHR$(4)"PR#3":C1$ =  CHR$(15):C2$ =  CHR$(14)
  9. 20  PRINT  TAB( 30)"BETTER.BRK.DEMO": PRINT  TAB( 13)"By R Banning | Copyright (c) MindCraft Publ. Corp."
  10. 30  GOSUB 100: VTAB 2: GOSUB 110: PRINT 
  11. 40  VTAB 5: HTAB 1: PRINT  CHR$(7)"0302-    A=03 X=9D Y=00 P=32 S=F2": PRINT "*"C1$" "C2$: PRINT :DE = 999: GOSUB 90
  12. 50  PRINT "The above is what a program 'crash' looks like with the Monitor routines.": PRINT : PRINT "The following is how BETTER.BRK will display the same 'crash'. Press any key...";: POKE 49168,0: GET A$: PRINT A$
  13. 60  PRINT  CHR$(7)"A:00000011|$03     S:11110010|$F2": PRINT "X:10011101|$9D     P:00110010|$32": PRINT "Y:00000000|$00       NV BDIZC|$0302": PRINT "]"C1$" "C2$:DE = 2000: GOSUB 90: VTAB 16: CALL 64578: GOSUB 110
  14. 70  PRINT : PRINT : PRINT  TAB( 44)"See article for complete information."
  15. 80  END 
  16. 90  FOR I = 0 TO DE: NEXT : RETURN 
  17. 100  POKE 49168,0: VTAB 23: PRINT  TAB( 25)C1$" Press any key to continue"C2$;: GET A$: VTAB 20: PRINT A$: CALL 64578: RETURN 
  18. 110  PRINT : FOR I = 0 TO 78: PRINT "_";: NEXT : RETURN