home *** CD-ROM | disk | FTP | other *** search
/ Cracknews / Cracknews_1989-02_Welfare_Software_Boys.d64 / .a (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 5 poke808,252
  2. 10 mt$="                                      "
  3. 20 print"[147]":poke53280,12:poke53281,12
  4. 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
  5. 40 [153]"stop  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  6. 50 print"  [221] ** [195][210][197][196][201][212][211] **                  [144][221]"
  7. 60 print"  [221] [198]ollowing [198]reaks,must we thanx![144][221]
  8. 120 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  9. 130 gosub720
  10. 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]
  11. 150 [153]"  (NULL) len(NULL)atnlen(NULL)(NULL)val(NULL)(NULL)! (NULL)eam(at the moment):stop(NULL)
  12. 160 print"  [221] [215][197][204][198][193][210][197] [211][207][198][212][215][193][210][197] [194][207][217][211]!         [144][221]
  13. 230 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  14. 240 [141]720
  15. 250 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  16. 260 print"  [221] [212]hanx for different [211]torys to: [144][221]
  17. 270 [153]"  (NULL) (NULL)atnchr$val (NULL)val(NULL)val(NULL) len(NULL)val(NULL)                stop(NULL)
  18. 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]"
  19. 321 print"                                       ";
  20. 330 gosub720
  21. 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]
  22. 350 [153]"  (NULL) (NULL)hanx to: peekright$chr$ (NULL)(NULL)(NULL)(NULL)(NULL), (NULL)(NULL)atn(NULL)64!,  stop(NULL)
  23. 360 print"  [221] [195][200][193][210][204][217], [194][204][193][195][203] [200][197][201][206][207] for their  [144][221]
  24. 370 [153]"  (NULL) help at the (NULL)vallen(NULL)val(NULL) (NULL)atn(NULL)str$!       stop(NULL)
  25. 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]";
  26. 400 gosub720
  27. 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]
  28. 411 [153]"  (NULL) (NULL)hanx to all, who spread this! stop(NULL)
  29. 412 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]";
  30. 670 print"[147]"
  31. 680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
  32. 690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  33. 700 poke53281,15:poke53280,15
  34. 710 printchr$(142)"[145]          reloading the menu[155]":end
  35. 720 forw=1to2000:geta$:ifa$=""thennextw
  36. 730 gosub910:return
  37. 740 forw=1to2000:geta$:ifa$=""thennextw
  38. 750 return
  39. 900 return
  40. 910 print"":fori=1to10:print mt$:next:printmt$"":return
  41.