home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 August / 1993-08.d64 / overdrive (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  15.9 KB  |  546 lines
  1. 0 clr
  2. 2 print"[147]":poke53280,5:poke53281,0
  3. 3 print"greetings to:"
  4. 4 print"[159]qhawk, sysop fm, thomast2, bonnie,"
  5. 5 print"djsenterp, dicka2, kel, exploited3,"
  6. 6 print"cnet rep, qguide sas, iant, the rad"
  7. 7 print"heavy metal bands, and all the other"
  8. 8 print"cool qlinkers i forgot to mention.":print"hit any key"
  9. 9 poke53280,5:poke53280,6:poke53280,4:geta$:ifa$=""then9
  10. 10 poke53280,0:poke53281,0:dimi$(13,13)
  11. 15 fori=54272to54296:pokei,0:next
  12. 20 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  13. 30 print"[180]"spc(38)"[170]";
  14. 40 print"[180][146]   m a x i m u m  o v e r d r i v e   [170]";
  15. 50 print"[180]"spc(38)"[170]";
  16. 60 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  17. 70 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  18. 80 fori=1to11:print"[180]"spc(38)"[170]";:next
  19. 90 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  20. 92 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  21. 94 print"[180]"spc(38)"[170]";
  22. 95 print"[180][146]  by digidan              select a-r[146]  [170]";
  23. 96 print"[180]"spc(38)"[170]";
  24. 98 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  25. 100 print"[145][145][145][146]"
  26. 110 print"[154][176][192][174]"
  27. 120 print"[145][221]a[221]":print"[221]b[221]":print"[145][221]c[221]":print"[221]d[221]":print"[145][221]e[221]"
  28. 130 print"[221]f[221]";:print"[157][157][157][221]g[221]":print"[221]h[221]":print"[145][221]i[221]":print"[173][192][189]"
  29. 140 print"[145][145][145][145][145][145][145][145][145][145][145][159]insulting":print"destruction"
  30. 150 print"[145]unresponsive":print"wake up":print"[145]128 look-alike"
  31. 160 print"intruder alert":print"[145]flattering"
  32. 170 print"twilight zone":print"[145]byte thief"
  33. 180 print"[145][145][145][145][145][145][145][145][145][145]"tab(21)"[154][176][192][174]"
  34. 190 printtab(21)"[145][221]j[221]":printtab(21)"[221]k[221]":printtab(21)"[145][221]l[221]"
  35. 200 printtab(21)"[221]m[221]":printtab(21)"[145][221]n[221]":printtab(21)"[221]o[221]"
  36. 210 printtab(21)"[145][221]p[221]":printtab(21)"[221]q[221]":printtab(21)"[145][221]r[221]"
  37. 220 printtab(21)"[173][192][189]"
  38. 230 printtab(25)"[145][145][145][145][145][145][145][145][145][145][145][159]malfunction"
  39. 240 printtab(25)"messenger":printtab(25)"[145]self control"
  40. 250 printtab(25)"norad":printtab(25)"[145]frustrating":printtab(25)"screen quake"
  41. 260 printtab(25)"[145][158]disable stop"
  42. 270 printtab(25)"instructions"
  43. 280 printtab(25)"[145]quit":c=1
  44. 290 geta$:gosub7000:ifa$=""then290
  45. 300 ifa$="q"then500
  46. 302 ifa$="r"thenpoke53280,14:poke53281,6:print"[147][154]";:end
  47. 304 ifa$="a"then900
  48. 305 ifa$="b"then1600
  49. 306 ifa$="c"then1950
  50. 307 ifa$="d"then2150
  51. 308 ifa$="e"then2400
  52. 309 ifa$="f"then2540
  53. 310 ifa$="g"then2750
  54. 311 ifa$="h"then3000
  55. 312 ifa$="i"then3250
  56. 313 ifa$="j"then4000
  57. 314 ifa$="k"then4350
  58. 315 ifa$="l"then4500
  59. 316 ifa$="m"then4800
  60. 317 ifa$="n"then5200
  61. 318 ifa$="o"then5400
  62. 319 ifa$="p"then6000
  63. 499 goto290
  64. 500 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  65. 510 fori=1to16:print"[180]"spc(38)"[170]";
  66. 520 next:print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  67. 530 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  68. 535 print"[180]"spc(38)"[170]";
  69. 540 print"[180][146]  instructions           hit any key[146]  [170]";
  70. 545 print"[180]"spc(38)"[170]";
  71. 550 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  72. 560 print"[146][154]this program is designed for having"
  73. 570 print"[145]some totally rad fun.  there are 15"
  74. 580 print"different faking modes.  each of"
  75. 590 print"[145]these begin by simulating the basic"
  76. 600 print"environment.  after that, something"
  77. 610 print"[145]strange will happen.. depending on"
  78. 620 print"which mode you selected."
  79. 630 print"it is suggested that you select a"
  80. 640 print"[145]faking mode, leave the computer on,"
  81. 650 print"and wait until someone tries to use"
  82. 660 print"[145]it.  that's where the fun part"
  83. 670 print"comes in.  for the first time you"
  84. 680 print"[145]can watch your friend jump 40 feet."
  85. 685 goto720
  86. 690 geta$:ifa$=""then690
  87. 700 print"":fori=1to7:print"                                    ":next
  88. 705 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  89. 706 fori=1to7:print"                                    [145]":next
  90. 710 return
  91. 720 gosub690
  92. 730 print"after you select a faking mode,"
  93. 740 print"[145]it will describe what it does and"
  94. 750 print"allow you to either use it or"
  95. 760 print"[145]return to the main menu."
  96. 770 print"this program was written by dan"
  97. 780 print"komaromi of [158]digital wizard co.[154]"
  98. 790 print"[145]special thanks to 'qhawk' of the"
  99. 800 print"clark county commodore computer"
  100. 810 print"[145]club for having the best user group"
  101. 820 print"in the world.. and to 'sysop fm'"
  102. 830 print"[145]from quantum link for doing such"
  103. 840 print"a totally radical job with the"
  104. 850 print"[145]software libraries."
  105. 851 gosub690:print"if you like this program, or have"
  106. 852 print"[145]any comments or suggestions, please"
  107. 853 print"send a postcard to:"
  108. 854 print"dan komaromi":print"[145]251 altura dr.":print"fullerton, ca"
  109. 855 print"[145]92635"
  110. 856 print"remember that this program is in"
  111. 857 print"the public domain.  i encourage"
  112. 858 print"[145]you to spread this around to all"
  113. 859 print"of your friends free of chagre."
  114. 860 print"[145]later, dude!"
  115. 861 geta$:ifa$=""then861
  116. 870 run10
  117. 900 goto937
  118. 902 print"[147][153][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  119. 904 fori=1to16:print"[180]"spc(38)"[170]";:next
  120. 906 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  121. 908 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  122. 910 fori=1to3:print"[180]"spc(38)"[170]";:next
  123. 920 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  124. 930 print"[145][145][145][146]u=use[146]                       m=menu"
  125. 932 return
  126. 937 gosub902:printtab(11)"[145][145]c=change insults"
  127. 940 print"[154]this will cause your computer to"
  128. 950 print"[145]insult the user whenever a command"
  129. 960 print"is typed."
  130. 962 print"effective commands:[159] load, save,"
  131. 964 print"[145]print, poke, peek, list, run, new,"
  132. 966 print"restore, and clr."
  133. 980 print"[158]press 'c' to modify the insults,"
  134. 990 print"[145]or 'u' to use the built-in ones."
  135. 992 print"type [150]finish to end."
  136. 1000 geta$:ifa$=""then1000
  137. 1010 ifa$="m"thenrun10
  138. 1020 ifa$="c"then1050
  139. 1030 ifa$="u"thenskp=5:goto1120
  140. 1040 goto1000
  141. 1050 print"[147]":print"[156][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  142. 1060 print"[180]"spc(38)"[170]";
  143. 1070 print"[180][146]           change insults             [156][170]";
  144. 1080 print"[180]"spc(38)"[170]";
  145. 1090 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  146. 1100 print"[146][f1] [155]forward  [f2] [155]reverse"
  147. 1110 print"[f5] [155]change   [f7] [155]done"
  148. 1120 fori=1to13:reada$:readb$:i$(i,0)=a$:i$(i,1)=b$:next:tn=1:ifskp=5then1380
  149. 1130 data "load","load it yourself!"
  150. 1140 data "save","why don't you do it instead?"
  151. 1150 data "print","isn't paper good enough for you?"
  152. 1160 data "list","the list is in your pocket you fool"
  153. 1170 data "run","you run, weakling!"
  154. 1180 data "poke","go poke someone your own size"
  155. 1190 data "peek","got a staring problem?"
  156. 1200 data "new","think you can erase me, huh?"
  157. 1210 data "clr","can't you spell out the whole thing?"
  158. 1220 data "restore","it's your brain that needs restoring"
  159. 1230 data "no","yes!!"
  160. 1240 data "yes","no!!"
  161. 1250 data "fu","didn't you have enough last night?"
  162. 1260 print"[158]#"tn"[157] "
  163. 1270 print"[155]"i$(tn,0);:fori=1to38-len(i$(tn,0)):print" ";:next
  164. 1280 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  165. 1290 print"[155]"i$(tn,1);:fori=1to38-len(i$(tn,1)):print" ";:next
  166. 1300 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  167. 1310 getx$:ifx$="[133]"thentn=tn+1:poke54296,15:poke54296,0:iftn>10thentn=10
  168. 1320 ifx$="[134]"thentn=tn-1:poke54296,15:poke54296,0:iftn<1thentn=1
  169. 1330 ifx$="[135]"then1360
  170. 1340 ifx$="[136]"then1380
  171. 1350 goto1260
  172. 1360 poke19,54:print"";:fori=1to80:print" ";:next
  173. 1370 print"";:inputn$:i$(tn,1)=n$:goto1260
  174. 1380 goto1399
  175. 1381 poke53280,14:poke53281,6:print"[147][154]**** commodore 64 basic v2 ****"
  176. 1390 print" 64k ram system  38911 basic bytes free":skp=0:return
  177. 1399 gosub1381
  178. 1400 print"ready."
  179. 1410 poke19,54:inputa$:ifa$=""thenprint
  180. 1420 ifleft$(a$,4)="load"thenprint:print:printi$(1,1):goto1400
  181. 1430 ifleft$(a$,4)="save"thenprint:print:printi$(2,1):goto1400
  182. 1440 ifleft$(a$,5)="print"thenprint:print:printi$(3,1):goto1400
  183. 1450 ifleft$(a$,4)="list"thenprint:print:printi$(4,1):goto1400
  184. 1460 ifleft$(a$,3)="run"thenprint:print:printi$(5,1):goto1400
  185. 1470 ifleft$(a$,4)="poke"thenprint:print:printi$(6,1):goto1400
  186. 1480 ifleft$(a$,4)="peek"thenprint:print:printi$(7,1):goto1400
  187. 1490 ifleft$(a$,3)="new"thenprint:print:printi$(8,1):goto1400
  188. 1500 ifleft$(a$,3)="clr"thenprint:print:printi$(9,1):goto1400
  189. 1510 ifleft$(a$,7)="restore"thenprint:print:printi$(10,1):goto1400
  190. 1520 ifleft$(a$,2)="no"thenprint:print:printi$(11,1):goto1400
  191. 1530 ifleft$(a$,3)="yes"thenprint:print:printi$(12,1):goto1400
  192. 1540 ifleft$(a$,2)="fu"thenprint:print:printi$(13,1):goto1400
  193. 1550 ifval(left$(a$,2))>0thenprint:goto1410
  194. 1555 ifa$="finish"thenprint:print:print"[147][147]":poke19,0:run10
  195. 1560 ifa$<>""thenprint:print:print"?syntax  error":goto1400
  196. 1580 goto1410
  197. 1600 gosub902
  198. 1610 print"[150]self destruction..."
  199. 1620 print"have you ever seen a computer"
  200. 1630 print"[145]demolish itself?  well, you're"
  201. 1640 print"unsuspecting friend will."
  202. 1660 print"[158]this will make it seem like your"
  203. 1670 print"[145]commodore is suicidal."
  204. 1675 print"[156]turn up yer volume!"
  205. 1680 geta$:ifa$=""then1680
  206. 1690 ifa$="m"thenrun10
  207. 1695 ifa$="u"then1700
  208. 1697 goto1680
  209. 1700 gosub1381
  210. 1710 print"ready."
  211. 1720 poke19,54:inputa$
  212. 1730 print:print"?super syntax error"
  213. 1740 ford=1to200:poke54296,15:poke54296,0:next
  214. 1750 print"[147]":poke53280,0:poke53281,0
  215. 1760 print"self destruction  00 % complete"
  216. 1770 fori=1to99:print"[154]"i
  217. 1780 print""tab(16)"[158]danger[146]";
  218. 1785 print""tab(16)"danger[146]";
  219. 1790 ford=1to5:poke54296,15:poke54296,0:next:next
  220. 1800 print"[147]"
  221. 1801 forr=54272to54296:poker,0:next
  222. 1802 poke54296,15:poke54277,0
  223. 1803 poke54278,240:poke54275,8
  224. 1804 poke54276,65:poke54272,237
  225. 1805 poke54273,50
  226. 1810 poke53296,15:fori=1to250
  227. 1820 poke53280,11:poke53280,12
  228. 1830 poke53280,6:poke53280,4
  229. 1840 poke53280,14:poke53280,0
  230. 1850 poke53280,6:poke53280,0
  231. 1860 next:poke53296,0
  232. 1870 poke53281,1:poke53280,1:ford=1to100:next
  233. 1880 poke53281,15:poke53280,15:ford=1to100:next:gosub1930
  234. 1890 poke53281,12:poke53280,12:ford=1to100:next:gosub1930
  235. 1900 poke53281,11:poke53280,11:ford=1to100:next:gosub1930
  236. 1910 poke53281,0:poke53280,0:ford=1to100:next:gosub1930
  237. 1920 print"[147][144]":poke54296,0:end
  238. 1930 poke54273,peek(54272)/2:ford=1to10:next:return
  239. 1950 gosub902
  240. 1960 print"this is guaranteed to fool even"
  241. 1970 print"[145]the most intelligent of all nerds."
  242. 1980 print"[158]they will think they're commodore"
  243. 1990 print"is broken.  have plenty of tissue"
  244. 2000 print"[145]paper ready."
  245. 2010 print"[156]this just makes your computer"
  246. 2020 print"ignore everything you type.  it"
  247. 2030 print"[145]is simple but effective."
  248. 2040 geta$:ifa$=""then2040
  249. 2050 ifa$="m"thenrun10
  250. 2060 ifa$="u"then2080
  251. 2070 goto2040
  252. 2080 gosub1381:print"ready."
  253. 2100 poke19,54:inputa$
  254. 2110 print:goto2100
  255. 2150 gosub902
  256. 2160 print"for the first time, your c64"
  257. 2170 print"[145](or c128) is getting sleepy. see"
  258. 2180 print"what happens when the unsuspecting"
  259. 2190 print"[145]user tries to wake it up."
  260. 2200 print"[153]zzzzzzzzzzzzzzzzz"
  261. 2210 geta$:ifa$=""then2210
  262. 2220 ifa$="m"thenrun10
  263. 2230 ifa$="u"then2250
  264. 2240 goto2210
  265. 2250 gosub1381
  266. 2260 print"ready."
  267. 2270 poke19,54:inputa$
  268. 2280 print:print"don't wake me up.  i'm sleeping."
  269. 2290 print"ready."
  270. 2300 poke19,54:inputa$
  271. 2310 print:print"i said to leave me alone!"
  272. 2320 print"ready."
  273. 2330 poke19,54:inputa$
  274. 2340 print:print"goodnight, i'm turning the lights off!"
  275. 2350 ford=1to3000:next
  276. 2360 poke53280,15:poke53281,15
  277. 2370 ford=1to100:next:poke53280,12:poke53281,12:ford=1to100:next
  278. 2380 poke53280,11:poke53281,11:ford=1to100:next:poke53280,0:poke53281,0
  279. 2390 print"[144][147]":end
  280. 2400 gosub902
  281. 2410 print"[150]this will make your c64 screen"
  282. 2420 print"[145]look exactly like a c128 screen,"
  283. 2430 print"but actually be in c64 mode."
  284. 2432 print"[156]after the 'startup' message is"
  285. 2433 print"[145]displayed, this program will end"
  286. 2434 print"so be careful what kind of disk"
  287. 2435 print"[145]commands you use."
  288. 2440 geta$:ifa$=""then2440
  289. 2450 ifa$="m"thenrun10
  290. 2460 ifa$="u"then2480
  291. 2470 goto2440
  292. 2480 print"[147]":poke53280,13:poke53281,11
  293. 2490 print"[153] commodore basic v7.0 122365 bytes free"
  294. 2500 print"   (c)1985 commodore electronics, ltd."
  295. 2510 print"        (c)1977 microsoft corp."
  296. 2520 print"          all rights reserved"
  297. 2530 end
  298. 2540 gosub902
  299. 2550 print"with 'intruder alert', you can"
  300. 2560 print"[145]make sure everyone keeps far"
  301. 2570 print"away from your computer."
  302. 2580 print"[158]you can make up some wild story"
  303. 2590 print"[145]explaining your new security"
  304. 2600 print"system."
  305. 2602 print"[159]turn the volume way up!"
  306. 2610 geta$:ifa$=""then2610
  307. 2620 ifa$="m"thenrun10
  308. 2630 ifa$="u"then2650
  309. 2640 goto2610
  310. 2650 gosub1381
  311. 2660 print"ready."
  312. 2670 poke19,54:inputa$:fori=54272to54296:pokei,0:next:poke54272,12
  313. 2671 print"[147]"tab(12)"intruder alert!!"
  314. 2672 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,65
  315. 2674 poke54273,1
  316. 2680 poke53280,0:poke53281,0
  317. 2690 fori=1to100:poke54273,i:next
  318. 2700 poke53280,2:poke53281,2
  319. 2710 fori=100to1step-1:poke54273,i:next
  320. 2720 goto2680
  321. 2750 gosub902
  322. 2760 print"[159]there is nothing worse than a"
  323. 2770 print"[145]computer trying to flirt with you."
  324. 2780 print"[150]try this one on your friends and"
  325. 2790 print"they will be in for a big surprise!"
  326. 2800 geta$:ifa$=""then2800
  327. 2810 ifa$="m"thenrun10
  328. 2820 ifa$="u"then2840
  329. 2830 goto2800
  330. 2840 gosub1381
  331. 2850 print"ready."
  332. 2860 poke19,54:inputa$
  333. 2870 print:print"my, what beutiful fingers you have!":print"ready."
  334. 2880 poke19,54:inputa$
  335. 2890 print:print"i love the way you stroke my keys!":print"ready."
  336. 2900 poke19,54:inputa$
  337. 2910 print:print"touch me like that again please":print"ready."
  338. 2920 poke19,54:inputa$
  339. 2930 print:print"yes, i love you too":print"ready."
  340. 2940 poke19,54:inputa$
  341. 2950 print:print"bye dear, talk to you later, eh?"
  342. 2960 poke19,0:end
  343. 3000 gosub902
  344. 3010 print"[156]you are about to enter a"
  345. 3020 print"[145]different dimension - not only"
  346. 3030 print"of sight and sound but of mischief."
  347. 3040 print"[158]doo de do da..."
  348. 3050 geta$:ifa$=""then3050
  349. 3060 ifa$="m"thenrun10
  350. 3070 ifa$="u"then3090
  351. 3080 goto3050
  352. 3090 gosub1381
  353. 3100 print"ready."
  354. 3102 forr=54272to54296:poker,0:next
  355. 3103 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,65
  356. 3104 poke54272,12
  357. 3110 poke19,54:inputa$
  358. 3120 fori=1to25:print:next
  359. 3130 print"[147]":poke53280,0:poke53281,0
  360. 3140 a$="you have just entered the twilight zone!"
  361. 3150 print""
  362. 3160 fori=1tolen(a$):printmid$(a$,i,1);:ford=1to100:next:poke54273,255
  363. 3170 poke54273,200:next
  364. 3180 fori=255to0step-1:poke54273,i:next
  365. 3200 poke54273,50:fori=1to50:poke53280,0:poke53280,5:next
  366. 3210 poke54273,60:fori=1to50:poke53280,0:poke53280,6:next
  367. 3220 poke54273,70:fori=1to50:poke53280,0:poke53280,2:next:poke53280,0
  368. 3230 forxx=54272to54295:pokexx,0:next:poke54296,15:poke54277,8:poke54278,255
  369. 3231 poke54276,23:yy=4:forzz=1to3:poke54287,yy:forxx=1to150:poke54273,xx
  370. 3232 poke53280,6:poke53280,5:yy=yy+.01:next:next:poke54278,15
  371. 3233 goto3230
  372. 3250 gosub902
  373. 3260 print"[154]are you getting sick of always"
  374. 3270 print"[145]seeing 38911 bytes free?"
  375. 3280 print"[158]this will get rid of 'em."
  376. 3290 geta$:ifa$=""then3290
  377. 3300 ifa$="m"thenrun10
  378. 3310 ifa$="u"then3330
  379. 3320 goto3290
  380. 3330 gosub1381:print"ready."
  381. 3340 poke19,54:inputa$
  382. 3345 print:print"ouch!!  don't hit my keyboard so hard!!"
  383. 3350 print:print"i'm going to punish you by taking"
  384. 3360 print"away your available ram memory."
  385. 3370 fori=38911to0step-1
  386. 3380 print""i
  387. 3390 next
  388. 4000 gosub902
  389. 4010 print"scare 'em into thinking they"
  390. 4020 print"[145]destroyed your computer."
  391. 4030 print"[159]prepare to recieve kindness and/or"
  392. 4040 print"loans from your victims."
  393. 4050 geta$:ifa$=""then4050
  394. 4060 ifa$="m"thenrun10
  395. 4070 ifa$="u"then4090
  396. 4080 goto4050
  397. 4090 gosub1381
  398. 4100 print"ready."
  399. 4110 poke19,54:inputa$
  400. 4120 poke53280,0:poke53281,0
  401. 4130 print"[147][150]computer malfunction"
  402. 4140 forr=54272to54296:poker,0:next
  403. 4150 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,65
  404. 4160 poke54272,12
  405. 4170 poke54273,10
  406. 4180 fori=1to50
  407. 4190 printspc(i);"[157] [158][192]";:poke54273,15:poke54273,25
  408. 4200 next:poke54273,20:poke53280,1
  409. 4300 ford=1to100:next:print"[150]computer malfunction":poke53280,0:goto4180
  410. 4350 gosub902
  411. 4360 print"[154]with this, you can enter your"
  412. 4370 print"[145]own personal message to be seen"
  413. 4380 print"after the user hits return."
  414. 4390 print"[158]it will allow up to 10 lines."
  415. 4400 geta$:ifa$=""then4400
  416. 4410 ifa$="m"thenrun10
  417. 4420 ifa$="u"then4431
  418. 4430 goto4400
  419. 4431 print"[147][159]you have up to 10 lines of text for"
  420. 4432 print"your message.  hit return to skip"
  421. 4433 print"remaining lines.  start entering:"
  422. 4434 poke19,54:fori=0to10:inputm$(i):print:next
  423. 4435 print"[154]hit any key to start"
  424. 4436 geta$:ifa$=""then4436
  425. 4440 gosub1381
  426. 4450 print"ready."
  427. 4460 poke19,54:inputa$
  428. 4470 print:print:fori=0to10:printm$(i):next
  429. 4474 poke19,0
  430. 4475 end
  431. 4500 gosub902
  432. 4510 print"[156]this will freak 'em out by"
  433. 4520 print"[145]allowing your commodore control"
  434. 4530 print"itself."
  435. 4540 print"[158]it will seem like it's writing"
  436. 4550 print"[145]and executing a small program."
  437. 4560 geta$:ifa$=""then4560
  438. 4570 ifa$="m"thenrun10
  439. 4580 ifa$="u"then4600
  440. 4590 goto4560
  441. 4600 gosub1381
  442. 4610 print"ready."
  443. 4620 poke19,54:inputa$
  444. 4630 print:a$="let me take over now."
  445. 4635 goto4650
  446. 4640 fori=1tolen(a$):printmid$(a$,i,1);:ford=1to200
  447. 4642 next:next:print:return
  448. 4650 gosub4640:ford=1to300:next
  449. 4660 print:a$="10 print"+chr$(34)+"hello"+chr$(34)
  450. 4670 gosub4640
  451. 4680 a$="20 goto 10"
  452. 4690 gosub4640
  453. 4691 print:a$="run":gosub4640
  454. 4700 print:ford=1to750:next
  455. 4710 print"hello"
  456. 4720 goto4710
  457. 4800 gosub902
  458. 4810 print"[158]scare 'em into thinking they"
  459. 4820 print"[145]broke into the defense department"
  460. 4830 print"with your modem."
  461. 4840 print"[154]if you don't have a modem, they'll"
  462. 4850 print"[145]think you have one."
  463. 4860 geta$:ifa$=""then4860
  464. 4870 ifa$="m"thenrun10
  465. 4880 ifa$="u"then4900
  466. 4890 goto4860
  467. 4900 gosub1381
  468. 4920 forr=54272to54296:poker,0:next
  469. 4930 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,65
  470. 4960 print"ready.":poke19,54:inputa$
  471. 4970 print:print"dialing norad defense systems...":poke54272,12
  472. 4980 fori=1to4:forj=1to25
  473. 4990 poke54273,50:poke54273,60
  474. 5000 ford=1to25:next:next:poke54273,0:ford=1to750:next:next
  475. 5010 print"connect on -- 9600 bps"
  476. 5020 print"** us government defense systems **"
  477. 5030 print"password:";
  478. 5040 poke19,54:inputa$
  479. 5050 print:print"logon complete."
  480. 5060 print"welcome, officer nettles."
  481. 5070 print"command:";
  482. 5080 poke19,54:inputa$:print
  483. 5090 print"missle silos activated."
  484. 5100 ford=1to1000:next
  485. 5110 print"launch confirmation recieved."
  486. 5120 ford=1to950:next
  487. 5130 print"launching nuclear warhead #";int(rnd(1)*5000+1)+4000
  488. 5135 ford=1to1000:next
  489. 5140 print:goto5070
  490. 5200 gosub902
  491. 5210 print"[158]every time the user types a"
  492. 5220 print"[145]command, the computer will mix"
  493. 5230 print"up one of his/her characters and"
  494. 5240 print"[145]give 'em a syntax error."
  495. 5250 print"[159]is that frustration or what?"
  496. 5260 geta$:ifa$=""then5260
  497. 5270 ifa$="m"thenrun10
  498. 5280 ifa$="u"then5300
  499. 5290 goto5260
  500. 5300 gosub1381
  501. 5310 print"ready."
  502. 5320 poke19,54:inputa$:ifa$=""thenprint:goto5320
  503. 5330 l=len(a$)
  504. 5340 p=int(rnd(1)*l+1)
  505. 5350 c$=mid$(a$,p,1)
  506. 5360 h$=chr$(asc(c$)+1)
  507. 5370 print:printtab(p-1)"[145]";h$
  508. 5380 print:print"?syntax  error"
  509. 5390 goto5310
  510. 5400 gosub902
  511. 5410 print"[156]you always wanted to have an"
  512. 5420 print"[145]earthquake occur on your computer"
  513. 5430 print"screen, right?  here it is."
  514. 5440 print"[159]8.2 on the richter scale."
  515. 5450 geta$:ifa$=""then5450
  516. 5460 ifa$="m"thenrun10
  517. 5470 ifa$="u"then5490
  518. 5480 goto5450
  519. 5490 gosub1381
  520. 5500 print"ready."
  521. 5510 poke19,54:inputa$
  522. 5511 forr=54272to54296:poker,0:next
  523. 5512 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,129
  524. 5513 poke54272,12
  525. 5514 poke54273,1
  526. 5520 print"internal micro-quake!"
  527. 5530 ifo>5thenx=int(rnd(1)*10+1):o=o-(x/2):poke54273,o
  528. 5540 ifo<10theny=int(rnd(1)*10+1)+20:o=o+y:poke54273,o
  529. 5550 poke53270,x:poke53265,y:goto5530
  530. 6000 ifpeek(808)=237then6040
  531. 6010 print""tab(25)"[158]disable stop"
  532. 6020 poke808,237:poke54296,15:poke54296,0
  533. 6030 goto290
  534. 6040 print""tab(25)"[158]enable stop "
  535. 6050 poke808,234:poke54296,15:poke54296,0
  536. 6060 goto290
  537. 7000 m$="m a x i m u m  o v e r d r i v e"
  538. 7010 ifc=1thenprint""m$:ford=1to100:next
  539. 7020 ifc=2thenprint"[155]"m$
  540. 7030 ifc=3thenprint"[152]"m$
  541. 7040 ifc=4thenprint"[151]"m$
  542. 7050 ifc=5thenprint"[152]"m$
  543. 7060 ifc=6thenprint"[155]"m$
  544. 7070 ifc=7thenc=0
  545. 7080 c=c+1:ford=1to25:next:return
  546.