00000000: 01 04 2F 08 0A 00 99 20 22 93 11 20 46 49 4E 44 |../.... ".. FIND|
00000010: 20 2F 20 43 48 41 4E 47 45 20 50 52 4F 47 52 41 | / CHANGE PROGRA|
00000020: 4D 20 4C 4F 41 44 2D 41 44 44 52 45 53 53 22 00 |M LOAD-ADDRESS".|
00000030: 57 08 14 00 99 20 22 11 20 44 49 53 4B 20 55 4E |W.... ". DISK UN|
00000040: 49 54 20 4E 52 20 28 38 2D 31 35 29 20 3F A0 38 |IT NR (8-15) ?.8|
00000050: 20 9D 9D 9D 9D 22 3B 00 7D 08 1E 00 85 20 55 3A | ....";.}.... U:|
00000060: 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 | . U.8 . U.15 . |
00000070: 99 20 22 91 91 91 22 3A 20 89 20 32 30 00 A3 08 |. "...": . 20...|
00000080: 28 00 99 20 22 11 20 44 49 53 4B 20 44 52 49 56 |(.. ". DISK DRIV|
00000090: 45 20 4E 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D |E NR (0/1) ?.0..|
000000A0: 9D 22 3B 00 C8 08 32 00 85 20 44 3A 20 8B 20 44 |.";...2.. D: . D|
000000B0: B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 91 |.0 . D.1 . . "..|
000000C0: 91 22 3A 20 89 20 34 30 00 F7 08 3C 00 99 20 22 |.": . 40...<.. "|
000000D0: 11 11 20 50 55 54 20 54 41 52 47 45 54 20 44 49 |.. PUT TARGET DI|
000000E0: 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 44 |SK IN UNIT";U;"D|
000000F0: 52 49 56 45 22 3B 44 00 1F 09 46 00 99 20 22 20 |RIVE";D...F.. " |
00000100: 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B |THEN PRESS ANY K|
00000110: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |EY TO CONTINUE".|
00000120: 36 09 50 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 |6.P.. X$: . X$."|
00000130: 22 20 A7 20 38 30 00 5D 09 5A 00 99 20 22 93 11 |" . 80.].Z.. "..|
00000140: 20 45 4E 54 45 52 20 50 52 4F 47 52 41 4D 2D 4E | ENTER PROGRAM-N|
00000150: 41 4D 45 20 28 4F 52 20 45 4E 44 29 22 00 86 09 |AME (OR END)"...|
00000160: 64 00 85 20 22 20 3F 20 45 4E 44 9D 9D 9D 9D 9D |d.. " ? END.....|
00000170: 22 3B 4E 24 3A 20 8B 20 4E 24 B2 22 45 4E 44 22 |";N$: . N$."END"|
00000180: 20 A7 20 36 31 30 00 A8 09 6E 00 56 B2 31 36 3A | . 610...n.V.16:|
00000190: 20 51 B2 33 32 3A 20 46 B2 32 35 36 3A 20 4E 24 | Q.32: F.256: N$|
000001A0: B2 C8 28 4E 24 2C 56 29 00 CB 09 78 00 48 24 B2 |..(N$,V)...x.H$.|
000001B0: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |"0123456789ABCDE|
000001C0: 46 22 3A 20 5A 24 B2 C7 28 30 29 00 F4 09 82 00 |F": Z$..(0).....|
000001D0: 54 24 B2 C9 28 C4 28 44 29 2C 31 29 3A 20 9F 20 |T$..(.(D),1): . |
000001E0: 31 2C 55 2C 31 35 2C 22 49 22 AA 54 24 3A 20 8D |1,U,15,"I".T$: .|
000001F0: 20 36 32 30 00 18 0A 8C 00 54 24 B2 54 24 AA 22 | 620.....T$.T$."|
00000200: 3A 22 AA 4E 24 3A 20 9F 20 32 2C 55 2C 32 2C 54 |:".N$: . 2,U,2,T|
00000210: 24 AA 22 2C 50 2C 52 22 00 35 0A 96 00 84 31 2C |$.",P,R".5....1,|
00000220: 45 2C 4D 24 2C 4A 2C 4B 3A 20 8B 20 45 B2 30 20 |E,M$,J,K: . E.0 |
00000230: A7 20 32 34 30 00 55 0A A0 00 A0 20 31 3A 20 A0 |. 240.U.... 1: .|
00000240: 20 32 3A 20 99 20 22 11 20 46 49 4C 45 3A 20 20 | 2: . ". FILE: |
00000250: 22 3B 4E 24 3B 00 78 0A AA 00 8B 20 45 B2 36 32 |";N$;.x.... E.62|
00000260: 20 A7 20 99 20 22 20 4E 4F 54 20 46 4F 55 4E 44 | . . " NOT FOUND|
00000270: 22 3A 20 89 20 32 30 30 00 9F 0A B4 00 8B 20 45 |": . 200...... E|
00000280: B2 36 34 20 A7 20 99 20 22 20 4E 4F 54 20 41 20 |.64 . . " NOT A |
00000290: 50 52 4F 47 52 41 4D 22 3A 20 89 20 32 30 30 00 |PROGRAM": . 200.|
000002A0: BE 0A BE 00 99 20 22 11 20 44 49 53 4B 20 52 45 |..... ". DISK RE|
000002B0: 41 44 2D 45 52 52 4F 52 22 3B 45 3A 20 80 00 D8 |AD-ERROR";E: ...|
000002C0: 0A C8 00 81 20 4A B2 31 20 A4 20 32 30 30 30 3A |.... J.1 . 2000:|
000002D0: 20 82 3A 20 89 20 39 30 00 EE 0A D2 00 4A B2 B5 | .: . 90.....J..|
000002E0: 28 43 AD 56 29 3A 20 4B B2 43 AB 4A AC 56 00 10 |(C.V): K.C.J.V..|
000002F0: 0B DC 00 4D 24 B2 4D 24 AA CA 28 48 24 2C 4A AA |...M$.M$..(H$,J.|
00000300: 31 2C 31 29 AA CA 28 48 24 2C 4B AA 31 2C 31 29 |1,1)..(H$,K.1,1)|
00000310: 00 16 0B E6 00 8E 00 30 0B F0 00 A1 23 32 2C 41 |.......0....#2,A|
00000320: 24 2C 42 24 3A 20 8B 20 53 54 20 A7 20 31 39 30 |$,B$: . ST . 190|
00000330: 00 44 0B FA 00 A0 20 32 3A 20 A0 20 31 3A 20 4D |.D.... 2: . 1: M|
00000340: 24 B2 22 22 00 5F 0B 04 01 41 B2 C6 28 41 24 AA |$.""._...A..(A$.|
00000350: 5A 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 |Z$): B..(B$.Z$).|
00000360: 7A 0B 0E 01 43 B2 42 3A 20 8D 20 32 31 30 3A 30 |z...C.B: . 210:0|
00000370: 43 B2 41 3A 20 8D 20 32 31 30 00 9D 0B 18 01 99 |C.A: . 210......|
00000380: 20 22 11 20 43 55 52 52 45 4E 54 20 4C 4F 41 44 | ". CURRENT LOAD|
00000390: 2D 41 44 44 52 45 53 53 20 49 5B 3A 22 00 C7 0B |-ADDRESS I[:"...|
000003A0: 2A 01 99 20 22 11 20 48 55 58 3A 20 20 22 3B 4D |*.. ". HUX: ";M|
000003B0: 24 3B 22 20 20 20 20 44 45 43 49 4D 41 4C 3A 20 |$;" DECIMAL: |
000003C0: 22 3B 42 AC 46 AA 41 00 F8 0B 2C 01 99 20 22 11 |";B.F.A...,.. ".|
000003D0: 20 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 | WANT TO CHANGE |
000003E0: 4C 4F 41 44 2D 41 44 44 52 20 28 59 2F 4E 29 20 |LOAD-ADDR (Y/N) |
000003F0: 3F 20 59 9D 9D 9D 22 3B 00 11 0C 36 01 85 20 58 |? Y...";...6.. X|
00000400: 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 A7 20 3D |$: . X$.."Y" . =|
00000410: 30 00 47 0C 40 01 99 20 22 11 20 4E 45 57 20 4C |0.G.@.. ". NEW L|
00000420: 4F 41 44 2D 41 44 44 52 20 28 44 45 43 4D 4D 41 |OAD-ADDR (DECMMA|
00000430: 4C 29 20 3F 20 30 20 20 20 20 20 20 9D 9D 9D 9D |L) ? 0 ....|
00000440: 9D 9D 9D 9D 9D 22 3B 00 71 0C 4A 01 85 20 50 3A |.....";.q.J.. P:|
00000450: 20 8B 20 50 B3 30 20 B0 20 50 B1 36 35 35 33 35 | . P.0 . P.65535|
00000460: 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 33 32 | . . "...": . 32|
00000470: 30 00 9C 0C 54 01 42 B2 B5 28 50 AD 46 29 3A 20 |0...T.B..(P.F): |
00000480: 41 B2 50 AB 42 AC 46 3A 20 50 24 B2 C7 28 41 29 |A.P.B.F: P$..(A)|
00000490: AA C7 28 42 29 3A 20 4D 24 B2 22 22 00 B7 0C 5E |..(B): M$.""...^|
000004A0: 01 43 B2 42 3A 20 8D 20 32 31 30 3A 20 43 B2 41 |.C.B: . 210: C.A|
000004B0: 3A 20 8D 20 32 31 30 00 E1 0C 68 01 99 20 22 11 |: . 210...h.. ".|
000004C0: 20 48 45 58 3A 20 20 22 3B 4D 24 3B 22 20 20 20 | HEX: ";M$;" |
000004D0: 20 44 45 43 49 4D 41 4C 3A 20 22 3B 42 AC 46 AA | DECIMAL: ";B.F.|
000004E0: 41 00 13 0D 72 01 99 20 22 11 20 4F 4B 20 54 4F |A...r.. ". OK TO|
000004F0: 20 57 52 49 54 45 20 4E 45 57 20 4C 4F 41 44 2D | WRITE NEW LOAD-|
00000500: 41 44 44 52 20 28 59 2F 4E 29 20 3F 20 59 9D 9D |ADDR (Y/N) ? Y..|
00000510: 9D 22 3B 00 2C 0D 7C 01 85 20 58 24 3A 20 8B 20 |.";.,.|.. X$: . |
00000520: 58 24 B3 B1 22 59 22 20 A7 20 39 30 00 45 0D 86 |X$.."Y" . 90.E..|
00000530: 01 4A B2 C3 28 4E 24 29 3A 20 8B 20 4A B2 56 20 |.J..(N$): . J.V |
00000540: A7 20 34 31 30 00 64 0D 90 01 81 20 58 B2 4A AA |. 410.d.... X.J.|
00000550: 31 20 A4 20 56 3A 4E 24 B2 4E 24 AA C7 28 31 36 |1 . V:N$.N$..(16|
00000560: 30 29 3A 82 00 7E 0D 9A 01 9F 20 31 2C 55 2C 31 |0):..~.... 1,U,1|
00000570: 35 3A 20 9F 20 32 2C 55 2C 32 2C 22 23 22 00 93 |5: . 2,U,2,"#"..|
00000580: 0D A4 01 8D 20 36 32 30 3A 20 54 B2 31 38 3A 20 |.... 620: T.18: |
00000590: 53 B2 31 00 AF 0D AE 01 98 31 2C 22 55 31 3A 22 |S.1......1,"U1:"|
000005A0: 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 36 32 30 00 |;2;D;T;S: . 620.|
000005B0: CC 0D B8 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |.....1,"B-P:";2;|
000005C0: 30 3A 20 A1 23 32 2C 41 24 2C 42 24 00 EC 0D C2 |0: .#2,A$,B$....|
000005D0: 01 54 B2 C6 28 41 24 AA 5A 24 29 3A 20 53 B2 C6 |.T..(A$.Z$): S..|
000005E0: 28 42 24 AA 5A 24 29 3A 20 48 B2 32 00 06 0E CC |(B$.Z$): H.2....|
000005F0: 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 48 3A 20 |..1,"B-P:";2;H: |
00000600: A1 23 32 2C 54 24 00 25 0E D6 01 43 B2 C6 28 54 |.#2,T$.%...C..(T|
00000610: 24 AA 5A 24 29 3A 20 8B 20 43 B3 B1 31 33 30 20 |$.Z$): . C..130 |
00000620: A7 20 35 31 30 00 45 0E E0 01 A1 23 32 2C 41 24 |. 510.E....#2,A$|
00000630: 2C 42 24 3A 20 46 24 B2 22 22 3A 20 81 20 58 B2 |,B$: F$."": . X.|
00000640: 31 20 A4 20 56 00 5D 0E EA 01 A1 23 32 2C 54 24 |1 . V.]....#2,T$|
00000650: 3A 20 46 24 B2 46 24 AA 54 24 3A 20 82 00 6F 0E |: F$.F$.T$: ..o.|
00000660: F4 01 8B 20 46 24 B2 4E 24 20 A7 20 35 33 30 00 |... F$.N$ . 530.|
00000670: 86 0E FE 01 48 B2 48 AA 51 3A 20 8B 20 48 B3 46 |....H.H.Q: . H.F|
00000680: 20 A7 20 34 36 30 00 90 0E 08 02 89 20 34 33 30 | . 460...... 430|
00000690: 00 AB 0E 12 02 41 B2 C6 28 41 24 AA 5A 24 29 3A |.....A..(A$.Z$):|
000006A0: 20 42 B2 C6 28 42 24 AA 5A 24 29 00 C7 0E 1C 02 | B..(B$.Z$).....|
000006B0: 98 31 2C 22 55 31 3A 22 3B 32 3B 44 3B 41 3B 42 |.1,"U1:";2;D;A;B|
000006C0: 3A 20 8D 20 36 32 30 00 E1 0E 26 02 98 31 2C 22 |: . 620...&..1,"|
000006D0: 42 2D 50 3A 22 3B 32 3B 32 3A 20 98 32 2C 50 24 |B-P:";2;2: .2,P$|
000006E0: 3B 00 FD 0E 30 02 98 31 2C 22 55 32 3A 22 3B 32 |;...0..1,"U2:";2|
000006F0: 3B 44 3B 41 3B 42 3A 20 8D 20 36 32 30 00 11 0F |;D;A;B: . 620...|
00000700: 3A 02 A0 20 32 3A 20 8D 20 36 32 30 3A 20 A0 20 |:.. 2: . 620: . |
00000710: 31 00 35 0F 44 02 99 20 22 11 20 4C 4F 41 44 2D |1.5.D.. ". LOAD-|
00000720: 41 44 44 52 20 43 48 41 4E 47 45 44 20 46 4F 52 |ADDR CHANGED FOR|
00000730: 20 22 3B 4E 24 00 64 0F 4E 02 99 20 22 11 20 43 | ";N$.d.N.. ". C|
00000740: 48 41 4E 47 45 20 41 4E 4F 54 48 45 52 20 50 52 |HANGE ANOTHER PR|
00000750: 4F 47 52 41 4D 20 28 59 2F 4E 29 20 3F 20 59 9D |OGRAM (Y/N) ? Y.|
00000760: 9D 9D 22 3B 00 7C 0F 58 02 85 20 58 24 3A 20 8B |..";.|.X.. X$: .|
00000770: 20 58 24 B2 22 59 22 20 A7 20 39 30 00 8A 0F 62 | X$."Y" . 90...b|
00000780: 02 99 20 22 93 22 3B 3A 20 80 00 A4 0F 6C 02 84 |.. ".";: ....l..|
00000790: 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 |1,E,M$,J,K:. E.0|
000007A0: 20 A7 20 8E 00 BF 0F 76 02 99 20 22 11 20 45 52 | . ....v.. ". ER|
000007B0: 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 |ROR: ";E;M$;J;K.|
000007C0: CF 0F 80 02 A0 20 32 3A 20 A0 20 31 3A 20 80 00 |..... 2: . 1: ..|
000007D0: 00 00 |.. |
../.... ".. FIND / CHANGE PROGRAM LOAD-A
DDRESS".W.... ". DISK UNIT NR (8-15) ? 8
....";.}.... U: . U.8 . U.15 . . "...":
. 20...(.. ". DISK DRIVE NR (0/1) ? 0..
.";.H.2.. D: . D.0 . D.1 . . "...": . 40
...<.. ".. PUT TARGET DISK IN UNIT";U;"D
RIVE";D...F.. " THEN PRESS ANY KEY TO CO
NTINUE".6.P.. X$: . X$."" . 80.].Z.. "..
ENTER PROGRAM-NAME (OR END)"...D.. " ?
END.....";N$: . N$."END" . 610...N.V.16:
Q.32: F.256: N$.H(N$,V).K.X.H$."0123456
789ABCDEF": Z$.G(0).....T$.I(D(D),1): .
1,U,15,"I".T$: . 620.....T$.T$.":".N$: .
2,U,2,T$.",P,R".5....1,E,M$,J,K: . E.0
. 240.U. . 1: 2: . ". FILE: ";N$;.X.
... E.62 . . " NOT FOUND": . 200...... E
.64 . . " NOT A PROGRAM": . 200...... ".
DISK READ-ERROR";E: ..X.H.. J.1 . 2000:
.: . 90...R.J..(C.V): K.C.J.V.....M$.M$
.J(H$,J.1,1).J(H$,K.1,1).......0....#2,A
$,B$: . ST . 190.D... 2: 1: M$.""._..
.A.F(A$.Z$): B.F(B$.Z$).Z...C.B: . 210:0
C.A: . 210...... ". CURRENT LOAD-ADDRESS
I[:".G.*.. ". HUX: ";M$;" DECIMAL:
";B.F.A...,.. ". WANT TO CHANGE LOAD-ADD
R (Y/N) ? Y...";...6.. X$: . X$.."Y" . =
0.G.@.. ". NEW LOAD-ADDR (DECMMAL) ? 0
.........";.Q.J.. P: . P.0 . P.65535
. . "...": . 320...T.B..(P.F): A.P.B.F:
P$.G(A).G(B): M$.""...^.C.B: . 210: C.A
: . 210...H.. ". HEX: ";M$;" DECIMAL
: ";B.F.A...R.. ". OK TO WRITE NEW LOAD-
ADDR (Y/N) ? Y...";.,.|.. X$: . X$.."Y"
. 90.E...J.C(N$): . J.V . 410.D.... X.J.
1 . V:N$.N$.G(160):..~.... 1,U,15: . 2,U
,2,"#"...... 620: T.18: S.1......1,"U1:"
;2;D;T;S: . 620.L....1,"B-P:";2;0: .#2,A
$,B$...B.T.F(A$.Z$): S.F(B$.Z$): H.2...L
..1,"B-P:";2;H: .#2,T$.%.V.C.F(T$.Z$): .
C..130 . 510.E....#2,A$,B$: F$."": . X.
1 . V.]....#2,T$: F$.F$.T$: ..O.... F$.N
$ . 530.....H.H.Q: . H.F . 460...... 430
.....A.F(A$.Z$): B.F(B$.Z$).G....1,"U1:"
;2;D;A;B: . 620...&..1,"B-P:";2;2: .2,P$
;...0..1,"U2:";2;D;A;B: . 620...:. 2: .
620: 1.5.D.. ". LOAD-ADDR CHANGED FOR
";N$.D.N.. ". CHANGE ANOTHER PROGRAM (Y
/N) ? Y...";.|.X.. X$: . X$."Y" . 90...B
.. ".";: ....L..1,E,M$,J,K:. E.0 . ....V
.. ". ERROR: ";E;M$;J;K.O... 2: 1: ..
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL