home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
j
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
9KB
|
192 lines
1 dim p(4),p1(4):poke53281,0:poke53280,11:v$=" "
3 gosub 131
5 geta$:ifa$=""then5
7 p(0)=1065:p(1)=1393:p(2)=1713:p(3)=1845:p(4)=1240:gosub67:fori=1to4:p1(i)=p(i)
9 pokep(i),81:pokep(i)+54272,6:next:pokep(0),42:pokep(0)+54272,7:p1(0)=p(0):nn=0
11 fori=1to4:a=int(4*rnd(1)):ifa=0thenp1(i)=p1(i)-40
13 ifa=1thenp1(i)=p1(i)+40
15 ifa=2thenp1(i)=p1(i)-1
17 ifa=3thenp1(i)=p1(i)+1
19 ifpeek(p1(i))<>32thenp1(i)=p(i):goto23
21 pokep(i),32:pokep1(i),81:pokep1(i)+54272,6:p(i)=p1(i)
23 next:nn=nn+1:ifnn>100then45
25 a=15-(peek(56320)and15):ifa=1thenp1(0)=p1(0)-40
27 ifa=2thenp1(0)=p1(0)+40
29 ifa=4thenp1(0)=p1(0)-1
31 ifa=8thenp1(0)=p1(0)+1
33 ifpeek(p1(0))<>32thenp1(0)=p(0):goto37
35 pokep(0),32:pokep1(0),42:pokep1(0)+54272,7:p(0)=p1(0)
37 b=-40:c=b:gosub47:b=-1:c=b:gosub47:b=40:c=b:gosub47:b=1:c=b:gosub47:goto11
39 print"[159]hyva selvisit!! voit lukea kuullustelun"
41 geta$:ifa$=""then41
43 goto117
45 print"[159]etana!!! nyt meni aivan liikaa aikaa!!":fori=0to2000:next:goto63
47 ifpeek(p(0)+b)<>32then51
49 b=b+c:goto47
51 ifpeek(p(0)+b)=81then57
53 ifpeek(p(0)+b)=43then39
55 return
57 fori=p(0)+b-ctop(0)step-c:pokei,46:pokei+54272,15:poke53280,1:poke53280,11
59 next
61 print"[159]mokasit!! poliisi paasi ampumaan sinut!":fori=0to2000:next
63 geta$:ifa$=""then63
65 goto3
67 print"[147][149][176][192][192][192][192][174][176][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][192][192][192][192][174]"chr$(142);
69 print"[221] [221][221] [221]"v$"[221] [221] [221]"v$" [221]";
71 print"[173][178][192][174] [221][173][192][192][174] [221] [221] [176][192][174] [176][174] [221] [192][192][192][189] [176][178][192][178][192][174] [221]";
73 print"[176][189] [221] [173][192][192][174][221] [221] [221] [221] [176][174] [221][221]"v$" [173][189] [173][192][189] [221]";
75 print"[221] [221] [221][221] [192][192][179] [173][192][189] [173][189] [221][221] [173][178][178][192][192][192]"v$" [221]";
77 print"[171][192] [176][174] [173][189] [221]"v$" [221][221] [173][189] [176][192][192][192][192][192][192][179]";
79 print"[221] [176][192][189][221] [221] [192][178][192][192][192] [192][179][171][192] [176][192] [221] [221]";
81 print"[221] [192][177][192][192][189] [176][192][192][189] [221] [221] [173][189] [176][174] [221] [171][192][192][192][192][174] [221]";
83 print"[221]"v$"[221] [171][192] [176][192][174] [192][177][189] [176][177][178][192][192][192][189] [221]";
85 print"[221] [176][174] [176][174] [221] [176][179] [221] [221] [221] [176][174] [192][192][189] [221] [221]";
87 print"[173][192][189][221] [221][173][192][174] [221] [221][173][192] [221] [221] [221][221] [176][192][174] [221] [176][178][192] [221]";
89 print"[176][192][192][189] [173][192][192][189] [221] [221] [173][192][192][192][177][189] [173][174][173][174] [176][192][178][189] [221][221] [221]";
91 print"[221]"v$" [173][192][179] [221] [221]"v$" [173][192][189] [173][192][189] [221][221] [176][189]";
93 print"[221] [176][174] [176][192][192][174] [221] [171][192][192][192][192][192][192][192][174]"v$" [176][189][221] [221] ";
95 print"[221] [173][179] [173][192][192][177][192][192] [171][192][174] [171][192][192][192][192][192][192][192][219][192][192][192][192][192][174] [221] [173][192][179] [221] ";
97 print"[221] [221]"v$" [173][174][221] [221]"v$"[221] [221] [221] [221] [173][174]";
99 print"[221] [176][177][192][192][174] [176][192][174] [221][221] [173][192] [192][178][192][192] [221] [176][192][174] [221] [221] [221]";
101 print"[221] [221] [221] [221] [171][192] [173][189] [221] [221] [221][154]+[149][221] [171][192][192][192][189] [176][174] [221]";
103 print"[221] [221] [221] [173][192][189] [221] [176][192][174] [171][192][192] [221] [221] [221] [173][189] [221]";
105 print"[221] [221]"v$"[192][192][192] [173][178][189] [221] [173][192][192][192][189] [192][178][192] [221]";
107 print"[171][192][192] [221] [176][174] [176][174] [221] [221] [176][192][174]"v$" [221] [176][174] [221]";
109 print"[221] [221] [221][221] [173][189] [176][192][192][174] [221] [176][179] [173][192][189] [176][174] [176][174] [176][179] [176][219][189] [221]";
111 print"[221] [192][192][189] [221][221] [173][192][192][189] [173][189] [221][221] [221][221] [173][189] [173][189] [221]";
113 print"[221] [221][173][192][192][174] [221] [176][192][192][192][189][221] [221][221]"v$"[176][189]";
115 print"[173][192][192][192][192][192][189] [173][192][192][192][192][192][192][177][192][192][192][192][189] [173][192][189][173][192][192][192][192][192][192][192][189]":return
117 ns$=" [151] [206]appaimella seuraava sivu ":a=1
119 on a gosub163,189,211,233,261,291,323
121 geta$:ifa$=""then121
123 if a$="-"thena=a-1:ifa=>1goto119
125 ifa<1then117
127 a=a+1:ifa<8then119
129 goto361
131 print"[147][154][176][192][178][192][178][192][178][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][178][192][178][192][178][192][174]"chr$(14);
133 print"{$7d}[176][189][176][189][176][189][176][189] CRAKERIN[160]KUULLUSTELU[154] [173][174][173][174][173][174][173][174]{$7d}";
135 print"[173][177][192][177][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][177][192][177][192][177][189]";
137 print" [159]Ennen kuin voit iskea rasvaiset sorme-";
139 print"si kuullustelupoytakirjaan sinun on sel-";
141 print"vittava arkistohuoneeseen, sokkeloisen";
143 print"toimistorakennuksen lapi."
145 print" [212]oimistossa liikkuu myos 4[154] poliisia";
147 print"[159]sattumanvaraisesti ja typerasti, kuten";
149 print"oikeat[154] poliisitkin[159]. [202]os joudut nakoetai-";
151 print"syydelle[154] poliisista[159], se ampuu sinut, ku-ten ..."
153 print" [193]rkisto on sinisella plussalla ([154]+[159]) va-rustettu huone."
155 print" [201]tse olet keltainen tahti ([158]*[159]) ja oh-";
157 print"jaat itseasi joystickilla."
159 print" [211]ticki kannattaa tunkea porttiin 2."
161 print" [151] [208]aina jotain nappainta ":return
163 print"[147] [155] [207]let nyt arkistolla ja hyllysta loytyy"chr$(14);
165 print"crakerin kuullustelu. Valitettavasti jo-";
167 print"ku on kayttanyt ensimmaiset sivut vessa-";
169 print"paperina ja et tieda kuka on kuullustel-";
171 print"tava crakkeri ja etta kuullustelu on ta-";
173 print"pahtunut tammikuun puolivalissa."
175 print" [155][193]lat siis lukea kuullustelua.[151]":fori=0to39:print"-";:next
177 print"[154][208]oliisi: [211]ita on tullut crakkailtua,vai?";
179 print"[129][195]rakkeri: [206]o kyl ma nyt jotain."
181 print"[154][208]: [205]illoin tama rikollinen toiminta al-koi? [205]ika oli ensimmainen?"
183 print"[129][195]: [197]n muista enaa kunnolla. [211]iita on pa-";
185 print"ri kolme vuotta. Se oli VICilla jotain";
187 print"ensimmaisia.":printns$:return
189 print"[147][154][208]: [205]ika se [214][201][195] on? [208]uhu kuusnelosesta,";
191 print"alaka yrita johtaa meita harhaan!"
193 print"[129][195]: [206]o vaikea muistaa. [202]otain helppoja neoli kumminkin."
195 print"[154][208]: [205]ista ohjelmat hankitaan? [193]siantunti-";
197 print"ja lausunnossa sanotaan, etta tarvitaanalkuperaiskappalekin."
199 print"[129][195]: [203]ylla sita aina joltain kaveriltaloytyy."
201 print"[154][208]: [212]aidat valehdella, ettei vain varas-tettaisi liikkeista?"
203 print"[129][195]: [197]i nyt sellasta. [202]oskus ostetaan ja";
205 print"sitten, ei toi hyva, ja palautetaan."
207 print"[154][208]: [211]ina taidat kuulua johonkin rikollis-";
209 print"koplaan?":printns$:return
211 print"[147][129][195]: [202]oo, tavallaan.":print"[154][208]: [205]ika on tunnus?"
213 print"[129][195]: [197]n ma tieda viittiiks sita sanoa."
215 print"[154][208]: [197]t vai sano!! [203]ylla meilla on keinot!"
217 print"[155](kuullusteltavaa pamputetaan)"
219 print"[154][208]: [208]aallikko kaski jatkaa kuullustelua,";
221 print"juuri kun oli kivaa! [200]mmmr. [205]ita kaikkeaolet crakkaillut? [208]aljonkin?"
223 print"[129][195]: [203]yl nyt lahella sataa, kasetteja e-";
225 print"nemman ja disketteja jonkin verran."
227 print"[154][208]: [202]a mika oli tyon alla juuri ennen pi-";
229 print"datysta? tai mika on viimeisin?"
231 print"[129][195]: [214]iimeisin on [194]lade [210]unner.":printns$:return
233 print"[147][154][208]: [205]ikaan ei muka ollut tyon alla?"
235 print"[129][195]: [197]i ne yleensa kesta kauaa. [211]e on mel-";
237 print"keen tunti, kun ei ne viitti paljoo suo-";
239 print"jaa niita. [214]iime viikolla ma duunasinton yhden diskin."
241 print"[154][208]: [203]aytatko jotain apuohjelmia toimin-nassasi?"
243 print"[129][195]: [202]oo, kylla ma kaytan. [212]ota.... ekaks";
245 print"pitaa ottaa semmosella kaset to disk oh-";
247 print"jelmalla se bootti ja sit sen jalkeen";
249 print"lahtee tsiikaa mita se tekee. Sit ma";
251 print"kaytan omaa konekielimonitoria."
253 print"[154][208]: [202]atka tunnustamista, kun kerran vauh-tiin paasit."
255 print"[129][195]: [197]ka siirretaan.... [206]iiku... [206]o jos se";
257 print"on disketti game niin sitten lahetaan";
259 print"tsiigaa mita se tekee, kun tiedetaan ...":printns$:return
261 print"[147][129][195]: ... mika pitaa ladata niin sit pysty-";
263 print"taan lahtee seuraa mita se tekee ja sit";
265 print"poistaa sielta se suojaus tai kiertaa";
267 print"jotenkin tai tehda ohjelma, joka kopio";
269 print"sen disketin. Mut jos se on joku kasetti";
271 print"niin siita pitaa tehda levyversio."
273 print"[154][208]: [197]tko tee mitaan kasetille, kaikki le-vylle, vai?"
275 print"[129][195]: [197]i kasetilta kasetille oikeestaan ko-";
277 print"pioimista, kun voi ottaa audio-kopion.";
279 print"Se on nopein ja helpoin tapa, mut ei ne";
281 print"oo aina helppoa kopsata kasetilta dis-kille."
283 print"[154][208]: [203]un joku ohjelma on crakattu, niinmiten sita levitetaan?"
285 print"[129][195]: [205]a annan sen jollekin kaverille, joka";
287 print"antaa eteenpain ja se antaa eteenpain ja";
289 print"eteenpain.":printns$:return
291 print"[147][154][208]: [214]ai niin, ettei vain olisi olemassa'levitys mafiaa'?"
293 print"[129][195]: [197]i, se ois vahan rikollista, varmaan."
295 print"[154]P: Sina olet varmasti epaonnistunut jos-";
297 print"sain? tai ainakin ollut vaikeuksia."
299 print"[129][195]: [217]leensa [196]atasoftit on erittain vai-";
301 print"keita. Silloin kun tuli Bruce Lee niin";
303 print"sita ma en osannut tehda mutta puolvuot-";
305 print"ta myohemmin tuli Datasoftilta yks toi-";
307 print"nen kasetti jossa oli sama suojaus, niin";
309 print"sit ma sain sen tehtya ja muistin, etta";
311 print"samalla tavalla se [194]rucekin olis mennyt."
313 print"[154]P: Sinahan teet omia ohjelmia. Eiko ole";
315 print"ikavaa jos joku crakkailee niita?"
317 print"[129][195]: [203]ysymys on siita, etta ma en oo lait-";
319 print"tanut niita sillatavalla myyntiin, enka";
321 print"ma oo tehnyt niihin suojauksia niin ...":printns$:return
323 print"[147][129][195]: .... se on vahan silleen talleen. [211]e";
325 print"on ihan sama mulle et crakkaaks tai kop-";
327 print"saaks joku niita koska tavallaan ne tuo";
329 print"mainetta enemmankin, kun rupee tekee";
331 print"myohemmin hyvii ohjelmii niin jengi tie-";
333 print"taa etta se saattaa olla hyvaa softaa ja";
335 print"ostaa. [211]it niihin voi tehda sellaiset";
337 print"suojaukset et sit niita ei pura itsekaan"
339 print"[154][208]: [207]nko sellainenkin mahdollista?"
341 print"[129][195]: [206]o kyl nyt omat suojaukset aina pur-";
343 print"kaa mut kyl sa pysyt tekee niin vaikeeks";
345 print"et se on erittain hankalaa."
347 print"[154][208]: [200]aluaisit varmaan antaa aloittelevil-";
349 print"le crakkareille neuvoja ja vihjeita?"
351 print"[129][195]: [203]annattaa mielellaan aloittaa hel-";
353 print"poista, jos sellaista sattuu loytaa ja";
355 print"konekielta on pakko osata[151] [129] ja kannattaa";
357 print"tutkia muitten ohjelmia, niin oppii ko-";
359 print"nekielta jos ei ennen sita osaa.":printns$:return
361 print"[147] [152][206]yt on kaynyt niin, etta rotat ovat";
363 print"syoneet loput kuullustelusta, joten sesiita."
365 print" [206]yt voit tehda esim. seuraavaa:"
367 print" 1 [146] [153]lukea kuullustelun uudestaan"
369 print" 2 [146] [153]palata sisallyluetteloon"
371 print" 3 [146] [153]sammuttaa tietokoneen"
373 print" [152][212]ee valintasi!"
375 geta$:ifa$<"1"ora$>"3"then375
377 ifa$="1"thena=int(3*rnd(1))+1:onagoto117,3,117
379 ifa$="3"thenprint"[147] [206]o, sammuta koneesi [206][217][212]!":sys64738
381 poke203,51