home *** CD-ROM | disk | FTP | other *** search
/ Cracknews / Cracknews_1989-02_Welfare_Software_Boys.d64 / .7 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  82 lines
  1. 5 poke808,252:poke775,1
  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]       *** [211][197][195][210][197][212] [204][193][206][196] **       [144][221]"
  7. 60 print"  [221] [217]ep, [198][210][197][211][200] and [205][193][199][201][195], [195][207][207][204] and [144][221]
  8. 70 [153]"  (NULL) left$(NULL)(NULL): (NULL)vallen(NULL)val(NULL) (NULL)atn(NULL)str$ in len(NULL)atnlen(NULL)(NULL)val(NULL)(NULL)! stop(NULL)
  9. 71 print"  [221] [215]e bring you [197][214][197][210][217] [205][207][206][212][200], tips [144][221]
  10. 80 [153]"  (NULL) and fun for for different (NULL)tuffstop(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] [200]ow about some [208]okes for 1943: [144][221]
  15. 160 [153]"  (NULL) right$(NULL)ascright$(NULL)right$(NULL)(NULL) (NULL)right$(NULL)val(NULL):                stop(NULL)
  16. 170 print"  [221] [208][207][203][197] 34864,234                 [144][221]
  17. 171 [153]"  (NULL) (NULL)(NULL)(NULL)val 34865,234                 stop(NULL)
  18. 172 print"  [221] [208][207][203][197] 34866,234                 [144][221]
  19. 173 [153]"  (NULL) (NULL)(NULL)(NULL)val 34867,234                 stop(NULL)
  20. 174 print"  [221] [208][207][203][197] 34868,234                 [144][221]
  21. 175 [153]"  (NULL)print asc(NULL)(NULL) right$(NULL)(NULL)right$(NULL)lenright$peek(NULL)right$(NULL)(NULL):              stop(NULL)
  22. 176 print"  [221] [208][207][203][197] 39312,208                 [144][221]
  23. 177 [153]"  (NULL)print (NULL)(NULL)atn(NULL)(NULL)right$(NULL)chr$ (NULL)vallen(NULL)(NULL)(NULL):               stop(NULL)
  24. 178 print"  [221] [208][207][203][197] 32771,(0 - 31)            [144][221]
  25. 179 [153]"  (NULL)print (NULL)val(NULL)(NULL)atn(NULL)(NULL) 1943 (NULL)(NULL)(NULL) 32768         stop(NULL)
  26. 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]";
  27. 240 gosub720
  28. 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]
  29. 260 [153]"  (NULL) (NULL)(NULL) left$val(NULL)(NULL) atn(NULL)str$ peekatnlen(NULL):              stop(NULL)
  30. 270 print"  [221] [208][207][203][197]32371,173:[211][217][211] 30464        [144][221]
  31. 271 [153]"  (NULL) (NULL)len(NULL)(NULL)peek(NULL) str$(NULL)(NULL):                    stop(NULL)
  32. 272 print"  [221] [208][207][203][197]7450,96:[211][217][211] 2560           [144][221]
  33. 273 [153]"  (NULL)print lenleft$(NULL)peekpeek(NULL) chr$(NULL)right$(NULL)(NULL)(NULL)val:                stop(NULL)
  34. 274 print"  [221][153] [208][207][203][197]3613,172:[211][217][211]2994           [144][221]
  35. 275 [153]"  (NULL) left$(NULL)(NULL)(NULL)right$(NULL)' (NULL)atnstr$:                   stop(NULL)
  36. 276 print"  [221] [208][207][203][197] 24447,165:[211][217][211]20480        [144][221]
  37. 277 [153]"  (NULL) (NULL)atn(NULL)(NULL) (NULL)right$(NULL)(NULL)right$(NULL)(NULL):                  stop(NULL)
  38. 278 print"  [221] [208][207][203][197]7927,12:[211][217][211]14848           [144][221]
  39. 320 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  40. 321 [153]"                                       ";
  41. 330 [141]720
  42. 340 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  43. 350 print"  [221] [205][197][199][193] [193][208][207][195][193][204][217][208][211][197]:               [144][221]
  44. 360 [153]"  (NULL) (NULL)(NULL)(NULL)val32417,173:(NULL)(NULL)(NULL)22562         stop(NULL)
  45. 370 print"  [221][153] [204][201][199][200][212][198][207][210][195][197]:                    [144][221]
  46. 375 [153]"  (NULL)print (NULL)(NULL)(NULL)val11547,5:(NULL)(NULL)(NULL)6713            stop(NULL)
  47. 380 print"  [221] [204][201][214][201][206][199] [196][193][217][204][201][199][200][212][211]:              [144][221]
  48. 385 [153]"  (NULL) (NULL)(NULL)(NULL)val4390,173:(NULL)(NULL)(NULL)4352           stop(NULL)
  49. 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]";
  50. 400 gosub720
  51. 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]
  52. 420 [153]"  (NULL) peekatnlen(NULL) (NULL)(NULL) (NULL)valatn(NULL)right$(NULL)(NULL):               stop(NULL)
  53. 430 print"  [221] [208][207][203][197]20109,173:[211][217][211]16384         [144][221]
  54. 440 [153]"  (NULL) (NULL)(NULL)atn(NULL)asc(NULL)(NULL):                       stop(NULL)
  55. 450 print"  [221] [208][207][203][197]35156,165:[211][217][211]32768         [144][221]
  56. 451 [153]"  (NULL) (NULL)val(NULL)(NULL)peekatn(NULL)(NULL):                      stop(NULL)
  57. 452 print"  [221] [208][207][203][197]12713,165:[211][217][211]4100          [144][221]
  58. 462 [153]"  (NULL) peekatn(NULL)(NULL)(NULL)val right$(NULL)(NULL)atn(NULL)str$:                 stop(NULL)
  59. 463 print"  [221] [208][207][203][197]50228,141:[211][217][211]24064         [144][221]
  60. 464 [153]"  (NULL) left$atn(NULL)(NULL)val(NULL)val:                       stop(NULL)
  61. 465 print"  [221] [208][207][203][197]6105,189:[211][217][211]23558          [144][221]
  62. 466 [153]"  (NULL) peekright$(NULL)(NULL)right$len len(NULL)(NULL)(NULL)atn(NULL)str$(NULL):               stop(NULL)
  63. 467 print"  [221] [208]ress [203]eys: '_' '1' '2'        [144][221]
  64. 500 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[141]720
  65. 510 [153]"   ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  66. 515 print"   [221]                                [144][221]
  67. 520 [153]"   (NULL) (NULL)ee ya next month with more    stop(NULL)
  68. 530 print"   [221] [211][197][195][210][197][212] [204][193][206][196]!!!                 [144][221]
  69. 535 [153]"   (NULL) ((NULL)right$(NULL)(NULL)val(NULL)/(NULL)(NULL)peek)                   stop(NULL)
  70. 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
  71. 670 print"[147]"
  72. 680 s$="l[207]"+chr$(34)+"[192]0,s,r"+chr$(34)+",8:"+chr$(131)
  73. 690 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  74. 700 poke53281,15:poke53280,15
  75. 710 printchr$(142)"[145]          reloading the menu[155]":end
  76. 720 forw=1to2000:geta$:ifa$=""thennextw
  77. 730 gosub910:return
  78. 740 forw=1to2000:geta$:ifa$=""thennextw
  79. 750 return
  80. 900 return
  81. 910 print"":fori=1to10:print mt$:next:printmt$"":return
  82.