SD FILE COPIER.C

00000000: 01 08 14 08 64 00 97 35  35 2C 30 3A 97 35 36 2C  |....d..55,0:.56,|
00000010: 32 34 3A 9C 00 27 08 65  00 50 47 B2 32 34 3A 4D  |24:..'.e.PG.24:M|
00000020: 58 B2 C2 28 35 36 29 00  3C 08 66 00 5A 24 B2 C7  |X..(56).<.f.Z$..|
00000030: 28 30 29 3A 51 24 B2 C7  28 33 34 29 00 53 08 67  |(0):Q$..(34).S.g|
00000040: 00 97 35 33 32 38 30 2C  31 35 3A 97 35 33 32 38  |..53280,15:.5328|
00000050: 31 2C 31 00 63 08 68 00  99 C7 28 31 34 29 3B C7  |1,1.c.h...(14);.|
00000060: 28 38 29 00 7B 08 69 00  86 46 24 28 4D 58 29 2C  |(8).{.i..F$(MX),|
00000070: 46 28 4D 58 29 2C 54 28  4D 58 29 00 94 08 6A 00  |F(MX),T(MX)...j.|
00000080: 81 49 B2 38 32 38 A4 39  30 34 3A 87 41 3A 97 49  |.I.828.904:.A:.I|
00000090: 2C 41 3A 82 00 C8 08 6B  00 99 22 93 90 11 D3 C9  |,A:....k..".....|
000000A0: CE C7 CC C5 20 C4 C9 D3  CB 20 C6 C9 CC C5 20 C3  |.... .... .... .|
000000B0: CF D0 C9 C5 D2 20 20 20  20 20 20 20 20 20 20 20  |.....           |
000000C0: 20 20 20 20 20 20 22 3B  00 F9 08 6C 00 99 22 A3  |      ";...l..".|
000000D0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000000E0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000000F0: A3 A3 A3 A3 A3 A3 A3 22  3B 00 2B 09 6D 00 99 22  |.......";.+.m.."|
00000100: 11 D0 4C 45 41 53 45 20  49 4E 53 45 52 54 20 54  |..LEASE INSERT T|
00000110: 48 45 20 1C D3 CF D5 D2  C3 C5 90 20 20 44 49 53  |HE ........  DIS|
00000120: 4B 45 54 54 45 20 49 4E  54 4F 22 00 5C 09 6E 00  |KETTE INTO".\.n.|
00000130: 99 22 54 48 45 20 44 49  53 4B 20 44 52 49 56 45  |."THE DISK DRIVE|
00000140: 20 41 4E 44 20 50 52 45  53 53 20 54 48 45 20 12  | AND PRESS THE .|
00000150: D2 C5 D4 D5 D2 CE 92 20  4B 45 59 22 00 73 09 6F  |....... KEY".s.o|
00000160: 00 A1 41 24 3A 8B 41 24  B3 B1 C7 28 31 33 29 A7  |..A$:.A$...(13).|
00000170: 31 31 31 00 85 09 70 00  9F 31 35 2C 38 2C 31 35  |111...p..15,8,15|
00000180: 2C 22 49 30 22 00 AB 09  71 00 85 22 11 20 C6 49  |,"I0"...q..". .I|
00000190: 4C 45 4E 41 4D 45 53 20  54 4F 20 4D 41 54 43 48  |LENAMES TO MATCH|
000001A0: 20 3F 20 2A 9D 9D 9D 22  3B 46 24 00 C7 09 72 00  | ? *...";F$...r.|
000001B0: 8B C9 28 46 24 2C 31 29  B3 B1 22 2A 22 A7 46 24  |..(F$,1).."*".F$|
000001C0: B2 46 24 AA 22 2A 22 00  D7 09 73 00 8D 31 39 33  |.F$."*"...s..193|
000001D0: 3A 8B 45 89 31 38 39 00  F0 09 74 00 9F 31 2C 38  |:.E.189...t..1,8|
000001E0: 2C 30 2C 22 24 30 3A 22  AA 46 24 3A 8D 31 39 33  |,0,"$0:".F$:.193|
000001F0: 00 26 0A 75 00 8B 45 A7  99 22 11 1D 1D 1D 1D 12  |.&.u..E.."......|
00000200: 9A 20 49 4D 50 4F 53 53  49 42 4C 45 20 54 4F 20  |. IMPOSSIBLE TO |
00000210: 52 45 41 44 20 44 49 52  45 43 54 4F 52 59 20 92  |READ DIRECTORY .|
00000220: 22 3A 89 31 38 39 00 5D  0A 76 00 99 22 20 11 27  |":.189.].v.." .'|
00000230: 1C C3 90 27 20 54 4F 20  43 4F 50 59 20 46 49 4C  |...' TO COPY FIL|
00000240: 45 20 20 20 20 27 1C D2  90 27 20 54 4F 20 52 45  |E    '...' TO RE|
00000250: 4A 45 43 54 20 46 49 4C  45 20 20 22 3B 00 8F 0A  |JECT FILE  ";...|
00000260: 77 00 99 22 27 1C C2 90  27 20 54 4F 20 42 45 47  |w.."'...' TO BEG|
00000270: 49 4E 20 43 4F 50 59 20  20 20 27 1C C1 90 27 20  |IN COPY   '...' |
00000280: 54 4F 20 41 42 4F 52 54  20 43 4F 50 59 11 22 00  |TO ABORT COPY.".|
00000290: AB 0A 78 00 A1 23 31 2C  41 24 2C 42 24 3A 4E B2  |..x..#1,A$,B$:N.|
000002A0: 30 3A 41 44 B2 50 47 AC  32 35 36 00 C4 0A 79 00  |0:AD.PG.256...y.|
000002B0: A1 23 31 2C 41 24 2C 42  24 3A 8B 42 24 B2 22 22  |.#1,A$,B$:.B$.""|
000002C0: 89 31 34 32 00 D8 0A 7A  00 A1 23 31 2C 41 24 2C  |.142...z..#1,A$,|
000002D0: 42 24 3A 46 24 B2 22 22  00 F5 0A 7B 00 53 5A B2  |B$:F$.""...{.SZ.|
000002E0: C6 28 41 24 AA 5A 24 29  AA C6 28 42 24 AA 5A 24  |.(A$.Z$)..(B$.Z$|
000002F0: 29 AC 32 35 36 00 0B 0B  7C 00 A1 23 31 2C 41 24  |).256...|..#1,A$|
00000300: 3A 8B 36 34 AF 53 54 89  31 34 32 00 1B 0B 7D 00  |:.64.ST.142...}.|
00000310: 8B 41 24 B3 B1 51 24 89  31 32 34 00 3C 0B 7E 00  |.A$..Q$.124.<.~.|
00000320: A1 23 31 2C 41 24 3A 8B  41 24 B3 B1 51 24 A7 46  |.#1,A$:.A$..Q$.F|
00000330: 24 B2 46 24 AA 41 24 3A  89 31 32 36 00 54 0B 7F  |$.F$.A$:.126.T..|
00000340: 00 A1 23 31 2C 41 24 3A  8B 41 24 B3 B1 22 20 22  |..#1,A$:.A$.." "|
00000350: 89 31 32 37 00 6B 0B 80  00 A1 23 31 2C 54 24 3A  |.127.k....#1,T$:|
00000360: 8B 54 24 B2 22 20 22 89  31 32 38 00 82 0B 81 00  |.T$." ".128.....|
00000370: A1 23 31 2C 41 24 3A 8B  41 24 B3 B1 22 22 89 31  |.#1,A$:.A$.."".1|
00000380: 32 39 00 A2 0B 82 00 8B  53 5A B2 30 B0 28 54 24  |29......SZ.0.(T$|
00000390: B3 B1 22 50 22 AF 54 24  B3 B1 22 53 22 29 89 31  |.."P".T$.."S").1|
000003A0: 32 31 00 C4 0B 83 00 99  53 5A 3B A3 35 29 3B 54  |21......SZ;.5);T|
000003B0: 24 3B 22 20 22 3B 51 24  3B 46 24 3B 51 24 3B A3  |$;" ";Q$;F$;Q$;.|
000003C0: 32 36 29 3B 00 EE 0B 84  00 8B 41 44 AA 53 5A AC  |26);......AD.SZ.|
000003D0: 32 35 36 B1 35 33 32 34  37 A7 99 22 1C 12 D4 CF  |256.53247.."....|
000003E0: CF 20 CC C1 D2 C7 C5 90  22 3A 89 31 32 31 00 0B  |. ......":.121..|
000003F0: 0C 85 00 99 22 5F 20 12  43 3A 52 3A 42 3A 41 3F  |...."_ .C:R:B:A?|
00000400: 92 9D 9D 9D 9D 9D 9D 9D  9D 22 3B 00 1E 0C 86 00  |.........";.....|
00000410: A1 41 24 3A 8B 41 24 B2  22 22 89 31 33 34 00 40  |.A$:.A$."".134.@|
00000420: 0C 87 00 8B 41 24 B2 22  52 22 A7 99 22 9A 52 45  |....A$."R"..".RE|
00000430: 4A 45 43 54 20 46 49 4C  45 90 22 3A 89 31 32 31  |JECT FILE.":.121|
00000440: 00 61 0C 88 00 8B 41 24  B2 22 42 22 A7 99 22 9A  |.a....A$."B"..".|
00000450: 42 45 47 49 4E 20 43 4F  50 59 90 22 3A 89 31 34  |BEGIN COPY.":.14|
00000460: 32 00 82 0C 89 00 8B 41  24 B2 22 41 22 A7 99 22  |2......A$."A".."|
00000470: 9A 41 42 4F 52 54 20 43  4F 50 59 90 22 3A 89 31  |.ABORT COPY.":.1|
00000480: 38 36 00 93 0C 8A 00 8B  41 24 B3 B1 22 43 22 89  |86......A$.."C".|
00000490: 31 33 34 00 BD 0C 8B 00  4E B2 4E AA 31 3A 46 24  |134.....N.N.1:F$|
000004A0: 28 4E 29 B2 46 24 AA 22  2C 22 AA 54 24 3A 99 22  |(N).F$.",".T$:."|
000004B0: 9A 43 4F 50 59 20 46 49  4C 45 90 20 22 00 D8 0C  |.COPY FILE. "...|
000004C0: 8C 00 41 44 B2 41 44 AA  53 5A AC 32 35 36 3A 8B  |..AD.AD.SZ.256:.|
000004D0: 4E B3 4D 58 89 31 32 31  00 F9 0C 8D 00 99 22 11  |N.MX.121......".|
000004E0: 20 12 CD 41 58 49 4D 55  4D 20 4F 46 22 3B 4D 58  | ..AXIMUM OF";MX|
000004F0: 3B 22 46 49 4C 45 53 2E  22 00 23 0D 8E 00 A0 31  |;"FILES.".#....1|
00000500: 3A 99 22 11 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 22  |:."............"|
00000510: 3B 4E 3B 22 46 49 4C 45  53 20 54 4F 20 52 45 41  |;N;"FILES TO REA|
00000520: 44 11 22 00 3A 0D 8F 00  41 44 B2 50 47 AC 32 35  |D.".:...AD.PG.25|
00000530: 36 3A 8B 4E B2 30 89 31  38 39 00 45 0D 90 00 81  |6:.N.0.189.E....|
00000540: 49 B2 31 A4 4E 00 60 0D  91 00 99 22 20 22 3B 51  |I.1.N.`...." ";Q|
00000550: 24 3B 46 24 28 49 29 3B  51 24 3B A3 32 30 29 3B  |$;F$(I);Q$;.20);|
00000560: 00 71 0D 92 00 53 5A B2  B5 28 41 44 AD 32 35 36  |.q...SZ..(AD.256|
00000570: 29 00 8C 0D 93 00 97 32  35 31 2C 41 44 AB 53 5A  |)......251,AD.SZ|
00000580: AC 32 35 36 3A 97 32 35  32 2C 53 5A 00 A7 0D 94  |.256:.252,SZ....|
00000590: 00 9F 31 2C 38 2C 32 2C  22 30 3A 22 AA 46 24 28  |..1,8,2,"0:".F$(|
000005A0: 49 29 3A 8D 31 39 33 00  BF 0D 95 00 8B 45 B2 37  |I):.193......E.7|
000005B0: 34 A7 A0 31 3A 4E B2 49  AB 31 3A 89 31 35 37 00  |4..1:N.I.1:.157.|
000005C0: D7 0D 96 00 8B 45 A7 A0  31 3A 46 24 28 49 29 B2  |.....E..1:F$(I).|
000005D0: 22 22 3A 89 31 35 36 00  F9 0D 97 00 9E 38 33 31  |"":.156......831|
000005E0: 3A 8D 31 39 33 3A A0 31  3A 8B 45 B2 37 34 A7 4E  |:.193:.1:.E.74.N|
000005F0: B2 49 AB 31 3A 89 31 35  37 00 0E 0E 98 00 8B 45  |.I.1:.157......E|
00000600: A7 46 24 28 4A 29 B2 22  22 3A 89 31 35 36 00 3B  |.F$(J)."":.156.;|
00000610: 0E 99 00 8B C2 28 32 35  32 29 B2 32 30 38 A7 46  |.....(252).208.F|
00000620: 24 28 49 29 B2 22 22 3A  99 20 12 D4 CF CF 20 CC  |$(I)."":. .... .|
00000630: C1 D2 C7 C5 92 22 3A 89  31 35 36 00 64 02 9A 00  |.....":.156.d...|
00000640: 46 28 51 FF FF FF FF FF  FF FF FF FF FF FF FF FF  |F(Q.............|
00000650: FF FF FF FF FF FF FF FF  FF 32 35 36 3A 54 28 4B  |.........256:T(K|
00000660: FF FF FF FF FF 26 FD 36  FF 32 B3 FF FF FF FF FF  |.....&.6.2......|
00000670: FF FF AD FF ED FF D3 FF  F6 DC FF FF FF FF FF FF  |................|
00000680: FF 3B 22 20 42 59 54 45  53 20 4F 46 20 4D 45 4D  |.;" BYTES OF MEM|
00000690: 22 00 98 0E 9C 00 82 49  00 A5 0E 9D 00 8B 4E B2  |"......I......N.|
000006A0: 30 89 31 38 39 00 D6 0E  9E 00 99 22 11 D0 4C 45  |0.189......"..LE|
000006B0: 41 53 45 20 49 4E 53 45  52 54 20 54 48 45 20 1C  |ASE INSERT THE .|
000006C0: C4 C5 D3 D4 C9 CE C1 D4  C9 CF CE 90 20 44 49 53  |............ DIS|
000006D0: 4B 45 54 54 45 22 00 05  0F 9F 00 85 22 11 1D 1D  |KETTE"......"...|
000006E0: 1D 1D 1D 1D 1D 1C C6 CF  D2 CD C1 D4 90 20 54 48  |............. TH|
000006F0: 49 53 20 44 49 53 4B 45  54 54 45 20 20 4E 9D 9D  |IS DISKETTE  N..|
00000700: 9D 22 3B 41 24 00 0B 0F  A0 00 99 00 1C 0F A1 00  |.";A$...........|
00000710: 8B 41 24 B3 B1 22 59 22  89 31 36 35 00 37 0F A2  |.A$.."Y".165.7..|
00000720: 00 85 22 20 C4 49 53 4B  20 4E 41 4D 45 2C 49 44  |.." .ISK NAME,ID|
00000730: 22 3B 46 24 2C 54 24 00  4F 0F A3 00 98 31 35 2C  |";F$,T$.O....15,|
00000740: 22 4E 30 3A 22 AA 46 24  AA 22 2C 22 AA 54 24 00  |"N0:".F$.",".T$.|
00000750: 61 0F A4 00 99 3A 8D 31  39 33 3A 8B 45 89 31 35  |a....:.193:.E.15|
00000760: 37 00 6C 0F A5 00 81 49  B2 31 A4 4E 00 7E 0F A6  |7.l....I.1.N.~..|
00000770: 00 8B 46 24 28 49 29 B2  22 22 89 31 38 33 00 99  |..F$(I)."".183..|
00000780: 0F A7 00 99 22 20 22 3B  51 24 3B 46 24 28 49 29  |...." ";Q$;F$(I)|
00000790: 3B 51 24 3B A3 32 30 29  3B 00 AF 0F A8 00 9F 31  |;Q$;.20);......1|
000007A0: 2C 38 2C 32 2C 46 24 28  49 29 AA 22 2C 57 22 00  |,8,2,F$(I).",W".|
000007B0: C1 0F A9 00 8D 31 39 33  3A 8B 45 B2 30 89 31 37  |.....193:.E.0.17|
000007C0: 36 00 D2 0F AA 00 A0 31  3A 8B 45 B2 36 33 A7 31  |6......1:.E.63.1|
000007D0: 37 32 00 EF 0F AB 00 8F  20 20 43 4C 4F 53 45 31  |72......  CLOSE1|
000007E0: 3A 49 46 45 3C 3E 36 33  47 4F 54 4F 38 34 30 00  |:IFE<>63GOTO840.|
000007F0: 22 10 AC 00 99 3A 85 22  11 1D 1D 1D 1D 1D 20 1C  |"....:."...... .|
00000800: D2 C5 D0 CC C1 C3 C5 90  20 45 58 49 53 54 49 4E  |........ EXISTIN|
00000810: 47 20 46 49 4C 45 20 9D  3F 20 4E 9D 9D 9D 22 3B  |G FILE .? N...";|
00000820: 41 24 00 28 10 AD 00 99  00 39 10 AE 00 8B 41 24  |A$.(.....9....A$|
00000830: B3 B1 22 59 22 89 31 38  33 00 52 10 AF 00 98 31  |.."Y".183.R....1|
00000840: 35 2C 22 53 30 3A 22 AA  46 24 28 49 29 3A 89 31  |5,"S0:".F$(I):.1|
00000850: 36 37 00 65 10 B0 00 53  5A B2 B5 28 46 28 49 29  |67.e...SZ..(F(I)|
00000860: AD 32 35 36 29 00 82 10  B1 00 97 32 35 31 2C 46  |.256)......251,F|
00000870: 28 49 29 AB 53 5A AC 32  35 36 3A 97 32 35 32 2C  |(I).SZ.256:.252,|
00000880: 53 5A 00 95 10 B2 00 53  5A B2 B5 28 54 28 49 29  |SZ.....SZ..(T(I)|
00000890: AD 32 35 36 29 00 B2 10  B3 00 97 32 35 33 2C 54  |.256)......253,T|
000008A0: 28 49 29 AB 53 5A AC 32  35 36 3A 97 32 35 34 2C  |(I).SZ.256:.254,|
000008B0: 53 5A 00 D2 10 B4 00 9E  38 32 38 3A 8D 31 39 33  |SZ......828:.193|
000008C0: 3A A0 31 3A 8B 45 B2 37  32 B0 45 B2 37 34 89 31  |:.1:.E.72.E.74.1|
000008D0: 38 34 00 DD 10 B5 00 8B  45 89 31 38 33 00 0A 11  |84......E.183...|
000008E0: B6 00 99 C9 28 22 20 20  20 22 AA C4 28 54 28 49  |....("   "..(T(I|
000008F0: 29 AB 46 28 49 29 29 2C  35 29 3B 22 20 42 59 54  |).F(I)),5);" BYT|
00000900: 45 53 20 4F 46 20 4D 45  4D 22 00 11 11 B7 00 82  |ES OF MEM"......|
00000910: 49 00 41 11 B8 00 85 22  11 1D 1D 1D 1D 1D 20 D3  |I.A...."...... .|
00000920: 41 56 45 20 53 41 4D 45  20 50 52 4F 47 52 41 4D  |AVE SAME PROGRAM|
00000930: 53 20 41 47 41 49 4E 3F  20 4E 9D 9D 9D 22 3B 41  |S AGAIN? N...";A|
00000940: 24 00 51 11 B9 00 8B 41  24 B2 22 59 22 89 31 35  |$.Q....A$."Y".15|
00000950: 37 00 5C 11 BA 00 A0 31  35 3A A0 31 00 8A 11 BB  |7.\....15:.1....|
00000960: 00 85 22 11 1D 1D 1D 1D  1D 1D 20 CD 4F 52 45 20  |.."....... .ORE |
00000970: 50 52 4F 47 52 41 4D 53  20 54 4F 20 43 4F 50 59  |PROGRAMS TO COPY|
00000980: 3F 20 59 9D 9D 9D 22 3B  41 24 00 A3 11 BC 00 8B  |? Y...";A$......|
00000990: 41 24 B2 22 59 22 A7 20  A0 31 35 3A A0 31 3A 89  |A$."Y". .15:.1:.|
000009A0: 31 30 37 00 BB 11 BD 00  99 A3 31 34 29 22 11 C5  |107.......14)"..|
000009B0: CE C4 20 CF C6 20 C3 CF  D0 D9 22 00 E2 11 BE 00  |.. .. ....".....|
000009C0: 99 A3 37 29 22 11 1C D0  4C 45 41 53 45 20 52 45  |..7)"...LEASE RE|
000009D0: 4D 4F 56 45 20 54 48 45  20 44 49 53 4B 45 54 54  |MOVE THE DISKETT|
000009E0: 45 22 00 02 12 BF 00 99  A3 31 31 29 22 46 52 4F  |E".......11)"FRO|
000009F0: 4D 20 54 48 45 20 44 49  53 4B 20 44 52 49 56 45  |M THE DISK DRIVE|
00000A00: 90 22 00 0F 12 C0 00 99  C7 28 39 29 3B 3A 80 00  |.".......(9);:..|
00000A10: 22 12 C1 00 84 31 35 2C  45 2C 45 24 2C 45 31 2C  |"....15,E,E$,E1,|
00000A20: 45 32 00 2D 12 C2 00 8B  45 B2 30 A7 8E 00 5D 12  |E2.-....E.0...].|
00000A30: C3 00 45 45 24 B2 CA 28  C4 28 45 29 2C 32 29 3A  |..EE$..(.(E),2):|
00000A40: 45 31 24 B2 CA 28 C4 28  45 31 29 2C 32 29 3A 45  |E1$..(.(E1),2):E|
00000A50: 32 24 B2 CA 28 C4 28 45  32 29 2C 32 29 00 69 12  |2$..(.(E2),2).i.|
00000A60: C4 00 8B 45 B2 36 33 A7  8E 00 9A 12 C5 00 99 3A  |...E.63........:|
00000A70: 99 22 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1C 22 3B  |."............";|
00000A80: 45 45 24 3B 22 2C 22 3B  45 24 3B 22 2C 22 3B 45  |EE$;",";E$;",";E|
00000A90: 31 24 3B 22 2C 22 3B 45  32 24 00 BC 12 C6 00 83  |1$;",";E2$......|
00000AA0: 20 37 36 2C 39 36 2C 33  2C 31 36 32 2C 31 2C 33  | 76,96,3,162,1,3|
00000AB0: 32 2C 31 39 38 2C 32 35  35 2C 33 32 00 DC 12 C7  |2,198,255,32....|
00000AC0: 00 83 20 32 32 38 2C 32  35 35 2C 31 36 30 2C 30  |.. 228,255,160,0|
00000AD0: 2C 31 34 35 2C 32 35 31  2C 32 33 30 00 FC 12 C8  |,145,251,230....|
00000AE0: 00 83 20 32 35 31 2C 32  30 38 2C 38 2C 32 33 30  |.. 251,208,8,230|
00000AF0: 2C 32 35 32 2C 31 36 35  2C 32 35 32 00 1E 13 C9  |,252,165,252....|
00000B00: 00 83 20 32 30 31 2C 32  30 38 2C 32 34 30 2C 36  |.. 201,208,240,6|
00000B10: 2C 31 36 35 2C 31 34 34  2C 34 31 2C 36 34 00 40  |,165,144,41,64.@|
00000B20: 13 CA 00 83 20 32 34 30  2C 32 33 31 2C 37 36 2C  |.... 240,231,76,|
00000B30: 32 30 34 2C 32 35 35 2C  31 36 32 2C 31 2C 33 32  |204,255,162,1,32|
00000B40: 00 61 13 CB 00 83 20 32  30 31 2C 32 35 35 2C 31  |.a.... 201,255,1|
00000B50: 36 32 2C 35 34 2C 31 33  34 2C 31 2C 31 36 30 2C  |62,54,134,1,160,|
00000B60: 30 00 82 13 CC 00 83 20  31 37 37 2C 32 35 31 2C  |0...... 177,251,|
00000B70: 33 32 2C 32 31 30 2C 32  35 35 2C 32 33 30 2C 32  |32,210,255,230,2|
00000B80: 35 31 00 A6 13 1D 00 83  20 32 30 38 2C 32 2C 32  |51...... 208,2,2|
00000B90: 33 30 2C 32 35 32 2C 31  36 35 2C 32 35 31 2C 31  |30,252,165,251,1|
00000BA0: 39 37 2C 32 35 33 00 C8  13 CE 00 83 20 32 30 38  |97,253...... 208|
00000BB0: 2C 32 33 39 2C 31 36 35  2C 32 35 32 2C 31 39 37  |,239,165,252,197|
00000BC0: 2C 32 35 34 2C 32 30 38  00 EA 13 CF 00 83 20 32  |,254,208...... 2|
00000BD0: 33 33 2C 31 36 32 2C 35  35 2C 31 33 34 2C 31 2C  |33,162,55,134,1,|
00000BE0: 37 36 2C 32 30 34 2C 32  35 35 00 00 00           |76,204,255...   |

....D..55,0:.56,24:..'.E.PG.24:MX.B(56).
<.F.Z$.G(0):Q$.G(34).S.G..53280,15:.5328
1,1.C.H..G(14);G(8).{.I..F$(MX),F(MX),T(
MX)...J..I.828.904:.A:.I,A:..H.K.."...SI
NGLE DISK FILE COPIER                 ";
...L..".................................
.......";.+.M..".PLEASE INSERT THE .SOUR
CE.  DISKETTE INTO".\.N.."THE DISK DRIVE
 AND PRESS THE .RETURN. KEY".S.O..A$:.A$
..G(13).111...P..15,8,15,"I0"...Q..". FI
LENAMES TO MATCH ? *...";F$.G.R..I(F$,1)
.."*".F$.F$."*".W.S..193:.E.189...T..1,8
,0,"$0:".F$:.193.&.U..E.."....... IMPOSS
IBLE TO READ DIRECTORY .":.189.].V.." .'
.C.' TO COPY FILE    '.R.' TO REJECT FIL
E  ";...W.."'.B.' TO BEGIN COPY   '.A.' 
TO ABORT COPY."...X..#1,A$,B$:N.0:AD.PG.
256.D.Y..#1,A$,B$:.B$."".142.X.Z..#1,A$,
B$:F$.""...{.SZ.F(A$.Z$).F(B$.Z$).256...
|..#1,A$:.64.ST.142...}..A$..Q$.124.<.~.
.#1,A$:.A$..Q$.F$.F$.A$:.126.T...#1,A$:
.A$.." ".127.K....#1,T$:.T$." ".128.....
.#1,A$:.A$.."".129......SZ.0.(T$.."P".T$
.."S").121.D....SZ;.5);T$;" ";Q$;F$;Q$;.
26);......AD.SZ.256.53247.."..TOO LARGE.
":.121......"_ .C:R:B:A?.........";.....
.A$:.A$."".134.@....A$."R"..".REJECT FIL
E.":.121.A....A$."B"..".BEGIN COPY.":.14
2......A$."A"..".ABORT COPY.":.186......
A$.."C".134.....N.N.1:F$(N).F$.",".T$:."
.COPY FILE. ".X...AD.AD.SZ.256:.N.MX.121
......". .MAXIMUM OF";MX;"FILES.".#... 1
:."............";N;"FILES TO READ.".:...
AD.PG.256:.N.0.189.E....I.1.N.`...." ";Q
$;F$(I);Q$;.20);.Q...SZ..(AD.256)......2
51,AD.SZ.256:.252,SZ......1,8,2,"0:".F$(
I):.193......E.74. 1:N.I.1:.157.W....E. 
1:F$(I)."":.156......831:.193: 1:.E.74.N
.I.1:.157......E.F$(J)."":.156.;....B(25
2).208.F$(I)."":. .TOO LARGE.":.156.D...
F(Q......................256:T(K.....&.6
.2............S..........;" BYTES OF MEM
"......I......N.0.189.V....".PLEASE INSE
RT THE .DESTINATION. DISKETTE"......"...
......FORMAT. THIS DISKETTE  N...";A$...
 ........A$.."Y".165.7...." DISK NAME,ID
";F$,T$.O....15,"N0:".F$.",".T$.A....:.1
93:.E.157.L....I.1.N.~....F$(I)."".183..
...." ";Q$;F$(I);Q$;.20);......1,8,2,F$(
I).",W".A....193:.E.0.176.R... 1:.E.63.1
72......  CLOSE1:IFE<>63GOTO840."....:."
...... .REPLACE. EXISTING FILE .? N...";
A$.(.....9....A$.."Y".183.R....15,"S0:".
F$(I):.167.E...SZ..(F(I).256)......251,F
(I).SZ.256:.252,SZ.....SZ..(T(I).256)...
...253,T(I).SZ.256:.254,SZ.R....828:.193
: 1:.E.72.E.74.184......E.183......I("  
 ".D(T(I).F(I)),5);" BYTES OF MEM"......
I.A...."...... SAVE SAME PROGRAMS AGAIN?
 N...";A$.Q....A$."Y".157.\... 15: 1....
.."....... MORE PROGRAMS TO COPY? Y...";
A$......A$."Y".  15: 1:.107.......14)".E
ND OF COPY".......7)"..PLEASE REMOVE THE
 DISKETTE".......11)"FROM THE DISK DRIVE
."......G(9);:..".A..15,E,E$,E1,E2.-.B..
E.0...].C.EE$.J(D(E),2):E1$.J(D(E1),2):E
2$.J(D(E2),2).I.D..E.63.....E..:."......
......";EE$;",";E$;",";E1$;",";E2$...F..
 76,96,3,162,1,32,198,255,32...G.. 228,2
55,160,0,145,251,230...H.. 251,208,8,230
,252,165,252...I.. 201,208,240,6,165,144
,41,64.@.J.. 240,231,76,204,255,162,1,32
.A.K.. 201,255,162,54,134,1,160,0...L.. 
177,251,32,210,255,230,251...... 208,2,2
30,252,165,251,197,253.H.N.. 208,239,165
,252,197,254,208...O.. 233,162,55,134,1,
76,204,255...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL