NEW COPY PROG.4

00000000: 01 08 0A 08 0A 00 99 22  93 22 00 17 08 0F 00 97  |......."."......|
00000010: 35 33 32 38 30 2C 37 00  44 08 14 00 99 22 1D 1D  |53280,7.D...."..|
00000020: 1D 1D 1D 1D 1D 1D 1D 11  11 11 11 11 11 11 4E 45  |..............NE|
00000030: 57 20 44 49 53 4B 20 43  4F 50 59 20 50 52 4F 47  |W DISK COPY PROG|
00000040: 52 41 4D 22 00 6B 08 19  00 99 22 1D 1D 1D 1D 1D  |RAM".k....".....|
00000050: 1D 1D 1D 1D 11 A6 A6 A6  A6 A6 A6 A6 A6 A6 A6 A6  |................|
00000060: A6 A6 A6 A6 A6 A6 A6 A6  A6 A6 22 00 9A 08 1E 00  |..........".....|
00000070: 99 22 11 11 11 11 11 1D  1D 1D 1D 1D 1D 2A 2A 2A  |."...........***|
00000080: 20 46 45 42 52 55 41 52  20 31 39 38 34 20 2A 20  | FEBRUAR 1984 * |
00000090: 4D 41 49 4E 53 20 2A 2A  2A 22 00 CB 08 23 00 99  |MAINS ***"...#..|
000000A0: 22 11 11 11 11 11 11 1D  1D 1D 1D 1D 1D 50 52 45  |"............PRE|
000000B0: 53 53 20 27 53 48 49 46  54 20 4B 45 59 27 20 54  |SS 'SHIFT KEY' T|
000000C0: 4F 20 43 4F 4E 54 49 4E  55 45 22 00 D6 08 28 00  |O CONTINUE"...(.|
000000D0: 92 36 35 33 2C 31 00 E3  08 2D 00 92 36 35 33 2C  |.653,1...-..653,|
000000E0: 31 2C 31 00 EC 08 5A 00  99 22 93 22 00 FF 08 64  |1,1...Z.."."...d|
000000F0: 00 97 35 35 2C 30 3A 97  35 36 2C 35 34 3A 9C 00  |..55,0:.56,54:..|
00000100: 12 09 65 00 50 47 B2 35  34 3A 4D 58 B2 C2 28 35  |..e.PG.54:MX..(5|
00000110: 36 29 00 27 09 66 00 5A  24 B2 C7 28 30 29 3A 51  |6).'.f.Z$..(0):Q|
00000120: 24 B2 C7 28 33 34 29 00  3D 09 67 00 97 35 33 32  |$..(34).=.g..532|
00000130: 38 30 2C 36 3A 97 35 33  32 38 31 2C 31 00 4D 09  |80,6:.53281,1.M.|
00000140: 68 00 99 C7 28 31 34 29  3B C7 28 38 29 00 65 09  |h...(14);.(8).e.|
00000150: 69 00 86 46 24 28 4D 58  29 2C 46 28 4D 58 29 2C  |i..F$(MX),F(MX),|
00000160: 54 28 4D 58 29 00 7E 09  6A 00 81 49 B2 38 32 38  |T(MX).~.j..I.828|
00000170: A4 39 30 34 3A 87 41 3A  97 49 2C 41 3A 82 00 B2  |.904:.A:.I,A:...|
00000180: 09 6B 00 99 22 93 90 11  D3 C9 CE C7 CC C5 20 C4  |.k.."......... .|
00000190: C9 D3 CB 20 C6 C9 CC C5  20 C3 CF D0 C9 C5 D2 20  |... .... ...... |
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001B0: 22 3B 00 E3 09 6C 00 99  22 A3 A3 A3 A3 A3 A3 A3  |";...l..".......|
000001C0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000001D0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000001E0: A3 22 3B 00 15 0A 6D 00  99 22 11 D0 4C 45 41 53  |.";...m.."..LEAS|
000001F0: 45 20 49 4E 53 45 52 54  20 54 48 45 20 1C D3 CF  |E INSERT THE ...|
00000200: D5 D2 C3 C5 90 20 20 44  49 53 4B 45 54 54 45 20  |.....  DISKETTE |
00000210: 49 4E 54 4F 22 00 46 0A  6E 00 99 22 54 48 45 20  |INTO".F.n.."THE |
00000220: 44 49 53 4B 20 44 52 49  56 45 20 41 4E 44 20 50  |DISK DRIVE AND P|
00000230: 52 45 53 53 20 54 48 45  20 12 D2 C5 D4 D5 D2 CE  |RESS THE .......|
00000240: 92 20 4B 45 59 22 00 5D  0A 6F 00 A1 41 24 3A 8B  |. KEY".].o..A$:.|
00000250: 41 24 B3 B1 C7 28 31 33  29 A7 31 31 31 00 6F 0A  |A$...(13).111.o.|
00000260: 70 00 9F 31 35 2C 38 2C  31 35 2C 22 49 30 22 00  |p..15,8,15,"I0".|
00000270: 95 0A 71 00 85 22 11 20  C6 49 4C 45 4E 41 4D 45  |..q..". .ILENAME|
00000280: 53 20 54 4F 20 4D 41 54  43 48 20 3F 20 2A 9D 9D  |S TO MATCH ? *..|
00000290: 9D 22 3B 46 24 00 B1 0A  72 00 8B C9 28 46 24 2C  |.";F$...r...(F$,|
000002A0: 31 29 B3 B1 22 2A 22 A7  46 24 B2 46 24 AA 22 2A  |1).."*".F$.F$."*|
000002B0: 22 00 C1 0A 73 00 8D 31  39 33 3A 8B 45 89 31 38  |"...s..193:.E.18|
000002C0: 39 00 DA 0A 74 00 9F 31  2C 38 2C 30 2C 22 24 30  |9...t..1,8,0,"$0|
000002D0: 3A 22 AA 46 24 3A 8D 31  39 33 00 10 0B 75 00 8B  |:".F$:.193...u..|
000002E0: 45 A7 99 22 11 1D 1D 1D  1D 12 9A 20 49 4D 50 4F  |E.."....... IMPO|
000002F0: 53 53 49 42 4C 45 20 54  4F 20 52 45 41 44 20 44  |SSIBLE TO READ D|
00000300: 49 52 45 43 54 4F 52 59  20 92 22 3A 89 31 38 39  |IRECTORY .":.189|
00000310: 00 47 0B 76 00 99 22 20  11 27 1C C3 90 27 20 54  |.G.v.." .'...' T|
00000320: 4F 20 43 4F 50 59 20 46  49 4C 45 20 20 20 20 27  |O COPY FILE    '|
00000330: 1C D2 90 27 20 54 4F 20  52 45 4A 45 43 54 20 46  |...' TO REJECT F|
00000340: 49 4C 45 20 20 22 3B 00  79 0B 77 00 99 22 27 1C  |ILE  ";.y.w.."'.|
00000350: C2 90 27 20 54 4F 20 42  45 47 49 4E 20 43 4F 50  |..' TO BEGIN COP|
00000360: 59 20 20 20 27 1C C1 90  27 20 54 4F 20 41 42 4F  |Y   '...' TO ABO|
00000370: 52 54 20 43 4F 50 59 11  22 00 95 0B 78 00 A1 23  |RT COPY."...x..#|
00000380: 31 2C 41 24 2C 42 24 3A  4E B2 30 3A 41 44 B2 50  |1,A$,B$:N.0:AD.P|
00000390: 47 AC 32 35 36 00 AE 0B  79 00 A1 23 31 2C 41 24  |G.256...y..#1,A$|
000003A0: 2C 42 24 3A 8B 42 24 B2  22 22 89 31 34 32 00 C2  |,B$:.B$."".142..|
000003B0: 0B 7A 00 A1 23 31 2C 41  24 2C 42 24 3A 46 24 B2  |.z..#1,A$,B$:F$.|
000003C0: 22 22 00 DF 0B 7B 00 53  5A B2 C6 28 41 24 AA 5A  |""...{.SZ..(A$.Z|
000003D0: 24 29 AA C6 28 42 24 AA  5A 24 29 AC 32 35 36 00  |$)..(B$.Z$).256.|
000003E0: F5 0B 7C 00 A1 23 31 2C  41 24 3A 8B 36 34 AF 53  |..|..#1,A$:.64.S|
000003F0: 54 89 31 34 32 00 05 0C  7D 00 8B 41 24 B3 B1 51  |T.142...}..A$..Q|
00000400: 24 89 31 32 34 00 26 0C  7E 00 A1 23 31 2C 41 24  |$.124.&.~..#1,A$|
00000410: 3A 8B 41 24 B3 B1 51 24  A7 46 24 B2 46 24 AA 41  |:.A$..Q$.F$.F$.A|
00000420: 24 3A 89 31 32 36 00 3E  0C 7F 00 A1 23 31 2C 41  |$:.126.>....#1,A|
00000430: 24 3A 8B 41 24 B3 B1 22  20 22 89 31 32 37 00 55  |$:.A$.." ".127.U|
00000440: 0C 80 00 A1 23 31 2C 54  24 3A 8B 54 24 B2 22 20  |....#1,T$:.T$." |
00000450: 22 89 31 32 38 00 6C 0C  81 00 A1 23 31 2C 41 24  |".128.l....#1,A$|
00000460: 3A 8B 41 24 B3 B1 22 22  89 31 32 39 00 8C 0C 82  |:.A$.."".129....|
00000470: 00 8B 53 5A B2 30 B0 28  54 24 B3 B1 22 50 22 AF  |..SZ.0.(T$.."P".|
00000480: 54 24 B3 B1 22 53 22 29  89 31 32 31 00 AE 0C 83  |T$.."S").121....|
00000490: 00 99 53 5A 3B A3 35 29  3B 54 24 3B 22 20 22 3B  |..SZ;.5);T$;" ";|
000004A0: 51 24 3B 46 24 3B 51 24  3B A3 32 36 29 3B 00 D8  |Q$;F$;Q$;.26);..|
000004B0: 0C 84 00 8B 41 44 AA 53  5A AC 32 35 36 B1 35 33  |....AD.SZ.256.53|
000004C0: 32 34 37 A7 99 22 1C 12  D4 CF CF 20 CC C1 D2 C7  |247.."..... ....|
000004D0: C5 90 22 3A 89 31 32 31  00 F5 0C 85 00 99 22 5F  |..":.121......"_|
000004E0: 20 12 43 3A 52 3A 42 3A  41 3F 92 9D 9D 9D 9D 9D  | .C:R:B:A?......|
000004F0: 9D 9D 9D 22 3B 00 08 0D  86 00 A1 41 24 3A 8B 41  |...";......A$:.A|
00000500: 24 B2 22 22 89 31 33 34  00 2A 0D 87 00 8B 41 24  |$."".134.*....A$|
00000510: B2 22 52 22 A7 99 22 9A  52 45 4A 45 43 54 20 46  |."R"..".REJECT F|
00000520: 49 4C 45 90 22 3A 89 31  32 31 00 4B 0D 88 00 8B  |ILE.":.121.K....|
00000530: 41 24 B2 22 42 22 A7 99  22 9A 42 45 47 49 4E 20  |A$."B"..".BEGIN |
00000540: 43 4F 50 59 90 22 3A 89  31 34 32 00 6C 0D 89 00  |COPY.":.142.l...|
00000550: 8B 41 24 B2 22 41 22 A7  99 22 9A 41 42 4F 52 54  |.A$."A"..".ABORT|
00000560: 20 43 4F 50 59 90 22 3A  89 31 38 36 00 7D 0D 8A  | COPY.":.186.}..|
00000570: 00 8B 41 24 B3 B1 22 43  22 89 31 33 34 00 A7 0D  |..A$.."C".134...|
00000580: 8B 00 4E B2 4E AA 31 3A  46 24 28 4E 29 B2 46 24  |..N.N.1:F$(N).F$|
00000590: AA 22 2C 22 AA 54 24 3A  99 22 9A 43 4F 50 59 20  |.",".T$:.".COPY |
000005A0: 46 49 4C 45 90 20 22 00  C2 0D 8C 00 41 44 B2 41  |FILE. ".....AD.A|
000005B0: 44 AA 53 5A AC 32 35 36  3A 8B 4E B3 4D 58 89 31  |D.SZ.256:.N.MX.1|
000005C0: 32 31 00 E3 0D 8D 00 99  22 11 20 12 CD 41 58 49  |21......". ..AXI|
000005D0: 4D 55 4D 20 4F 46 22 3B  4D 58 3B 22 46 49 4C 45  |MUM OF";MX;"FILE|
000005E0: 53 2E 22 00 0D 0E 8E 00  A0 31 3A 99 22 11 1D 1D  |S."......1:."...|
000005F0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 22 3B 4E 3B 22 46 49  |.........";N;"FI|
00000600: 4C 45 53 20 54 4F 20 52  45 41 44 11 22 00 24 0E  |LES TO READ.".$.|
00000610: 8F 00 41 44 B2 50 47 AC  32 35 36 3A 8B 4E B2 30  |..AD.PG.256:.N.0|
00000620: 89 31 38 39 00 2F 0E 90  00 81 49 B2 31 A4 4E 00  |.189./....I.1.N.|
00000630: 4A 0E 91 00 99 22 20 22  3B 51 24 3B 46 24 28 49  |J...." ";Q$;F$(I|
00000640: 29 3B 51 24 3B A3 32 30  29 3B 00 5B 0E 92 00 53  |);Q$;.20);.[...S|
00000650: 5A B2 B5 28 41 44 AD 32  35 36 29 00 76 0E 93 00  |Z..(AD.256).v...|
00000660: 97 32 35 31 2C 41 44 AB  53 5A AC 32 35 36 3A 97  |.251,AD.SZ.256:.|
00000670: 32 35 32 2C 53 5A 00 91  0E 94 00 9F 31 2C 38 2C  |252,SZ......1,8,|
00000680: 32 2C 22 30 3A 22 AA 46  24 28 49 29 3A 8D 31 39  |2,"0:".F$(I):.19|
00000690: 33 00 A9 0E 95 00 8B 45  B2 37 34 A7 A0 31 3A 4E  |3......E.74..1:N|
000006A0: B2 49 AB 31 3A 89 31 35  37 00 C1 0E 96 00 8B 45  |.I.1:.157......E|
000006B0: A7 A0 31 3A 46 24 28 49  29 B2 22 22 3A 89 31 35  |..1:F$(I)."":.15|
000006C0: 36 00 E3 0E 97 00 9E 38  33 31 3A 8D 31 39 33 3A  |6......831:.193:|
000006D0: A0 31 3A 8B 45 B2 37 34  A7 4E B2 49 AB 31 3A 89  |.1:.E.74.N.I.1:.|
000006E0: 31 35 37 00 F8 0E 98 00  8B 45 A7 46 24 28 49 29  |157......E.F$(I)|
000006F0: B2 22 22 3A 89 31 35 36  00 25 0F 99 00 8B C2 28  |."":.156.%.....(|
00000700: 32 35 32 29 B2 32 30 38  A7 46 24 28 49 29 B2 22  |252).208.F$(I)."|
00000710: 22 3A 99 22 12 D4 CF CF  20 CC C1 D2 C7 C5 92 22  |":.".... ......"|
00000720: 3A 89 31 35 36 00 4E 0F  9A 00 46 28 49 29 B2 41  |:.156.N...F(I).A|
00000730: 44 3A 41 44 B2 C2 28 32  35 31 29 AA C2 28 32 35  |D:AD..(251)..(25|
00000740: 32 29 AC 32 35 36 3A 54  28 49 29 B2 41 44 00 7B  |2).256:T(I).AD.{|
00000750: 0F 9B 00 99 C9 28 22 20  20 20 22 AA C4 28 54 28  |.....("   "..(T(|
00000760: 49 29 AB 46 28 49 29 29  2C 35 29 3B 22 20 42 59  |I).F(I)),5);" BY|
00000770: 54 45 53 20 4F 46 20 4D  45 4D 22 00 82 0F 9C 00  |TES OF MEM".....|
00000780: 82 49 00 8F 0F 9D 00 8B  4E B2 30 89 31 38 39 00  |.I......N.0.189.|
00000790: C6 0F 9E 00 99 22 11 D0  4C 45 41 53 45 20 49 4E  |....."..LEASE IN|
000007A0: 53 45 52 54 20 54 48 45  20 1C C4 C5 D3 D4 C9 CE  |SERT THE .......|
000007B0: C1 D4 C9 CF CE 90 20 44  49 53 4B 45 54 54 45 22  |...... DISKETTE"|
000007C0: 3A 8D 39 30 30 30 00 F5  0F 9F 00 85 22 11 1D 1D  |:.9000......"...|
000007D0: 1D 1D 1D 1D 1D 1C C6 CF  D2 CD C1 D4 90 20 54 48  |............. TH|
000007E0: 49 53 20 44 49 53 4B 45  54 54 45 20 20 4E 9D 9D  |IS DISKETTE  N..|
000007F0: 9D 22 3B 41 24 00 FB 0F  A0 00 99 00 12 10 A1 00  |.";A$...........|
00000800: 8B 41 24 B3 B1 22 59 22  89 31 36 35 3A 8D 39 30  |.A$.."Y".165:.90|
00000810: 30 30 00 2D 10 A2 00 85  22 20 C4 49 53 4B 20 4E  |00.-...." .ISK N|
00000820: 41 4D 45 2C 49 44 22 3B  46 24 2C 54 24 00 45 10  |AME,ID";F$,T$.E.|
00000830: A3 00 98 31 35 2C 22 4E  30 3A 22 AA 46 24 AA 22  |...15,"N0:".F$."|
00000840: 2C 22 AA 54 24 00 57 10  A4 00 99 3A 8D 31 39 33  |,".T$.W....:.193|
00000850: 3A 8B 45 89 31 35 37 00  62 10 A5 00 81 49 B2 31  |:.E.157.b....I.1|
00000860: A4 4E 00 74 10 A6 00 8B  46 24 28 49 29 B2 22 22  |.N.t....F$(I).""|
00000870: 89 31 38 33 00 8F 10 A7  00 99 22 20 22 3B 51 24  |.183......" ";Q$|
00000880: 3B 46 24 28 49 29 3B 51  24 3B A3 32 30 29 3B 00  |;F$(I);Q$;.20);.|
00000890: A5 10 A8 00 9F 31 2C 38  2C 32 2C 46 24 28 49 29  |.....1,8,2,F$(I)|
000008A0: AA 22 2C 57 22 00 B7 10  A9 00 8D 31 39 33 3A 8B  |.",W"......193:.|
000008B0: 45 B2 30 89 31 37 36 00  C8 10 AA 00 A0 31 3A 8B  |E.0.176......1:.|
000008C0: 45 B2 36 33 A7 31 37 32  00 E5 10 AB 00 8F 20 20  |E.63.172......  |
000008D0: 43 4C 4F 53 45 31 3A 49  46 45 3C 3E 36 33 47 4F  |CLOSE1:IFE<>63GO|
000008E0: 54 4F 38 34 30 00 18 11  AC 00 99 3A 85 22 11 1D  |TO840......:."..|
000008F0: 1D 1D 1D 1D 20 1C D2 C5  D0 CC C1 C3 C5 90 20 45  |.... ......... E|
00000900: 58 49 53 54 49 4E 47 20  46 49 4C 45 20 9D 3F 20  |XISTING FILE .? |
00000910: 4E 9D 9D 9D 22 3B 41 24  00 1E 11 AD 00 99 00 2F  |N...";A$......./|
00000920: 11 AE 00 8B 41 24 B3 B1  22 59 22 89 31 38 33 00  |....A$.."Y".183.|
00000930: 48 11 AF 00 98 31 35 2C  22 53 30 3A 22 AA 46 24  |H....15,"S0:".F$|
00000940: 28 49 29 3A 89 31 36 37  00 5B 11 B0 00 53 5A B2  |(I):.167.[...SZ.|
00000950: B5 28 46 28 49 29 AD 32  35 36 29 00 78 11 B1 00  |.(F(I).256).x...|
00000960: 97 32 35 31 2C 46 28 49  29 AB 53 5A AC 32 35 36  |.251,F(I).SZ.256|
00000970: 3A 97 32 35 32 2C 53 5A  00 8B 11 B2 00 53 5A B2  |:.252,SZ.....SZ.|
00000980: B5 28 54 28 49 29 AD 32  35 36 29 00 A8 11 B3 00  |.(T(I).256).....|
00000990: 97 32 35 33 2C 54 28 49  29 AB 53 5A AC 32 35 36  |.253,T(I).SZ.256|
000009A0: 3A 97 32 35 34 2C 53 5A  00 C8 11 B4 00 9E 38 32  |:.254,SZ......82|
000009B0: 38 3A 8D 31 39 33 3A A0  31 3A 8B 45 B2 37 32 B0  |8:.193:.1:.E.72.|
000009C0: 45 B2 37 34 89 31 38 34  00 D3 11 B5 00 8B 45 89  |E.74.184......E.|
000009D0: 31 38 33 00 00 12 B6 00  99 C9 28 22 20 20 20 22  |183.......("   "|
000009E0: AA C4 28 54 28 49 29 AB  46 28 49 29 29 2C 35 29  |..(T(I).F(I)),5)|
000009F0: 3B 22 20 42 59 54 45 53  20 4F 46 20 4D 45 4D 22  |;" BYTES OF MEM"|
00000A00: 00 07 12 B7 00 82 49 00  37 12 B8 00 85 22 11 1D  |......I.7...."..|
00000A10: 1D 1D 1D 1D 20 D3 41 56  45 20 53 41 4D 45 20 50  |.... .AVE SAME P|
00000A20: 52 4F 47 52 41 4D 53 20  41 47 41 49 4E 3F 20 4E  |ROGRAMS AGAIN? N|
00000A30: 9D 9D 9D 22 3B 41 24 00  47 12 B9 00 8B 41 24 B2  |...";A$.G....A$.|
00000A40: 22 59 22 89 31 35 38 00  52 12 BA 00 A0 31 35 3A  |"Y".158.R....15:|
00000A50: A0 31 00 80 12 BB 00 85  22 11 1D 1D 1D 1D 1D 1D  |.1......".......|
00000A60: 20 CD 4F 52 45 20 50 52  4F 47 52 41 4D 53 20 54  | .ORE PROGRAMS T|
00000A70: 4F 20 43 4F 50 59 3F 20  59 9D 9D 9D 22 3B 41 24  |O COPY? Y...";A$|
00000A80: 00 99 12 BC 00 8B 41 24  B2 22 59 22 A7 20 A0 31  |......A$."Y". .1|
00000A90: 35 3A A0 31 3A 89 31 30  37 00 B1 12 BD 00 99 A3  |5:.1:.107.......|
00000AA0: 31 34 29 22 11 C5 CE C4  20 CF C6 20 C3 CF D0 D9  |14)".... .. ....|
00000AB0: 22 00 D8 12 BE 00 99 A3  37 29 22 11 1C D0 4C 45  |".......7)"...LE|
00000AC0: 41 53 45 20 52 45 4D 4F  56 45 20 54 48 45 20 44  |ASE REMOVE THE D|
00000AD0: 49 53 4B 45 54 54 45 22  00 F8 12 BF 00 99 A3 31  |ISKETTE".......1|
00000AE0: 31 29 22 46 52 4F 4D 20  54 48 45 20 44 49 53 4B  |1)"FROM THE DISK|
00000AF0: 20 44 52 49 56 45 90 22  00 05 13 C0 00 99 C7 28  | DRIVE.".......(|
00000B00: 39 29 3B 3A 80 00 18 13  C1 00 84 31 35 2C 45 2C  |9);:.......15,E,|
00000B10: 45 24 2C 45 31 2C 45 32  00 23 13 C2 00 8B 45 B2  |E$,E1,E2.#....E.|
00000B20: 30 A7 8E 00 53 13 C3 00  45 45 24 B2 CA 28 C4 28  |0...S...EE$..(.(|
00000B30: 45 29 2C 32 29 3A 45 31  24 B2 CA 28 C4 28 45 31  |E),2):E1$..(.(E1|
00000B40: 29 2C 32 29 3A 45 32 24  B2 CA 28 C4 28 45 32 29  |),2):E2$..(.(E2)|
00000B50: 2C 32 29 00 5F 13 C4 00  8B 45 B2 36 33 A7 8E 00  |,2)._....E.63...|
00000B60: 90 13 C5 00 99 3A 99 22  11 1D 1D 1D 1D 1D 1D 1D  |.....:."........|
00000B70: 1D 1D 1D 1C 22 3B 45 45  24 3B 22 2C 22 3B 45 24  |....";EE$;",";E$|
00000B80: 3B 22 2C 22 3B 45 31 24  3B 22 2C 22 3B 45 32 24  |;",";E1$;",";E2$|
00000B90: 00 B2 13 C6 00 83 20 37  36 2C 39 36 2C 33 2C 31  |...... 76,96,3,1|
00000BA0: 36 32 2C 31 2C 33 32 2C  31 39 38 2C 32 35 35 2C  |62,1,32,198,255,|
00000BB0: 33 32 00 D2 13 C7 00 83  20 32 32 38 2C 32 35 35  |32...... 228,255|
00000BC0: 2C 31 36 30 2C 30 2C 31  34 35 2C 32 35 31 2C 32  |,160,0,145,251,2|
00000BD0: 33 30 00 F2 13 C8 00 83  20 32 35 31 2C 32 30 38  |30...... 251,208|
00000BE0: 2C 38 2C 32 33 30 2C 32  35 32 2C 31 36 35 2C 32  |,8,230,252,165,2|
00000BF0: 35 32 00 14 14 C9 00 83  20 32 30 31 2C 32 30 38  |52...... 201,208|
00000C00: 2C 32 34 30 2C 36 2C 31  36 35 2C 31 34 34 2C 34  |,240,6,165,144,4|
00000C10: 31 2C 36 34 00 36 14 CA  00 83 20 32 34 30 2C 32  |1,64.6.... 240,2|
00000C20: 33 31 2C 37 36 2C 32 30  34 2C 32 35 35 2C 31 36  |31,76,204,255,16|
00000C30: 32 2C 31 2C 33 32 00 57  14 CB 00 83 20 32 30 31  |2,1,32.W.... 201|
00000C40: 2C 32 35 35 2C 31 36 32  2C 35 34 2C 31 33 34 2C  |,255,162,54,134,|
00000C50: 31 2C 31 36 30 2C 30 00  78 14 CC 00 83 20 31 37  |1,160,0.x.... 17|
00000C60: 37 2C 32 35 31 2C 33 32  2C 32 31 30 2C 32 35 35  |7,251,32,210,255|
00000C70: 2C 32 33 30 2C 32 35 31  00 9C 14 CD 00 83 20 32  |,230,251...... 2|
00000C80: 30 38 2C 32 2C 32 33 30  2C 32 35 32 2C 31 36 35  |08,2,230,252,165|
00000C90: 2C 32 35 31 2C 31 39 37  2C 32 35 33 00 BE 14 CE  |,251,197,253....|
00000CA0: 00 83 20 32 30 38 2C 32  33 39 2C 31 36 35 2C 32  |.. 208,239,165,2|
00000CB0: 35 32 2C 31 39 37 2C 32  35 34 2C 32 30 38 00 E0  |52,197,254,208..|
00000CC0: 14 CF 00 83 20 32 33 33  2C 31 36 32 2C 35 35 2C  |.... 233,162,55,|
00000CD0: 31 33 34 2C 31 2C 37 36  2C 32 30 34 2C 32 35 35  |134,1,76,204,255|
00000CE0: 00 F6 14 28 23 81 41 B2  31 A4 33 3A A1 41 24 3A  |...(#.A.1.3:.A$:|
00000CF0: 8D 31 30 30 30 30 00 0E  15 32 23 A1 41 24 3A 8B  |.10000...2#.A$:.|
00000D00: 41 24 B2 22 22 A7 82 3A  81 41 B2 31 A4 33 00 27  |A$.""..:.A.1.3.'|
00000D10: 15 3C 23 8B 41 24 B3 B1  C7 28 31 33 29 A7 97 53  |.<#.A$...(13)..S|
00000D20: AA 32 34 2C 30 3A 82 00  3E 15 46 23 8B 41 24 B2  |.24,0:..>.F#.A$.|
00000D30: 41 24 A7 97 35 34 32 37  36 2C 31 36 3A 8E 00 63  |A$..54276,16:..c|
00000D40: 15 10 27 53 B2 35 34 32  37 32 3A 81 4C B2 30 A4  |..'S.54272:.L.0.|
00000D50: 32 34 3A 8B C2 28 31 39  37 29 B3 B1 36 34 A7 39  |24:..(197)..64.9|
00000D60: 30 33 30 00 93 15 24 27  97 53 AA 4C 2C 30 3A 82  |030...$'.S.L,0:.|
00000D70: 20 3A 97 53 AA 31 34 2C  35 3A 97 53 AA 31 38 2C  | :.S.14,5:.S.18,|
00000D80: 36 3A 97 53 AA 33 2C 31  20 3A 97 53 AA 32 34 2C  |6:.S.3,1 :.S.24,|
00000D90: 31 34 33 00 CA 15 2E 27  97 53 AA 36 2C 32 34 30  |143....'.S.6,240|
00000DA0: 3A 97 53 AA 34 2C 36 35  3A 46 52 B2 35 33 38 39  |:.S.4,65:FR.5389|
00000DB0: 3A 46 51 B2 46 52 AA C2  28 53 AA 32 37 29 AC 33  |:FQ.FR..(S.27).3|
00000DC0: 2E 35 3A 81 58 B2 31 A4  32 30 00 DC 15 38 27 8B  |.5:.X.1.20...8'.|
00000DD0: C2 28 31 39 37 29 B3 B1  36 34 A7 8E 00 0E 16 42  |.(197)..64.....B|
00000DE0: 27 48 46 B2 B5 28 46 51  AD 32 35 36 29 3A 4C 46  |'HF..(FQ.256):LF|
00000DF0: B2 46 51 AB 48 46 AC 32  35 36 3A 97 53 AA 30 2C  |.FQ.HF.256:.S.0,|
00000E00: 4C 46 3A 97 53 AA 31 2C  48 46 3A 82 3A 8E 00 32  |LF:.S.1,HF:.:..2|
00000E10: 16 47 27 8F 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.G'. ***********|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000E30: 2A 2A 00 56 16 74 27 8F  20 41 4C 41 52 4D 50 52  |**.V.t'. ALARMPR|
00000E40: 4F 47 52 41 4D 20 46 52  41 20 4C 49 4E 49 45 20  |OGRAM FRA LINIE |
00000E50: 39 30 30 30 21 21 00 00  00                       |9000!!...       |

......."."......53280,7.D...."..........
......NEW DISK COPY PROGRAM".K....".....
.........................."......"......
.....*** FEBRUAR 1984 * MAINS ***".K.#..
"............PRESS 'SHIFT KEY' TO CONTIN
UE".V.(..653,1...-..653,1,1...Z.."."...D
..55,0:.56,54:....E.PG.54:MX.B(56).'.F.Z
$.G(0):Q$.G(34).=.G..53280,6:.53281,1.M.
H..G(14);G(8).E.I..F$(MX),F(MX),T(MX).~.
J..I.828.904:.A:.I,A:....K.."...SINGLE D
ISK FILE COPIER                 ";...L..
".......................................
.";...M..".PLEASE INSERT THE .SOURCE.  D
ISKETTE INTO".F.N.."THE DISK DRIVE AND P
RESS THE .RETURN. KEY".].O..A$:.A$..G(13
).111.O.P..15,8,15,"I0"...Q..". FILENAME
S TO MATCH ? *...";F$...R..I(F$,1).."*".
F$.F$."*".A.S..193:.E.189.Z.T..1,8,0,"$0
:".F$:.193...U..E.."....... IMPOSSIBLE T
O READ DIRECTORY .":.189.G.V.." .'.C.' T
O COPY FILE    '.R.' TO REJECT FILE  ";.
Y.W.."'.B.' TO BEGIN COPY   '.A.' TO ABO
RT COPY."...X..#1,A$,B$:N.0:AD.PG.256...
Y..#1,A$,B$:.B$."".142.B.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.>...#1,A$:.A$.."
 ".127.U....#1,T$:.T$." ".128.L....#1,A$
:.A$.."".129......SZ.0.(T$.."P".T$.."S")
.121......SZ;.5);T$;" ";Q$;F$;Q$;.26);.X
....AD.SZ.256.53247.."..TOO LARGE.":.121
......"_ .C:R:B:A?.........";......A$:.A
$."".134.*....A$."R"..".REJECT FILE.":.1
21.K....A$."B"..".BEGIN COPY.":.142.L...
.A$."A"..".ABORT COPY.":.186.}....A$.."C
".134.....N.N.1:F$(N).F$.",".T$:.".COPY 
FILE. ".B...AD.AD.SZ.256:.N.MX.121......
". .MAXIMUM OF";MX;"FILES."..... 1:."...
.........";N;"FILES TO READ.".$...AD.PG.
256:.N.0.189./....I.1.N.J...." ";Q$;F$(I
);Q$;.20);.[...SZ..(AD.256).V....251,AD.
SZ.256:.252,SZ......1,8,2,"0:".F$(I):.19
3......E.74. 1:N.I.1:.157.A....E. 1:F$(I
)."":.156......831:.193: 1:.E.74.N.I.1:.
157......E.F$(I)."":.156.%....B(252).208
.F$(I)."":.".TOO LARGE.":.156.N...F(I).A
D:AD.B(251).B(252).256:T(I).AD.{....I(" 
  ".D(T(I).F(I)),5);" BYTES OF MEM".....
.I......N.0.189.F....".PLEASE INSERT THE
 .DESTINATION. DISKETTE":.9000......"...
......FORMAT. THIS DISKETTE  N...";A$...
 ........A$.."Y".165:.9000.-...." DISK N
AME,ID";F$,T$.E....15,"N0:".F$.",".T$.W.
...:.193:.E.157.B....I.1.N.T....F$(I).""
.183......" ";Q$;F$(I);Q$;.20);......1,8
,2,F$(I).",W"......193:.E.0.176.H... 1:.
E.63.172......  CLOSE1:IFE<>63GOTO840...
...:."...... .REPLACE. EXISTING FILE .? 
N...";A$......./....A$.."Y".183.H....15,
"S0:".F$(I):.167.[...SZ..(F(I).256).X...
.251,F(I).SZ.256:.252,SZ.....SZ..(T(I).2
56)......253,T(I).SZ.256:.254,SZ.H....82
8:.193: 1:.E.72.E.74.184.S....E.183.....
.I("   ".D(T(I).F(I)),5);" BYTES OF MEM"
......I.7...."...... SAVE SAME PROGRAMS 
AGAIN? N...";A$.G....A$."Y".158.R... 15:
 1......"....... MORE PROGRAMS TO COPY? 
Y...";A$......A$."Y".  15: 1:.107.......
14)".END OF COPY".X.....7)"..PLEASE REMO
VE THE DISKETTE".......11)"FROM THE DISK
 DRIVE."......G(9);:....A..15,E,E$,E1,E2
.#.B..E.0...S.C.EE$.J(D(E),2):E1$.J(D(E1
),2):E2$.J(D(E2),2)._.D..E.63.....E..:."
............";EE$;",";E$;",";E1$;",";E2$
...F.. 76,96,3,162,1,32,198,255,32.R.G..
 228,255,160,0,145,251,230...H.. 251,208
,8,230,252,165,252...I.. 201,208,240,6,1
65,144,41,64.6.J.. 240,231,76,204,255,16
2,1,32.W.K.. 201,255,162,54,134,1,160,0.
X.L.. 177,251,32,210,255,230,251...M.. 2
08,2,230,252,165,251,197,253...N.. 208,2
39,165,252,197,254,208...O.. 233,162,55,
134,1,76,204,255...(#.A.1.3:.A$:.10000..
.2#.A$:.A$.""..:.A.1.3.'.<#.A$..G(13)..S
.24,0:..>.F#.A$.A$..54276,16:..C..'S.542
72:.L.0.24:.B(197)..64.9030...$'.S.L,0:.
 :.S.14,5:.S.18,6:.S.3,1 :.S.24,143.J..'
.S.6,240:.S.4,65:FR.5389:FQ.FR.B(S.27).3
.5:.X.1.20...8'.B(197)..64.....B'HF..(FQ
.256):LF.FQ.HF.256:.S.0,LF:.S.1,HF:.:..2
.G'. *****************************.V.T'.
 ALARMPROGRAM FRA LINIE 9000!!...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL