home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / ad.warp+ (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  202 lines
  1. 10 rem soft-ad for warp+
  2. 15 bs$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  3. 20 goto50
  4. 30 printleft$("",v)spc(h-1):return
  5. 40 printleft$(bs$,pos(0));spc(h-1):return
  6. 50 poke53280,2:poke53281,1:print"[144]"
  7. 60 forl=54272to54296:pokel,0:next
  8. 70 poke54296,5:poke54277,88:poke54275,15:poke54274,15:poke54278,89
  9. 200 rem start
  10. 210 print"[147]"
  11. 215 print" [215][160][193][160][210][160][208][160]- [208][160][204][160][213][160][211] -- [194]y [196]aniel [212]obias"
  12. 217 print" --------------------------------------":print
  13. 220 print"[196]oes the high"
  14. 230 print
  15. 260 print"price of software"
  16. 265 print
  17. 270 print"drive you"
  18. 275 print""
  19. 277 fora=1to500:next
  20. 280 hp=18:i$="[195]":gosub5000
  21. 290 hp=19:i$="[210]":gosub5000
  22. 300 hp=20:i$="[193]":gosub5000
  23. 310 hp=21:i$="[218]":gosub5000
  24. 320 hp=22:i$="[217]":gosub5000
  25. 330 hp=23:i$="?":gosub5000
  26. 340 hp=24:gosub5000
  27. 345 print"[149]"
  28. 350 print:print"[211]alesman: '...[193]nd, in addition to being"
  29. 360 print"a spreadsheet, word processor, data base";
  30. 362 print"and [208]ac-[205]an game, it also sharpens"
  31. 364 print"pencils and walks the dog.'"
  32. 365 print
  33. 370 print"[195]ustomer: '[217]eah, but how much does it":print"cost?'"
  34. 380 print:print"[211]alesman: '[207]h, it's very reasonable."
  35. 385 print"[207]nly $14,728.95.'[144]"
  36. 390 gosub6000
  37. 400 print"[193]nd don't you really hate[144] locked-up,"
  38. 410 print:print"copy-protected software?"
  39. 420 print:print
  40. 430 print"[149][211]ee what features you are getting in"
  41. 435 print" the new edition of [214]isi[209]uack, at only"
  42. 440 print" twice the price of the old one?  [212]he"
  43. 445 print" new state-of-the-art copy protection"
  44. 450 print" scheme will destroy its disk, and half"
  45. 455 print" the chips in your computer, if you say"
  46. 460 print" the word 'copy' within earshot!"
  47. 465 print:print" [201]t also won't run unless you have our"
  48. 470 print" new patented $400 [218]ilchcard, which has"
  49. 475 print" absolutely no function except to allow"
  50. 480 print" you to run our copy-protected programs![144]"
  51. 500 gosub6000
  52. 510 print"[215]ell, how much would you expect to pay"
  53. 520 print:print"for a double-sided[144] disk containing"
  54. 525 print
  55. 530 print"[193]dventure [199]ames"
  56. 540 print"  [193]rcade [199]ames"
  57. 550 print"    [213]tilities"
  58. 560 print"      [193]nd much more!"
  59. 565 print:print"[193]ll completely listable, modifyable,"
  60. 570 print:print"and copyable.  [206]o copy protection![144]"
  61. 575 print:print"[212]hat's what you get in [215]arp-[208]lus[144]!"
  62. 580 gosub6000
  63. 590 printtab(13)"[215]hat you get:"
  64. 600 print:print"[212]he title program (and worth the price"
  65. 610 print:print"of the disk alone):"
  66. 620 print:print"                [215][160][193][160][210][160][208]"
  67. 630 print:print"[193]n adventure game.  [197]xplore the many"
  68. 640 print:print"worlds of space and time to escape the"
  69. 650 print:print"clutches of an evil scientist!"
  70. 660 print:print"[207]ver 70 different locations, in several"
  71. 670 print:print"modules.  [211]urprises abound!"
  72. 680 gosub6000
  73. 805 print"[212]wo more adventure games on [215]arp-[208]lus:":print
  74. 810 print"   *****  [208]lanet of the [210]obots  *****"
  75. 820 print:print"[198]ight the berserk robots to find your"
  76. 830 print:print"way out of a nightmarish future."
  77. 840 print
  78. 850 print"   *****        [211]murk           *****"
  79. 860 print:print"[203]ill the evil monster before he kills"
  80. 870 print:print"you.  [212]here is fabulous treasure in his"
  81. 880 print:print"cave, if you can live to take it out!"
  82. 890 gosub6000
  83. 1150 print"[211]ome more programs on this disk:"
  84. 1160 print:print"[205]usician:"
  85. 1170 print:print"   [208]lay music on your [195]64's keyboard,"
  86. 1180 print:print"and save the songs to be played back"
  87. 1190 print:print"later."
  88. 1195 gosub6000
  89. 1200 print"[198]ireflies:"
  90. 1210 print:print"   [193]n arcade game.  [195]atch all the"
  91. 1220 print:print"fireflies before time runs out, but"
  92. 1230 print:print"watch out for the deadly killer firefly!"
  93. 1240 print"[212]he top 10 scores are saved to disk,"
  94. 1250 print:print"along with the names of the players"
  95. 1260 print:print"who got the scores."
  96. 1270 gosub6000
  97. 1280 print"[208]oker [211]olitaire:"
  98. 1290 print"   [212]ry for a high score in this game"
  99. 1300 print"by forming interlocking poker hands in"
  100. 1310 print"a 5-by-5 grid."
  101. 1320 print"[211]topwatch:"
  102. 1330 print"   [204]ets you keep time on your [195]-64."
  103. 1340 print"[195]ounts upward or downward, and can"
  104. 1350 print"display lap times."
  105. 1360 gosub6000
  106. 1420 print"[195]ryptogram [215]riter:"
  107. 1430 print:print"   [195]reates cryptograms for your friends"
  108. 1440 print:print"to solve.  [217]ou type the message, and"
  109. 1450 print:print"the computer encodes it."
  110. 1455 gosub6000
  111. 1460 print"[195]ryptogram [211]olving [193]id:"
  112. 1470 print"   [200]elps you solve cryptograms."
  113. 1480 print"([201]ncluding ones created using [195]ryptogram"
  114. 1490 print"[215]riter.)"
  115. 1500 print"[217]ou can replace any letter with any"
  116. 1510 print"other, or do a letter frequency count."
  117. 1520 print"[201]f you are stumped, you can save the"
  118. 1530 print"partially-solved cryptogram to disk"
  119. 1540 print"to resume later."
  120. 1550 gosub6000
  121. 1680 print"[202]umbler/[213]njumbler:"
  122. 1690 print:print"[196]oes the same for anagrams as the"
  123. 1700 print"[195]ryptogram programs mentioned above do"
  124. 1710 print"for cryptograms."
  125. 1720 print"[195]alc-[205]an:"
  126. 1730 print"[212]he latest in integrated software: an"
  127. 1740 print"arcade game in spreadsheet format."
  128. 1750 print"[208]lay games in your office without your"
  129. 1760 print"boss knowing it!"
  130. 1770 gosub6000
  131. 1910 print"[212]riple [217]ahtzee:"
  132. 1920 print"[193] new computerized version of the"
  133. 1930 print"classic dice game.  [201]ncludes a '[211]ave"
  134. 1940 print"[199]ame' feature, and a '[200]elp' feature"
  135. 1950 print"that lets you see descriptions of the"
  136. 1960 print"different scoring rows during your turn."
  137. 1970 gosub6000
  138. 1984 rem this year
  139. 1990 print"[208]rogram [195]ompare:"
  140. 2000 print"[195]ompares two different versions of a"
  141. 2010 print"program to see what was changed."
  142. 2020 print"[211]ecret [211]tuff:"
  143. 2030 print"[204]ets you keep a diary on your computer"
  144. 2040 print"that nobody but you can read!"
  145. 2050 print"[207]r, send messages to your friends; if"
  146. 2060 print"you give them the secret keyword, they"
  147. 2070 print"can read them, but nobody else can."
  148. 2080 gosub6000
  149. 2090 print"[193]nd that's not all.  [212]here are several"
  150. 2100 print"other programs on this disk, but they"
  151. 2110 print"are not described here, to keep you in"
  152. 2120 print"suspense!  ([200]ee [200]ee [200]ee)"
  153. 2130 gosub6000
  154. 2140 print"[215]ell, given the absolutely insane[144]"
  155. 2150 print"cost of software these days, how much"
  156. 2160 print"do you think this disk of programs"
  157. 2170 print"costs?"
  158. 2180 print"   [215]ell, it's not:  $99.00";
  159. 2185 poke54273,1:poke54272,0:poke54276,65
  160. 2190 fora=98to20step-1
  161. 2200 forb=1to5:next
  162. 2210 print"[157][157][157][157][157]"mid$(str$(a),2)".00";
  163. 2220 ifa/10=int(a/10)thenpoke54276,64:forb=1to1000:next:poke54276,65
  164. 2230 next:poke54276,64
  165. 2340 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]      [201]t's only:  $16.95!"
  166. 2350 gosub6000
  167. 2360 print"[212]o order, send $16.95 to..."
  168. 2370 print"                [204][207][193][196][211][212][193][210]"
  169. 2380 printtab(14)"[208][207][160][194]ox 30007"
  170. 2390 printtab(8)"[211]hreveport, [204][193] 71130-0007"
  171. 2400 print:print"[194]e sure to ask for [215][193][210][208]-[208][204][213][211]!"
  172. 2410 print:print"[193]ll programs on [215][193][210][208]-[208][204][213][211] are copyright"
  173. 2420 print"([195])[160]1984 by [196]aniel [212]obias."
  174. 2425 poke198,0
  175. 2430 print:print"[196]one.  [200]it any key to return to menu. "
  176. 2440 geti$:ifi$=""then2440
  177. 2450 goto63000
  178. 2460 :
  179. 5000 rem move letter across screen
  180. 5005 poke54273,2:poke54272,100:poke54276,65
  181. 5010 fori=38tohpstep-1:h=i:gosub40
  182. 5020 printi$;
  183. 5030 fora=1to10:next
  184. 5040 print"[157] [157][157]";:next
  185. 5045 poke54276,64
  186. 5060 h=i:gosub40:printi$;
  187. 5070 return
  188. 6000 rem hit key to continue
  189. 6005 print
  190. 600