-
Notifications
You must be signed in to change notification settings - Fork 263
/
Copy pathorig
317 lines (315 loc) · 64.5 KB
/
orig
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
2078
45746 = = = = = = = = = = = = = = = = = = = =
2 REM = = = BACK TO BASICS = = =
3 REM = = = = = = = = = = = = = = = = = = = = = =
10 PRINT CHR$ (155):PRINT CHR$ (147)
20 POKE 53280, 6:POKE 53281, 6:
25 PRINT "LOADING..."
30 DATA 2,1,3,11,32,32,81,81,81,32,32,32,32,81,32,32,32,32,81,81,81,81,32,81,81,81,81,81,32,32,81,81,81,81,32,32,87,87,87,87
31 DATA 32,32,32,32,32,32,81,32,32,81,32,32,81,32,81,32,32,81,32,32,32,32,32,32,32,81,32,32,32,81,32,32,32,32,32,87,32,32,32,32
32 DATA 20,15,32,32,32,32,81,81,81,32,32,81,32,32,32,81,32,32,81,81,81,32,32,32,32,81,32,32,32,81,32,32,32,32,32,32,87,87,87,32
33 DATA 32,32,32,32,32,32,81,32,32,81,32,81,81,81,81,81,32,32,32,32,32,81,32,32,32,81,32,32,32,81,32,32,32,32,32,32,32,32,32,87
34 DATA 20,8,5,32,32,32,81,81,81,32,32,81,32,32,32,81,32,81,81,81,81,32,32,81,81,81,81,81,32,32,81,81,81,81,32,87,87,87,87,32
40 FOR I = 0 TO 39: POKE 55296 + I, 1: NEXT I
41 FOR I = 40 TO 79: POKE 55296 + I, 15: NEXT I
42 FOR I = 80 TO 119: POKE 55296 + I, 12: NEXT I
43 FOR I = 120 TO 159: POKE 55296 + I, 11: NEXT I
44 FOR I = 160 TO 199: POKE 55296 + I, 0: NEXT I
50 FOR I = 0 TO 199
51 READ C : POKE 1024 + I, C
52 NEXT I
60 PRINT :PRINT :PRINT :PRINT :PRINT
70 POKE 19,1: PRINT "PASSWORD PLEASE?" CHR$ (5): INPUT ""; P$: POKE 19,0
80 PRINT :PRINT :PRINT CHR$ (155) "PROCESSING... (THIS MIGHT TAKE A WHILE)":PRINT "[ ]"
90 CHKOFF = 11 * 40 + 1
200 IF LEN (P$) = 30 THEN GOTO 250
210 POKE 1024 + CHKOFF + 0, 86:POKE 55296 + CHKOFF + 0, 10
220 GOTO 31337
250 POKE 1024 + CHKOFF + 0, 83:POKE 55296 + CHKOFF + 0, 5
2000 REM NEVER GONNA GIVE YOU UP
2001 REM
2010 POKE 03397, 00199 : POKE 03398, 00013 : GOTO 2001
31337 PRINT :PRINT "VERDICT: NOPE":GOTO 31345
31345 GOTO 31345
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 1, 81:POKE 55296 + CHKOFF + 1, 7
2004 ES = 03741 : EE = 04981 : EK = 148
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 1, 87
29510 PEEK RESTORE RESTORE CLR CONT NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW CMD SYS OPEN CMD NEW SYS OPEN GET NEW CLOSE CMD RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR CLR CLR CLR SYS OPEN SYS TO OPEN CLR NEW CLOSE OPEN NEW GET OPEN TO NEW FN NEW SYS TO FN CLR NEW SYS GET RESTORE SPC( RESTORE < RESTORE RESTORE CLR lq{Ps^ / RESTORE RESTORE 2SAVE RESTORE 6SAVE LOG STOP PRINT# RESTORE CMD PRINT# RESTORE CMD VERIFY RESTORE VERIFY lIF {Qs^ ^ RESTORE RESTORE 2SAVE RESTORE 6SAVE LOG STOP PRINT# RESTORE SYS PRINT# RESTORE CMD VERIFY RESTORE VERIFY l�{UsLOG CLR RESTORE RESTORE CLR SPC( LOG CMD RESTORE RESTORE CLR SPC( LOG SYS RESTORE RESTORE CLR SPC( LOG OPEN RESTORE RESTORE CLR SPC( LOG CLOSE RESTORE RESTORE CLR SPC( LOG GET RESTORE RESTORE CLR SPC( LOG NEW RESTORE RESTORE CLR SPC( LOG TAB( RESTORE RESTORE CLR SPC( LOG TO RESTORE RESTORE CLR SPC( LOG FN RESTORE RESTORE CLR SPC( LOG / RESTORE RESTORE CLR SPC( LOG ^ RESTORE RESTORE CLR SPC( LOG AND RESTORE RESTORE CLR l({Zs�RESTORE ^ / RESTORE RESTORE CMD RESTORE RESTORE LOG CLR RESTORE RESTORE CLR CONT CLR NEW SYS GET CLR CLR CLR CLR CLR CLR CLR CMD TO CMD TO FN TO FN CLOSE CLR OPEN GET CLOSE GET TO GET NEW CLOSE TAB( GET TO OPEN CLR CLR TAB( TO CMD SYS GET lg{[s�RESTORE ^ / RESTORE RESTORE SYS RESTORE RESTORE LOG CMD RESTORE RESTORE CLR CONT CLR CMD GET NEW SYS GET CLR CLR CLR CLR CLR CLR CLOSE GET CLOSE TAB( CLOSE TAB( OPEN GET CLR TO TO NEW CLOSE NEW CLOSE CMD CMD TO FN GET TAB( GET CMD FN GET OPEN CMD SYS lSPC( |\s�RESTORE ^ / RESTORE RESTORE CLOSE RESTORE RESTORE LOG SYS RESTORE RESTORE CLR CONT CLR CLR OPEN FN CLR NEW SYS GET CLR CLR CLR CLR CMD CMD OPEN NEW TO NEW TO OPEN TAB( TAB( SYS CMD NEW CMD NEW CLR SYS FN TAB( OPEN FN OPEN TAB( FN TO TO SYS TO l�|]s�RESTORE ^ / RESTORE RESTORE TO RESTORE RESTORE LOG OPEN RESTORE RESTORE CLR CONT CLR CLR CLR FN TAB( NEW GET NEW SYS GET CLR CLR CLR SYS TO CLOSE SYS CMD TAB( CLR FN CLOSE OPEN CLR CLOSE CLR CLOSE CLR CLR TAB( CLOSE OPEN CLOSE TO CLOSE CLOSE FN TAB( CLR TAB( l%|^s�RESTORE ^ / RESTORE RESTORE CMD NEW RESTORE RESTORE LOG CLOSE RESTORE RESTORE CLR CONT CLR CLR CLR SYS CLOSE CLOSE CMD CLOSE CLR NEW SYS GET CLR CLR TAB( CMD CLR GET CLOSE SYS TAB( OPEN GET TAB( NEW CLR CMD CLR CLR CMD TO GET TO TAB( CMD CMD SYS CLOSE SYS TAB( le|_s�RESTORE ^ / RESTORE RESTORE OPEN SYS RESTORE RESTORE LOG GET RESTORE RESTORE CLR CONT CLR CLR CLR CLR NEW CMD CLR OPEN GET CMD GET NEW SYS GET CMD TAB( TAB( NEW OPEN GET NEW TO OPEN FN CLOSE CLR CLR SYS GET CLR CLOSE NEW CLOSE NEW TAB( TAB( TO CMD CLR TAB( lFN }`s�RESTORE ^ / RESTORE RESTORE NEW CLOSE RESTORE RESTORE LOG NEW RESTORE RESTORE CLR CONT CLR CLR CLR CLR CMD GET SYS GET TO TAB( TO FN CLR NEW SYS FN CLOSE CLOSE CLR TO FN SYS CLR FN TO GET CLR CLR NEW SYS NEW CMD NEW CMD NEW FN CLOSE GET SYS TAB( l�}as�RESTORE ^ / RESTORE RESTORE CMD SYS TO RESTORE RESTORE LOG TAB( RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR OPEN TO CMD CLOSE NEW FN TAB( SYS NEW GET TAB( OPEN NEW CLR SYS SYS OPEN CLR SYS CLOSE NEW SYS GET CMD GET NEW GET CLOSE CLR CLOSE SYS OPEN NEW OPEN SYS l%}ds�RESTORE ^ ^ RESTORE RESTORE CMD RESTORE RESTORE LOG TO RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR FN GET OPEN NEW TAB( CLOSE OPEN CMD NEW CLOSE OPEN CLOSE CLR CLR GET GET TAB( GET NEW CMD GET NEW SYS TO FN CMD OPEN GET CMD CLR GET FN CLR TO ld}[s�RESTORE ^ ^ RESTORE RESTORE SYS RESTORE RESTORE LOG FN RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR SYS OPEN TO CLOSE CMD TO GET TAB( FN CMD CLR TO GET CLR CMD OPEN FN OPEN FN CLR OPEN FN CLR TAB( SYS SYS TO OPEN TAB( TAB( NEW CLOSE TAB( TAB( lTAB( ~\s�RESTORE ^ ^ RESTORE RESTORE CLOSE RESTORE RESTORE LOG / RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR CLR GET FN NEW CLR CLOSE NEW CLOSE CLOSE TAB( TAB( TAB( CMD SYS GET OPEN CLOSE TO CLOSE TAB( GET FN TAB( NEW TO CLR TAB( CLR FN CLOSE CLOSE CMD CMD FN l�~]s�RESTORE ^ ^ RESTORE RESTORE TO RESTORE RESTORE LOG ^ RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR CLR CMD CLOSE FN CLR CMD CMD NEW CMD CMD FN CLOSE SYS TO CMD OPEN OPEN TAB( CMD CMD TO FN FN CLOSE SYS CLR CMD TAB( TAB( OPEN NEW CLR OPEN l!~^s�RESTORE ^ ^ RESTORE RESTORE CMD NEW RESTORE RESTORE LOG AND RESTORE RESTORE CLR CONT CLR CLR CLR CLR CLR CLR CLR CLR OPEN TAB( SYS GET SYS FN CLR SYS FN TO GET TAB( CLR OPEN OPEN CLOSE SYS TAB( FN TAB( CLOSE TO GET GET CLR CLOSE CLOSE OPEN CLOSE CLR CLR TAB( llntUSR RESTORE RESTORE PEEK RESTORE RESTORE LOG CLR RESTORE RESTORE LOG CMD RESTORE RESTORE LOG SYS RESTORE RESTORE LOG OPEN RESTORE RESTORE LOG CLOSE RESTORE RESTORE LOG GET RESTORE RESTORE LOG NEW RESTORE RESTORE LOG TAB( RESTORE RESTORE LOG TO RESTORE RESTORE LOG FN RESTORE RESTORE LOG / RESTORE RESTORE LOG ^ RESTORE RESTORE LOG AND lDIM xt< RESTORE RESTORE CLR CONT NEW TAB( CMD GET NEW GET TAB( CLR NEW OPEN TAB( NEW CLR CMD TAB( lTHEN CLOSE tTAN CLR RESTORE RESTORE USR RESTORE RESTORE < RESTORE SPC( RESTORE / RESTORE RESTORE TO NEW RESTORE SPC( RESTORE ^ RESTORE RESTORE CMD CLR lASC t�RESTORE TAN CLR RESTORE RESTORE CMD RESTORE RESTORE / RESTORE RESTORE TO OPEN RESTORE SPC( RESTORE ^ RESTORE RESTORE GET l�tRESTORE CMD CLR SYS CLOSE RESTORE RESTORE AND SGN USR RND = = RESTORE RESTORE CMD PRINT# RESTORE FN CLR l|STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 1, A:POKE 55296 + CHKOFF + 1, B
2910 POKE 03397, 00029 : POKE 03398, 00020 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 2, 81:POKE 55296 + CHKOFF + 2, 7
2004 ES = 05363 : EE = 06632 : EK = 152
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 2, 87
28482 COS LET LET PRINT# DEF SYS SYS SYS SYS SYS SYS SYS SYS SYS SYS SYS PRINT CONT LIST PRINT SYS CONT LIST CMD SYS CLR PRINT LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# CONT LIST CONT CLOSE LIST PRINT# SYS CLR LIST SYS CMD LIST CLOSE SYS GET SYS CONT CLOSE GET PRINT# SYS CONT CMD LET NEW LET AND LET LET PRINT# hLEN }Lo+ STEP LET LET .STOP LET 2STOP FRE RESTORE SAVE LET CONT SAVE LET PRINT ON LET ON h�}Mo+ + LET LET .STOP LET 2STOP FRE RESTORE SAVE LET LIST SAVE LET PRINT ON LET ON h�}No+ - LET LET .STOP LET 2STOP FRE RESTORE SAVE LET CLR SAVE LET PRINT ON LET ON hV}QoFRE PRINT# LET LET PRINT# NEW FRE PRINT LET LET PRINT# NEW FRE CONT LET LET PRINT# NEW FRE LIST LET LET PRINT# NEW FRE CLR LET LET PRINT# NEW FRE CMD LET LET PRINT# NEW FRE SYS LET LET PRINT# NEW FRE OPEN LET LET PRINT# NEW FRE CLOSE LET LET PRINT# NEW FRE GET LET LET PRINT# NEW FRE STEP LET LET PRINT# NEW FRE + LET LET PRINT# NEW FRE - LET LET PRINT# hVERIFY ~Vo�LET + STEP LET LET LIST CONT LET LET FRE PRINT# LET LET PRINT# DEF PRINT# SYS CONT CMD PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT CLOSE PRINT CLOSE GET CLOSE GET CLR PRINT# LIST CMD CLR CMD CLOSE CMD SYS CLR OPEN CMD CLOSE LIST PRINT# PRINT# OPEN CLOSE PRINT CONT CMD h�~Wo�LET + STEP LET LET SYS CLR LET LET FRE PRINT LET LET PRINT# DEF PRINT# PRINT CMD SYS CONT CMD PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# CLR CMD CLR OPEN CLR OPEN LIST CMD PRINT# CLOSE CLOSE SYS CLR SYS CLR PRINT PRINT CLOSE GET CMD OPEN CMD PRINT GET CMD LIST PRINT CONT h~Xo�LET + STEP LET LET PRINT CONT CLOSE LET LET FRE CONT LET LET PRINT# DEF PRINT# PRINT# LIST GET PRINT# SYS CONT CMD PRINT# PRINT# PRINT# PRINT# PRINT PRINT LIST SYS CLOSE SYS CLOSE LIST OPEN OPEN CONT PRINT SYS PRINT SYS PRINT# CONT GET OPEN LIST GET LIST OPEN GET CLOSE CLOSE CONT CLOSE hU~Yo�LET + + LET LET PRINT LET LET FRE LIST LET LET PRINT# DEF PRINT# PRINT# PRINT# GET OPEN SYS CMD SYS CONT CMD PRINT# PRINT# PRINT# CONT CLOSE CLR CONT PRINT OPEN PRINT# GET CLR LIST PRINT# CLR PRINT# CLR PRINT# PRINT# OPEN CLR LIST CLR CLOSE CLR CLR GET OPEN PRINT# OPEN hSAVE Zo�LET + + LET LET CONT LET LET FRE CLR LET LET PRINT# DEF PRINT# PRINT# PRINT# CONT CLR CLR PRINT CLR PRINT# SYS CONT CMD PRINT# PRINT# OPEN PRINT PRINT# CMD CLR CONT OPEN LIST CMD OPEN SYS PRINT# PRINT PRINT# PRINT# PRINT CLOSE CMD CLOSE OPEN PRINT PRINT CONT CLR CONT OPEN h�[o�LET + + LET LET CLR LET LET FRE CMD LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# SYS PRINT PRINT# LIST CMD PRINT CMD SYS CONT CMD PRINT OPEN OPEN SYS LIST CMD SYS CLOSE LIST GET CLR PRINT# PRINT# CONT CMD PRINT# CLR SYS CLR SYS OPEN OPEN CLOSE PRINT PRINT# OPEN h\o�LET + + LET LET CLOSE LET LET FRE SYS LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT CMD CONT CMD CLOSE OPEN CLOSE GET PRINT# SYS CONT GET CLR CLR PRINT# CLOSE GET CONT PRINT# GET CLOSE CMD PRINT# PRINT# SYS CONT SYS PRINT SYS PRINT SYS GET CLR CMD CONT OPEN hR]o�LET + + LET LET PRINT SYS LET LET FRE OPEN LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# LIST CLOSE PRINT CLR SYS GET OPEN CONT SYS CMD OPEN LIST SYS PRINT# CONT CONT LIST PRINT# CONT CLR SYS CONT CMD PRINT CMD SYS CMD CLR PRINT# CLR CONT LIST SYS LIST CONT hWAIT END `o�LET + + LET LET LIST CONT LET LET FRE CLOSE LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# GET CMD LIST SYS OPEN CLR LIST PRINT SYS CLR LIST CLR PRINT# PRINT# CMD CMD OPEN CMD SYS PRINT CMD SYS CONT CLOSE GET PRINT LIST CMD PRINT PRINT# CMD GET PRINT# CLOSE h�END Wo�LET + + LET LET SYS CLR LET LET FRE GET LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# CONT LIST CLOSE CLR PRINT CLOSE CMD OPEN GET PRINT PRINT# CLOSE CMD PRINT# PRINT LIST GET LIST GET PRINT# LIST GET PRINT# OPEN CONT CONT CLOSE LIST OPEN OPEN SYS CLR OPEN OPEN hEND Xo�LET + + LET LET PRINT CONT CLOSE LET LET FRE STEP LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# CMD GET SYS PRINT# CLR SYS CLR CLR OPEN OPEN OPEN PRINT CONT CMD LIST CLR CLOSE CLR OPEN CMD GET OPEN SYS CLOSE PRINT# OPEN PRINT# GET CLR CLR PRINT PRINT GET hQEND Yo�LET + - LET LET PRINT LET LET FRE + LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT CLR GET PRINT# PRINT PRINT SYS PRINT PRINT GET CLR CONT CLOSE PRINT LIST LIST OPEN PRINT PRINT CLOSE GET GET CLR CONT PRINT# PRINT OPEN OPEN LIST SYS PRINT# LIST hSTOP FOR Zo�LET + - LET LET CONT LET LET FRE - LET LET PRINT# DEF PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# LIST OPEN CONT CMD CONT GET PRINT# CONT GET CLOSE CMD OPEN PRINT# LIST LIST CLR CONT OPEN GET OPEN CLR CLOSE CMD CMD PRINT# CLR CLR LIST CLR PRINT# PRINT# OPEN h�FOR jp< LET LET COS LET LET FRE PRINT# LET LET FRE PRINT LET LET FRE CONT LET LET FRE LIST LET LET FRE CLR LET LET FRE CMD LET LET FRE SYS LET LET FRE OPEN LET LET FRE CLOSE LET LET FRE GET LET LET FRE STEP LET LET FRE + LET LET FRE - h�FOR tpAND LET LET PRINT# DEF SYS CLOSE CONT SYS PRINT CONT LIST CMD CLOSE PRINT CONT SYS CLOSE CONT PRINT# hFOR CLR pLOG PRINT LET LET < LET LET AND LET NEW LET STEP LET LET CLOSE SYS LET NEW LET + LET LET PRINT PRINT# h5FOR
48264 PRINT LET LET PRINT LET LET STEP LET LET CLOSE LIST LET NEW LET + LET LET CMD hQFOR
p�LET PRINT PRINT# CONT CLR LET LET - OR < USR ^ ^ LET LET CONT SAVE LET GET PRINT# h�STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 2, A:POKE 55296 + CHKOFF + 2, B
2910 POKE 03397, 00144 : POKE 03398, 00026 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 3, 81:POKE 55296 + CHKOFF + 3, 7
2004 ES = 07014 : EE = 08219 : EK = 165
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 3, 87
{IF [RND wIb�{CMD CLR {TOP READ {RESTORE INPUT# {INPUT# [}wDb- IF { {E ON GOSUB RETURN STOP ON REM RESTORE {VERIFY {NEW {
{IF GOTO IF ON GOSUB STOP IF IF IF IF IF IF IF RESTORE LOAD RESTORE LOAD SAVE LOAD SAVE REM IF RETURN STOP REM STOP LOAD STOP ON REM WAIT STOP LOAD RETURN IF IF WAIT LOAD RESTORE GOSUB STOP [�wJb�{CMD CLR {
{IF GOTO IF RESTORE STOP ON GOSUB STOP IF IF IF IF IF IF REM STOP REM WAIT REM WAIT RETURN STOP IF LOAD LOAD ON REM ON REM RESTORE RESTORE LOAD SAVE STOP WAIT STOP RESTORE SAVE STOP RETURN RESTORE GOSUB [:wKb�{CMD CLR {
{IF GOTO IF IF RETURN SAVE IF ON GOSUB STOP IF IF IF IF RESTORE RESTORE RETURN ON LOAD ON LOAD RETURN WAIT WAIT GOSUB RESTORE ON RESTORE ON IF GOSUB SAVE WAIT RETURN SAVE RETURN WAIT SAVE LOAD LOAD GOSUB LOAD [zxLb�{CMD CLR {
{IF GOTO IF IF IF SAVE WAIT ON STOP ON GOSUB STOP IF IF IF GOSUB LOAD REM GOSUB RESTORE WAIT IF SAVE REM RETURN IF REM IF REM IF IF WAIT REM RETURN REM LOAD REM REM SAVE WAIT IF WAIT [SQR xMb�{CMD CLR {
{IF GOTO IF IF IF GOSUB REM REM RESTORE REM IF ON GOSUB STOP IF IF WAIT RESTORE IF STOP REM GOSUB WAIT RETURN STOP WAIT ON IF RESTORE IF IF RESTORE LOAD STOP LOAD WAIT RESTORE RESTORE GOSUB REM GOSUB WAIT [�xNb�{CMD CLR {
{IF GOTO IF IF IF IF ON RESTORE IF RETURN STOP RESTORE STOP ON GOSUB STOP RESTORE WAIT WAIT ON RETURN STOP ON LOAD RETURN SAVE REM IF IF GOSUB STOP IF REM ON REM ON WAIT WAIT LOAD RESTORE IF WAIT [:xOb�{CMD CMD {
{IF GOTO IF IF IF IF RESTORE STOP GOSUB STOP LOAD WAIT LOAD SAVE IF ON GOSUB SAVE REM REM IF LOAD SAVE GOSUB IF SAVE LOAD STOP IF IF ON GOSUB ON RESTORE ON RESTORE ON SAVE REM STOP GOSUB WAIT [yyPb�{CMD CMD {
{IF GOTO IF IF IF IF IF RETURN LOAD RESTORE REM ON SAVE WAIT GOSUB ON STOP WAIT RETURN ON IF GOSUB GOSUB RETURN IF GOSUB REM ON GOSUB STOP RESTORE STOP ON STOP REM IF REM GOSUB RETURN ON RETURN GOSUB [FRE ySb�{CMD CMD {
{IF GOTO IF IF IF IF IF IF SAVE STOP RETURN ON WAIT REM RETURN RESTORE ON REM RETURN REM IF IF STOP STOP WAIT STOP ON RESTORE STOP ON GOSUB LOAD SAVE RESTORE RETURN STOP RESTORE IF STOP SAVE IF LOAD [�yJb�{CMD CMD {
{IF GOTO IF IF IF IF IF IF GOSUB RETURN LOAD REM RESTORE LOAD STOP WAIT SAVE RESTORE IF LOAD STOP IF RESTORE RETURN SAVE RETURN SAVE IF RETURN SAVE IF WAIT GOSUB GOSUB LOAD RETURN WAIT WAIT ON REM WAIT WAIT [7yKb�{CMD CMD {
{IF GOTO IF IF IF IF IF IF IF STOP SAVE ON IF REM ON REM REM WAIT WAIT WAIT RESTORE GOSUB STOP RETURN REM LOAD REM WAIT STOP SAVE WAIT ON LOAD IF WAIT IF SAVE REM REM RESTORE RESTORE SAVE [vzLb�{CMD CMD {
{IF GOTO IF IF IF IF IF IF IF RESTORE REM SAVE IF RESTORE RESTORE ON RESTORE RESTORE SAVE REM GOSUB LOAD RESTORE RETURN RETURN WAIT RESTORE RESTORE LOAD SAVE SAVE REM GOSUB IF RESTORE WAIT WAIT RETURN ON IF RETURN [ABS zMb�{CMD CMD {
{IF GOTO IF IF IF IF IF IF IF IF RETURN WAIT GOSUB STOP GOSUB SAVE IF GOSUB SAVE LOAD STOP WAIT IF RETURN RETURN REM GOSUB WAIT SAVE WAI{STOP [w{�c�{RESTORE IF GOSUB REM {{SYS TAB( SPC( + GET GET {{RETURN READ {SAVE IF [" STR$ REM cREM GOSUB {MD {{- SYS [zgcNEW {
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 3, A:POKE 55296 + CHKOFF + 3, B
2910 POKE 03397, 00195 : POKE 03398, 00032 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 4, 81:POKE 55296 + CHKOFF + 4, 7
2004 ES = 08601 : EE = 09868 : EK = 184
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 4, 87
20258 SYS h�hxv~~~~~~~~~~~yz{y~z{}~|yh�hxvxxxxxxxxxz{zEND {x~|{~}{END ~FOR ~zEND FOR x~z}hNEXT hREM h�hxHIj,ORUN GOTO h�hphpPRINT# lth}thyqhqHcj-ORUN RUN h�hphpPRINT# lth~thyqhqH}j.ORUN IF h�hphpPRINT# lththyqhqH�j1OPRINT# xh�hxNEXT PRINT# yh�hxNEXT PRINT# zh�hxNEXT PRINT# {h�hxNEXT PRINT# |h�hxNEXT PRINT# }h�hxNEXT PRINT# ~h�hxNEXT PRINT# h�hxNEXT PRINT# END h�hxNEXT PRINT# FOR h�hxNEXT PRINT# GOTO h�hxNEXT PRINT# RUN h�hxNEXT PRINT# IF h�hxHj6O�hRUN GOTO h�hyzEND h�hPRINT# xh�hxvx~z}xxxxxxxyEND yEND FOR END FOR |x{}|}END }~|}END {xxEND yz}H[k7O�hRUN RUN h�hyh�hPRINT# yh�hxvxy}~z}xxxxxx|}||{}xEND END ~|~|yyEND FOR }}yFOR }{yzHCONT k8O�hRUN RUN h�hzh�hPRINT# zh�hxvxx{FOR x~z}xxxxyy{~END ~END {zy~y~xzFOR {FOR {FOR END END zEND H�k9O�hRUN RUN h�h|h�hPRINT# {h�hxvxxxFOR ~}~z}xxxzEND |zyxFOR |{x|x|xx|{|END ||FOR xHk:O�hRUN RUN h�hEND h�hPRINT# |h�hxvxxxz||y|x~z}xxyx}|z{}~xyxxyEND }END yyz|zHXl;O�hRUN RUN h�hy~h�hPRINT# }h�hxvxxxx~yx{}y}~z}y~{}~END {FOR |xxz}x|~|~END yxHPRINT# l<O�hRUN RUN h�h{zh�hPRINT# ~h�hxvxxxxy}z}END END FOR x~zFOR ||xEND FOR zxFOR END }xx~z~y~y~FOR |}zH�l=O�hRUN RUN h�h~|h�hPRINT# h�hxvxxxxx{END y|~FOR z~}{~xzz{xz|~z}y}~}|x|z{~{zHl@O�hRUN RUN h�hyzEND h�hPRINT# END h�hxvxxxxxxFOR }{~|{y~|{|xx}}}~y}~zEND FOR y{}yx}FOR xEND HXm7O�hRUN IF h�hyh�hPRINT# FOR h�hxvxxxxxxz{END |yEND }FOR yxEND }xy{FOR {FOR x{FOR xzzEND {~|HPOKE m8O�hRUN IF h�hzh�hPRINT# GOTO h�hxvxxxxxxx}FOR ~x|~||yz}{|END |}FOR ~END xxFOR ||yyFOR H�m9O�hRUN IF h�h|h�hPRINT# RUN h�hxvxxxxxxxy|FOR xyy~yyFOR |zEND y{{yyEND FOR FOR |zxy{~x{Hm:O�hRUN IF h�hEND h�hPRINT# IF h�hxvxxxxxxxx{z}zFOR xzFOR END }x{{|zFOR |END }}x||{|xxH_nJPLOAD h�hSYS h�hPRINT# xh�hPRINT# yh�hPRINT# zh�hPRINT# {h�hPRINT# |h�hPRINT# }h�hPRINT# ~h�hPRINT# h�hPRINT# END h�hPRINT# FOR h�hPRINT# GOTO h�hPRINT# RUN h�hPRINT# IF HynTPREM h�hxv~~~|{xx}{{HCONT n|PCLR {h�hLOAD h�hREM hNEXT hGOTO h�hEND ~hNEXT hRUN h�hyxHPOS n�P�hCLR {h�h�yh�hGOTO h�hEND {hNEXT hRUN h�h}H�n�P�hyxz|h�hIF STOP LOAD POKE RETURN RETURN h�h|thFOR xHLOAD &STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 4, A:POKE 55296 + CHKOFF + 4, B
2910 POKE 03397, 00052 : POKE 03398, 00039 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 5, 81:POKE 55296 + CHKOFF + 5, 7
2004 ES = 10250 : EE = 11483 : EK = 199
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 5, 87
16403 REM Y�YigooooooooooojkljoklnomjYsYEND Y�Yi9DIM a@{|Y�Y�aYaGOTO ]eYreYjbYb9CLOSE a@{zY�Y�aYaGOTO ]eYpeYjbYb9SQR a@{{Y�Y�aYaGOTO ]eYqeYjbYb9a"@GOTO iY�YisGOTO jY�YisGOTO kY�YisGOTO lY�YisGOTO mY�YisGOTO nY�YisGOTO oY�YisGOTO pY�YisGOTO qY�YisGOTO rY�YisGOTO zY�YisGOTO {Y�YisGOTO |Y�Yi9Xb'@STR$ Y{zY�YjoY�YGOTO iY�Yigiokniiiiiiijqjqrqrmilnmnqnompnqliipqjkn9PRINT# b(@STR$ Y{zY�YlkY�YGOTO jY�Yigijnokniiiiiimnmpmplniqqomomjjqrnpnjrnljk9�b)@STR$ Y{zY�YomY�YGOTO kY�Yigiilriokniiiijjloqoqlppkjojoikrplrlprqqkq9b*@STR$ Y{zY�YjkqY�YGOTO lY�Yigiiirponokniiikqmkjpirmlimimiipmlmqmmrpip9Xc+@STR$ Y{{Y�YjY�YGOTO mY�Yigiiikmmjmiokniipjinmkplnpoijiijqnqpjjkmkp9POKE c,@STR$ Y{{Y�YkY�YGOTO nY�Yigiiiiojilnjnoknjppolnoqlrmiiknimomoppqjip9�c-@STR$ Y{{Y�YmY�YGOTO oY�Yigiiiijnknqpqriokrmmiqrkirqniiokojojormnkp9c.@STR$ Y{{Y�YqY�YGOTO pY�Yigiiiiilqjmorpkonploikklikmoknjnonmimklolk9Ud1@STR$ Y{{Y�YjoY�YGOTO qY�Yigiiiiiirnlopmljomlmiinnpnojnokqrjlnjinriq9VERIFY d(@STR$ Y{{Y�YlkY�YGOTO rY�Yigiiiiiiklqmjqnprjiqnijlrlrilripkkqlppompp9�d)@STR$ Y{{Y�YomY�YGOTO zY�Yigiiiiiiinroimommpppjknlmqmpnrpoqipirmmjjr9d*@STR$ Y{{Y�YjkqY�YGOTO {Y�Yigiiiiiiijmrijjojjrmkqjllpjjqrrmkijpploil9Te+@STR$ Y{|Y�YjY�YGOTO |Y�Yigiiiiiiiilpknkrikrqnpillmkprpmqnnimmlmiip9OPEN e;AINPUT# Y�YREM Y�YGOTO iY�YGOTO jY�YGOTO kY�YGOTO lY�YGOTO mY�YGOTO nY�YGOTO oY�YGOTO pY�YGOTO qY�YGOTO rY�YGOTO zY�YGOTO {Y�YGOTO |9POS eEAEND Y�Yigoqkljiqillkppmi9�emAGOSUB mY�YINPUT# Y�YEND YsYzY�YqoYsY{Y�Yji9�e�ASTR$ YGOSUB mY�Y�jY�YzY�YqlYsY{Y�Yn9e�A�YjikmY�Y|FOR INPUT# LET Y�YneYri9�,STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 5, A:POKE 55296 + CHKOFF + 5, B
2910 POKE 03397, 00131 : POKE 03398, 00045 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 6, 81:POKE 55296 + CHKOFF + 6, 7
2004 ES = 11865 : EE = 13107 : EK = 240
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 6, 87
6122 f0PEEK 0@>FFFFFFFFFFFABCAFBCEFDA0RND 0@>@@@@@@@@@DFEFFABHGC@GGCIBEGHABE@0J0W0PEEK 0@�>�RQ0PEEK 0�80�8`4<0I<0A909�>�RR0PEEK 0�80�8`4<0A@<0A909K?�`@0PEEK 0@J`A0PEEK 0@J`B0PEEK 0@J`C0PEEK 0@J`D0PEEK 0@J`E0PEEK 0@J`F0PEEK 0@J`G0PEEK 0@J`H0PEEK 0@J`I0PEEK 0@J`Q0PEEK 0@J`R0PEEK 0@J`S0PEEK 0@GOTO ?�LIST 0RQ0SIN 0B0USR 0`@0PEEK 0@>@FBE@@@@@@@AHAHIHID@CEDEHEFDGEHC@@GHABELEFT$ ?�LIST 0RQ0SIN 0D0USR 0`A0PEEK 0@>@AEFBE@@@@@@DEDGDGCE@HHFDFDAAHIEGEAIECAB?
21040 Q0SIN 0H0USR 0`B0PEEK 0@>@@CI@FBE@@@@AACFHFHCGGBAFAF@BIGCICGIHHBHG@LIST 0RQ0SIN 0AF0USR 0`C0PEEK 0@>@@@IGFEFBE@@@BHDBAG@IDC@D@D@@GDCDHDDIG@GREAD @LIST 0RQ0SIN 0CB0USR 0`D0PEEK 0@>@@@BDDAD@FBE@@GA@EDBGCEGF@A@@AHEHGAABDBGCHR$ @LIST 0RQ0SIN 0FD0USR 0`E0PEEK 0@>@@@@FA@CEAEFBEAGGFCEFHCID@@BE@DFDFGGHA@G@LIST 0RQ0SIN 0ABH0USR 0`F0PEEK 0@>@@@@AEBEHGHI@FBIDD@HIB@IHE@@FBFAFAFIDEBGGALIST 0RR0SIN 0A0USR 0`G0PEEK 0@>@@@@@CHADFIGBFEGCF@BBC@BDFBEAEFED@DBCFCBDIM LIST 0RR0SIN 0B0USR 0`H0PEEK 0@>@@@@@@IECFGDCAFDCD@@EEGEFAEFBHIACEA@EI@HVAL A�LIST 0RR0SIN 0D0USR 0`I0PEEK 0@>@@@@@@BCHDAHEGIA@HE@ACICI@CI@GBBHCGGFDGGA
21040 R0SIN 0H0USR 0`Q0PEEK 0@>@@@@@@@EIF@DFDDGGGABECDHDGEIGFH@G@IDDAAICBLIST 0RR0SIN 0AF0USR 0`R0PEEK 0@>@@@@@@@ADI@AAFAAIDBHACCGAAHIIDB@AGGCF@CDATA BLIST 0RR0SIN 0CB0USR 0`S0PEEK 0@>@@@@@@@@CGBEBI@BIHEG@CCDBGIGDHEE@DDCD@@G�B[0PEEK 0f0SQR 0`@0SQR 0`A0SQR 0`B0SQR 0`C0SQR 0`D0SQR 0`E0SQR 0`F0SQR 0`G0SQR 0`H0SQR 0`I0SQR 0`Q0SQR 0`R0SQR 0`S�BW0PEEK 0@>FG@FCHGCDID@DG@ BDdE0PEEK 0[0PEEK 0W0J0Q0PEEK 0HF0J0R0PEEK 0A@(CNOT LIST 0dE0PEEK 0RND A0USR 0Q0PEEK 0HC0J0R0PEEK 0EDC= THEN 0A@BD0SQR 0SX[_VV0SQR 0F<0I@:3STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 6, A:POKE 55296 + CHKOFF + 6, B
2910 POKE 03397, 00219 : POKE 03398, 00051 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 7, 81:POKE 55296 + CHKOFF + 7, 7
2004 ES = 13489 : EE = 14760 : EK = 249
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 7, 87
3809 ]'POS '75===========89:8=9:<=;8'= '75777777777;=<==89?>:7>>:@9<>?89<7'A'N'POS '7!<�IH'POS '�/'�/W+3'873'80'0<<�II'POS '�/'�/W+3'883'80'0W<�IJ'POS '�/'�/W+3'893'80'0ABS <�W7'POS '7AW8'POS '7AW9'POS '7AW:'POS '7AW;'POS '7AW<'POS '7AW='POS '7AW>'POS '7AW?'POS '7AW@'POS '7AWH'POS '7AWI'POS '7AWJ'POS '7�<�WAIT 'IH'ABS '=;'^ 'W7'POS '757=9<77777778?8?@?@;7:<;<?<=;><?:77>?89<6=�WAIT 'IH'ABS '89?'^ 'W8'POS '7578<=9<777777;<;>;>:<7??=;=;88?@<><8@<:89u=�WAIT 'II'ABS '8'^ 'W9'POS '7577:@7=9<777788:=?=?:>>98=8=79@>:@:>@??9?SGN =�WAIT 'II'ABS '9'^ 'W:'POS '75777@>=<=9<7779?;98>7@;:7;7;77>;:;?;;@>7>�=�WAIT 'II'ABS ';'^ 'W;'POS '757779;;8;7=9<77>87<;9>:<>=78778?<?>889;9>2>�WAIT 'II'ABS '?'^ 'W<'POS '757777=87:<8<=9<8>>=:<=?:@;779<7;=;=>>?87>r>�WAIT 'II'ABS '8='^ 'W='POS '7577778<9<?>?@7=9@;;7?@97@?<77=9=8=8=@;<9>= >�WAIT 'II'ABS ':9'^ 'W>'POS '7577777:?8;=@>9=<>:=799:79;=9<8<=<;7;9:=:9�>�WAIT 'II'ABS '=;'^ 'W?'POS '75777777@<:=>;:8=;:;77<<><=8<=9?@8:<87<@7?3?�WAIT 'II'ABS '89?'^ 'W@'POS '757777779:?;8?<>@87?<78:@:@7:@7>99?:>>=;>>r?�WAIT 'IJ'ABS '8'^ 'WH'POS '757777777<@=7;=;;>>>89<:;?;><@>=?7>7@;;88@OR ?�WAIT 'IJ'ABS '9'^ 'WI'POS '7577777778;@788=88@;9?8::>88?@@;978>>:=7:�?�WAIT 'IJ'ABS ';'^ 'WJ'POS '7577777777:>9<9@79@?<>7::;9>@>;?<<7;;:;77>:@ R'POS ']'> 'W7'> 'W8'> 'W9'> 'W:'> 'W;'> 'W<'> 'W='> 'W>'> 'W?'> 'W@'> 'WH'> 'WI'> 'WJT@N'POS '75>9@;9>7@;87<==8u@;[='POS 'R'POS 'N'A'H'POS '?='A'I'POS '87SAVE @OPEN WAIT '[='POS '= 8'^ 'H'POS '?:'A'I'POS '<OR @STEP SYS '879;'> 'JORVMM'> '>3'@7AND 9STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 7, A:POKE 55296 + CHKOFF + 7, B
2910 POKE 03397, 00080 : POKE 03398, 00058 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 8, 81:POKE 55296 + CHKOFF + 8, 7
2004 ES = 15142 : EE = 16351 : EK = 132
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 8, 87
33622 �CLR .CLR * + = = = = = = = = = = = / ^ AND / = ^ AND > = OR / CLR ABS CLR LEN CLR .CLR * |�USR `DATA COS EXP CLR .CLR BTO CLR FTO �CLOSE NOT CLR / ^ NOT CLR / FN CLR FN |USR aDATA COS COS CLR .CLR BTO CLR FTO �CLOSE NOT CLR / AND NOT CLR / FN CLR FN |`USR eDATA �* CLR .CLR * ABS �/ CLR .CLR * ABS �^ CLR .CLR * ABS �AND CLR .CLR * ABS �OR CLR .CLR * ABS �> CLR .CLR * ABS �= CLR .CLR * ABS �< CLR .CLR * ABS �SGN CLR .CLR * ABS �INT CLR .CLR * ABS �EXP CLR .CLR * ABS �COS CLR .CLR * ABS �SIN CLR .CLR * |SYS FRE jDATA CLR COS EXP CLR +CLR SGN CLR #CLR �* CLR .CLR * + * = ^ > * * * * * * * / SGN / SGN INT SGN INT OR * AND > OR > SGN > = OR < > SGN AND * * < SGN / ^ > |�FRE kDATA CLR COS EXP CLR +CLR / = CLR #CLR �/ CLR .CLR * + * / > = ^ > * * * * * * OR > OR < OR < AND > * SGN SGN = OR = OR / / SGN INT > < > / INT > AND / ^ |FRE lDATA CLR COS EXP CLR +CLR AND ^ CLR #CLR �^ CLR .CLR * + * * AND INT * = ^ > * * * * / / AND = SGN = SGN AND < < ^ / = / = * ^ INT < AND INT AND < INT SGN SGN ^ SGN |^FRE mDATA CLR COS EXP CLR +CLR = OR CLR #CLR �AND CLR .CLR * + * * * INT < = > = ^ > * * * ^ SGN OR ^ / < * INT OR AND * OR * OR * * < OR AND OR SGN OR OR INT < * < |OPEN POS nDATA CLR COS EXP CLR +CLR / ^ SGN CLR #CLR �OR CLR .CLR * + * * * ^ OR OR / OR * = ^ > * * < / * > OR ^ < AND > < = * / * * / SGN > SGN < / / ^ OR ^ < |�POS oDATA CLR COS COS CLR +CLR / CLR #CLR �> CLR .CLR * + * * * * = / * AND > / > = ^ > / < < = AND > = SGN AND INT OR * * ^ > * OR = OR = < < SGN / * < |POS pDATA CLR COS COS CLR +CLR ^ CLR #CLR �= CLR .CLR * + * * * * / > ^ > SGN < SGN INT * = ^ INT OR OR * SGN INT ^ * INT SGN > * * = ^ = / = / = INT OR > ^ < |\POS qDATA CLR COS COS CLR +CLR OR CLR #CLR �< CLR .CLR * + * * * * * AND SGN / OR = INT < ^ = > < AND = * ^ ^ AND * ^ OR = ^ > / > = > OR * OR ^ AND = AND ^ |LIST SQR tDATA CLR COS COS CLR +CLR SGN CLR #CLR �SGN CLR .CLR * + * * * * * * INT > AND = < OR AND / = OR AND OR * * > > < > = / > = ^ SGN INT / AND > / * > INT * SGN |�SQR kDATA CLR COS COS CLR +CLR / = CLR #CLR �INT CLR .CLR * + * * * * * * ^ AND SGN OR / SGN > < INT / * SGN > * / AND INT AND INT * AND INT * < ^ ^ SGN AND < < = OR < < |SQR lDATA CLR COS COS CLR +CLR AND ^ CLR #CLR �EXP CLR .CLR * + * * * * * * * > INT = * OR = OR OR < < < / ^ > AND OR SGN OR < > INT < = SGN * < * INT OR OR / / INT |ZSQR mDATA CLR COS COS CLR +CLR = OR CLR #CLR �COS CLR .CLR * + * * * * * * * / OR INT * / / = / / INT OR ^ SGN / AND AND < / / SGN INT INT OR ^ * / < < AND = * AND |LIST RND nDATA CLR COS COS CLR +CLR / ^ SGN CLR #CLR �SIN CLR .CLR * + * * * * * * * * AND < ^ > ^ INT * ^ INT SGN > < * AND AND OR ^ < INT < OR SGN > > * OR OR AND OR * * < |�RND ~INPUT# CHR$ CLR .CLR �CLR &CLR �* CLR &CLR �/ CLR &CLR �^ CLR &CLR �AND CLR &CLR �OR CLR &CLR �> CLR &CLR �= CLR &CLR �< CLR &CLR �SGN CLR &CLR �INT CLR &CLR �EXP CLR &CLR �COS CLR &CLR �SIN |
50052 CLR .CLR * + = SGN AND AND AND OR * INT ^ / OR AND INT > AND |!RND OR INPUT# �< CLR .CLR CHR$ CLR .CLR LEN CLR ABS CLR EXP CLR .CLR SGN = CLR ABS CLR COS CLR .CLR / * |@RND INPUT# CLR �< CLR .CLR '/ CLR #CLR EXP CLR .CLR SGN AND CLR ABS CLR COS CLR .CLR > |\RND INPUT# CLR / * ^ OR CLR &CLR SIN STR$ CHR$ GO PEEK PEEK CLR &CLR SGN NOT CLR INT * |�?STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 8, A:POKE 55296 + CHKOFF + 8, B
2910 POKE 03397, 00135 : POKE 03398, 00064 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 9, 81:POKE 55296 + CHKOFF + 9, 7
2004 ES = 16733 : EE = 17975 : EK = 186
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 9, 87
19744 CLR f�fvt|||||||||||wxyw|xy{|zwf�fvtvvvvvvvvvxyx~yv|zy|{y~||x~v|x{fEND fGOSUB f�fvF
READ *MLET READ f�f
nfnDEF jrfwzrfwofoF'READ +MLET LET f�f
nfnDEF jrfw{rfwofoFDIM LET /MDEF vf�fvEND DEF wf�fvEND DEF xf�fvEND DEF yf�fvEND DEF zf�fvEND DEF {f�fvEND DEF |f�fvEND DEF }f�fvEND DEF ~f�fvEND DEF f�fvEND DEF READ f�fvEND DEF LET f�fvEND DEF GOTO f�fvFSTR$ LET 4M�fLET READ f�fwf�fDEF vf�fvtv|x{vvvvvvvw~w~~zvy{z{~{|z}{~yvv}~wx{FLET 5M�fLET READ f�fxf�fDEF wf�fvtvw{|x{vvvvvvz{z}z}y{v~~|z|zww~{}{w{ywxFBLET 6M�fLET READ f�fzf�fDEF xf�fvtvvyv|x{vvvvwwy|~|~y}}xw|w|vx}yy}~~x~FFOR GOTO 7M�fLET READ f�f~f�fDEF yf�fvtvvv}|{|x{vvvx~zxw}vzyvzvzvv}zyz~zz}v}FATN GOTO 8M�fLET READ f�fw|f�fDEF zf�fvtvvvxzzwzv|x{vv}wv{zx}y{}|vwvvw~{~}wwxzx}FGOTO 9M�fLET READ f�fyxf�fDEF {f�fvtvvvv|wvy{w{|x{w}}|y{|~yzvvx{vz|z|}}~wv}FAGOTO :M�fLET READ f�f|zf�fDEF |f�fvtvvvvw{x{~}~v|xzzv~xv~{vv|x|w|w|z{x}FNEXT RUN ;M�fLET READ f�fwx~f�fDEF }f�fvtvvvvvy~wz|}x|{}y|vxxyvxz|x{w{|{zvzxy|yxFATN RUN >M�fLET LET f�fwf�fDEF ~f�fvtvvvvvv{y|}zyw|zyzvv{{}{|w{|x~wy{wv{v~F
53581 fLET LET f�fxf�fDEF f�fvtvvvvvvxy~zw~{}wv~{vwyyvyv}xx~y}}|z}}F?RUN 6M�fLET LET f�fzf�fDEF READ f�fvtvvvvvvv{|vz|zz}}}wx{yz~z}{}|~v}vzzwwF}IF 7M�fLET LET f�f~f�fDEF LET f�fvtvvvvvvvwzvww|wwzx~wyy}ww~zxvw}}y|vyFEXP IF 8M�fLET LET f�fw|f�fDEF GOTO f�fvtvvvvvvvvy}x{xvx~{}vyyzx}}z~{{vzzyzvv}IF HNON f�fCLR f�fDEF vf�fDEF wf�fDEF xf�fDEF yf�fDEF zf�fDEF {f�fDEF |f�fDEF }f�fDEF ~f�fDEF f�fDEF READ f�fDEF LET f�fDEF GOTO F"IF RNGOSUB f�fvt}xw~xxy~xxzxzFCIF zNCONT ~f�fON f�fGOSUB fEND fREAD f�f~|fEND fLET f�fwvFbRESTORE �N�fCONT ~f�f�wf�fREAD f�f~yfEND fLET f�f{F~RESTORE �N�fwvxzf�fGOTO RETURN ON VERIFY RESTORE RESTORE f�frfvF>FSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 9, A:POKE 55296 + CHKOFF + 9, B
2910 POKE 03397, 00223 : POKE 03398, 00070 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 10, 81:POKE 55296 + CHKOFF + 10, 7
2004 ES = 18360 : EE = 19633 : EK = 214
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 10, 87
12548 END J�JZX```````````[\][`\]_`^[J�JZXZZZZZZZZZ^`_``[\ba]Zaa]c\_ab[\_ZJdJqJ�JZ*Kr1lmJ�J�RJ�RzNVJ[aVJ[SJS*fr1lkJ�J�RJ�RzNVJ[_VJ[SJS*FOR r1llJ�J�RJ�RzNVJ[`VJ[SJS*�r1zZJ�JZdz[J�JZdz\J�JZdz]J�JZdz^J�JZdz_J�JZdz`J�JZdzaJ�JZdzbJ�JZdzcJ�JZdzkJ�JZdzlJ�JZdzmJ�JZ*r1INT JlkJ�J]\J�JzZJ�JZXZ`\_ZZZZZZZ[b[bcbc^Z]_^_b_`^a_b]ZZab[\_*_s1INT JlkJ�J`^J�Jz[J�JZXZ[_`\_ZZZZZZ^_^a^a]_Zbb`^`^[[bc_a_[c_][\*CLOSE s1INT JlkJ�J[\bJ�Jz\J�JZXZZ]cZ`\_ZZZZ[[]`b`b]aa\[`[`Z\ca]c]acbb\b*�s1INT JllJ�J[J�Jz]J�JZXZZZca`_`\_ZZZ\b^\[aZc^]Z^Z^ZZa^]^b^^caZa*s1INT JllJ�J\J�Jz^J�JZXZZZ\^^[^Z`\_ZZa[Z_^\a]_a`Z[ZZ[b_ba[[\^\a*]t1INT JllJ�J^J�Jz_J�JZXZZZZ`[Z]_[_`\_[aa`]_`b]c^ZZ\_Z^`^`aab[Za*CLR t1INT JllJ�JbJ�Jz`J�JZXZZZZ[_\_babcZ`\c^^Zbc\Zcb_ZZ`\`[`[`c^_\a*�t1INT JllJ�J[`J�JzaJ�JZXZZZZZ]b[^`ca\`_a]`Z\\]Z\^`\_[_`_^Z^\]`]\*t"1INT JllJ�J]\J�JzbJ�JZXZZZZZZc_]`a^][`^]^ZZ__a_`[_`\bc[]_[Z_cZb*\u1INT JllJ�J`^J�JzcJ�JZXZZZZZZ\]b^[b_ac[Zb_Z[]c]cZ]cZa\\b]aa`^aa*CMD u1INT JllJ�J[\bJ�JzkJ�JZXZZZZZZZ_c`Z^`^^aaa[\_]^b^a_ca`bZaZc^^[[c*�u1INT JlmJ�J[J�JzlJ�JZXZZZZZZZ[^cZ[[`[[c^\b[]]a[[bcc^\Z[aa]`Z]*u1INT JlmJ�J\J�JzmJ�JZXZZZZZZZZ]a\_\cZ\cb_aZ]]^\aca^b__Z^^]^ZZa*ev,2uJ�JEND J�JzZJ�Jz[J�Jz\J�Jz]J�Jz^J�Jz_J�Jz`J�JzaJ�JzbJ�JzcJ�JzkJ�JzlJ�Jzm*v62qJ�JZX`b\]_\c_^cba^`a*CLOSE v^2~cJ�JuJ�JqJdJkJ�Jb`JdJlJ�J[Z*SIN vPEEK 2INT J~cJ�J�[J�JkJ�Jb]JdJlJ�J_*�v�2ATN J[Z\^J�JmruyppJ�J[ZVJcZ*FRE LSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 10, A:POKE 55296 + CHKOFF + 10, B
2910 POKE 03397, 00091 : POKE 03398, 00077 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 11, 81:POKE 55296 + CHKOFF + 11, 7
2004 ES = 20020 : EE = 21265 : EK = 245
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 11, 87
4837 a+EXP +;9AAAAAAAAAAA<=><A=>@A?<+ABS +;9;;;;;;;;;?A@AA<=CB>;BB>D=@BC<=@;+E+R+EXP +;
NOT Y�ML+EXP +�3+�3[/7+<B7+<4+4
LEN Y�MM+EXP +�3+�3[/7+<C7+<4+4
"Z�[;+EXP +;E[<+EXP +;E[=+EXP +;E[>+EXP +;E[?+EXP +;E[@+EXP +;E[A+EXP +;E[B+EXP +;E[C+EXP +;E[D+EXP +;E[L+EXP +;E[M+EXP +;E[N+EXP +;
`Z�DEF +ML+SQR +?+= +[;+EXP +;9;A=@;;;;;;;<C<CDCD?;>@?@C@A?B@C>;;BC<=@
OPEN Z�DEF +ML+SQR +C+= +[<+EXP +;9;<@A=@;;;;;;?@?B?B>@;CCA?A?<<CD@B@<D@><=
�Z�DEF +ML+SQR +<A+= +[=+EXP +;9;;>D;A=@;;;;<<>ACAC>BB=<A<A;=DB>D>BDCC=C
[�DEF +ML+SQR +>=+= +[>+EXP +;9;;;DBA@A=@;;;=C?=<B;D?>;?;?;;B?>?C??DB;B
_[�DEF +ML+SQR +A?+= +[?+EXP +;9;;;=??<?;A=@;;B<;@?=B>@BA;<;;<C@CB<<=?=B
CLOSE [�DEF +ML+SQR +<=C+= +[@+EXP +;9;;;;A<;>@<@A=@<BBA>@AC>D?;;=@;?A?ABBC<;B
�[�DEF +MM+SQR +<+= +[A+EXP +;9;;;;<@=@CBCD;A=D??;CD=;DC@;;A=A<A<AD?@=B
\
19755 M+SQR +=+= +[B+EXP +;9;;;;;>C<?ADB=A@B>A;==>;=?A=@<@A@?;?=>A>=
]\DEF +MM+SQR +?+= +[C+EXP +;9;;;;;;D@>AB?><A?>?;;@@B@A<@A=CD<>@<;@D;C
CLR \�DEF +MM+SQR +C+= +[D+EXP +;9;;;;;;=>C?<C@BD<;C@;<>D>D;>D;B==C>BBA?BB
�\�DEF +MM+SQR +<A+= +[L+EXP +;9;;;;;;;@DA;?A??BBB<=@>?C?B@DBAC;B;D??<<D
]�DEF +MM+SQR +>=+= +[M+EXP +;9;;;;;;;<?D;<<A<<D?=C<>>B<<CDD?=;<BB>A;>
[]�DEF +MM+SQR +A?+= +[N+EXP +;9;;;;;;;;>B=@=D;=DC@B;>>?=BDB?C@@;??>?;;B
V+EXP +a+INT +[;+INT +[<+INT +[=+INT +[>+INT +[?+INT +[@+INT +[A+INT +[B+INT +[C+INT +[D+INT +[L+INT +[M+INT +[N
TAN ]R+EXP +;9B?@BAD=@B<D<@DD
�]?_L+EXP +V+EXP +R+E+L+EXP +CA+E+M+EXP +<;
38419 +_L+EXP +ABS <+= +L+EXP +C>+E+M+EXP +@
^/ NEW +<;=?+INT +NSVZQQ+INT +<<7+D;
SSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 11, A:POKE 55296 + CHKOFF + 11, B
2910 POKE 03397, 00187 : POKE 03398, 00083 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 12, 81:POKE 55296 + CHKOFF + 12, 7
2004 ES = 21652 : EE = 22923 : EK = 203
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 12, 87
15375 IF U�UeckkkkkkkkkkkfghfkghjkifU�UeceeeeeeeeeghgmhekihkjhmknkgmnekgjUoU|U�Ue52GOTO <wvU�U�]U�]INPUT YaUfmaUf^U^5MRUN <wwU�U�]U�]INPUT YaUfnaUf^U^5hRUN <wxU�U�]U�]INPUT YaUgeaUf^U^5CHR$ RUN <INPUT eU�UeoINPUT fU�UeoINPUT gU�UeoINPUT hU�UeoINPUT iU�UeoINPUT jU�UeoINPUT kU�UeoINPUT lU�UeoINPUT mU�UeoINPUT nU�UeoINPUT vU�UeoINPUT wU�UeoINPUT xU�Ue5RUN #<TAN UwvU�UfgmU�UINPUT eU�Uecekgjeeeeeeefmfmnmniehjijmjkiljmheelmfgj5FIF $<TAN UwwU�UfU�UINPUT fU�Uecefjkgjeeeeeeijililhjemmkikiffmnjljfnjhfg5INPUT IF %<TAN UwwU�UgU�UINPUT gU�Ueceehnekgjeeeeffhkmkmhllgfkfkegnlhnhlnmmgm5STR$ IF &<TAN UwwU�UiU�UINPUT hU�Ueceeenlkjkgjeeegmigfleniheieieelihimiinlel5IF '<TAN UwwU�UmU�UINPUT iU�Ueceeegiifiekgjeelfejiglhjlkefeefmjmlffgigl5CRESTORE (<TAN UwwU�UfkU�UINPUT jU�Ueceeeekfehjfjkgjfllkhjkmhnieegjeikikllmfel5DATA RESTORE )<TAN UwwU�UhgU�UINPUT kU�Ueceeeefjgjmlmnekgniiemngenmjeekgkfkfknijgl5LEN RESTORE *<TAN UwwU�UkiU�UINPUT lU�Ueceeeeehmfiknlgkjlhkegghegikgjfjkjieighkhg5RESTORE -<TAN UwwU�UfgmU�UINPUT mU�Ueceeeeeenjhklihfkihieejjljkfjkgmnfhjfejnem5CGOSUB $<TAN UwxU�UfU�UINPUT nU�Ueceeeeeeghmifmjlnfemjefhnhnehnelggmhllkill5NEXT GOSUB %<TAN UwxU�UgU�UINPUT vU�Ueceeeeeeejnkeikiilllfgjhimiljnlkmeleniiffn5TAN GOSUB &<TAN UwxU�UiU�UINPUT wU�Ueceeeeeeefineffkffnigmfhhlffmnnigefllhkeh5�GOSUB '<TAN UwxU�UmU�UINPUT xU�Ueceeeeeeeehlgjgnegnmjlehhiglnlimjjeiihieel5JRETURN 7=END U�UIF U�UINPUT eU�UINPUT fU�UINPUT gU�UINPUT hU�UINPUT iU�UINPUT jU�UINPUT kU�UINPUT lU�UINPUT mU�UINPUT nU�UINPUT vU�UINPUT wU�UINPUT x5dRETURN A=|U�Ueckkklihgfljefmge5INPUT RETURN i=GOTO wU�UEND U�U|UoUvU�UmkUoUwU�Ufe5TO RETURN �=TAN UGOTO wU�U�fU�UvU�UmhUoUwU�Uj5ATN RETURN �=�UfegiU�Ux}END INPUT# {{U�UfgaUne5WAIT YSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 12, A:POKE 55296 + CHKOFF + 12, B
2910 POKE 03397, 00053 : POKE 03398, 00090 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 13, 81:POKE 55296 + CHKOFF + 13, 7
2004 ES = 23310 : EE = 24584 : EK = 223
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 13, 87
10491 wA�AQOWWWWWWWWWWWRSTRWSTVWURAGO AQOQQQQQQQQQSTSYTQWUTWVTYWZWSYZQWSVA[AhA�AQ!PRINT# |(cbA�A�IA�IqEMASQMARJAJ!< |(ccA�A�IA�IqEMASRMARJAJ!�|(cdA�A�IA�IqEMASSMARJAJ!-}
(qQA�AQ[qRA�AQ[qSA�AQ[qTA�AQ[qUA�AQ[qVA�AQ[qWA�AQ[qXA�AQ[qYA�AQ[qZA�AQ[qbA�AQ[qcA�AQ[qdA�AQ!l}(* AcbA�ARWALEFT$ AqQA�AQOQWSVQQQQQQQRYRYZYZUQTVUVYVWUXVYTQQXYRSV!* }(* AcbA�ATSALEFT$ AqRA�AQOQRVWSVQQQQQQUVUXUXTVQYYWUWURRYZVXVRZVTRS!�}(* AcbA�AWUALEFT$ AqSA�AQOQQTZQWSVQQQQRRTWYWYTXXSRWRWQSZXTZTXZYYSY!-~(* AcbA�ARSYALEFT$ AqTA�AQOQQQZXWVWSVQQQSYUSRXQZUTQUQUQQXUTUYUUZXQX!l~(* AccA�ARALEFT$ AqUA�AQOQQQSUURUQWSVQQXRQVUSXTVXWQRQQRYVYXRRSUSX!- ~(* AccA�ASALEFT$ AqVA�AQOQQQQWRQTVRVWSVRXXWTVWYTZUQQSVQUWUWXXYRQX!�~(* AccA�AUALEFT$ AqWA�AQOQQQQRVSVYXYZQWSZUUQYZSQZYVQQWSWRWRWZUVSX!)(* AccA�AYALEFT$ AqXA�AQOQQQQQTYRUWZXSWVXTWQSSTQSUWSVRVWVUQUSTWTS!i(* AccA�ARWALEFT$ AqYA�AQOQQQQQQZVTWXUTRWUTUQQVVXVWRVWSYZRTVRQVZQY!STEP (* AccA�ATSALEFT$ AqZA�AQOQQQQQQSTYURYVXZRQYVQRTZTZQTZQXSSYTXXWUXX!�(* AccA�AWUALEFT$ AqbA�AQOQQQQQQQVZWQUWUUXXXRSVTUYUXVZXWYQXQZUURRZ!)END (* AccA�ARSYALEFT$ AqcA�AQOQQQQQQQRUZQRRWRRZUSYRTTXRRYZZUSQRXXTWQT!hEND (* AcdA�ARALEFT$ AqdA�AQOQQQQQQQQTXSVSZQSZYVXQTTUSXZXUYVVQUUTUQQX!< END #)lA�AwAGO AqQAGO AqRAGO AqSAGO AqTAGO AqUAGO AqVAGO AqWAGO AqXAGO AqYAGO AqZAEND POS )* AudA�A�RALEFT$ AbA�AYTA[AcA�AV!*FOR LEN )FRE ARQSUAGO AdilpggAGO ARTMAZQ!`STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 13, A:POKE 55296 + CHKOFF + 13, B
2910 POKE 03397, 00178 : POKE 03398, 00096 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 14, 81:POKE 55296 + CHKOFF + 14, 7
2004 ES = 24971 : EE = 26178 : EK = 237
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 14, 87
6893 i3VAL 3CAIIIIIIIIIIIDEFDIEFHIGD3M3Z3VAL 3C�t�UT3VAL 3�;3�;c7?3EE?3D<3<�t�UU3VAL 3�;3�;c7?3EF?3D<3<\u�cC3VAL 3CMcD3VAL 3CMcE3VAL 3CMcF3VAL 3CMcG3VAL 3CMcH3VAL 3CMcI3VAL 3CMcJ3VAL 3CMcK3VAL 3CMcL3VAL 3CMcT3VAL 3CMcU3VAL 3CMcV3VAL 3CCONT uSYS 3UT3PEEK 3E3SQR 3cC3VAL 3CACIEHCCCCCCCDKDKLKLGCFHGHKHIGJHKFCCJKDEH�uSYS 3UT3PEEK 3G3SQR 3cD3VAL 3CACDHIEHCCCCCCGHGJGJFHCKKIGIGDDKLHJHDLHFDEvSYS 3UT3PEEK 3K3SQR 3cE3VAL 3CACCFLCIEHCCCCDDFIKIKFJJEDIDICELJFLFJLKKEKXvSYS 3UT3PEEK 3DI3SQR 3cF3VAL 3CACCCLJIHIEHCCCEKGEDJCLGFCGCGCCJGFGKGGLJCJPRINT# vSYS 3UT3PEEK 3FE3SQR 3cG3VAL 3CACCCEGGDGCIEHCCJDCHGEJFHJICDCCDKHKJDDEGEJ�vSYS 3UT3PEEK 3IG3SQR 3cH3VAL 3CACCCCIDCFHDHIEHDJJIFHIKFLGCCEHCGIGIJJKDCJwSYS 3UT3PEEK 3DEK3SQR 3cI3VAL 3CACCCCDHEHKJKLCIELGGCKLECLKHCCIEIDIDILGHEJXSYS 3UU3PEEK 3D3SQR 3cJ3VAL 3CACCCCCFKDGILJEIHJFICEEFCEGIEHDHIHGCGEFIFEPOKE w
SYS 3UU3PEEK 3E3SQR 3cK3VAL 3CACCCCCCLHFIJGFDIGFGCCHHJHIDHIEKLDFHDCHLCK�wSYS 3UU3PEEK 3G3SQR 3cL3VAL 3CACCCCCCEFKGDKHJLDCKHCDFLFLCFLCJEEKFJJIGJJxSYS 3UU3PEEK 3K3SQR 3cT3VAL 3CACCCCCCCHLICGIGGJJJDEHFGKGJHLJIKCJCLGGDDLTxSYS 3UU3PEEK 3DI3SQR 3cU3VAL 3CACCCCCCCDGLCDDIDDLGEKDFFJDDKLLGECDJJFICFSAVE xSYS 3UU3PEEK 3FE3SQR 3cV3VAL 3CACCCCCCCCFJEHELCELKHJCFFGEJLJGKHHCGGFGCCJ�x^3VAL 3i3EXP 3cC3EXP 3cD3EXP 3cE3EXP 3cF3EXP 3cG3EXP 3cH3EXP 3cI3EXP 3cJ3EXP 3cK3EXP 3cL3EXP 3cT3EXP 3cU3EXP 3cV�x3VAL 3CAIJCIFGECGLKJGIJyGgW3VAL 3^3VAL 3Z3M3T3VAL 3KI3M3U3VAL 3DC9y- SYS 3gW3VAL 3COS D3SQR 3T3VAL 3KF3M3U3VAL 3HVyINT + 3DCEG3EXP 3V[^bYY3EXP 3DG?3LCIfSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 14, A:POKE 55296 + CHKOFF + 14, B
2910 POKE 03397, 00236 : POKE 03398, 00102 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 15, 81:POKE 55296 + CHKOFF + 15, 7
2004 ES = 26565 : EE = 27837 : EK = 192
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 15, 87
18202 DEF `�`pnvvvvvvvvvvvqrsqvrsuvtq`�`pnppppppppprsrxspvtsvusxvyvrxypvru`z`READ `�`p@nNOT $GNEXT DATA `�`h`
hSTOP dl`rul`qi`i@GOTO NOT %GNEXT FOR `�`h`
hSTOP dl`rsl`qi`i@TO NOT &GNEXT NEXT `�`h`
hSTOP dl`rtl`qi`i@NOT )GSTOP p`�`pzSTOP q`�`pzSTOP r`�`pzSTOP s`�`pzSTOP t`�`pzSTOP u`�`pzSTOP v`�`pzSTOP w`�`pzSTOP x`�`pzSTOP y`�`pzSTOP FOR `�`pzSTOP NEXT `�`pzSTOP DATA `�`p@BSTEP .GGO `NEXT FOR `�`vt`�`STOP p`�`pnpvrupppppppqxqxyxytpsutuxuvtwuxsppwxqru@DATA STEP /GGO `NEXT FOR `�`qrx`�`STOP q`�`pnpquvrupppppptutwtwsupxxvtvtqqxyuwuqyusqr@PEEK STEP 0GGO `NEXT NEXT `�`q`�`STOP r`�`pnppsypvruppppqqsvxvxswwrqvqvprywsyswyxxrx@STEP 1GGO `NEXT NEXT `�`r`�`STOP s`�`pnpppywvuvruppprxtrqwpytsptptppwtstxttywpw@@+ 2GGO `NEXT NEXT `�`t`�`STOP t`�`pnppprttqtpvruppwqputrwsuwvpqppqxuxwqqrtrw@+ 3GGO `NEXT NEXT `�`x`�`STOP u`�`pnppppvqpsuquvruqwwvsuvxsytppruptvtvwwxqpw@SIN + 4GGO `NEXT NEXT `�`qv`�`STOP v`�`pnppppquruxwxypvryttpxyrpyxuppvrvqvqvyturw@�+ 5GGO `NEXT NEXT `�`sr`�`STOP w`�`pnpppppsxqtvywrvuwsvprrsprtvruquvutptrsvsr@?+ 8GGO `NEXT NEXT `�`vt`�`STOP x`�`pnppppppyusvwtsqvtstppuuwuvquvrxyqsuqpuypx@END - /GGO `NEXT NEXT `�`qrx`�`STOP y`�`pnpppppprsxtqxuwyqpxupqsysypsypwrrxswwvtww@SIN - 0GGO `NEXT DATA `�`q`�`STOP FOR `�`pnpppppppuyvptvttwwwqrustxtwuywvxpwpyttqqy@�- 1GGO `NEXT DATA `�`r`�`STOP NEXT `�`pnpppppppqtypqqvqqytrxqsswqqxyytrpqwwsvps@<- 2GGO `NEXT DATA `�`t`�`STOP DATA `�`pnppppppppswrurypryxuwpsstrwywtxuupttstppw@READ * BHIF `�`DEF `�`STOP p`�`STOP q`�`STOP r`�`STOP s`�`STOP t`�`STOP u`�`STOP v`�`STOP w`�`STOP x`�`STOP y`�`STOP FOR `�`STOP NEXT `�`STOP DATA @GET * LHREAD `�`pnwsssxqyruvqvttt@PEEK * tHSAVE INPUT `�`IF `�`READ `z`FOR `�`xv`z`NEXT `�`qp@�* �HGO `SAVE INPUT `�`�q`�`FOR `�`xs`z`NEXT `�`u@�* �H�`qprt`�`DATA LET IF REM DIM DIM `�`qul`yp@STR$ lSTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 15, A:POKE 55296 + CHKOFF + 15, B
2910 POKE 03397, 00103 : POKE 03398, 00109 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 16, 81:POKE 55296 + CHKOFF + 16, 7
2004 ES = 28224 : EE = 29471 : EK = 157
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 16, 87
27197 POS DATA DATA LOAD ON PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT SAVE VERIFY DEF SAVE PRINT VERIFY DEF PRINT# PRINT POKE SAVE DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD VERIFY DEF VERIFY LIST DEF LOAD PRINT POKE DEF PRINT PRINT# DEF LIST PRINT CLR PRINT VERIFY LIST CLR LOAD PRINT VERIFY PRINT# DATA CMD DATA + DATA DATA LOAD c
�GjFN TO DATA DATA )IF DATA -IF < READ REM DATA VERIFY PRINT# REM DATA SAVE RESTORE DATA RESTORE c'�HjFN FN DATA DATA )IF DATA -IF < READ REM DATA VERIFY PRINT REM DATA SAVE RESTORE DATA RESTORE cDIM �Lj< LOAD DATA DATA LOAD CMD < SAVE DATA DATA LOAD CMD < VERIFY DATA DATA LOAD CMD < DEF DATA DATA LOAD CMD < POKE DATA DATA LOAD CMD < PRINT# DATA DATA LOAD CMD < PRINT DATA DATA LOAD CMD < CONT DATA DATA LOAD CMD < LIST DATA DATA LOAD CMD < CLR DATA DATA LOAD CMD < TO DATA DATA LOAD CMD < FN DATA DATA LOAD CMD < SPC( DATA DATA LOAD cSTR$ �Qj�DATA FN TO DATA DATA LIST DATA
DATA < LOAD DATA DATA LOAD ON LOAD PRINT VERIFY PRINT# LOAD LOAD LOAD LOAD LOAD LOAD LOAD SAVE LIST SAVE LIST CLR LIST CLR POKE LOAD DEF PRINT# POKE PRINT# LIST PRINT# PRINT POKE CONT PRINT# LIST DEF LOAD LOAD CONT LIST SAVE VERIFY PRINT# c�Rj�DATA FN TO DATA DATA SAVE PRINT DATA
DATA < SAVE DATA DATA LOAD ON LOAD SAVE PRINT# PRINT VERIFY PRINT# LOAD LOAD LOAD LOAD LOAD LOAD POKE PRINT# POKE CONT POKE CONT DEF PRINT# LOAD LIST LIST PRINT POKE PRINT POKE SAVE SAVE LIST CLR PRINT# CONT PRINT# SAVE CLR PRINT# DEF SAVE VERIFY cD�Sj�DATA FN TO DATA DATA DEF VERIFY DATA
DATA < VERIFY DATA DATA LOAD ON LOAD LOAD DEF CLR LOAD PRINT VERIFY PRINT# LOAD LOAD LOAD LOAD SAVE SAVE DEF PRINT LIST PRINT LIST DEF CONT CONT VERIFY SAVE PRINT SAVE PRINT LOAD VERIFY CLR CONT DEF CLR DEF CONT CLR LIST LIST VERIFY LIST cINPUT# �Tj�DATA FN TO DATA DATA PRINT POKE DATA
DATA < DEF DATA DATA LOAD ON LOAD LOAD LOAD CLR CONT PRINT PRINT# PRINT VERIFY PRINT# LOAD LOAD LOAD VERIFY LIST POKE VERIFY SAVE CONT LOAD CLR POKE DEF LOAD POKE LOAD POKE LOAD LOAD CONT POKE DEF POKE LIST POKE POKE CLR CONT LOAD CONT cVAL �Uj�DATA FN TO DATA DATA SAVE VERIFY LIST DATA
DATA < POKE DATA DATA LOAD ON LOAD LOAD LOAD VERIFY POKE POKE SAVE POKE LOAD PRINT VERIFY PRINT# LOAD LOAD CONT SAVE LOAD PRINT# POKE VERIFY CONT DEF PRINT# CONT PRINT LOAD SAVE LOAD LOAD SAVE LIST PRINT# LIST CONT SAVE SAVE VERIFY POKE VERIFY CONT c�Vj�DATA FN FN DATA DATA SAVE DATA
DATA < PRINT# DATA DATA LOAD ON LOAD LOAD LOAD LOAD PRINT SAVE LOAD DEF PRINT# SAVE PRINT# PRINT VERIFY PRINT# SAVE CONT CONT PRINT DEF PRINT# PRINT LIST DEF CLR POKE LOAD LOAD VERIFY PRINT# LOAD POKE PRINT POKE PRINT CONT CONT LIST SAVE LOAD CONT cC�Wj�DATA FN FN DATA DATA VERIFY DATA
DATA < PRINT DATA DATA LOAD ON LOAD LOAD LOAD LOAD SAVE PRINT# VERIFY PRINT# LIST CONT LIST CLR LOAD PRINT VERIFY CLR POKE POKE LOAD LIST CLR VERIFY LOAD CLR LIST PRINT# LOAD LOAD PRINT VERIFY PRINT SAVE PRINT SAVE PRINT CLR POKE PRINT# VERIFY CONT cNEXT �Xj�DATA FN FN DATA DATA POKE DATA
DATA < CONT DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD DEF LIST SAVE POKE PRINT CLR CONT VERIFY PRINT PRINT# CONT DEF PRINT LOAD VERIFY VERIFY DEF LOAD VERIFY POKE PRINT VERIFY PRINT# SAVE PRINT# PRINT PRINT# POKE LOAD POKE VERIFY DEF PRINT DEF VERIFY cATN �[j�DATA FN FN DATA DATA LIST DATA
DATA < LIST DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD CLR PRINT# DEF PRINT CONT POKE DEF SAVE PRINT POKE DEF POKE LOAD LOAD PRINT# PRINT# CONT PRINT# PRINT SAVE PRINT# PRINT VERIFY LIST CLR SAVE DEF PRINT# SAVE LOAD PRINT# CLR LOAD LIST c�Rj�DATA FN FN DATA DATA SAVE PRINT DATA
DATA < CLR DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD VERIFY DEF LIST POKE SAVE LIST PRINT# CONT CLR SAVE LOAD LIST PRINT# LOAD SAVE DEF CLR DEF CLR LOAD DEF CLR LOAD CONT VERIFY VERIFY LIST DEF CONT CONT PRINT POKE CONT CONT cA�Sj�DATA FN FN DATA DATA DEF VERIFY DATA
DATA < TO DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD LOAD PRINT# CLR PRINT LOAD POKE PRINT POKE POKE CONT CONT CONT SAVE VERIFY PRINT# DEF POKE LIST POKE CONT PRINT# CLR CONT PRINT LIST LOAD CONT LOAD CLR POKE POKE SAVE SAVE CLR cEND �Tj�DATA FN FN DATA DATA PRINT POKE DATA
DATA < FN DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD LOAD SAVE POKE CLR LOAD SAVE SAVE PRINT SAVE SAVE CLR POKE VERIFY LIST SAVE DEF DEF CONT SAVE SAVE LIST CLR CLR POKE VERIFY LOAD SAVE CONT CONT DEF PRINT LOAD DEF cATN �Uj�DATA FN FN DATA DATA SAVE VERIFY LIST DATA
DATA < SPC( DATA DATA LOAD ON LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD DEF CONT VERIFY PRINT# VERIFY CLR LOAD VERIFY CLR LIST PRINT# CONT LOAD DEF DEF POKE VERIFY CONT CLR CONT POKE LIST PRINT# PRINT# LOAD POKE POKE DEF POKE LOAD LOAD CONT c
DATA < SPC( c&�ok+ DATA DATA LOAD ON PRINT PRINT CONT PRINT POKE LIST LOAD SAVE VERIFY VERIFY LIST POKE VERIFY VERIFY LOAD cG�POKE kUSR STEP DATA DATA ^ DATA DATA + DATA CMD DATA TO DATA DATA LIST PRINT DATA CMD DATA FN DATA DATA SAVE LOAD cf��k�DATA USR STEP DATA DATA SAVE DATA
DATA SAVE PRINT REM DATA CLR LOAD c&sSTR$ FN DATREM ATA PRINT# cDATA �k�DATA SAVE LOAD VERIFY POKE DATA
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 16, A:POKE 55296 + CHKOFF + 16, B
2910 POKE 03397, 00201 : POKE 03398, 00115 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 17, 81:POKE 55296 + CHKOFF + 17, 7
2004 ES = 29858 : EE = 31101 : EK = 158
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 17, 87
26940 FRE NEXT NEXT WAIT STOP PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# PRINT# LOAD SAVE VERIFY LOAD PRINT#NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT SAVE VERIFY SAVE CONT VERIFY WAIT PRINT# DEF VERIFY PRINT# POKE VERIFY CONT PRINT# LIST PRINT# SAVE CONT LIST WAIT PRINT# SAVE POKE NEXT CLR NEXT STEP NEXT NEXT WAIT bm�FiTO TAB( NEXT NEXT (RUN NEXT ,RUN = DIM RETURN NEXT SAVE PRINT RETURN NEXT LOAD IF NEXT IF bLET �GiTO TO NEXT NEXT (RUN NEXT ,RUN = DIM RETURN NEXT SAVE CONT RETURN NEXT LOAD IF NEXT IF b��Ki= WAIT NEXT NEXT WAIT CLR = LOAD NEXT NEXT WAIT CLR = SAVE NEXT NEXT WAIT CLR = VERIFY NEXT NEXT WAIT CLR = DEF NEXT NEXT WAIT CLR = POKE NEXT NEXT WAIT CLR = PRINT# NEXT NEXT WAIT CLR = PRINT NEXT NEXT WAIT CLR = CONT NEXT NEXT WAIT CLR = LIST NEXT NEXT WAIT CLR = TAB( NEXT NEXT WAIT CLR = TO NEXT NEXT WAIT CLR = FN NEXT NEXT WAIT b%�Pi�NEXT TO TAB( NEXT NEXT LOAD NEXT NEXT = WAIT NEXT NEXT WAIT STOP WAIT PRINT# SAVE POKE WAIT WAIT WAIT WAIT WAIT WAIT WAIT LOAD CONT LOAD CONT LIST CONT LIST DEF WAIT VERIFY POKE DEF POKE CONT POKE PRINT# DEF PRINT POKE CONT VERIFY WAIT WAIT PRINT CONT LOAD SAVE POKE bd�Qi�NEXT TO TAB( NEXT NEXT SAVE NEXT NEXT = LOAD NEXT NEXT WAIT STOP WAIT LOAD POKE PRINT# SAVE POKE WAIT WAIT WAIT WAIT WAIT WAIT DEF POKE DEF PRINT DEF PRINT VERIFY POKE WAIT CONT CONT PRINT# DEF PRINT# DEF LOAD LOAD CONT LIST POKE PRINT POKE LOAD LIST POKE VERIFY LOAD SAVE bTAB( �Ri�NEXT TO TAB( NEXT NEXT DEF NEXT NEXT = SAVE NEXT NEXT WAIT STOP WAIT WAIT VERIFY LIST WAIT PRINT# SAVE POKE WAIT WAIT WAIT WAIT LOAD LOAD VERIFY PRINT# CONT PRINT# CONT VERIFY PRINT PRINT SAVE LOAD PRINT# LOAD PRINT# WAIT SAVE LIST PRINT VERIFY LIST VERIFY PRINT LIST CONT CONT SAVE CONT b��Si�NEXT TO TAB( NEXT NEXT CONT NEXT NEXT = VERIFY NEXT NEXT WAIT STOP WAIT WAIT WAIT LIST PRINT PRINT# POKE PRINT# SAVE POKE WAIT WAIT WAIT SAVE CONT DEF SAVE LOAD PRINT WAIT LIST DEF VERIFY WAIT DEF WAIT DEF WAIT WAIT PRINT DEF VERIFY DEF CONT DEF DEF LIST PRINT WAIT PRINT b"�Ti�NEXT TO TAB( NEXT NEXT LOAD PRINT# NEXT NEXT = DEF NEXT NEXT WAIT STOP WAIT WAIT WAIT SAVE DEF DEF LOAD DEF WAIT PRINT# SAVE POKE WAIT WAIT PRINT LOAD WAIT POKE DEF SAVE PRINT VERIFY POKE PRINT PRINT# WAIT LOAD WAIT WAIT LOAD CONT POKE CONT PRINT LOAD LOAD SAVE DEF SAVE PRINT bb�Ui�NEXT TO TAB( NEXT NEXT VERIFY SAVE NEXT NEXT = POKE NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT PRINT# LOAD WAIT VERIFY POKE LOAD POKE PRINT# SAVE POKE LOAD PRINT PRINT PRINT# VERIFY POKE PRINT# CONT VERIFY LIST DEF WAIT WAIT SAVE POKE WAIT DEF PRINT# DEF PRINT# PRINT PRINT CONT LOAD WAIT PRINT bNEW �Vi�NEXT TO TAB( NEXT NEXT PRINT# DEF NEXT NEXT = PRINT# NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT LOAD POKE SAVE POKE CONT PRINT CONT LIST WAIT PRINT# SAVE LIST DEF DEF WAIT CONT LIST SAVE WAIT LIST CONT POKE WAIT WAIT PRINT# SAVE PRINT# LOAD PRINT# LOAD PRINT# LIST DEF POKE SAVE PRINT b��Wi�NEXT TO TAB( NEXT NEXT LOAD SAVE CONT NEXT NEXT = PRINT NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT VERIFY CONT LOAD DEF PRINT# LIST PRINT SAVE PRINT# POKE PRINT VERIFY PRINT# WAIT SAVE SAVE VERIFY WAIT SAVE DEF PRINT# SAVE POKE LOAD POKE PRINT# POKE DEF WAIT DEF SAVE VERIFY PRINT# VERIFY SAVE b"�Zi�NEXT TO TO NEXT NEXT LOAD NEXT NEXT = CONT NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT LIST POKE VERIFY PRINT# PRINT DEF VERIFY LOAD PRINT# DEF VERIFY DEF WAIT WAIT POKE POKE PRINT POKE PRINT# LOAD POKE PRINT# SAVE CONT LIST LOAD VERIFY POKE LOAD WAIT POKE LIST WAIT CONT ba�Qi�NEXT TO TO NEXT NEXT SAVE NEXT NEXT = LIST NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT SAVE VERIFY CONT DEF LOAD CONT POKE PRINT LIST LOAD WAIT CONT POKE WAIT LOAD VERIFY LIST VERIFY LIST WAIT VERIFY LIST WAIT PRINT SAVE SAVE CONT VERIFY PRINT PRINT PRINT# DEF PRINT PRINT bCLOSE �Ri�NEXT TO TO NEXT NEXT DEF NEXT NEXT = TAB( NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT WAIT POKE LIST PRINT# WAIT DEF PRINT# DEF DEF PRINT PRINT PRINT LOAD SAVE POKE VERIFY DEF CONT DEF PRINT POKE LIST PRINT PRINT# CONT WAIT PRINT WAIT LIST DEF DEF LOAD LOAD LIST b��Si�NEXT TO TO NEXT NEXT CONT NEXT NEXT = TO NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT WAIT LOAD DEF LIST WAIT LOAD LOAD PRINT# LOAD LOAD LIST DEF SAVE CONT LOAD VERIFY VERIFY PRINT LOAD LOAD CONT LIST LIST DEF SAVE WAIT LOAD PRINT PRINT VERIFY PRINT# WAIT VERIFY b�Ti�NEXT TO TO NEXT NEXT LOAD PRINT# NEXT NEXT = FN NEXT NEXT WAIT STOP WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT VERIFY PRINT SAVE POKE SAVE LIST WAIT SAVE LIST CONT POKE PRINT WAIT VERIFY VERIFY DEF SAVE PRINT LIST PRINT DEF CONT POKE POKE WAIT DEF DEF VERIFY DEF WAIT WAIT PRINT bi�dj/ NEXT NEXT FRE NEXT
NEXT = WAIT NEXT
NEXT = LOAD NEXT
NEXT = SAVE NEXT
NEXT = VERIFY NEXT
NEXT = DEF NEXT
NEXT = POKE NEXT
NEXT = PRINT# NEXT
NEXT = PRINT NEXT
NEXT = CONT NEXT
NEXT = LIST NEXT
NEXT = TAB( NEXT
NEXT = TO NEXT
NEXT = FN bDATA �njSTEP NEXT NEXT WAIT STOP PRINT DEF LIST PRINT# LIST WAIT PRINT# LIST LOAD DEF PRINT DEF CONT POKE POKE bTO �DEF jABS STEP NEXT NEXT / NEXT NEXT STEP NEXT CLR NEXT TAB( NEXT NEXT CONT PRINT# NEXT CLR NEXT TO NEXT NEXT LOAD WALOAD NEXT j�NEXTNEXT TAB( NEXT NEXT CONT VERIFY NEXT CLR NEXT TO NEXT NEXT POKE b��j�NEXT LOAD WAIT SAVE DEF NEXT
NEXT FN + / > NOT NOT NEXT
NEXT LOAD PRINT RETURN NEXT LIST WAIT bINPUT# ySTR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 17, A:POKE 55296 + CHKOFF + 17, B
2910 POKE 03397, 00039 : POKE 03398, 00122 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 18, 81:POKE 55296 + CHKOFF + 18, 7
2004 ES = 31488 : EE = 32761 : EK = 235
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 18, 87
7407 k5CHR$ 5ECKKKKKKKKKKKFGHFKGHJKIF5TAN 5ECEEEEEEEEEGHGMHEKIHKJHMKNKGMNEKGJ5O5\5CHR$ 5E~STOP �WV5CHR$ 5�=5�=e9A5GMA5F>5>PRINT STOP �WW5CHR$ 5�=5�=e9A5GNA5F>5>SGN STOP �WX5CHR$ 5�=5�=e9A5HEA5F>5>STOP �eE5CHR$ 5EOeF5CHR$ 5EOeG5CHR$ 5EOeH5CHR$ 5EOeI5CHR$ 5EOeJ5CHR$ 5EOeK5CHR$ 5EOeL5CHR$ 5EOeM5CHR$ 5EOeN5CHR$ 5EOeV5CHR$ 5EOeW5CHR$ 5EOeX5CHR$ 5ERON CLOSE 5WV5STR$ 5HG5LOG 5eE5CHR$ 5ECEKGJEEEEEEEFMFMNMNIEHJIJMJKILJMHEELMFGJWAIT ON CLOSE 5WV5STR$ 5KI5LOG 5eF5CHR$ 5ECEFJKGJEEEEEEIJILILHJEMMKIKIFFMNJLJFNJHFG�ON CLOSE 5WV5STR$ 5FGM5LOG 5eG5CHR$ 5ECEEHNEKGJEEEEFFHKMKMHLLGFKFKEGNLHNHLNMMGMON CLOSE 5WW5STR$ 5F5LOG 5eH5CHR$ 5ECEEENLKJKGJEEEGMIGFLENIHEIEIEELIHIMIINLELQWAIT CLOSE 5WW5STR$ 5G5LOG 5eI5CHR$ 5ECEEEGIIFIEKGJEELFEJIGLHJLKEFEEFMJMLFFGIGLSTOP WAITCLOSE 5WW5STR$ 5I5LOG 5eJ5CHR$ 5ECEEEEKFEHJFJKGJFLLKHJKMHNIEEGJEIKIKLLMFEL�WAIT CLOSE 5WW5STR$ 5M5LOG 5eK5CHR$ 5ECEEEEFJGJMLMNEKGNIIEMNGENMJEEKGKFKFKNIJGLWAIT
CLOSE 5WW5STR$ 5HG5LOG 5eM5CHR$ 5ECEEEEEENJHKLIHFKIHIEEJJLJKFJKGMNFHJFEJNEMREM LOAD CLOSE 5WW5STR$ 5KI5LOG 5eN5CHR$ 5ECEEEEEEGHMIFMJLNFEMJEFHNHNEHNELGGMHLLKILL�LOAD CLOSE 5WW5STR$ 5FGM5LOG 5eV5CHR$ 5ECEEEEEEEJNKEIKIILLLFGJHIMILJNLKMELENIIFFNLOAD CLOSE 5WX5STR$ 5F5LOG 5eW5CHR$ 5ECEEEEEEEFINEFFKFFNIGMFHHLFFMNNIGEFLLHKEHMSAVE CLOSE 5WX5STR$ 5G5LOG 5eX5CHR$ 5ECEEEEEEEEHLGJGNEGNMJLEHHIGLNLIMJJEIIHIEELPRINT# SAVE `5CHR$ 5k5SIN 5eE5SIN 5eF5SIN 5eG5SIN 5eH5SIN 5eI5SIN 5eJ5SIN 5eK5SIN 5eL5SIN 5eM5SIN 5eN5SIN 5eV5SIN 5eW5SIN 5eX= SAVE !\5CHR$ 5ECKMGHJKLLHIFEEGH�SAVE Ii]5CHR$ 5`5CHR$ 5\5O5V5CHR$ 5MK5O5W5CHR$ 5FE�SAVE / CLOSE 5i]5CHR$ 5TAN F5LOG 5V5CHR$ 5MH5O5W5CHR$ 5JSAVE USR * 5FEGI5SIN 5X]`d[[5SIN 5FMA5NE
36617
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 18, A:POKE 55296 + CHKOFF + 18, B
2910 POKE 03397, 00163 : POKE 03398, 00128 : GOTO 2001
0 REM
2001 POKE 03397, 00069 : POKE 03398, 00013
2002 POKE 1024 + CHKOFF + 19, 81:POKE 55296 + CHKOFF + 19, 7
2004 ES = 33148 : EE = 34367 : EK = 143
2005 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2009 POKE 1024 + CHKOFF + 19, 87
30795 CHR$ ON #ON GET OPEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN NEW TAB( TO NEW THEN TAB( TO SPC( THEN FN NEW ON ON GET OPEN GET GET GET GET GET GET GET GET GET TAB( TO TAB( STEP TO GET THEN FN TO THEN SPC( TO STEP THEN + THEN TAB( STEP + GET THEN TAB( SPC( ON - ON FRE ON #ON GET qV�Ux< = ON #ON 7PRINT ON ;PRINT ATN VERIFY CMD ON TO GET CMD ON NEW CONT ON CONT qINT �ZxATN GET ON #ON GET - ATN NEW ON #ON GET - ATN TAB( ON #ON GET - ATN TO ON #ON GET - ATN FN ON #ON GET - ATN SPC( ON #ON GET - ATN THEN ON #ON GET - ATN NOT ON #ON GET - ATN STEP ON #ON GET - ATN + ON #ON GET - ATN = ON #ON GET - ATN < ON #ON GET - ATN SGN ON #ON GET q��_x�ON < = ON ON FN ON ON ATN GET ON #ON GET OPEN GET THEN TAB( SPC( GET GET GET GET GET GET GET NEW STEP NEW STEP + STEP + FN GET TO SPC( FN SPC( STEP SPC( THEN FN NOT SPC( STEP TO GET GET NOT STEP NEW TAB( SPC( q2�`x�ON < = ON ON STEP ON ON ATN NEW ON #ON GET OPEN GET NEW SPC( THEN TAB( SPC( GET GET GET GET GET GET FN SPC( FN NOT FN NOT TO SPC( GET STEP STEP THEN FN THEN FN NEW NEW STEP + SPC( NOT SPC( NEW + SPC( TO NEW TAB( qr�ax�ON < = ON ON NEW THEN ON ON ATN TAB( ON #ON GET OPEN GET GET TO + GET THEN TAB( SPC( GET GET GET GET NEW NEW TO THEN STEP THEN STEP TO NOT NOT TAB( NEW THEN NEW THEN GET TAB( + NOT TO + TO NOT + STEP STEP TAB( STEP q= �bx�ON < = ON ON TO TAB( ON ON ATN TO ON #ON GET OPEN GET GET GET + NOT THEN SPC( THEN TAB( SPC( GET GET GET TAB( STEP FN TAB( NEW NOT GET + FN TO GET FN GET FN GET GET NOT FN TO FN STEP FN FN + NOT GET NOT q��cx�ON < = ON ON THEN FN ON ON ATN FN ON #ON GET OPEN GET GET GET TAB( FN FN NEW FN GET THEN TAB( SPC( GET GET NOT NEW GET SPC( FN TAB( NOT TO SPC( NOT THEN GET NEW GET GET NEW STEP SPC( STEP NOT NEW NEW TAB( FN TAB( NOT q3�dx�ON < = ON ON NEW TAB( STEP ON ON ATN SPC( ON #ON GET OPEN GET GET GET GET THEN NEW GET TO SPC( NEW SPC( THEN TAB( SPC( NEW NOT NOT THEN TO SPC( THEN STEP TO + FN GET GET TAB( SPC( GET FN THEN FN THEN NOT NOT STEP NEW GET NOT qs�ex�ON < RIGHT$ ON ON THEN FN ON ON ATN THEN ON #ON GET OPEN GET GET GET GET NEW SPC( TAB( SPC( STEP NOT STEP + GET THEN TAB( + FN FN GET STEP + TAB( GET + STEP SPC( GET GET THEN TAB( THEN NEW THEN NEW THEN + FN SPC( TAB( NOT qSGN �fx�ON < RIGHT$ ON ON NEW TAB( STEP ON ON ATN NOT ON #ON GET OPEN GET GET GET GET GET TO STEP NEW FN THEN + NOT TAB( THEN SPC( NOT TO THEN GET TAB( TAB( TO GET TAB( FN THEN TAB( SPC( NEW SPC( THEN SPC( FN GET FN TAB( TO THEN TO TAB( q��ix�ON < RIGHT$ ON ON NEW ON ON ATN STEP ON #ON GET OPEN GET GET GET GET GET GET + SPC( TO THEN NOT FN TO NEW THEN FN TO FN GET GET SPC( SPC( NOT SPC( THEN NEW SPC( THEN TAB( STEP + NEW TO SPC( NEW GET SPC( + GET STEP q2�`x�ON < RIGHT$ ON ON TAB( ON ON ATN + ON #ON GET OPEN GET GET GET GET GET GET TAB( TO STEP FN NEW STEP SPC( NOT + NEW GET STEP SPC( GET NEW TO + TO + GET TO + GET NOT TAB( TAB( STEP TO NOT NOT THEN FN NOT NOT qq�ax�ON < RIGHT$ ON ON FN ON ON ATN = ON #ON GET OPEN GET GET GET GET GET GET GET SPC( + THEN GET FN THEN FN FN NOT NOT NOT NEW TAB( SPC( TO FN STEP FN NOT SPC( + NOT THEN STEP GET NOT GET + FN FN NEW NEW + qAND �bx�ON < RIGHT$ ON ON STEP ON ON ATN < ON #ON GET OPEN GET GET GET GET GET GET GET NEW FN + GET NEW NEW THEN NEW NEW + FN TAB( STEP NEW TO TO NOT NEW NEW STEP + + FN TAB( GET NEW NOT NOT TO THEN GET TO q��cx�ON < RIGHT$ ON ON NEW THEN ON ON ATN SGN ON #ON GET OPEN GET GET GET GET GET GET GET GET TO NOT TAB( SPC( TAB( + GET TAB( + STEP SPC( NOT GET TO TO FN TAB( NOT + NOT FN STEP SPC( SPC( GET FN FN TO FN GET GET NOT q:�syLOG ON #ON CHR$ ON ON ATN GET ON ON ATN NEW ON ON ATN TAB( ON ON ATN TO ON ON ATN FN ON ON ATN SPC( ON ON ATN THEN ON ON ATN NOT ON ON ATN STEP ON ON ATN + ON ON ATN = ON ON ATN < ON ON ATN SGN qT�}yFRE ON #ON GET OPEN THEN NOT GET STEP NEW NOT GET SPC( NOT NEW TO THEN FN NOT THEN qu�FN yVAL RND ON #ON LOG ON #ON FRE ON - ON = ON #ON STEP THEN ON - ON < ON #ON NEW GET qSAVE � y�ON VAL RND ON #ON NEW ON ON = ON #ON STEP TO ON - ON < ON #ON SPC( q> �ON NEW GET TAB( FN ON ON SGN POS LOG TAN USR USR ON ON NEW + CMD ON + GET qFDIM STR$ REM
2900 FOR I = ES TO EE : K = ( PEEK (I) + EK ) AND 255 : POKE I, K : NEXT I
2905 POKE 1024 + CHKOFF + 19, A:POKE 55296 + CHKOFF + 19, B
2910 POKE 03397, 00239 : POKE 03398, 00134 : GOTO 2001
0 REM
2000 REM
2001 REM
31337 T = T0 + T1 + T2 + T3 + T4 + T5 + T6 + T7 + T8 + T9 + TA + TB + TC + TD + TE + TF + TG + TH + TJ
31338 IF T = - 19 THEN GOTO 31340
31339 PRINT :PRINT "VERDICT: NOPE":GOTO 31345
31340 PRINT :PRINT "VERDICT: CORRECT"
31345 GOTO 31345
0 REM