home *** CD-ROM | disk | FTP | other *** search
/ Cracknews / Cracknews_1989-02_Welfare_Software_Boys.d64 / .1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  60 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] [215]elcome all you [195]omputerfreaks![144][221]"
  7. 60 print"  [221] [212]his is [195][210][193][195][203][206][197][215][211]! a new       [144][221]
  8. 70 [153]"  (NULL) lenrackermagazine on the len64!    stop(NULL)
  9. 80 print"  [221] [208]ublished by the               [144][221]
  10. 90 [153]"  (NULL) (NULL)val(NULL)ascatn(NULL)val (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val peek(NULL)(NULL)(NULL)!         stop(NULL)
  11. 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]
  12. 130 [141]720
  13. 140 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  14. 150 print"  [221][153] [201]f you have [208]roblems, [200]ints,   [144][221]
  15. 160 [153]"  (NULL)print right$nfos or what ever, please get stop(NULL)
  16. 170 print"  [221][153] in touch with [195][210][193][195][203][206][197][215][211]!       [144][221]
  17. 230 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  18. 240 [141]720
  19. 250 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  20. 260 print"  [221] [211]end your [204]etters(or what ever)[144][221]
  21. 270 [153]"  (NULL) to one of the following adress:stop(NULL)
  22. 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]"
  23. 321 print"                                       ";
  24. 330 gosub720
  25. 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]
  26. 350 [153]"  (NULL) (NULL).(NULL).peek                          stop(NULL)
  27. 360 print"  [221] [208].[207].[194]ox 9084                   [144][221]
  28. 370 [153]"  (NULL) (NULL)ain (NULL)erminal                  stop(NULL)
  29. 375 print"  [221] [207]ttawa [207]ntario                 [144][221]
  30. 380 [153]"  (NULL) (NULL)1chr$ 3(NULL)8                        stop(NULL)
  31. 385 print"  [221] [195][193][206][193][196][193]                         [144][221]
  32. 390 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  33. 400 [141]720
  34. 410 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  35. 420 print"  [221][153] or:                            [144][221]
  36. 430 [153]"  (NULL) (NULL).(NULL).peek                          stop(NULL)
  37. 440 print"  [221] [208][204][203]. 063954 [196]                  [144][221]
  38. 450 [153]"  (NULL) 87 (NULL)uerzburg 1                 stop(NULL)
  39. 460 print"  [221] [215]est [199]ermany                   [144][221]
  40. 500 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[141]720
  41. 510 [153]"   ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  42. 520 print"   [221][153][201]n the next [201]ssue of [195][210][193][195][203][206][197][215][211]![153] [144][221]
  43. 530 [153]"   (NULL)printwe want do a (NULL)wapline((NULL)iniadv.) stop(NULL)
  44. 540 print"   [221][153][201]f you are interested, please   [144][221]
  45. 550 [153]"   (NULL)printsend your text to len(NULL)atnlen(NULL)(NULL)val(NULL)(NULL)!    stop(NULL)
  46. 555 print"   [221][153]([196]ont send [205]oney, your [212]ext is  [144][221]
  47. 556 [153]"   (NULL)printenough, ok???)                  stop(NULL)
  48. 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
  49. 670 print"[147]"
  50. 680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
  51. 690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  52. 700 poke53281,15:poke53280,15
  53. 710 printchr$(142)"[145]          reloading the menu[155]":end
  54. 720 forw=1to2000:geta$:ifa$=""thennextw
  55. 730 gosub910:return
  56. 740 forw=1to2000:geta$:ifa$=""thennextw
  57. 750 return
  58. 900 return
  59. 910 print"":fori=1to10:print mt$:next:printmt$"":return
  60.