4040 COPIER
FILE INFORMATION
FILENAME(S): 4040 COPIER
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 17:31:29
APPEARS ON: 2 disk(s)
FILE HASH
2d2faa4ef17dec07693bcffbaca20479da94a7da6649f53bdbe3dc1f1fc7df0d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCADIAN UTILITY | 4040 COPIER | PRG | UK CD | 5 | 0 | DOWNLOAD FILE |
| 032B | 4040 COPIER | PRG | hedning, Martin L0fgren | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 86 41 24 28 31 35 32 29 3A 81 |..#....A$(152):.| 00000010: 41 B2 38 32 38 A4 38 34 38 3A 87 53 3A 97 41 2C |A.828.848:.S:.A,| 00000020: 53 3A 82 00 61 08 28 00 97 35 33 32 38 30 2C 31 |S:..a.(..53280,1| 00000030: 3A 97 35 33 32 38 31 2C 31 35 3A 99 22 93 11 90 |:.53281,15:."...| 00000040: 08 8E 34 30 34 30 20 46 49 4C 45 43 4F 50 49 45 |..4040 FILECOPIE| 00000050: 52 20 46 52 4F 4D 20 52 45 49 4E 4F 57 41 52 45 |R FROM REINOWARE| 00000060: 22 00 9E 08 32 00 99 22 11 49 4E 53 45 52 54 20 |"...2..".INSERT | 00000070: 53 4F 55 52 43 45 20 44 49 53 4B 20 49 4E 54 4F |SOURCE DISK INTO| 00000080: 20 44 52 49 56 45 20 30 20 41 4E 44 22 3A 5A 24 | DRIVE 0 AND":Z$| 00000090: B2 C7 28 30 29 3A 51 24 B2 C7 28 33 34 29 00 C4 |..(0):Q$..(34)..| 000000A0: 08 3C 00 99 22 44 45 53 54 49 4E 41 54 49 4F 4E |.<.."DESTINATION| 000000B0: 20 44 49 53 4B 20 49 4E 54 4F 20 44 52 49 56 45 | DISK INTO DRIVE| 000000C0: 20 31 2E 22 00 E8 08 46 00 85 22 11 46 49 4C 45 | 1."...F..".FILE| 000000D0: 4E 41 4D 45 53 20 54 4F 20 4D 41 54 43 48 20 20 |NAMES TO MATCH | 000000E0: 2A 9D 9D 9D 22 3B 41 24 00 10 09 50 00 9F 31 35 |*...";A$...P..15| 000000F0: 2C 38 2C 31 35 2C 22 49 22 3A 9F 31 2C 38 2C 30 |,8,15,"I":.1,8,0| 00000100: 2C 22 24 30 3A 22 AA 41 24 3A 9E 38 32 38 3A 99 |,"$0:".A$:.828:.| 00000110: 00 3F 09 52 00 99 22 53 45 4C 45 43 54 20 46 49 |.?.R.."SELECT FI| 00000120: 4C 45 53 20 54 4F 20 42 45 20 43 4F 50 49 45 44 |LES TO BE COPIED| 00000130: 20 28 12 59 92 45 53 2F 12 4E 92 4F 29 11 22 00 | (.Y.ES/.N.O).".| 00000140: 6E 09 5A 00 A1 23 31 2C 41 24 2C 42 24 3A 8B 53 |n.Z..#1,A$,B$:.S| 00000150: 54 B3 B1 30 A7 99 22 44 49 52 45 43 54 4F 52 59 |T..0.."DIRECTORY| 00000160: 20 45 52 52 4F 52 22 3A 89 31 30 30 30 30 00 87 | ERROR":.10000..| 00000170: 09 64 00 A1 23 31 2C 41 24 2C 42 24 3A 8B 42 24 |.d..#1,A$,B$:.B$| 00000180: B2 22 22 A7 39 38 30 00 95 09 6E 00 A1 23 31 2C |."".980...n..#1,| 00000190: 41 24 2C 42 24 00 B2 09 78 00 53 5A B2 C6 28 41 |A$,B$...x.SZ..(A| 000001A0: 24 AA 5A 24 29 AA C6 28 42 24 AA 5A 24 29 AC 32 |$.Z$)..(B$.Z$).2| 000001B0: 35 36 00 C8 09 82 00 A1 23 31 2C 41 24 3A 8B 36 |56......#1,A$:.6| 000001C0: 34 AF 53 54 89 39 38 30 00 DE 09 8C 00 46 24 B2 |4.ST.980.....F$.| 000001D0: 22 22 3A 8B 41 24 B3 B1 51 24 89 31 33 30 00 FF |"":.A$..Q$.130..| 000001E0: 09 96 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 51 |....#1,A$:.A$..Q| 000001F0: 24 A7 46 24 B2 46 24 AA 41 24 3A 89 31 35 30 00 |$.F$.F$.A$:.150.| 00000200: 17 0A A0 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 |.....#1,A$:.A$..| 00000210: 22 20 22 89 31 36 30 00 2E 0A AA 00 A1 23 31 2C |" ".160......#1,| 00000220: 54 24 3A 8B 54 24 B2 22 20 22 89 31 37 30 00 48 |T$:.T$." ".170.H| 00000230: 0A AB 00 A1 23 31 2C 41 24 2C 42 24 3A 54 24 B2 |....#1,A$,B$:T$.| 00000240: 54 24 AA 41 24 AA 42 24 00 5F 0A B4 00 A1 23 31 |T$.A$.B$._....#1| 00000250: 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 31 38 30 00 |,A$:.A$.."".180.| 00000260: 97 0A BE 00 8B 53 5A B2 30 B0 28 54 24 B3 B1 22 |.....SZ.0.(T$.."| 00000270: 50 52 47 22 AF 54 24 B3 B1 22 53 45 51 22 AF 54 |PRG".T$.."SEQ".T| 00000280: 24 B3 B1 22 55 53 52 22 AF 54 24 B3 B1 22 44 45 |$.."USR".T$.."DE| 00000290: 4C 22 29 89 31 30 30 00 B2 0A C8 00 99 53 5A A3 |L").100......SZ.| 000002A0: 35 29 51 24 46 24 51 24 A3 32 34 29 54 24 22 20 |5)Q$F$Q$.24)T$" | 000002B0: 22 3B 00 C5 0A D2 00 A1 41 24 3A 8B 41 24 B2 22 |";......A$:.A$."| 000002C0: 22 A7 32 31 30 00 ED 0A DC 00 8B 41 24 B2 22 59 |".210......A$."Y| 000002D0: 22 A7 99 22 12 59 45 53 22 3A 41 24 28 4E 29 B2 |"..".YES":A$(N).| 000002E0: 46 24 3A 4E B2 4E AA 31 3A 89 31 30 30 00 07 0B |F$:N.N.1:.100...| 000002F0: E1 00 8B 41 24 B2 C7 28 31 33 29 A7 99 22 12 4E |...A$..(13)..".N| 00000300: 4F 22 3A 89 39 38 30 00 1F 0B E6 00 8B 41 24 B2 |O":.980......A$.| 00000310: 22 4E 22 A7 99 22 12 4E 4F 22 3A 89 31 30 30 00 |"N"..".NO":.100.| 00000320: 26 0B D4 03 A0 31 00 6A 0B DE 03 85 22 11 57 41 |&....1.j....".WA| 00000330: 4E 54 20 54 4F 20 46 4F 52 4D 41 54 20 44 45 53 |NT TO FORMAT DES| 00000340: 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 20 20 |TINATION DISK | 00000350: 4E 9D 9D 9D 22 3B 41 24 3A 8B C8 28 41 24 2C 31 |N...";A$:..(A$,1| 00000360: 29 B2 22 4E 22 A7 31 30 30 30 00 9B 0B DF 03 85 |)."N".1000......| 00000370: 22 11 44 49 53 4B 4E 41 4D 45 22 3B 4E 24 3A 85 |".DISKNAME";N$:.| 00000380: 22 49 44 22 3B 49 24 3A 98 31 35 2C 22 4E 31 3A |"ID";I$:.15,"N1:| 00000390: 22 AA 4E 24 AA 22 2C 22 AA 49 24 00 B6 0B E0 03 |".N$.",".I$.....| 000003A0: 99 22 46 4F 52 4D 41 54 54 49 4E 47 2E 2E 2E 22 |."FORMATTING..."| 000003B0: 3B 3A 9E 38 32 38 00 D9 0B E8 03 99 22 11 22 4E |;:.828......"."N| 000003C0: 22 46 49 4C 45 53 20 54 4F 20 43 4F 50 59 22 3A |"FILES TO COPY":| 000003D0: 8B 4E B2 30 A7 31 30 33 30 00 FC 0B E9 03 81 41 |.N.0.1030......A| 000003E0: B2 30 A4 4E AB 31 3A 99 22 43 4F 50 59 49 4E 47 |.0.N.1:."COPYING| 000003F0: 20 22 41 24 28 41 29 A3 32 36 29 3B 00 23 0C EA | "A$(A).26);.#..| 00000400: 03 98 31 35 2C 22 43 31 3A 22 AA 41 24 28 41 29 |..15,"C1:".A$(A)| 00000410: AA 22 3D 30 3A 22 AA 41 24 28 41 29 3A 9E 38 32 |."=0:".A$(A):.82| 00000420: 38 3A 82 00 5B 0C EB 03 85 22 11 57 41 4E 54 20 |8:..[....".WANT | 00000430: 54 4F 20 43 4F 50 59 20 46 49 4C 45 53 20 41 47 |TO COPY FILES AG| 00000440: 41 49 4E 20 20 20 4E 9D 9D 9D 22 3B 41 24 3A 8B |AIN N...";A$:.| 00000450: 41 24 B2 22 4E 22 A7 31 30 33 30 00 88 0C EC 03 |A$."N".1030.....| 00000460: 99 22 11 49 4E 53 45 52 54 20 41 4E 4F 54 48 45 |.".INSERT ANOTHE| 00000470: 52 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |R DESTINATION DI| 00000480: 53 4B 20 49 4E 54 4F 22 00 B1 0C ED 03 99 22 44 |SK INTO"......"D| 00000490: 52 49 56 45 20 31 2E 20 50 52 45 53 53 20 52 45 |RIVE 1. PRESS RE| 000004A0: 54 55 52 4E 20 57 48 45 4E 20 52 45 41 44 59 2E |TURN WHEN READY.| 000004B0: 22 00 C9 0C EE 03 A1 41 24 3A 8B 41 24 B3 B1 C7 |"......A$:.A$...| 000004C0: 28 31 33 29 A7 31 30 30 36 00 D2 0C EF 03 89 39 |(13).1006......9| 000004D0: 39 30 00 0D 0D 06 04 85 22 11 44 4F 20 59 4F 55 |90......".DO YOU| 000004E0: 20 48 41 56 45 20 4D 4F 52 45 20 46 49 4C 45 53 | HAVE MORE FILES| 000004F0: 20 54 4F 20 43 4F 50 59 20 20 59 9D 9D 9D 22 3B | TO COPY Y...";| 00000500: 41 24 3A A0 31 35 3A A0 31 3A 4E B2 30 00 21 0D |A$:.15:.1:N.0.!.| 00000510: 10 04 8B C8 28 41 24 2C 31 29 B2 22 59 22 A7 35 |....(A$,1)."Y".5| 00000520: 30 00 2C 0D 1A 04 89 31 30 30 30 30 00 34 0D B7 |0.,....10000.4..| 00000530: 0B 58 B2 30 00 5F 0D B8 0B A1 23 31 35 2C 41 24 |.X.0._....#15,A$| 00000540: 3A 58 B2 58 AA C6 28 41 24 29 3A 99 41 24 3B 3A |:X.X..(A$):.A$;:| 00000550: 8B 41 24 B3 B1 C7 28 31 33 29 A7 33 30 30 30 00 |.A$...(13).3000.| 00000560: 67 0D B9 0B 99 3A 8E 00 7D 0D 10 27 99 3A 99 22 |g....:..}..'.:."| 00000570: 45 4E 44 20 4A 4F 42 2E 2E 2E 22 3A 80 00 C7 0D |END JOB...":....| 00000580: 20 4E 83 31 36 39 2C 38 2C 33 32 2C 31 38 30 2C | N.169,8,32,180,| 00000590: 32 35 35 2C 31 36 39 2C 31 31 31 2C 33 32 2C 31 |255,169,111,32,1| 000005A0: 35 30 2C 32 35 35 2C 33 32 2C 31 36 35 2C 32 35 |50,255,32,165,25| 000005B0: 35 2C 33 32 2C 32 31 30 2C 32 35 35 2C 32 30 31 |5,32,210,255,201| 000005C0: 2C 31 33 2C 32 30 38 00 D3 0D 21 4E 83 32 34 36 |,13,208...!N.246| 000005D0: 2C 39 36 00 00 00 |,96... |
..#....A$(152):.A.828.848:.S:.A,S:..A.(. .53280,1:.53281,15:.".....4040 FILECOPIE R FROM REINOWARE"...2..".INSERT SOURCE D ISK INTO DRIVE 0 AND":Z$.G(0):Q$.G(34).D .<.."DESTINATION DISK INTO DRIVE 1."...F ..".FILENAMES TO MATCH *...";A$...P..15 ,8,15,"I":.1,8,0,"$0:".A$:.828:..?.R.."S ELECT FILES TO BE COPIED (.Y.ES/.N.O).". N.Z..#1,A$,B$:.ST..0.."DIRECTORY ERROR": .10000...D..#1,A$,B$:.B$."".980...N..#1, A$,B$...X.SZ.F(A$.Z$).F(B$.Z$).256.H.... #1,A$:.64.ST.980.....F$."":.A$..Q$.130.. ....#1,A$:.A$..Q$.F$.F$.A$:.150... ..#1, A$:.A$.." ".160......#1,T$:.T$." ".170.H ....#1,A$,B$:T$.T$.A$.B$._....#1,A$:.A$. ."".180......SZ.0.(T$.."PRG".T$.."SEQ".T $.."USR".T$.."DEL").100...H..SZ.5)Q$F$Q$ .24)T$" ";.E.R..A$:.A$."".210......A$."Y "..".YES":A$(N).F$:N.N.1:.100......A$.G( 13)..".NO":.980......A$."N"..".NO":.100. &.T. 1.J....".WANT TO FORMAT DESTINATION DISK N...";A$:.H(A$,1)."N".1000...... ".DISKNAME";N$:."ID";I$:.15,"N1:".N$."," .I$......"FORMATTING...";:.828.Y...."."N "FILES TO COPY":.N.0.1030......A.0.N.1:. "COPYING "A$(A).26);.#....15,"C1:".A$(A) ."=0:".A$(A):.828:..[....".WANT TO COPY FILES AGAIN N...";A$:.A$."N".1030..... .".INSERT ANOTHER DESTINATION DISK INTO" ......"DRIVE 1. PRESS RETURN WHEN READY. ".I....A$:.A$..G(13).1006.R....990...... ".DO YOU HAVE MORE FILES TO COPY Y..."; A$: 15: 1:N.0.!....H(A$,1)."Y".50.,....1 0000.4...X.0._....#15,A$:X.X.F(A$):.A$;: .A$..G(13).3000.G....:..}..'.:."END JOB. ..":..G. N.169,8,32,180,255,169,111,32,1 50,255,32,165,255,32,210,255,201,13,208. S.!N.246,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL