home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / gazette (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  123 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 gosub2000:goto30
  61. 1000 data160,160,160,201,134,160,153,143
  62. 1010 data149,160,132,143,142,167,148,160
  63. 1020 data129,140,146,133,129,132,153,160
  64. 1030 data147,149,130,147,131,146,137,130
  65. 1040 data133,160,148,143,160,160,160,160
  66. 1050 data32,32,32,32,32,32,32,32
  67. 1060 data32,32,32,32,32,32,32,32
  68. 1070 data32,32,32,32,32,32,32,32
  69. 1080 data32,32,32,32,32,32,32,32
  70. 1090 data32,32,32,32,32,32,32,32
  71. 1100 data254,160,160,32,254,160,252,32
  72. 1110 data252,32,32,254,32,160,160,252
  73. 1120 data32,160,32,160,32,160,160,160
  74. 1130 data32,160,160,32,160,32,160,32
  75. 1140 data32,32,32,32,32,32,32,32
  76. 1150 data160,32,32,32,160,32,160,32
  77. 1160 data160,252,254,160,32,160,32,160
  78. 1170 data32,160,32,160,32,32,160,32
  79. 1180 data32,160,98,32,160,32,255,32
  80. 1190 data255,127,32,32,32,32,32,32
  81. 1200 data160,32,32,32,160,32,160,32
  82. 1210 data160,251,236,160,32,160,160,236
  83. 1220 data32,160,32,160,32,32,160,32
  84. 1230 data32,160,226,32,226,32,32,32
  85. 1240 data127,98,32,32,32,32,32,32
  86. 1250 data251,160,160,32,251,160,236,32
  87. 1260 data160,32,32,160,32,160,32,32
  88. 1270 data32,251,160,236,32,32,160,32
  89. 1280 data32,160,160,32,160,32,32,32
  90. 1290 data98,255,32,32,32,32,32,32
  91. 1300 data112,64,64,64,110,112,64,64
  92. 1310 data64,110,112,64,64,64,64,110
  93. 1320 data112,64,64,64,64,110,112,64
  94. 1330 data64,64,110,112,64,64,64,110
  95. 1340 data112,64,64,64,64,110,32,32
  96. 1350 data93,254,160,252,93,93,254,160
  97. 1360 data252,93,93,160,160,160,160,93
  98. 1370 data93,251,160,160,160,93,93,224
  99. 1380 data160,160,93,93,160,160,160,93
  100. 1390 data93,251,160,160,160,93,32,32
  101. 1400 data93,160,32,32,115,93,160,32
  102. 1410 data160,93,107,32,254,160,236,93
  103. 1420 data109,110,160,98,112,125,109,110
  104. 1430 data160,112,125,109,110,160,112,125
  105. 1440 data109,110,160,98,112,125,32,32
  106. 1450 data93,160,32,251,93,93,160,160
  107. 1460 data160,93,93,254,160,236,32,115
  108. 1470 data112,125,160,226,109,110,32,93
  109. 1480 data160,93,32,96,93,160,93,32
  110. 1490 data112,125,160,226,109,110,32,32
  111. 1500 data93,251,160,236,93,93,160,32
  112. 1510 data160,93,93,160,160,160,160,93
  113. 1520 data93,254,224,160,160,93,32,93
  114. 1530 data160,93,32,96,93,160,93,32
  115. 1540 data93,254,160,160,160,93,32,32
  116. 1550 data109,64,64,64,125,109,64,113
  117. 1560 data64,125,109,64,64,64,64,125
  118. 1570 data109,64,64,64,64,125,32,109
  119. 1580 data64,125,32,32,109,64,125,32
  120. 1590 data109,64,64,64,64,125,32,32
  121. 2000 forw=1to600:geta$:ifa$=""thennextw
  122. 2020 return
  123.