DISK UTILITY
FILE INFORMATION
FILENAME(S): DISK UTILITY
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-02 16:39:54
APPEARS ON: 2 disk(s)
FILE HASH
603facc26abc2b6179dada136871e4c9edb521533baacc0f69635f840dc0e62f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 6 | DISK UTILITY | PRG | Treasure Chest - Plattfuss | 3 | 1 | DOWNLOAD FILE |
| 17 | DISK UTILITY | PRG | Treasure Chest - Plattfuss | 4 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 49 1C B4 00 8F 20 2A 2A 2A 2A 20 50 52 4F |..I.... **** PRO|
00000010: 47 52 41 4D 20 4E 41 4D 45 20 2D 2D 2D 20 44 49 |GRAM NAME --- DI|
00000020: 53 4B 20 55 54 49 4C 49 54 59 20 20 20 20 20 20 |SK UTILITY |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 2A 2A 2A 2A 00 91 1C B5 00 8F 20 | ****...... |
00000050: 2A 2A 2A 2A 20 54 48 49 53 20 55 54 49 4C 49 54 |**** THIS UTILIT|
00000060: 59 20 57 41 53 20 43 4F 50 49 45 44 20 4F 55 54 |Y WAS COPIED OUT|
00000070: 20 4F 46 20 43 4F 4D 4D 4F 44 4F 52 45 20 4D 49 | OF COMMODORE MI|
00000080: 43 52 4F 43 4F 4D 50 55 54 45 52 53 20 2A 2A 2A |CROCOMPUTERS ***|
00000090: 2A 00 D9 1C B6 00 8F 20 2A 2A 2A 2A 20 4D 41 47 |*...... **** MAG|
000000A0: 41 5A 49 4E 45 2E 20 4D 41 59 2F 4A 55 4E 45 20 |AZINE. MAY/JUNE |
000000B0: 31 39 38 36 20 49 53 53 55 45 20 20 20 20 20 20 |1986 ISSUE |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 2A 2A 2A 2A 00 19 1D BE 00 54 24 | ****.....T$|
000000E0: 28 30 29 B2 22 44 45 4C 22 3A 54 24 28 31 29 B2 |(0)."DEL":T$(1).|
000000F0: 22 53 45 51 22 3A 54 24 28 32 29 B2 22 50 52 47 |"SEQ":T$(2)."PRG|
00000100: 22 3A 54 24 28 33 29 B2 22 55 53 52 22 3A 54 24 |":T$(3)."USR":T$|
00000110: 28 34 29 B2 22 52 45 4C 22 00 3D 1D C8 00 44 4D |(4)."REL".=...DM|
00000120: 24 28 30 29 B2 22 53 49 4E 47 4C 45 22 3A 44 4D |$(0)."SINGLE":DM|
00000130: 24 28 31 29 B2 22 44 4F 55 42 4C 45 22 00 68 1D |$(1)."DOUBLE".h.|
00000140: D2 00 86 20 41 24 28 32 35 36 29 3A 44 4C 24 B2 |... A$(256):DL$.|
00000150: C7 28 30 29 3A 51 24 B2 C7 28 33 34 29 3A 53 50 |.(0):Q$..(34):SP|
00000160: 24 B2 C7 28 31 36 30 29 00 93 1D DC 00 99 20 22 |$..(160)...... "|
00000170: 93 20 20 20 20 20 20 B0 C3 C3 C3 C3 C3 C3 C3 C3 |. .........|
00000180: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000190: C3 AE 22 00 BD 1D E6 00 99 20 22 20 20 20 20 20 |.."...... " |
000001A0: 20 C2 20 20 20 20 20 20 20 44 49 53 4B 20 55 54 | . DISK UT|
000001B0: 49 4C 49 54 59 20 20 20 20 20 20 C2 22 00 E8 1D |ILITY ."...|
000001C0: F0 00 99 20 22 20 20 20 20 20 20 AD C3 C3 C3 C3 |... " .....|
000001D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000001E0: C3 C3 C3 C3 C3 BD 11 22 00 03 1E FA 00 A0 20 32 |......."...... 2|
000001F0: 3A A0 20 34 3A A0 20 31 35 3A 9F 20 31 35 2C 38 |:. 4:. 15:. 15,8|
00000200: 2C 31 35 00 1A 1E 04 01 98 31 35 2C 22 55 30 3E |,15......15,"U0>|
00000210: 4D 39 22 3A 84 31 35 2C 45 4E 00 54 1E 0E 01 8B |M9":.15,EN.T....|
00000220: 20 45 4E B3 B1 33 31 20 A7 20 44 54 B2 30 3A 44 | EN..31 . DT.0:D|
00000230: 4D B2 30 3A 99 20 A6 31 31 29 3B 22 44 49 53 4B |M.0:. .11);"DISK|
00000240: 20 44 52 49 56 45 20 3D 20 31 35 34 31 22 3A 89 | DRIVE = 1541":.|
00000250: 20 33 30 30 00 84 1E 18 01 44 54 B2 31 3A 98 31 | 300.....DT.1:.1|
00000260: 35 2C 22 55 30 3E 48 30 22 3A 84 31 35 2C 45 4E |5,"U0>H0":.15,EN|
00000270: 3A 44 4D B2 30 3A 8B 20 45 4E B2 33 31 20 A7 20 |:DM.0:. EN.31 . |
00000280: 44 4D B2 31 00 B9 1E 22 01 99 20 22 44 49 53 4B |DM.1...".. "DISK|
00000290: 20 44 52 49 56 45 20 3D 20 31 35 37 31 2C 20 49 | DRIVE = 1571, I|
000002A0: 4E 20 22 3B 44 4D 24 28 44 4D 29 3B 22 20 53 49 |N ";DM$(DM);" SI|
000002B0: 44 45 44 20 4D 4F 44 45 22 00 E9 1E 2C 01 99 20 |DED MODE"...,.. |
000002C0: 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
000002D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000002E0: C3 C3 C3 C3 C3 C3 C3 C3 22 00 17 1F 36 01 99 20 |........"...6.. |
000002F0: 22 20 20 31 20 3D 20 4E 4F 52 4D 41 4C 20 44 49 |" 1 = NORMAL DI|
00000300: 52 45 43 54 4F 52 59 20 20 20 20 20 28 53 49 44 |RECTORY (SID|
00000310: 45 20 31 2F 32 29 22 00 46 1F 40 01 99 20 22 20 |E 1/2)".F.@.. " |
00000320: 20 32 20 3D 20 46 55 4C 4C 20 44 49 52 45 43 54 | 2 = FULL DIRECT|
00000330: 4F 52 59 20 20 20 20 28 44 45 4C 45 54 45 20 46 |ORY (DELETE F|
00000340: 49 4C 45 53 29 22 00 65 1F 4A 01 99 20 22 20 20 |ILES)".e.J.. " |
00000350: 33 20 3D 20 4C 4F 43 4B 2F 55 4E 4C 4F 43 4B 20 |3 = LOCK/UNLOCK |
00000360: 46 49 4C 45 22 00 84 1F 54 01 99 20 22 20 20 34 |FILE"...T.. " 4|
00000370: 20 3D 20 43 48 41 4E 47 45 20 44 49 53 4B 20 4E | = CHANGE DISK N|
00000380: 41 4D 45 22 00 A5 1F 5E 01 99 20 22 20 20 35 20 |AME"...^.. " 5 |
00000390: 3D 20 49 53 53 55 45 20 44 49 53 4B 20 43 4F 4D |= ISSUE DISK COM|
000003A0: 4D 41 4E 44 22 00 CD 1F 68 01 4D 4C B2 35 3A 41 |MAND"...h.ML.5:A|
000003B0: 4D B2 28 44 4D AA 31 29 20 AF 20 31 3A 8B 20 44 |M.(DM.1) . 1:. D|
000003C0: 54 B2 30 20 A7 20 99 3A 89 20 33 39 30 00 07 20 |T.0 . .:. 390.. |
000003D0: 72 01 99 20 22 20 20 36 20 3D 20 53 57 49 54 43 |r.. " 6 = SWITC|
000003E0: 48 20 44 52 49 56 45 20 54 4F 20 22 3B 44 4D 24 |H DRIVE TO ";DM$|
000003F0: 28 41 4D 29 3B 22 20 53 49 44 45 44 20 4D 4F 44 |(AM);" SIDED MOD|
00000400: 45 22 3A 4D 4C B2 36 00 1B 20 7C 01 99 20 A6 32 |E":ML.6.. |.. .2|
00000410: 32 29 3B 22 A3 A3 A3 A3 A3 A3 22 00 2F 20 86 01 |2);"......"./ ..|
00000420: 99 20 22 91 20 20 51 20 3D 20 51 55 49 54 22 00 |. ". Q = QUIT".|
00000430: 5F 20 90 01 99 20 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 |_ ... ".........|
00000440: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000450: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 |..............".|
00000460: 7C 20 9A 01 99 20 22 11 44 45 53 49 52 45 44 20 || ... ".DESIRED |
00000470: 46 55 4E 43 54 49 4F 4E 3A 20 22 3B 00 93 20 A4 |FUNCTION: ";.. .|
00000480: 01 A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 |.. C$:. C$."" . |
00000490: 34 32 30 00 AE 20 AE 01 8B 20 43 24 B2 22 51 22 |420.. ... C$."Q"|
000004A0: 20 A7 20 99 20 43 24 3A 89 20 31 35 30 30 00 CD | . . C$:. 1500..|
000004B0: 20 B8 01 46 B2 C5 28 43 24 29 3A 8B 20 46 B3 31 | ..F..(C$):. F.1|
000004C0: 20 B0 20 46 B1 4D 4C 20 A7 20 34 32 30 00 F0 20 | . F.ML . 420.. |
000004D0: C2 01 99 20 43 24 3A 91 20 46 20 89 20 35 35 30 |... C$:. F . 550|
000004E0: 2C 35 35 30 2C 35 32 30 2C 35 35 30 2C 34 37 30 |,550,520,550,470|
000004F0: 00 0E 21 CC 01 98 31 35 2C 22 55 30 3E 4D 22 AA |..!...15,"U0>M".|
00000500: C7 28 34 38 AA 41 4D 29 3A 89 20 32 32 30 00 39 |.(48.AM):. 220.9|
00000510: 21 D6 01 99 20 22 11 44 45 53 49 52 45 44 20 44 |!... ".DESIRED D|
00000520: 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 28 49 4E 20 |ISK COMMAND (IN |
00000530: 51 55 4F 54 45 53 29 3A 22 00 53 21 E0 01 8D 20 |QUOTES):".S!... |
00000540: 31 34 39 30 3A 8B 20 58 24 B2 53 50 24 20 A7 20 |1490:. X$.SP$ . |
00000550: 32 32 30 00 6F 21 EA 01 98 31 35 2C 58 24 3A 84 |220.o!...15,X$:.|
00000560: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.|
00000570: 9B 21 F4 01 99 20 22 11 45 52 52 4F 52 23 3A 22 |.!... ".ERROR#:"|
00000580: 3B 45 4E 3B 22 20 20 20 54 52 4B 2F 53 45 43 3A |;EN;" TRK/SEC:|
00000590: 22 3B 45 54 3B 22 2F 22 3B 45 53 00 B2 21 FE 01 |";ET;"/";ES..!..|
000005A0: 99 20 45 4D 24 3A 8D 20 31 34 35 30 3A 89 20 32 |. EM$:. 1450:. 2|
000005B0: 32 30 00 DB 21 08 02 99 20 22 11 46 49 4C 45 4E |20..!... ".FILEN|
000005C0: 41 4D 45 20 54 4F 20 42 45 20 4C 4F 43 4B 45 44 |AME TO BE LOCKED|
000005D0: 2F 55 4E 4C 4F 43 4B 45 44 3A 22 00 F5 21 12 02 |/UNLOCKED:"..!..|
000005E0: 8D 20 31 34 39 30 3A 8B 20 58 24 B2 53 50 24 20 |. 1490:. X$.SP$ |
000005F0: A7 20 32 32 30 00 2F 22 1C 02 46 4C 24 B2 C8 28 |. 220./"..FL$..(|
00000600: 58 24 AA 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |X$."............|
00000610: A0 A0 A0 A0 22 2C 31 36 29 3A 8F 20 28 31 36 20 |....",16):. (16 |
00000620: 53 48 49 46 54 45 44 20 53 50 41 43 45 53 29 00 |SHIFTED SPACES).|
00000630: 5A 22 26 02 98 31 35 2C 22 49 30 22 3A 84 31 35 |Z"&..15,"I0":.15|
00000640: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 |,EN,EM$,ET,ES:. |
00000650: 45 4E B2 30 20 A7 20 35 38 30 00 85 22 30 02 8B |EN.0 . 580.."0..|
00000660: 20 45 4E B3 B1 32 31 20 AF 20 54 B3 B1 31 38 20 | EN..21 . T..18 |
00000670: AF 20 53 B3 B1 30 20 A7 20 8D 20 31 34 34 30 3A |. S..0 . . 1440:|
00000680: 89 20 32 32 30 00 BD 22 3A 02 99 20 22 11 50 4C |. 220..":.. ".PL|
00000690: 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B |EASE INSERT DISK|
000006A0: 20 26 20 52 45 53 45 4C 45 43 54 20 46 55 4E 43 | & RESELECT FUNC|
000006B0: 54 49 4F 4E 21 22 3A 89 20 31 31 33 30 00 D5 22 |TION!":. 1130.."|
000006C0: 44 02 9F 20 32 2C 38 2C 32 2C 22 23 30 22 3A 8D |D.. 2,8,2,"#0":.|
000006D0: 20 31 34 33 30 00 04 23 4E 02 99 20 22 11 4F 4B | 1430..#N.. ".OK|
000006E0: 2C 20 52 45 41 44 49 4E 47 20 42 4C 4F 43 4B 20 |, READING BLOCK |
000006F0: 41 56 41 49 4C 20 4D 41 50 20 28 42 41 4D 29 A0 |AVAIL MAP (BAM).|
00000700: 2E 2E 2E 22 00 25 23 58 02 54 B2 31 38 3A 53 B2 |...".%#X.T.18:S.|
00000710: 30 3A 8D 20 31 33 30 30 3A 8B 20 45 4E B1 30 20 |0:. 1300:. EN.0 |
00000720: A7 20 32 32 30 00 58 23 62 02 48 31 24 B2 22 44 |. 220.X#b.H1$."D|
00000730: 49 53 4B 20 22 AA 51 24 3A 81 20 4E B2 31 34 34 |ISK ".Q$:. N.144|
00000740: 20 A4 20 31 35 39 3A 48 31 24 B2 48 31 24 AA 41 | . 159:H1$.H1$.A|
00000750: 24 28 4E 29 3A 82 20 4E 00 99 23 6C 02 48 31 24 |$(N):. N..#l.H1$|
00000760: B2 48 31 24 AA 51 24 AA 22 20 20 49 44 3D 22 AA |.H1$.Q$." ID=".|
00000770: 41 24 28 31 36 32 29 AA 41 24 28 31 36 33 29 AA |A$(162).A$(163).|
00000780: 22 20 20 20 46 4D 54 3D 22 AA 41 24 28 31 36 35 |" FMT=".A$(165|
00000790: 29 AA 41 24 28 31 36 36 29 00 C8 23 76 02 43 B2 |).A$(166)..#v.C.|
000007A0: 30 3A 81 20 4E B2 34 20 A4 20 31 34 30 20 A9 20 |0:. N.4 . 140 . |
000007B0: 34 3A 8B 20 4E B3 B1 37 32 20 A7 20 43 B2 43 AA |4:. N..72 . C.C.|
000007C0: C6 28 41 24 28 4E 29 29 00 FE 23 80 02 82 20 4E |.(A$(N))..#... N|
000007D0: 3A 8B 20 C6 28 41 24 28 33 29 29 B1 30 20 A7 20 |:. .(A$(3)).0 . |
000007E0: 81 20 4E B2 32 32 31 20 A4 20 32 35 35 3A 43 B2 |. N.221 . 255:C.|
000007F0: 43 AA C6 28 41 24 28 4E 29 29 3A 82 20 4E 00 30 |C..(A$(N)):. N.0|
00000800: 24 8A 02 48 32 24 B2 C9 28 22 20 20 20 20 20 22 |$..H2$..(" "|
00000810: AA C4 28 43 29 2C 35 29 AA 22 20 42 4C 4F 43 4B |..(C),5)." BLOCK|
00000820: 53 20 46 52 45 45 20 20 20 20 20 20 20 20 28 22 |S FREE ("|
00000830: 00 57 24 94 02 48 32 24 B2 48 32 24 AA 44 4D 24 |.W$..H2$.H2$.DM$|
00000840: 28 C6 28 41 24 28 33 29 29 AD 31 32 38 29 AA 22 |(.(A$(3)).128)."|
00000850: 53 49 44 45 44 29 22 00 6C 24 9E 02 50 44 B2 33 |SIDED)".l$..PD.3|
00000860: 3A 8B 20 46 B1 32 20 A7 20 37 32 30 00 94 24 A8 |:. F.2 . 720..$.|
00000870: 02 99 20 22 11 50 52 49 4E 54 45 44 20 4F 55 54 |.. ".PRINTED OUT|
00000880: 50 55 54 20 57 41 4E 54 45 44 20 28 59 2F 4E 29 |PUT WANTED (Y/N)|
00000890: 3A 20 22 3B 00 AC 24 B2 02 A1 20 43 24 3A 8B 20 |: ";..$... C$:. |
000008A0: 43 24 B2 22 4E 22 20 A7 20 37 32 30 00 C0 24 BC |C$."N" . 720..$.|
000008B0: 02 8B 20 43 24 B3 B1 22 59 22 20 A7 20 36 39 30 |.. C$.."Y" . 690|
000008C0: 00 D0 24 C6 02 50 44 B2 34 3A 8D 20 31 32 32 30 |..$..PD.4:. 1220|
000008D0: 00 DB 24 D0 02 9F 20 34 2C 50 44 00 F3 24 DA 02 |..$... 4,PD..$..|
000008E0: 8D 20 31 32 36 30 3A 8B 20 46 B3 B1 34 20 A7 20 |. 1260:. F..4 . |
000008F0: 38 33 30 00 1E 25 E4 02 99 20 22 45 4E 54 45 52 |830..%... "ENTER|
00000900: 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 20 46 | NEW DISK NAME F|
00000910: 4F 52 20 54 48 49 53 20 44 49 53 4B 3A 22 00 39 |OR THIS DISK:".9|
00000920: 25 EE 02 8D 20 31 34 39 30 3A 8B 20 58 24 B2 53 |%... 1490:. X$.S|
00000930: 50 24 20 A7 20 31 32 30 30 00 7C 25 F8 02 8B 20 |P$ . 1200.|%... |
00000940: C3 28 58 24 29 B1 31 36 20 A7 20 99 20 22 11 49 |.(X$).16 . . ".I|
00000950: 4E 50 55 54 20 53 54 52 49 4E 47 20 49 53 20 4C |NPUT STRING IS L|
00000960: 4F 4E 47 45 52 20 54 48 45 4E 20 31 36 20 43 48 |ONGER THEN 16 CH|
00000970: 41 52 53 21 11 22 3A 89 20 37 34 30 00 B3 25 02 |ARS!.":. 740..%.|
00000980: 03 58 24 B2 C8 28 58 24 AA 22 A0 A0 A0 A0 A0 A0 |.X$..(X$."......|
00000990: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 2C 31 36 29 3A |..........",16):|
000009A0: 8F 20 31 36 20 53 48 49 46 54 45 44 20 53 50 41 |. 16 SHIFTED SPA|
000009B0: 43 45 53 00 DB 25 0C 03 98 31 35 2C 22 42 2D 50 |CES..%...15,"B-P|
000009C0: 3A 32 2C 31 34 34 22 3A 8D 20 31 34 33 30 3A 8B |:2,144":. 1430:.|
000009D0: 20 45 4E B1 30 20 A7 20 32 32 30 00 E6 25 16 03 | EN.0 . 220..%..|
000009E0: 98 32 2C 58 24 3B 00 10 26 20 03 98 31 35 2C 22 |.2,X$;..& ..15,"|
000009F0: 55 32 3A 32 2C 30 2C 22 3B 54 3B 53 3A 8D 20 31 |U2:2,0,";T;S:. 1|
00000A00: 34 33 30 3A 8B 20 45 4E B1 30 20 A7 20 32 32 30 |430:. EN.0 . 220|
00000A10: 00 1D 26 2A 03 98 31 35 2C 22 49 30 22 00 53 26 |..&*..15,"I0".S&|
00000A20: 34 03 99 20 22 11 20 20 44 49 53 4B 20 42 41 4D |4.. ". DISK BAM|
00000A30: 20 55 50 44 41 54 45 44 20 57 49 54 48 20 4E 45 | UPDATED WITH NE|
00000A40: 57 20 44 49 53 4B 20 4E 41 4D 45 22 3A 89 20 31 |W DISK NAME":. 1|
00000A50: 31 33 30 00 84 26 3E 03 8B 20 46 B2 33 20 A7 20 |130..&>.. F.3 . |
00000A60: 99 20 22 53 45 41 52 43 48 49 4E 47 20 46 4F 52 |. "SEARCHING FOR|
00000A70: 20 46 49 4C 45 3A 20 22 3B 51 24 3B 46 4C 24 3B | FILE: ";Q$;FL$;|
00000A80: 51 24 3A 99 00 AA 26 48 03 54 B2 C6 28 41 24 28 |Q$:...&H.T..(A$(|
00000A90: 30 29 29 3A 53 B2 C6 28 41 24 28 31 29 29 3A 8B |0)):S..(A$(1)):.|
00000AA0: 20 54 B1 30 20 A7 20 38 37 30 00 CE 26 52 03 8B | T.0 . 870..&R..|
00000AB0: 20 46 B2 33 20 A7 20 99 20 A6 31 32 29 3B 22 46 | F.3 . . .12);"F|
00000AC0: 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 22 00 D9 |ILE NOT FOUND"..|
00000AD0: 26 5C 03 89 20 31 31 33 30 00 F1 26 66 03 8D 20 |&\.. 1130..&f.. |
00000AE0: 31 33 30 30 3A 8B 20 45 4E B1 30 20 A7 20 32 32 |1300:. EN.0 . 22|
00000AF0: 30 00 16 27 70 03 81 20 4E B2 32 20 A4 20 32 32 |0..'p.. N.2 . 22|
00000B00: 36 20 A9 20 33 32 3A 46 54 B2 C6 28 41 24 28 4E |6 . 32:FT..(A$(N|
00000B10: 29 29 20 AF 20 37 00 2F 27 7A 03 8B 20 46 54 B2 |)) . 7./'z.. FT.|
00000B20: 30 20 AF 20 46 B3 B1 32 20 A7 20 31 31 39 30 00 |0 . F..2 . 1190.|
00000B30: 53 27 84 03 43 B2 C6 28 41 24 28 4E AA 32 38 29 |S'..C..(A$(N.28)|
00000B40: 29 AA 28 C6 28 41 24 28 4E AA 32 39 29 29 AC 32 |).(.(A$(N.29)).2|
00000B50: 35 36 29 00 8D 27 8E 03 8B 20 43 B2 30 20 A7 20 |56)..'... C.0 . |
00000B60: 48 B2 30 3A 81 20 58 B2 33 20 A4 20 31 38 3A 48 |H.0:. X.3 . 18:H|
00000B70: B2 48 AA C6 28 41 24 28 4E AA 58 29 29 3A 82 20 |.H..(A$(N.X)):. |
00000B80: 58 3A 8B 20 48 B2 30 20 A7 20 37 39 30 00 B4 27 |X:. H.0 . 790..'|
00000B90: 98 03 4E 24 B2 22 22 3A 81 20 59 B2 33 20 A4 20 |..N$."":. Y.3 . |
00000BA0: 31 38 3A 4E 24 B2 4E 24 AA 41 24 28 4E AA 59 29 |18:N$.N$.A$(N.Y)|
00000BB0: 3A 82 20 59 00 D1 27 A2 03 8B 20 46 B2 33 20 A7 |:. Y..'... F.3 .|
00000BC0: 20 8B 20 46 4C 24 B3 B1 4E 24 20 A7 20 31 31 39 | . FL$..N$ . 119|
00000BD0: 30 00 F5 27 AC 03 98 34 2C C9 28 22 20 20 20 20 |0..'...4,.(" |
00000BE0: 20 22 AA C4 28 43 29 2C 35 29 3B 22 20 22 3B 51 | "..(C),5);" ";Q|
00000BF0: 24 3B 4E 24 3B 00 1F 28 B6 03 98 34 2C 51 24 3B |$;N$;..(...4,Q$;|
00000C00: 22 20 20 22 3B 54 24 28 46 54 29 3B 22 20 20 22 |" ";T$(FT);" "|
00000C10: 3B 3A 8B 20 46 54 B2 30 20 A7 20 31 30 31 30 00 |;:. FT.0 . 1010.|
00000C20: 58 28 C0 03 4C 4B B2 30 3A 8B 20 28 C6 28 41 24 |X(..LK.0:. (.(A$|
00000C30: 28 4E 29 29 20 AF 20 31 39 32 29 20 B2 20 31 39 |(N)) . 192) . 19|
00000C40: 32 20 A7 20 98 34 2C 22 28 4C 29 22 3B 3A 4C 4B |2 . .4,"(L)";:LK|
00000C50: B2 31 3A 89 20 39 39 30 00 90 28 CA 03 4F 50 B2 |.1:. 990..(..OP.|
00000C60: 30 3A 8B 20 28 C6 28 41 24 28 4E 29 29 20 AF 20 |0:. (.(A$(N)) . |
00000C70: 31 32 38 29 20 B2 20 30 20 A7 20 98 34 2C 22 28 |128) . 0 . .4,"(|
00000C80: 30 29 22 3B 3A 4F 50 B2 31 3A 89 20 31 30 31 30 |0)";:OP.1:. 1010|
00000C90: 00 9E 28 D4 03 98 34 2C 22 20 20 20 22 3B 00 AB |..(...4," ";..|
00000CA0: 28 DE 03 98 34 2C 22 20 20 22 3B 00 C3 28 E8 03 |(...4," ";..(..|
00000CB0: 8D 20 31 33 33 30 3A 8B 20 45 4E B1 30 20 A7 20 |. 1330:. EN.0 . |
00000CC0: 32 32 30 00 D8 28 F2 03 98 34 3A 8B 20 46 B3 B1 |220..(...4:. F..|
00000CD0: 33 20 A7 20 31 31 34 30 00 0E 29 FC 03 8B 20 4F |3 . 1140..)... O|
00000CE0: 50 B2 31 20 A7 20 99 20 22 11 46 49 4C 45 20 49 |P.1 . . ".FILE I|
00000CF0: 53 20 4E 4F 54 20 50 52 4F 50 45 52 4C 59 20 43 |S NOT PROPERLY C|
00000D00: 4C 4F 53 45 44 21 22 3A 89 20 31 31 33 30 00 30 |LOSED!":. 1130.0|
00000D10: 29 06 04 99 20 22 11 4F 4B 20 54 4F 20 22 3B 3A |)... ".OK TO ";:|
00000D20: 8B 20 4C 4B B2 31 20 A7 20 99 20 22 55 4E 22 3B |. LK.1 . . "UN";|
00000D30: 00 4B 29 10 04 99 20 22 4C 4F 43 4B 20 46 49 4C |.K)... "LOCK FIL|
00000D40: 45 20 28 59 2F 4E 29 3A 20 22 3B 00 64 29 1A 04 |E (Y/N): ";.d)..|
00000D50: A1 20 43 24 3A 8B 20 43 24 B2 22 4E 22 20 A7 20 |. C$:. C$."N" . |
00000D60: 31 32 31 30 00 79 29 24 04 8B 20 43 24 B3 B1 22 |1210.y)$.. C$.."|
00000D70: 59 22 20 A7 20 31 30 35 30 00 82 29 2E 04 99 20 |Y" . 1050..)... |
00000D80: 43 24 00 A9 29 38 04 48 B2 28 C6 28 41 24 28 4E |C$..)8.H.(.(A$(N|
00000D90: 29 29 20 AF 20 31 39 31 29 3A 8B 20 4C 4B B2 30 |)) . 191):. LK.0|
00000DA0: 20 A7 20 48 B2 48 AA 36 34 00 D0 29 42 04 98 31 | . H.H.64..)B..1|
00000DB0: 35 2C 22 42 2D 50 3A 32 2C 22 3B 4E 3A 8D 20 31 |5,"B-P:2,";N:. 1|
00000DC0: 34 33 30 3A 8B 20 45 4E B1 30 20 A7 20 32 32 30 |430:. EN.0 . 220|
00000DD0: 00 DD 29 4C 04 98 32 2C C7 28 48 29 3B 00 07 2A |..)L..2,.(H);..*|
00000DE0: 56 04 98 31 35 2C 22 55 32 3A 32 2C 30 2C 22 3B |V..15,"U2:2,0,";|
00000DF0: 54 3B 53 3A 8D 20 31 34 33 30 3A 8B 20 45 4E B1 |T;S:. 1430:. EN.|
00000E00: 30 20 A7 20 32 32 30 00 37 2A 60 04 99 20 22 11 |0 . 220.7*`.. ".|
00000E10: 44 49 52 45 43 54 4F 52 59 20 55 50 44 41 54 45 |DIRECTORY UPDATE|
00000E20: 44 20 57 49 54 48 20 4E 45 57 20 4C 4F 43 4B 20 |D WITH NEW LOCK |
00000E30: 53 54 41 54 55 53 22 00 4A 2A 6A 04 99 3A 8D 20 |STATUS".J*j..:. |
00000E40: 31 34 35 30 3A 89 20 32 32 30 00 72 2A 74 04 4C |1450:. 220.r*t.L|
00000E50: B2 4C AB 31 3A 8B 20 4C B2 30 20 A7 20 8D 20 31 |.L.1:. L.0 . . 1|
00000E60: 32 34 30 3A 8B 20 43 24 B2 22 51 22 20 A7 20 32 |240:. C$."Q" . 2|
00000E70: 32 30 00 84 2A 7E 04 8B 20 50 44 B2 33 20 A7 20 |20..*~.. PD.3 . |
00000E80: 31 31 39 30 00 9C 2A 88 04 A1 20 43 24 3A 8B 20 |1190..*... C$:. |
00000E90: 43 24 B2 22 22 20 A7 20 31 31 39 30 00 D3 2A 92 |C$."" . 1190..*.|
00000EA0: 04 99 20 A6 31 30 29 3B 22 11 11 4F 55 54 50 55 |.. .10);"..OUTPU|
00000EB0: 54 20 53 55 53 50 45 4E 44 45 44 11 22 3A 8D 20 |T SUSPENDED.":. |
00000EC0: 31 34 36 30 3A 8B 20 43 24 B2 22 51 22 20 A7 20 |1460:. C$."Q" . |
00000ED0: 32 32 30 00 DE 2A 9C 04 8D 20 31 32 32 30 00 EC |220..*... 1220..|
00000EE0: 2A A6 04 82 20 4E 3A 89 20 38 34 30 00 17 2B B0 |*... N:. 840..+.|
00000EF0: 04 99 20 A6 38 29 3B 22 11 4E 4F 20 43 48 41 4E |.. .8);".NO CHAN|
00000F00: 47 45 20 54 4F 20 44 49 53 4B 20 4E 41 4D 45 22 |GE TO DISK NAME"|
00000F10: 3A 89 20 31 31 33 30 00 47 2B BA 04 99 20 43 24 |:. 1130.G+... C$|
00000F20: 3A 99 20 A6 38 29 3B 22 11 4E 4F 20 43 48 41 4E |:. .8);".NO CHAN|
00000F30: 47 45 20 54 4F 20 44 49 52 45 43 54 4F 52 59 22 |GE TO DIRECTORY"|
00000F40: 3A 89 20 31 31 33 30 00 67 2B C4 04 99 20 22 93 |:. 1130.g+... ".|
00000F50: 50 52 49 4E 54 20 44 49 53 4B 20 44 49 52 45 43 |PRINT DISK DIREC|
00000F60: 54 4F 52 59 11 11 22 00 8F 2B CE 04 99 20 22 50 |TORY.."..+... "P|
00000F70: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000F80: 50 41 55 53 45 20 4F 55 54 50 55 54 22 3A 8E 00 |PAUSE OUTPUT":..|
00000F90: BB 2B D8 04 8B 20 50 44 B2 34 20 A7 20 81 20 58 |.+... PD.4 . . X|
00000FA0: B2 31 20 A4 20 31 30 3A 98 34 3A 82 20 58 3A 43 |.1 . 10:.4:. X:C|
00000FB0: 24 B2 22 22 3A 89 20 31 32 36 30 00 D3 2B E2 04 |$."":. 1260..+..|
00000FC0: 8D 20 31 34 36 30 3A 8B 20 43 24 B2 22 51 22 20 |. 1460:. C$."Q" |
00000FD0: A7 20 8E 00 F1 2B EC 04 4C B2 35 30 3A 8B 20 50 |. ...+..L.50:. P|
00000FE0: 44 B2 33 20 A7 20 4C B2 31 36 3A 99 22 93 11 22 |D.3 . L.16:.".."|
00000FF0: 3B 00 07 2C F6 04 98 34 2C 48 31 24 3A 98 34 2C |;..,...4,H1$:.4,|
00001000: 3A 98 34 2C 48 32 24 00 3B 2C 00 05 98 34 3A 98 |:.4,H2$.;,...4:.|
00001010: 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |4,"-------------|
00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 44 2C 0A 05 |----------".D,..|
00001040: 98 34 3A 8E 00 6C 2C 14 05 98 31 35 2C 22 55 31 |.4:..l,...15,"U1|
00001050: 3A 32 2C 30 2C 22 3B 54 3B 53 3A 8D 20 31 34 33 |:2,0,";T;S:. 143|
00001060: 30 3A 8B 20 45 4E B1 30 20 A7 20 8E 00 9D 2C 1E |0:. EN.0 . ...,.|
00001070: 05 81 20 4E B2 30 20 A4 20 32 35 35 3A A1 23 32 |.. N.0 . 255:.#2|
00001080: 2C 41 24 28 4E 29 3A 8B 20 41 24 28 4E 29 B2 22 |,A$(N):. A$(N)."|
00001090: 22 20 A7 20 41 24 28 4E 29 B2 4E 4C 24 00 A7 2C |" . A$(N).NL$..,|
000010A0: 28 05 82 20 4E 3A 8E 00 BA 2C 32 05 45 4E B2 30 |(.. N:...,2.EN.0|
000010B0: 3A 8B 20 46 B2 33 20 A7 20 8E 00 DF 2C 3C 05 54 |:. F.3 . ...,<.T|
000010C0: B2 C6 28 41 24 28 4E AA 31 29 29 3A 53 B2 C6 28 |..(A$(N.1)):S..(|
000010D0: 41 24 28 4E AA 32 29 29 3A 8D 20 31 33 37 30 00 |A$(N.2)):. 1370.|
000010E0: FA 2C 46 05 8B 20 28 45 4E AA 48 29 B1 30 20 B0 |.,F.. (EN.H).0 .|
000010F0: 20 46 54 B3 B1 34 20 A7 20 8E 00 1A 2D 50 05 54 | FT..4 . ...-P.T|
00001100: B2 C6 28 41 24 28 4E AA 31 39 29 29 3A 53 B2 C6 |..(A$(N.19)):S..|
00001110: 28 41 24 28 4E AA 32 30 29 29 00 3B 2D 5A 05 48 |(A$(N.20)).;-Z.H|
00001120: B2 30 3A 8B 20 54 B1 33 35 20 A7 20 48 B2 31 3A |.0:. T.35 . H.1:|
00001130: 98 34 2C 22 28 32 29 22 3B 3A 8E 00 63 2D 64 05 |.4,"(2)";:..c-d.|
00001140: 98 31 35 2C 22 55 31 3A 32 2C 30 2C 22 3B 54 3B |.15,"U1:2,0,";T;|
00001150: 53 3A 8D 20 31 34 33 30 3A 8B 20 45 4E B1 30 20 |S:. 1430:. EN.0 |
00001160: A7 20 8E 00 82 2D 6E 05 A1 23 32 2C 43 24 2C 44 |. ...-n..#2,C$,D|
00001170: 24 3A 8B 20 43 24 B2 22 22 20 A7 20 43 24 B2 4E |$:. C$."" . C$.N|
00001180: 4C 24 00 97 2D 78 05 8B 20 44 24 B2 22 22 20 A7 |L$..-x.. D$."" .|
00001190: 20 44 24 B2 4E 4C 24 00 B8 2D 82 05 54 B2 C6 28 | D$.NL$..-..T..(|
000011A0: 43 24 29 3A 53 B2 C6 28 44 24 29 3A 8B 20 54 B1 |C$):S..(D$):. T.|
000011B0: 30 20 A7 20 31 33 37 30 00 BE 2D 8C 05 8E 00 DE |0 . 1370..-.....|
000011C0: 2D 96 05 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |-...15,EN,EM$,ET|
000011D0: 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 17 |,ES:. EN.0 . ...|
000011E0: 2E A0 05 99 3A 99 20 22 12 44 49 53 4B 20 45 52 |....:. ".DISK ER|
000011F0: 52 4F 52 3A 92 22 3B 45 4E 3B 22 20 20 12 54 52 |ROR:.";EN;" .TR|
00001200: 4B 2F 53 45 43 3A 92 22 45 54 3B 22 2F 22 3B 45 |K/SEC:."ET;"/";E|
00001210: 53 3A 99 20 45 4D 24 00 4F 2E AA 05 99 20 22 12 |S:. EM$.O.... ".|
00001220: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 4E 59 | PRESS ANY|
00001230: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001240: 20 20 20 20 20 20 20 22 3A 89 20 31 34 37 30 00 | ":. 1470.|
00001250: 82 2E B4 05 99 20 22 11 12 50 52 45 53 53 20 41 |..... "..PRESS A|
00001260: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00001270: 55 45 2C 20 27 51 27 20 54 4F 20 51 55 49 54 92 |UE, 'Q' TO QUIT.|
00001280: 22 3B 00 9A 2E BE 05 A1 20 43 24 3A 8B 20 43 24 |";...... C$:. C$|
00001290: B2 22 22 20 A7 20 31 34 37 30 00 A0 2E C8 05 8E |."" . 1470......|
000012A0: 00 BE 2E D2 05 99 20 22 1D 1D 1D 22 3B 53 50 24 |...... "...";SP$|
000012B0: 3B 22 9D 9D 9D 22 3B 3A 85 20 58 24 3A 8E 00 CF |;"...";:. X$:...|
000012C0: 2E DC 05 A0 20 32 3A A0 20 34 3A A0 20 31 35 00 |.... 2:. 4:. 15.|
000012D0: 00 00 |.. |
..I.... **** PROGRAM NAME --- DISK UTILI
TY ****......
**** THIS UTILITY WAS COPIED OUT OF COMM
ODORE MICROCOMPUTERS ****.Y.... **** MAG
AZINE. MAY/JUNE 1986 ISSUE
****.....T$(0)."DEL":T$(1).
"SEQ":T$(2)."PRG":T$(3)."USR":T$(4)."REL
".=.H.DM$(0)."SINGLE":DM$(1)."DOUBLE".H.
R.. A$(256):DL$.G(0):Q$.G(34):SP$.G(160)
...... ". .CCCCCCCCCCCCCCCCCCCCCCCC
C."...... " B DISK UTILITY
B"...... " .CCCCCCCCCCCCCCCCCCCC
CCCCC.."..... 2: 4: 15:. 15,8,15.....
.15,"U0>M9":.15,EN.T.... EN..31 . DT.0:D
M.0:. .11);"DISK DRIVE = 1541":. 300....
.DT.1:.15,"U0>H0":.15,EN:DM.0:. EN.31 .
DM.1...".. "DISK DRIVE = 1571, IN ";DM$(
DM);" SIDED MODE"...,.. "CCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCC"...6.. " 1 = N
ORMAL DIRECTORY (SIDE 1/2)".F.@.. "
2 = FULL DIRECTORY (DELETE FILES)".E
.J.. " 3 = LOCK/UNLOCK FILE"...T.. " 4
= CHANGE DISK NAME"...^.. " 5 = ISSUE
DISK COMMAND".M.H.ML.5:AM.(DM.1) . 1:. D
T.0 . .:. 390.. R.. " 6 = SWITCH DRIVE
TO ";DM$(AM);" SIDED MODE":ML.6.. |.. .2
2);"......"./ ... ". Q = QUIT"._ ... "C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC".
| ... ".DESIRED FUNCTION: ";.. ... C$:.
C$."" . 420.. ... C$."Q" . . C$:. 1500.M
..F.E(C$):. F.1 . F.ML . 420.. B.. C$:.
F . 550,550,520,550,470..!L..15,"U0>M".
G(48.AM):. 220.9!V.. ".DESIRED DISK COMM
AND (IN QUOTES):".S!... 1490:. X$.SP$ .
220.O!...15,X$:.15,EN,EM$,ET,ES..!... ".
ERROR#:";EN;" TRK/SEC:";ET;"/";ES..!..
. EM$:. 1450:. 220..!... ".FILENAME TO B
E LOCKED/UNLOCKED:"..!... 1490:. X$.SP$
. 220./"..FL$.H(X$." ",16
):. (16 SHIFTED SPACES).Z"&..15,"I0":.15
,EN,EM$,ET,ES:. EN.0 . 580.."0.. EN..21
. T..18 . S..0 . . 1440:. 220..":.. ".PL
EASE INSERT DISK & RESELECT FUNCTION!":.
1130.U"D.. 2,8,2,"#0":. 1430..#N.. ".OK
, READING BLOCK AVAIL MAP (BAM) ...".%#X
.T.18:S.0:. 1300:. EN.0 . 220.X#B.H1$."D
ISK ".Q$:. N.144 . 159:H1$.H1$.A$(N):. N
..#L.H1$.H1$.Q$." ID=".A$(162).A$(163).
" FMT=".A$(165).A$(166).H#V.C.0:. N.4
. 140 . 4:. N..72 . C.C.F(A$(N))..#... N
:. F(A$(3)).0 . . N.221 . 255:C.C.F(A$(N
)):. N.0$..H2$.I(" ".D(C),5)." BLOCK
S FREE (".W$..H2$.H2$.DM$(F(A$(3)
).128)."SIDED)".L$..PD.3:. F.2 . 720..$.
.. ".PRINTED OUTPUT WANTED (Y/N): ";..$.
.. C$:. C$."N" . 720..$... C$.."Y" . 690
.P$F.PD.4:. 1220..$P.. 4,PD..$Z.. 1260:.
F..4 . 830..%... "ENTER NEW DISK NAME F
OR THIS DISK:".9%... 1490:. X$.SP$ . 120
0.|%... C(X$).16 . . ".INPUT STRING IS L
ONGER THEN 16 CHARS!.":. 740..%..X$.H(X$
." ",16):. 16 SHIFTED SPA
CES..%...15,"B-P:2,144":. 1430:. EN.0 .
220..%...2,X$;..& ..15,"U2:2,0,";T;S:. 1
430:. EN.0 . 220..&*..15,"I0".S&4.. ".
DISK BAM UPDATED WITH NEW DISK NAME":. 1
130..&>.. F.3 . . "SEARCHING FOR FILE: "
;Q$;FL$;Q$:...&H.T.F(A$(0)):S.F(A$(1)):.
T.0 . 870.N&R.. F.3 . . .12);"FILE NOT
FOUND".Y&\.. 1130..&F.. 1300:. EN.0 . 22
0..'P.. N.2 . 226 . 32:FT.F(A$(N)) . 7./
'Z.. FT.0 . F..2 . 1190.S'..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.Q'.
.. F.3 . . FL$..N$ . 1190..'...4,I("
".D(C),5);" ";Q$;N$;..(...4,Q$;" ";T$(
FT);" ";:. FT.0 . 1010.X(..LK.0:. (F(A$
(N)) . 192) . 192 . .4,"(L)";:LK.1:. 990
..(J.OP.0:. (F(A$(N)) . 128) . 0 . .4,"(
0)";:OP.1:. 1010..(T..4," ";..(...4,"
";.C(... 1330:. EN.0 . 220.X(...4:. F..
3 . 1140..)... OP.1 . . ".FILE IS NOT PR
OPERLY CLOSED!":. 1130.0)... ".OK TO ";:
. LK.1 . . "UN";.K)... "LOCK FILE (Y/N):
";.D)... C$:. C$."N" . 1210.Y)$.. C$.."
Y" . 1050..)... C$..)8.H.(F(A$(N)) . 191
):. LK.0 . H.H.64.P)B..15,"B-P:2,";N:. 1
430:. EN.0 . 220..)L..2,G(H);..*V..15,"U
2:2,0,";T;S:. 1430:. EN.0 . 220.7*`.. ".
DIRECTORY UPDATED WITH NEW LOCK STATUS".
J*J..:. 1450:. 220.R*T.L.L.1:. L.0 . . 1
240:. C$."Q" . 220..*~.. PD.3 . 1190..*.
.. C$:. C$."" . 1190.S*... .10);"..OUTPU
T SUSPENDED.":. 1460:. C$."Q" . 220..*..
. 1220..*... N:. 840..+... .8);".NO CHAN
GE TO DISK NAME":. 1130.G+... C$:. .8);"
.NO CHANGE TO DIRECTORY":. 1130.G+D.. ".
PRINT DISK DIRECTORY.."..+N.. "PRESS ANY
KEY TO PAUSE OUTPUT":...+X.. PD.4 . . X
.1 . 10:.4:. X:C$."":. 1260.S+... 1460:.
C$."Q" . ...+..L.50:. PD.3 . L.16:.".."
;..,...4,H1$:.4,:.4,H2$.;,...4:.4,"-----
----------------------------------".D,..
.4:..L,...15,"U1:2,0,";T;S:. 1430:. EN.0
. ...,... 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)):. 1370.
.,F.. (EN.H).0 . FT..4 . ...-P.T.F(A$(N.
19)):S.F(A$(N.20)).;-Z.H.0:. T.35 . H.1:
.4,"(2)";:..C-D..15,"U1:2,0,";T;S:. 1430
:. EN.0 . ...-N..#2,C$,D$:. C$."" . C$.N
L$..-X.. D$."" . D$.NL$..-..T.F(C$):S.F(
D$):. T.0 . 1370..-.....-...15,EN,EM$,ET
,ES:. EN.0 . .... ..:. ".DISK ERROR:.";E
N;" .TRK/SEC:."ET;"/";ES:. EM$.O.... ".
PRESS ANY KEY TO CONTINUE "
:. 1470...... "..PRESS ANY KEY TO CONTIN
UE, 'Q' TO QUIT.";...... C$:. C$."" . 14
70. .H.....R.. "...";SP$;"...";:. X$:..O
... 2: 4: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL