home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 20
/
020.d81
/
auto.num
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
594b
|
25 lines
10 poke53281,2:poke53280,2
15 print"[158][147]"
20 print" [215]arning!"
30 print:print
40 print"[217]ou are about to exit the [204][207][193][196][211][212][193][210]"
50 print:print"environment."
60 print:print"[208]ress 1 to run [193]uto [206]umber."
70 print:print"[208]ress 2 to return to [204]oadstar."
80 print:print"[215]hich?"
90 getk$:ifk$=""thengosub60000:goto90
100 poke53280,rnd(1)*15
110 k=val(k$)
120 onkgoto62000,63000:goto90
60000 ifc=0thenc=1:goto60005
60002 c=0
60005 ifc=0thenprint" [215]arning!"
60010 ifc=1thenprint" [215]arning!"
60020 return
62000 remconnect to actual prg
62002 print"[147]load"chr$(34)"auto number"chr$(34)",8,1":print"new"
62003 print"sys833"
62004 poke198,0:poke631,13:poke632,13:poke633,13:poke198,3:end
63000 rem connect back to l.s.
63002 load"hello connect",8