-
Notifications
You must be signed in to change notification settings - Fork 6
/
ADVENTR6.TXT
408 lines (372 loc) · 11.7 KB
/
ADVENTR6.TXT
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
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
0 CLEAR250:CLS0:GOTO100
20 K=PEEK(2)ANDPEEK(17023)
21 IFK=87THENON-(PEEK(P-32)<>128ANDY>0)GOTO20:POKEP,128:Y=Y-1:IFY<0THENY=11:V=U:GOSUB30
22 IFK=65THENON-(PEEK(P-1)<>128ANDX>0)GOTO20:POKEP,128:X=X-1:IFX<0THENX=31:V=L:GOSUB30
23 IFK=83THENON-(PEEK(P+1)<>128ANDX<31)GOTO20:POKEP,128:X=X+1:IFX>31THENX=0:V=R:GOSUB30
24 IFK=90THENON-(PEEK(P+32)<>128ANDY<11)GOTO20:POKEP,128:Y=Y+1:IFY>11THENY=0:V=D:GOSUB30
25 IFK=32THENV=24:GOSUB30
29 P=MC+X+Y*32:POKEP,159:GOTO20
30 PRINT@0,;:GOSUB40:PRINT@480,M;:RETURN
40 IFV<10THENONV+1GOSUB150,180,200,300,400,500,600,700,800,900:RETURN
41 IFV<20THENONV-9GOSUB1000,1100,1200,1300,1400,1500,1600,1700,1800,1900:RETURN
42 ONV-19GOSUB2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200:RETURN
43 RETURN
100 B$="€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€":C$="€€€€€":D$="ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß":E$="ßßßßß"
110 V=1:GOSUB30:MC=16384:X=2:Y=2:GOTO25
150 M=0:L=0:R=0:U=0:D=0
151 PRINTD$;
152 PRINT"ß"B$"ß";
153 PRINT"ß"B$"ß";
154 PRINT"ß"B$"ß";
155 PRINT"ß"B$"ß";
156 PRINT"ß"B$"ß";
157 PRINT"ß"B$"ß";
158 PRINT"ß"B$"ß";
159 PRINT"ß"B$"ß";
160 PRINT"ß"B$"ß";
161 PRINT"ß"B$"ß";
162 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
180 M=1:L=4:R=4:U=9:D=2
181 PRINTE$"ß߀߀߀ß"C$"€ß€ß€ß€"E$"ßß";
182 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
183 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
184 PRINT"ß"C$E$E$E$E$C$"ß";
185 PRINT"ß"C$E$E$E$E$C$"ß";
186 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
187 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
188 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
189 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
190 PRINT"ß"B$"ß";
191 PRINT"ß"B$"ß";
192 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
200 M=2:L=3:R=4:U=1:D=1
201 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
202 PRINTB$"€€";
203 PRINTB$"€€";
204 PRINTB$"€€";
205 PRINTB$"€€";
206 PRINTB$"€€";
207 PRINTB$"€€";
208 PRINTB$"€€";
209 PRINTB$"€€";
210 PRINTB$"€€";
211 PRINTB$"€€";
212 PRINTD$;:RETURN
300 M=3:L=4:R=2:U=6:D=16
301 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
302 PRINTB$"€€";
303 PRINTB$"€€";
304 PRINTB$"€€";
305 PRINTB$"€€";
306 PRINTB$"€€";
307 PRINTB$"€€";
308 PRINTB$"€€";
309 PRINTB$"€€";
310 PRINTB$"€€";
311 PRINTB$"€€";
312 PRINTD$;:RETURN
400 M=4:L=2:R=3:U=9:D=12
401 PRINTD$;
402 PRINTB$"€€";
403 PRINTB$"€€";
404 PRINTB$"€€";
405 PRINTB$"€€";
406 PRINTB$"€€";
407 PRINTB$"€€";
408 PRINTB$"€€";
409 PRINTB$"€€";
410 PRINTB$"€€";
411 PRINTB$"€€";
412 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
500 M=5:L=4:R=32:U=9:D=9:GOTO201
600 M=6:L=7:R=7:U=8:D=3
601 PRINTE$"߀€ß€€ß€€ßßß߀€ß€€ß€€"E$"ß";
602 PRINTC$"߀€ß€€ß"C$"€€€ß€€ß€€ß"C$;
603 PRINTC$"߀€ß€€ß"C$"€€€ß€€ß€€ß"C$;
604 PRINT"ßß߀€ß€€ß€€ß"C$"€€€ß€€ß€€ß€€ßßß";
605 PRINT"ßß߀€ß€€ß€€"E$E$"€€ß€€ß€€ßßß";
606 PRINTC$"߀€ß"C$C$"€€€€ß€€ß"C$;
607 PRINTC$"߀€ß"C$C$"€€€€ß€€ß"C$;
608 PRINTE$"߀€ß"C$C$"€€€€ß€€"E$"ß";
609 PRINTE$"߀€"E$E$E$"߀€"E$"ß";
610 PRINTB$"€€";
611 PRINTB$"€€";
612 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
700 M=7:L=6:R=6:U=10:D=9
701 PRINT"ßß߀€ß€€"E$"߀€€€"E$"߀€ß€€ßßß";
702 PRINTC$"ß"C$"ßß߀€€€ßßß"C$"ß"C$;
703 PRINTC$"ß"C$"ßß߀€€€ßßß"C$"ß"C$;
704 PRINTE$"ßßß߀€ßß߀€€€ßß߀€"E$"ßßßß";
705 PRINTE$"ßßß߀€ßß߀€€€ßß߀€"E$"ßßßß";
706 PRINTC$"€€€ß€€ßß߀€€€ßß߀€ß"C$"€€€";
707 PRINTC$"€€€ß€€ßß߀€€€ßß߀€ß"C$"€€€";
708 PRINT"ßß߀€ß€€ß€€ßß߀€€€ßß߀€ß€€ß€€ßßß";
709 PRINT"ßß߀€ß€€ß€€ßß߀€€€ßß߀€ß€€ß€€ßßß";
710 PRINTC$"߀€ß€€ßß"C$"€ß߀€ß€€ß"C$;
711 PRINTC$"߀€ß€€ßß"C$"€ß߀€ß€€ß"C$;
712 PRINTE$"߀€ß€€ßß"C$"€ß߀€ß€€"E$"ß";:RETURN
800 M=8:L=10:R=9:U=20:D=6
801 PRINTD$;
802 PRINTB$"€€";
803 PRINTB$"€€";
804 PRINTE$"ß߀€€"E$E$"ß߀€€"E$"ßß";
805 PRINTE$"ß߀€€"E$E$"ß߀€€"E$"ßß";
806 PRINT"ßß"C$C$"€€ßßßß"C$C$"€€ßß";
807 PRINT"ßß"C$C$"€€ßßßß"C$C$"€€ßß";
808 PRINT"ßß"C$C$"€€ßßßß"C$C$"€€ßß";
809 PRINT"ß߀€€"E$"ß߀€ßßß߀€"E$"ß߀€€ßß";
810 PRINTC$"ß"C$"߀€ßßß߀€ß"C$"ß"C$;
811 PRINTC$"ß"C$"߀€ßßß߀€ß"C$"ß"C$;
812 PRINTE$"߀€ß€€ß€€ßßß߀€ß€€ß€€"E$"ß";:RETURN
900 M=9:L=8:R=10:U=7:D=4
901 PRINTE$"߀€ß€€ß"C$"€€€ß€€ß€€"E$"ß";
902 PRINTC$"ß"C$"ß"C$"€€€ß"C$"ß"C$;
903 PRINTC$"ß"C$"ß"C$"€€€ß"C$"ß"C$;
904 PRINT"߀€€€ß"C$"ß"C$"€€€ß"C$"߀€€€ß";
905 PRINT"߀€€€"E$"ßß"C$"€€€"E$"ß߀€€€ß";
906 PRINT"ß"B$"ß";
907 PRINT"ß"B$"ß";
908 PRINT"ß"B$"ß";
909 PRINTE$"ß"C$C$C$C$E$"ß";
910 PRINTC$"ß"C$C$C$C$"ß"C$;
911 PRINTC$"ß"C$C$C$C$"ß"C$;
912 PRINTD$;:RETURN
1000 M=10:L=9:R=8:U=11:D=7
1001 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
1002 PRINTC$"€ß€€€€ß"C$"€€€ß€€€€ß"C$"€";
1003 PRINTC$"€ß€€€€ß"C$"€€€ß€€€€ß"C$"€";
1004 PRINT"ß߀€€€ß€€€€ß"C$"€€€ß€€€€ß€€€€ßß";
1005 PRINT"ß߀€€€ß€€€€ßß߀€€€ßß߀€€€ß€€€€ßß";
1006 PRINT"ß߀€€€ß"C$C$C$"€€€ß€€€€ßß";
1007 PRINT"ß߀€€€ß"C$C$C$"€€€ß€€€€ßß";
1008 PRINT"ß߀€€€ß"C$C$C$"€€€ß€€€€ßß";
1009 PRINTE$E$"ßßß߀€€€"E$E$"ßßßß";
1010 PRINTC$"ß"C$"€€ß€€€€ß"C$"€€ß"C$;
1011 PRINTC$"ß"C$"€€ß€€€€ß"C$"€€ß"C$;
1012 PRINT"ßß߀€ß€€"E$"߀€€€"E$"߀€ß€€ßßß";:RETURN
1100 M=11:L=19:R=19:U=3:D=10
1101 PRINTE$"ß߀߀߀ß"C$"€ß€ß€ß€"E$"ßß";
1102 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
1103 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
1104 PRINT"ß"C$E$E$E$E$C$"ß";
1105 PRINT"ß"C$E$E$E$E$C$"ß";
1106 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
1107 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
1108 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
1109 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
1110 PRINT"ß"B$"ß";
1111 PRINT"ß"B$"ß";
1112 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
1200 M=12:L=13:R=13:U=4:D=13
1201 PRINTE$E$"ß߀"C$"€€"E$E$"ßß";
1202 PRINTC$"€ß"C$C$C$"€€€ß"C$"€";
1203 PRINTC$"€ß"C$C$C$"€€€ß"C$"€";
1204 PRINT"ßßß߀€ß"C$C$C$"€€€ß€€ßßßß";
1205 PRINT"ßßß߀€ß€€€"E$E$"ß߀€€ß€€ßßßß";
1206 PRINTC$"€ß"C$"€€€ßß"C$"€€€ß"C$"€";
1207 PRINTC$"€ß"C$"€€€ßß"C$"€€€ß"C$"€";
1208 PRINTE$"ß߀€ß"C$"ßß"C$"߀€"E$"ßß";
1209 PRINTE$"ß߀€ß"C$"ßß"C$"߀€"E$"ßß";
1210 PRINTC$"€€€€ß"C$"ßß"C$"ß"C$"€€€€";
1211 PRINTC$"€€€€ß"C$"ßß"C$"ß"C$"€€€€";
1212 PRINTE$E$"€€ß€€ß߀€ß€€"E$E$;:RETURN
1300 M=13:L=12:R=12:U=12:D=14
1301 PRINTE$E$"€€ß€€ß߀€ß€€"E$E$;
1302 PRINTC$C$"€€ß€€ß߀€ß"C$C$"€€";
1303 PRINTC$C$"€€ß€€ß߀€ß"C$C$"€€";
1304 PRINT"ßßßß"C$"€€€ß€€ß߀€ß"C$"€€€ßßßß";
1305 PRINT"ßßßß"C$"ßßß߀€ß߀€ßßßß"C$"ßßßß";
1306 PRINTC$"€€€€ß"C$C$"€€ß"C$"€€€€";
1307 PRINTC$"€€€€ß"C$C$"€€ß"C$"€€€€";
1308 PRINTE$"ß߀€ß"C$C$"€€ß€€"E$"ßß";
1309 PRINTE$"ß߀€ß€€"E$"ßß߀€ß€€"E$"ßß";
1310 PRINTC$"€ß€€ß€€ß"C$"€ß€€ß€€ß"C$"€";
1311 PRINTC$"€ß€€ß€€ß"C$"€ß€€ß€€ß"C$"€";
1312 PRINT"ßßß߀€ß€€ß€€ß€€ß߀€ß€€ß€€ß€€ßßßß";:RETURN
1400 M=14:L=15:R=18:U=13:D=19
1401 PRINT"ßßß߀€ß€€ß€€ß€€ß߀€ß€€ß€€ß€€ßßßß";
1402 PRINTC$"€ß"C$"߀€ß߀€ß"C$"ß"C$"€";
1403 PRINTC$"€ß"C$"߀€ß߀€ß"C$"ß"C$"€";
1404 PRINTC$"€"E$"ß߀€ß߀€"E$"ßß"C$"€";
1405 PRINTC$"€"E$"ß߀€ß߀€"E$"ßß"C$"€";
1406 PRINTC$C$C$"ßß"C$C$C$;
1407 PRINTC$C$C$"ßß"C$C$C$;
1408 PRINTC$"€"E$"߀€€ß߀€€"E$"ß"C$"€";
1409 PRINTC$"€"E$"߀€€ß߀€€"E$"ß"C$"€";
1410 PRINTC$"€ß"C$"€€€ßß"C$"€€€ß"C$"€";
1411 PRINTC$"€ß"C$"€€€ßß"C$"€€€ß"C$"€";
1412 PRINTD$;:RETURN
1500 M=15:L=18:R=14:U=16:D=17
1501 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
1502 PRINTB$"€€";
1503 PRINTB$"€€";
1504 PRINTB$"€€";
1505 PRINTB$"€€";
1506 PRINTB$"€€";
1507 PRINTB$"€€";
1508 PRINTB$"€€";
1509 PRINTB$"€€";
1510 PRINTB$"€€";
1511 PRINTB$"€€";
1512 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
1600 M=16:L=16:R=16:U=17:D=15
1601 PRINTE$"ß߀߀߀ß"C$"€ß€ß€ß€"E$"ßß";
1602 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
1603 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
1604 PRINT"ß"C$E$E$E$E$C$"ß";
1605 PRINT"ß"C$E$E$E$E$C$"ß";
1606 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
1607 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
1608 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
1609 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
1610 PRINT"ß"B$"ß";
1611 PRINT"ß"B$"ß";
1612 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
1700 M=17:L=11:R=11:U=15:D=16
1701 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
1702 PRINT"ß"B$"ß";
1703 PRINT"ß"B$"ß";
1704 PRINT"ß"B$"ß";
1705 PRINT"ß"B$"ß";
1706 PRINT"ß"B$"ß";
1707 PRINT"ß"B$"ß";
1708 PRINT"ß"B$"ß";
1709 PRINT"ß"B$"ß";
1710 PRINT"ß"B$"ß";
1711 PRINT"ß"B$"ß";
1712 PRINTD$;:RETURN
1800 M=18:L=14:R=15:U=19:D=20:GOTO1501
1900 M=19:L=7:R=7:U=20:D=18:GOTO151
2000 M=20:L=3:R=3:U=18:D=11:GOTO1701
2100 M=21:L=18:R=15:U=92:D=33:GOTO1501
2200 M=22:L=22:R=22:U=22:D=1:GOTO151
2300 M=23:L=24:R=24:U=24:D=11
2301 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
2302 PRINT"ß"B$"ß";
2303 PRINT"ß"B$"ß";
2304 PRINT"ß"B$"ß";
2305 PRINT"ß"B$"ß";
2306 PRINT"ß"B$"ß";
2307 PRINT"ß"B$"ß";
2308 PRINT"ß"B$"ß";
2309 PRINT"ß"B$"ß";
2310 PRINT"ß"B$"ß";
2311 PRINT"ß"B$"ß";
2312 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
2400 M=24:L=25:R=26:U=27:D=23
2401 PRINT"ß߀€ß€€ßß߀€ß€€ß߀€ß€€ßß߀€ß€€ßß";
2402 PRINT"€€€€ß"C$"€€ß€€ß߀€ß"C$"€€ß€€€€";
2403 PRINT"€€€€ß"C$"€€ß€€ß߀€ß"C$"€€ß€€€€";
2404 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2405 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2406 PRINTB$"€€";
2407 PRINTB$"€€";
2408 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2409 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2410 PRINTB$"€€";
2411 PRINTB$"€€";
2412 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
2500 M=25:L=27:R=24:U=26:D=26
2501 PRINTE$"ß߀€€€"E$"ßßßß߀€€€ß"E$"ß";
2502 PRINT"ß"C$C$"€€€€ß"C$C$C$"€";
2503 PRINT"ß"C$C$"€€€€ß"C$C$C$"€";
2504 PRINT"߀€€€"E$E$"߀€€€"E$E$"ßß";
2505 PRINT"߀€€€"E$E$"߀€€€"E$E$"ßß";
2506 PRINTC$"ß"C$C$"€€€€ßß"C$C$;
2507 PRINTC$"ß"C$C$"€€€€ßß"C$C$;
2508 PRINTE$"߀€€€"E$E$"ß߀€€€"E$"ß";
2509 PRINTE$"߀€€€"E$E$"ß߀€€€"E$"ß";
2510 PRINT"ß"C$"€€€€ß€€€€ß"C$C$"ß"C$;
2511 PRINT"ß"C$"€€€€ß€€€€ß"C$C$"ß"C$;
2512 PRINTE$"߀€€€"E$E$"ß߀€€€"E$"ß";:RETURN
2600 M=26:L=24:R=27:U=25:D=25
2601 PRINTE$"߀€€€ß"E$E$"߀€€€"E$"ß";
2602 PRINTC$C$"ßß"C$"€€€ß߀€€€"C$"€";
2603 PRINTC$C$"ßß"C$"€€€ß߀€€€"C$"€";
2604 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
2605 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
2606 PRINTB$"€€";
2607 PRINTB$"€€";
2608 PRINT"߀€€€"E$E$E$E$"ß߀€€€ß";
2609 PRINT"߀€€€"E$E$E$E$"ß߀€€€ß";
2610 PRINTC$"ßß"C$C$C$"€€€ßß"C$;
2611 PRINTC$"ßß"C$C$C$"€€€ßß"C$;
2612 PRINTE$"ß߀€€€"E$E$"€€€€"E$"ßß";:RETURN
2700 M=27:L=26:R=25:U=24:D=24
2701 PRINTD$;
2702 PRINTC$C$C$"ßß"C$C$"€€€ßß";
2703 PRINTC$C$C$"ßß"C$C$"€€€ßß";
2704 PRINTE$E$"ßß߀€"E$E$"ßß߀€ßß";
2705 PRINTE$E$"ßß߀€"E$E$"ßß߀€ßß";
2706 PRINTC$C$"€€ß"C$C$"€€€€ß€€€€";
2707 PRINTC$C$"€€ß"C$C$"€€€€ß€€€€";
2708 PRINT"ßßß߀€€"E$E$"ß߀€€"E$E$;
2709 PRINT"ßßß߀€€"E$E$"ß߀€€"E$E$;
2710 PRINTC$"€€ßßß"C$"ßß"C$"ßßß"C$"ßß";
2711 PRINTC$"€€ßßß"C$"ßß"C$"ßßß"C$"ßß";
2712 PRINT"ß߀€ß€€ßß߀€ß€€ß߀€ß€€ßß߀€ß€€ßß";:RETURN
2800 M=28:L=31:R=31:U=29:D=16
2801 PRINT"ßß߀€ßßß߀€ßß"C$"€ß߀€ßßß߀€ßßß";
2802 PRINT"ßßß"C$"€€€ßß"C$"€ßß"C$"€€€ßßß";
2803 PRINT"ßßß"C$"€€€ßß"C$"€ßß"C$"€€€ßßß";
2804 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2805 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
2806 PRINTC$"ß"C$C$C$C$"ß"C$;
2807 PRINTC$"ß"C$C$C$C$"ß"C$;
2808 PRINT"ßß߀€ß"C$C$C$C$"߀€ßßß";
2809 PRINT"ßß߀€ß"C$C$C$C$"߀€ßßß";
2810 PRINTC$"ß"C$C$C$C$"ß"C$;
2811 PRINTC$"ß"C$C$C$C$"ß"C$;
2812 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";:RETURN
2900 M=29:L=30:R=30:U=28:D=28
2901 PRINTD$;
2902 PRINTC$C$C$"ßß"C$C$C$;
2903 PRINTC$C$C$"ßß"C$C$C$;
2904 PRINTE$E$"ßß߀€ß߀€"E$E$"ßßß";
2905 PRINTE$E$"ßß߀€ß߀€"E$E$"ßßß";
2906 PRINTC$C$"€ß߀€ß߀€ßß"C$C$"€";
2907 PRINTC$C$"€ß߀€ß߀€ßß"C$C$"€";
2908 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";
2909 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";
2910 PRINT"ßß߀€ß€€ß"C$C$"€€€€ß€€ß€€ßßß";
2911 PRINT"ßß߀€ß€€ß"C$C$"€€€€ß€€ß€€ßßß";
2912 PRINT"ßß߀€ßßß߀€ßß"C$"€ß߀€ßßß߀€ßßß";:RETURN
3000 M=30:L=29:R=29:U=31:D=31
3001 PRINTD$;
3002 PRINTB$"€€";
3003 PRINTB$"€€";
3004 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
3005 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
3006 PRINTC$C$"€€ß"C$"€ßß"C$C$"€";
3007 PRINTC$C$"€€ß"C$"€ßß"C$C$"€";
3008 PRINTE$E$"€€ß"C$"€ß߀€"E$"ßßßß";
3009 PRINTE$E$"€€ß"C$"€ß߀€"E$"ßßßß";
3010 PRINT"ßßß"C$"ß߀€ß€€ß߀€ß߀€ß"C$"ßßß";
3011 PRINT"ßßß"C$"ß߀€ß€€ß߀€ß߀€ß"C$"ßßß";
3012 PRINT"ßß߀€ß€€"E$"€€ß߀€"E$"€€ß€€ßßß";:RETURN
3100 M=31:L=28:R=28:U=30:D=30
3101 PRINT"ßß߀€ß€€"E$"€€ß߀€"E$"€€ß€€ßßß";
3102 PRINT"ßß߀€ß"C$C$C$C$"߀€ßßß";
3103 PRINT"ßß߀€ß"C$C$C$C$"߀€ßßß";
3104 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";
3105 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";
3106 PRINTC$"߀€ßß"C$C$"€€€ß€€ß"C$;
3107 PRINTC$"߀€ßß"C$C$"€€€ß€€ß"C$;
3108 PRINTE$E$C$C$"€€€"E$"ßßßß";
3109 PRINTE$E$C$C$"€€€"E$"ßßßß";
3110 PRINTB$"€€";
3111 PRINTB$"€€";
3112 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";:RETURN
3200 M=32:L=5:R=3:U=9:D=9
3201 PRINTD$;
3202 PRINTB$"ۧ";
3203 PRINTB$"ۧ";
3204 PRINTB$"ۧ";
3205 PRINTB$"ۧ";
3206 PRINTB$"ۧ";
3207 PRINTB$"ۧ";
3208 PRINTB$"ۧ";
3209 PRINTB$"ۧ";
3210 PRINTB$"ۧ";
3211 PRINTB$"ۧ";
3212 PRINTD$;:RETURN