00000000: 01 1C 5C 1C 01 00 DE 30 2C 31 3A 99 22 13 54 48 |..\....0,1:.".TH|
00000010: 49 53 20 49 53 20 41 4E 20 38 30 20 43 4F 4C 55 |IS IS AN 80 COLU|
00000020: 4D 4E 20 50 52 4F 47 52 41 4D 20 53 57 49 54 43 |MN PROGRAM SWITC|
00000030: 48 20 54 4F 20 20 27 52 47 42 27 20 4F 4E 20 4D |H TO 'RGB' ON M|
00000040: 4F 4E 49 54 4F 52 22 3A DE 35 2C 31 3A E8 3A E7 |ONITOR":.5,1:.:.|
00000050: 20 36 2C 31 3A E7 20 35 2C 35 3A E8 00 B8 1C 02 | 6,1:. 5,5:.....|
00000060: 00 99 C7 28 31 34 29 22 C4 C9 D3 CB D3 3A C4 49 |...(14)".....:.I|
00000070: 53 4B 20 C9 4E 54 45 52 41 43 54 49 4E 47 20 D3 |SK .NTERACTING .|
00000080: 50 45 43 49 41 4C 20 CB 45 52 4E 41 4C 20 D2 45 |PECIAL .ERNAL .E|
00000090: 47 49 53 54 45 52 53 20 D3 59 53 54 45 4D 53 22 |GISTERS .YSTEMS"|
000000A0: 3A 99 22 C4 45 43 45 4D 4E 45 52 20 32 32 20 2C |:.".ECEMNER 22 ,|
000000B0: 31 39 38 35 11 11 11 22 00 D1 1C 03 00 8C 3A 58 |1985..."......:X|
000000C0: 24 B2 22 22 3A 99 22 9C 5D 22 C7 28 31 34 32 29 |$."":.".]".(142)|
000000D0: 3B 00 DA 1C 04 00 A1 F9 41 24 00 F5 1C 05 00 99 |;.......A$......|
000000E0: 22 9C 22 3B 41 24 3B 3A 8B 41 24 B2 C7 28 31 33 |".";A$;:.A$..(13|
000000F0: 29 A7 20 31 30 00 02 1D 06 00 58 24 B2 58 24 AA |). 10.....X$.X$.|
00000100: 41 24 00 09 1D 07 00 89 34 00 21 1D 0A 00 8B 58 |A$......4.!....X|
00000110: 24 B2 22 43 4F 4D 4D 41 4E 44 53 22 A7 20 31 30 |$."COMMANDS". 10|
00000120: 30 00 3A 1D 0B 00 8B 58 24 B2 22 44 49 52 45 43 |0.:....X$."DIREC|
00000130: 54 4F 52 59 22 A7 20 31 30 33 00 4C 1D 0C 00 8B |TORY". 103.L....|
00000140: 20 58 24 B2 22 48 45 22 A7 31 30 34 00 70 1D 0D | X$."HE".104.p..|
00000150: 00 8B 58 24 B2 22 49 22 A7 20 9F 31 35 2C 38 2C |..X$."I". .15,8,|
00000160: 31 35 2C 22 49 30 3A 22 3A A0 31 35 3A 89 20 33 |15,"I0:":.15:. 3|
00000170: 00 86 1D 0E 00 8B 58 24 B2 22 53 54 22 A7 20 99 |......X$."ST". .|
00000180: 44 53 24 3A 89 33 00 9E 1D 0F 00 8B 58 24 B2 22 |DS$:.3......X$."|
00000190: 43 4F 22 A7 F3 20 44 30 2C 55 38 3A 89 33 00 AF |CO".. D0,U8:.3..|
000001A0: 1D 10 00 8B 58 24 B2 22 52 4E 22 A7 31 30 37 00 |....X$."RN".107.|
000001B0: C0 1D 11 00 8B 58 24 B2 22 53 43 22 A7 31 30 39 |.....X$."SC".109|
000001C0: 00 D1 1D 12 00 8B 58 24 B2 22 52 45 22 A7 31 31 |......X$."RE".11|
000001D0: 33 00 EB 1D 13 00 8B 58 24 B2 22 45 58 49 54 22 |3......X$."EXIT"|
000001E0: A7 E8 3A 99 22 45 4E 44 22 3A 80 00 7D 1E 64 00 |..:."END":..}.d.|
000001F0: 8D 31 30 30 30 3A 99 C7 28 31 34 29 3B 3A 43 24 |.1000:..(14);:C$|
00000200: B2 22 C8 45 41 44 45 52 20 C9 4E 49 54 49 41 4C |.".EADER .NITIAL|
00000210: 49 5A 45 20 D3 54 41 54 55 53 20 C3 4F 4C 4C 45 |IZE .TATUS .OLLE|
00000220: 43 54 20 D2 55 4E 2D 50 52 47 20 D2 45 4E 41 4D |CT .UN-PRG .ENAM|
00000230: 45 20 D3 43 52 41 54 43 48 20 C4 49 52 45 43 54 |E .CRATCH .IRECT|
00000240: 4F 52 59 20 45 58 49 54 22 3A 83 20 C8 C5 2C 22 |ORY EXIT":. ..,"|
00000250: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 3D C9 20 20 20 |...........=. |
00000260: 20 20 20 20 20 20 22 2C D3 D4 2C C3 CF 2C D2 CE | ",..,..,..|
00000270: 2C D2 C5 2C D3 C3 2C 22 9D 9D 20 20 22 00 B7 1E |,..,..,".. "...|
00000280: 65 00 81 4C B2 31 A4 C3 28 43 24 29 3A 8B CA 28 |e..L.1..(C$):..(|
00000290: 43 24 2C 4C 2C 31 29 B2 C7 28 33 32 29 A7 87 45 |C$,L,1)..(32)..E|
000002A0: 24 3A 99 2C 22 20 20 3D 22 3B 45 24 3B 3A 99 C7 |$:.," =";E$;:..|
000002B0: 28 31 33 29 3B 3A 82 00 D1 1E 66 00 99 20 CA 28 |(13);:....f.. .(|
000002C0: 43 24 2C 4C 2C 31 29 3B 3A 82 3A 99 3A 99 3A 89 |C$,L,1);:.:.:.:.|
000002D0: 33 00 F5 1E 67 00 8D 31 30 30 30 3A 99 C7 28 31 |3...g..1000:..(1|
000002E0: 34 32 29 3B 3A EE 3A 99 C7 28 31 34 29 3A 99 3A |42);:.:..(14):.:|
000002F0: 99 3A 89 20 33 00 33 1F 68 00 8D 31 30 30 30 3A |.:. 3.3.h..1000:|
00000300: 99 C7 28 31 34 32 29 22 4E 41 4D 45 20 4F 46 20 |..(142)"NAME OF |
00000310: 44 49 53 4B 22 3B 3A 85 4E 41 24 3A 85 22 49 44 |DISK";:.NA$:."ID|
00000320: 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 23 22 3B |ENTIFICATION #";|
00000330: 49 4E 24 00 7D 1F 69 00 99 22 0F 57 41 52 4E 49 |IN$.}.i..".WARNI|
00000340: 4E 47 0F 20 54 48 49 53 20 57 49 4C 4C 20 45 52 |NG. THIS WILL ER|
00000350: 41 53 45 20 45 56 45 52 59 54 48 49 4E 47 20 4F |ASE EVERYTHING O|
00000360: 4E 20 54 48 45 20 44 49 53 4B 22 3A 99 22 48 49 |N THE DISK":."HI|
00000370: 54 20 41 20 4B 45 59 22 3A A1 F9 59 24 00 A4 1F |T A KEY":..Y$...|
00000380: 6A 00 9F 31 35 2C 38 2C 31 35 2C 22 4E 30 3A 22 |j..15,8,15,"N0:"|
00000390: AA 4E 41 24 AA 22 2C 22 AA 49 4E 24 3A A0 20 31 |.NA$.",".IN$:. 1|
000003A0: 35 3A 89 33 00 D3 1F 6B 00 8D 31 30 30 30 3A 99 |5:.3...k..1000:.|
000003B0: C7 28 31 34 32 29 22 4E 41 4D 45 20 4F 46 20 50 |.(142)"NAME OF P|
000003C0: 52 4F 47 52 41 4D 20 54 4F 20 52 55 4E 22 3B 3A |ROGRAM TO RUN";:|
000003D0: 85 50 24 00 E1 1F 6C 00 8A 20 28 50 24 29 3A 89 |.P$...l.. (P$):.|
000003E0: 33 00 16 20 6D 00 8D 31 30 30 30 3A 99 C7 28 31 |3.. m..1000:..(1|
000003F0: 34 32 29 22 4E 41 4D 45 20 4F 46 20 50 52 4F 47 |42)"NAME OF PROG|
00000400: 52 41 4D 20 54 4F 20 53 43 52 41 54 43 48 22 3B |RAM TO SCRATCH";|
00000410: 3A 85 20 50 45 24 00 5F 20 6E 00 99 22 0F 57 41 |:. PE$._ n..".WA|
00000420: 52 4E 49 4E 47 20 54 48 49 53 20 45 52 41 53 45 |RNING THIS ERASE|
00000430: 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 20 22 |S THE PROGRAM "|
00000440: 3B 50 45 24 3A 99 22 48 49 54 20 41 4E 59 20 4B |;PE$:."HIT ANY K|
00000450: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |EY TO CONTINUE".|
00000460: 68 20 6F 00 A1 F9 55 24 00 77 20 70 00 F2 20 28 |h o...U$.w p.. (|
00000470: 50 45 24 29 3A 89 33 00 B1 20 71 00 8D 31 30 30 |PE$):.3.. q..100|
00000480: 30 3A 99 C7 28 31 34 32 29 22 4F 4C 44 20 50 52 |0:..(142)"OLD PR|
00000490: 4F 47 52 41 4D 20 4E 41 4D 45 22 3B 3A 85 4F 4C |OGRAM NAME";:.OL|
000004A0: 24 3A 85 22 4E 45 57 20 4E 41 4D 45 22 3B 4E 45 |$:."NEW NAME";NE|
000004B0: 24 00 C5 20 72 00 F5 20 28 4F 4C 24 29 20 A4 20 |$.. r.. (OL$) . |
000004C0: 28 4E 45 24 29 00 CC 20 73 00 89 33 00 D2 20 E7 |(NE$).. s..3.. .|
000004D0: 03 80 00 E6 20 E8 03 81 4C B2 31 A4 32 34 3A 99 |.... ...L.1.24:.|
000004E0: 22 11 22 3B 3A 82 00 EC 20 E9 03 8E 00 00 00 1A |".";:... .......|
000004F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..\....0,1:.".THIS IS AN 80 COLUMN PROGR
AM SWITCH TO 'RGB' ON MONITOR":.5,1:.:.
6,1:. 5,5:.......G(14)"DISKS:DISK INTER
ACTING SPECIAL KERNAL REGISTERS SYSTEMS"
:."DECEMNER 22 ,1985...".Q....:X$."":.".
]"G(142);.Z.....A$......".";A$;:.A$.G(13
). 10.....X$.X$.A$......4.!....X$."COMMA
NDS". 100.:....X$."DIRECTORY". 103.L....
X$."HE".104.P....X$."I". .15,8,15,"I0:"
: 15:. 3......X$."ST". .DS$:.3......X$."
CO".. D0,U8:.3......X$."RN".107......X$.
"SC".109.Q....X$."RE".113......X$."EXIT"
..:."END":..}.D..1000:.G(14);:C$."HEADER
INITIALIZE STATUS COLLECT RUN-PRG RENAM
E SCRATCH DIRECTORY EXIT":. HE,"........
...=I ",ST,CO,RN,RE,SC,".. "...
E..L.1.C(C$):.J(C$,L,1).G(32)..E$:.," =
";E$;:.G(13);:..Q.F.. J(C$,L,1);:.:.:.:.
3...G..1000:.G(142);:.:.G(14):.:.:. 3.3.
H..1000:.G(142)"NAME OF DISK";:.NA$:."ID
ENTIFICATION #";IN$.}.I..".WARNING. THIS
WILL ERASE EVERYTHING ON THE DISK":."HI
T A KEY":..Y$...J..15,8,15,"N0:".NA$.","
.IN$: 15:.3.S.K..1000:.G(142)"NAME OF P
ROGRAM TO RUN";:.P$...L.. (P$):.3.. M..1
000:.G(142)"NAME OF PROGRAM TO SCRATCH";
:. PE$._ N..".WARNING THIS ERASES THE PR
OGRAM ";PE$:."HIT ANY KEY TO CONTINUE".
H O...U$.W P.. (PE$):.3.. Q..1000:.G(142
)"OLD PROGRAM NAME";:.OL$:."NEW NAME";NE
$.E R.. (OL$) . (NE$).L S..3.R ..... ...
L.1.24:.".";:... .......................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL