home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib40b.dsk
/
BETTER.BRK.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
18 lines
1 REM *************************
2 REM * BETTER.BRK.DEMO *
3 REM * By Randall Banning *
4 REM * Copyright (c) 1990 *
5 REM * MindCraft Publ. Corp. *
6 REM * Concord, MA 01742 *
7 REM *************************
10 HOME : PRINT CHR$(4)"PR#3":C1$ = CHR$(15):C2$ = CHR$(14)
20 PRINT TAB( 30)"BETTER.BRK.DEMO": PRINT TAB( 13)"By R Banning | Copyright (c) MindCraft Publ. Corp."
30 GOSUB 100: VTAB 2: GOSUB 110: PRINT
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
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$
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
70 PRINT : PRINT : PRINT TAB( 44)"See article for complete information."
80 END
90 FOR I = 0 TO DE: NEXT : RETURN
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
110 PRINT : FOR I = 0 TO 78: PRINT "_";: NEXT : RETURN