home *** CD-ROM | disk | FTP | other *** search
/ Cracknews / Cracknews_1989-02_Welfare_Software_Boys.d64 / .6 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  75 lines
  1. 10 mt$="                                      "
  2. 20 print"[147]":poke53280,12:poke53281,12
  3. 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
  4. 40 [153]"stop  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  5. 50 print"  [221] [204][193][199][197] [196][197][210] [206][193][212][201][207][206] [208][193][210][212] [201][201]        [144][221]"
  6. 60 print"  [221] [215]as ist in [196]eutschland los?    [144][221]
  7. 120 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  8. 130 gosub720
  9. 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]
  10. 150 [153]"  (NULL)print (NULL)or einigen (NULL)ochen, wurden an  stop(NULL)
  11. 160 print"  [221][153] einigen [211]chulen [194]ayerns,       [144][221]
  12. 170 [153]"  (NULL)print right$nformationszettel an die      stop(NULL)
  13. 171 print"  [221][153] [211]chueler ausgegeben, mit der   [144][221]
  14. 172 [153]"  (NULL)print bitte,diese (von den valltern)   stop(NULL)
  15. 173 print"  [221][153] unterschreiben zu lassen.      [144][221]
  16. 230 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  17. 240 [141]720
  18. 250 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  19. 260 print"  [221] [201]n diesem [218]ettel wurde darauf  [144][221]
  20. 270 [153]"  (NULL) aufmerksam gemacht, dass       stop(NULL)
  21. 271 print"  [221] [210]aupkopien, strafbar seien.    [144][221]
  22. 272 [153]"  (NULL) (NULL)riginal atnuszug: 'str$ass kopierenstop(NULL)
  23. 273 print"  [221] von [195]omputer/[214]ideospielen ist  [144][221]
  24. 274 [153]"  (NULL) strafbar, und kann gerichtlich stop(NULL)
  25. 275 print"  [221] vefolgt werden.........'       [144][221]
  26. 276 [153]"  (NULL) (NULL)as nuetzen solche (NULL)ettel,     stop(NULL)
  27. 277 print"  [221] wenn im [201]nformatikraum, eine   [144][221]
  28. 278 [153]"  (NULL) gecrackte (NULL)ersion von 'chr$val(NULL)(NULL)'   stop(NULL)
  29. 279 print"  [221] rumlungert?                    [144][221]
  30. 320 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  31. 321 [153]"                                       ";
  32. 330 [141]720
  33. 340 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  34. 350 print"  [221] [199]anz davon abgesehen, dass     [144][221]
  35. 360 [153]"  (NULL) viele (NULL)ehrer/valltern keine      stop(NULL)
  36. 370 print"  [221] [193]hnung haben, was ihr [211]chuler/ [144][221]
  37. 375 [153]"  (NULL) (NULL)ohn mit dem lenomputer macht!   stop(NULL)
  38. 380 print"  [221] [198]rage: [215]ie sollen [197]ltern eine  [144][221]
  39. 385 [153]"  (NULL) (NULL)aubkopie erkennen??           stop(NULL)
  40. 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]";
  41. 400 gosub720
  42. 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]
  43. 420 [153]"  (NULL) chr$enauso ist es mit der right$(NULL)str$right$-   stop(NULL)
  44. 430 print"  [221] [218][201][197][210][213][206][199][211][204][201][211][212][197][210] der [194][213][206][196][197][211][208][210][213][197][198]-[144][221]
  45. 440 [153]"  (NULL) (NULL)(NULL)val(NULL)(NULL)val(peek(NULL)(NULL)).                   stop(NULL)
  46. 441 print"  [221] [211]eit geraumer [218]eit, duerfen    [144][221]
  47. 442 [153]"  (NULL) die namen der verboten(!)      stop(NULL)
  48. 443 print"  [221] [211]piele nicht mehr genannt      [144][221]
  49. 444 [153]"  (NULL) werden.                        stop(NULL)
  50. 450 print"  [221] [215]as soll man von einem [193][205][212]     [144][221]
  51. 460 [153]"  (NULL) halten, dass ein (NULL)piel indi-   stop(NULL)
  52. 461 print"  [221] ziert, 2 wochen freigibt, und  [144][221]
  53. 462 [153]"  (NULL) wider indiziert?(z.b. (NULL)right$(NULL)val(NULL)(NULL)   stop(NULL)
  54. 463 print"  [221] [211][197][210][214][201][195][197]!)                      [144][221]
  55. 500 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[141]720
  56. 510 [153]"   ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  57. 515 print"   [221]                                [221]
  58. 520 [153]"   (NULL)print(NULL)einer meinung nach, gehoert diestop(NULL)
  59. 530 print"   [221][153][194][208][211] wegen [214]olksverdummmung und  [144][221]
  60. 531 [153]"   (NULL)printbevormundung verboten.          stop(NULL)
  61. 532 print"   [221][153]([193][206][196][217]/[208]7)                       [144][221]
  62. 535 [153]"   (NULL)                                (NULL)
  63. 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
  64. 670 print"[147]"
  65. 680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
  66. 690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  67. 700 poke53281,15:poke53280,15
  68. 710 printchr$(142)"[145]          reloading the menu[155]":end
  69. 720 forw=1to2000:geta$:ifa$=""thennextw
  70. 730 gosub910:return
  71. 740 forw=1to2000:geta$:ifa$=""thennextw
  72. 750 return
  73. 900 return
  74. 910 print"":fori=1to10:print mt$:next:printmt$"":return
  75.