home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
pokeless
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
37 lines
100 poke53280, 0:poke53281, 0:print"[147][142]";
101 print"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
102 print"[152] loadstar proudly presents "
103 print"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
104 print" "
105 print" Q Q "
106 print" p o k e l e s s "
107 print" Q Q "
108 print" s p r i t e s "
109 print" [209] ---------------------- [209] "
110 print" "
113 print" Q 15 p%(1)=255 Q "
114 print" 20 c%(1)=1 "
115 print" Q 25 x%(1)=100 Q "
116 print" 30 y%(1)=100 "
117 print" Q 35 e%(1)=1 Q "
118 print" "
119 print" [209] this routine doesn't [209] "
120 print" reconnect to loadstar. "
121 print" [209] [209] "
122 print" press space to load it "
123 print" [209] or return to go back [209] "
124 print" to loadstar. "
125 print" [209] [209] "
126 print" "
210 geta$:ifa$<>chr$(13)anda$<>" "then210
220 ifa$=" "then300
250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
255 ifer<>63 then print"[147]":end
256 poke53281,0:poke53280,0:print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
257 print"run"
258 poke631,13:poke632,13:poke198,2:end
300 print"[147]":poke214,10:print:print" [208]lease wait..."
310 poke147,0:sys57812"pokeless.o",8,1:sys62631
320 print"[147] [208][207][203][197][204][197][211][211] [211][208][210][201][212][197][211] [193][195][212][201][214][193][212][197][196]!"
325 sys 52850