DISK UTILITIES

00000000: 01 1C 40 1C 00 00 54 24  28 30 29 B2 22 44 45 4C  |..@...T$(0)."DEL|
00000010: 22 3A 54 24 28 31 29 B2  22 53 45 51 22 3A 54 24  |":T$(1)."SEQ":T$|
00000020: 28 32 29 B2 22 50 52 47  22 3A 54 24 28 33 29 B2  |(2)."PRG":T$(3).|
00000030: 22 55 53 52 22 3A 54 24  28 34 29 B2 22 52 45 4C  |"USR":T$(4)."REL|
00000040: 00 63 1C 01 00 44 4D 24  28 30 29 B2 22 53 49 4E  |.c...DM$(0)."SIN|
00000050: 47 4C 45 22 3A 44 4D 24  28 31 29 B2 22 44 4F 55  |GLE":DM$(1)."DOU|
00000060: 42 4C 45 00 9F 1C 02 00  86 41 24 28 32 35 36 29  |BLE......A$(256)|
00000070: 3A 4E 4C 24 B2 C7 28 30  29 3A 51 24 B2 C7 28 33  |:NL$..(0):Q$..(3|
00000080: 34 29 3A 53 50 24 B2 C7  28 31 36 30 29 3A 97 35  |4):SP$..(160):.5|
00000090: 33 32 38 30 2C 38 3A 97  35 33 32 38 31 2C 35 00  |3280,8:.53281,5.|
000000A0: D0 1C 03 00 99 C7 28 31  34 32 29 22 93 90 08 20  |......(142)"... |
000000B0: 20 20 20 20 20 B0 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |     ...........|
000000C0: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 AE  |................|
000000D0: 00 F8 1C 04 00 99 22 20  20 20 20 20 20 C2 20 20  |......"      .  |
000000E0: 20 20 20 20 44 49 53 4B  20 55 54 49 4C 49 54 49  |    DISK UTILITI|
000000F0: 45 53 20 20 20 20 20 C2  00 21 1D 05 00 99 22 20  |ES     ..!...." |
00000100: 20 20 20 20 20 AD C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |     ...........|
00000110: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 BD  |................|
00000120: 11 00 38 1D 06 00 A0 32  3A A0 34 3A A0 31 35 3A  |..8....2:.4:.15:|
00000130: 9F 31 35 2C 38 2C 31 35  00 4F 1D 07 00 98 31 35  |.15,8,15.O....15|
00000140: 2C 22 55 30 3E 4D 39 22  3A 84 31 35 2C 45 4E 00  |,"U0>M9":.15,EN.|
00000150: 82 1D 08 00 8B 45 4E B3  B1 33 31 A7 44 54 B2 30  |.....EN..31.DT.0|
00000160: 3A 44 4D B2 30 3A 99 A6  31 31 29 22 44 49 53 4B  |:DM.0:..11)"DISK|
00000170: 20 44 52 49 56 45 20 3D  20 31 35 34 31 22 3A 89  | DRIVE = 1541":.|
00000180: 31 31 00 AF 1D 09 00 44  54 B2 31 3A 98 31 35 2C  |11.....DT.1:.15,|
00000190: 22 55 30 3E 48 30 22 3A  84 31 35 2C 45 4E 3A 44  |"U0>H0":.15,EN:D|
000001A0: 4D B2 30 3A 8B 45 4E B2  33 31 A7 44 4D B2 31 00  |M.0:.EN.31.DM.1.|
000001B0: E1 1D 0A 00 99 22 44 49  53 4B 20 44 52 49 56 45  |....."DISK DRIVE|
000001C0: 20 3D 20 31 35 37 31 2C  20 49 4E 20 22 44 4D 24  | = 1571, IN "DM$|
000001D0: 28 44 4D 29 22 20 53 49  44 45 44 20 4D 4F 44 45  |(DM)" SIDED MODE|
000001E0: 22 00 10 1E 0B 00 99 22  C3 C3 C3 C3 C3 C3 C3 C3  |"......"........|
000001F0: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000200: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 22  |..............."|
00000210: 00 3C 1E 0C 00 99 22 20  20 31 20 3D 20 4E 4F 52  |.<...."  1 = NOR|
00000220: 4D 41 4C 20 44 49 52 45  43 54 4F 52 59 20 20 20  |MAL DIRECTORY   |
00000230: 20 20 28 53 49 44 45 20  31 2F 32 29 00 6A 1E 0D  |  (SIDE 1/2).j..|
00000240: 00 99 22 20 20 32 20 3D  20 46 55 4C 4C 20 44 49  |.."  2 = FULL DI|
00000250: 52 45 43 54 4F 52 59 20  20 20 20 28 44 45 4C 45  |RECTORY    (DELE|
00000260: 54 45 44 20 46 49 4C 45  53 29 00 87 1E 0E 00 99  |TED FILES)......|
00000270: 22 20 20 33 20 3D 20 4C  4F 43 4B 2F 55 4E 4C 4F  |"  3 = LOCK/UNLO|
00000280: 43 4B 20 46 49 4C 45 00  A4 1E 0F 00 99 22 20 20  |CK FILE......"  |
00000290: 34 20 3D 20 43 48 41 4E  47 45 20 44 49 53 4B 20  |4 = CHANGE DISK |
000002A0: 4E 41 4D 45 00 C3 1E 10  00 99 22 20 20 35 20 3D  |NAME......"  5 =|
000002B0: 20 49 53 53 55 45 20 44  49 53 4B 20 43 4F 4D 4D  | ISSUE DISK COMM|
000002C0: 41 4E 44 00 E4 1E 11 00  4D 4C B2 35 3A 41 4D B2  |AND.....ML.5:AM.|
000002D0: 28 44 4D AA 31 29 AF 31  3A 8B 44 54 B2 30 A7 99  |(DM.1).1:.DT.0..|
000002E0: 3A 89 32 30 00 1B 1F 12  00 99 22 20 20 36 20 3D  |:.20......"  6 =|
000002F0: 20 53 57 49 54 43 48 20  44 52 49 56 45 20 54 4F  | SWITCH DRIVE TO|
00000300: 20 22 44 4D 24 28 41 4D  29 22 20 53 49 44 45 44  | "DM$(AM)" SIDED|
00000310: 20 4D 4F 44 45 22 3A 4D  4C B2 36 00 2C 1F 13 00  | MODE":ML.6.,...|
00000320: 99 A6 32 32 29 22 A3 A3  A3 A3 A3 A3 00 3E 1F 14  |..22)".......>..|
00000330: 00 99 22 20 20 51 20 3D  20 51 55 49 54 22 00 6C  |.."  Q = QUIT".l|
00000340: 1F 15 00 99 22 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |...."...........|
00000350: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000360: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 00 89 1F 16  |................|
00000370: 00 99 22 11 44 45 53 49  52 45 44 20 46 55 4E 43  |..".DESIRED FUNC|
00000380: 54 49 4F 4E 20 3A 20 22  3B 00 9B 1F 17 00 A1 43  |TION : ";......C|
00000390: 24 3A 8B 43 24 B2 22 22  A7 32 33 00 B0 1F 18 00  |$:.C$."".23.....|
000003A0: 8B 43 24 B2 22 51 22 A7  99 43 24 3A 89 31 33 31  |.C$."Q"..C$:.131|
000003B0: 00 C9 1F 19 00 46 B2 C5  28 43 24 29 3A 8B 46 B3  |.....F..(C$):.F.|
000003C0: 31 B0 46 B1 4D 4C A7 32  33 00 E3 1F 1A 00 99 43  |1.F.ML.23......C|
000003D0: 24 3A 91 46 89 33 36 2C  33 36 2C 33 33 2C 33 36  |$:.F.36,36,33,36|
000003E0: 2C 32 38 00 FE 1F 1B 00  98 31 35 2C 22 55 30 3E  |,28......15,"U0>|
000003F0: 4D 22 AA C7 28 34 38 AA  41 4D 29 3A 89 33 00 27  |M"..(48.AM):.3.'|
00000400: 20 1C 00 99 22 11 44 45  53 49 52 45 44 20 44 49  | ...".DESIRED DI|
00000410: 53 4B 20 43 4F 4D 4D 41  4E 44 20 28 49 4E 20 51  |SK COMMAND (IN Q|
00000420: 55 4F 54 45 53 29 3A 00  3A 20 1D 00 8D 31 33 30  |UOTES):.: ...130|
00000430: 3A 8B 58 24 B2 53 50 24  A7 33 00 56 20 1E 00 98  |:.X$.SP$.3.V ...|
00000440: 31 35 2C 58 24 3A 84 31  35 2C 45 4E 2C 45 4D 24  |15,X$:.15,EN,EM$|
00000450: 2C 45 54 2C 45 53 00 7C  20 1F 00 99 22 11 45 52  |,ET,ES.| ...".ER|
00000460: 52 4F 52 23 3A 22 45 4E  22 20 20 20 54 52 4B 2F  |ROR#:"EN"   TRK/|
00000470: 53 45 43 3A 22 45 54 22  2F 22 45 53 00 8D 20 20  |SEC:"ET"/"ES..  |
00000480: 00 99 45 4D 24 3A 8D 31  32 36 3A 89 33 00 B4 20  |..EM$:.126:.3.. |
00000490: 21 00 99 22 11 46 49 4C  45 4E 41 4D 45 20 54 4F  |!..".FILENAME TO|
000004A0: 20 42 45 20 4C 4F 43 4B  45 44 2F 55 4E 4C 4F 43  | BE LOCKED/UNLOC|
000004B0: 4B 45 44 3A 00 C7 20 22  00 8D 31 33 30 3A 8B 58  |KED:.. "..130:.X|
000004C0: 24 B2 53 50 24 A7 33 00  EB 20 23 00 46 4C 24 B2  |$.SP$.3.. #.FL$.|
000004D0: C8 28 58 24 AA 22 A0 A0  A0 A0 A0 A0 A0 A0 A0 A0  |.(X$."..........|
000004E0: A0 A0 A0 A0 A0 A0 22 2C  31 36 29 00 12 21 24 00  |......",16)..!$.|
000004F0: 98 31 35 2C 22 49 30 22  3A 84 31 35 2C 45 4E 2C  |.15,"I0":.15,EN,|
00000500: 45 4D 24 2C 45 54 2C 45  53 3A 8B 45 4E B2 30 A7  |EM$,ET,ES:.EN.0.|
00000510: 33 39 00 31 21 25 00 8B  45 4E B3 B1 32 31 AF 54  |39.1!%..EN..21.T|
00000520: B3 B1 31 38 AF 53 B3 B1  30 A7 8D 31 32 35 3A 89  |..18.S..0..125:.|
00000530: 33 00 65 21 26 00 99 22  11 50 4C 45 41 53 45 20  |3.e!&..".PLEASE |
00000540: 49 4E 53 45 52 54 20 44  49 53 4B 20 26 20 52 45  |INSERT DISK & RE|
00000550: 53 45 4C 45 43 54 20 46  55 4E 43 54 49 4F 4E 21  |SELECT FUNCTION!|
00000560: 22 3A 89 39 34 00 82 21  27 00 9F 32 2C 38 2C 32  |":.94..!'..2,8,2|
00000570: 2C 22 23 30 22 3A 8D 31  32 34 3A 8B 45 4E B1 30  |,"#0":.124:.EN.0|
00000580: A7 33 00 AE 21 28 00 99  22 11 4F 4B 2C 20 52 45  |.3..!(..".OK, RE|
00000590: 41 44 49 4E 47 20 42 4C  4F 43 4B 20 41 56 41 49  |ADING BLOCK AVAI|
000005A0: 4C 20 4D 41 50 20 28 42  41 4D 29 2E 2E 2E 00 C8  |L MAP (BAM).....|
000005B0: 21 29 00 54 B2 31 38 3A  53 B2 30 3A 8D 31 31 31  |!).T.18:S.0:.111|
000005C0: 3A 8B 45 4E B1 30 A7 33  00 F6 21 2A 00 48 31 24  |:.EN.0.3..!*.H1$|
000005D0: B2 22 44 49 53 4B 20 22  AA 51 24 3A 81 4E B2 31  |."DISK ".Q$:.N.1|
000005E0: 34 34 A4 31 35 39 3A 48  31 24 B2 48 31 24 AA 41  |44.159:H1$.H1$.A|
000005F0: 24 28 4E 29 3A 82 00 37  22 2B 00 48 31 24 B2 48  |$(N):..7"+.H1$.H|
00000600: 31 24 AA 51 24 AA 22 20  20 49 44 3D 22 AA 41 24  |1$.Q$."  ID=".A$|
00000610: 28 31 36 32 29 AA 41 24  28 31 36 33 29 AA 22 20  |(162).A$(163)." |
00000620: 20 20 46 4D 54 3D 22 AA  41 24 28 31 36 35 29 AA  |  FMT=".A$(165).|
00000630: 41 24 28 31 36 36 29 00  5E 22 2C 00 43 B2 30 3A  |A$(166).^",.C.0:|
00000640: 81 4E B2 34 A4 31 34 30  A9 34 3A 8B 4E B3 B1 37  |.N.4.140.4:.N..7|
00000650: 32 A7 43 B2 43 AA C6 28  41 24 28 4E 29 29 00 8A  |2.C.C..(A$(N))..|
00000660: 22 2D 00 82 3A 8B C6 28  41 24 28 33 29 29 B1 30  |"-..:..(A$(3)).0|
00000670: A7 81 4E B2 32 32 31 A4  32 35 35 3A 43 B2 43 AA  |..N.221.255:C.C.|
00000680: C6 28 41 24 28 4E 29 29  3A 82 00 BC 22 2E 00 48  |.(A$(N)):..."..H|
00000690: 32 24 B2 C9 28 22 20 20  20 20 20 22 AA C4 28 43  |2$..("     "..(C|
000006A0: 29 2C 35 29 AA 22 20 42  4C 4F 43 4B 53 20 46 52  |),5)." BLOCKS FR|
000006B0: 45 45 20 20 20 20 20 20  20 20 28 22 00 E4 22 2F  |EE        (".."/|
000006C0: 00 48 32 24 B2 48 32 24  AA 44 4D 24 28 C6 28 41  |.H2$.H2$.DM$(.(A|
000006D0: 24 28 33 29 29 AD 31 32  38 29 AA 22 20 53 49 44  |$(3)).128)." SID|
000006E0: 45 44 29 22 00 F5 22 30  00 50 44 B2 33 3A 8B 46  |ED)".."0.PD.3:.F|
000006F0: B1 32 A7 35 33 00 1C 23  31 00 99 22 11 50 52 49  |.2.53..#1..".PRI|
00000700: 4E 54 45 44 20 4F 55 54  50 55 54 20 57 41 4E 54  |NTED OUTPUT WANT|
00000710: 45 44 20 28 59 2F 4E 29  3A 20 22 3B 00 2F 23 32  |ED (Y/N): ";./#2|
00000720: 00 A1 43 24 3A 8B 43 24  B2 22 4E 22 A7 35 33 00  |..C$:.C$."N".53.|
00000730: 3F 23 33 00 8B 43 24 B3  B1 22 59 22 A7 35 30 00  |?#3..C$.."Y".50.|
00000740: 4D 23 34 00 50 44 B2 34  3A 8D 31 30 33 00 57 23  |M#4.PD.4:.103.W#|
00000750: 35 00 9F 34 2C 50 44 00  69 23 36 00 8D 31 30 37  |5..4,PD.i#6..107|
00000760: 3A 8B 46 B3 B1 34 A7 36  34 00 92 23 37 00 99 22  |:.F..4.64..#7.."|
00000770: 45 4E 54 45 52 20 4E 45  57 20 44 49 53 4B 20 4E  |ENTER NEW DISK N|
00000780: 41 4D 45 20 46 4F 52 20  54 48 49 53 20 44 49 53  |AME FOR THIS DIS|
00000790: 4B 3A 00 A7 23 38 00 8D  31 33 30 3A 8B 58 24 B2  |K:..#8..130:.X$.|
000007A0: 53 50 24 A7 31 30 31 00  E4 23 39 00 8B C3 28 58  |SP$.101..#9...(X|
000007B0: 24 29 B1 31 36 A7 99 22  11 49 4E 50 55 54 20 53  |$).16..".INPUT S|
000007C0: 54 52 49 4E 47 20 49 53  20 4C 4F 4E 47 45 52 20  |TRING IS LONGER |
000007D0: 54 48 41 4E 20 31 36 20  43 48 41 52 53 21 11 22  |THAN 16 CHARS!."|
000007E0: 3A 89 35 35 00 07 24 3A  00 58 24 B2 C8 28 58 24  |:.55..$:.X$..(X$|
000007F0: AA 22 A0 A0 A0 A0 A0 A0  A0 A0 A0 A0 A0 A0 A0 A0  |."..............|
00000800: A0 A0 22 2C 31 36 29 00  28 24 3B 00 98 31 35 2C  |..",16).($;..15,|
00000810: 22 42 2D 50 3A 32 2C 31  34 34 22 3A 8D 31 32 34  |"B-P:2,144":.124|
00000820: 3A 8B 45 4E B1 30 A7 33  00 32 24 3C 00 98 32 2C  |:.EN.0.3.2$<..2,|
00000830: 58 24 00 55 24 3D 00 98  31 35 2C 22 55 32 3A 32  |X$.U$=..15,"U2:2|
00000840: 2C 30 2C 22 3B 54 3B 53  3A 8D 31 32 34 3A 8B 45  |,0,";T;S:.124:.E|
00000850: 4E B1 30 A7 33 00 62 24  3E 00 98 31 35 2C 22 49  |N.0.3.b$>..15,"I|
00000860: 30 22 00 94 24 3F 00 99  22 11 20 20 44 49 53 4B  |0"..$?..".  DISK|
00000870: 20 42 41 4D 20 55 50 44  41 54 45 44 20 57 49 54  | BAM UPDATED WIT|
00000880: 48 20 4E 45 57 20 44 49  53 4B 20 4E 41 4D 45 22  |H NEW DISK NAME"|
00000890: 3A 89 39 34 00 C1 24 40  00 8B 46 B2 33 A7 99 22  |:.94..$@..F.3.."|
000008A0: 53 45 41 52 43 48 49 4E  47 20 46 4F 52 20 46 49  |SEARCHING FOR FI|
000008B0: 4C 45 3A 20 22 3B 51 24  3B 46 4C 24 3B 51 24 3A  |LE: ";Q$;FL$;Q$:|
000008C0: 99 00 E3 24 41 00 54 B2  C6 28 41 24 28 30 29 29  |...$A.T..(A$(0))|
000008D0: 3A 53 B2 C6 28 41 24 28  31 29 29 3A 8B 54 B1 30  |:S..(A$(1)):.T.0|
000008E0: A7 36 38 00 02 25 42 00  8B 46 B2 33 A7 99 A6 31  |.68..%B..F.3...1|
000008F0: 32 29 22 46 49 4C 45 20  4E 4F 54 20 46 4F 55 4E  |2)"FILE NOT FOUN|
00000900: 44 22 00 0A 25 43 00 89  39 34 00 1B 25 44 00 8D  |D"..%C..94..%D..|
00000910: 31 31 31 3A 8B 45 4E B1  30 A7 33 00 39 25 45 00  |111:.EN.0.3.9%E.|
00000920: 81 4E B2 32 A4 32 32 36  A9 33 32 3A 46 54 B2 C6  |.N.2.226.32:FT..|
00000930: 28 41 24 28 4E 29 29 AF  37 00 4C 25 46 00 8B 46  |(A$(N)).7.L%F..F|
00000940: 54 B2 30 AF 46 B3 B1 32  A7 31 30 30 00 70 25 47  |T.0.F..2.100.p%G|
00000950: 00 43 B2 C6 28 41 24 28  4E AA 32 38 29 29 AA 28  |.C..(A$(N.28)).(|
00000960: C6 28 41 24 28 4E AA 32  39 29 29 AC 32 35 36 29  |.(A$(N.29)).256)|
00000970: 00 9E 25 48 00 8B 43 B2  30 A7 48 B2 30 3A 81 58  |..%H..C.0.H.0:.X|
00000980: B2 33 A4 31 38 3A 48 B2  48 AA C6 28 41 24 28 4E  |.3.18:H.H..(A$(N|
00000990: AA 58 29 29 3A 82 3A 8B  48 B2 30 A7 36 30 00 C0  |.X)):.:.H.0.60..|
000009A0: 25 49 00 4E 24 B2 22 22  3A 81 59 B2 33 A4 31 38  |%I.N$."":.Y.3.18|
000009B0: 3A 4E 24 B2 4E 24 AA 41  24 28 4E AA 59 29 3A 82  |:N$.N$.A$(N.Y):.|
000009C0: 00 D6 25 4A 00 8B 46 B2  33 A7 8B 46 4C 24 B3 B1  |..%J..F.3..FL$..|
000009D0: 4E 24 A7 31 30 30 00 FA  25 4B 00 98 34 2C C9 28  |N$.100..%K..4,.(|
000009E0: 22 20 20 20 20 20 22 AA  C4 28 43 29 2C 35 29 3B  |"     "..(C),5);|
000009F0: 22 20 22 3B 51 24 3B 4E  24 3B 00 1C 26 4C 00 98  |" ";Q$;N$;..&L..|
00000A00: 34 2C 51 24 22 20 20 22  54 24 28 46 54 29 22 20  |4,Q$"  "T$(FT)" |
00000A10: 20 22 3B 3A 8B 46 54 B2  30 A7 38 32 00 4C 26 4D  | ";:.FT.0.82.L&M|
00000A20: 00 4C 4B B2 30 3A 8B 28  C6 28 41 24 28 4E 29 29  |.LK.0:.(.(A$(N))|
00000A30: AF 31 39 32 29 B2 31 39  32 A7 98 34 2C 22 28 4C  |.192).192..4,"(L|
00000A40: 29 22 3B 3A 4C 4B B2 31  3A 89 38 30 00 7A 26 4E  |)";:LK.1:.80.z&N|
00000A50: 00 4F 50 B2 30 3A 8B 28  C6 28 41 24 28 4E 29 29  |.OP.0:.(.(A$(N))|
00000A60: AF 31 32 38 29 B2 30 A7  98 34 2C 22 28 4F 29 22  |.128).0..4,"(O)"|
00000A70: 3B 3A 4F 50 B2 31 3A 89  38 32 00 88 26 4F 00 98  |;:OP.1:.82..&O..|
00000A80: 34 2C 22 20 20 20 22 3B  00 95 26 50 00 98 34 2C  |4,"   ";..&P..4,|
00000A90: 22 20 20 22 3B 00 A6 26  51 00 8D 31 31 34 3A 8B  |"  ";..&Q..114:.|
00000AA0: 45 4E B1 30 A7 33 00 B6  26 52 00 98 34 3A 8B 46  |EN.0.3..&R..4:.F|
00000AB0: B3 B1 33 A7 39 35 00 E5  26 53 00 8B 4F 50 B2 31  |..3.95..&S..OP.1|
00000AC0: A7 99 22 11 46 49 4C 45  20 49 53 20 4E 4F 54 20  |..".FILE IS NOT |
00000AD0: 50 52 4F 50 45 52 4C 59  20 43 4C 4F 53 45 44 21  |PROPERLY CLOSED!|
00000AE0: 22 3A 89 39 34 00 02 27  54 00 99 22 11 4F 4B 20  |":.94..'T..".OK |
00000AF0: 54 4F 20 22 3B 3A 8B 4C  4B B2 31 A7 99 22 55 4E  |TO ";:.LK.1.."UN|
00000B00: 22 3B 00 1C 27 55 00 99  22 4C 4F 43 4B 20 46 49  |";..'U.."LOCK FI|
00000B10: 4C 45 20 28 59 2F 4E 29  3A 20 22 3B 00 30 27 56  |LE (Y/N): ";.0'V|
00000B20: 00 A1 43 24 3A 8B 43 24  B2 22 4E 22 A7 31 30 32  |..C$:.C$."N".102|
00000B30: 00 40 27 57 00 8B 43 24  B3 B1 22 59 22 A7 38 36  |.@'W..C$.."Y".86|
00000B40: 00 48 27 58 00 99 43 24  00 6A 27 59 00 48 B2 28  |.H'X..C$.j'Y.H.(|
00000B50: C6 28 41 24 28 4E 29 29  AF 31 39 31 29 3A 8B 4C  |.(A$(N)).191):.L|
00000B60: 4B B2 30 A7 48 B2 48 AA  36 34 00 8A 27 5A 00 98  |K.0.H.H.64..'Z..|
00000B70: 31 35 2C 22 42 2D 50 3A  32 2C 22 3B 4E 3A 8D 31  |15,"B-P:2,";N:.1|
00000B80: 32 34 3A 8B 45 4E B1 30  A7 33 00 97 27 5B 00 98  |24:.EN.0.3..'[..|
00000B90: 32 2C C7 28 48 29 3B 00  BA 27 5C 00 98 31 35 2C  |2,.(H);..'\..15,|
00000BA0: 22 55 32 3A 32 2C 30 2C  22 3B 54 3B 53 3A 8D 31  |"U2:2,0,";T;S:.1|
00000BB0: 32 34 3A 8B 45 4E B1 30  A7 33 00 E8 27 5D 00 99  |24:.EN.0.3..']..|
00000BC0: 22 11 44 49 52 45 43 54  4F 52 59 20 55 50 44 41  |".DIRECTORY UPDA|
00000BD0: 54 45 44 20 57 49 54 48  20 4E 45 57 20 4C 4F 43  |TED WITH NEW LOC|
00000BE0: 4B 20 53 54 41 54 55 53  00 F6 27 5E 00 99 3A 8D  |K STATUS..'^..:.|
00000BF0: 31 32 36 3A 89 33 00 14  28 5F 00 4C B2 4C AB 31  |126:.3..(_.L.L.1|
00000C00: 3A 8B 4C B2 30 A7 8D 31  30 35 3A 8B 43 24 B2 22  |:.L.0..105:.C$."|
00000C10: 51 22 A7 33 00 22 28 60  00 8B 50 44 B2 33 A7 31  |Q".3."(`..PD.3.1|
00000C20: 30 30 00 35 28 61 00 A1  43 24 3A 8B 43 24 B2 22  |00.5(a..C$:.C$."|
00000C30: 22 A7 31 30 30 00 64 28  62 00 99 A6 31 30 29 3B  |".100.d(b...10);|
00000C40: 22 11 11 4F 55 54 50 55  54 20 53 55 53 50 45 4E  |"..OUTPUT SUSPEN|
00000C50: 44 45 44 11 22 3A 8D 31  32 37 3A 8B 43 24 B2 22  |DED.":.127:.C$."|
00000C60: 51 22 A7 33 00 6D 28 63  00 8D 31 30 33 00 77 28  |Q".3.m(c..103.w(|
00000C70: 64 00 82 3A 89 36 35 00  9D 28 65 00 99 A6 38 29  |d..:.65..(e...8)|
00000C80: 22 11 4E 4F 20 43 48 41  4E 47 45 20 54 4F 20 44  |".NO CHANGE TO D|
00000C90: 49 53 4B 20 4E 41 4D 45  22 3A 89 39 34 00 C7 28  |ISK NAME":.94..(|
00000CA0: 66 00 99 43 24 3A 99 A6  38 29 22 11 4E 4F 20 43  |f..C$:..8)".NO C|
00000CB0: 48 41 4E 47 45 20 54 4F  20 44 49 52 45 43 54 4F  |HANGE TO DIRECTO|
00000CC0: 52 59 22 3A 89 39 34 00  E8 28 67 00 99 22 93 50  |RY":.94..(g..".P|
00000CD0: 52 49 4E 54 49 4E 47 20  44 49 53 4B 20 44 49 52  |RINTING DISK DIR|
00000CE0: 45 43 54 4F 52 59 11 11  00 0F 29 68 00 99 22 50  |ECTORY....)h.."P|
00000CF0: 52 45 53 53 20 41 4E 59  20 4B 45 59 20 54 4F 20  |RESS ANY KEY TO |
00000D00: 50 41 55 53 45 20 4F 55  54 50 55 54 22 3A 8E 00  |PAUSE OUTPUT":..|
00000D10: 31 29 69 00 8B 50 44 B2  34 A7 81 58 B2 31 A4 31  |1)i..PD.4..X.1.1|
00000D20: 30 3A 98 34 3A 82 3A 43  24 B2 22 22 3A 89 31 30  |0:.4:.:C$."":.10|
00000D30: 37 00 44 29 6A 00 8D 31  32 37 3A 8B 43 24 B2 22  |7.D)j..127:.C$."|
00000D40: 51 22 A7 8E 00 5F 29 6B  00 4C B2 35 30 3A 8B 50  |Q"..._)k.L.50:.P|
00000D50: 44 B2 33 A7 4C B2 31 36  3A 99 22 93 11 22 3B 00  |D.3.L.16:."..";.|
00000D60: 74 29 6C 00 98 34 2C 48  31 24 3A 98 34 3A 98 34  |t)l..4,H1$:.4:.4|
00000D70: 2C 48 32 24 00 A8 29 6D  00 98 34 3A 98 34 2C 22  |,H2$..)m..4:.4,"|
00000D80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000D90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000DA0: 2D 2D 2D 2D 2D 2D 2D 2D  00 B1 29 6E 00 98 34 3A  |--------..)n..4:|
00000DB0: 8E 00 D4 29 6F 00 98 31  35 2C 22 55 31 3A 32 2C  |...)o..15,"U1:2,|
00000DC0: 30 2C 22 3B 54 3B 53 3A  8D 31 32 34 3A 8B 45 4E  |0,";T;S:.124:.EN|
00000DD0: B1 30 A7 8E 00 FF 29 70  00 81 4E B2 30 A4 32 35  |.0....)p..N.0.25|
00000DE0: 35 3A A1 23 32 2C 41 24  28 4E 29 3A 8B 41 24 28  |5:.#2,A$(N):.A$(|
00000DF0: 4E 29 B2 22 22 A7 41 24  28 4E 29 B2 4E 4C 24 00  |N)."".A$(N).NL$.|
00000E00: 07 2A 71 00 82 3A 8E 00  17 2A 72 00 45 4E B2 30  |.*q..:...*r.EN.0|
00000E10: 3A 8B 46 B2 33 A7 8E 00  35 2A 73 00 54 B2 C6 28  |:.F.3...5*s.T..(|
00000E20: 41 24 28 4E AA 31 29 29  3A 53 B2 C6 28 41 24 28  |A$(N.1)):S..(A$(|
00000E30: 4E AA 32 29 29 00 4B 2A  74 00 8B 28 45 4E AA 48  |N.2)).K*t..(EN.H|
00000E40: 29 B1 30 B0 46 54 B3 B1  34 A7 8E 00 6B 2A 75 00  |).0.FT..4...k*u.|
00000E50: 54 B2 C6 28 41 24 28 4E  AA 31 39 29 29 3A 53 B2  |T..(A$(N.19)):S.|
00000E60: C6 28 4E 24 28 4E AA 32  30 29 29 00 89 2A 76 00  |.(N$(N.20))..*v.|
00000E70: 48 B2 30 3A 8B 54 B1 33  35 A7 48 B2 31 3A 98 34  |H.0:.T.35.H.1:.4|
00000E80: 2C 22 28 32 29 22 3B 3A  8E 00 AC 2A 77 00 98 31  |,"(2)";:...*w..1|
00000E90: 35 2C 22 55 31 3A 32 2C  30 2C 22 3B 54 3B 53 3A  |5,"U1:2,0,";T;S:|
00000EA0: 8D 31 32 34 3A 8B 45 4E  B1 30 A7 8E 00 C8 2A 78  |.124:.EN.0....*x|
00000EB0: 00 A1 23 32 2C 43 24 2C  44 24 3A 8B 43 24 B2 22  |..#2,C$,D$:.C$."|
00000EC0: 22 A7 43 24 B2 4E 4C 24  00 DA 2A 79 00 8B 44 24  |".C$.NL$..*y..D$|
00000ED0: B2 22 22 A7 44 24 B2 4E  4C 24 00 F7 2A 7A 00 54  |."".D$.NL$..*z.T|
00000EE0: B2 C6 28 43 24 29 3A 53  B2 C6 28 44 24 29 3A 8B  |..(C$):S..(D$):.|
00000EF0: 54 B1 30 A7 31 31 38 00  FD 2A 7B 00 8E 00 1A 2B  |T.0.118..*{....+|
00000F00: 7C 00 84 31 35 2C 45 4E  2C 45 4D 24 2C 45 54 2C  ||..15,EN,EM$,ET,|
00000F10: 45 53 3A 8B 45 4E B2 30  A7 8E 00 4D 2B 7D 00 99  |ES:.EN.0...M+}..|
00000F20: 3A 99 22 12 44 49 53 4B  20 45 52 52 4F 52 3A 92  |:.".DISK ERROR:.|
00000F30: 22 45 4E 22 20 20 12 54  52 4B 2F 53 45 43 3A 92  |"EN"  .TRK/SEC:.|
00000F40: 22 45 54 22 2F 22 45 53  3A 99 45 4D 24 00 82 2B  |"ET"/"ES:.EM$..+|
00000F50: 7E 00 99 22 12 20 20 20  20 20 20 20 50 52 45 53  |~..".       PRES|
00000F60: 53 20 41 4E 59 20 4B 45  59 20 54 4F 20 43 4F 4E  |S ANY KEY TO CON|
00000F70: 54 49 4E 55 45 20 20 20  20 20 20 20 22 3A 89 31  |TINUE       ":.1|
00000F80: 32 38 00 B4 2B 7F 00 99  22 11 12 50 52 45 53 53  |28..+..."..PRESS|
00000F90: 20 41 4E 59 20 4B 45 59  20 54 4F 20 43 4F 4E 54  | ANY KEY TO CONT|
00000FA0: 49 4E 55 45 2C 20 27 51  27 20 54 4F 20 51 55 49  |INUE, 'Q' TO QUI|
00000FB0: 54 92 22 3B 00 C7 2B 80  00 A1 43 24 3A 8B 43 24  |T.";..+...C$:.C$|
00000FC0: B2 22 22 A7 31 32 38 00  CD 2B 81 00 8E 00 E7 2B  |."".128..+.....+|
00000FD0: 82 00 99 22 1D 1D 1D 22  53 50 24 22 9D 9D 9D 22  |..."..."SP$"..."|
00000FE0: 3B 3A 85 58 24 3A 8E 00  F5 2B 83 00 A0 32 3A A0  |;:.X$:...+...2:.|
00000FF0: 34 3A A0 31 35 00 00 00                           |4:.15...        |

..@...T$(0)."DEL":T$(1)."SEQ":T$(2)."PRG
":T$(3)."USR":T$(4)."REL.C...DM$(0)."SIN
GLE":DM$(1)."DOUBLE......A$(256):NL$.G(0
):Q$.G(34):SP$.G(160):.53280,8:.53281,5.
P....G(142)"...      .CCCCCCCCCCCCCCCCCC
CCCCCCC......."      B      DISK UTILITI
ES     B.!...."      .CCCCCCCCCCCCCCCCCC
CCCCCCC...8... 2: 4: 15:.15,8,15.O....15
,"U0>M9":.15,EN......EN..31.DT.0:DM.0:..
11)"DISK DRIVE = 1541":.11.....DT.1:.15,
"U0>H0":.15,EN:DM.0:.EN.31.DM.1......"DI
SK DRIVE = 1571, IN "DM$(DM)" SIDED MODE
"......"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCC".<...."  1 = NORMAL DIRECTORY   
  (SIDE 1/2).J...."  2 = FULL DIRECTORY 
   (DELETED FILES)......"  3 = LOCK/UNLO
CK FILE......"  4 = CHANGE DISK NAME.C..
.."  5 = ISSUE DISK COMMAND.....ML.5:AM.
(DM.1).1:.DT.0..:.20......"  6 = SWITCH 
DRIVE TO "DM$(AM)" SIDED MODE":ML.6.,...
..22)".......>...."  Q = QUIT".L...."CCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC....
..".DESIRED FUNCTION : ";......C$:.C$.""
.23......C$."Q"..C$:.131.I...F.E(C$):.F.
1.F.ML.23......C$:.F.36,36,33,36,28.....
.15,"U0>M".G(48.AM):.3.' ...".DESIRED DI
SK COMMAND (IN QUOTES):.: ...130:.X$.SP$
.3.V ...15,X$:.15,EN,EM$,ET,ES.| ...".ER
ROR#:"EN"   TRK/SEC:"ET"/"ES..  ..EM$:.1
26:.3.. !..".FILENAME TO BE LOCKED/UNLOC
KED:.G "..130:.X$.SP$.3.. #.FL$.H(X$."  
              ",16)..!$..15,"I0":.15,EN,
EM$,ET,ES:.EN.0.39.1!%..EN..21.T..18.S..
0..125:.3.E!&..".PLEASE INSERT DISK & RE
SELECT FUNCTION!":.94..!'..2,8,2,"#0":.1
24:.EN.0.3..!(..".OK, READING BLOCK AVAI
L MAP (BAM)....H!).T.18:S.0:.111:.EN.0.3
..!*.H1$."DISK ".Q$:.N.144.159:H1$.H1$.A
$(N):..7"+.H1$.H1$.Q$."  ID=".A$(162).A$
(163)."   FMT=".A$(165).A$(166).^",.C.0:
.N.4.140.4:.N..72.C.C.F(A$(N)).."-..:.F(
A$(3)).0..N.221.255:C.C.F(A$(N)):..."..H
2$.I("     ".D(C),5)." BLOCKS FREE      
  (".."/.H2$.H2$.DM$(F(A$(3)).128)." SID
ED)".."0.PD.3:.F.2.53..#1..".PRINTED OUT
PUT WANTED (Y/N): ";./#2..C$:.C$."N".53.
?#3..C$.."Y".50.M#4.PD.4:.103.W#5..4,PD.
I#6..107:.F..4.64..#7.."ENTER NEW DISK N
AME FOR THIS DISK:..#8..130:.X$.SP$.101.
.#9..C(X$).16..".INPUT STRING IS LONGER 
THAN 16 CHARS!.":.55..$:.X$.H(X$."      
          ",16).($;..15,"B-P:2,144":.124
:.EN.0.3.2$<..2,X$.U$=..15,"U2:2,0,";T;S
:.124:.EN.0.3.B$>..15,"I0"..$?..".  DISK
 BAM UPDATED WITH NEW DISK NAME":.94.A$@
..F.3.."SEARCHING FOR FILE: ";Q$;FL$;Q$:
...$A.T.F(A$(0)):S.F(A$(1)):.T.0.68..%B.
.F.3...12)"FILE NOT FOUND"..%C..94..%D..
111:.EN.0.3.9%E..N.2.226.32:FT.F(A$(N)).
7.L%F..FT.0.F..2.100.P%G.C.F(A$(N.28)).(
F(A$(N.29)).256)..%H..C.0.H.0:.X.3.18:H.
H.F(A$(N.X)):.:.H.0.60..%I.N$."":.Y.3.18
:N$.N$.A$(N.Y):..V%J..F.3..FL$..N$.100..
%K..4,I("     ".D(C),5);" ";Q$;N$;..&L..
4,Q$"  "T$(FT)"  ";:.FT.0.82.L&M.LK.0:.(
F(A$(N)).192).192..4,"(L)";:LK.1:.80.Z&N
.OP.0:.(F(A$(N)).128).0..4,"(O)";:OP.1:.
82..&O..4,"   ";..&P..4,"  ";..&Q..114:.
EN.0.3..&R..4:.F..3.95..&S..OP.1..".FILE
 IS NOT PROPERLY CLOSED!":.94..'T..".OK 
TO ";:.LK.1.."UN";..'U.."LOCK FILE (Y/N)
: ";.0'V..C$:.C$."N".102.@'W..C$.."Y".86
.H'X..C$.J'Y.H.(F(A$(N)).191):.LK.0.H.H.
64..'Z..15,"B-P:2,";N:.124:.EN.0.3..'[..
2,G(H);..'\..15,"U2:2,0,";T;S:.124:.EN.0
.3..']..".DIRECTORY UPDATED WITH NEW LOC
K STATUS..'^..:.126:.3..(_.L.L.1:.L.0..1
05:.C$."Q".3."(`..PD.3.100.5(A..C$:.C$."
".100.D(B...10);"..OUTPUT SUSPENDED.":.1
27:.C$."Q".3.M(C..103.W(D..:.65..(E...8)
".NO CHANGE TO DISK NAME":.94.G(F..C$:..
8)".NO CHANGE TO DIRECTORY":.94..(G..".P
RINTING DISK DIRECTORY....)H.."PRESS ANY
 KEY TO PAUSE OUTPUT":..1)I..PD.4..X.1.1
0:.4:.:C$."":.107.D)J..127:.C$."Q"..._)K
.L.50:.PD.3.L.16:."..";.T)L..4,H1$:.4:.4
,H2$..)M..4:.4,"------------------------
----------------..)N..4:..T)O..15,"U1:2,
0,";T;S:.124:.EN.0....)P..N.0.255:.#2,A$
(N):.A$(N)."".A$(N).NL$..*Q..:...*R.EN.0
:.F.3...5*S.T.F(A$(N.1)):S.F(A$(N.2)).K*
T..(EN.H).0.FT..4...K*U.T.F(A$(N.19)):S.
F(N$(N.20))..*V.H.0:.T.35.H.1:.4,"(2)";:
...*W..15,"U1:2,0,";T;S:.124:.EN.0...H*X
..#2,C$,D$:.C$."".C$.NL$.Z*Y..D$."".D$.N
L$..*Z.T.F(C$):S.F(D$):.T.0.118..*{....+
|..15,EN,EM$,ET,ES:.EN.0...M+}..:.".DISK
 ERROR:."EN"  .TRK/SEC:."ET"/"ES:.EM$..+
~..".       PRESS ANY KEY TO CONTINUE   
    ":.128..+.."..PRESS ANY KEY TO CONT
INUE, 'Q' TO QUIT.";.G+...C$:.C$."".128.
M+.....+..."..."SP$"...";:.X$:...+.. 2: 
4: 15...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL