home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 53
/
053.d81
/
logjam
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
58 lines
10 ifpeek(830)=33 then 510
11 ifpeek(830)=20 then 250
99 poke53265,peek(53265)and239
100 poke53280, 6:poke53281, 1:print"[147][142]";
101 print"[155] [154] ";
102 print" [155] [154] loadstar presents [152] [155] [154] ";
103 print" [152] [155] [152] [155] ";
104 print" [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155] ";
105 print" [146][156][180][167][152] [155] [146]O[156][180]l";
106 print"ogjam[156][167]P[155] [146][165][156][180][151][163][163][163][163][163][163][163][163][163][163][163][163][163][156][167][167][152] [155] ";
107 print" [146][165][156][180][167][167][152] [155] [146][165][156][180]by";
108 print"bobblackmer[156][167][167][152] [155] [146]L[156][180][167][186][152] [155] ";
109 print" [146][156][180][167][152] [155] [146][156]L[175][175][175][175][175][175][175][175][175][175][175]";
110 print"[175][175][175][175][175][175][175][175][175][175][186][152] [155] [152] [155] ";
111 print" [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155] ";
112 print" [146][165]copyright1988[167][152] [155] [146]L[175][175][175][175][175][175][175][175][175]";
113 print"[175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155] [152] [155] ";
114 print" [146]O[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]P[155] [146][180][159]pressspacetocontinu";
115 print"e[167][152] [155] [146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155] [152] ";
116 print" [155] "
117 poke2023,96+128:poke56295,15:poke53265,peek(53265)or16
118 geta$:ifa$<>" "then 118
150 poke53265,peek(53265)and239
200 poke53280, 0:poke53281, 0:print"[147]";
201 print"[158][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
202 print"[221][221]"
203 print"{$7d}[154]L[160]O[160]G[160][160]J[160]A[160]M[160][158]{$7d}"
204 print"{$7d}{$7d}"
205 print"{$7d}N[160]O[160]T[160]I[160]C[160]E[158]{$7d}"
206 print"{$7d}{$7d}"
207 print"{$7d}Toreturntothemenusystem[158]{$7d}"
208 print"{$7d}once[154]LOG[160]JAMhasbeenloaded[158]{$7d}"
209 print"{$7d}youmustpressthe[158]RUN/STOP{$7d}"
210 print"{$7d}and[158]RESTOREkeyssimultaneously[158]{$7d}"
211 print"{$7d}andthenenterRUN.[158]{$7d}"
212 print"{$7d}{$7d}"
213 print"{$7d}{$7d}"
214 print"{$7d}[155]Doyouwishtocontinueloading[158]{$7d}"
215 print"{$7d}[155]theprogram'[154]LOGJAM[155]'?[158]{$7d}"
216 print"{$7d}{$7d}"
217 print"{$7d}{$7d}"
218 print"{$7d}[155]PleaserespondY[155])[154]es[155]orN[155])[154]o[158]{$7d}"
219 print"{$7d}{$7d}"
220 print"{$7d}{$7d}"
221 print"{$7d}{$7d}"
222 print"{$7d}{$7d}"
223 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":poke53265,peek(53265)or16
230 geta$:ifa$=""then 230
231 ifa$="[217]"ora$="y"then 500
232 ifa$="n"ora$="[206]"then 250
240 goto 230
250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
251 ifer<>63 then print"[147]":end
252 load"hello connect",8
500 print"[147][208]lease wait while loading..."
501 poke830,33:load"logjam.o",8,1
510 poke830,20:sys49152