home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
AMAZON1.DSK
/
HELLO.S.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
280b
|
11 lines
0 ONERR GOTO 80
1 PRINT CHR$(4)"BRUNSPEEDUP
2 CLEAR : HOME : TEXT : VTAB 23
21 PRINT "<CTRL-D>BLOAD COVERANIM
24 CALL 34048
30 POKE 30,2
40 PRINT CHR$(4)"RUN HELLO2"
49 POKE -16368,0
50 IF PEEK( -16384) <128 THEN 50
51 POKE -16368,0: RETURN
80 CALL 979: RESUME