home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 May
/
1987-05.d64
/
speedsearch.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
353b
|
11 lines
10 poke 198,0
15 print"[147]the screen will blank while"
16 print"loading speedsearch."
20 print"press a key to load speedsearch"
30 get a$:if a$="" then30
40 print"[147][155]":s$="l[207]"+chr$(34)+"speedsearch"+chr$(34)+",8:"
50 print s$
60 poke631,13:poke 632,asc("r"):poke633,asc("u"):poke634,asc("n"):poke635,13
70 poke198,5:poke53281,15:poke53280,15
80 printchr$(142)"[145]loading...":end