home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 May / 1987-05.d64 / gazette (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  91 lines
  1. 10 mt$="                                      "
  2. 20 print"[147]":poke53280,11:poke53281,11:gosub760
  3. 30 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. 40 [153]"stop  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  5. 50 print"  [221][153] [211]ubscribe to [195][207][205][208][213][212][197]!'s [199]azette[144][221]"
  6. 60 print"  [221][153] and you'll be getting a lot    [144][221]
  7. 70 [153]"  (NULL)print more than just another computerstop(NULL)
  8. 80 print"  [221][153] magazine. [212]hat's because each  [144][221]
  9. 90 [153]"  (NULL)print issue of len(NULL)(NULL)(NULL)(NULL)(NULL)val!'s chr$azette    stop(NULL)
  10. 100 print"  [221][153] comes complete with up to 20   [144][221]
  11. 110 [153]"  (NULL)print all-new action-packed programs.stop(NULL)
  12. 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]
  13. 130 [141]720
  14. 140 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  15. 150 print"  [221][153] [211]ubscribe now and you can      [144][221]
  16. 160 [153]"  (NULL)print depend on a steady supply of   stop(NULL)
  17. 170 print"  [221][153] high quality, fun-filled       [144][221]
  18. 180 [153]"  (NULL)print programs for your lenommodore    stop(NULL)
  19. 190 print"  [221][153] computer. [208]rograms like [211]print[153],[144][221]
  20. 200 [153]"  (NULL)print a basic compiler, or (NULL)urbocopyprint,stop(NULL)
  21. 210 print"  [221][153] which copies an entire disk in [144][221]
  22. 220 [153]"  (NULL)print four minutes.                  stop(NULL)
  23. 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]";
  24. 240 gosub720
  25. 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]
  26. 260 [153]"  (NULL)print valach issue contains exciting   stop(NULL)
  27. 270 print"  [221][153] games such as [193]rcade [194]aseball[153]  [144][221]
  28. 280 [153]"  (NULL)print and (NULL)aloon (NULL)hootoutprint along with stop(NULL)
  29. 290 print"  [221][153] educational and home finance   [144][221]
  30. 300 [153]"  (NULL)print programs the entire family can stop(NULL)
  31. 310 print"  [221][153] use all year long.             [144][221]
  32. 320 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  33. 330 gosub720
  34. 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]
  35. 350 [153]"  (NULL)print (NULL)he superb programs alone are  stop(NULL)
  36. 360 print"  [221][153] worth much, much more than the [144][221]
  37. 370 [153]"  (NULL)print low subscription price. peekut    stop(NULL)
  38. 380 print"  [221][153] there's more...                [144][221]
  39. 390 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  40. 400 [141]720
  41. 410 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  42. 420 print"  [221][153] [205]onth after month, you'll      [144][221]
  43. 430 [153]"  (NULL)print receive comprehensive reviews  stop(NULL)
  44. 440 print"  [221][153] and in-depth articles on       [144][221]
  45. 450 [153]"  (NULL)print everything from languages to   stop(NULL)
  46. 460 print"  [221][153] interfaces...from programming  [144][221]
  47. 470 [153]"  (NULL)print to disk drives. (NULL)omething for  stop(NULL)
  48. 480 print"  [221][153] everyone. [198]rom the novice to   [144][221]
  49. 490 [153]"  (NULL)print the more experienced user.     stop(NULL)
  50. 500 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
  51. 510 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. 520 [153]"   (NULL)print1 yr.(12 issues)-$24.00-(NULL)ave $11stop(NULL)
  53. 530 print"   [221][153]2 yr.(24 issues)-$45.00-[211]ave $25[144][221]
  54. 540 [153]"   (NULL)print3 yr.(36 issues)-$65.00-(NULL)ave $41stop(NULL)
  55. 550 print"   [221][153][194]ack [201]ssues $6.00               [144][221]
  56. 560 [153]"   /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp":[141]720
  57. 570 [153]"  ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  58. 580 print"  [221][153][211][213][194][211][195][210][201][194][197] [206][207][215] [212][207] [195][207][205][208][213][212][197]!'[211]     [144][221]
  59. 590 [153]"  (NULL)printchr$atn(NULL)val(NULL)(NULL)val atn(NULL)str$ (NULL)(NULL)atn(NULL)(NULL) (NULL)vallenvalright$(NULL)right$(NULL)chr$     stop(NULL)
  60. 600 print"  [221][153][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]! [144][221]
  61. 610 [153]"  (NULL)print(NULL)o order your subscription      stop(NULL)
  62. 620 print"  [221][153]call [212][207][204][204]-[198][210][197][197]                  [144][221]
  63. 630 [153]"  (NULL)1-800-247-5470print (in right$owa         stop(NULL)
  64. 640 print"  [221][153]call 1-800-532-1272[153].)           [144][221]
  65. 650 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";:[141]740:[141]740
  66. 670 [153]"load"
  67. 680 s$[178]"l(NULL)"[170][199](34)[170]"mn"[170][199](34)[170]",8:"[170][199](131)
  68. 690 [129]i[178]1[164][195](s$):[151]630[170]i,[198]([202](s$,i)):[130]:[151]198,i
  69. 700 [151]53281,15:[151]53280,15
  70. 710 [153][199](142)"on          reloading the menulist":[128]
  71. 720 [129]w[178]1[164]2000:[161]a$:[139]a$[178]""[167][130]w
  72. 730 [141]910:[142]
  73. 740 [129]w[178]1[164]2000:[161]a$:[139]a$[178]""[167][130]w
  74. 750 [142]
  75. 760 [153]"   right$f you don't already subscribe to"
  76. 770 [153]"sys**rndwaitrnd**rndwaitrndgetlogwait* get*rndwaitrndgetwaitgetgetwaitgetlogrnd*waitcosget";
  77. 780 [153]"*newwaitcos getwaitget   coswaitcos**rndwaitrndgetwaitget  getwaitgetgetwaitgetget*";
  78. 790 [153]"* getlogcoswaitcosgetwaitgetgetwaitget getwaitget getlogwaitrnd  getwaitget  logcos";
  79. 800 [153]" loglogwaitnew getwaitget*rndgetwaitgetgetwaitgetgetwaitget  getwaitget  getwaitgetgetwaitget";
  80. 810 [153]" getwaitget getwaitget          *rndgetwaitget newnewwait  ";
  81. 820 [153]"newnewwait logcos newwaitlogcos   newnewwait  logcos lognewnewwaitcos log";
  82. 830 [153]"cos      newnewwait      **rndwaitrnd coslogwait lognewrnd";
  83. 840 [153]"waitgetget*newwaitcoslogrnd*waitcoslogrnd*waitcosget*newwaitcos        ";
  84. 850 [153]"    getwaitgetnewrndgetlogcoswaitget **wait getlogwaitrnd  getwaitget  ";
  85. 860 [153]"getwaitget getlogwaitrnd             getwaitgetgetwaitgetgetwaitget";
  86. 870 [153]"getwaitget**wait  getwaitget   getwaitget  getwaitget getwaitget     ";
  87. 880 [153]"          newnewwait logcoslogcoslognewnewwaitcoslognewnewwaitcos";
  88. 890 [153]" logcos  logcos lognewnewwaitcos"
  89. 900 [142]
  90. 910 [153]"":[129]i[178]1[164]10:[153] mt$:[130]:[153]mt$"":[142]
  91.