00000000: 01 04 25 04 01 00 99 22 93 11 11 22 A3 31 30 29 |..%...."...".10)|
00000010: 22 12 20 43 4F 50 59 20 44 49 53 4B 20 46 49 4C |". COPY DISK FIL|
00000020: 45 53 20 11 22 00 4F 04 05 00 99 22 49 4E 53 45 |ES .".O...."INSE|
00000030: 52 54 20 4D 41 53 54 45 52 20 44 49 53 4B 45 54 |RT MASTER DISKET|
00000040: 54 45 20 49 4E 20 44 52 49 56 45 20 30 11 22 00 |TE IN DRIVE 0.".|
00000050: 72 04 06 00 99 22 12 50 52 45 53 53 20 52 45 54 |r....".PRESS RET|
00000060: 55 52 4E 20 57 48 45 4E 20 46 49 4E 49 53 48 45 |URN WHEN FINISHE|
00000070: 44 22 00 89 04 07 00 A1 49 4E 24 3A 8B 49 4E 24 |D"......IN$:.IN$|
00000080: B3 B1 C7 28 31 33 29 A7 37 00 A6 04 0A 00 44 4E |...(13).7.....DN|
00000090: B2 38 3A 9F 31 35 2C 44 4E 2C 31 35 2C 22 49 30 |.8:.15,DN,15,"I0|
000000A0: 22 3A 8D 39 30 30 00 AF 04 24 00 8D 39 30 30 00 |":.900...$..900.|
000000B0: BC 04 2A 00 86 44 24 28 31 32 38 29 00 CA 04 5A |..*..D$(128)...Z|
000000C0: 00 8D 39 30 30 3A 8D 35 30 30 00 F6 04 64 00 99 |..900:.500...d..|
000000D0: 22 11 11 22 A6 31 30 29 22 50 4C 41 43 45 20 54 |"..".10)"PLACE T|
000000E0: 48 45 20 41 20 4E 45 57 20 44 49 53 4B 45 54 54 |HE A NEW DISKETT|
000000F0: 45 20 49 4E 20 22 00 3A 05 65 00 99 A6 31 30 29 |E IN ".:.e...10)|
00000100: 22 44 52 49 56 45 20 23 31 20 4F 46 20 54 48 45 |"DRIVE #1 OF THE|
00000110: 20 44 49 53 4B 22 3A 99 A6 31 30 29 22 12 20 50 | DISK":..10)". P|
00000120: 52 45 53 53 20 52 45 54 55 52 4E 20 57 48 45 4E |RESS RETURN WHEN|
00000130: 20 46 49 4E 49 53 48 45 44 22 00 53 05 66 00 A1 | FINISHED".S.f..|
00000140: 49 4E 24 3A 8B 49 4E 24 B3 B1 C7 28 31 33 29 A7 |IN$:.IN$...(13).|
00000150: 31 30 32 00 67 05 69 00 43 43 24 B2 22 4E 31 3A |102.g.i.CC$."N1:|
00000160: 22 AA 44 24 28 30 29 00 7D 05 6E 00 98 31 35 2C |".D$(0).}.n..15,|
00000170: 43 43 24 3A 8D 39 30 30 3A 8D 32 30 30 00 B1 05 |CC$:.900:.200...|
00000180: 73 00 49 58 B2 49 58 AA 31 3A 99 22 93 12 4E 55 |s.IX.IX.1:."..NU|
00000190: 4D 42 45 52 1D 43 4F 50 49 45 53 1D 46 49 4E 49 |MBER.COPIES.FINI|
000001A0: 53 48 45 44 1D 49 53 92 20 22 49 58 3A 89 31 30 |SHED.IS. "IX:.10|
000001B0: 30 00 BE 05 C8 00 81 49 B2 31 A4 4B AB 31 00 DE |0......I.1.K.1..|
000001C0: 05 DC 00 43 43 24 B2 22 43 31 3A 22 AA 44 24 28 |...CC$."C1:".D$(|
000001D0: 49 29 AA 22 3D 30 3A 22 AA 44 24 28 49 29 00 EF |I)."=0:".D$(I)..|
000001E0: 05 E6 00 98 31 35 2C 43 43 24 3A 8D 39 30 30 00 |....15,CC$:.900.|
000001F0: 06 06 F0 00 8B 45 4E B1 32 39 20 B0 20 45 4E B2 |.....EN.29 . EN.|
00000200: 30 A7 20 82 3A 8E 00 3D 06 FA 00 98 31 35 2C 22 |0. .:..=....15,"|
00000210: 4D 2D 57 22 C7 28 34 31 29 C7 28 30 29 C7 28 31 |M-W".(41).(0).(1|
00000220: 29 C7 28 44 44 AA 36 36 29 3A 8F 20 50 41 54 43 |).(DD.66):. PATC|
00000230: 48 20 46 4F 52 20 53 43 52 41 54 43 48 00 69 06 |H FOR SCRATCH.i.|
00000240: 04 01 43 43 24 B2 22 53 20 22 AA 44 44 24 AA 22 |..CC$."S ".DD$."|
00000250: 3A 22 AA 44 24 28 49 29 3A 98 31 35 2C 43 43 24 |:".D$(I):.15,CC$|
00000260: 3A 8D 39 30 30 3A 82 3A 8E 00 7E 06 F4 01 8F 20 |:.900:.:..~.... |
00000270: 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 00 AF |READ DIRECTORY..|
00000280: 06 FE 01 98 31 35 2C 22 4D 2D 45 22 C7 28 32 31 |....15,"M-E".(21|
00000290: 32 29 C7 28 32 33 37 29 3A 8F 20 44 49 52 45 43 |2).(237):. DIREC|
000002A0: 54 4F 52 59 20 4C 4F 41 44 20 50 41 54 43 48 00 |TORY LOAD PATCH.|
000002B0: DB 06 08 02 99 20 22 93 11 20 20 20 20 12 44 49 |..... ".. .DI|
000002C0: 52 45 43 54 4F 52 59 20 46 52 4F 4D 20 44 52 49 |RECTORY FROM DRI|
000002D0: 56 45 20 30 22 3A 42 31 B2 33 30 00 F7 06 26 02 |VE 0":B1.30...&.|
000002E0: 43 43 24 B2 22 24 30 3A 2A 22 3A 9F 20 32 2C 44 |CC$."$0:*":. 2,D|
000002F0: 4E 2C 30 2C 43 43 24 00 1D 07 27 02 43 43 24 B2 |N,0,CC$...'.CC$.|
00000300: 22 4F 50 45 4E 20 32 2C 38 2C 30 2C 22 AA C7 28 |"OPEN 2,8,0,"..(|
00000310: 33 34 29 AA 43 43 24 AA C7 28 33 34 29 00 28 07 |34).CC$..(34).(.|
00000320: 2B 02 8D 39 30 30 3A 99 00 42 07 30 02 A1 23 32 |+..900:..B.0..#2|
00000330: 2C 41 24 20 3A A1 23 32 2C 41 24 20 3A 49 24 B2 |,A$ :.#2,A$ :I$.|
00000340: 22 22 00 54 07 3A 02 8B 20 53 54 B3 B1 30 20 89 |"".T.:.. ST..0 .|
00000350: 20 36 36 30 00 68 07 44 02 81 20 41 B2 31 A4 42 | 660.h.D.. A.1.B|
00000360: 31 3A A1 23 32 2C 41 24 00 7E 07 4E 02 8B 20 41 |1:.#2,A$.~.N.. A|
00000370: 24 B2 22 22 20 A7 20 41 24 B2 C7 28 30 29 00 9A |$."" . A$..(0)..|
00000380: 07 58 02 49 24 B2 49 24 AA 41 24 20 3A 82 20 3A |.X.I$.I$.A$ :. :|
00000390: 49 24 B2 49 24 AA 22 20 20 22 00 AD 07 62 02 42 |I$.I$." "...b.B|
000003A0: B2 C6 28 CA 28 49 24 2C 33 2C 31 29 29 00 C6 07 |..(.(I$,3,1))...|
000003B0: 6C 02 42 B2 42 AA C6 28 CA 28 49 24 2C 34 2C 31 |l.B.B..(.(I$,4,1|
000003C0: 29 29 AC 32 35 36 00 D9 07 76 02 99 20 42 3B CA |)).256...v.. B;.|
000003D0: 28 49 24 2C 35 2C 32 37 29 00 FE 07 79 02 81 49 |(I$,5,27)...y..I|
000003E0: B2 36 A4 32 37 3A 8B CA 28 49 24 2C 49 2C 31 29 |.6.27:..(I$,I,1)|
000003F0: B3 B1 C7 28 33 34 29 A7 82 3A 89 36 35 30 00 30 |...(34)..:.650.0|
00000400: 08 7B 02 81 4A B2 49 AA 31 A4 32 37 3A 8B CA 28 |.{..J.I.1.27:..(|
00000410: 49 24 2C 4A 2C 31 29 B3 B1 C7 28 33 34 29 A7 44 |I$,J,1)...(34).D|
00000420: 24 B2 44 24 AA CA 28 49 24 2C 4A 2C 31 29 3A 82 |$.D$..(I$,J,1):.|
00000430: 00 4F 08 7C 02 8B 4B B2 30 A7 44 24 B2 44 24 AA |.O.|..K.0.D$.D$.|
00000440: 22 2C 22 AA CA 28 49 24 2C 4A AA 32 2C 32 29 00 |","..(I$,J.2,2).|
00000450: 62 08 80 02 44 24 28 4B 29 B2 44 24 3A 4B B2 4B |b...D$(K).D$:K.K|
00000460: AA 31 00 85 08 8A 02 44 24 B2 22 22 3A 49 24 B2 |.1.....D$."":I$.|
00000470: 22 22 3A 42 31 B2 33 32 3A 8B 41 24 B3 B1 22 53 |"":B1.32:.A$.."S|
00000480: 22 89 35 37 30 00 A5 08 94 02 99 3A 43 43 24 B2 |".570......:CC$.|
00000490: 22 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 22 |"READ DIRECTORY"|
000004A0: 3A 8D 39 30 30 00 C9 08 9E 02 43 43 24 B2 22 43 |:.900.....CC$."C|
000004B0: 4C 4F 53 45 20 32 22 3A 20 A0 20 32 3A 8D 39 30 |LOSE 2": . 2:.90|
000004C0: 30 3A 99 22 11 11 22 3A 8E 00 E8 08 84 03 8F 20 |0:."..":....... |
000004D0: 49 4E 50 55 54 20 46 52 4F 4D 20 45 52 52 4F 52 |INPUT FROM ERROR|
000004E0: 20 43 48 41 4E 4E 45 4C 00 FF 08 8E 03 84 31 35 | CHANNEL......15|
000004F0: 2C 45 4E 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 |,EN,EM$,ET$,ES$.|
00000500: 21 09 98 03 8B 45 4E B2 30 A7 99 22 12 22 43 43 |!....EN.0.."."CC|
00000510: 24 22 92 20 C3 3E 20 22 A3 31 35 29 45 4D 24 3A |$". .> ".15)EM$:|
00000520: 8E 00 4C 09 A2 03 8B 45 4E B2 31 A7 99 22 12 22 |..L....EN.1.."."|
00000530: 43 43 24 22 92 20 C3 3E 20 22 A3 31 35 29 22 12 |CC$". .> ".15)".|
00000540: 22 45 54 24 22 92 22 45 4D 24 3A 8E 00 72 09 AC |"ET$"."EM$:..r..|
00000550: 03 99 22 11 12 22 43 43 24 3A 99 22 92 20 C3 3E |..".."CC$:.". .>|
00000560: 20 45 52 52 4F 52 20 23 22 45 4E 22 12 22 45 4D | ERROR #"EN"."EM|
00000570: 24 3B 00 8F 09 B6 03 8B 45 4E B3 33 30 A7 99 22 |$;......EN.30.."|
00000580: 20 4F 4E 20 22 45 54 24 22 2E 22 45 53 24 3B 00 | ON "ET$"."ES$;.|
00000590: 95 09 C0 03 99 00 BB 09 CA 03 85 22 43 4F 4E 54 |..........."CONT|
000005A0: 49 4E 55 45 A0 A0 4E 9D 9D 9D 22 3B 49 4E 24 3A |INUE..N...";IN$:|
000005B0: 8B 49 4E 24 B2 22 59 22 A7 20 8A 00 C1 09 D4 03 |.IN$."Y". ......|
000005C0: 80 00 00 00 |.... |
..%...."...".10)". COPY DISK FILES .".O.
..."INSERT MASTER DISKETTE IN DRIVE 0.".
R....".PRESS RETURN WHEN FINISHED"......
IN$:.IN$..G(13).7.....DN.8:.15,DN,15,"I0
":.900...$..900...*..D$(128).J.Z..900:.5
00...D.."..".10)"PLACE THE A NEW DISKETT
E IN ".:.E...10)"DRIVE #1 OF THE DISK":.
.10)". PRESS RETURN WHEN FINISHED".S.F..
IN$:.IN$..G(13).102.G.I.CC$."N1:".D$(0).
}.N..15,CC$:.900:.200...S.IX.IX.1:."..NU
MBER.COPIES.FINISHED.IS. "IX:.100...H..I
.1.K.1.....CC$."C1:".D$(I)."=0:".D$(I)..
....15,CC$:.900......EN.29 . EN.0. .:..=
....15,"M-W"G(41)G(0)G(1)G(DD.66):. PATC
H FOR SCRATCH.I...CC$."S ".DD$.":".D$(I)
:.15,CC$:.900:.:..~.... READ DIRECTORY..
....15,"M-E"G(212)G(237):. DIRECTORY LOA
D PATCH...... ".. .DIRECTORY FROM DRI
VE 0":B1.30...&.CC$."$0:*":. 2,DN,0,CC$.
..'.CC$."OPEN 2,8,0,".G(34).CC$.G(34).(.
+..900:..B.0..#2,A$ :.#2,A$ :I$."".T.:..
ST..0 . 660.H.D.. A.1.B1:.#2,A$.~.N.. A
$."" . A$.G(0)...X.I$.I$.A$ :. :I$.I$."
"...B.B.F(J(I$,3,1)).F.L.B.B.F(J(I$,4,1
)).256.Y.V.. B;J(I$,5,27)...Y..I.6.27:.J
(I$,I,1)..G(34)..:.650.0.{..J.I.1.27:.J(
I$,J,1)..G(34).D$.D$.J(I$,J,1):..O.|..K.
0.D$.D$.",".J(I$,J.2,2).B...D$(K).D$:K.K
.1.....D$."":I$."":B1.32:.A$.."S".570...
...:CC$."READ DIRECTORY":.900.I...CC$."C
LOSE 2": 2:.900:."..":....... INPUT FR
OM ERROR CHANNEL......15,EN,EM$,ET$,ES$.
!....EN.0.."."CC$". C> ".15)EM$:..L....E
N.1.."."CC$". C> ".15)"."ET$"."EM$:..R..
..".."CC$:.". C> ERROR #"EN"."EM$;......
EN.30.." ON "ET$"."ES$;.........J.."CONT
INUE N...";IN$:.IN$."Y". ..A.T.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL