00000000: 39 30 30 30 20 2F 2F 0D 39 30 31 30 20 50 52 4F |9000 //.9010 PRO|
00000010: 43 20 44 55 4D 50 27 31 35 32 35 20 43 4C 4F 53 |C DUMP'1525 CLOS|
00000020: 45 44 0D 39 30 32 30 20 4F 4C 44 5A 4F 4E 45 3A |ED.9020 OLDZONE:|
00000030: 3D 5A 4F 4E 45 0D 39 30 33 30 20 5A 4F 4E 45 20 |=ZONE.9030 ZONE |
00000040: 30 0D 39 30 34 30 20 43 48 41 52 27 54 4F 27 50 |0.9040 CHAR'TO'P|
00000050: 52 49 4E 54 45 52 28 43 48 52 24 28 32 38 29 2C |RINTER(CHR$(28),|
00000060: 36 29 0D 39 30 35 30 20 49 46 20 50 45 45 4B 28 |6).9050 IF PEEK(|
00000070: 34 39 31 37 31 29 3C 3E 31 36 35 20 54 48 45 4E |49171)<>165 THEN|
00000080: 20 4D 4C 50 4F 4B 45 52 0D 39 30 36 30 20 4F 50 | MLPOKER.9060 OP|
00000090: 45 4E 20 46 49 4C 45 20 32 35 35 2C 22 22 2C 55 |EN FILE 255,"",U|
000000A0: 4E 49 54 20 34 2C 30 2C 57 52 49 54 45 0D 39 30 |NIT 4,0,WRITE.90|
000000B0: 37 30 20 50 52 49 4E 54 20 46 49 4C 45 20 32 35 |70 PRINT FILE 25|
000000C0: 35 3A 20 43 48 52 24 28 31 33 29 2B 43 48 52 24 |5: CHR$(13)+CHR$|
000000D0: 28 31 30 29 2C 0D 39 30 38 30 20 50 52 49 4E 54 |(10),.9080 PRINT|
000000E0: 20 46 49 4C 45 20 32 35 35 3A 20 43 48 52 24 28 | FILE 255: CHR$(|
000000F0: 38 29 2C 0D 39 30 39 30 20 53 59 53 20 34 39 31 |8),.9090 SYS 491|
00000100: 37 31 0D 39 31 30 30 20 43 48 41 52 27 54 4F 27 |71.9100 CHAR'TO'|
00000110: 50 52 49 4E 54 45 52 28 43 48 52 24 28 31 35 29 |PRINTER(CHR$(15)|
00000120: 2C 30 29 0D 39 31 31 30 20 43 48 41 52 27 54 4F |,0).9110 CHAR'TO|
00000130: 27 50 52 49 4E 54 45 52 28 43 48 52 24 28 33 30 |'PRINTER(CHR$(30|
00000140: 29 2C 36 29 0D 39 31 32 30 20 5A 4F 4E 45 20 4F |),6).9120 ZONE O|
00000150: 4C 44 5A 4F 4E 45 0D 39 31 33 30 20 45 4E 44 50 |LDZONE.9130 ENDP|
00000160: 52 4F 43 20 44 55 4D 50 27 31 35 32 35 0D 39 31 |ROC DUMP'1525.91|
00000170: 34 30 20 2F 2F 0D 39 31 35 30 20 50 52 4F 43 20 |40 //.9150 PROC |
00000180: 43 48 41 52 27 54 4F 27 50 52 49 4E 54 45 52 28 |CHAR'TO'PRINTER(|
00000190: 43 24 2C 53 41 29 20 0D 39 31 36 30 20 4F 50 45 |C$,SA) .9160 OPE|
000001A0: 4E 20 46 49 4C 45 20 32 35 35 2C 22 22 2C 55 4E |N FILE 255,"",UN|
000001B0: 49 54 20 34 2C 53 41 2C 52 45 41 44 0D 39 31 37 |IT 4,SA,READ.917|
000001C0: 30 20 50 52 49 4E 54 20 46 49 4C 45 20 32 35 35 |0 PRINT FILE 255|
000001D0: 3A 20 43 24 2C 0D 39 31 38 30 20 43 4C 4F 53 45 |: C$,.9180 CLOSE|
000001E0: 20 46 49 4C 45 20 32 35 35 0D 39 31 39 30 20 45 | FILE 255.9190 E|
000001F0: 4E 44 50 52 4F 43 20 0D 39 32 30 30 20 2F 2F 0D |NDPROC .9200 //.|
00000200: 39 32 31 30 20 50 52 4F 43 20 4D 4C 50 4F 4B 45 |9210 PROC MLPOKE|
00000210: 52 20 43 4C 4F 53 45 44 0D 39 32 32 30 20 53 3A |R CLOSED.9220 S:|
00000220: 3D 30 0D 39 32 33 30 20 46 4F 52 20 49 3A 3D 34 |=0.9230 FOR I:=4|
00000230: 39 31 35 32 20 54 4F 20 34 39 34 34 34 20 44 4F |9152 TO 49444 DO|
00000240: 0D 39 32 34 30 20 52 45 41 44 20 44 41 54 0D 39 |.9240 READ DAT.9|
00000250: 32 35 30 20 50 4F 4B 45 20 49 2C 44 41 54 0D 39 |250 POKE I,DAT.9|
00000260: 32 36 30 20 53 3A 3D 53 2B 44 41 54 0D 39 32 37 |260 S:=S+DAT.927|
00000270: 30 20 45 4E 44 46 4F 52 20 49 0D 39 32 38 30 20 |0 ENDFOR I.9280 |
00000280: 49 46 20 53 3C 3E 33 30 33 31 34 20 54 48 45 4E |IF S<>30314 THEN|
00000290: 0D 39 32 39 30 20 50 52 49 4E 54 20 22 45 52 52 |.9290 PRINT "ERR|
000002A0: 4F 52 20 49 4E 20 44 41 54 41 20 4C 49 4E 45 53 |OR IN DATA LINES|
000002B0: 22 0D 39 33 30 30 20 45 4E 44 20 0D 39 33 31 30 |".9300 END .9310|
000002C0: 20 45 4E 44 49 46 20 0D 39 33 32 30 20 2F 2F 0D | ENDIF .9320 //.|
000002D0: 39 33 33 30 20 44 41 54 41 20 30 2C 30 2C 30 2C |9330 DATA 0,0,0,|
000002E0: 30 2C 32 32 34 2C 30 2C 30 2C 30 2C 30 2C 31 2C |0,224,0,0,0,0,1,|
000002F0: 32 2C 34 2C 38 0D 39 33 34 30 20 44 41 54 41 20 |2,4,8.9340 DATA |
00000300: 31 36 2C 33 32 2C 36 34 2C 31 32 38 2C 30 2C 30 |16,32,64,128,0,0|
00000310: 2C 31 36 35 2C 32 0D 39 33 35 30 20 44 41 54 41 |,165,2.9350 DATA|
00000320: 20 37 32 2C 31 36 35 2C 33 2C 37 32 2C 31 36 39 | 72,165,3,72,169|
00000330: 0D 39 33 36 30 20 44 41 54 41 20 30 2C 31 34 31 |.9360 DATA 0,141|
00000340: 2C 36 2C 31 39 32 2C 31 36 32 2C 32 35 35 2C 33 |,6,192,162,255,3|
00000350: 32 0D 39 33 37 30 20 44 41 54 41 20 32 30 31 2C |2.9370 DATA 201,|
00000360: 32 35 35 2C 31 36 39 2C 30 2C 31 34 31 2C 31 0D |255,169,0,141,1.|
00000370: 39 33 38 30 20 44 41 54 41 20 31 39 32 2C 31 34 |9380 DATA 192,14|
00000380: 31 2C 32 2C 31 39 32 2C 31 36 39 2C 30 0D 39 33 |1,2,192,169,0.93|
00000390: 39 30 20 44 41 54 41 20 31 34 31 2C 38 2C 31 39 |90 DATA 141,8,19|
000003A0: 32 2C 31 34 31 2C 37 2C 31 39 32 2C 31 37 33 0D |2,141,7,192,173.|
000003B0: 39 34 30 30 20 44 41 54 41 20 36 2C 31 39 32 2C |9400 DATA 6,192,|
000003C0: 32 34 2C 31 30 39 2C 37 2C 31 39 32 0D 39 34 31 |24,109,7,192.941|
000003D0: 30 20 44 41 54 41 20 31 34 31 2C 30 2C 31 39 32 |0 DATA 141,0,192|
000003E0: 2C 33 32 2C 31 35 34 2C 31 39 32 2C 32 34 30 0D |,32,154,192,240.|
000003F0: 39 34 32 30 20 44 41 54 41 20 31 33 2C 31 37 34 |9420 DATA 13,174|
00000400: 2C 37 2C 31 39 32 2C 31 38 39 2C 39 0D 39 34 33 |,7,192,189,9.943|
00000410: 30 20 44 41 54 41 20 31 39 32 2C 32 34 2C 31 30 |0 DATA 192,24,10|
00000420: 39 2C 38 2C 31 39 32 2C 31 34 31 2C 38 0D 39 34 |9,8,192,141,8.94|
00000430: 34 30 20 44 41 54 41 20 31 39 32 2C 32 33 38 2C |40 DATA 192,238,|
00000440: 37 2C 31 39 32 2C 31 37 33 2C 37 0D 39 34 35 30 |7,192,173,7.9450|
00000450: 20 44 41 54 41 20 31 39 32 2C 32 30 31 2C 37 2C | DATA 192,201,7,|
00000460: 32 30 38 2C 32 31 38 2C 31 37 33 2C 38 0D 39 34 |208,218,173,8.94|
00000470: 36 30 20 44 41 54 41 20 31 39 32 2C 32 34 2C 31 |60 DATA 192,24,1|
00000480: 30 35 2C 31 32 38 2C 33 32 2C 32 31 30 0D 39 34 |05,128,32,210.94|
00000490: 37 30 20 44 41 54 41 20 32 35 35 2C 31 37 33 2C |70 DATA 255,173,|
000004A0: 31 2C 31 39 32 2C 32 34 2C 31 30 35 2C 31 0D 39 |1,192,24,105,1.9|
000004B0: 34 38 30 20 44 41 54 41 20 31 34 34 2C 33 2C 32 |480 DATA 144,3,2|
000004C0: 33 38 2C 32 2C 31 39 32 2C 31 34 31 2C 31 0D 39 |38,2,192,141,1.9|
000004D0: 34 39 30 20 44 41 54 41 20 31 39 32 2C 32 30 31 |490 DATA 192,201|
000004E0: 2C 36 34 2C 32 30 38 2C 31 38 33 2C 31 37 33 0D |,64,208,183,173.|
000004F0: 39 35 30 30 20 44 41 54 41 20 32 2C 31 39 32 2C |9500 DATA 2,192,|
00000500: 32 30 31 2C 31 2C 32 30 38 2C 31 37 36 2C 31 36 |201,1,208,176,16|
00000510: 39 0D 39 35 31 30 20 44 41 54 41 20 31 33 2C 33 |9.9510 DATA 13,3|
00000520: 32 2C 32 31 30 2C 32 35 35 2C 31 37 33 2C 36 0D |2,210,255,173,6.|
00000530: 39 35 32 30 20 44 41 54 41 20 31 39 32 2C 32 34 |9520 DATA 192,24|
00000540: 2C 31 30 35 2C 37 2C 31 34 31 2C 36 2C 31 39 32 |,105,7,141,6,192|
00000550: 0D 39 35 33 30 20 44 41 54 41 20 32 30 31 2C 32 |.9530 DATA 201,2|
00000560: 30 33 2C 32 34 30 2C 33 2C 37 36 2C 33 35 0D 39 |03,240,3,76,35.9|
00000570: 35 34 30 20 44 41 54 41 20 31 39 32 2C 33 32 2C |540 DATA 192,32,|
00000580: 32 33 31 2C 32 35 35 2C 31 30 34 2C 31 33 33 0D |231,255,104,133.|
00000590: 39 35 35 30 20 44 41 54 41 20 33 2C 31 30 34 2C |9550 DATA 3,104,|
000005A0: 31 33 33 2C 32 2C 39 36 2C 31 36 39 2C 31 39 39 |133,2,96,169,199|
000005B0: 0D 39 35 36 30 20 44 41 54 41 20 32 30 35 2C 30 |.9560 DATA 205,0|
000005C0: 2C 31 39 32 2C 31 37 36 2C 33 2C 31 36 39 2C 30 |,192,176,3,169,0|
000005D0: 0D 39 35 37 30 20 44 41 54 41 20 39 36 2C 31 37 |.9570 DATA 96,17|
000005E0: 33 2C 33 2C 31 39 32 2C 31 33 33 2C 32 0D 39 35 |3,3,192,133,2.95|
000005F0: 38 30 20 44 41 54 41 20 31 37 33 2C 34 2C 31 39 |80 DATA 173,4,19|
00000600: 32 2C 31 33 33 2C 33 2C 31 37 33 2C 30 0D 39 35 |2,133,3,173,0.95|
00000610: 39 30 20 44 41 54 41 20 31 39 32 2C 37 34 2C 37 |90 DATA 192,74,7|
00000620: 34 2C 37 34 2C 31 37 30 2C 32 34 30 0D 39 36 30 |4,74,170,240.960|
00000630: 30 20 44 41 54 41 20 31 37 2C 31 36 35 2C 32 2C |0 DATA 17,165,2,|
00000640: 32 34 2C 31 30 35 2C 36 34 0D 39 36 31 30 20 44 |24,105,64.9610 D|
00000650: 41 54 41 20 31 34 34 2C 32 2C 32 33 30 2C 33 2C |ATA 144,2,230,3,|
00000660: 31 33 33 2C 32 2C 32 33 30 0D 39 36 32 30 20 44 |133,2,230.9620 D|
00000670: 41 54 41 20 33 2C 32 30 32 2C 37 36 2C 31 38 31 |ATA 3,202,76,181|
00000680: 2C 31 39 32 2C 31 37 33 0D 39 36 33 30 20 44 41 |,192,173.9630 DA|
00000690: 54 41 20 32 2C 31 39 32 2C 37 34 2C 31 37 33 2C |TA 2,192,74,173,|
000006A0: 31 2C 31 39 32 2C 31 30 36 0D 39 36 34 30 20 44 |1,192,106.9640 D|
000006B0: 41 54 41 20 37 34 2C 37 34 2C 31 37 30 2C 32 34 |ATA 74,74,170,24|
000006C0: 30 2C 31 35 2C 31 36 35 0D 39 36 35 30 20 44 41 |0,15,165.9650 DA|
000006D0: 54 41 20 32 2C 32 34 2C 31 30 35 2C 38 2C 31 34 |TA 2,24,105,8,14|
000006E0: 34 2C 32 2C 32 33 30 0D 39 36 36 30 20 44 41 54 |4,2,230.9660 DAT|
000006F0: 41 20 33 2C 31 33 33 2C 32 2C 32 30 32 2C 37 36 |A 3,133,2,202,76|
00000700: 2C 32 31 31 0D 39 36 37 30 20 44 41 54 41 20 31 |,211.9670 DATA 1|
00000710: 39 32 2C 31 37 33 2C 30 2C 31 39 32 2C 34 31 2C |92,173,0,192,41,|
00000720: 37 2C 32 34 0D 39 36 38 30 20 44 41 54 41 20 31 |7,24.9680 DATA 1|
00000730: 30 31 2C 32 2C 31 34 34 2C 32 2C 32 33 30 2C 33 |01,2,144,2,230,3|
00000740: 2C 31 33 33 0D 39 36 39 30 20 44 41 54 41 20 32 |,133.9690 DATA 2|
00000750: 2C 31 37 33 2C 31 2C 31 39 32 2C 34 31 2C 37 0D |,173,1,192,41,7.|
00000760: 39 37 30 30 20 44 41 54 41 20 31 34 31 2C 35 2C |9700 DATA 141,5,|
00000770: 31 39 32 2C 31 36 39 2C 37 2C 35 36 0D 39 37 31 |192,169,7,56.971|
00000780: 30 20 44 41 54 41 20 32 33 37 2C 35 2C 31 39 32 |0 DATA 237,5,192|
00000790: 2C 31 37 30 2C 31 38 39 2C 39 2C 31 39 32 0D 39 |,170,189,9,192.9|
000007A0: 37 32 30 20 44 41 54 41 20 33 32 2C 31 31 2C 31 |720 DATA 32,11,1|
000007B0: 39 33 2C 34 35 2C 31 38 2C 31 39 32 2C 39 36 0D |93,45,18,192,96.|
000007C0: 39 37 33 30 20 44 41 54 41 20 37 32 2C 31 36 35 |9730 DATA 72,165|
000007D0: 2C 31 2C 31 34 31 2C 31 37 2C 31 39 32 0D 39 37 |,1,141,17,192.97|
000007E0: 34 30 20 44 41 54 41 20 31 32 30 2C 37 33 2C 37 |40 DATA 120,73,7|
000007F0: 2C 31 33 33 2C 31 2C 31 36 32 2C 30 0D 39 37 35 |,133,1,162,0.975|
00000800: 30 20 44 41 54 41 20 31 36 31 2C 32 2C 31 34 31 |0 DATA 161,2,141|
00000810: 2C 31 38 2C 31 39 32 2C 31 37 33 0D 39 37 36 30 |,18,192,173.9760|
00000820: 20 44 41 54 41 20 31 37 2C 31 39 32 2C 31 33 33 | DATA 17,192,133|
00000830: 2C 31 2C 38 38 2C 31 30 34 2C 39 36 0D 39 37 37 |,1,88,104,96.977|
00000840: 30 20 45 4E 44 50 52 4F 43 20 4D 4C 50 4F 4B 45 |0 ENDPROC MLPOKE|
00000850: 52 0D |R. |
9000 //.9010 PROC DUMP'1525 CLOSED.9020
OLDZONE:=ZONE.9030 ZONE 0.9040 CHAR'TO'P
RINTER(CHR$(28),6).9050 IF PEEK(49171)<>
165 THEN MLPOKER.9060 OPEN FILE 255,"",U
NIT 4,0,WRITE.9070 PRINT FILE 255: CHR$(
13)+CHR$(10),.9080 PRINT FILE 255: CHR$(
8),.9090 SYS 49171.9100 CHAR'TO'PRINTER(
CHR$(15),0).9110 CHAR'TO'PRINTER(CHR$(30
),6).9120 ZONE OLDZONE.9130 ENDPROC DUMP
'1525.9140 //.9150 PROC CHAR'TO'PRINTER(
C$,SA) .9160 OPEN FILE 255,"",UNIT 4,SA,
READ.9170 PRINT FILE 255: C$,.9180 CLOSE
FILE 255.9190 ENDPROC .9200 //.9210 PRO
C MLPOKER CLOSED.9220 S:=0.9230 FOR I:=4
9152 TO 49444 DO.9240 READ DAT.9250 POKE
I,DAT.9260 S:=S+DAT.9270 ENDFOR I.9280
IF S<>30314 THEN.9290 PRINT "ERROR IN DA
TA LINES".9300 END .9310 ENDIF .9320 //.
9330 DATA 0,0,0,0,224,0,0,0,0,1,2,4,8.93
40 DATA 16,32,64,128,0,0,165,2.9350 DATA
72,165,3,72,169.9360 DATA 0,141,6,192,1
62,255,32.9370 DATA 201,255,169,0,141,1.
9380 DATA 192,141,2,192,169,0.9390 DATA
141,8,192,141,7,192,173.9400 DATA 6,192,
24,109,7,192.9410 DATA 141,0,192,32,154,
192,240.9420 DATA 13,174,7,192,189,9.943
0 DATA 192,24,109,8,192,141,8.9440 DATA
192,238,7,192,173,7.9450 DATA 192,201,7,
208,218,173,8.9460 DATA 192,24,105,128,3
2,210.9470 DATA 255,173,1,192,24,105,1.9
480 DATA 144,3,238,2,192,141,1.9490 DATA
192,201,64,208,183,173.9500 DATA 2,192,
201,1,208,176,169.9510 DATA 13,32,210,25
5,173,6.9520 DATA 192,24,105,7,141,6,192
.9530 DATA 201,203,240,3,76,35.9540 DATA
192,32,231,255,104,133.9550 DATA 3,104,
133,2,96,169,199.9560 DATA 205,0,192,176
,3,169,0.9570 DATA 96,173,3,192,133,2.95
80 DATA 173,4,192,133,3,173,0.9590 DATA
192,74,74,74,170,240.9600 DATA 17,165,2,
24,105,64.9610 DATA 144,2,230,3,133,2,23
0.9620 DATA 3,202,76,181,192,173.9630 DA
TA 2,192,74,173,1,192,106.9640 DATA 74,7
4,170,240,15,165.9650 DATA 2,24,105,8,14
4,2,230.9660 DATA 3,133,2,202,76,211.967
0 DATA 192,173,0,192,41,7,24.9680 DATA 1
01,2,144,2,230,3,133.9690 DATA 2,173,1,1
92,41,7.9700 DATA 141,5,192,169,7,56.971
0 DATA 237,5,192,170,189,9,192.9720 DATA
32,11,193,45,18,192,96.9730 DATA 72,165
,1,141,17,192.9740 DATA 120,73,7,133,1,1
62,0.9750 DATA 161,2,141,18,192,173.9760
DATA 17,192,133,1,88,104,96.9770 ENDPRO
C MLPOKER.