home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64 / fantasy.virus (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  218 lines
  1. 65535 rem"                run me!"                   :rem(NULL)
  2. 2 poke808,234:poke2051,1:poke2052,0
  3. 3 z=53280:s=54272:fora=stos+23:pokea,0:next:pokes+24,15
  4. 4 open4,8,4,"na,s,r":input#4,na$:input#4,nf$:input#4,w2
  5. 5 input#4,t1,t2,t3,t4:close4:goto20
  6. 6 print"ready."
  7. 7 geta$:ifa$<>""then7
  8. 8 print" ";:geta$:ifa$<>""thenreturn
  9. 9 fort=1to300:next:print"[157][146] [157]";:fort=1to300:next:goto8:nextt
  10. 10 geta$:ifa$<>""then10
  11. 11 geta$:ifa$=""then11
  12. 12 return
  13. 13 fort=1to1000:next:return
  14. 14 fort=1to500:next:return
  15. 15 pokey+(40*u),7:pokes1+(40*u),160
  16. 16 pokes+4,33:pokes+11,33:pokes+18,65
  17. 17 fort=1to400:next:pokes+4,32:pokes+11,32:pokes+18,64
  18. 18 fort=1to500:next:return
  19. 19 fort=1to100:next:return
  20. 20 pokez,14:pokez+1,6:print"[147][154]"
  21. 21 print"    **** commodore 64 basic v2 ****":print
  22. 22 print" 64k ram system  38911 basic bytes free":print
  23. 23 gosub6
  24. 24 print"[157][145][145][146]sorry but i'm not quite":gosub6
  25. 25 print"[157][145][145][146]i'll let you know when i'm":gosub6
  26. 26 print"[157][145][145][146]hey, jerk will you wait a second!"
  27. 27 print"i'm just not":gosub6
  28. 28 print:b=0:print"[145][145][145][145][145]";:forb=1to8:print:fora1=1to39:print" ";:nexta1:nextb
  29. 29 print
  30. 30 printtab(12)"don't touch me!":gosub10
  31. 31 printtab(4)"[145]look, i don't want to play now!":gosub10
  32. 32 print"[145]         keep your hands off me![146]   ":gosub10
  33. 33 print"[145]      look buster, i'm not kidding!":gosub10
  34. 34 print"[145]you touch my keyboard one more time and "
  35. 35 print"[145]i won't be responsible for what happens!":gosub10
  36. 36 print"[147]";:pokez,0:pokez+1,0:print"[159]";tab(12)"you were warned":gosub14
  37. 37 gosub14
  38. 38 r$="    ":b$="[144]    ":b8$=b$+b$:r8$=r$+r$:bt$=b$+b8$:rt$=r$+r8$
  39. 39 bs$=b8$+b8$:rs$=r8$+r8$:print"[147]";:gosub222:pokes+4,21
  40. 40 forx=1to8:printb8$;r8$;b$;rt$;b8$;:next
  41. 41 forx=1to8:printb8$;r8$;b$;r$;b$;r$;b8$;:next
  42. 42 forx=1to8:printb8$;r8$;b$;rt$;b8$;:next:pokes+4,20
  43. 43 gosub19
  44. 44 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  45. 45 forx=1to6:printbt$;r$;b8$;r$;bt$;:next
  46. 46 forx=1to4:printbt$;rs$;bt$;:next
  47. 47 forx=1to6:printbs$;b8$;r$;bt$;:next
  48. 48 forx=1to4:printbt$;rs$;bt$;:next
  49. 49 pokes+4,20:gosub19
  50. 50 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  51. 51 forx=1to6:printbt$;r$;b8$;r$;bt$;:next
  52. 52 forx=1to4:printbt$;rs$;bt$;:next
  53. 53 forx=1to6:printbt$;r$;b8$;r$;bt$;:next
  54. 54 forx=1to4:printbt$;rs$;bt$;:next:pokes+4,20:gosub19
  55. 55 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  56. 56 forx=1to20:printbs$;b8$;r$;bt$;:next:pokes+4,20:gosub19
  57. 57 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  58. 58 forx=1to6:printbt$;r$;b8$;bs$;:next
  59. 59 forx=1to4:printbt$;rs$;bt$;:next
  60. 60 forx=1to6:printbt$;r$;b8$;r$;bt$;:next
  61. 61 forx=1to4:printbt$;rs$;bt$;:next:pokes+4,20:gosub19 
  62. 62 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  63. 63 forx=1to6:printbt$;r$;b8$;bs$;:next
  64. 64 forx=1to4:printbt$;rs$;bt$;:next
  65. 65 forx=1to6:printbs$;b8$;r$;bt$;:next
  66. 66 forx=1to4:printbt$;rs$;bt$;:next:pokes+4,20:gosub19
  67. 67 print"[147]";:pokes+4,21:forx=1to4:printbt$;r$;bs$;b8$;:next
  68. 68 forx=1to8:printbt$;r$;b$;r$;bs$;:next
  69. 69 forx=1to4:printbt$;rs$;bt$;:next
  70. 70 forx=1to8:printbs$;b$;r$;bs$;:next:pokes+4,20:gosub19
  71. 71 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  72. 72 forx=1to6:printbs$;b8$;r$;bt$;:next
  73. 73 forx=1to4:printbs$;r8$;r$;bt$;:next
  74. 74 forx=1to6:printbs$;b8$;r$;bt$;:next
  75. 75 forx=1to4:printbt$;rs$;bt$;:next:pokes+4,20:gosub19
  76. 76 print"[147]";:pokes+4,21:forx=1to4:printbt$;rs$;bt$;:next
  77. 77 forx=1to6:printbs$;b8$;r$;bt$;:next
  78. 78 forx=1to4:printbt$;rs$;bt$;:next
  79. 79 forx=1to6:printbt$;r$;b8$;bs$;:next
  80. 80 forx=1to4:printbt$;rs$;bt$;:next:pokes+4,20:gosub19
  81. 81 print"[147]";:pokes+4,21:forx=1to24:printbs$;r8$;bs$;:next:pokes+4,20:gosub14
  82. 82 print"[147]";:forc6=stos+23:pokec6,0:next:gosub14:gosub14
  83. 83 pokes,200:pokes+1,40:pokes+4,129:pokes+5,15
  84. 84 forx=1to100:pokez,1:pokez+1,1
  85. 85 pokes+24,0:forx2=1to20
  86. 86 next:pokez,0:pokez+1,0:pokes+24,15
  87. 87 fort=1to20:next:next:pokes+24,15
  88. 88 pokez,1:pokez+1,1:printtab(6)"[145][144]cbm 64 inner control center"
  89. 89 print
  90. 90 print" [146] [144]6566/6567 vic ii chip"
  91. 91 print
  92. 92 print" [146] [144]6581 sid chip"
  93. 93 print
  94. 94 print" [146] [144]6510 microprocessor"
  95. 95 print
  96. 96 print" [146] [144]keyboard"
  97. 97 print
  98. 98 print" [146] [144]i/o channels"
  99. 99 print
  100. 100 print" [146] [144]ram storage"
  101. 101 print
  102. 102 print" [146] [144]rom storage"
  103. 103 print
  104. 104 print" [146] [144]expansion port"
  105. 105 print
  106. 106 print" [146] [144]user port"
  107. 107 print
  108. 108 print" [146] [144]everything else"
  109. 109 fort2=1to40:print"[144][185]";:next
  110. 110 print"[144]      [144] [144]safe[144]  [158] [144] [144]caution[144]   [144] [144]danger[144]        [146]";
  111. 111 fort2=1to40:print"[144][184]";:next
  112. 112 print"";tab(25)"status report: "
  113. 113 pokes+5,3:pokes+12,3:pokes+14,225:pokes+15,8:pokes+20,64:pokes+19,3
  114. 114 pokes+6,64:pokes+13,64:pokes,30:pokes+1,25:pokes+7,209:pokes+8,18
  115. 115 pokes+17,1:pokes+16,0
  116. 116 printtab(25)"[144][145]dangerous level":printtab(25)"[145]of hostility!  "
  117. 117 printtab(25)"[145]feedback above "
  118. 118 printtab(25)"[145]safe levels!   "
  119. 119 gosub19
  120. 120 y=55296:u=2:s1=1024:gosub14
  121. 121 gosub15:u=14:gosub15:u=10:gosub15:u=4:
  122. 122 u=12:gosub15:u=16:gosub15:u=6:gosub15:u=8:gosub15:u=18:gosub15
  123. 123 u=20:gosub15
  124. 124 gosub14:print"":printtab(25)"[145][144]massive memory "
  125. 125 printtab(25)"[145][145]surge! drain   ":printtab(25)"[145]overload buffer"
  126. 126 printtab(25)"[145][145]immediately!   "
  127. 127 forq=1to10:forx=ytoy+(40*20)step80:pokex,7
  128. 128 next:gosub19
  129. 129 forx=ytoy+(40*20)step80
  130. 130 pokex,2:pokes+4,33:pokes+11,33:pokes+18,65:next:ifv8=0thenprint"";
  131. 131 fort=1to80:next:printtab(25)"danger! danger![146][145]";:pokes+4,32:pokes+11,32
  132. 132 pokes+18,64:v8=v8+1:fort8=1to100:next:ifv8=2thenv8=0
  133. 133 next
  134. 134 fora=stos+23:pokea,0:next
  135. 135 print"[147]";:pokez,2:forx=1to99:print"emergency ";:next
  136. 136 print"emergency";:poke2023,160:poke56295,2
  137. 137 pokez+1,1:pokez+2,3:pokez+3,8:poke53270,peek(53270)or16
  138. 138 c=13*4096+8*256:f=9:fr=5389
  139. 139 forl1=0to23:pokes+l1,0:next:pokes+14,5:pokes+18,16
  140. 140 pokes+3,1:pokes+2,0:pokes+6,240:pokes+4,65:fr=5389
  141. 141 forl1=0to999
  142. 142 fq=fr+peek(s+27)*3.5
  143. 143 hf=int(fq/256):lf=fq-hf*256
  144. 144 pokes+0,lf:pokes+1,hf
  145. 145 pokec+l1,f:next:pokes+4,64:pokez,1
  146. 146 print"";:fora2=1to499:print"[146] ";:next:poke2022,32:poke56295,1:gosub13
  147. 147 fora1=1to499:print"[146] ";:next:poke2023,32:poke56296,1:gosub13:print"[147]";
  148. 148 poke53270,peek(53270)and239
  149. 149 v=6:x=1
  150. 150 forl1=0to23:pokes+l1,0:next:pokez,0:pokez+1,0
  151. 151 print"[158]begin total memory drain procedure"
  152. 152 fort=1to2000:next
  153. 153 pokes,237:pokes+1,5:pokes+7,71:pokes+8,6:pokes+5,93:pokes+12,93
  154. 154 pokes+6,204:pokes+13,204
  155. 155 print"[147]";spc(10)"[153]random access memory"
  156. 156 fora1=1to479:print"[166][208]";:next:print"[166]";
  157. 157 poke2023,80:poke56295,v
  158. 158 gosub13
  159. 159 print"";
  160. 160 pokes+4,33:pokes+11,33:pokes+4,32:pokes+11,32
  161. 161 fora1=1to479:print"[207][208]";
  162. 162 next:print"[207]";:poke2023,80
  163. 163 gosub13
  164. 164 onxgoto165,166,167,168,169
  165. 165 print"[147]";tab(12)"[153]read only memory":x=x+1:v=2:goto156
  166. 166 print"[147]";tab(11)"[153]basic interpreter[158]":x=x+1:v=7:goto156
  167. 167 print"[147]";tab(9)"[153]kernal operating system[156]":x=x+1:v=4:goto156
  168. 168 print"[147]";tab(13)"[153]everything else[159]":x=x+1:v=3:goto156
  169. 169 print"[147]";spc(13)"[159]status report:"
  170. 170 pokes+4,129:pokes+5,14:pokes+6,254
  171. 171 print"[153]random access memory      [158]disabled"
  172. 172 print"[153]read only memory          [158]disabled"
  173. 173 print"[153]basic interpreter         [158]disabled"
  174. 174 print"[153]kernal operating system   [158]disabled"
  175. 175 print"[153]everything else           [158]disabled"
  176. 176 print"[153]    [158]now you've really done it!"
  177. 177 fora=1to2:fort=20to200:pokes,t:pokes+1,t:forb=1to10:next:next:fort2=1to100
  178. 178 next:fort=200to20step-1:pokes,t:pokes+1,t
  179. 179 forb=1to10:next
  180. 180 next:next:fort=20to200:pokes,t:pokes+1,t:next:fort=200to1step-1
  181. 181 pokes,t:pokes+1,t:next:fort2=1to200:next
  182. 182 pokez+1,15:pokez,0
  183. 183 geta$:ifa$<>""then183
  184. 184 print"[147]";:print"[144] last chance to avoid total destruction "
  185. 185 print" touch any key  to abort the impending"
  186. 186 print" destruction of all programs and files"
  187. 187 print"on all disks and tapes in the immediate"
  188. 188 print"area as well as potentially serious and"
  189. 189 print" possibly fatal injuries to all humans"
  190. 190 print"and animals within a three mile radius!"
  191. 191 x=10:print"";tab(19)"10"
  192. 192 geta$:ifa$<>""then211
  193. 193 gosub13:x=x-1:x$=str$(x):printtab(19)"[145]0";right$(x$,1)
  194. 194 ifx>0then192
  195. 195 fork9=stos+23:pokek9,0:next:fork9=1to499:print"[209][215]";:next
  196. 196 pokez,0:pokez+1,0:print"[147][158]oh hell, i don't feel up to any mass"
  197. 197 print"destruction today. let's just forget"
  198. 198 print"the whole thing, okay?"
  199. 200 print"i get no respect!!!  i want you to call back rbbs and contribute..."
  200. 201 printspc(11)"ok?????   okay!"
  201. 202 getg$:ifg$=""then202
  202. 203 print"[147]for information on listing this program contact tony solomon in e-mail!"
  203. 204 new:end
  204. 211 fork9=stos+23:pokek9,0:next
  205. 212 pokez,0:pokez+1,0:print"[147][158]hey, what a hero...!"
  206. 213 print"with one keystroke you have prevented"
  207. 214 print"all kinds of mass destruction..."
  208. 215 print"now i will release control of your "
  209. 216 print"computer!":t4=365
  210. 217 print"[153]load whatever you want":gosub219
  211. 218 goto200
  212. 219 w2=5
  213. 220 cm$=chr$(44):open4,8,4,"@0:na,s,w":print#4,na$:print#4,nf$:print#4,w2
  214. 221 print#4,t1;cm$;t2;cm$;t3;cm$;t4:close4:return
  215. 222 forc6=stos+23:pokec6,0:next
  216. 223 pokes+1,130:pokes+5,9:pokes+15,30:pokes+4,21
  217. 224 return
  218.