[comp.binaries.apple2] COpy 18

demarco@cpsc.ucalgary.ca (Vince Demarco) (02/12/89)

Execute this program in ProDOS and then COpy it over to a dos3.3 disk and
run.  It copyies wings of fury.

Use only to make archival backups


--------------------cut here-------------cut here----------------------------

CALL-151
E00:38 A5 FF D0 32 D8 20 8E FD AD 30 BF 8D 6A 0E 20 00 BF C7 6D 0E 0D 80 02
E18:D0 1D 20 00 BF C5 69 0E B0 15 AD 81 02 29 0F AA E8 8E 80 02 A9 2F 8D 81
E30:02 20 00 BF C6 6D 0E A2 08 B0 0E 20 00 BF C3 70 0E B0 06 A2 26 20 53 0E
E48:AA 20 53 0E 4C D0 03 20 ED FD E8 BD 59 0E D0 F7 60 A0 F3 E1 F6 E5 E4 8D
E60:00 C5 F2 F2 EF F2 87 8D 00 02 00 81 02 01 80 02 07 7E 0E E3 06 00 49 00
E78:00 00 4B B2 00 00 06 C3 CF D0 D9 B1 B8 00
1000:20 39 FB 20 58 FC 20 B6 4C A0 A0 A0 A0 A0 D7 C9 CE C7 D3 A0 CF C6 A0 C6
1018:D5 D2 D9 A0 B1 B8 A0 D3 C5 C3 D4 CF D2 A0 C3 CF D0 C9 C5 D2 8D 8D 8D A0
1030:A8 C3 CF CE D6 C5 D2 D3 C9 CF CE A0 C4 CF C3 D3 A0 D3 C8 CF D5 CC C4 A0
1048:C2 C5 A0 D2 C5 C1 C4 A0 C2 C5 C6 CF D2 C5 8D A0 A0 C1 D4 D4 C5 CD D0 D4
1060:C9 CE C7 A0 D4 CF A0 D5 D3 C5 A0 D4 C8 C9 D3 A0 D0 D2 CF C7 D2 C1 CD A9
1078:AE 8D 8D D3 C5 CC C5 C3 D4 BA 8D 8D A0 A0 A0 B1 AE A0 C3 CF D0 D9 A0 D3
1090:B1 A0 CF C6 A0 D7 C9 CE C7 D3 A0 CF C6 A0 C6 D5 D2 D9 8D A0 A0 A0 B2 AE
10A8:A0 C3 CF D0 D9 A0 D3 B2 8D A0 A0 A0 B3 AE A0 C3 C8 C1 CE C7 C5 A0 D0 D2
10C0:CF CC CF C7 A0 C2 D9 D4 C5 8D A0 A0 A0 B4 AE A0 C3 C8 C1 CE C7 C5 A0 D4
10D8:D2 C1 C3 CB A0 D2 C1 CE C7 C5 D3 A0 D4 C8 C5 CE A0 C3 CF D0 D9 8D A0 A0
10F0:A0 B5 AE A0 C6 CF D2 CD C1 D4 A0 C4 C9 D3 CB A0 C9 CE A0 C4 B2 A0 C6 CF
1108:D2 A0 C4 CF D3 A0 B3 AE B3 8D A0 A0 A0 B6 AE A0 C5 CE C4 8D 8D A0 D7 C8
1120:C9 C3 C8 BF A0 00 20 EA 4C C9 B1 F0 37 C9 B2 F0 1F C9 B3 D0 03 4C 23 4B
1138:C9 B4 D0 03 4C 78 4B C9 B5 D0 03 4C 10 4C C9 B6 F0 03 4C 00 49 4C 84 9D
1150:20 1A 4B A9 00 8D C5 4A 20 0B 4B 20 5C 4D 20 BA 4A 4C 00 49 20 1A 4B 20
1168:5C 4D A9 00 8D C5 4A A9 01 8D 5B 4C A9 01 8D A7 4C 20 5E 4C A9 02 8D 5B
1180:4C A9 02 8D A7 4C 20 F6 4C 20 5E 4C EE C5 4A A9 01 8D 5B 4C A9 01 8D A7
1198:4C 20 5E 4C A9 02 8D 5B 4C A9 02 8D A7 4C 20 F6 4C 20 5E 4C A9 02 8D C5
11B0:4A 20 0B 4B 20 BA 4A 4C 00 49 20 00 4E 00 01 04 20 00 4E 02 00 02 AD C5
11C8:4A 20 DA FD A9 A0 20 ED FD 20 00 4E 03 80 B0 39 A9 5F 8D 5D 4C A9 0F 8D
11E0:5C 4C A9 02 8D 5B 4C A9 01 8D A7 4C 20 74 4C 20 00 4E 00 02 04 20 00 4E
11F8:05 80 B0 15 EE C5 4A AD C5 4A C9 23 D0 B4 20 00 4E 01 60 20 00 4E 07 96
1210:60 20 2D FF AD E8 C0 4C 4D 4A A9 00 85 FF A9 60 85 FD 60 20 58 FC 20 B6
1228:4C 8D 8D 8D 8D 8D CF CC C4 A0 D6 C1 CC D5 C5 BA A0 A4 00 AD 0F 4B 20 DA
1240:FD 20 B6 4C 8D 8D C5 CE D4 C5 D2 A0 CE C5 D7 A0 D0 D2 CF CC CF C7 A0 C2
1258:D9 D4 C5 BA A0 00 20 01 4D 8D 5A 4C 20 8E FD AD 5A 4C 20 32 4D B0 B4 AD
1270:5A 4C 8D 0F 4B 4C 00 49 20 58 FC 20 B6 4C 8D 8D 8D C3 C8 C1 CE C7 C5 A0
1288:D2 C1 CE C7 C5 A0 CF C6 A0 D4 D2 C1 C3 CB D3 8D 8D C5 CE D4 C5 D2 A0 D3
12A0:D4 C1 D2 D4 A0 D4 D2 C1 C3 CB BA A0 A4 00 20 01 4D 8D 5A 4C 20 8E FD AD
12B8:5A 4C 20 32 4D B0 B9 AD 5A 4C 8D FE 4B 20 B6 4C 8D 8D C5 CE D4 C5 D2 A0
12D0:C5 CE C4 A0 D4 D2 C1 C3 CB BA A0 A4 00 20 01 4D 8D 5A 4C 20 8E FD AD 5A
12E8:4C 20 32 4D B0 D7 AD 5A 4C 18 69 01 8D 03 4B 20 1A 4B 20 5C 4D A9 00 8D
1300:C5 4A 20 0B 4B 20 BA 4A A9 23 8D 03 4B 4C 00 49 20 58 FC 20 B6 4C 8D 8D
1318:8D 8D C6 CF D2 CD C1 D4 A0 C4 C9 D3 CB A0 C9 CE A0 C4 B2 8D 8D C1 D2 C5
1330:A0 D9 CF D5 A0 D3 D5 D2 C5 BF 00 20 EA 4C C9 D9 F0 03 4C 00 49 A9 04 8D
1348:A7 4C A9 02 8D 5B 4C 20 74 4C A9 01 8D A7 4C 4C 00 49 00 02 0F 80 A9 0F
1360:8D 5C 4C A9 8F 8D 5D 4C 20 74 4C CE 5D 4C CE 5C 4C 10 F5 60 20 E3 03 85
1378:03 84 02 A0 02 AD 5B 4C 91 02 C8 A9 00 91 02 C8 AD C5 4A 91 02 C8 AD 5C
1390:4C 91 02 A0 08 A9 00 91 02 C8 AD 5D 4C 91 02 A0 0B A9 00 91 02 C8 A9 01
13A8:91 02 C8 A9 00 91 02 A5 03 A4 02 4C D9 03 8C E8 4C 8E E9 4C 68 85 00 68
13C0:85 01 20 E1 4C A0 00 B1 00 F0 09 20 ED FD 20 E1 4C 4C C7 4C A5 01 48 A5
13D8:00 48 AE E9 4C AC E8 4C 60 E6 00 D0 02 E6 01 60 00 00 8D 10 C0 AD 00 C0
13F0:10 FB 8D 10 C0 60 A0 09 A9 C0 20 A8 FC 88 D0 F8 60 20 10 4D 0A 0A 0A 0A
1408:85 00 20 10 4D 05 00 60 20 EA 4C C9 B0 90 F9 C9 BA 90 08 C9 C1 90 F1 C9
1420:C7 B0 ED 20 ED FD C9 C0 B0 04 38 E9 B0 60 38 E9 B7 60 48 20 B6 4C C9 D3
1438:A0 A4 00 68 20 DA FD 20 B6 4C A0 C3 CF D2 D2 C5 C3 D4 BF A0 00 20 EA 4C
1450:C9 D9 F0 06 C9 CE D0 F5 38 60 18 60 20 B6 4C 8D 8D C9 CE D3 C5 D2 D4 A0
1468:C4 C9 D3 CB D3 AE AE AE 8D D0 D2 C5 D3 D3 A0 D2 C5 D4 D5 D2 CE A0 D4 CF
1480:A0 C2 C5 C7 C9 CE AC A0 C5 D3 C3 A0 D4 CF A0 C1 C2 CF D2 D4 00 20 EA 4C
1498:C9 8D F0 09 C9 9B D0 F5 68 68 4C 00 49 4C 8E FD 00 00 00 00 00 00 00 00
14B0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
14C8:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
14E0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
14F8:00 00 00 00 00 00 00 00 4C 80 51 96 97 9A 9B 9D 9E 9F A6 A7 AB AC AD AE
1510:AF B2 B3 B4 B5 B6 B7 B9 BA BB BC BD BE BF CB CD CE CF D3 D6 D7 D9 DA DB
1528:DC DD DE DF E5 E6 E7 E9 EA EB EC ED EE EF F2 F3 F4 F5 F6 F7 F9 FA FB FC
1540:FD FE FF A5 96 BF FF FE AA BB AA AA FF EF 9A D5 9D 96 96 96 AA FF FF 00
1558:A9 FF 9D 8F C0 1D 8C C0 26 EB EA 20 AF 4F 20 AF 4F 9D 8D C0 1D 8C C0 88
1570:D0 F0 A0 00 B9 43 4E F0 10 C8 EA EA EA A6 FD 9D 8D C0 1D 8C C0 A6 FD D0
1588:EB EA EA EA EA A9 A4 9D 8D C0 1D 8C C0 A0 00 84 EC B1 E6 AA 45 EC 85 EC
15A0:BD 03 4E EA 8D ED C0 0D EC C0 B1 E0 29 3F AA 45 EC 85 EC BD 03 4E AE FD
15B8:00 9D 8D C0 1D 8C C0 B1 E2 29 3F AA 45 EC 85 EC BD 03 4E AE FD 00 9D 8D
15D0:C0 1D 8C C0 B1 E4 29 3F AA 45 EC 85 EC BD 03 4E AE FD 00 9D 8D C0 1D 8C
15E8:C0 C8 D0 AD A6 EC BD 03 4E A6 FD 20 0A 4F A9 D4 20 07 4F A9 FF 20 07 4F
1600:BD 8E C0 BD 8C C0 60 EA EA 18 A6 FD 9D 8D C0 1D 8C C0 60 20 56 4F A4 FE
1618:B9 03 4E 8D 51 4E A5 E9 45 FE A8 B9 03 4E 8D 53 4E 20 E6 4F B9 03 4E 8D
1630:52 4E C0 05 F0 06 A9 0C A0 04 D0 04 A9 00 A0 C8 8D 73 4E BD 8D C0 BD 8E
1648:C0 38 30 09 20 58 4E E6 E7 C6 E9 10 C9 60 A9 05 85 E9 A0 00 84 E0 84 E2
1660:84 E4 A9 54 84 E6 85 E7 A6 FD 60 AE EC C0 10 FB BD 00 5D 60 20 56 4F A0
1678:05 A9 30 85 EA 99 12 5D 88 10 FA C6 EA F0 29 20 B2 4F B0 F7 A5 E8 C5 FE
1690:18 D0 1C B9 12 5D F0 EB 20 F8 4F B0 E6 A9 00 A4 E9 99 12 5D A0 05 B9 12
16A8:5D D0 D8 88 10 F8 C8 60 38 60 A0 FA 84 EB C8 D0 04 E6 EB F0 F3 20 6B 4F
16C0:E0 D5 D0 F2 20 6B 4F E0 9D D0 F5 20 6B 4F 85 E8 20 6B 4F 85 E9 20 6B 4F
16D8:45 E8 45 E9 D0 D8 20 6B 4F E0 AA D0 D1 18 A4 E9 B9 00 5D 85 E1 B9 06 5D
16F0:85 E3 B9 0C 5D 85 E5 60 A0 04 88 F0 B3 20 6B 4F E0 A4 D0 F6 A0 00 A5 ED
1708:AE EC C0 10 FB 45 ED 5D 00 5D 85 EC BD 00 5D 0A 0A 85 EB AE EC C0 10 FB
1720:29 C0 1D 00 5D 91 E0 85 ED A5 EB 0A 0A AE EC C0 10 FB 85 EB 29 C0 1D 00
1738:5D 91 E2 85 EE A5 EB 0A AE EC C0 10 FB 0A 1D 00 5D 91 E4 45 EE 45 EC C8
1750:D0 B6 AE EC C0 10 FB 5D 00 5D 45 ED 29 3F D0 09 20 6B 4F E0 D4 D0 02 18
1768:60 38 60 20 56 4F 20 E6 4F A5 E1 8D 84 50 A5 E3 8D 8A 50 A5 E5 8D 90 50
1780:A0 00 BE 00 FF BD 00 5A BE 00 FF 1D 00 5B BE 00 FF 1D 00 5C 91 E6 C8 D0
1798:E9 E6 E7 C6 E9 10 CF 60 8D 8E 51 09 8C 8D 6C 4F 8D A8 4E 8D 09 50 8D 1C
17B0:50 8D 2E 50 8D 41 50 8D 53 50 09 01 8D A5 4E A0 3F BE 03 4E 98 9D 00 5D
17C8:88 10 F6 A0 00 98 29 C0 4A 4A 99 00 5A 4A 4A 99 00 5B 4A 4A 99 00 5C C8
17E0:D0 EB 60 0A 85 E2 C5 FF F0 4D A9 00 85 E0 A5 FF 85 E1 38 E5 E2 F0 31 B0
17F8:06 49 FF E6 FF 90 04 69 FE C6 FF C5 E0 90 02 A5 E0 C9 0C B0 01 A8 38 20
1810:2C 51 B9 45 51 20 3A 51 A5 E1 18 20 2E 51 B9 51 51 20 3A 51 E6 E0 D0 C6
1828:20 3A 51 18 A5 FF 29 03 2A 05 FD AA BD 80 C0 A6 FD 60 A2 13 CA D0 FD 38
1840:E9 01 D0 F6 60 01 30 28 24 20 1E 1D 1C 1C 1C 1C 1C 70 2C 26 22 1F 1E 1D
1858:1C 1C 1C 1C 1C C3 CF D0 D9 D2 C9 C7 C8 D4 A0 B1 B9 B8 B5 A0 C2 D9 A0 D2
1870:CF CC C1 CE C4 A0 C7 D5 D3 D4 C1 C6 D3 D3 CF CE 68 8D AD 52 68 8D AE 52
1888:20 B4 51 A5 FD C9 00 F0 03 20 A0 50 20 A4 52 85 EF 29 0F 0A AA BD C4 51
18A0:8D AA 51 BD C5 51 8D AB 51 20 FF FF AD AE 52 48 AD AD 52 48 A2 0F B5 E0
18B8:BC 18 5D 9D 18 5D 94 E0 CA 10 F3 60 D4 51 FB 51 01 52 25 52 28 52 5A 52
18D0:5D 52 6B 52 A6 FD 20 A4 52 05 FD A8 B9 89 C0 BD 89 C0 20 A4 52 F0 13 85
18E8:E0 A0 17 A2 00 20 AF 4F CA D0 FA 88 D0 F7 C6 E0 D0 EF 60 A6 FD BD 88 C0
1900:60 20 A4 52 F0 17 A9 FF 85 FE 20 74 4F 90 0B A9 A0 85 FF A9 00 20 E3 50
1918:A9 00 0A 85 FF 20 A4 52 85 FE 4C E3 50 A2 01 2C A2 12 20 75 52 20 74 4F
1930:B0 0D F0 0B 0A 85 FF A5 FE 20 E3 50 4C 2D 52 24 EF B0 05 50 02 E6 FE 60
1948:10 FD A0 00 98 2C 30 C0 38 E9 01 D0 FB 88 D0 F4 F0 D3 A2 01 2C A2 12 20
1960:75 52 20 6B 50 20 13 4F 4C 3F 52 20 A4 52 8D 8E 4E 8D 01 50 60 86 E0 A2
1978:00 20 A4 52 9D 00 5D E8 E4 E0 90 F5 A8 C8 E0 12 F0 07 98 9D 00 5D E8 D0
1990:F4 CA BD 00 5D D0 05 A9 53 9D 00 5D CA 10 F3 A5 FE 4C E3 50 EE AD 52 D0
19A8:03 EE AE 52 AD FF FF 60
BSAVE COPY18,A$1000,L$09B0
E05G