home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 August / 1993-08.d64 / overdrive (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  16KB  |  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]