/
ADVENTR5.TXT
671 lines (607 loc) · 19 KB
/
ADVENTR5.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
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
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 IFV<30THENONV-19GOSUB2000,2100,2200,2300,2400,2500,2600,2700,2800,2900:RETURN
43 IFV<40THENONV-29GOSUB3000,3100,3200,3300,3400,3500,3600,3700,3800,3900:RETURN
44 IFV<50THENONV-39GOSUB4000,4100,4200,4300,4400,4500,4600,4700,4800,4900:RETURN
45 ONV-49GOSUB5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000:RETURN
46 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
3300 M=33:L=39:R=35:U=21:D=34:GOTO2301
3400 M=34:L=35:R=39:U=33:D=37
3401 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";
3402 PRINTC$"ß"C$C$C$C$"ß"C$;
3403 PRINTC$"ß"C$C$C$C$"ß"C$;
3404 PRINTE$E$"€€ß"C$"€ß߀€"E$"ßßßß";
3405 PRINTE$E$"€€ß"C$"€ß߀€"E$"ßßßß";
3406 PRINTC$C$"€€ß߀€€€ßßß"C$C$"€";
3407 PRINTC$C$"€€ß߀€€€ßßß"C$C$"€";
3408 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";
3409 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";
3410 PRINTC$"߀€"E$"߀€€€"E$"߀€ß"C$;
3411 PRINTC$"߀€"E$"߀€€€"E$"߀€ß"C$;
3412 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";:RETURN
3500 M=35:L=38:R=34:U=40:D=36
3501 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
3502 PRINTC$"€€€ß"C$C$"€€€€ß"C$"€€€";
3503 PRINTC$"€€€ß"C$C$"€€€€ß"C$"€€€";
3504 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";
3505 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";
3506 PRINTC$"߀€ß"C$C$"€€€€ß€€ß"C$;
3507 PRINTC$"߀€ß"C$C$"€€€€ß€€ß"C$;
3508 PRINTE$"߀€ß€€ßß߀€€€ßß߀€ß€€"E$"ß";
3509 PRINTE$"߀€ß€€ßß߀€€€ßß߀€ß€€"E$"ß";
3510 PRINTC$"ß"C$"ß"C$"€€€ß"C$"ß"C$;
3511 PRINTC$"ß"C$"ß"C$"€€€ß"C$"ß"C$;
3512 PRINT"ßß߀€ß€€ßßß߀€ßßß߀€ßßß߀€ß€€ßßß";:RETURN
3600 M=36:L=39:R=37:U=35:D=41
3601 PRINT"ßß߀€ß€€ßßß߀€ßßß߀€ßßß߀€ß€€ßßß";
3602 PRINTC$"߀€ß"C$"ßßßß"C$"߀€ß"C$;
3603 PRINTC$"߀€ß"C$"ßßßß"C$"߀€ß"C$;
3604 PRINT"ßß߀€ß€€ß€€"E$E$"€€ß€€ß€€ßßß";
3605 PRINT"ßß߀€ß€€ß€€"E$E$"€€ß€€ß€€ßßß";
3606 PRINT"ßß߀€ß"C$"ß"C$"€€€ß"C$"߀€ßßß";
3607 PRINT"ßß߀€ß"C$"ß"C$"€€€ß"C$"߀€ßßß";
3608 PRINT"ßß߀€"E$E$E$E$"ß߀€ßßß";
3609 PRINT"ßß߀€"E$E$E$E$"ß߀€ßßß";
3610 PRINTB$"€€";
3611 PRINTB$"€€";
3612 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
3700 M=37:L=36:R=38:U=34:D=48
3701 PRINTE$"߀€"E$"߀€€€"E$"߀€"E$"ß";
3702 PRINTC$"ß"C$"€€ß"C$"€€€€ß"C$"€€€";
3703 PRINTC$"ß"C$"€€ß"C$"€€€€ß"C$"€€€";
3704 PRINT"ßß߀€"E$E$E$E$E$"ßß";
3705 PRINT"ßß߀€"E$E$E$E$E$"ßß";
3706 PRINT"ßßß"C$C$C$C$C$"€€€€";
3707 PRINT"ßßß"C$C$C$C$C$"€€€€";
3708 PRINTD$;
3709 PRINTD$;
3710 PRINTB$"€€";
3711 PRINTB$"€€";
3712 PRINTD$;:RETURN
3800 M=38:L=37:R=35:U=39:D=0
3801 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";
3802 PRINTC$"߀€ßß"C$C$"€€ß߀€ß"C$;
3803 PRINTC$"߀€ßß"C$C$"€€ß߀€ß"C$;
3804 PRINT"ßß߀€ß€€ß߀€"E$"ßß߀€ß߀€ß€€ßßß";
3805 PRINT"ßß߀€ß€€ß߀€"E$"ßß߀€ß߀€ß€€ßßß";
3806 PRINTC$"ß"C$"€ß߀€€€ßß"C$"€ß"C$;
3807 PRINTC$"ß"C$"€ß߀€€€ßß"C$"€ß"C$;
3808 PRINTE$E$"€€ß߀€€€ß߀€"E$E$;
3809 PRINTE$E$"€€ß߀€€€ß߀€"E$E$;
3810 PRINTC$C$"€€ß߀€€€ßß"C$C$"€€";
3811 PRINTC$C$"€€ß߀€€€ßß"C$C$"€€";
3812 PRINTE$E$"ßßß߀€€€"E$E$"ßßßß";:RETURN
3900 M=39:L=34:R=36:U:149:D=38
3901 PRINTD$;
3902 PRINTC$"€€€ß"C$C$"€ß€€ß"C$"€€€";
3903 PRINTC$"€€€ß"C$C$"€ß€€ß"C$"€€€";
3904 PRINTE$"߀€ß€€ß€€ßßß߀€ß€€ß€€"E$"ß";
3905 PRINTE$"߀€ß€€ß€€ßßß߀€ß€€ß€€"E$"ß";
3906 PRINTC$C$"€ß€€ßßß߀€ß"C$C$"ß";
3907 PRINTC$C$"€ß€€ßßß߀€ß"C$C$"ß";
3908 PRINTE$E$"ß߀€ßßß߀€"E$E$"ßß";
3909 PRINTE$E$"ß߀€ßßß߀€"E$E$"ßß";
3910 PRINTC$"ß"C$"€€€ßßßß"C$"€€€ß"C$;
3911 PRINTC$"ß"C$"€€€ßßßß"C$"€€€ß"C$;
3912 PRINT"ßß߀€ß€€"E$E$E$"߀€ß€€ßßß";:RETURN
4000 M=40:L=33:R=33:U=43:D=35
4001 PRINTE$"ß߀߀߀ß"C$"€ß€ß€ß€"E$"ßß";
4002 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
4003 PRINT"ß"C$E$"ßß"C$"€"E$"ßß"C$"ß";
4004 PRINT"ß"C$E$E$E$E$C$"ß";
4005 PRINT"ß"C$E$E$E$E$C$"ß";
4006 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
4007 PRINT"ß"C$"€€"E$E$E$"ß"C$"€€ß";
4008 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
4009 PRINT"ß"C$"€€"E$"߀€€€"E$"ß"C$"€€ß";
4010 PRINT"ß"B$"ß";
4011 PRINT"ß"B$"ß";
4012 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
4100 M=41:L=57:R=56:U=36:D=42:GOTO1501
4200 M=42:L=43:R=48:U=41:D=0:GOTO5801
4300 M=43:L=45:R=42:U=44:D=0:GOTO5801
4400 M=44:L=50:R=41:U=43:D=43:GOTO151
4500 M=45:L=47:R=43:U=52:D=46:GOTO401
4600 M=46:L=0:R=0:U=45:D=0:GOTO5801
4700 M=47:L=49:R=45:U=50:D=56:GOTO201
4800 M=48:L=42:R=49:U=37:D=0
4801 PRINTD$;
4802 PRINTB$"€€";
4803 PRINTB$"€€";
4804 PRINTB$"€€";
4805 PRINTB$"€€";
4806 PRINTB$"€€";
4807 PRINTB$"€€";
4808 PRINTB$"€€";
4809 PRINTB$"€€";
4810 PRINTB$"€€";
4811 PRINTB$"€€";
4812 PRINTD$;:RETURN
4900 M=49:L=48:R=47:U=38:D=0:GOTO4801
5000 M=50:L=52:R=52:U=51:D=47
5001 PRINT"ßß߀€ß€€ß€€ß"C$"€€€ß€€ß€€ß€€ßßß";
5002 PRINT"ßßß"C$"ß"C$C$"€€€€ß"C$"ßßß";
5003 PRINT"ßßß"C$"ß"C$C$"€€€€ß"C$"ßßß";
5004 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5005 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5006 PRINTB$"€€";
5007 PRINTB$"€€";
5008 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5009 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5010 PRINTC$C$"€ß"C$"€€€ß"C$C$"€";
5011 PRINTC$C$"€ß"C$"€€€ß"C$C$"€";
5012 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";:RETURN
5100 M=51:L=54:R=53:U=47:D=50
5101 PRINTD$;
5102 PRINTB$"€€";
5103 PRINTB$"€€";
5104 PRINTE$"ßßß߀€"E$E$"€€"E$"ßßßß";
5105 PRINTE$"ßßß߀€"E$E$"€€"E$"ßßßß";
5106 PRINTC$"€€€ß€€ß"C$"€€€ß€€ß"C$"€€€";
5107 PRINTC$"€€€ß€€ß"C$"€€€ß€€ß"C$"€€€";
5108 PRINTE$"߀€ß€€ß"C$"€€€ß€€ß€€"E$"ß";
5109 PRINTE$"߀€ß€€ß"C$"€€€ß€€ß€€"E$"ß";
5110 PRINTC$"߀€ß€€ßß߀€€€ßß߀€ß€€ß"C$;
5111 PRINTC$"߀€ß€€ßß߀€€€ßß߀€ß€€ß"C$;
5112 PRINT"ßß߀€ß€€ß€€ß"C$"€€€ß€€ß€€ß€€ßßß";:RETURN
5200 M=52:L=50:R=50:U=53:D=55
5201 PRINT"ßßß߀€ß߀€ßßß߀€€€ßßß߀€ß߀€ßßßß";
5202 PRINT"ßßßß"C$"€ßßß߀€€€ßßßß"C$"€ßßßß";
5203 PRINT"ßßßß"C$"€ßßß߀€€€ßßßß"C$"€ßßßß";
5204 PRINT"ßßß߀€"E$"ßß߀€€€"E$"ßß߀€ßßßß";
5205 PRINT"ßßß߀€"E$"ßß߀€€€"E$"ßß߀€ßßßß";
5206 PRINTC$"€ßß"C$"߀€€€ß"C$"ßß"C$"€";
5207 PRINTC$"€ßß"C$"߀€€€ß"C$"ßß"C$"€";
5208 PRINTE$"ßß߀€ß€€ß€€€€ß€€ß€€"E$"ßßß";
5209 PRINTE$"ßß߀€ß€€ß€€€€ß€€ß€€"E$"ßßß";
5210 PRINTC$C$"߀€ß€€€€ß€€ß"C$C$;
5211 PRINTC$C$"߀€ß€€€€ß€€ß"C$C$;
5212 PRINTE$E$"߀€ß€€€€ß€€"E$E$"ß";:RETURN
5300 M=53:L=51:R=54:U=0:D=52
5301 PRINTD$;
5302 PRINTC$C$"€€€"E$"ß"C$C$"€€€";
5303 PRINTC$C$"€€€"E$"ß"C$C$"€€€";
5304 PRINTD$;
5305 PRINTD$;
5306 PRINTB$"€€";
5307 PRINTB$"€€";
5308 PRINTE$E$"ßßß߀€€€"E$E$"ßßßß";
5309 PRINTE$E$"ßßß߀€€€"E$E$"ßßßß";
5310 PRINTC$"€ßß"C$"߀€€€ß"C$"ßß"C$"€";
5311 PRINTC$"€ßß"C$"߀€€€ß"C$"ßß"C$"€";
5312 PRINT"ßßß߀€ß߀€ßßß߀€€€ßßß߀€ß߀€ßßßß";:RETURN
5400 M=54:L=53:R=51:U=46:D=60
5401 PRINTD$;
5402 PRINTB$"€€";
5403 PRINTB$"€€";
5404 PRINTD$;
5405 PRINTD$;
5406 PRINTC$C$"€€€€ßßßß"C$C$"€€€€";
5407 PRINTC$C$"€€€€ßßßß"C$C$"€€€€";
5408 PRINTD$;
5409 PRINTD$;
5410 PRINTB$"€€";
5411 PRINTB$"€€";
5412 PRINTD$;:RETURN
5500 M=55:L=56:R=57:U=52:D=58
5501 PRINTE$E$"߀€ß€€€€ß€€"E$E$"ß";
5502 PRINT"€€€€ß"C$"€€€ß€€€€ß"C$"€€€ß€€€€";
5503 PRINT"€€€€ß"C$"€€€ß€€€€ß"C$"€€€ß€€€€";
5504 PRINT"€€€€ß€€"E$"ß߀€€€"E$"ß߀€ß€€€€";
5505 PRINT"€€€€ß€€"E$"ß߀€€€"E$"ß߀€ß€€€€";
5506 PRINT"€€€€ß"C$"€€€ß€€€€ß"C$"€€€ß€€€€";
5507 PRINT"€€€€ß"C$"€€€ß€€€€ß"C$"€€€ß€€€€";
5508 PRINT"€€€€"E$"ß߀€ß€€€€ß€€"E$"ß߀€€€";
5509 PRINT"€€€€"E$"ß߀€ß€€€€ß€€"E$"ß߀€€€";
5510 PRINTB$"€€";
5511 PRINTB$"€€";
5512 PRINTE$E$"ßßß"C$"€"E$E$"ßßß";:RETURN
5600 M=56:L=57:R=55:U=59:D=60
5661 PRINTD$;
5602 PRINT"ß"B$"€";
5603 PRINT"ß"B$"€";
5604 PRINT"ß"B$"€";
5605 PRINT"ß"B$"€";
5606 PRINT"ß"B$"€";
5607 PRINT"ß"B$"€";
5608 PRINT"ß"B$"€";
5609 PRINT"ß"B$"€";
5610 PRINT"ß"B$"€";
5611 PRINT"ß"B$"€";
5612 PRINTD$;:RETURN
5700 M=57:L=55:R=56:U=61:D=0:GOTO3201
5800 M=58:L=59:R=60:U=55:D=51
5801 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5802 PRINTB$"ۧ";
5803 PRINTB$"ۧ";
5804 PRINTB$"ۧ";
5805 PRINTB$"ۧ";
5806 PRINTB$"ۧ";
5807 PRINTB$"ۧ";
5808 PRINTB$"ۧ";
5809 PRINTB$"ۧ";
5810 PRINTB$"ۧ";
5811 PRINTB$"ۧ";
5812 PRINTD$;:RETURN
5900 M=59:L=0:R=58:U=60:D=54
5901 PRINTE$E$"ßß"C$"€€€"E$E$"ßß";
5902 PRINT"ß"B$"€";
5903 PRINT"ß"B$"€";
5904 PRINT"ß"B$"€";
5905 PRINT"ß"B$"€";
5906 PRINT"ß"B$"€";
5907 PRINT"ß"B$"€";
5908 PRINT"ß"B$"€";
5909 PRINT"ß"B$"€";
5910 PRINT"ß"B$"€";
5911 PRINT"ß"B$"€";
5912 PRINTD$;:RETURN
6000 M=60:L=62:R=62:U=64:D=59:GOTO151