SD COPY
FILE INFORMATION
FILENAME(S): SD COPY
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:28:03
APPEARS ON: 1 disk(s)
FILE HASH
da0f393d083687cb56262f2861063badf0324cf3be7973b7997a01fa6dadfe5d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| T STOUGIE | SD COPY | PRG | DuncanTwain | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 97 35 35 2C 30 3A 97 35 36 2C |....d..55,0:.56,|
00000010: 33 31 3A 9C 00 27 08 6E 00 50 47 B2 37 35 3A 4D |31:..'.n.PG.75:M|
00000020: 58 B2 C2 28 35 36 29 00 3C 08 78 00 5A 24 B2 C7 |X..(56).<.x.Z$..|
00000030: 28 30 29 3A 51 24 B2 C7 28 33 34 29 00 52 08 82 |(0):Q$..(34).R..|
00000040: 00 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 31 |..53280,1:.53281|
00000050: 2C 30 00 66 08 8C 00 97 35 33 32 37 32 2C 32 33 |,0.f....53272,23|
00000060: 3A 99 C7 28 38 29 00 85 08 96 00 86 46 24 28 50 |:..(8)......F$(P|
00000070: 47 29 2C 46 28 50 47 29 2C 54 28 50 47 29 2C 55 |G),F(PG),T(PG),U|
00000080: 25 28 50 47 29 00 9E 08 A0 00 81 49 B2 38 32 38 |%(PG)......I.828|
00000090: A4 39 34 39 3A 87 41 3A 97 49 2C 41 3A 82 00 BD |.949:.A:.I,A:...|
000000A0: 08 AA 00 99 22 93 05 11 20 12 D3 C9 CE C7 CC C5 |...."... .......|
000000B0: 20 C4 C9 D3 CB 20 C3 CF D0 C9 C5 D2 22 00 DE 08 | .... ......"...|
000000C0: B4 00 99 22 11 20 28 C3 29 20 31 39 38 33 20 CA |...". (.) 1983 .|
000000D0: 41 43 51 55 45 53 20 CC 45 42 52 55 4E 22 00 01 |ACQUES .EBRUN"..|
000000E0: 09 BE 00 99 22 11 41 44 41 50 54 45 20 50 41 52 |....".ADAPTE PAR|
000000F0: 20 C1 CC C1 C9 CE A0 CC C1 C3 C8 C1 D2 C9 D4 C5 | ...............|
00000100: 22 00 1D 09 C0 00 99 22 11 20 12 D0 D5 D4 20 C9 |"......". .... .|
00000110: CE 20 C9 CE D0 D5 D4 20 C4 C9 D3 CB 22 00 44 09 |. ..... ....".D.|
00000120: C8 00 85 22 11 20 12 C6 49 4C 45 4E 41 4D 45 53 |...". ..ILENAMES|
00000130: 20 54 4F 20 4D 41 54 43 48 92 3F 20 2A 9D 9D 9D | TO MATCH.? *...|
00000140: 22 3B 46 24 00 60 09 D2 00 8B C9 28 46 24 2C 31 |";F$.`.....(F$,1|
00000150: 29 B3 B1 22 2A 22 A7 46 24 B2 46 24 AA 22 2A 22 |).."*".F$.F$."*"|
00000160: 00 80 09 D3 00 85 22 11 20 12 D7 41 4E 54 20 50 |......". ..ANT P|
00000170: 52 4F 4D 50 54 92 3F 20 59 9D 9D 9D 22 3B 41 24 |ROMPT.? Y...";A$|
00000180: 00 89 09 D4 00 46 50 B2 31 00 9B 09 D5 00 8B 41 |.....FP.1......A|
00000190: 24 B3 B1 22 59 22 A7 46 50 B2 30 00 B9 09 DC 00 |$.."Y".FP.0.....|
000001A0: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 38 |.15,8,15,"I0":.8|
000001B0: 38 30 3A 8B 45 89 38 36 34 00 D2 09 E6 00 9F 31 |80:.E.864......1|
000001C0: 2C 38 2C 30 2C 22 24 30 3A 22 AA 46 24 3A 8D 38 |,8,0,"$0:".F$:.8|
000001D0: 38 30 00 01 0A F0 00 8B 45 A7 99 22 11 12 20 49 |80......E..".. I|
000001E0: 4D 50 4F 53 53 49 42 4C 45 20 54 4F 20 52 45 41 |MPOSSIBLE TO REA|
000001F0: 44 20 44 49 52 45 43 54 4F 52 59 22 3A 89 38 37 |D DIRECTORY":.87|
00000200: 30 00 3B 0A F2 00 8B 46 50 A7 99 22 11 20 12 59 |0.;....FP..". .Y|
00000210: 92 20 54 4F 20 43 4F 50 59 2C 12 4E 92 20 54 4F |. TO COPY,.N. TO|
00000220: 20 52 45 46 55 53 45 2C 12 51 92 20 54 4F 20 42 | REFUSE,.Q. TO B|
00000230: 45 47 49 4E 20 43 4F 50 59 11 22 00 57 0A FA 00 |EGIN COPY.".W...|
00000240: A1 23 31 2C 41 24 2C 42 24 3A 4E B2 30 3A 41 44 |.#1,A$,B$:N.0:AD|
00000250: B2 50 47 AC 32 35 36 00 70 0A 04 01 A1 23 31 2C |.PG.256.p....#1,|
00000260: 41 24 2C 42 24 3A 8B 42 24 B2 22 22 89 34 36 30 |A$,B$:.B$."".460|
00000270: 00 84 0A 0E 01 A1 23 31 2C 41 24 2C 42 24 3A 46 |......#1,A$,B$:F|
00000280: 24 B2 22 22 00 A1 0A 18 01 53 5A B2 C6 28 41 24 |$."".....SZ..(A$|
00000290: AA 5A 24 29 AA C6 28 42 24 AA 5A 24 29 AC 32 35 |.Z$)..(B$.Z$).25|
000002A0: 36 00 B7 0A 22 01 A1 23 31 2C 41 24 3A 8B 36 34 |6..."..#1,A$:.64|
000002B0: AF 53 54 89 34 36 30 00 C7 0A 2C 01 8B 41 24 B3 |.ST.460...,..A$.|
000002C0: B1 51 24 89 32 39 30 00 E8 0A 36 01 A1 23 31 2C |.Q$.290...6..#1,|
000002D0: 41 24 3A 8B 41 24 B3 B1 51 24 A7 46 24 B2 46 24 |A$:.A$..Q$.F$.F$|
000002E0: AA 41 24 3A 89 33 31 30 00 00 0B 40 01 A1 23 31 |.A$:.310...@..#1|
000002F0: 2C 41 24 3A 8B 41 24 B3 B1 22 20 22 89 33 32 30 |,A$:.A$.." ".320|
00000300: 00 17 0B 4A 01 A1 23 31 2C 54 24 3A 8B 54 24 B2 |...J..#1,T$:.T$.|
00000310: 22 20 22 89 33 33 30 00 2E 0B 54 01 A1 23 31 2C |" ".330...T..#1,|
00000320: 41 24 3A 8B 41 24 B3 B1 22 22 89 33 34 30 00 4E |A$:.A$.."".340.N|
00000330: 0B 5E 01 8B 53 5A B2 30 B0 28 54 24 B3 B1 22 50 |.^..SZ.0.(T$.."P|
00000340: 22 AF 54 24 B3 B1 22 53 22 29 89 32 36 30 00 70 |".T$.."S").260.p|
00000350: 0B 68 01 99 53 5A 3B A3 35 29 3B 54 24 3B 22 20 |.h..SZ;.5);T$;" |
00000360: 22 3B 51 24 3B 46 24 3B 51 24 3B A3 32 36 29 3B |";Q$;F$;Q$;.26);|
00000370: 00 7E 0B 77 01 8B 46 50 B2 30 89 34 33 30 00 95 |.~.w..FP.0.430..|
00000380: 0B 7C 01 99 22 12 59 2F 4E 2F 51 3F 92 9D 9D 9D |.|..".Y/N/Q?....|
00000390: 9D 9D 9D 22 3B 00 A8 0B 86 01 A1 41 24 3A 8B 41 |...";......A$:.A|
000003A0: 24 B2 22 22 89 33 39 30 00 C3 0B 90 01 8B 41 24 |$."".390......A$|
000003B0: B2 22 4E 22 A7 99 22 4E 4F 20 20 20 20 22 3A 89 |."N".."NO ":.|
000003C0: 32 36 30 00 DE 0B 9A 01 8B 41 24 B2 22 51 22 A7 |260......A$."Q".|
000003D0: 99 22 51 55 49 54 20 20 22 3A 89 34 36 30 00 EF |."QUIT ":.460..|
000003E0: 0B A4 01 8B 41 24 B3 B1 22 59 22 89 33 39 30 00 |....A$.."Y".390.|
000003F0: 13 0C AE 01 4E B2 4E AA 31 3A 46 24 28 4E 29 B2 |....N.N.1:F$(N).|
00000400: 46 24 AA 22 2C 22 AA 54 24 3A 99 22 59 45 53 20 |F$.",".T$:."YES |
00000410: 20 20 22 00 2A 0C B8 01 55 25 28 4E 29 B2 53 5A | ".*...U%(N).SZ|
00000420: 3A 8B 4E B3 50 47 89 32 36 30 00 4B 0C C2 01 99 |:.N.PG.260.K....|
00000430: 22 11 20 12 CD 41 58 49 4D 55 4D 20 4F 46 22 3B |". ..AXIMUM OF";|
00000440: 50 47 3B 22 46 49 4C 45 53 2E 22 00 6A 0C CC 01 |PG;"FILES.".j...|
00000450: A0 31 3A 99 22 11 22 3B 4E 3B 22 46 49 4C 45 53 |.1:.".";N;"FILES|
00000460: 20 54 4F 20 4C 4F 41 44 11 22 00 73 0C DB 01 89 | TO LOAD.".s....|
00000470: 34 38 32 00 AE 0C E0 01 97 31 39 38 2C 30 3A 99 |482......198,0:.|
00000480: 22 11 20 12 D0 D5 D4 A0 C9 CE A0 C9 CE D0 D5 D4 |". .............|
00000490: A0 C4 C9 D3 CB 92 11 22 3A 99 22 48 49 54 20 41 |.......":."HIT A|
000004A0: 20 4B 45 59 20 54 4F 20 42 45 47 49 4E 22 00 C1 | KEY TO BEGIN"..|
000004B0: 0C E1 01 A1 41 24 3A 8B 41 24 B2 22 22 89 34 38 |....A$:.A$."".48|
000004C0: 31 00 D4 0C E2 01 46 4C B2 30 3A 98 31 35 2C 22 |1.....FL.0:.15,"|
000004D0: 49 3A 30 22 00 EB 0C E3 01 41 44 B2 4D 58 AC 32 |I:0".....AD.MX.2|
000004E0: 35 36 3A 8B 4E B2 30 89 38 36 34 00 F6 0C E5 01 |56:.N.0.864.....|
000004F0: 81 49 B2 31 A4 4E 00 08 0D E6 01 8B 55 25 28 49 |.I.1.N......U%(I|
00000500: 29 B3 B2 30 89 36 30 30 00 23 0D EA 01 99 22 20 |)..0.600.#...." |
00000510: 22 3B 51 24 3B 46 24 28 49 29 3B 51 24 3B A3 32 |";Q$;F$(I);Q$;.2|
00000520: 30 29 3B 00 51 0D EF 01 8B 41 44 AA 55 25 28 49 |0);.Q....AD.U%(I|
00000530: 29 AC 32 35 36 B1 36 35 35 33 35 A7 99 22 12 54 |).256.65535..".T|
00000540: 4F 4F 20 42 49 47 22 3A 46 4C B2 31 3A 89 36 30 |OO BIG":FL.1:.60|
00000550: 30 00 62 0D F4 01 53 5A B2 B5 28 41 44 AD 32 35 |0.b...SZ..(AD.25|
00000560: 36 29 00 7D 0D FE 01 97 32 35 31 2C 41 44 AB 53 |6).}....251,AD.S|
00000570: 5A AC 32 35 36 3A 97 32 35 32 2C 53 5A 00 98 0D |Z.256:.252,SZ...|
00000580: 08 02 9F 31 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 |...1,8,2,"0:".F$|
00000590: 28 49 29 3A 8D 38 38 30 00 B0 0D 12 02 8B 45 B2 |(I):.880......E.|
000005A0: 37 34 A7 A0 31 3A 4E B2 49 AB 31 3A 89 36 31 30 |74..1:N.I.1:.610|
000005B0: 00 D0 0D 1C 02 8B 45 A7 A0 31 3A 46 24 28 49 29 |......E..1:F$(I)|
000005C0: B2 22 22 3A 55 25 28 49 29 B2 30 3A 89 36 30 30 |."":U%(I).0:.600|
000005D0: 00 F2 0D 26 02 9E 38 33 31 3A 8D 38 38 30 3A A0 |...&..831:.880:.|
000005E0: 31 3A 8B 45 B2 37 34 A7 4E B2 49 AB 31 3A 89 36 |1:.E.74.N.I.1:.6|
000005F0: 31 30 00 0F 0E 30 02 8B 45 A7 46 24 28 49 29 B2 |10...0..E.F$(I).|
00000600: 22 22 3A 55 25 28 49 29 B2 30 3A 89 36 30 30 00 |"":U%(I).0:.600.|
00000610: 35 0E 3A 02 8B C2 28 32 35 32 29 B2 30 30 A7 99 |5.:...(252).00..|
00000620: 22 12 D4 CF CF A0 C2 C9 C7 92 22 3A 46 4C B2 31 |".........":FL.1|
00000630: 3A 89 36 30 30 00 5E 0E 44 02 46 28 49 29 B2 41 |:.600.^.D.F(I).A|
00000640: 44 3A 41 44 B2 C2 28 32 35 31 29 AA C2 28 32 35 |D:AD..(251)..(25|
00000650: 32 29 AC 32 35 36 3A 54 28 49 29 B2 41 44 00 84 |2).256:T(I).AD..|
00000660: 0E 4E 02 99 C9 28 22 20 20 20 22 AA C4 28 54 28 |.N...(" "..(T(|
00000670: 49 29 AB 46 28 49 29 29 2C 35 29 3B 22 20 42 59 |I).F(I)),5);" BY|
00000680: 54 45 53 22 00 91 0E 53 02 55 25 28 49 29 B2 AB |TES"...S.U%(I)..|
00000690: 31 00 98 0E 58 02 82 49 00 A5 0E 62 02 8B 4E B2 |1...X..I...b..N.|
000006A0: 30 89 38 36 34 00 C2 0E 6C 02 99 22 11 20 12 C9 |0.864...l..". ..|
000006B0: CE D3 C5 D2 D4 A0 CF D5 D4 D0 D5 D4 A0 C4 C9 D3 |................|
000006C0: CB 22 00 DF 0E 76 02 85 22 20 C8 45 41 44 45 52 |."...v.." .EADER|
000006D0: 20 44 49 53 4B 3F 20 4E 9D 9D 9D 22 3B 41 24 00 | DISK? N...";A$.|
000006E0: ED 0E 7B 02 98 31 35 2C 22 49 3A 30 22 00 FE 0E |..{..15,"I:0"...|
000006F0: 80 02 8B 41 24 B3 B1 22 59 22 89 36 38 30 00 1F |...A$.."Y".680..|
00000700: 0F 8A 02 54 24 B2 22 22 3A 85 22 20 C4 49 53 4B |...T$."":." .ISK|
00000710: 20 4E 41 4D 45 2C 49 44 22 3B 46 24 2C 54 24 00 | NAME,ID";F$,T$.|
00000720: 37 0F 94 02 98 31 35 2C 22 4E 30 3A 22 AA 46 24 |7....15,"N0:".F$|
00000730: AA 22 2C 22 AA 54 24 00 49 0F 9E 02 99 3A 8D 38 |.",".T$.I....:.8|
00000740: 38 30 3A 8B 45 89 36 31 30 00 54 0F A8 02 81 49 |80:.E.610.T....I|
00000750: B2 31 A4 4E 00 7D 0F B2 02 8B 28 55 25 28 49 29 |.1.N.}....(U%(I)|
00000760: B2 AB 32 AF 46 45 B2 31 29 B0 28 55 25 28 49 29 |..2.FE.1).(U%(I)|
00000770: B2 AB 31 AF 46 45 B2 30 29 89 36 39 35 00 86 0F |..1.FE.0).695...|
00000780: B4 02 89 38 34 30 00 94 0F B7 02 4E 41 24 B2 46 |...840.....NA$.F|
00000790: 24 28 49 29 00 AD 0F BC 02 99 22 20 22 3B 51 24 |$(I)......" ";Q$|
000007A0: 3B 4E 41 24 3B 51 24 3B A3 32 30 29 3B 00 C1 0F |;NA$;Q$;.20);...|
000007B0: C6 02 9F 31 2C 38 2C 32 2C 4E 41 24 AA 22 2C 57 |...1,8,2,NA$.",W|
000007C0: 22 00 D3 0F D0 02 8D 38 38 30 3A 8B 45 B2 30 89 |"......880:.E.0.|
000007D0: 37 37 30 00 E5 0F DA 02 A0 31 3A 8B 45 B3 B1 36 |770......1:.E..6|
000007E0: 33 89 38 35 30 00 00 10 E4 02 85 22 20 12 D2 C5 |3.850......" ...|
000007F0: D0 CC C1 C3 C5 92 3F 20 4E 9D 9D 9D 22 3B 41 24 |......? N...";A$|
00000800: 00 1B 10 EE 02 8B 41 24 B3 B1 22 59 22 A7 55 25 |......A$.."Y".U%|
00000810: 28 49 29 B2 AB 32 3A 89 38 34 30 00 37 10 EF 02 |(I)..2:.840.7...|
00000820: 85 22 20 12 CE C5 D7 20 CE C1 CD C5 92 3F 20 4E |." .... .....? N|
00000830: 9D 9D 9D 22 3B 41 24 00 69 10 F0 02 8B 41 24 B2 |...";A$.i....A$.|
00000840: 22 59 22 A7 85 22 20 CE 41 4D 45 20 22 3B 4E 41 |"Y".." .AME ";NA|
00000850: 24 3A 4E 41 24 B2 4E 41 24 AA C9 28 46 24 28 49 |$:NA$.NA$..(F$(I|
00000860: 29 2C 32 29 3A 89 37 30 30 00 82 10 F8 02 98 31 |),2):.700......1|
00000870: 35 2C 22 53 30 3A 22 AA 46 24 28 49 29 3A 89 37 |5,"S0:".F$(I):.7|
00000880: 30 30 00 95 10 02 03 53 5A B2 B5 28 46 28 49 29 |00.....SZ..(F(I)|
00000890: AD 32 35 36 29 00 B2 10 0C 03 97 32 35 31 2C 46 |.256)......251,F|
000008A0: 28 49 29 AB 53 5A AC 32 35 36 3A 97 32 35 32 2C |(I).SZ.256:.252,|
000008B0: 53 5A 00 C5 10 16 03 53 5A B2 B5 28 54 28 49 29 |SZ.....SZ..(T(I)|
000008C0: AD 32 35 36 29 00 E2 10 20 03 97 32 35 33 2C 54 |.256)... ..253,T|
000008D0: 28 49 29 AB 53 5A AC 32 35 36 3A 97 32 35 34 2C |(I).SZ.256:.254,|
000008E0: 53 5A 00 02 11 2A 03 9E 38 32 38 3A 8D 38 38 30 |SZ...*..828:.880|
000008F0: 3A A0 31 3A 8B 45 B2 37 32 B0 45 B2 37 34 89 38 |:.1:.E.72.E.74.8|
00000900: 35 30 00 0D 11 34 03 8B 45 89 38 34 30 00 33 11 |50...4..E.840.3.|
00000910: 3E 03 99 C9 28 22 20 20 20 22 AA C4 28 54 28 49 |>...(" "..(T(I|
00000920: 29 AB 46 28 49 29 29 2C 35 29 3B 22 20 42 59 54 |).F(I)),5);" BYT|
00000930: 45 53 22 00 40 11 43 03 55 25 28 49 29 B2 AB 32 |ES".@.C.U%(I)..2|
00000940: 00 47 11 48 03 82 49 00 74 11 52 03 85 22 11 20 |.G.H..I.t.R..". |
00000950: 12 D3 41 56 45 20 53 41 4D 45 20 50 52 4F 47 52 |..AVE SAME PROGR|
00000960: 41 4D 53 20 41 47 41 49 4E 92 3F 20 4E 9D 9D 9D |AMS AGAIN.? N...|
00000970: 22 3B 41 24 00 7D 11 57 03 46 45 B2 30 00 93 11 |";A$.}.W.FE.0...|
00000980: 5C 03 8B 41 24 B2 22 59 22 A7 46 45 B2 31 3A 89 |\..A$."Y".FE.1:.|
00000990: 36 31 30 00 B0 11 5E 03 81 49 B2 31 A4 4E 3A 8B |610...^..I.1.N:.|
000009A0: 55 25 28 49 29 B2 AB 32 A7 55 25 28 49 29 B2 30 |U%(I)..2.U%(I).0|
000009B0: 00 BE 11 5F 03 82 3A 8B 46 4C 89 34 38 30 00 E9 |..._..:.FL.480..|
000009C0: 11 60 03 A0 31 35 3A 85 22 20 CD 4F 52 45 20 50 |.`..15:." .ORE P|
000009D0: 52 4F 47 52 41 4D 53 20 54 4F 20 43 4F 50 59 3F |ROGRAMS TO COPY?|
000009E0: 20 59 9D 9D 9D 22 3B 41 24 00 0A 12 62 03 8B 41 | Y...";A$...b..A|
000009F0: 24 B2 22 59 22 A7 81 49 B2 31 A4 50 47 3A 55 25 |$."Y"..I.1.PG:U%|
00000A00: 28 49 29 B2 30 3A 89 31 37 30 00 22 12 66 03 99 |(I).0:.170.".f..|
00000A10: 22 11 20 12 C5 CE C4 A0 CF C6 A0 C3 CF D0 D9 22 |". ............"|
00000A20: 3A 80 00 35 12 70 03 84 31 35 2C 45 2C 45 24 2C |:..5.p..15,E,E$,|
00000A30: 45 31 2C 45 32 00 40 12 7A 03 8B 45 B2 30 A7 8E |E1,E2.@.z..E.0..|
00000A40: 00 5C 12 84 03 99 22 12 22 3B CA 28 C4 28 45 29 |.\....".";.(.(E)|
00000A50: 2C 32 29 3B 22 2C 22 3B 45 24 3A 8E 00 98 12 F2 |,2);",";E$:.....|
00000A60: 03 83 20 37 36 2C 39 36 2C 33 2C 31 36 32 2C 31 |.. 76,96,3,162,1|
00000A70: 2C 33 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 32 |,32,198,255,32,2|
00000A80: 32 38 2C 32 35 35 2C 31 36 30 2C 30 2C 31 34 35 |28,255,160,0,145|
00000A90: 2C 32 35 31 2C 32 33 30 00 D9 12 FC 03 83 20 32 |,251,230...... 2|
00000AA0: 35 31 2C 32 30 38 2C 38 2C 32 33 30 2C 32 35 32 |51,208,8,230,252|
00000AB0: 2C 31 36 35 2C 32 35 32 2C 32 30 31 2C 32 30 38 |,165,252,201,208|
00000AC0: 2C 32 34 30 2C 35 30 2C 31 36 35 2C 31 34 34 2C |,240,50,165,144,|
00000AD0: 34 31 2C 36 34 2C 32 34 30 00 14 13 06 04 83 20 |41,64,240...... |
00000AE0: 32 33 31 2C 37 36 2C 31 35 34 2C 33 2C 31 36 32 |231,76,154,3,162|
00000AF0: 2C 31 2C 33 32 2C 32 30 31 2C 32 35 35 2C 31 36 |,1,32,201,255,16|
00000B00: 30 2C 30 2C 31 32 30 2C 31 36 32 2C 35 33 2C 31 |0,0,120,162,53,1|
00000B10: 33 34 2C 31 00 54 13 10 04 83 20 31 37 37 2C 32 |34,1.T.... 177,2|
00000B20: 35 31 2C 31 36 32 2C 35 35 2C 31 33 34 2C 31 2C |51,162,55,134,1,|
00000B30: 38 38 2C 33 32 2C 32 31 30 2C 32 35 35 2C 32 33 |88,32,210,255,23|
00000B40: 30 2C 32 35 31 2C 32 30 38 2C 34 35 2C 32 33 30 |0,251,208,45,230|
00000B50: 2C 32 35 32 00 96 13 1A 04 83 20 31 36 35 2C 32 |,252...... 165,2|
00000B60: 35 32 2C 32 30 31 2C 32 30 38 2C 32 30 38 2C 33 |52,201,208,208,3|
00000B70: 37 2C 31 36 39 2C 32 32 34 2C 31 33 33 2C 32 35 |7,169,224,133,25|
00000B80: 32 2C 37 36 2C 31 36 37 2C 33 2C 31 36 39 2C 32 |2,76,167,3,169,2|
00000B90: 32 34 2C 31 33 33 00 CF 13 24 04 83 20 32 35 32 |24,133...$.. 252|
00000BA0: 2C 31 36 39 2C 30 2C 31 34 31 2C 38 34 2C 33 2C |,169,0,141,84,3,|
00000BB0: 31 36 39 2C 36 37 2C 31 34 31 2C 38 36 2C 33 2C |169,67,141,86,3,|
00000BC0: 37 36 2C 38 37 2C 33 2C 31 36 39 2C 32 30 38 00 |76,87,3,169,208.|
00000BD0: 0D 14 2E 04 83 20 31 34 31 2C 38 34 2C 33 2C 31 |..... 141,84,3,1|
00000BE0: 36 39 2C 35 30 2C 31 34 31 2C 38 36 2C 33 2C 37 |69,50,141,86,3,7|
00000BF0: 36 2C 32 30 34 2C 32 35 35 2C 31 36 35 2C 32 35 |6,204,255,165,25|
00000C00: 31 2C 31 39 37 2C 32 35 33 2C 32 30 38 00 3A 14 |1,197,253,208.:.|
00000C10: 38 04 83 20 31 38 36 2C 31 36 35 2C 32 35 32 2C |8.. 186,165,252,|
00000C20: 31 39 37 2C 32 35 34 2C 32 30 38 2C 31 38 30 2C |197,254,208,180,|
00000C30: 37 36 2C 32 30 34 2C 32 35 35 00 00 00 53 00 52 |76,204,255...S.R|
00000C40: 12 |. |
....D..55,0:.56,31:..'.N.PG.75:MX.B(56).
<.X.Z$.G(0):Q$.G(34).R....53280,1:.53281
,0.F....53272,23:.G(8)......F$(PG),F(PG)
,T(PG),U%(PG)... ..I.828.949:.A:.I,A:...
...."... .SINGLE DISK COPIER"......". (C
) 1983 JACQUES LEBRUN"......".ADAPTE PAR
ALAIN LACHARITE"......". .PUT IN INPUT
DISK".D.H..". .FILENAMES TO MATCH.? *...
";F$.`.R..I(F$,1).."*".F$.F$."*"...S..".
.WANT PROMPT.? Y...";A$...T.FP.1...U..A
$.."Y".FP.0......15,8,15,"I0":.880:.E.86
4.R....1,8,0,"$0:".F$:.880......E..".. I
MPOSSIBLE TO READ DIRECTORY":.870.;....F
P..". .Y. TO COPY,.N. TO REFUSE,.Q. TO B
EGIN COPY.".W....#1,A$,B$:N.0:AD.PG.256.
P....#1,A$,B$:.B$."".460......#1,A$,B$:F
$."".....SZ.F(A$.Z$).F(B$.Z$).256..."..#
1,A$:.64.ST.460.G.,..A$..Q$.290...6..#1,
A$:.A$..Q$.F$.F$.A$:.310...@..#1,A$:.A$.
." ".320...J..#1,T$:.T$." ".330...T..#1,
A$:.A$.."".340.N.^..SZ.0.(T$.."P".T$.."S
").260.P.H..SZ;.5);T$;" ";Q$;F$;Q$;.26);
.~.W..FP.0.430...|..".Y/N/Q?.......";...
...A$:.A$."".390.C....A$."N".."NO ":.
260......A$."Q".."QUIT ":.460......A$..
"Y".390.....N.N.1:F$(N).F$.",".T$:."YES
".*...U%(N).SZ:.N.PG.260.K.B..". .MAXI
MUM OF";PG;"FILES.".J.L. 1:.".";N;"FILES
TO LOAD.".S....482......198,0:.". .PUT
IN INPUT DISK..":."HIT A KEY TO BEGIN".A
....A$:.A$."".481.T...FL.0:.15,"I:0"....
.AD.MX.256:.N.0.864......I.1.N......U%(I
)..0.600.#...." ";Q$;F$(I);Q$;.20);.Q...
.AD.U%(I).256.65535..".TOO BIG":FL.1:.60
0.B...SZ..(AD.256).}....251,AD.SZ.256:.2
52,SZ......1,8,2,"0:".F$(I):.880......E.
74. 1:N.I.1:.610.P....E. 1:F$(I)."":U%(I
).0:.600...&..831:.880: 1:.E.74.N.I.1:.6
10...0..E.F$(I)."":U%(I).0:.600.5.:..B(2
52).00..".TOO BIG.":FL.1:.600.^.D.F(I).A
D:AD.B(251).B(252).256:T(I).AD...N..I("
".D(T(I).F(I)),5);" BYTES"...S.U%(I)..
1...X..I...B..N.0.864.B.L..". .INSERT OU
TPUT DISK"...V.." HEADER DISK? N...";A$.
..{..15,"I:0"......A$.."Y".680.....T$.""
:." DISK NAME,ID";F$,T$.7....15,"N0:".F$
.",".T$.I....:.880:.E.610.T....I.1.N.}..
..(U%(I)..2.FE.1).(U%(I)..1.FE.0).695...
...840.....NA$.F$(I)......" ";Q$;NA$;Q$;
.20);.A.F..1,8,2,NA$.",W".S.P..880:.E.0.
770...Z. 1:.E..63.850......" .REPLACE.?
N...";A$......A$.."Y".U%(I)..2:.840.7...
." .NEW NAME.? N...";A$.I....A$."Y".." N
AME ";NA$:NA$.NA$.I(F$(I),2):.700......1
5,"S0:".F$(I):.700.....SZ..(F(I).256)...
...251,F(I).SZ.256:.252,SZ.E...SZ..(T(I)
.256)... ..253,T(I).SZ.256:.254,SZ...*..
828:.880: 1:.E.72.E.74.850...4..E.840.3.
>..I(" ".D(T(I).F(I)),5);" BYTES".@.C.
U%(I)..2.G.H..I.T.R..". .SAVE SAME PROGR
AMS AGAIN.? N...";A$.}.W.FE.0...\..A$."Y
".FE.1:.610...^..I.1.N:.U%(I)..2.U%(I).0
..._..:.FL.480...`. 15:." MORE PROGRAMS
TO COPY? Y...";A$...B..A$."Y"..I.1.PG:U%
(I).0:.170.".F..". .END OF COPY":..5.P..
15,E,E$,E1,E2.@.Z..E.0...\....".";J(D(E)
,2);",";E$:....... 76,96,3,162,1,32,198,
255,32,228,255,160,0,145,251,230.Y.... 2
51,208,8,230,252,165,252,201,208,240,50,
165,144,41,64,240...... 231,76,154,3,162
,1,32,201,255,160,0,120,162,53,134,1.T..
.. 177,251,162,55,134,1,88,32,210,255,23
0,251,208,45,230,252...... 165,252,201,2
08,208,37,169,224,133,252,76,167,3,169,2
24,133.O.$.. 252,169,0,141,84,3,169,67,1
41,86,3,76,87,3,169,208...... 141,84,3,1
69,50,141,86,3,76,204,255,165,251,197,25
3,208.:.8.. 186,165,252,197,254,208,180,
76,204,255...S.R.
> CLICK IMAGE PREVIEW FOR FULL MODAL