home *** CD-ROM | disk | FTP | other *** search
/ Cracknews / Cracknews_1989-02_Welfare_Software_Boys.d64 / .8 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  41 lines
  1. 5 poke808,252:mt$="                                      "
  2. 20 print"[147]":poke53280,12:poke53281,12:print"    [195][210][193][195][203][206][197][215][211]! [201][211][211][213][197] [198][197][194][210][213][193][210][217] 1989
  3. 40 [153]"stop  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  4. 50 print"  [221] [196][193][212][193] [194][197][195][203][197][210][211] '[195][207][208][217][208][210][207][212][197][195][212][201][207][206]'  [144][221]"
  5. 120 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]:[141]720
  6. 140 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  7. 150 print"  [221] [212]he [199]erman [211]oftwarecompany     [144][221]
  8. 160 [153]"  (NULL) str$atn(NULL)atn peekvallen(NULL)val(NULL), stopped to make   stop(NULL)
  9. 170 print"  [221] [195]opyprotections on there [208]rgs. [144][221]
  10. 171 [153]"  (NULL) (NULL)his message, was the reason   stop(NULL)
  11. 172 print"  [221] for a little research, and     [144][221]
  12. 173 [153]"  (NULL) what we found, is a bad joke!  stop(NULL)
  13. 230 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
  14. 250 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]
  15. 260 [153]"  (NULL) (NULL)e bought a (NULL)rg. for the atnmiga stop(NULL)
  16. 270 print"  [221] , and what we saw was a joke!  [144][221]
  17. 271 [153]"  (NULL) (NULL)hey ask for our (NULL)ame and      stop(NULL)
  18. 272 print"  [221] [193]dress! [196]id they think, this   [144][221]
  19. 273 [153]"  (NULL) stops (NULL)ircay?                  stop(NULL)
  20. 274 print"  [221] [215]ell, after typing some shit   [144][221]
  21. 275 [153]"  (NULL) (lenracknews! (NULL)lk........)       stop(NULL)
  22. 276 print"  [221] the [208]rg. save this shit as a   [144][221]
  23. 277 [153]"  (NULL) coded file on the disc!        stop(NULL)
  24. 278 print"  [221] [215]e loaded it again, and we saw [144][221]
  25. 279 [153]"  (NULL) our nice adress(wow!).         stop(NULL)
  26. 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]"
  27. 321 print"                                       ";:gosub720
  28. 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]
  29. 350 [153]"  (NULL) str$ata peekecker, thanx that you    stop(NULL)
  30. 360 print"  [221] use no [208]rotection, but do you  [144][221]
  31. 370 [153]"  (NULL) think really, the peek(NULL)atnlen(NULL) (NULL)oft-  stop(NULL)
  32. 375 print"  [221] warescene is silly like a cow? [144][221]
  33. 380 [153]"  (NULL) (atn(NULL)str$(NULL)/(NULL)7)                      stop(NULL)
  34. 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]";:gosub720:print"[147]"
  35. 680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
  36. 690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i:poke53281,15:poke53280,15
  37. 710 printchr$(142)"[145]          reloading the menu[155]":end
  38. 720 forw=1to2000:geta$:ifa$=""thennextw
  39. 730 gosub910:return
  40. 910 print"":fori=1to10:printmt$:next:printmt$"":return
  41.