1 READP:CLEAR256,P:READP,Q,R,A$:C=P+Q+R
2 PRINT"Working..."
3 FORJ=PTOQ:READX:C=C+X:POKEJ,X:NEXT:READZ
4 IFC<>ZTHENSOUND9394,9:PRINT"Checksum is wrong":END
5 print "start: 56400. End: 60288. Entry: 60288."
6 print "Wormy uses 56400 to 62960 when"
7 print "running."
9 BEEP:PRINT"Done.":SAVEMA$,P,Q,R
10 DATA56400,60288,56400,"wormy"

11 DATA205,74,234,33,0,0,235,33,205,6,235,66,75,8,34,192
12 DATA235,33,0,0,235,33,134,3,235,66,75,8,34,190,235,33
13 DATA0,0,235,33,131,3,235,66,75,8,205,254,234,33,1,0
14 DATA205,254,234,33,143,220,205,254,234,33,190,235,205,254,234,42
15 DATA190,235,229,33,16,0,235,42,192,235,126,111,38,0,205,113
16 DATA234,235,42,192,235,213,235,33,1,0,25,126,111,38,0,209
17 DATA25,125,225,119,42,192,235,235,33,2,0,25,34,192,235,33
18 DATA190,235,205,10,235,33,1,0,34,188,235,205,82,224,42,186
19 DATA235,235,33,0,0,235,205,212,234,124,181,194,225,220,205,6
20 DATA228,33,0,0,34,184,235,205,66,114,111,38,0,34,184,235
21 DATA42,184,235,235,33,81,0,205,236,234,205,157,234,235,42,184
22 DATA235,213,235,33,113,0,205,236,234,205,157,234,209,205,192,234
23 DATA124,181,194,54,221,42,188,235,235,33,0,0,205,236,234,124
24 DATA181,202,45,221,33,1,0,34,188,235,195,225,220,33,0,0
25 DATA34,188,235,195,225,220,42,184,235,235,33,0,0,205,236,234
26 DATA205,157,234,124,181,202,84,221,42,184,235,34,182,235,42,182
27 DATA235,34,180,235,42,180,235,235,33,115,0,205,236,234,235,42
28 DATA180,235,213,235,33,83,0,205,236,234,209,205,185,234,124,181
29 DATA202,121,221,33,28,0,34,182,235,42,180,235,235,33,97,0
30 DATA205,236,234,235,42,180,235,213,235,33,65,0,205,236,234,209
31 DATA205,185,234,124,181,202,158,221,33,29,0,34,182,235,42,180
32 DATA235,235,33,119,0,205,236,234,235,42,180,235,213,235,33,87
33 DATA0,205,236,234,209,205,185,234,124,181,202,195,221,33,30,0
34 DATA34,182,235,42,180,235,235,33,122,0,205,236,234,235,42,180
35 DATA235,213,235,33,90,0,205,236,234,209,205,185,234,124,181,202
36 DATA232,221,33,31,0,34,182,235,42,180,235,235,33,27,0,205
37 DATA236,234,124,181,194,181,233,42,182,235,235,33,28,0,205,212
38 DATA234,235,42,182,235,213,235,33,31,0,235,205,212,234,209,205
39 DATA185,234,124,181,194,225,220,42,182,235,235,33,28,0,205,236
40 DATA234,205,157,234,124,181,194,81,222,42,178,235,235,33,79,0
41 DATA205,236,234,124,181,194,80,229,42,174,235,235,33,1,0,25
42 DATA34,176,235,42,178,235,235,33,1,0,25,34,178,235,195,11
43 DATA223,42,182,235,235,33,29,0,205,236,234,205,157,234,124,181
44 DATA194,145,222,42,178,235,235,33,0,0,205,236,234,124,181,194
45 DATA80,229,42,174,235,235,33,1,0,235,66,75,8,34,176,235
46 DATA42,178,235,235,33,1,0,235,66,75,8,34,178,235,195,11
47 DATA223,42,182,235,235,33,30,0,205,236,234,205,157,234,124,181
48 DATA194,209,222,42,172,235,235,33,0,0,205,236,234,124,181,194
49 DATA80,229,42,174,235,235,33,80,0,235,66,75,8,34,176,235
50 DATA42,172,235,235,33,1,0,235,66,75,8,34,172,235,195,11
51 DATA223,42,182,235,235,33,31,0,205,236,234,205,157,234,124,181
52 DATA194,11,223,42,172,235,235,33,15,0,205,236,234,124,181,194
53 DATA80,229,42,174,235,235,33,80,0,25,34,176,235,42,172,235
54 DATA235,33,1,0,25,34,172,235,195,11,223,33,0,0,34,190
55 DATA235,33,9,0,235,42,170,235,235,66,75,8,235,33,100,0
56 DATA205,113,234,205,254,234,33,1,0,205,254,234,33,56,223,205
57 DATA254,234,33,190,235,205,254,234,33,190,235,205,10,235,42,188
58 DATA235,235,33,1,0,205,236,234,124,181,202,104,223,42,182,235
59 DATA235,33,20,0,235,66,75,8,235,33,176,4,205,113,234,229
60 DATA33,1,0,69,209,205,197,114,42,176,235,6,235,14,194,205
61 DATA199,234,235,33,0,0,235,205,212,234,124,181,194,48,230,42
62 DATA174,235,34,168,235,205,218,230,42,174,235,229,42,176,235,6
63 DATA235,14,194,235,225,205,206,234,42,176,235,229,33,255,127,6
64 DATA235,14,194,235,225,205,206,234,42,176,235,34,168,235,205,123
65 DATA231,42,176,235,34,174,235,42,166,235,235,33,0,0,235,205
66 DATA212,234,205,157,234,124,181,194,248,223,42,166,235,235,33,1
67 DATA0,235,66,75,8,34,166,235,42,164,235,235,33,1,0,25
68 DATA34,164,235,42,164,235,235,33,0,5,205,212,234,205,157,234
69 DATA124,181,194,222,232,195,44,224,42,162,235,34,168,235,205,61
70 DATA232,42,162,235,6,235,14,194,205,199,234,34,160,235,42,162
71 DATA235,229,33,0,0,235,33,1,0,235,66,75,8,6,235,14
72 DATA194,235,225,205,206,234,42,160,235,34,162,235,42,174,235,235
73 DATA42,158,235,205,236,234,205,157,234,124,181,194,206,220,42,166
74 DATA235,235,42,186,235,25,34,166,235,33,0,0,34,186,235,195
75 DATA206,220,205,34,66,205,151,234,87,111,117,108,100,32,121,111
76 DATA117,32,108,105,107,101,32,105,110,115,116,114,117,99,116,105
77 DATA111,110,115,63,32,0,205,38,234,42,180,235,235,33,121,0
78 DATA205,236,234,124,181,202,139,224,205,151,225,33,8,0,34,182
79 DATA235,205,34,66,205,151,234,83,112,101,101,100,63,32,40,48
80 DATA45,57,41,32,0,205,38,234,42,180,235,235,33,48,0,235
81 DATA66,75,8,34,170,235,205,34,66,205,151,234,87,97,105,116
82 DATA32,97,32,109,105,110,117,116,101,32,46,46,46,32,0,205
83 DATA34,66,33,0,0,34,190,235,33,255,4,205,254,234,33,1
84 DATA0,205,254,234,33,240,224,205,254,234,33,190,235,205,254,234
85 DATA42,190,235,229,33,0,0,235,33,1,0,235,66,75,8,6
86 DATA235,14,194,235,225,205,206,234,33,190,235,205,10,235,205,49
87 DATA66,33,136,2,34,190,235,33,143,2,205,254,234,33,1,0
88 DATA205,254,234,33,47,225,205,254,234,33,190,235,205,254,234,42
89 DATA190,235,34,168,235,205,218,230,42,190,235,229,42,190,235,235
90 DATA33,1,0,25,6,235,14,194,235,225,205,206,234,33,190,235
91 DATA205,10,235,33,144,2,34,168,235,205,123,231,33,144,2,229
92 DATA33,255,127,6,235,14,194,235,225,205,206,234,33,136,2,34
93 DATA162,235,33,144,2,34,174,235,33,16,0,34,178,235,33,8
94 DATA0,34,172,235,33,9,0,34,164,235,33,0,0,34,186,235
95 DATA33,0,0,34,166,235,201,205,49,66,205,151,234,32,32,32
96 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,87,79
97 DATA82,77,89,0,205,34,66,205,151,234,32,32,32,32,32,32
98 DATA32,32,32,32,32,32,32,98,121,32,77,97,114,107,32,76
99 DATA117,116,116,111,110,0,205,34,66,205,151,234,89,111,117,32
100 DATA97,114,101,32,97,32,103,114,101,101,100,121,32,108,105,116
101 DATA116,108,101,32,119,111,114,109,46,32,85,115,101,32,116,104
102 DATA101,0,205,34,66,205,151,234,97,114,114,111,119,32,107,101
103 DATA121,115,32,116,111,32,115,113,117,105,110,99,104,32,97,114
104 DATA111,117,110,100,32,116,104,101,32,115,99,114,101,101,110,46
105 DATA0,205,151,234,69,97,116,32,116,104,101,32,102,111,111,100
106 DATA46,32,32,69,118,101,114,121,32,109,101,97,108,32,119,105
107 DATA108,108,0,205,34,66,205,151,234,109,97,107,101,32,121,111
108 DATA117,32,108,111,110,103,101,114,32,98,121,32,49,32,116,111
109 DATA32,49,50,32,115,101,103,109,101,110,116,115,46,0,205,34
110 DATA66,205,151,234,68,111,110,39,116,32,114,117,110,32,105,110
111 DATA116,111,32,121,111,117,114,115,101,108,102,32,111,114,32,116
112 DATA104,101,32,119,97,108,108,46,0,205,34,66,205,151,234,32
113 DATA32,32,32,32,32,72,105,116,32,97,110,121,32,107,101,121
114 DATA32,116,111,32,99,111,110,116,105,110,117,101,46,32,0,205
115 DATA38,234,205,49,66,205,151,234,89,111,117,32,99,97,110,32
116 DATA97,108,115,111,32,109,111,118,101,32,98,121,32,104,105,116
117 DATA116,105,110,103,32,116,104,101,32,0,205,34,66,205,151,234
118 DATA119,44,32,97,44,32,115,44,32,97,110,100,32,122,32,107
119 DATA101,121,115,46,32,32,72,105,116,32,113,32,40,113,117,105
120 DATA101,116,41,0,205,34,66,205,151,234,116,111,32,116,117,114
121 DATA110,32,115,111,117,110,100,32,111,110,32,111,114,32,111,102
122 DATA102,46,0,205,34,66,205,151,234,72,105,116,32,97,110,121
123 DATA32,107,101,121,32,116,111,32,99,111,110,116,105,110,117,101
124 DATA46,0,205,38,234,205,49,66,205,151,234,72,105,116,32,101
125 DATA115,99,97,112,101,32,116,111,32,113,117,105,116,32,97,116
126 DATA32,97,110,121,32,116,105,109,101,46,0,205,34,66,205,151
127 DATA234,72,105,116,32,113,32,40,113,117,105,101,116,41,32,116
128 DATA111,32,116,117,114,110,32,115,111,117,110,100,32,111,110,32
129 DATA111,114,32,111,102,102,46,0,205,34,66,205,151,234,65,110
130 DATA121,32,111,116,104,101,114,32,107,101,121,32,119,105,108,108
131 DATA32,112,97,117,115,101,46,0,205,34,66,205,151,234,83,101
132 DATA108,101,99,116,32,115,112,101,101,100,58,32,48,32,105,115
133 DATA32,115,108,111,119,44,32,57,32,105,115,32,102,97,115,116
134 DATA46,0,205,34,66,201,33,0,0,34,190,235,33,1,0,229
135 DATA33,0,5,209,205,77,235,34,158,235,42,158,235,6,235,14
136 DATA194,205,199,234,235,33,0,0,205,212,234,124,181,194,140,228
137 DATA42,190,235,235,33,1,0,25,34,190,235,42,190,235,235,33
138 DATA10,0,205,212,234,124,181,194,12,228,42,158,235,235,33,1
139 DATA0,25,34,158,235,42,158,235,235,33,255,4,235,205,212,234
140 DATA124,181,202,107,228,33,0,0,34,158,235,42,158,235,6,235
141 DATA14,194,205,199,234,235,33,0,0,213,235,33,1,0,235,66
142 DATA75,8,209,235,205,212,234,124,181,194,74,228,33,1,0,229
143 DATA33,12,0,209,205,77,235,34,186,235,42,186,235,235,33,1
144 DATA0,25,34,186,235,42,186,235,34,156,235,33,3,0,34,190
145 DATA235,42,158,235,235,33,80,0,205,133,234,235,235,33,3,0
146 DATA205,113,234,34,154,235,42,158,235,235,33,80,0,205,133,234
147 DATA235,33,4,0,205,113,234,34,152,235,42,154,235,229,42,152
148 DATA235,93,225,85,205,76,116,42,156,235,235,33,1,0,235,66
149 DATA75,8,34,156,235,42,156,235,235,33,0,0,205,236,234,124
150 DATA181,194,79,229,42,154,235,235,33,1,0,25,34,154,235,42
151 DATA190,235,235,33,1,0,235,66,75,8,34,190,235,42,190,235
152 DATA235,33,0,0,235,205,212,234,124,181,194,218,228,42,154,235
153 DATA235,33,3,0,235,66,75,8,34,154,235,42,152,235,235,33
154 DATA1,0,25,34,152,235,33,3,0,34,190,235,195,218,228,201
155 DATA42,188,235,235,33,1,0,205,236,234,124,181,202,155,229,33
156 DATA1,0,34,190,235,33,5,0,205,254,234,33,1,0,205,254
157 DATA234,33,125,229,205,254,234,33,190,235,205,254,234,33,250,48
158 DATA229,33,1,0,69,209,205,197,114,33,0,0,229,33,1,0
159 DATA69,209,205,197,114,33,190,235,205,10,235,205,34,66,205,151
160 DATA234,73,110,32,121,111,117,114,32,103,114,101,101,100,32,97
161 DATA110,100,32,104,97,115,116,101,44,32,121,111,117,32,114,97
162 DATA110,32,105,110,116,111,0,205,34,66,205,151,234,116,104,101
163 DATA32,119,97,108,108,32,115,111,32,104,97,114,100,32,121,111
164 DATA117,32,98,114,111,107,101,32,121,111,117,114,32,104,101,97
165 DATA100,46,0,205,34,66,205,151,234,89,111,117,32,97,114,101
166 DATA32,100,101,97,100,44,32,97,32,118,105,99,116,105,109,32
167 DATA111,102,32,121,111,117,114,32,111,119,110,32,0,205,34,66
168 DATA205,151,234,103,114,101,101,100,46,0,205,34,66,195,181,233
169 DATA42,188,235,235,33,1,0,205,236,234,124,181,202,111,230,33
170 DATA1,0,34,190,235,33,15,0,205,254,234,33,1,0,205,254
171 DATA234,33,93,230,205,254,234,33,190,235,205,254,234,33,250,48
172 DATA229,33,1,0,69,209,205,197,114,33,190,235,205,10,235,205
173 DATA34,66,205,151,234,73,110,32,121,111,117,114,32,102,111,111
174 DATA108,105,115,104,32,104,97,115,116,101,32,121,111,117,32,114
175 DATA97,110,32,105,110,116,111,0,205,34,66,205,151,234,121,111
176 DATA117,114,115,101,108,102,32,115,111,32,104,97,114,100,32,121
177 DATA111,117,32,105,110,106,117,114,101,100,32,121,111,117,114,115
178 DATA101,108,102,0,205,34,66,205,151,234,109,111,114,116,97,108
179 DATA108,121,46,0,205,34,66,195,246,229,42,168,235,235,33,80
180 DATA0,205,133,234,235,235,33,3,0,205,113,234,34,154,235,42
181 DATA168,235,235,33,80,0,205,133,234,235,33,4,0,205,113,234
182 DATA34,152,235,42,154,235,101,229,42,152,235,209,93,213,42,154
183 DATA235,101,229,42,152,235,235,33,3,0,25,209,93,213,33,1
184 DATA0,205,107,235,42,154,235,235,33,1,0,25,101,229,42,152
185 DATA235,209,93,213,42,154,235,235,33,1,0,25,101,229,42,152
186 DATA235,235,33,3,0,25,209,93,213,33,1,0,205,107,235,42
187 DATA154,235,235,33,2,0,25,101,229,42,152,235,209,93,213,42
188 DATA154,235,235,33,2,0,25,101,229,42,152,235,235,33,3,0
189 DATA25,209,93,213,33,1,0,205,107,235,201,42,168,235,235,33
190 DATA80,0,205,133,234,235,235,33,3,0,205,113,234,34,154,235
191 DATA42,168,235,235,33,80,0,205,133,234,235,33,4,0,205,113
192 DATA234,34,152,235,42,154,235,101,229,42,152,235,209,93,213,42
193 DATA154,235,235,33,2,0,25,101,229,42,152,235,209,93,213,33
194 DATA1,0,205,107,235,42,154,235,235,33,2,0,25,101,229,42
195 DATA152,235,209,93,213,42,154,235,235,33,2,0,25,101,229,42
196 DATA152,235,235,33,3,0,25,209,93,213,33,1,0,205,107,235
197 DATA42,154,235,235,33,2,0,25,101,229,42,152,235,235,33,3
198 DATA0,25,209,93,213,42,154,235,101,229,42,152,235,235,33,3
199 DATA0,25,209,93,213,33,1,0,205,107,235,42,154,235,101,229
200 DATA42,152,235,235,33,3,0,25,209,93,213,42,154,235,101,229
201 DATA42,152,235,209,93,213,33,1,0,205,107,235,201,42,168,235
202 DATA235,33,80,0,205,133,234,235,235,33,3,0,205,113,234,34
203 DATA154,235,42,168,235,235,33,80,0,205,133,234,235,33,4,0
204 DATA205,113,234,34,152,235,42,154,235,101,229,42,152,235,209,93
205 DATA213,42,154,235,101,229,42,152,235,235,33,3,0,25,209,93
206 DATA213,33,0,0,205,107,235,42,154,235,235,33,1,0,25,101
207 DATA229,42,152,235,209,93,213,42,154,235,235,33,1,0,25,101
208 DATA229,42,152,235,235,33,3,0,25,209,93,213,33,0,0,205
209 DATA107,235,42,154,235,235,33,2,0,25,101,229,42,152,235,209
210 DATA93,213,42,154,235,235,33,2,0,25,101,229,42,152,235,235
211 DATA33,3,0,25,209,93,213,33,0,0,205,107,235,201,205,49
212 DATA66,205,151,234,73,32,99,97,110,39,116,32,98,101,108,105
213 DATA101,118,101,32,121,111,117,32,97,116,101,32,116,104,101,32
214 DATA119,104,111,108,101,32,116,104,105,110,103,46,0,205,34,66
215 DATA205,151,234,89,111,117,32,103,114,101,101,100,121,32,108,105
216 DATA116,116,108,101,32,119,111,114,109,33,32,32,89,111,117,32
217 DATA104,97,118,101,0,205,34,66,205,151,234,102,105,108,108,101
218 DATA100,32,117,112,32,116,104,101,32,115,99,114,101,101,110,32
219 DATA119,105,116,104,32,121,111,117,114,32,115,108,105,109,121,0
220 DATA205,34,66,205,151,234,115,101,108,102,46,32,32,78,111,119
221 DATA32,119,104,97,116,32,119,105,108,108,32,121,111,117,32,100
222 DATA111,63,32,89,111,117,32,104,97,118,101,0,205,34,66,205
223 DATA151,234,119,111,110,44,32,111,110,108,121,32,116,111,32,100
224 DATA105,101,32,111,102,32,115,116,97,114,118,97,116,105,111,110
225 DATA33,0,205,34,66,205,151,234,89,111,117,114,32,115,99,111
226 DATA114,101,58,32,0,42,164,235,205,164,234,205,34,66,33,0
227 DATA0,34,180,235,205,66,114,111,38,0,34,180,235,42,180,235
228 DATA235,33,0,0,205,236,234,205,157,234,124,181,194,206,233,205
229 DATA151,234,80,108,97,121,32,97,103,97,105,110,63,32,0,205
230 DATA38,234,42,180,235,235,33,110,0,205,236,234,235,42,180,235
231 DATA213,235,33,78,0,205,236,234,209,205,185,234,124,181,202,35
232 DATA234,201,201,195,203,220,33,0,0,34,180,235,205,66,114,111
233 DATA38,0,34,180,235,42,180,235,235,33,0,0,205,236,234,124
234 DATA181,194,44,234,42,180,235,125,231,201,33,152,235,17,87,10
235 DATA54,0,35,27,122,179,194,80,234,33,195,245,34,236,245,33
236 DATA0,0,34,238,245,33,35,249,235,33,37,249,25,34,194,245
237 DATA201,68,77,33,0,0,62,16,41,235,41,235,210,128,234,9
238 DATA61,194,120,234,201,124,181,200,235,66,75,17,0,0,19,8
239 DATA210,142,234,27,9,235,201,225,205,88,90,35,233,124,47,103
240 DATA125,47,111,201,124,183,62,32,242,177,234,205,157,234,35,62
241 DATA45,231,205,212,57,62,32,231,201,124,178,103,125,179,111,201
242 DATA124,162,103,125,163,111,201,41,9,126,35,102,111,201,41,9
243 DATA115,35,114,201,124,238,128,103,122,238,128,188,194,225,234,123
244 DATA189,218,232,234,33,0,0,201,33,255,255,201,124,186,194,250
245 DATA234,125,187,194,250,234,33,255,255,201,33,0,0,201,235,42
246 DATA236,245,35,115,35,114,34,236,245,201,235,42,236,245,126,43
247 DATA186,194,25,235,126,187,202,32,235,1,7,0,8,195,14,235
248 DATA43,43,229,43,70,43,78,43,229,237,9,235,115,35,114,225
249 DATA126,43,110,103,120,183,250,58,235,235,205,212,234,218,68,235
250 DATA209,225,237,233,225,1,5,0,8,34,236,245,201,229,42,194
251 DATA245,122,179,202,100,235,235,33,85,98,205,113,234,17,25,54
252 DATA25,34,194,245,209,235,205,133,234,235,201,125,33,76,116,230
253 DATA1,194,118,235,46,77,34,97,246,193,225,209,197,195,217,28
254 DATA235,651343