00000000: 01 1C 20 1C 64 00 FE 25 3A DE 9C 3A DE 35 3A 99 |.. .d..%:..:.5:.|
00000010: 22 93 0E C9 4E 49 54 49 41 4C 49 5A 49 4E 47 22 |"...NITIALIZING"|
00000020: 00 45 1C 6E 00 44 B2 30 3A 54 B2 31 38 3A 53 B2 |.E.n.D.0:T.18:S.|
00000030: 31 3A 4B B2 30 3A 58 B2 30 3A 49 B2 30 3A 41 B2 |1:K.0:X.0:I.0:A.|
00000040: 30 3A 55 B2 30 00 6A 1C 78 00 56 B2 30 3A 41 24 |0:U.0.j.x.V.0:A$|
00000050: B2 22 22 3A 42 24 B2 22 22 3A 86 20 4E 24 28 32 |."":B$."":. N$(2|
00000060: 39 36 29 2C 4B 28 32 39 36 29 00 99 1C 82 00 81 |96),K(296)......|
00000070: 49 B2 30 A4 32 39 36 3A 4E 24 28 49 29 B2 22 01 |I.0.296:N$(I).".|
00000080: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 22 |..............."|
00000090: 3A 4B 28 49 29 B2 30 3A 82 00 B0 1C 8C 00 8B C2 |:K(I).0:........|
000000A0: 28 34 38 36 34 29 B3 B1 31 36 39 A7 8D 36 33 30 |(4864)..169..630|
000000B0: 00 E5 1C 96 00 99 22 93 05 08 0E 9E 12 20 31 32 |......"...... 12|
000000C0: 38 20 D7 48 4F 4C 45 20 C4 49 53 4B 20 C6 49 4C |8 .HOLE .ISK .IL|
000000D0: 45 20 D4 59 50 45 20 C3 48 41 4E 47 45 52 20 D6 |E .YPE .HANGER .|
000000E0: 32 2E 31 20 22 00 17 1D A0 00 99 22 12 20 2A 20 |2.1 "......". * |
000000F0: C2 59 20 D2 55 53 53 45 4C 4C 20 D0 52 41 54 45 |.Y .USSELL .RATE|
00000100: 52 20 2A 20 D0 55 42 4C 49 43 20 C4 4F 4D 41 49 |R * .UBLIC .OMAI|
00000110: 4E 20 2A 20 22 3A 99 00 3C 1D AA 00 99 22 99 D7 |N * ":..<...."..|
00000120: 48 49 43 48 20 44 49 53 4B 20 44 45 56 49 43 45 |HICH DISK DEVICE|
00000130: 20 23 20 20 20 9E 38 9D 9D 9D 22 3B 00 58 1D B4 | # .8...";.X..|
00000140: 00 85 44 3A 8B 44 B3 38 B0 44 B1 31 35 A7 99 22 |..D:.D.8.D.15.."|
00000150: 91 22 3B 3A 89 31 37 30 00 74 1D BE 00 99 3A 99 |.";:.170.t....:.|
00000160: 22 99 C4 45 56 49 43 45 9E 22 44 22 99 49 53 20 |"..EVICE."D".IS |
00000170: 41 20 22 3B 00 8A 1D C8 00 9F 31 35 2C 44 2C 31 |A ";......15,D,1|
00000180: 35 3A 98 31 35 2C 22 55 49 22 00 9C 1D D2 00 84 |5:.15,"UI"......|
00000190: 31 35 2C 41 24 2C 41 24 3A A0 31 35 00 AC 1D DC |15,A$,A$:.15....|
000001A0: 00 99 22 9E 22 C9 28 41 24 2C 34 29 00 C9 1D E6 |..".".(A$,4)....|
000001B0: 00 8B C9 28 41 24 2C 34 29 B2 22 31 35 38 31 22 |...(A$,4)."1581"|
000001C0: A7 54 B2 34 30 3A 53 B2 33 00 EE 1D F0 00 99 3A |.T.40:S.3......:|
000001D0: 99 22 9C C3 48 41 4E 47 45 20 54 4F 20 57 48 49 |."..HANGE TO WHI|
000001E0: 43 48 20 46 49 4C 45 20 54 59 50 45 3F 22 00 24 |CH FILE TYPE?".$|
000001F0: 1E FA 00 99 22 9E 31 99 20 D3 45 51 55 45 4E 54 |....".1. .EQUENT|
00000200: 49 41 4C 22 3A 99 22 9E 32 99 20 D0 52 4F 47 52 |IAL":.".2. .ROGR|
00000210: 41 4D 22 3A 99 22 9E 33 99 20 D5 53 45 52 20 28 |AM":.".3. .SER (|
00000220: D5 D3 D2 29 00 42 1E 04 01 A1 F9 41 24 3A 4B B2 |...).B.....A$:K.|
00000230: C5 28 41 24 29 3A 8B 4B B3 31 B0 4B B1 33 A7 32 |.(A$):.K.1.K.3.2|
00000240: 36 30 00 7B 1E 0E 01 99 3A 99 22 9C C3 48 41 4E |60.{....:."..HAN|
00000250: 47 45 3A 22 3A 99 22 9E 31 99 20 C1 4C 4C 20 46 |GE:":.".1. .LL F|
00000260: 49 4C 45 53 22 3A 99 22 9E 32 99 20 D3 45 4C 45 |ILES":.".2. .ELE|
00000270: 43 54 45 44 20 46 49 4C 45 53 22 00 97 1E 18 01 |CTED FILES".....|
00000280: A1 F9 41 24 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 |..A$:.A$."1".A$.|
00000290: 22 32 22 A7 32 38 30 00 BA 1E 22 01 8B 41 24 B2 |"2".280..."..A$.|
000002A0: 22 31 22 A7 81 49 B2 31 A4 32 39 36 3A 4B 28 49 |"1"..I.1.296:K(I|
000002B0: 29 B2 4B 3A 82 3A 89 34 34 30 00 D9 1E 2C 01 99 |).K:.:.440...,..|
000002C0: 3A 99 22 9E D2 45 41 44 49 4E 47 20 C4 49 52 45 |:."..EADING .IRE|
000002D0: 43 54 4F 52 59 9E 22 3A 99 00 F3 1E 36 01 9F 32 |CTORY.":....6..2|
000002E0: 2C 44 2C 30 2C 22 24 22 3A 9E 34 38 36 34 3A FE |,D,0,"$":.4864:.|
000002F0: 09 20 58 00 13 1F 40 01 99 22 93 9C D3 45 4C 45 |. X...@.."...ELE|
00000300: 43 54 20 C6 49 4C 45 53 20 54 4F 20 C3 48 41 4E |CT .ILES TO .HAN|
00000310: 47 45 22 00 35 1F 4A 01 99 22 9E D9 99 20 54 4F |GE".5.J.."... TO|
00000320: 20 D3 45 4C 45 43 54 2C 20 9E CE 99 20 54 4F 20 | .ELECT, ... TO |
00000330: D3 4B 49 50 22 00 59 1F 54 01 99 22 9E 5E 99 20 |.KIP".Y.T..".^. |
00000340: 20 C2 41 43 4B 20 53 54 45 50 2C 20 9E C1 99 20 | .ACK STEP, ... |
00000350: 54 4F 20 C1 42 4F 52 54 22 00 66 1F 5E 01 99 3A |TO .BORT".f.^..:|
00000360: 81 49 B2 31 A4 58 00 79 1F 68 01 99 22 99 22 4E |.I.1.X.y.h.."."N|
00000370: 24 28 49 29 3A A1 F9 41 24 00 8F 1F 72 01 8B 41 |$(I):..A$...r..A|
00000380: 24 B2 22 41 22 A7 99 22 93 22 3A 89 36 31 30 00 |$."A"..".":.610.|
00000390: B1 1F 7C 01 8B 41 24 B2 22 59 22 A7 99 22 91 12 |..|..A$."Y".."..|
000003A0: 9E 22 4E 24 28 49 29 22 99 22 3A 4B 28 49 29 B2 |."N$(I)".":K(I).|
000003B0: 4B 00 ED 1F 86 01 8B 28 41 24 B2 22 5E 22 B0 41 |K......(A$."^".A|
000003C0: 24 B2 22 91 22 29 AF 49 B1 31 A7 99 22 91 20 20 |$.".").I.1..". |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 | ."|
000003E0: 3A 49 B2 49 AB 31 3A 4B 28 49 29 B2 30 00 0B 20 |:I.I.1:K(I).0.. |
000003F0: 90 01 8B 41 24 B2 22 5E 22 B0 41 24 B2 22 91 22 |...A$."^".A$."."|
00000400: A7 99 22 91 22 3B 3A 89 33 36 30 00 23 20 9A 01 |..".";:.360.# ..|
00000410: 82 3A FE 0B 32 3A 81 49 B2 30 A4 31 30 3A A1 41 |.:..2:.I.0.10:.A|
00000420: 24 3A 82 00 4F 20 A4 01 99 22 9C 11 CF 4B 41 59 |$:..O ..."...KAY|
00000430: 20 54 4F 20 57 52 49 54 45 20 4E 45 57 20 46 49 | TO WRITE NEW FI|
00000440: 4C 45 20 54 59 50 45 3F 20 28 D9 2F 4E 29 22 00 |LE TYPE? (./N)".|
00000450: 64 20 AE 01 A1 F9 41 24 3A 8B 41 24 B2 22 4E 22 |d ....A$:.A$."N"|
00000460: A7 33 33 30 00 80 20 B8 01 58 B2 31 3A 9F 31 35 |.330.. ..X.1:.15|
00000470: 2C 44 2C 31 35 3A 9F 32 2C 44 2C 32 2C 22 23 22 |,D,15:.2,D,2,"#"|
00000480: 00 AA 20 C2 01 99 22 93 9C C3 48 41 4E 47 49 4E |.. ..."...HANGIN|
00000490: 47 2E 2E 2E 22 3A 99 22 11 99 D4 52 41 43 4B 20 |G...":."...RACK |
000004A0: 20 D3 45 43 54 4F 52 96 11 22 00 B8 20 CC 01 99 | .ECTOR..".. ...|
000004B0: 54 22 20 20 20 20 22 53 00 CE 20 D6 01 98 31 35 |T" "S.. ...15|
000004C0: 2C 22 55 31 3A 22 3B 32 3B 30 3B 54 3B 53 00 E1 |,"U1:";2;0;T;S..|
000004D0: 20 E0 01 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B | ...15,"B-P:";2;|
000004E0: 30 00 F4 20 EA 01 A1 23 32 2C 41 24 3A 55 B2 C6 |0.. ...#2,A$:U..|
000004F0: 28 41 24 29 00 07 21 F4 01 A1 23 32 2C 41 24 3A |(A$)..!...#2,A$:|
00000500: 56 B2 C6 28 41 24 29 00 17 21 FE 01 81 49 B2 32 |V..(A$)..!...I.2|
00000510: A4 32 32 36 A9 33 32 00 2A 21 08 02 98 31 35 2C |.226.32.*!...15,|
00000520: 22 42 2D 50 3A 22 3B 32 3B 49 00 3D 21 12 02 A1 |"B-P:";2;I.=!...|
00000530: 23 32 2C 41 24 3A 41 B2 C6 28 41 24 29 00 50 21 |#2,A$:A..(A$).P!|
00000540: 1C 02 8B 28 41 AF 31 32 38 29 B2 30 A7 35 37 30 |...(A.128).0.570|
00000550: 00 78 21 26 02 8B 4B 28 58 29 B2 4B A7 98 31 35 |.x!&..K(X).K..15|
00000560: 2C 22 42 2D 50 3A 22 3B 32 3B 49 3A 98 32 2C C7 |,"B-P:";2;I:.2,.|
00000570: 28 31 32 38 AA 4B 29 3B 00 82 21 30 02 58 B2 58 |(128.K);..!0.X.X|
00000580: AA 31 00 9A 21 3A 02 82 3A 98 31 35 2C 22 55 32 |.1..!:..:.15,"U2|
00000590: 3A 22 3B 32 3B 30 3B 54 3B 53 00 AE 21 44 02 8B |:";2;0;T;S..!D..|
000005A0: 55 A7 54 B2 55 3A 53 B2 56 3A 89 34 36 30 00 B9 |U.T.U:S.V:.460..|
000005B0: 21 4E 02 A0 32 3A A0 31 35 00 CE 21 58 02 99 22 |!N..2:.15..!X.."|
000005C0: 11 99 0F C6 49 4E 49 53 48 45 44 21 9F 22 00 FA |....INISHED!."..|
000005D0: 21 62 02 99 22 9F 11 C1 4E 4F 54 48 45 52 20 C4 |!b.."...NOTHER .|
000005E0: 49 53 4B 3F 20 28 59 2F CE 29 22 3A A1 F9 41 24 |ISK? (Y/.)":..A$|
000005F0: 3A 8B 41 24 B2 22 59 22 A7 8A 00 00 22 6C 02 80 |:.A$."Y"...."l..|
00000600: 00 1D 22 76 02 81 49 B2 34 38 36 34 A4 35 30 34 |.."v..I.4864.504|
00000610: 32 3A 87 41 3A 97 49 2C 41 3A 82 3A 8E 00 40 22 |2:.A:.I,A:.:..@"|
00000620: 00 13 83 20 31 36 39 2C 33 2C 31 34 31 2C 31 37 |... 169,3,141,17|
00000630: 38 2C 31 39 2C 31 36 39 2C 32 35 35 2C 31 33 33 |8,19,169,255,133|
00000640: 00 63 22 08 13 83 20 32 35 30 2C 31 36 39 2C 31 |.c"... 250,169,1|
00000650: 2C 31 33 33 2C 31 39 38 2C 31 36 35 2C 34 39 2C |,133,198,165,49,|
00000660: 31 33 33 00 88 22 10 13 83 20 31 37 34 2C 31 33 |133.."... 174,13|
00000670: 33 2C 32 35 33 2C 31 36 35 2C 35 30 2C 31 33 33 |3,253,165,50,133|
00000680: 2C 31 37 35 2C 31 33 33 00 AA 22 18 13 83 20 32 |,175,133.."... 2|
00000690: 35 34 2C 33 32 2C 32 30 31 2C 32 34 37 2C 32 30 |54,32,201,247,20|
000006A0: 31 2C 37 38 2C 32 34 30 2C 33 00 CF 22 20 13 83 |1,78,240,3.." ..|
000006B0: 20 32 30 30 2C 32 30 38 2C 32 34 36 2C 31 33 32 | 200,208,246,132|
000006C0: 2C 32 35 31 2C 32 34 2C 31 36 35 2C 32 35 33 00 |,251,24,165,253.|
000006D0: F3 22 28 13 83 20 31 30 31 2C 32 35 31 2C 31 33 |."(.. 101,251,13|
000006E0: 33 2C 32 35 33 2C 31 36 35 2C 32 35 34 2C 31 30 |3,253,165,254,10|
000006F0: 35 2C 30 00 16 23 30 13 83 20 31 33 33 2C 32 35 |5,0..#0.. 133,25|
00000700: 34 2C 31 36 39 2C 38 2C 32 34 2C 31 30 31 2C 32 |4,169,8,24,101,2|
00000710: 35 33 2C 31 33 33 00 3A 23 38 13 83 20 32 35 33 |53,133.:#8.. 253|
00000720: 2C 31 33 33 2C 31 37 34 2C 31 36 39 2C 30 2C 31 |,133,174,169,0,1|
00000730: 30 31 2C 32 35 34 2C 31 33 33 00 5D 23 40 13 83 |01,254,133.]#@..|
00000740: 20 32 35 34 2C 31 33 33 2C 31 37 35 2C 31 36 30 | 254,133,175,160|
00000750: 2C 30 2C 33 32 2C 32 30 31 2C 32 34 37 00 82 23 |,0,32,201,247..#|
00000760: 48 13 83 20 31 33 33 2C 32 35 31 2C 32 30 30 2C |H.. 133,251,200,|
00000770: 33 32 2C 32 30 31 2C 32 34 37 2C 31 33 33 2C 31 |32,201,247,133,1|
00000780: 37 35 00 A5 23 50 13 83 20 31 36 35 2C 32 35 31 |75..#P.. 165,251|
00000790: 2C 31 33 33 2C 31 37 34 2C 31 36 32 2C 32 2C 33 |,133,174,162,2,3|
000007A0: 32 2C 31 39 38 00 C7 23 58 13 83 20 32 35 35 2C |2,198..#X.. 255,|
000007B0: 31 36 30 2C 30 2C 33 32 2C 32 30 37 2C 32 35 35 |160,0,32,207,255|
000007C0: 2C 33 32 2C 32 30 37 00 EB 23 60 13 83 20 32 35 |,32,207..#`.. 25|
000007D0: 35 2C 31 36 36 2C 31 34 34 2C 32 30 38 2C 36 36 |5,166,144,208,66|
000007E0: 2C 32 30 36 2C 31 37 38 2C 31 39 00 10 24 68 13 |,206,178,19..$h.|
000007F0: 83 20 32 30 38 2C 32 34 31 2C 33 32 2C 32 30 37 |. 208,241,32,207|
00000800: 2C 32 35 35 2C 31 36 36 2C 31 34 34 2C 32 30 38 |,255,166,144,208|
00000810: 00 33 24 70 13 83 20 35 34 2C 32 30 31 2C 33 34 |.3$p.. 54,201,34|
00000820: 2C 32 30 38 2C 32 34 35 2C 33 32 2C 32 30 37 2C |,208,245,32,207,|
00000830: 32 35 35 00 55 24 78 13 83 20 31 36 36 2C 31 34 |255.U$x.. 166,14|
00000840: 34 2C 32 30 38 2C 34 33 2C 32 30 31 2C 33 34 2C |4,208,43,201,34,|
00000850: 32 34 30 2C 36 00 79 24 80 13 83 20 33 32 2C 31 |240,6.y$... 32,1|
00000860: 39 31 2C 32 34 37 2C 32 30 30 2C 32 30 38 2C 32 |91,247,200,208,2|
00000870: 33 39 2C 33 32 2C 32 30 37 00 9C 24 88 13 83 20 |39,32,207..$... |
00000880: 32 35 35 2C 31 36 36 2C 31 34 34 2C 32 30 38 2C |255,166,144,208,|
00000890: 32 36 2C 32 30 31 2C 30 2C 32 34 30 00 BE 24 90 |26,201,0,240..$.|
000008A0: 13 83 20 33 2C 32 30 30 2C 32 30 38 2C 32 34 32 |.. 3,200,208,242|
000008B0: 2C 31 36 39 2C 32 2C 31 34 31 2C 31 37 38 00 E1 |,169,2,141,178..|
000008C0: 24 98 13 83 20 31 39 2C 32 33 30 2C 32 35 30 2C |$... 19,230,250,|
000008D0: 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 39 2C 34 |32,204,255,169,4|
000008E0: 36 00 03 25 A0 13 83 20 33 32 2C 32 31 30 2C 32 |6..%... 32,210,2|
000008F0: 35 35 2C 31 36 39 2C 33 2C 32 30 38 2C 31 34 31 |55,169,3,208,141|
00000900: 2C 33 32 00 26 25 A8 13 83 20 32 30 34 2C 32 35 |,32.&%... 204,25|
00000910: 35 2C 31 36 39 2C 32 2C 33 32 2C 31 39 35 2C 32 |5,169,2,32,195,2|
00000920: 35 35 2C 31 36 35 00 35 25 B0 13 83 20 32 35 30 |55,165.5%... 250|
00000930: 2C 39 36 2C 30 00 00 00 |,96,0... |
.. .D..%:..:.5:."..INITIALIZING".E.N.D.0
:T.18:S.1:K.0:X.0:I.0:A.0:U.0.J.X.V.0:A$
."":B$."":. N$(296),K(296)......I.0.296:
N$(I)."................":K(I).0:.......B
(4864)..169..630......"...... 128 WHOLE
DISK FILE TYPE CHANGER V2.1 "... ..". *
BY RUSSELL PRATER * PUBLIC DOMAIN * ":..
<....".WHICH DISK DEVICE # .8...";.X..
..D:.D.8.D.15..".";:.170.T....:.".DEVICE
."D".IS A ";...H..15,D,15:.15,"UI"...R..
15,A$,A$: 15......"."I(A$,4).I....I(A$,4
)."1581".T.40:S.3......:.".CHANGE TO WHI
CH FILE TYPE?".$....".1. SEQUENTIAL":.".
2. PROGRAM":.".3. USER (USR).B.....A$:K.
E(A$):.K.1.K.3.260.{....:.".CHANGE:":.".
1. ALL FILES":.".2. SELECTED FILES".....
..A$:.A$."1".A$."2".280..."..A$."1"..I.1
.296:K(I).K:.:.440.Y.,..:.".READING DIRE
CTORY.":....6..2,D,0,"$":.4864:.. X...@.
."..SELECT FILES TO CHANGE".5.J..".Y. TO
SELECT, .N. TO SKIP".Y.T..".^. BACK ST
EP, .A. TO ABORT".F.^..:.I.1.X.Y.H.."."N
$(I):..A$...R..A$."A"..".":.610...|..A$.
"Y".."..."N$(I)".":K(I).K......(A$."^".A
$.".").I.1..". .":I.I.1:K
(I).0.. ...A$."^".A$."."..".";:.360.# ..
.:..2:.I.0.10:.A$:..O ..."..OKAY TO WRIT
E NEW FILE TYPE? (Y/N)".D ....A$:.A$."N"
.330.. ..X.1:.15,D,15:.2,D,2,"#".. B..".
.CHANGING...":."..TRACK SECTOR..".. L..
T" "S.N V..15,"U1:";2;0;T;S.. ...15,"
B-P:";2;0.. ...#2,A$:U.F(A$)..!...#2,A$:
V.F(A$)..!...I.2.226.32.*!...15,"B-P:";2
;I.=!...#2,A$:A.F(A$).P!...(A.128).0.570
.X!&..K(X).K..15,"B-P:";2;I:.2,G(128.K);
..!0.X.X.1..!:..:.15,"U2:";2;0;T;S..!D..
U.T.U:S.V:.460..!N. 2: 15.N!X.."...FINIS
HED!."..!B.."..ANOTHER DISK? (Y/N)":..A$
:.A$."Y"...."L...."V..I.4864.5042:.A:.I,
A:.:..@"... 169,3,141,178,19,169,255,133
.C"... 250,169,1,133,198,165,49,133.."..
. 174,133,253,165,50,133,175,133.."... 2
54,32,201,247,201,78,240,3.O" .. 200,208
,246,132,251,24,165,253.."(.. 101,251,13
3,253,165,254,105,0..#0.. 133,254,169,8,
24,101,253,133.:#8.. 253,133,174,169,0,1
01,254,133.]#@.. 254,133,175,160,0,32,20
1,247..#H.. 133,251,200,32,201,247,133,1
75..#P.. 165,251,133,174,162,2,32,198.G#
X.. 255,160,0,32,207,255,32,207..#`.. 25
5,166,144,208,66,206,178,19..$H.. 208,24
1,32,207,255,166,144,208.3$P.. 54,201,34
,208,245,32,207,255.U$X.. 166,144,208,43
,201,34,240,6.Y$... 32,191,247,200,208,2
39,32,207..$... 255,166,144,208,26,201,0
,240..$... 3,200,208,242,169,2,141,178..
$... 19,230,250,32,204,255,169,46..% ..
32,210,255,169,3,208,141,32.&%... 204,25
5,169,2,32,195,255,165.5%... 250,96,0...