home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
e
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
134 lines
12 poke53281,0:poke53280,11:fori=1to8:readb$(i):next:dataa,c,c,a,b,b,c,c
13 fori=1to8:readc$(i):next:datab,b,b,b,a,c,b,b
50 gosub500:a=0
52 geta$:ifa$=""then52
55 print"[147]";
60 a=a+1:print:onagosub514,518,522,526,531,535,539,543
70 geta$:ifa$<"a"ora$>"c"then70
75 a$(a)=a$:ifa<8then60
80 l=1:fori=1to8:ifa$(i)=b$(i)thena(l)=i:l=l+1
81 next:l=l-1:k=1:fori=1to8:ifa$(i)=c$(i)thenk=k+1
82 next:k=k-1:ifl<>0then200
85 ifk<>0then150
90 print" [159][214]astauksesi menivat taysin oikein!"
100 print"[208]aaset tutustumaan [158][208]iraatin nurkka[159]an!
110 [161]a$:[139]a$[178]""[167]110
111 [137]250
150 [139]k[179]3[167][153]" open(NULL)astauksissa oli pienta epatarkkuutta.":[137]100
155 [153]" open(NULL)astauksesi menivat hieman pieleen."
157 [153]"(NULL)ikkuvirheita oli liikaa, joten et paase"
159 [153]"nakemaan sys(NULL)iraatin nurkkaopena. (NULL)oeta kehit-"
160 [153]"taa itseasi hieman, ehka sitten paaset.":[137]240
200 a$[178]"kysymyksessa":[139]l[179][177]1[167]a$[178]"kysymyksissa"
210 [153]" open(NULL)astauksesi todella olivat masentavia!"
211 [153]"vali sinulle voi sys(NULL)iraatin nurkkaaopen nayttaa."
215 [153]"left$aluatko tietaa missa "a$" moka-sit (k/e) ?"
220 [161]b$:[139]b$[179][177]"k"[175]b$[179][177]"e"[167]220
222 [139]b$[178]"e"[167]232
230 [153]"(NULL)okasit "a$":";:[129]i[178]1[164]l:[153]a(i);:[130]
232 [139]a$(8)[178]"c"[167][160]15:[159]15,8,15,"n:sikakopio":[137]300
233 [139]b$[178]"e"[167]50
240 [161]a$:[139]a$[178]""[167]240
242 [137]50
250 [141]600:[161]a$,a$,a$
255 [161]a$:[139]a$[178]""[167]255
256 [139]a$[178]"_"[167]50
257 [139]a$[178]"-"[167]250
260 [141]621:[161]a$,a$,a$
265 [161]a$:[139]a$[178]""[167]265
266 [139]a$[178]"_"[167]50
267 [139]a$[178]"-"[167]250
270 [151]203,51:[128]
300 [153]:[129]i[178]0[164]999:[130]:[153]"(NULL)oska on syyta olettaa etta levyasemassa"
301 [153]"on laiton (?) kopio, ollaan sita forma-"
302 [153]"toimassa. mid$os levy kuitenkin oli alkupe-"
303 [153]"rainen niin palauta se syschr$urlauspommiopenn"
304 [153]"toimitukseen nimella, osoitteella ja se-"
305 [153]"lityksella varustettuna. (NULL)oit saada uu-"
306 [153]"den tilalle.":[158]64739
500 [153]"loadverifyor=tan=tan=tan=tan=tan=tantantantantantantantantantantantantantantantan=tan=tan=tan=tan=tan=^";
501 [153]"-exporexporexporexporexporexpsysPiraatin nurkkaverify/^/^/^/^/^/<";
502 [153]"/tan>tan>tan>tan>tan>tantantantantantantantantantantantantantantantantantan>tan>tan>tan>tan>tan>"
503 [153]" for(NULL)oska sys(NULL)iraatin nurkkaopen forsisaltaa hieman"
504 [153]"arkaluonteista tekstia pyydamme lukijaa"
505 [153]"vastaamaan seuraaviin kysymyksiin, jotta"
506 [153]"saamme tietaa onko teksti sopivaa hanen"
507 [153]"luettavakseen. (NULL)yydamme lukijaa olemaan"
508 [153]"rehellinen vastauksia antaessaan, vaikka"
509 [153]"valehdellessaan han ei huijaa muita kuin"
510 [153]"itseaan. (NULL)astaustensa perusteella lukija"
511 [153]"saa pisteita, joista riippuu saako han"
512 [153]"lukea jutun.":x$[178]" sys"
513 [153]" poke (NULL)appaimella kysymyksiin ":[142]
514 [153]"sys1. print(NULL)stan ohjelmia"
515 [153]x$"a) saannollisesti"
516 [153]x$"b) joskus"
517 [153]x$"c) voiko niita ostaakin?":[142]
518 [153]"sys2. print(NULL)mistan kopioita"
519 [153]x$"a) yli 150"
520 [153]x$"b) alle 150"
521 [153]x$"c) tietaakseni kopiointi on laitonta":[142]
522 [153]"sys3.print (NULL)istan saamani ohjelmat kiertoon"
523 [153]x$"a) valittomasti"
524 [153]x$"b) kaverin tuotua minulle uusia"
525 [153]x$"c) en lainkaa, olen (NULL)oope":[142]
526 [153]"sys4. print(NULL)apaan kaverini kahminassa salaa oh-";
527 [153]" jelmiani. (NULL)ita teen?"
528 [153]x$"a) anna pain nakoa"
529 [153]x$"b) osoitan missa on 5 hirtta poikki"
530 [153]x$"c) naytan parempia ohjelmiani":[142]
531 [153]"sys5. print(NULL)aytan":[153]x$"a) 1541 backuppia"
533 [153]x$"b) str$isk to (NULL)ape copya"
534 [153]x$"c) jotain muuta":[142]
535 [153]"sys6. print(NULL)averillani on ohjelmia"
536 [153]x$"a) yhta paljon"
537 [153]x$"b) (NULL)atn(NULL)mid$(NULL)(NULL) vahemman"
538 [153]x$"c) enemman":[142]
539 [153]"sys7. print(NULL)tan vastaan ohjelmista"
540 [153]x$"a) kaikki mita saan kasiini"
541 [153]x$"b) vain parhaat"
542 [153]x$"c) (NULL)str$:t ((NULL)ublic str$omain)":[142]
543 [153]"sys8. print(NULL)ama syschr$(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$ printon"
544 [153]x$"a) itse ostamani"
545 [153]x$"b) kaverilta lainassa"
546 [153]x$"c) kopioitu kaverilta":[142]
600 [153]"loadverifyor=tan=tan=tan=tan=tan=tantantantantantantantantantantantantantantantan=tan=tan=tan=tan=tan=^";
601 [153]"-exporexporexporexporexporexpsysPiraatin nurkkaverify/^/^/^/^/^/<";
602 [153]"/tan>tan>tan>tan>tan>tantantantantantantantantantantantantantantantantantan>tan>tan>tan>tan>tan>"
603 [153]" forlenommodore 64:n pelivalikoima on erit-";
604 [153]"tain laaja ja jopa Suomessa hyvin edus-";
605 [153]"tettu. Ainoa hammastyttava piirre peli-";
606 [153]"viidakossa on kasettien ja kalvojen hui-";
607 [153]"kea hinta. Siksi kunnon syspiraatti forei kos-";
608 [153]"kaan vaivaudukaan ostamaan ohjelmistoaan";
609 [153]"vaan kopioi. On suoranainen synti raaha-";
610 [153]"ta rahansa pelien ja hyotyohjelmien myy-";
611 [153]"jille, kun samat ohjelmat saa kuitenkin";
612 [153]"kavereilta muutaman viikon sisaan."
613 [153]"(NULL)iksi pelien hinnat ovat niin huimaavia?"
614 [153]" (NULL)ietysti ohjelman tekemiseen on mennyt";
615 [153]"aikaa ja rahaa, mutta antaako se syyn";
616 [153]"nostaa ohjelmien hinnat aivan alyttomik-";
617 [153]"si? Tukimpa. Meni taman sysGurlauspommifornkin";
618 [153]"tekemiseen seka aikaa etta rahaa, mutta";
619 [153]"silti hinta on kohtuullinen."
620 [153]" poke (NULL)appaimella seuraava sivu ":[142]
621 [153]"load for(NULL)uurin syy ohjelmien ylihinnoitteluun";
622 [153]"lienee maahantuojien ja myyjien pohjatonahneus."
623 [153]" (NULL)aahantuojat ja valmistajat kehittele-";
624 [153]"vat yha monipuolisempia ja mahdottomam-";
625 [153]"pia suojausmenetelmia piratismin estami-";
626 [153]"seksi. Kaikkien osapuolien kustannuksia";
627 [153]"voitaisiin parhaiten saastaa jattamalla";
628 [153]"suojaukset sikseen, silla sellaista suo-";
629 [153]"jaa ei voi ohjelmaan rakentaa, mita ah-";
630 [153]"kera piraatti ei kykene murtamaan."
632 [129]i[178]0[164]39:[153]"to";:[130]
633 [129]i[178]0[164]39:[153]"verifyusr";:[130]
634 [153]" verify(NULL)mid$ pitaa seuraavia peleja kivoina:"
635 [153]" vallite, peekoulderbash (kaikki), chr$uardian,";
636 [153]"The Hitch hiker's guide to the galaxy ja";
637 [153]"str$avid's midnight magic."
638 [153]" poke (NULL)appaimella sisallysluetteloon ":[142]
700 leikitko [191]a jotain piraatia, vai mita [191]a naita luet