D4040 PRODUCTION
FILE INFORMATION
FILENAME(S): D4040 PRODUCTION
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:23:12
APPEARS ON: 1 disk(s)
FILE HASH
b009d46098dff4c0e558353d390c8c288cd415850a9758b3f4b6db0ba7dec701
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 11 1 | D4040 PRODUCTION | PRG | DuncanTwain | 1 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 12 2B 12 02 00 99 22 93 11 11 22 A3 36 29 22 |..+...."...".6)"|
00000010: 12 20 50 52 4F 44 55 43 54 49 4F 4E 20 44 49 53 |. PRODUCTION DIS|
00000020: 4B 20 43 4F 50 49 45 52 20 11 22 00 34 12 03 00 |K COPIER .".4...|
00000030: 44 4E B2 38 00 60 12 05 00 99 22 11 11 49 4E 53 |DN.8.`...."..INS|
00000040: 45 52 54 20 4D 41 53 54 45 52 20 44 49 53 4B 45 |ERT MASTER DISKE|
00000050: 54 54 45 20 49 4E 20 44 52 49 56 45 20 30 11 22 |TTE IN DRIVE 0."|
00000060: 00 80 12 06 00 99 22 12 50 52 45 53 53 20 52 45 |......".PRESS RE|
00000070: 54 55 52 4E 20 57 48 45 4E 20 52 45 41 44 59 22 |TURN WHEN READY"|
00000080: 00 97 12 07 00 A1 49 4E 24 3A 8B 49 4E 24 B3 B1 |......IN$:.IN$..|
00000090: C7 28 31 33 29 A7 37 00 AF 12 0A 00 9F 31 35 2C |.(13).7......15,|
000000A0: 44 4E 2C 31 35 2C 22 49 30 22 3A 8D 38 30 30 00 |DN,15,"I0":.800.|
000000B0: BC 12 2A 00 86 44 24 28 31 32 38 29 00 C5 12 5A |..*..D$(128)...Z|
000000C0: 00 8D 35 30 30 00 ED 12 64 00 99 22 11 11 22 A6 |..500...d.."..".|
000000D0: 31 30 29 22 50 4C 41 43 45 20 41 20 4E 45 57 20 |10)"PLACE A NEW |
000000E0: 44 49 53 4B 45 54 54 45 20 49 4E 20 22 00 0F 13 |DISKETTE IN "...|
000000F0: 65 00 99 A6 31 30 29 22 44 52 49 56 45 20 31 20 |e...10)"DRIVE 1 |
00000100: 4F 46 20 54 48 45 20 53 59 53 54 45 4D 2E 22 00 |OF THE SYSTEM.".|
00000110: 36 13 66 00 99 A6 31 30 29 22 11 12 20 50 52 45 |6.f...10)".. PRE|
00000120: 53 53 20 52 45 54 55 52 4E 20 57 48 45 4E 20 52 |SS RETURN WHEN R|
00000130: 45 41 44 59 2E 22 00 4F 13 68 00 A1 49 4E 24 3A |EADY.".O.h..IN$:|
00000140: 8B 49 4E 24 B3 B1 C7 28 31 33 29 A7 31 30 34 00 |.IN$...(13).104.|
00000150: 74 13 69 00 99 22 93 11 11 20 20 20 20 20 20 46 |t.i.."... F|
00000160: 4F 52 4D 41 54 54 49 4E 47 20 4E 45 57 20 44 49 |ORMATTING NEW DI|
00000170: 53 4B 11 22 00 88 13 6D 00 43 43 24 B2 22 4E 31 |SK."...m.CC$."N1|
00000180: 3A 22 AA 44 24 28 30 29 00 9E 13 6E 00 98 31 35 |:".D$(0)...n..15|
00000190: 2C 43 43 24 3A 8D 39 30 30 3A 8D 32 30 30 00 C3 |,CC$:.900:.200..|
000001A0: 13 70 00 99 22 11 11 20 20 20 12 41 4C 4C 20 44 |.p..".. .ALL D|
000001B0: 4F 4E 45 2C 20 57 41 49 54 20 41 20 4D 4F 4D 45 |ONE, WAIT A MOME|
000001C0: 4E 54 22 00 D3 13 71 00 81 49 B2 31 A4 35 30 30 |NT"...q..I.1.500|
000001D0: 30 3A 82 00 07 14 73 00 49 58 B2 49 58 AA 31 3A |0:....s.IX.IX.1:|
000001E0: 99 22 93 12 4E 55 4D 42 45 52 1D 43 4F 50 49 45 |."..NUMBER.COPIE|
000001F0: 53 1D 46 49 4E 49 53 48 45 44 1D 49 53 92 20 22 |S.FINISHED.IS. "|
00000200: 49 58 3A 89 31 30 30 00 14 14 C8 00 81 49 B2 31 |IX:.100......I.1|
00000210: A4 4B AB 31 00 34 14 DC 00 43 43 24 B2 22 43 31 |.K.1.4...CC$."C1|
00000220: 3A 22 AA 44 24 28 49 29 AA 22 3D 30 3A 22 AA 44 |:".D$(I)."=0:".D|
00000230: 24 28 49 29 00 45 14 E6 00 98 31 35 2C 43 43 24 |$(I).E....15,CC$|
00000240: 3A 8D 39 30 30 00 5C 14 F0 00 8B 45 4E B1 32 39 |:.900.\....EN.29|
00000250: 20 B0 20 45 4E B2 30 A7 20 82 3A 8E 00 71 14 F4 | . EN.0. .:..q..|
00000260: 01 8F 20 52 45 41 44 20 44 49 52 45 43 54 4F 52 |.. READ DIRECTOR|
00000270: 59 00 9D 14 08 02 99 20 22 93 11 20 20 20 20 12 |Y...... ".. .|
00000280: 44 49 52 45 43 54 4F 52 59 20 46 52 4F 4D 20 44 |DIRECTORY FROM D|
00000290: 52 49 56 45 20 30 22 3A 42 31 B2 33 30 00 B9 14 |RIVE 0":B1.30...|
000002A0: 26 02 43 43 24 B2 22 24 30 3A 2A 22 3A 9F 20 32 |&.CC$."$0:*":. 2|
000002B0: 2C 44 4E 2C 30 2C 43 43 24 00 E7 14 27 02 43 43 |,DN,0,CC$...'.CC|
000002C0: 24 B2 22 4F 50 45 4E 20 32 2C 22 AA C4 28 44 4E |$."OPEN 2,"..(DN|
000002D0: 29 AA 22 2C 30 2C 22 AA C7 28 33 34 29 AA 43 43 |).",0,"..(34).CC|
000002E0: 24 AA C7 28 33 34 29 00 F2 14 2B 02 8D 38 30 30 |$..(34)...+..800|
000002F0: 3A 99 00 0C 15 30 02 A1 23 32 2C 41 24 20 3A A1 |:....0..#2,A$ :.|
00000300: 23 32 2C 41 24 20 3A 49 24 B2 22 22 00 1E 15 3A |#2,A$ :I$.""...:|
00000310: 02 8B 20 53 54 B3 B1 30 20 89 20 36 36 30 00 32 |.. ST..0 . 660.2|
00000320: 15 44 02 81 20 41 B2 31 A4 42 31 3A A1 23 32 2C |.D.. A.1.B1:.#2,|
00000330: 41 24 00 48 15 4E 02 8B 20 41 24 B2 22 22 20 A7 |A$.H.N.. A$."" .|
00000340: 20 41 24 B2 C7 28 30 29 00 64 15 58 02 49 24 B2 | A$..(0).d.X.I$.|
00000350: 49 24 AA 41 24 20 3A 82 20 3A 49 24 B2 49 24 AA |I$.A$ :. :I$.I$.|
00000360: 22 20 20 22 00 77 15 62 02 42 B2 C6 28 CA 28 49 |" ".w.b.B..(.(I|
00000370: 24 2C 33 2C 31 29 29 00 90 15 6C 02 42 B2 42 AA |$,3,1))...l.B.B.|
00000380: C6 28 CA 28 49 24 2C 34 2C 31 29 29 AC 32 35 36 |.(.(I$,4,1)).256|
00000390: 00 A3 15 76 02 99 20 42 3B CA 28 49 24 2C 35 2C |...v.. B;.(I$,5,|
000003A0: 32 37 29 00 C8 15 79 02 81 49 B2 36 A4 32 37 3A |27)...y..I.6.27:|
000003B0: 8B CA 28 49 24 2C 49 2C 31 29 B3 B1 C7 28 33 34 |..(I$,I,1)...(34|
000003C0: 29 A7 82 3A 89 36 35 30 00 FA 15 7B 02 81 4A B2 |)..:.650...{..J.|
000003D0: 49 AA 31 A4 32 37 3A 8B CA 28 49 24 2C 4A 2C 31 |I.1.27:..(I$,J,1|
000003E0: 29 B3 B1 C7 28 33 34 29 A7 44 24 B2 44 24 AA CA |)...(34).D$.D$..|
000003F0: 28 49 24 2C 4A 2C 31 29 3A 82 00 19 16 7C 02 8B |(I$,J,1):....|..|
00000400: 4B B2 30 A7 44 24 B2 44 24 AA 22 2C 22 AA CA 28 |K.0.D$.D$.","..(|
00000410: 49 24 2C 4A AA 32 2C 32 29 00 2C 16 80 02 44 24 |I$,J.2,2).,...D$|
00000420: 28 4B 29 B2 44 24 3A 4B B2 4B AA 31 00 4F 16 8A |(K).D$:K.K.1.O..|
00000430: 02 44 24 B2 22 22 3A 49 24 B2 22 22 3A 42 31 B2 |.D$."":I$."":B1.|
00000440: 33 32 3A 8B 41 24 B3 B1 22 53 22 89 35 37 30 00 |32:.A$.."S".570.|
00000450: 6F 16 94 02 99 3A 43 43 24 B2 22 52 45 41 44 20 |o....:CC$."READ |
00000460: 44 49 52 45 43 54 4F 52 59 22 3A 8D 38 30 30 00 |DIRECTORY":.800.|
00000470: 93 16 9E 02 43 43 24 B2 22 43 4C 4F 53 45 20 32 |....CC$."CLOSE 2|
00000480: 22 3A 20 A0 20 32 3A 8D 38 30 30 3A 99 22 11 11 |": . 2:.800:."..|
00000490: 22 3A 8E 00 AA 16 20 03 84 31 35 2C 45 4E 2C 45 |":.... ..15,EN,E|
000004A0: 4D 24 2C 45 54 24 2C 45 53 24 00 B6 16 2A 03 8B |M$,ET$,ES$...*..|
000004B0: 45 4E B2 30 A7 8E 00 BF 16 34 03 89 39 32 30 00 |EN.0.....4..920.|
000004C0: DE 16 84 03 8F 20 49 4E 50 55 54 20 46 52 4F 4D |..... INPUT FROM|
000004D0: 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 F5 | ERROR CHANNEL..|
000004E0: 16 8E 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET|
000004F0: 24 2C 45 53 24 00 19 17 93 03 8B 45 4E B2 30 A7 |$,ES$......EN.0.|
00000500: 99 22 11 22 43 43 24 22 20 2D 3E 20 22 A3 31 35 |."."CC$" -> ".15|
00000510: 29 22 12 22 45 4D 24 3A 8E 00 2D 17 98 03 99 22 |)"."EM$:..-...."|
00000520: 11 11 12 45 52 52 4F 52 20 22 43 43 24 00 58 17 |...ERROR "CC$.X.|
00000530: B6 03 99 22 11 12 22 45 4D 24 22 92 20 4F 4E 20 |...".."EM$". ON |
00000540: 54 52 41 43 4B 20 22 45 54 24 22 2C 20 53 45 43 |TRACK "ET$", SEC|
00000550: 54 4F 52 20 22 45 53 24 00 7D 17 CA 03 85 22 11 |TOR "ES$.}....".|
00000560: 11 52 45 53 54 41 52 54 20 59 2F 4E 22 3B 49 4E |.RESTART Y/N";IN|
00000570: 24 3A 8B 49 4E 24 B2 22 59 22 A7 20 8A 00 83 17 |$:.IN$."Y". ....|
00000580: D4 03 80 00 00 00 |...... |
..+...."...".6)". PRODUCTION DISK COPIER
.".4...DN.8.`...."..INSERT MASTER DISKE
TTE IN DRIVE 0."......".PRESS RETURN WHE
N READY"......IN$:.IN$..G(13).7......15,
DN,15,"I0":.800...*..D$(128).E.Z..500...
D.."..".10)"PLACE A NEW DISKETTE IN "...
E...10)"DRIVE 1 OF THE SYSTEM.".6.F...10
)".. PRESS RETURN WHEN READY.".O.H..IN$:
.IN$..G(13).104.T.I.."... FORMATTIN
G NEW DISK."...M.CC$."N1:".D$(0)...N..15
,CC$:.900:.200.C.P..".. .ALL DONE, WAI
T A MOMENT".S.Q..I.1.5000:....S.IX.IX.1:
."..NUMBER.COPIES.FINISHED.IS. "IX:.100.
..H..I.1.K.1.4...CC$."C1:".D$(I)."=0:".D
$(I).E....15,CC$:.900.\....EN.29 . EN.0.
.:..Q.... READ DIRECTORY...... ".. .
DIRECTORY FROM DRIVE 0":B1.30...&.CC$."$
0:*":. 2,DN,0,CC$...'.CC$."OPEN 2,".D(DN
).",0,".G(34).CC$.G(34)...+..800:....0..
#2,A$ :.#2,A$ :I$.""...:.. ST..0 . 660.2
.D.. A.1.B1:.#2,A$.H.N.. A$."" . A$.G(0)
.D.X.I$.I$.A$ :. :I$.I$." ".W.B.B.F(J(I
$,3,1))...L.B.B.F(J(I$,4,1)).256...V.. B
;J(I$,5,27).H.Y..I.6.27:.J(I$,I,1)..G(34
)..:.650...{..J.I.1.27:.J(I$,J,1)..G(34)
.D$.D$.J(I$,J,1):....|..K.0.D$.D$.",".J(
I$,J.2,2).,...D$(K).D$:K.K.1.O...D$."":I
$."":B1.32:.A$.."S".570.O....:CC$."READ
DIRECTORY":.800.....CC$."CLOSE 2": 2:.
800:."..":.... ..15,EN,EM$,ET$,ES$...*..
EN.0.....4..920...... INPUT FROM ERROR C
HANNEL......15,EN,EM$,ET$,ES$......EN.0.
."."CC$" -> ".15)"."EM$:..-...."...ERROR
"CC$.X....".."EM$". ON TRACK "ET$", SEC
TOR "ES$.}.J.."..RESTART Y/N";IN$:.IN$."
Y". ....T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL