home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cracknews
/
Cracknews_1989-02_Welfare_Software_Boys.d64
/
.5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
85 lines
10 mt$=" "
20 print"[147]":poke53280,12:poke53281,12
30 print" [195][210][193][195][203][206][197][215][211]! [201][211][211][213][197] [198][197][194][210][213][193][210][217] 1989
40 [153]"stop ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
50 print" [221] [204]age der [206]ation([208]art 1) [144][221]"
60 print" [221] [197]s ist verdaechtig ruhig [144][221]
70 [153]" (NULL) in der szene geworden. stop(NULL)
71 print" [221] [194]is jetzt sind in diesem [202]ahr [144][221]
80 [153]" (NULL) noch keine umwerfende erfolge stop(NULL)
81 print" [221] der [211]oftwarecops erfolgt. [144][221]
82 [153]" (NULL) (NULL)achdem die peekullen die (NULL)(NULL)(NULL).'s stop(NULL)
83 print" [221] ueberwachten, haben sich viele [144][221]
84 [153]" (NULL) eine (NULL)odem zugelegt, mit dem stop(NULL)
85 print" [221] sie neue [195]ontacts suchen. [144][221]
120 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
130 gosub720
140 print" [176][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][174]
150 [153]" (NULL)print (NULL)ebenbei: ascalls ihr sicher stop(NULL)
160 print" [221][153] gehen wollt, dass kein [194]ulle [144][221]
170 [153]" (NULL)print bei euch in der (NULL)ost rumlungertstop(NULL)
171 print" [221][153] , dann geht abends hin(so um [144][221]
172 [153]" (NULL)print 7/8 (NULL)hr(dies geht allerdings stop(NULL)
173 print" [221][153] nur bei grossen [208]ostaemtern) [144][221]
174 [153]" (NULL)print da ich um diese (NULL)hrzeit noch stop(NULL)
175 print" [221][153] nie [194]ullen rumlungern sah!!! [144][221]
230 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
240 [141]720
250 [153]" ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
260 print" [221] [214]iele [211]taedte haben mittler- [144][221]
270 [153]" (NULL) weile eine (NULL)(NULL)(NULL)str$val(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL) stop(NULL)
271 print" [221] ([211][207][203][207])gebildet, um bessere [144][221]
272 [153]" (NULL) valrfolge zu erzielen. stop(NULL)
273 print" [221] [196]iese [211][207][203][207]'s bestehen nicht nur[144][221]
274 [153]" (NULL) aus (NULL)olizisten und (NULL)taats- stop(NULL)
275 print" [221] anwaelten, sondern auch aus [144][221]
276 [153]" (NULL) (NULL)itarbeitern von lenomputershops.stop(NULL)
277 print" [221] ([201]n [215]uerzburg z.b. [203][193][213][198][200][207][198] und [144][221]
278 [153]" (NULL) (NULL)lenleft$(NULL)val(NULL)(NULL) peek(NULL)val(NULL)(NULL)(NULL)atnstr$val(NULL)!!) stop(NULL)
320 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][189]"
321 print" ";
330 gosub720
340 print" [176][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][174]
350 [153]" (NULL) (NULL)(NULL)lenleft$val(NULL) und (NULL)val(NULL)(NULL)(NULL)(NULL)val(NULL)val(NULL), koennte stop(NULL)
360 print" [221] das motto der [211]oftwarecops [144][221]
370 [153]" (NULL) sein, nach neuesten chr$eruechten stop(NULL)
375 print" [221] aber, moechte der [211]taat, die [144][221]
380 [153]" (NULL) chr$eldmittel etwas einsparen, stop(NULL)
385 print" [221] was eine senkung der [211]oftware- [144][221]
386 [153]" (NULL) (NULL)olizei zu folge haette. stop(NULL)
390 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][189]";
400 gosub720
410 print" [176][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][174]
420 [153]" (NULL) str$amit ihr nicht erwischt werdetstop(NULL)
430 print" [221] (was bekannterweise recht un- [144][221]
440 [153]" (NULL) angenehm ist!), befolgt einige stop(NULL)
450 print" [221] [212]ips von [195][210][193][195][203][206][197][215][211]!: [144][221]
451 [153]" (NULL) chr$ebt (NULL)right$val (NULL)leinanzeigen mit stop(NULL)
452 print" [221] euerer [210][201][195][200][212][201][199][197][206] [193]dresse auf! [144][221]
460 [153]" (NULL) (NULL)enn ihr erwischt werdet, gebt stop(NULL)
461 print" [221] [206][201][197] ein [199]estaendnis ab(auch [144][221]
462 [153]" (NULL) nicht, wenn der peekeamte meint, stop(NULL)
463 print" [221] dass das was du gemacht hast [144][221]
464 [153]" (NULL) nicht schlimm ist, denn ein stop(NULL)
465 print" [221] [208]olizist, kann und darf nicht [144][221]
466 [153]" (NULL) beurteilen, was schlimm war, stop(NULL)
467 print" [221] und was nicht!) [144][221]
500 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[141]720
510 [153]" ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
515 print" [221] [144][221]
520 [153]" (NULL) (NULL)nd nochwas: (NULL)val(NULL)(NULL)val(NULL)(NULL)(NULL) (NULL)valright$(NULL)val stop(NULL)
530 print" [221] [198][210][197][213][206][196][197]!!!!!!! [144][221]
535 [153]" (NULL) ((NULL)right$(NULL)(NULL)val(NULL)/(NULL)(NULL)peek) stop(NULL)
560 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][189]":gosub720
670 print"[147]"
680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
700 poke53281,15:poke53280,15
710 printchr$(142)"[145] reloading the menu[155]":end
720 forw=1to2000:geta$:ifa$=""thennextw
730 gosub910:return
740 forw=1to2000:geta$:ifa$=""thennextw
750 return
900 return
910 print"":fori=1to10:print mt$:next:printmt$"":return