home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / gazette (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  128 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: [215]ith such new game  [221]"
  6. 50 print"[221]  excitement as [212]rap'[197]m, [194]agdad,[221]
  7. 60 [153]"(NULL)  (NULL)ystery atnt (NULL)arple (NULL)anor, and  (NULL)
  8. 70 print"[221]  [195]ampaign [205]anager.             [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: ascrom (NULL)prite    (NULL)
  27. 220 print"[221] [205]agic to [213]ltrafont +; from     [221]
  28. 230 [153]"(NULL) (NULL)agazine right$ndexer to str$irectory  (NULL)
  29. 240 print"[221] [211]ort & [193]utomatic [208]roofreader   [221]
  30. 245 [153]"(NULL) and more.                      (NULL)
  31. 250 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]
  32. 255 [129]i[178]1[164]4
  33. 260 [153]"                                  "
  34. 270 [130]
  35. 280 [141]2000
  36. 285 [153]"forortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  37. 290 print"[221]* [205]ore [194]uying [199]uidance: [217]ou'll  [221]
  38. 300 [153]"(NULL)  profit from comprehensive     (NULL)
  39. 310 print"[221]  reviews of everything from    [221]
  40. 320 [153]"(NULL)  games to word processors to   (NULL)
  41. 330 print"[221]  printers, modems, and disk    [221]
  42. 340 [153]"(NULL)  drives.                       (NULL)
  43. 350 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]";
  44. 360 gosub2000
  45. 370 print"[149][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]
  46. 380 [153]"(NULL)(NULL)(NULL)peek(NULL)len(NULL)right$peekval (NULL)(NULL)(NULL) (NULL)(NULL) len(NULL)(NULL)(NULL)(NULL)(NULL)val'(NULL)      (NULL)
  47. 390 print"[221][199][193][218][197][212][212][197] [193][206][196] [211][212][193][210][212] [210][197][195][197][201][214][201][206][199]     [221]
  48. 400 [153]"(NULL)val(NULL)val(NULL)(NULL) right$(NULL)asc(NULL)(NULL)(NULL)atn(NULL)right$(NULL)(NULL)-(NULL)atnlen(NULL)valstr$ right$(NULL)(NULL)(NULL)val! (NULL)
  49. 410 print"[221][212]o order your subscription or a [221]
  50. 420 [153]"(NULL)sample issue, call (NULL)(NULL)(NULL)(NULL)-asc(NULL)valval    (NULL)
  51. 430 print"[221]800-334-0868 (in [206].[195]. call      [221]
  52. 440 [153]"(NULL)919-275-9809.)                  (NULL)
  53. 450 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]";:gosub2000:gosub2000
  54. 460 print"[151][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]
  55. 470 [153]"(NULL)1 yr.(12 issues)-$24.00-(NULL)ave $11(NULL)
  56. 480 print"[221]2 yr.(24 issues)-$45.00-[211]ave $25[221]
  57. 490 [153]"(NULL)3 yr.(36 issues)-$65.00-(NULL)ave $41(NULL)
  58. 500 print"[221][211]ingle [211]ample [201]ssue  $4.00      [221]
  59. 510 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  60. 520 [129]i[178]1[164]3:[153]"close                                  ":[130]:[141]2000
  61. 530 [153]"load"
  62. 531 s$[178]"l(NULL)"[170][199](34)[170]"mn"[170][199](34)[170]",8:"[170][199](131)
  63. 532 [129]i[178]1[164][195](s$):[151]630[170]i,[198]([202](s$,i)):[130]:[151]198,i
  64. 533 [151]53281,14:[151]53280,14
  65. 534 [153]"onreloading menu programcont":[128]
  66. 1000 [131]160,160,160,201,134,160,153,143
  67. 1010 [131]149,160,132,143,142,167,148,160
  68. 1020 [131]129,140,146,133,129,132,153,160
  69. 1030 [131]147,149,130,147,131,146,137,130
  70. 1040 [131]133,160,148,143,160,160,160,160
  71. 1050 [131]32,32,32,32,32,32,32,32
  72. 1060 [131]32,32,32,32,32,32,32,32
  73. 1070 [131]32,32,32,32,32,32,32,32
  74. 1080 [131]32,32,32,32,32,32,32,32
  75. 1090 [131]32,32,32,32,32,32,32,32
  76. 1100 [131]254,160,160,32,254,160,252,32
  77. 1110 [131]252,32,32,254,32,160,160,252
  78. 1120 [131]32,160,32,160,32,160,160,160
  79. 1130 [131]32,160,160,32,160,32,160,32
  80. 1140 [131]32,32,32,32,32,32,32,32
  81. 1150 [131]160,32,32,32,160,32,160,32
  82. 1160 [131]160,252,254,160,32,160,32,160
  83. 1170 [131]32,160,32,160,32,32,160,32
  84. 1180 [131]32,160,98,32,160,32,255,32
  85. 1190 [131]255,127,32,32,32,32,32,32
  86. 1200 [131]160,32,32,32,160,32,160,32
  87. 1210 [131]160,251,236,160,32,160,160,236
  88. 1220 [131]32,160,32,160,32,32,160,32
  89. 1230 [131]32,160,226,32,226,32,32,32
  90. 1240 [131]127,98,32,32,32,32,32,32
  91. 1250 [131]251,160,160,32,251,160,236,32
  92. 1260 [131]160,32,32,160,32,160,32,32
  93. 1270 [131]32,251,160,236,32,32,160,32
  94. 1280 [131]32,160,160,32,160,32,32,32
  95. 1290 [131]98,255,32,32,32,32,32,32
  96. 1300 [131]112,64,64,64,110,112,64,64
  97. 1310 [131]64,110,112,64,64,64,64,110
  98. 1320 [131]112,64,64,64,64,110,112,64
  99. 1330 [131]64,64,110,112,64,64,64,110
  100. 1340 [131]112,64,64,64,64,110,32,32
  101. 1350 [131]93,254,160,252,93,93,254,160
  102. 1360 [131]252,93,93,160,160,160,160,93
  103. 1370 [131]93,251,160,160,160,93,93,224
  104. 1380 [131]160,160,93,93,160,160,160,93
  105. 1390 [131]93,251,160,160,160,93,32,32
  106. 1400 [131]93,160,32,32,115,93,160,32
  107. 1410 [131]160,93,107,32,254,160,236,93
  108. 1420 [131]109,110,160,98,112,125,109,110
  109. 1430 [131]160,112,125,109,110,160,112,125
  110. 1440 [131]109,110,160,98,112,125,32,32
  111. 1450 [131]93,160,32,251,93,93,160,160
  112. 1460 [131]160,93,93,254,160,236,32,115
  113. 1470 [131]112,125,160,226,109,110,32,93
  114. 1480 [131]160,93,32,96,93,160,93,32
  115. 1490 [131]112,125,160,226,109,110,32,32
  116. 1500 [131]93,251,160,236,93,93,160,32
  117. 1510 [131]160,93,93,160,160,160,160,93
  118. 1520 [131]93,254,224,160,160,93,32,93
  119. 1530 [131]160,93,32,96,93,160,93,32
  120. 1540 [131]93,254,160,160,160,93,32,32
  121. 1550 [131]109,64,64,64,125,109,64,113
  122. 1560 [131]64,125,109,64,64,64,64,125
  123. 1570 [131]109,64,64,64,64,125,32,109
  124. 1580 [131]64,125,32,32,109,64,125,32
  125. 1590 [131]109,64,64,64,64,125,32,32
  126. 2000 [129]w[178]1[164]2000:[161]a$:[139]a$[178]""[167][130]w
  127. 2020 [142]
  128.