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