home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib28b.dsk
/
ERROR.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
655b
|
25 lines
10 REM **********************
20 REM * ERROR.DEMO *
30 REM * BY CHARLES HILL *
40 REM * COPYRIGHT 1986 BY *
50 REM * MICROSPARC, INC. *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 ONERR GOTO 250
90 FOR I = 1 TO 10: PRINT I: NEXT J
100 A$ = MID$ (1,2,B$)
110 RETURN
120 READ A,B$
130 POKE 0,256
140 PRINT 10 ^99/.1
150 LOMEM: 4095: HIMEM: 4096:A$ = "NO ROOM"
160 HIMEM: 32768: GOTO 17
170 PRINT A%(89)
180 DIM A%(19): DIM A%(19,1)
190 PRINT 45/0
200 A$ = 123
210 FOR I = 1 TO 20:A$ = A$ +"ABCDEDFGHIJKLMNOP": NEXT I
220 A = FN X(1) *2
230 PRINT CHR$(4)"RENAME HELLO"
240 STOP
250 CALL 768