home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 July / 1984-07.d64 / gazette (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  127 lines
  1. 5 print"[147]";:poke53280,15:poke53281,15
  2. 10 fori=0to479:reada:poke1024+i,a:poke55296+i,0:next
  3. 20 print"[200][197][210][197]'[211] [200][207][215] [212][207] [199][197][212] [205][207][210][197] [198][210][207][205] [217][207][213][210] 64
  4. 30 [153]"clrortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  5. 40 print"[221]* [205]ore [198]un: with such new game  [221]"
  6. 50 print"[221]  excitement as [205]artian [208]rison- [221]
  7. 60 [153]"(NULL)  er, (NULL)he (NULL)iper, (NULL)ky str$iver,     (NULL)
  8. 70 print"[221]  [211]nake [197]scape, and [196]emon [211]tar  [221]
  9. 80 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  10. 85 print"                                  "
  11. 87 print"                                  "
  12. 90 gosub2000
  13. 100 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]
  14. 110 [153]"(NULL)* (NULL)ore lenhallenge: (NULL)eady to      (NULL)
  15. 120 print"[221]  tackle more advanced projects?[221]
  16. 130 [153]"(NULL)  right$n len(NULL)(NULL)(NULL)(NULL)(NULL)val!'s chr$azette, you'll (NULL)
  17. 140 print"[221]  learn [200]ow to [213]se [212]ape and [196]isk[221]
  18. 150 [153]"(NULL)  asciles, left$ow (NULL)o (NULL)rogram (NULL)he     (NULL)
  19. 160 print"[221]  [198]unction [203]eys.  [215]riting [212]rans-[221]
  20. 170 [153]"(NULL)  portable peekatn(NULL)right$len. close(NULL)ew (NULL)ays to  (NULL)
  21. 180 print"[221]  [197]nliven [215]ith [211]ound.  [200]ow to   [221]
  22. 190 [153]"(NULL)  (NULL)se (NULL)achine (NULL)anguage.         (NULL)
  23. 200 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]";
  24. 210 gosub2000
  25. 215 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. 217 [153]"(NULL) *(NULL)ore (NULL)rograms:from 64 (NULL)earcher(NULL)
  27. 220 print"[221] to [214][201][195]/64 [208]rogram [204]ifesaver;   [221]
  28. 230 [153]"(NULL) from (NULL)uickfind to str$isk (NULL)enu &  (NULL)
  29. 240 print"[221] [193]utomatic [208]roofreader and more.[221]
  30. 250 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  31. 255 fori=1to5
  32. 260 print"                                  "
  33. 270 next
  34. 280 gosub2000
  35. 285 print"[129][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]
  36. 290 [153]"(NULL)* (NULL)ore peekuying chr$uidance: (NULL)ou'll  (NULL)
  37. 300 print"[221]  profit from comprehensive     [221]
  38. 310 [153]"(NULL)  reviews of everything from    (NULL)
  39. 320 print"[221]  games to word processors to   [221]
  40. 330 [153]"(NULL)  printers, modems, and disk    (NULL)
  41. 340 print"[221]  drives.                       [221]
  42. 350 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  43. 360 [141]2000
  44. 370 [153]"verifyortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  45. 380 print"[221][211][213][194][211][195][210][201][194][197] [206][207][215] [212][207] [195][207][205][208][213][212][197]'[211]      [221]
  46. 390 [153]"(NULL)chr$atn(NULL)val(NULL)(NULL)val atn(NULL)str$ (NULL)(NULL)atn(NULL)(NULL) (NULL)vallenvalright$(NULL)right$(NULL)chr$     (NULL)
  47. 400 print"[221][197][214][197][210][217] [201][206][198][207][210][205][193][212][201][207][206]-[208][193][195][203][197][196] [201][211][211][213][197]! [221]
  48. 410 [153]"(NULL)(NULL)o order your subscription or a (NULL)
  49. 420 print"[221]sample issue, call [212][207][204][204]-[198][210][197][197]    [221]
  50. 430 [153]"(NULL)800-334-0868 (in (NULL).len. call      (NULL)
  51. 440 print"[221]919-275-9809.)                  [221]
  52. 450 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";:[141]2000:[141]2000
  53. 460 [153]"pokeortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  54. 470 print"[221]1 yr.(12 issues)-$20.00-[211]ave $10[221]
  55. 480 [153]"(NULL)2 yr.(24 issues)-$36.00-(NULL)ave $24(NULL)
  56. 490 print"[221]3 yr.(36 issues)-$54.00-[211]ave $36[221]
  57. 500 [153]"(NULL)(NULL)ingle (NULL)ample right$ssue  $4.00      (NULL)
  58. 510 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]"
  59. 520 fori=1to3:print"[160]                                  ":next:gosub2000
  60. 530 print"[147]"
  61. 531 s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  62. 532 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  63. 533 poke53281,14:poke53280,14
  64. 534 print"[145]reloading menu program[154]":end
  65. 1000 data160,160,160,201,134,160,153,143
  66. 1010 data149,160,132,143,142,167,148,160
  67. 1020 data129,140,146,133,129,132,153,160
  68. 1030 data147,149,130,147,131,146,137,130
  69. 1040 data133,160,148,143,160,160,160,160
  70. 1050 data32,32,32,32,32,32,32,32
  71. 1060 data32,32,32,32,32,32,32,32
  72. 1070 data32,32,32,32,32,32,32,32
  73. 1080 data32,32,32,32,32,32,32,32
  74. 1090 data32,32,32,32,32,32,32,32
  75. 1100 data254,160,160,32,254,160,252,32
  76. 1110 data252,32,32,254,32,160,160,252
  77. 1120 data32,160,32,160,32,160,160,160
  78. 1130 data32,160,160,32,160,32,160,32
  79. 1140 data32,32,32,32,32,32,32,32
  80. 1150 data160,32,32,32,160,32,160,32
  81. 1160 data160,252,254,160,32,160,32,160
  82. 1170 data32,160,32,160,32,32,160,32
  83. 1180 data32,160,98,32,160,32,255,32
  84. 1190 data255,127,32,32,32,32,32,32
  85. 1200 data160,32,32,32,160,32,160,32
  86. 1210 data160,251,236,160,32,160,160,236
  87. 1220 data32,160,32,160,32,32,160,32
  88. 1230 data32,160,226,32,226,32,32,32
  89. 1240 data127,98,32,32,32,32,32,32
  90. 1250 data251,160,160,32,251,160,236,32
  91. 1260 data160,32,32,160,32,160,32,32
  92. 1270 data32,251,160,236,32,32,160,32
  93. 1280 data32,160,160,32,160,32,32,32
  94. 1290 data98,255,32,32,32,32,32,32
  95. 1300 data112,64,64,64,110,112,64,64
  96. 1310 data64,110,112,64,64,64,64,110
  97. 1320 data112,64,64,64,64,110,112,64
  98. 1330 data64,64,110,112,64,64,64,110
  99. 1340 data112,64,64,64,64,110,32,32
  100. 1350 data93,254,160,252,93,93,254,160
  101. 1360 data252,93,93,160,160,160,160,93
  102. 1370 data93,251,160,160,160,93,93,224
  103. 1380 data160,160,93,93,160,160,160,93
  104. 1390 data93,251,160,160,160,93,32,32
  105. 1400 data93,160,32,32,115,93,160,32
  106. 1410 data160,93,107,32,254,160,236,93
  107. 1420 data109,110,160,98,112,125,109,110
  108. 1430 data160,112,125,109,110,160,112,125
  109. 1440 data109,110,160,98,112,125,32,32
  110. 1450 data93,160,32,251,93,93,160,160
  111. 1460 data160,93,93,254,160,236,32,115
  112. 1470 data112,125,160,226,109,110,32,93
  113. 1480 data160,93,32,96,93,160,93,32
  114. 1490 data112,125,160,226,109,110,32,32
  115. 1500 data93,251,160,236,93,93,160,32
  116. 1510 data160,93,93,160,160,160,160,93
  117. 1520 data93,254,224,160,160,93,32,93
  118. 1530 data160,93,32,96,93,160,93,32
  119. 1540 data93,254,160,160,160,93,32,32
  120. 1550 data109,64,64,64,125,109,64,113
  121. 1560 data64,125,109,64,64,64,64,125
  122. 1570 data109,64,64,64,64,125,32,109
  123. 1580 data64,125,32,32,109,64,125,32
  124. 1590 data109,64,64,64,64,125,32,32
  125. 2000 forw=1to2000:geta$:ifa$=""thennextw
  126. 2020 return
  127.