DISK UTILITIES
FILE INFORMATION
FILENAME(S): DISK UTILITIES
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 16:57:31
APPEARS ON: 1 disk(s)
FILE HASH
ffb6ccd065e489aead97ecdbbcdf22ec200618f20ef7c73cc9258d16afcf1b0f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ULTRA DISK | DISK UTILITIES | PRG | High Voltage Complete C64 Collection, Markus Merz | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 BE 00 54 24 28 30 29 B2 22 44 45 4C |..A...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: 22 00 65 08 C8 00 44 4D 24 28 30 29 B2 22 53 49 |".e...DM$(0)."SI|
00000050: 4E 47 4C 45 22 3A 44 4D 24 28 31 29 B2 22 44 4F |NGLE":DM$(1)."DO|
00000060: 55 42 4C 45 22 00 8F 08 D2 00 86 41 24 28 32 35 |UBLE"......A$(25|
00000070: 36 29 3A 4E 4C 24 B2 C7 28 30 29 3A 51 24 B2 C7 |6):NL$..(0):Q$..|
00000080: 28 33 34 29 3A 53 50 24 B2 C7 28 31 36 30 29 00 |(34):SP$..(160).|
00000090: B9 08 DC 00 99 22 93 20 20 20 20 20 20 B0 C3 C3 |.....". ...|
000000A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000B0: C3 C3 C3 C3 C3 C3 C3 AE 22 00 E2 08 E6 00 99 22 |........"......"|
000000C0: 20 20 20 20 20 20 C2 20 20 20 20 20 20 44 49 53 | . DIS|
000000D0: 4B 20 55 54 49 4C 49 54 49 45 53 20 20 20 20 20 |K UTILITIES |
000000E0: C2 22 00 0C 09 F0 00 99 22 20 20 20 20 20 20 AD |."......" .|
000000F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000100: C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 11 22 00 23 09 FA |...........".#..|
00000110: 00 A0 32 3A A0 34 3A A0 31 35 3A 9F 31 35 2C 38 |..2:.4:.15:.15,8|
00000120: 2C 31 35 00 3A 09 04 01 98 31 35 2C 22 55 30 3E |,15.:....15,"U0>|
00000130: 4D 39 22 3A 84 31 35 2C 45 4E 00 6F 09 0E 01 8B |M9":.15,EN.o....|
00000140: 45 4E B3 B1 33 31 A7 44 54 B2 30 3A 44 4D B2 30 |EN..31.DT.0:DM.0|
00000150: 3A 99 A6 31 31 29 3B 22 44 49 53 4B 20 44 52 49 |:..11);"DISK DRI|
00000160: 56 45 20 3D 20 31 35 34 31 22 3A 89 33 30 30 00 |VE = 1541":.300.|
00000170: 9C 09 18 01 44 54 B2 31 3A 98 31 35 2C 22 55 30 |....DT.1:.15,"U0|
00000180: 3E 48 30 22 3A 84 31 35 2C 45 4E 3A 44 4D B2 30 |>H0":.15,EN:DM.0|
00000190: 3A 8B 45 4E B2 33 31 A7 44 4D B2 31 00 D0 09 22 |:.EN.31.DM.1..."|
000001A0: 01 99 22 44 49 53 4B 20 44 52 49 56 45 20 3D 20 |.."DISK DRIVE = |
000001B0: 31 35 37 31 2C 20 49 4E 20 22 3B 44 4D 24 28 44 |1571, IN ";DM$(D|
000001C0: 4D 29 3B 22 20 53 49 44 45 44 20 4D 4F 44 45 22 |M);" SIDED MODE"|
000001D0: 00 FF 09 2C 01 99 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 |...,..".........|
000001E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000001F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 |..............".|
00000200: 2C 0A 36 01 99 22 20 20 31 20 3D 20 4E 4F 52 4D |,.6.." 1 = NORM|
00000210: 41 4C 20 44 49 52 45 43 54 4F 52 59 20 20 20 20 |AL DIRECTORY |
00000220: 20 28 53 49 44 45 20 31 2F 32 29 22 00 5B 0A 40 | (SIDE 1/2)".[.@|
00000230: 01 99 22 20 20 32 20 3D 20 46 55 4C 4C 20 44 49 |.." 2 = FULL DI|
00000240: 52 45 43 54 4F 52 59 20 20 20 20 28 44 45 4C 45 |RECTORY (DELE|
00000250: 54 45 44 20 46 49 4C 45 53 29 22 00 79 0A 4A 01 |TED FILES)".y.J.|
00000260: 99 22 20 20 33 20 3D 20 4C 4F 43 4B 2F 55 4E 4C |." 3 = LOCK/UNL|
00000270: 4F 43 4B 20 46 49 4C 45 22 00 97 0A 54 01 99 22 |OCK FILE"...T.."|
00000280: 20 20 34 20 3D 20 43 48 41 4E 47 45 20 44 49 53 | 4 = CHANGE DIS|
00000290: 4B 20 4E 41 4D 45 22 00 B7 0A 5E 01 99 22 20 20 |K NAME"...^.." |
000002A0: 35 20 3D 20 49 53 53 55 45 20 44 49 53 4B 20 43 |5 = ISSUE DISK C|
000002B0: 4F 4D 4D 41 4E 44 22 00 D9 0A 68 01 4D 4C B2 35 |OMMAND"...h.ML.5|
000002C0: 3A 41 4D B2 28 44 4D AA 31 29 AF 31 3A 8B 44 54 |:AM.(DM.1).1:.DT|
000002D0: B2 30 A7 99 3A 89 33 39 30 00 12 0B 72 01 99 22 |.0..:.390...r.."|
000002E0: 20 20 36 20 3D 20 53 57 49 54 43 48 20 44 52 49 | 6 = SWITCH DRI|
000002F0: 56 45 20 54 4F 20 22 3B 44 4D 24 28 41 4D 29 3B |VE TO ";DM$(AM);|
00000300: 22 20 53 49 44 45 44 20 4D 4F 44 45 22 3A 4D 4C |" SIDED MODE":ML|
00000310: B2 36 00 24 0B 7C 01 A6 32 32 29 3B 22 A3 A3 A3 |.6.$.|..22);"...|
00000320: A3 A3 A3 22 00 36 0B 86 01 99 22 20 20 51 20 3D |...".6...." Q =|
00000330: 20 51 55 49 54 22 00 65 0B 90 01 99 22 C3 C3 C3 | QUIT".e...."...|
00000340: C3 C3 C3 C3 C3 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 22 00 82 0B 9A 01 99 22 11 44 45 53 |...."......".DES|
00000370: 49 52 45 44 20 46 55 4E 43 54 49 4F 4E 20 3A 20 |IRED FUNCTION : |
00000380: 22 3B 00 95 0B A4 01 A1 43 24 3A 8B 43 24 B2 22 |";......C$:.C$."|
00000390: 22 A7 34 32 30 00 AB 0B AE 01 8B 43 24 B2 22 51 |".420......C$."Q|
000003A0: 22 A7 99 43 24 3A 89 31 35 30 30 00 C5 0B B8 01 |"..C$:.1500.....|
000003B0: 46 B2 C5 28 43 24 29 3A 8B 46 B3 31 B0 46 B1 4D |F..(C$):.F.1.F.M|
000003C0: 4C A7 34 32 30 00 E4 0B C2 01 99 43 24 3A 91 46 |L.420......C$:.F|
000003D0: 89 35 35 30 2C 35 35 30 2C 35 32 30 2C 35 35 30 |.550,550,520,550|
000003E0: 2C 34 37 30 00 01 0C CC 01 98 31 35 2C 22 55 30 |,470......15,"U0|
000003F0: 3E 4D 22 AA C7 28 34 38 AA 41 4D 29 3A 89 32 32 |>M"..(48.AM):.22|
00000400: 30 00 2B 0C D6 01 99 22 11 44 45 53 49 52 45 44 |0.+....".DESIRED|
00000410: 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 28 49 | DISK COMMAND (I|
00000420: 4E 20 51 55 4F 54 45 53 29 3A 22 00 41 0C E0 01 |N QUOTES):".A...|
00000430: 8D 31 34 39 30 3A 8B 58 24 B2 53 50 24 A7 32 32 |.1490:.X$.SP$.22|
00000440: 30 00 5D 0C EA 01 98 31 35 2C 58 24 3A 84 31 35 |0.]....15,X$:.15|
00000450: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 88 0C |,EN,EM$,ET,ES...|
00000460: F4 01 99 22 11 45 52 52 4F 52 23 3A 22 3B 45 4E |...".ERROR#:";EN|
00000470: 3B 22 20 20 20 54 52 4B 2F 53 45 43 3A 22 3B 45 |;" TRK/SEC:";E|
00000480: 54 3B 22 2F 22 3B 45 53 00 9C 0C FE 01 99 45 4D |T;"/";ES......EM|
00000490: 24 3A 8D 31 34 35 30 3A 89 32 32 30 00 C4 0C 08 |$:.1450:.220....|
000004A0: 02 99 22 11 46 49 4C 45 4E 41 4D 45 20 54 4F 20 |..".FILENAME TO |
000004B0: 42 45 20 4C 4F 43 4B 45 44 2F 55 4E 4C 4F 43 4B |BE LOCKED/UNLOCK|
000004C0: 45 44 3A 22 00 DA 0C 12 02 8D 31 34 39 30 3A 8B |ED:"......1490:.|
000004D0: 58 24 B2 53 50 24 A7 32 32 30 00 FE 0C 1C 02 46 |X$.SP$.220.....F|
000004E0: 4C 24 B2 C8 28 58 24 AA 22 A0 A0 A0 A0 A0 A0 A0 |L$..(X$.".......|
000004F0: A0 A0 A0 A0 A0 A0 A0 A0 A0 22 2C 31 36 29 00 26 |.........",16).&|
00000500: 0D 26 02 98 31 35 2C 22 49 30 22 3A 84 31 35 2C |.&..15,"I0":.15,|
00000510: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E |EN,EM$,ET,ES:.EN|
00000520: B2 30 A7 35 38 30 00 48 0D 30 02 8B 45 4E B3 B1 |.0.580.H.0..EN..|
00000530: 32 31 AF 54 B3 B1 31 38 AF 53 B3 B1 30 A7 8D 31 |21.T..18.S..0..1|
00000540: 34 34 30 3A 89 32 32 30 00 7E 0D 3A 02 99 22 11 |440:.220.~.:..".|
00000550: 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 |PLEASE INSERT DI|
00000560: 53 4B 20 26 20 52 45 53 45 4C 45 43 54 20 46 55 |SK & RESELECT FU|
00000570: 4E 43 54 49 4F 4E 21 22 3A 89 31 31 33 30 00 9E |NCTION!":.1130..|
00000580: 0D 44 02 9F 32 2C 38 2C 32 2C 22 23 30 22 3A 8D |.D..2,8,2,"#0":.|
00000590: 31 34 33 30 3A 8B 45 4E B1 30 A7 32 32 30 00 CB |1430:.EN.0.220..|
000005A0: 0D 4E 02 99 22 11 4F 4B 2C 20 52 45 41 44 49 4E |.N..".OK, READIN|
000005B0: 47 20 42 4C 4F 43 4B 20 41 56 41 49 4C 20 4D 41 |G BLOCK AVAIL MA|
000005C0: 50 20 28 42 41 4D 29 2E 2E 2E 22 00 E8 0D 58 02 |P (BAM)..."...X.|
000005D0: 54 B2 31 38 3A 53 B2 30 3A 8D 31 33 30 30 3A 8B |T.18:S.0:.1300:.|
000005E0: 45 4E B1 30 A7 32 32 30 00 17 0E 62 02 48 31 24 |EN.0.220...b.H1$|
000005F0: B2 22 44 49 53 4B 20 22 AA 51 24 3A 81 4E B2 31 |."DISK ".Q$:.N.1|
00000600: 34 34 A4 31 35 39 3A 48 31 24 B2 48 31 24 AA 41 |44.159:H1$.H1$.A|
00000610: 24 28 4E 29 3A 82 4E 00 58 0E 6C 02 48 31 24 B2 |$(N):.N.X.l.H1$.|
00000620: 48 31 24 AA 51 24 AA 22 20 20 49 44 3D 22 AA 41 |H1$.Q$." ID=".A|
00000630: 24 28 31 36 32 29 AA 41 24 28 31 36 33 29 AA 22 |$(162).A$(163)."|
00000640: 20 20 20 46 4D 54 3D 22 AA 41 24 28 31 36 35 29 | FMT=".A$(165)|
00000650: AA 41 24 28 31 36 36 29 00 7F 0E 76 02 43 B2 30 |.A$(166)...v.C.0|
00000660: 3A 81 4E B2 34 A4 31 34 30 A9 34 3A 8B 4E B3 B1 |:.N.4.140.4:.N..|
00000670: 37 32 A7 43 B2 43 AA C6 28 41 24 28 4E 29 29 00 |72.C.C..(A$(N)).|
00000680: AD 0E 80 02 82 4E 3A 8B C6 28 41 24 28 33 29 29 |.....N:..(A$(3))|
00000690: B1 30 A7 81 4E B2 32 32 31 A4 32 35 35 3A 43 B2 |.0..N.221.255:C.|
000006A0: 43 AA C6 28 41 24 28 4E 29 29 3A 82 4E 00 DF 0E |C..(A$(N)):.N...|
000006B0: 8A 02 48 32 24 B2 C9 28 22 20 20 20 20 20 22 AA |..H2$..(" ".|
000006C0: C4 28 43 29 2C 35 29 AA 22 20 42 4C 4F 43 4B 53 |.(C),5)." BLOCKS|
000006D0: 20 46 52 45 45 20 20 20 20 20 20 20 20 28 22 00 | FREE (".|
000006E0: 07 0F 94 02 48 32 24 B2 48 32 24 AA 44 4D 24 28 |....H2$.H2$.DM$(|
000006F0: C6 28 41 24 28 33 29 29 AD 31 32 38 29 AA 22 20 |.(A$(3)).128)." |
00000700: 53 49 44 45 44 29 22 00 19 0F 9E 02 50 44 B2 33 |SIDED)".....PD.3|
00000710: 3A 8B 46 B1 32 A7 37 32 30 00 40 0F A8 02 99 22 |:.F.2.720.@...."|
00000720: 11 50 52 49 4E 54 45 44 20 4F 55 54 50 55 54 20 |.PRINTED OUTPUT |
00000730: 57 41 4E 54 45 44 20 28 59 2F 4E 29 3A 20 22 3B |WANTED (Y/N): ";|
00000740: 00 54 0F B2 02 A1 43 24 3A 8B 43 24 B2 22 4E 22 |.T....C$:.C$."N"|
00000750: A7 37 32 30 00 65 0F BC 02 8B 43 24 B3 B1 22 59 |.720.e....C$.."Y|
00000760: 22 A7 36 39 30 00 74 0F C6 02 50 44 B2 34 3A 8D |".690.t...PD.4:.|
00000770: 31 32 32 30 00 7E 0F D0 02 9F 34 2C 50 44 00 92 |1220.~....4,PD..|
00000780: 0F DA 02 8D 31 32 36 30 3A 8B 46 B3 B1 34 A7 38 |....1260:.F..4.8|
00000790: 33 30 00 BC 0F E4 02 99 22 45 4E 54 45 52 20 4E |30......"ENTER N|
000007A0: 45 57 20 44 49 53 4B 20 4E 41 4D 45 20 46 4F 52 |EW DISK NAME FOR|
000007B0: 20 54 48 49 53 20 44 49 53 4B 3A 22 00 D3 0F EE | THIS DISK:"....|
000007C0: 02 8D 31 34 39 30 3A 8B 58 24 B2 53 50 24 A7 31 |..1490:.X$.SP$.1|
000007D0: 32 30 30 00 11 10 F8 02 8B C3 28 58 24 29 B1 31 |200.......(X$).1|
000007E0: 36 A7 99 22 11 49 4E 50 55 54 20 53 54 52 49 4E |6..".INPUT STRIN|
000007F0: 47 20 49 53 20 4C 4F 4E 47 45 52 20 54 48 41 4E |G IS LONGER THAN|
00000800: 20 31 36 20 43 48 41 52 53 21 11 22 3A 89 37 34 | 16 CHARS!.":.74|
00000810: 30 00 34 10 02 03 58 24 B2 C8 28 58 24 AA 22 A0 |0.4...X$..(X$.".|
00000820: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 |..............."|
00000830: 2C 31 36 29 00 58 10 0C 03 98 31 35 2C 22 42 2D |,16).X....15,"B-|
00000840: 50 3A 32 2C 31 34 34 22 3A 8D 31 34 33 30 3A 8B |P:2,144":.1430:.|
00000850: 45 4E B1 30 A7 32 32 30 00 62 10 16 03 98 32 2C |EN.0.220.b....2,|
00000860: 58 24 00 88 10 20 03 98 31 35 2C 22 55 32 3A 32 |X$... ..15,"U2:2|
00000870: 2C 30 2C 22 3B 54 3B 53 3A 8D 31 34 33 30 3A 8B |,0,";T;S:.1430:.|
00000880: 45 4E B1 30 A7 32 32 30 00 95 10 2A 03 98 31 35 |EN.0.220...*..15|
00000890: 2C 22 49 30 22 00 C9 10 34 03 99 22 11 20 20 44 |,"I0"...4..". D|
000008A0: 49 53 4B 20 42 41 4D 20 55 50 44 41 54 45 44 20 |ISK BAM UPDATED |
000008B0: 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 4E 41 |WITH NEW DISK NA|
000008C0: 4D 45 22 3A 89 31 31 33 30 00 F6 10 3E 03 8B 46 |ME":.1130...>..F|
000008D0: B2 33 A7 99 22 53 45 41 52 43 48 49 4E 47 20 46 |.3.."SEARCHING F|
000008E0: 4F 52 20 46 49 4C 45 3A 20 22 3B 51 24 3B 46 4C |OR FILE: ";Q$;FL|
000008F0: 24 3B 51 24 3A 99 00 19 11 48 03 54 B2 C6 28 41 |$;Q$:....H.T..(A|
00000900: 24 28 30 29 29 3A 53 B2 C6 28 41 24 28 31 29 29 |$(0)):S..(A$(1))|
00000910: 3A 8B 54 B1 30 A7 38 37 30 00 39 11 52 03 8B 46 |:.T.0.870.9.R..F|
00000920: B2 33 A7 99 A6 31 32 29 3B 22 46 49 4C 45 20 4E |.3...12);"FILE N|
00000930: 4F 54 20 46 4F 55 4E 44 22 00 43 11 5C 03 89 31 |OT FOUND".C.\..1|
00000940: 31 33 30 00 57 11 66 03 8D 31 33 30 30 3A 8B 45 |130.W.f..1300:.E|
00000950: 4E B1 30 A7 32 32 30 00 75 11 70 03 81 4E B2 32 |N.0.220.u.p..N.2|
00000960: A4 32 32 36 A9 33 32 3A 46 54 B2 C6 28 41 24 28 |.226.32:FT..(A$(|
00000970: 4E 29 29 AF 37 00 89 11 7A 03 8B 46 54 B2 30 AF |N)).7...z..FT.0.|
00000980: 46 B3 B1 32 A7 31 31 39 30 00 AD 11 84 03 43 B2 |F..2.1190.....C.|
00000990: C6 28 41 24 28 4E AA 32 38 29 29 AA 28 C6 28 41 |.(A$(N.28)).(.(A|
000009A0: 24 28 4E AA 32 39 29 29 AC 32 35 36 29 00 DD 11 |$(N.29)).256)...|
000009B0: 8E 03 8B 43 B2 30 A7 48 B2 30 3A 81 58 B2 33 A4 |...C.0.H.0:.X.3.|
000009C0: 31 38 3A 48 B2 48 AA C6 28 41 24 28 4E AA 58 29 |18:H.H..(A$(N.X)|
000009D0: 29 3A 82 58 3A 8B 48 B2 30 A7 37 39 30 00 00 12 |):.X:.H.0.790...|
000009E0: 98 03 4E 24 B2 22 22 3A 81 59 B2 33 A4 31 38 3A |..N$."":.Y.3.18:|
000009F0: 4E 24 B2 4E 24 AA 41 24 28 4E AA 59 29 3A 82 59 |N$.N$.A$(N.Y):.Y|
00000A00: 00 17 12 A2 03 8B 46 B2 33 A7 8B 46 4C 24 B3 B1 |......F.3..FL$..|
00000A10: 4E 24 A7 31 31 39 30 00 3B 12 AC 03 98 34 2C C9 |N$.1190.;....4,.|
00000A20: 28 22 20 20 20 20 20 22 AA C4 28 43 29 2C 35 29 |(" "..(C),5)|
00000A30: 3B 22 20 22 3B 51 24 3B 4E 24 3B 00 62 12 B6 03 |;" ";Q$;N$;.b...|
00000A40: 98 34 2C 51 24 3B 22 20 20 22 3B 54 24 28 46 54 |.4,Q$;" ";T$(FT|
00000A50: 29 3B 22 20 20 22 3B 3A 8B 46 54 B2 30 A7 31 30 |);" ";:.FT.0.10|
00000A60: 31 30 00 93 12 C0 03 4C 4B B2 30 3A 8B 28 C6 28 |10.....LK.0:.(.(|
00000A70: 41 24 28 4E 29 29 AF 31 39 32 29 B2 31 39 32 A7 |A$(N)).192).192.|
00000A80: 98 34 2C 22 28 4C 29 22 3B 3A 4C 4B B2 31 3A 89 |.4,"(L)";:LK.1:.|
00000A90: 39 39 30 00 C3 12 CA 03 4F 50 B2 30 3A 8B 28 C6 |990.....OP.0:.(.|
00000AA0: 28 41 24 28 4E 29 29 AF 31 32 38 29 B2 30 A7 98 |(A$(N)).128).0..|
00000AB0: 34 2C 22 28 4F 29 22 3B 3A 4F 50 B2 31 3A 89 31 |4,"(O)";:OP.1:.1|
00000AC0: 30 31 30 00 D1 12 D4 03 98 34 2C 22 20 20 20 22 |010......4," "|
00000AD0: 3B 00 DE 12 DE 03 98 34 2C 22 20 20 22 3B 00 F2 |;......4," ";..|
00000AE0: 12 E8 03 8D 31 33 33 30 3A 8B 45 4E B1 30 A7 32 |....1330:.EN.0.2|
00000AF0: 32 30 00 04 13 F2 03 98 34 3A 8B 46 B3 B1 33 A7 |20......4:.F..3.|
00000B00: 31 31 34 30 00 35 13 FC 03 8B 4F 50 B2 31 A7 99 |1140.5....OP.1..|
00000B10: 22 11 46 49 4C 45 20 49 53 20 4E 4F 54 20 50 52 |".FILE IS NOT PR|
00000B20: 4F 50 45 52 4C 59 20 43 4C 4F 53 45 44 21 22 3A |OPERLY CLOSED!":|
00000B30: 89 31 31 33 30 00 52 13 06 04 99 22 11 4F 4B 20 |.1130.R....".OK |
00000B40: 54 4F 20 22 3B 3A 8B 4C 4B B2 31 A7 99 22 55 4E |TO ";:.LK.1.."UN|
00000B50: 22 3B 00 6C 13 10 04 99 22 4C 4F 43 4B 20 46 49 |";.l...."LOCK FI|
00000B60: 4C 45 20 28 59 2F 4E 29 3A 20 22 3B 00 81 13 1A |LE (Y/N): ";....|
00000B70: 04 A1 43 24 3A 8B 43 24 B2 22 4E 22 A7 31 32 31 |..C$:.C$."N".121|
00000B80: 30 00 93 13 24 04 8B 43 24 B3 B1 22 59 22 A7 31 |0...$..C$.."Y".1|
00000B90: 30 35 30 00 9B 13 2E 04 99 43 24 00 BD 13 38 04 |050......C$...8.|
00000BA0: 48 B2 28 C6 28 41 24 28 4E 29 29 AF 31 39 31 29 |H.(.(A$(N)).191)|
00000BB0: 3A 8B 4C 4B B2 30 A7 48 B2 48 AA 36 34 00 E0 13 |:.LK.0.H.H.64...|
00000BC0: 42 04 98 31 35 2C 22 42 2D 50 3A 32 2C 22 3B 4E |B..15,"B-P:2,";N|
00000BD0: 3A 8D 31 34 33 30 3A 8B 45 4E B1 30 A7 32 32 30 |:.1430:.EN.0.220|
00000BE0: 00 ED 13 4C 04 98 32 2C C7 28 48 29 3B 00 14 14 |...L..2,.(H);...|
00000BF0: 56 04 98 31 35 2C 22 55 32 3A 32 2C 30 2C 22 3B |V..15,"U2:2,0,";|
00000C00: 54 3B 53 3A 8D 31 34 33 30 3A 3A 8B 45 4E B1 30 |T;S:.1430::.EN.0|
00000C10: A7 32 32 30 00 43 14 60 04 99 22 11 44 49 52 45 |.220.C.`..".DIRE|
00000C20: 43 54 4F 52 59 20 55 50 44 41 54 45 44 20 57 49 |CTORY UPDATED WI|
00000C30: 54 48 20 4E 45 57 20 4C 4F 43 4B 20 53 54 41 54 |TH NEW LOCK STAT|
00000C40: 55 53 22 00 54 14 6A 04 99 3A 8D 31 34 35 30 3A |US".T.j..:.1450:|
00000C50: 89 32 32 30 00 75 14 74 04 4C B2 4C AB 31 3A 8B |.220.u.t.L.L.1:.|
00000C60: 4C B2 30 A7 8D 31 32 34 30 3A 8B 43 24 B2 22 51 |L.0..1240:.C$."Q|
00000C70: 22 A7 32 32 30 00 84 14 7E 04 8B 50 44 B2 33 A7 |".220...~..PD.3.|
00000C80: 31 31 39 30 00 98 14 88 04 A1 43 24 3A 8B 43 24 |1190......C$:.C$|
00000C90: B2 22 22 A7 31 31 39 30 00 CA 14 92 04 99 A6 31 |."".1190.......1|
00000CA0: 30 29 3B 22 11 11 4F 55 54 50 55 54 20 53 55 53 |0);"..OUTPUT SUS|
00000CB0: 50 45 4E 44 45 44 11 22 3A 8D 31 34 36 30 3A 8B |PENDED.":.1460:.|
00000CC0: 43 24 B2 22 51 22 A7 32 32 30 00 D4 14 9C 04 8D |C$."Q".220......|
00000CD0: 31 32 32 30 00 E0 14 A6 04 82 4E 3A 89 38 34 30 |1220......N:.840|
00000CE0: 00 09 15 B0 04 99 A6 38 29 3B 22 11 4E 4F 20 43 |.......8);".NO C|
00000CF0: 48 41 4E 47 45 20 54 4F 20 44 49 53 4B 20 4E 41 |HANGE TO DISK NA|
00000D00: 4D 45 22 3A 89 31 31 33 30 00 36 15 BA 04 99 43 |ME":.1130.6....C|
00000D10: 24 3A 99 A6 38 29 3B 22 11 4E 4F 20 43 48 41 4E |$:..8);".NO CHAN|
00000D20: 47 45 20 54 4F 20 44 49 52 45 43 54 4F 52 59 22 |GE TO DIRECTORY"|
00000D30: 3A 89 31 31 33 30 00 58 15 C4 04 99 22 93 50 52 |:.1130.X....".PR|
00000D40: 49 4E 54 49 4E 47 20 44 49 53 4B 20 44 49 52 45 |INTING DISK DIRE|
00000D50: 43 54 4F 52 59 11 11 22 00 7F 15 CE 04 99 22 50 |CTORY.."......"P|
00000D60: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000D70: 50 41 55 53 45 20 4F 55 54 50 55 54 22 3A 8E 00 |PAUSE OUTPUT":..|
00000D80: A3 15 D8 04 8B 50 44 B2 34 A7 81 58 B2 31 A4 31 |.....PD.4..X.1.1|
00000D90: 30 3A 98 34 3A 82 58 3A 43 24 B2 22 22 3A 89 31 |0:.4:.X:C$."":.1|
00000DA0: 32 36 30 00 B7 15 E2 04 8D 31 34 36 30 3A 8B 43 |260......1460:.C|
00000DB0: 24 B2 22 51 22 A7 8E 00 D2 15 EC 04 4C B2 35 30 |$."Q".......L.50|
00000DC0: 3A 8B 50 44 B2 33 A7 4C B2 31 36 3A 99 22 93 11 |:.PD.3.L.16:."..|
00000DD0: 22 3B 00 E7 15 F6 04 98 34 2C 48 31 24 3A 98 34 |";......4,H1$:.4|
00000DE0: 3A 98 34 2C 48 32 24 00 1C 16 00 05 98 34 3A 98 |:.4,H2$......4:.|
00000DF0: 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |4,"-------------|
00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 25 16 0A |-----------".%..|
00000E20: 05 98 34 3A 8E 00 49 16 14 05 98 31 35 2C 22 55 |..4:..I....15,"U|
00000E30: 31 3A 32 2C 30 2C 22 3B 54 3B 53 3A 8D 31 34 33 |1:2,0,";T;S:.143|
00000E40: 30 3A 8B 45 4E B1 30 A7 8E 00 74 16 1E 05 81 4E |0:.EN.0...t....N|
00000E50: B2 30 A4 32 35 35 3A A1 23 32 2C 41 24 28 4E 29 |.0.255:.#2,A$(N)|
00000E60: 3A 8B 41 24 28 4E 29 B2 22 22 A7 41 24 28 4E 29 |:.A$(N)."".A$(N)|
00000E70: B2 4E 4C 24 00 7D 16 28 05 82 4E 3A 8E 00 8D 16 |.NL$.}.(..N:....|
00000E80: 32 05 45 4E B2 30 3A 8B 46 B2 33 A7 8E 00 AB 16 |2.EN.0:.F.3.....|
00000E90: 3C 05 54 B2 C6 28 41 24 28 4E AA 31 29 29 3A 53 |<.T..(A$(N.1)):S|
00000EA0: B2 C6 28 41 24 28 4E AA 32 29 29 00 C1 16 46 05 |..(A$(N.2))...F.|
00000EB0: 8B 28 45 4E AA 48 29 B1 30 B0 46 54 B3 B1 34 A7 |.(EN.H).0.FT..4.|
00000EC0: 8E 00 E1 16 50 05 54 B2 C6 28 41 24 28 4E AA 31 |....P.T..(A$(N.1|
00000ED0: 39 29 29 3A 53 B2 C6 28 4E 24 28 4E AA 32 30 29 |9)):S..(N$(N.20)|
00000EE0: 29 00 FF 16 5A 05 48 B2 30 3A 8B 54 B1 33 35 A7 |)...Z.H.0:.T.35.|
00000EF0: 48 B2 31 3A 98 34 2C 22 28 32 29 22 3B 3A 8E 00 |H.1:.4,"(2)";:..|
00000F00: 23 17 64 05 98 31 35 2C 22 55 31 3A 32 2C 30 2C |#.d..15,"U1:2,0,|
00000F10: 22 3B 54 3B 53 3A 8D 31 34 33 30 3A 8B 45 4E B1 |";T;S:.1430:.EN.|
00000F20: 30 A7 8E 00 3F 17 6E 05 A1 23 32 2C 43 24 2C 44 |0...?.n..#2,C$,D|
00000F30: 24 3A 8B 43 24 B2 22 22 A7 43 24 B2 4E 4C 24 00 |$:.C$."".C$.NL$.|
00000F40: 51 17 78 05 8B 44 24 B2 22 22 A7 44 24 B2 4E 4C |Q.x..D$."".D$.NL|
00000F50: 24 00 6F 17 82 05 54 B2 C6 28 43 24 29 3A 53 B2 |$.o...T..(C$):S.|
00000F60: C6 28 44 24 29 3A 8B 54 B1 30 A7 31 33 37 30 00 |.(D$):.T.0.1370.|
00000F70: 75 17 8C 05 8E 00 92 17 96 05 84 31 35 2C 45 4E |u..........15,EN|
00000F80: 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 |,EM$,ET,ES:.EN.0|
00000F90: A7 8E 00 CA 17 A0 05 99 3A 99 22 12 44 49 53 4B |........:.".DISK|
00000FA0: 20 45 52 52 4F 52 3A 92 22 3B 45 4E 3B 22 20 20 | ERROR:.";EN;" |
00000FB0: 12 54 52 4B 2F 53 45 43 3A 92 22 3B 45 54 3B 22 |.TRK/SEC:.";ET;"|
00000FC0: 2F 22 3B 45 53 3A 99 45 4D 24 00 00 18 AA 05 99 |/";ES:.EM$......|
00000FD0: 22 12 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |". PRESS A|
00000FE0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00000FF0: 55 45 20 20 20 20 20 20 20 22 3A 89 31 34 37 30 |UE ":.1470|
00001000: 00 32 18 B4 05 99 22 11 12 50 52 45 53 53 20 41 |.2...."..PRESS A|
00001010: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00001020: 55 45 2C 20 27 51 27 20 54 4F 20 51 55 49 54 92 |UE, 'Q' TO QUIT.|
00001030: 22 3B 00 46 18 BE 05 A1 43 24 3A 8B 43 24 B2 22 |";.F....C$:.C$."|
00001040: 22 A7 31 34 37 30 00 4C 18 C8 05 8E 00 68 18 D2 |".1470.L.....h..|
00001050: 05 99 22 1D 1D 1D 22 3B 53 50 24 3B 22 9D 9D 9D |.."...";SP$;"...|
00001060: 22 3B 3A 85 58 24 3A 8E 00 76 18 DC 05 A0 32 3A |";:.X$:..v....2:|
00001070: A0 34 3A A0 31 35 00 00 00 |.4:.15... |
..A...T$(0)."DEL":T$(1)."SEQ":T$(2)."PRG
":T$(3)."USR":T$(4)."REL".E.H.DM$(0)."SI
NGLE":DM$(1)."DOUBLE"...R..A$(256):NL$.G
(0):Q$.G(34):SP$.G(160)......". .CC
CCCCCCCCCCCCCCCCCCCCCCC."......" B
DISK UTILITIES B"......" .
CCCCCCCCCCCCCCCCCCCCCCCCC..".#... 2: 4:
15:.15,8,15.:....15,"U0>M9":.15,EN.O....
EN..31.DT.0:DM.0:..11);"DISK DRIVE = 154
1":.300.....DT.1:.15,"U0>H0":.15,EN:DM.0
:.EN.31.DM.1.P.".."DISK DRIVE = 1571, IN
";DM$(DM);" SIDED MODE"...,.."CCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC".,.6.."
1 = NORMAL DIRECTORY (SIDE 1/2)".[.@
.." 2 = FULL DIRECTORY (DELETED FILE
S)".Y.J.." 3 = LOCK/UNLOCK FILE"...T.."
4 = CHANGE DISK NAME"...^.." 5 = ISSU
E DISK COMMAND".Y.H.ML.5:AM.(DM.1).1:.DT
.0..:.390...R.." 6 = SWITCH DRIVE TO ";
DM$(AM);" SIDED MODE":ML.6.$.|..22);"...
...".6...." Q = QUIT".E...."CCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCC"......".DES
IRED FUNCTION : ";......C$:.C$."".420...
...C$."Q"..C$:.1500.E...F.E(C$):.F.1.F.M
L.420...B..C$:.F.550,550,520,550,470...L
..15,"U0>M".G(48.AM):.220.+.V..".DESIRED
DISK COMMAND (IN QUOTES):".A....1490:.X
$.SP$.220.]....15,X$:.15,EN,EM$,ET,ES...
...".ERROR#:";EN;" TRK/SEC:";ET;"/";ES
......EM$:.1450:.220.D....".FILENAME TO
BE LOCKED/UNLOCKED:".Z....1490:.X$.SP$.2
20.....FL$.H(X$." ",16).&
.&..15,"I0":.15,EN,EM$,ET,ES:.EN.0.580.H
.0..EN..21.T..18.S..0..1440:.220.~.:..".
PLEASE INSERT DISK & RESELECT FUNCTION!"
:.1130...D..2,8,2,"#0":.1430:.EN.0.220.K
.N..".OK, READING BLOCK AVAIL MAP (BAM).
.."...X.T.18:S.0:.1300:.EN.0.220...B.H1$
."DISK ".Q$:.N.144.159:H1$.H1$.A$(N):.N.
X.L.H1$.H1$.Q$." ID=".A$(162).A$(163)."
FMT=".A$(165).A$(166)..V.C.0:.N.4.14
0.4:.N..72.C.C.F(A$(N))......N:.F(A$(3))
.0..N.221.255:C.C.F(A$(N)):.N.....H2$.I(
" ".D(C),5)." BLOCKS FREE (".
....H2$.H2$.DM$(F(A$(3)).128)." SIDED)".
....PD.3:.F.2.720.@....".PRINTED OUTPUT
WANTED (Y/N): ";.T....C$:.C$."N".720.E..
..C$.."Y".690.T.F.PD.4:.1220.~.P..4,PD..
.Z..1260:.F..4.830......"ENTER NEW DISK
NAME FOR THIS DISK:".S....1490:.X$.SP$.1
200......C(X$).16..".INPUT STRING IS LON
GER THAN 16 CHARS!.":.740.4...X$.H(X$."
",16).X....15,"B-P:2,144"
:.1430:.EN.0.220.B....2,X$... ..15,"U2:2
,0,";T;S:.1430:.EN.0.220...*..15,"I0".I.
4..". DISK BAM UPDATED WITH NEW DISK NA
ME":.1130...>..F.3.."SEARCHING FOR FILE:
";Q$;FL$;Q$:....H.T.F(A$(0)):S.F(A$(1))
:.T.0.870.9.R..F.3...12);"FILE NOT FOUND
".C.\..1130.W.F..1300:.EN.0.220.U.P..N.2
.226.32:FT.F(A$(N)).7...Z..FT.0.F..2.119
0.....C.F(A$(N.28)).(F(A$(N.29)).256)...
...C.0.H.0:.X.3.18:H.H.F(A$(N.X)):.X:.H.
0.790.....N$."":.Y.3.18:N$.N$.A$(N.Y):.Y
......F.3..FL$..N$.1190.;....4,I(" "
.D(C),5);" ";Q$;N$;.B....4,Q$;" ";T$(FT
);" ";:.FT.0.1010.....LK.0:.(F(A$(N)).1
92).192..4,"(L)";:LK.1:.990.C.J.OP.0:.(F
(A$(N)).128).0..4,"(O)";:OP.1:.1010.Q.T.
.4," ";......4," ";......1330:.EN.0.2
20......4:.F..3.1140.5....OP.1..".FILE I
S NOT PROPERLY CLOSED!":.1130.R....".OK
TO ";:.LK.1.."UN";.L...."LOCK FILE (Y/N)
: ";......C$:.C$."N".1210...$..C$.."Y".1
050......C$...8.H.(F(A$(N)).191):.LK.0.H
.H.64...B..15,"B-P:2,";N:.1430:.EN.0.220
...L..2,G(H);...V..15,"U2:2,0,";T;S:.143
0::.EN.0.220.C.`..".DIRECTORY UPDATED WI
TH NEW LOCK STATUS".T.J..:.1450:.220.U.T
.L.L.1:.L.0..1240:.C$."Q".220...~..PD.3.
1190......C$:.C$."".1190.J.....10);"..OU
TPUT SUSPENDED.":.1460:.C$."Q".220.T....
1220......N:.840.......8);".NO CHANGE TO
DISK NAME":.1130.6....C$:..8);".NO CHAN
GE TO DIRECTORY":.1130.X.D..".PRINTING D
ISK DIRECTORY.."..N.."PRESS ANY KEY TO
PAUSE OUTPUT":....X..PD.4..X.1.10:.4:.X:
C$."":.1260......1460:.C$."Q"...R...L.50
:.PD.3.L.16:."..";......4,H1$:.4:.4,H2$.
.....4:.4,"-----------------------------
-----------".%....4:..I....15,"U1:2,0,";
T;S:.1430:.EN.0...T....N.0.255:.#2,A$(N)
:.A$(N)."".A$(N).NL$.}.(..N:....2.EN.0:.
F.3.....<.T.F(A$(N.1)):S.F(A$(N.2)).A.F.
.(EN.H).0.FT..4.....P.T.F(A$(N.19)):S.F(
N$(N.20))...Z.H.0:.T.35.H.1:.4,"(2)";:..
#.D..15,"U1:2,0,";T;S:.1430:.EN.0...?.N.
.#2,C$,D$:.C$."".C$.NL$.Q.X..D$."".D$.NL
$.O...T.F(C$):S.F(D$):.T.0.1370.U.......
...15,EN,EM$,ET,ES:.EN.0...J. ..:.".DISK
ERROR:.";EN;" .TRK/SEC:.";ET;"/";ES:.E
M$......". PRESS ANY KEY TO CONTIN
UE ":.1470.2...."..PRESS ANY KEY T
O CONTINUE, 'Q' TO QUIT.";.F....C$:.C$."
".1470.L.H...H.R.."...";SP$;"...";:.X$:.
.V... 2: 4: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL