DISK UTILITIES
FILE INFORMATION
FILENAME(S): DISK UTILITIES
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-12-01 01:48:30
APPEARS ON: 1 disk(s)
FILE HASH
ea2b94aa0c939a731909ece0e36b911035b0a210676993357bb37ef658ea4136
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD187 DCB 6 88 | DISK UTILITIES | PRG | hedning, Mattias H00r | 26 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 9C 00 2E 08 0C 00 86 50 |53281,0:.......P|
00000020: 52 47 24 28 39 39 29 2C 49 24 28 32 36 29 00 68 |RG$(99),I$(26).h|
00000030: 08 0F 00 99 C7 28 31 34 32 29 3A 99 22 93 9A 12 |.....(142):."...|
00000040: 20 20 20 20 20 20 44 20 49 20 53 20 4B 20 20 20 | D I S K |
00000050: 55 20 54 20 49 20 4C 20 49 20 54 20 49 20 45 20 |U T I L I T I E |
00000060: 53 20 20 20 20 20 20 22 00 86 08 14 00 99 22 9E |S "......".|
00000070: 11 20 20 20 59 4F 55 52 20 4F 50 54 49 4F 4E 53 |. YOUR OPTIONS|
00000080: 20 41 52 45 3A 22 00 AA 08 19 00 99 A3 35 29 22 | ARE:".......5)"|
00000090: 1E 11 28 1C 31 1E 29 20 46 4F 52 4D 41 54 20 41 |..(.1.) FORMAT A|
000000A0: 20 4E 45 57 20 44 49 53 4B 22 00 C9 08 1E 00 99 | NEW DISK"......|
000000B0: A3 35 29 22 1E 11 28 1C 32 1E 29 20 45 52 41 53 |.5)"..(.2.) ERAS|
000000C0: 45 20 41 20 44 49 53 4B 22 00 EB 08 23 00 99 A3 |E A DISK"...#...|
000000D0: 35 29 22 1E 11 28 1C 33 1E 29 20 56 41 4C 49 44 |5)"..(.3.) VALID|
000000E0: 41 54 45 20 41 20 44 49 53 4B 22 00 0C 09 28 00 |ATE A DISK"...(.|
000000F0: 99 A3 35 29 22 1E 11 28 1C 34 1E 29 20 52 45 2D |..5)"..(.4.) RE-|
00000100: 4E 41 4D 45 20 41 20 44 49 53 4B 22 00 2A 09 2A |NAME A DISK".*.*|
00000110: 00 99 A3 35 29 22 1E 11 28 1C 35 1E 29 20 44 49 |...5)"..(.5.) DI|
00000120: 53 4B 20 43 4F 50 49 45 52 22 00 4A 09 2D 00 99 |SK COPIER".J.-..|
00000130: A3 35 29 22 1E 11 28 1C 36 1E 29 20 44 45 4C 45 |.5)"..(.6.) DELE|
00000140: 54 45 20 41 20 46 49 4C 45 22 00 6B 09 32 00 99 |TE A FILE".k.2..|
00000150: A3 35 29 22 1E 11 28 1C 37 1E 29 20 52 45 2D 4E |.5)"..(.7.) RE-N|
00000160: 41 4D 45 20 41 20 46 49 4C 45 22 00 89 09 37 00 |AME A FILE"...7.|
00000170: 99 A3 35 29 22 1E 11 28 1C 38 1E 29 20 46 49 4C |..5)"..(.8.) FIL|
00000180: 45 20 43 4F 50 49 45 52 22 00 B0 09 3C 00 99 A3 |E COPIER"...<...|
00000190: 35 29 22 1E 11 28 1C 39 1E 29 20 56 49 45 57 2F |5)"..(.9.) VIEW/|
000001A0: 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 22 |PRINT DIRECTORY"|
000001B0: 00 D3 09 46 00 99 A3 35 29 22 1E 11 28 1C 30 1E |...F...5)"..(.0.|
000001C0: 29 20 52 45 54 55 52 4E 20 54 4F 20 48 2E 41 2E |) RETURN TO H.A.|
000001D0: 4C 2E 22 00 F2 09 4B 00 99 22 9E 11 20 20 20 53 |L."...K..".. S|
000001E0: 45 4C 45 43 54 20 41 4E 20 4F 50 54 49 4F 4E 2E |ELECT AN OPTION.|
000001F0: 91 22 00 06 0A 50 00 A1 41 4E 24 3A 8B 41 4E 24 |."...P..AN$:.AN$|
00000200: B2 22 22 A7 38 30 00 17 0A 53 00 8B C5 28 41 4E |."".80...S...(AN|
00000210: 24 29 B1 39 A7 38 30 00 29 0A 54 00 8B 41 4E 24 |$).9.80.).T..AN$|
00000220: B2 22 30 22 A7 31 35 30 30 00 5F 0A 55 00 4F B2 |."0".1500._.U.O.|
00000230: C5 28 41 4E 24 29 3A 91 4F 89 31 30 30 2C 32 30 |.(AN$):.O.100,20|
00000240: 30 2C 33 30 30 2C 34 30 30 2C 31 36 30 30 2C 36 |0,300,400,1600,6|
00000250: 30 30 2C 35 30 30 2C 31 36 30 30 2C 38 30 30 00 |00,500,1600,800.|
00000260: 92 0A 64 00 99 22 93 12 9A 11 20 20 20 46 20 4F |..d..".... F O|
00000270: 20 52 20 4D 20 41 20 54 20 20 20 41 20 20 20 4E | R M A T A N|
00000280: 20 45 20 57 20 20 20 44 20 49 20 53 20 4B 20 20 | E W D I S K |
00000290: 20 22 00 B9 0A 69 00 99 22 9E 11 11 49 4E 53 45 | "...i.."...INSE|
000002A0: 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 46 4F |RT DISK TO BE FO|
000002B0: 52 4D 41 54 54 45 44 2E 22 00 E8 0A 6E 00 99 22 |RMATTED."...n.."|
000002C0: 11 11 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 |..ENTER THE NAME|
000002D0: 20 59 4F 55 20 57 41 4E 54 20 4F 4E 20 54 48 49 | YOU WANT ON THI|
000002E0: 53 20 44 49 53 4B 3A 22 00 16 0B 70 00 99 22 45 |S DISK:"...p.."E|
000002F0: 4E 54 45 52 20 27 1C 4D 9E 27 20 54 4F 20 41 42 |NTER '.M.' TO AB|
00000300: 4F 52 54 20 26 20 52 45 54 55 52 4E 20 54 4F 20 |ORT & RETURN TO |
00000310: 4D 45 4E 55 2E 22 00 24 0B 73 00 85 22 11 1E 22 |MENU.".$.s..".."|
00000320: 3B 4E 41 24 00 35 0B 74 00 8B 20 4E 41 24 B2 22 |;NA$.5.t.. NA$."|
00000330: 4D 22 A7 31 30 00 63 0B 78 00 8B C3 28 4E 41 24 |M".10.c.x...(NA$|
00000340: 29 B1 31 36 A7 99 22 1C 31 36 20 43 48 41 52 41 |).16..".16 CHARA|
00000350: 43 54 45 52 20 4D 41 58 49 4D 55 4D 21 22 3A 89 |CTER MAXIMUM!":.|
00000360: 31 31 35 00 94 0B 7D 00 99 22 11 11 9E 45 4E 54 |115...}.."...ENT|
00000370: 45 52 20 41 20 32 20 43 48 41 52 41 43 54 45 52 |ER A 2 CHARACTER|
00000380: 20 49 2E 44 2E 20 46 4F 52 20 54 48 45 20 44 49 | I.D. FOR THE DI|
00000390: 53 4B 3A 22 00 A2 0B 82 00 85 22 11 1E 22 3B 49 |SK:"......"..";I|
000003A0: 44 24 00 CE 0B 87 00 8B C3 28 49 44 24 29 B1 32 |D$.......(ID$).2|
000003B0: A7 99 22 1C 32 20 43 48 41 52 41 43 54 45 52 20 |..".2 CHARACTER |
000003C0: 4D 41 58 49 4D 55 4D 21 22 3A 89 31 33 30 00 F8 |MAXIMUM!":.130..|
000003D0: 0B 89 00 99 22 11 11 1C 46 4F 52 4D 41 54 54 49 |...."...FORMATTI|
000003E0: 4E 47 20 44 49 53 4B 2E 2E 2E 2E 50 4C 45 41 53 |NG DISK....PLEAS|
000003F0: 45 20 57 41 49 54 2E 22 00 35 0C 8C 00 43 43 24 |E WAIT.".5...CC$|
00000400: B2 22 4E 30 3A 22 AA 4E 41 24 AA 22 2C 22 AA 49 |."N0:".NA$.",".I|
00000410: 44 24 3A 99 22 1C 11 46 4F 52 4D 41 54 54 49 4E |D$:."..FORMATTIN|
00000420: 47 2E 2E 2E 50 4C 45 41 53 45 20 57 41 49 54 22 |G...PLEASE WAIT"|
00000430: 3A 8D 32 37 30 00 5E 0C 91 00 99 22 11 11 9E 46 |:.270.^...."...F|
00000440: 4F 52 4D 41 54 20 41 4E 4F 54 48 45 52 20 44 49 |ORMAT ANOTHER DI|
00000450: 53 4B 3F 20 28 1C 59 9E 2F 1C 4E 9E 29 22 00 73 |SK? (.Y./.N.)".s|
00000460: 0C 96 00 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 |....AN$:.AN$."".|
00000470: 31 35 30 00 84 0C 9B 00 8B 41 4E 24 B2 22 59 22 |150......AN$."Y"|
00000480: A7 31 30 30 00 96 0C A0 00 8B 41 4E 24 B3 B1 22 |.100......AN$.."|
00000490: 4E 22 A7 31 35 30 00 9E 0C A5 00 89 31 30 00 D1 |N".150......10..|
000004A0: 0C C8 00 99 22 93 12 9A 11 20 20 20 20 20 20 20 |....".... |
000004B0: 20 45 20 52 20 41 20 53 20 45 20 20 20 41 20 20 | E R A S E A |
000004C0: 20 44 20 49 20 53 20 4B 20 20 20 20 20 20 20 20 | D I S K |
000004D0: 22 00 FF 0C CD 00 99 22 9E 11 11 49 4E 53 45 52 |"......"...INSER|
000004E0: 54 20 46 4F 52 4D 41 54 54 45 44 20 44 49 53 4B |T FORMATTED DISK|
000004F0: 20 54 4F 20 42 45 20 45 52 41 53 45 44 2E 22 00 | TO BE ERASED.".|
00000500: 2E 0D D2 00 99 22 11 11 45 4E 54 45 52 20 54 48 |....."..ENTER TH|
00000510: 45 20 4E 41 4D 45 20 59 4F 55 20 57 41 4E 54 20 |E NAME YOU WANT |
00000520: 4F 4E 20 54 48 49 53 20 44 49 53 4B 3A 22 00 5C |ON THIS DISK:".\|
00000530: 0D D4 00 99 22 45 4E 54 45 52 20 27 1C 4D 9E 27 |...."ENTER '.M.'|
00000540: 20 54 4F 20 41 42 4F 52 54 20 26 20 52 45 54 55 | TO ABORT & RETU|
00000550: 52 4E 20 54 4F 20 4D 45 4E 55 2E 22 00 6A 0D D7 |RN TO MENU.".j..|
00000560: 00 85 22 11 1E 22 3B 4E 41 24 00 7B 0D D8 00 8B |.."..";NA$.{....|
00000570: 20 4E 41 24 B2 22 4D 22 A7 31 30 00 A9 0D DC 00 | NA$."M".10.....|
00000580: 8B C3 28 4E 41 24 29 B1 31 36 A7 99 22 1C 31 36 |..(NA$).16..".16|
00000590: 20 43 48 41 52 41 43 54 45 52 20 4D 41 58 49 4D | CHARACTER MAXIM|
000005A0: 55 4D 21 22 3A 89 32 31 35 00 C0 0D E1 00 43 43 |UM!":.215.....CC|
000005B0: 24 B2 22 4E 30 3A 22 AA 4E 41 24 3A 8D 32 37 30 |$."N0:".NA$:.270|
000005C0: 00 E8 0D E6 00 99 22 11 11 9E 45 52 41 53 45 20 |......"...ERASE |
000005D0: 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 28 1C |ANOTHER DISK? (.|
000005E0: 59 9E 2F 1C 4E 9E 29 22 00 FD 0D EB 00 A1 41 4E |Y./.N.)"......AN|
000005F0: 24 3A 8B 41 4E 24 B2 22 22 A7 32 33 35 00 0E 0E |$:.AN$."".235...|
00000600: F0 00 8B 41 4E 24 B2 22 59 22 A7 32 30 30 00 20 |...AN$."Y".200. |
00000610: 0E F5 00 8B 41 4E 24 B3 B1 22 4E 22 A7 32 33 35 |....AN$.."N".235|
00000620: 00 28 0E FA 00 89 31 30 00 35 0E 0E 01 9F 31 35 |.(....10.5....15|
00000630: 2C 38 2C 31 35 00 41 0E 18 01 98 31 35 2C 43 43 |,8,15.A....15,CC|
00000640: 24 00 4B 0E 22 01 A0 31 35 3A 8E 00 7E 0E 2C 01 |$.K."..15:..~.,.|
00000650: 99 22 93 12 9A 11 20 20 20 20 20 56 20 41 20 4C |.".... V A L|
00000660: 20 49 20 44 20 41 20 54 20 45 20 20 20 41 20 20 | I D A T E A |
00000670: 20 44 20 49 20 53 20 4B 20 20 20 20 20 22 00 A5 | D I S K "..|
00000680: 0E 31 01 99 22 9E 11 11 49 4E 53 45 52 54 20 44 |.1.."...INSERT D|
00000690: 49 53 4B 20 54 4F 20 42 45 20 56 41 4C 49 44 41 |ISK TO BE VALIDA|
000006A0: 54 45 44 2E 22 00 CB 0E 36 01 99 22 11 11 50 52 |TED."...6.."..PR|
000006B0: 45 53 53 20 1C 12 52 45 54 55 52 4E 92 9E 20 57 |ESS ..RETURN.. W|
000006C0: 48 45 4E 20 52 45 41 44 59 2E 22 00 E0 0E 3B 01 |HEN READY."...;.|
000006D0: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 33 31 35 |.AN$:.AN$."".315|
000006E0: 00 F4 0E 40 01 8B 41 4E 24 B3 B1 C7 28 31 33 29 |...@..AN$...(13)|
000006F0: A7 33 31 35 00 24 0F 45 01 43 43 24 B2 22 56 30 |.315.$.E.CC$."V0|
00000700: 22 3A 99 22 1C 11 56 41 4C 49 44 41 54 49 4E 47 |":."..VALIDATING|
00000710: 2E 2E 2E 50 4C 45 41 53 45 20 57 41 49 54 22 3A |...PLEASE WAIT":|
00000720: 8D 32 37 30 00 4F 0F 4A 01 99 22 11 11 9E 56 41 |.270.O.J.."...VA|
00000730: 4C 49 44 41 54 45 20 41 4E 4F 54 48 45 52 20 44 |LIDATE ANOTHER D|
00000740: 49 53 4B 3F 20 28 1C 59 9E 2F 1C 4E 9E 29 22 00 |ISK? (.Y./.N.)".|
00000750: 64 0F 4F 01 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |d.O..AN$:.AN$.""|
00000760: A7 33 33 35 00 75 0F 54 01 8B 41 4E 24 B2 22 59 |.335.u.T..AN$."Y|
00000770: 22 A7 33 30 30 00 87 0F 59 01 8B 41 4E 24 B3 B1 |".300...Y..AN$..|
00000780: 22 4E 22 A7 33 33 35 00 8F 0F 5E 01 89 31 30 00 |"N".335...^..10.|
00000790: C2 0F 90 01 99 22 93 12 9A 11 20 20 20 20 20 20 |.....".... |
000007A0: 20 20 52 20 45 20 2D 20 4E 20 41 20 4D 20 45 20 | R E - N A M E |
000007B0: 20 20 44 20 49 20 53 20 4B 20 20 20 20 20 20 20 | D I S K |
000007C0: 20 22 00 04 10 95 01 99 22 9E 11 11 49 4E 53 45 | "......"...INSE|
000007D0: 52 54 20 54 48 45 20 44 49 53 4B 20 54 4F 20 42 |RT THE DISK TO B|
000007E0: 45 20 52 45 2D 4E 41 4D 45 44 2C 22 3A 99 22 54 |E RE-NAMED,":."T|
000007F0: 48 45 4E 20 50 52 45 53 53 20 1C 52 45 54 55 52 |HEN PRESS .RETUR|
00000800: 4E 9E 2E 22 00 19 10 9A 01 A1 41 4E 24 3A 8B 41 |N.."......AN$:.A|
00000810: 4E 24 B2 22 22 A7 34 31 30 00 2D 10 9F 01 8B 41 |N$."".410.-....A|
00000820: 4E 24 B3 B1 C7 28 31 33 29 A7 34 31 30 00 5C 10 |N$...(13).410.\.|
00000830: A4 01 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 98 |...15:.15,8,15:.|
00000840: 31 35 2C 22 49 30 3A 22 3A A0 35 3A 9F 35 2C 38 |15,"I0:":.5:.5,8|
00000850: 2C 35 2C 22 23 22 3A 42 24 B2 22 22 00 82 10 A9 |,5,"#":B$.""....|
00000860: 01 98 31 35 2C 22 55 31 3A 35 2C 30 2C 31 38 2C |..15,"U1:5,0,18,|
00000870: 30 22 3A 98 31 35 2C 22 42 2D 50 3A 35 2C 31 34 |0":.15,"B-P:5,14|
00000880: 34 22 00 B1 10 AE 01 81 4A B2 31 A4 31 36 3A A1 |4"......J.1.16:.|
00000890: 23 35 2C 41 24 3A 41 24 B2 C7 28 C6 28 41 24 AA |#5,A$:A$..(.(A$.|
000008A0: C7 28 30 29 29 29 3A 42 24 B2 42 24 AA 41 24 3A |.(0))):B$.B$.A$:|
000008B0: 82 00 D2 10 B3 01 99 22 11 11 9E 44 49 53 4B 20 |......."...DISK |
000008C0: 4E 41 4D 45 20 49 53 20 4E 4F 57 3A 20 1C 22 3B |NAME IS NOW: .";|
000008D0: 42 24 00 11 11 B8 01 85 22 11 11 9E 4E 45 57 20 |B$......"...NEW |
000008E0: 4E 41 4D 45 22 3B 4E 24 3A 8B C3 28 4E 24 29 B1 |NAME";N$:..(N$).|
000008F0: 31 36 A7 99 22 1C 4D 41 58 49 4D 55 4D 20 4C 45 |16..".MAXIMUM LE|
00000900: 4E 47 54 48 20 49 53 20 31 36 21 22 3A 89 34 34 |NGTH IS 16!":.44|
00000910: 30 00 31 11 BD 01 8B C3 28 4E 24 29 B3 31 36 A7 |0.1.....(N$).16.|
00000920: 4E 24 B2 4E 24 AA C7 28 31 36 30 29 3A 89 34 34 |N$.N$..(160):.44|
00000930: 35 00 61 11 C2 01 98 31 35 2C 22 42 2D 50 3A 35 |5.a....15,"B-P:5|
00000940: 2C 31 34 34 22 3A 98 35 2C 4E 24 3B 3A 98 31 35 |,144":.5,N$;:.15|
00000950: 2C 22 55 32 3A 35 2C 30 2C 31 38 2C 30 22 3A A0 |,"U2:5,0,18,0":.|
00000960: 35 00 97 11 C7 01 84 31 35 2C 45 52 2C 45 52 24 |5......15,ER,ER$|
00000970: 3A 99 22 11 11 44 49 53 4B 20 53 54 41 54 55 53 |:."..DISK STATUS|
00000980: 3A 20 1C 22 45 52 3B 45 52 24 3A 98 31 35 2C 22 |: ."ER;ER$:.15,"|
00000990: 49 30 22 3A A0 31 35 00 CF 11 CC 01 99 22 9E 11 |I0":.15......"..|
000009A0: 11 59 4F 55 52 20 44 49 53 4B 20 48 41 53 20 42 |.YOUR DISK HAS B|
000009B0: 45 45 4E 20 52 45 2D 4E 41 4D 45 44 2E 22 3A 81 |EEN RE-NAMED.":.|
000009C0: 54 B2 31 A4 31 36 36 36 3A 82 54 3A 89 31 30 00 |T.1.1666:.T:.10.|
000009D0: 02 12 F4 01 99 22 93 12 9A 11 20 20 20 20 20 20 |.....".... |
000009E0: 52 20 45 20 2D 20 4E 20 41 20 4D 20 45 20 20 20 |R E - N A M E |
000009F0: 41 20 20 20 46 20 49 20 4C 20 45 20 20 20 20 20 |A F I L E |
00000A00: 20 22 00 34 12 F9 01 99 22 11 11 11 9E 45 4E 54 | ".4...."....ENT|
00000A10: 45 52 20 27 1C 4C 9E 27 20 46 4F 52 20 4C 49 53 |ER '.L.' FOR LIS|
00000A20: 54 20 4F 46 20 46 49 4C 45 53 20 4F 4E 20 44 49 |T OF FILES ON DI|
00000A30: 53 4B 2E 22 00 5E 12 FE 01 99 22 45 4E 54 45 52 |SK.".^...."ENTER|
00000A40: 20 27 1C 4D 9E 27 20 54 4F 20 52 45 54 55 52 4E | '.M.' TO RETURN|
00000A50: 20 54 4F 20 4D 45 4E 55 2E 91 91 91 91 22 00 82 | TO MENU....."..|
00000A60: 12 03 02 85 22 9E 4E 41 4D 45 20 4F 46 20 46 49 |....".NAME OF FI|
00000A70: 4C 45 20 54 4F 20 52 45 2D 4E 41 4D 45 22 3B 46 |LE TO RE-NAME";F|
00000A80: 49 24 00 C1 12 08 02 8B 46 49 24 B2 22 4C 22 A7 |I$......FI$."L".|
00000A90: 99 22 11 11 11 11 1C 4C 4F 41 44 49 4E 47 20 46 |.".....LOADING F|
00000AA0: 49 4C 45 20 4E 41 4D 45 53 2C 50 4C 45 41 53 45 |ILE NAMES,PLEASE|
00000AB0: 20 57 41 49 54 2E 22 3A 8D 37 30 30 3A 89 35 33 | WAIT.":.700:.53|
00000AC0: 31 00 D1 12 0D 02 8B 46 49 24 B2 22 4D 22 A7 31 |1......FI$."M".1|
00000AD0: 30 00 DA 12 12 02 89 35 33 35 00 FF 12 13 02 85 |0......535......|
00000AE0: 22 11 9E 52 45 2D 4E 41 4D 45 20 57 48 49 43 48 |"..RE-NAME WHICH|
00000AF0: 20 46 49 4C 45 20 1C 23 9E 20 22 3B 41 4E 24 00 | FILE .#. ";AN$.|
00000B00: 19 13 14 02 8B C5 28 41 4E 24 29 B1 4E A7 99 22 |......(AN$).N.."|
00000B10: 91 91 91 22 3A 89 35 33 31 00 32 13 15 02 43 B2 |...":.531.2...C.|
00000B20: C5 28 41 4E 24 29 3A 46 49 24 B2 50 52 47 24 28 |.(AN$):FI$.PRG$(|
00000B30: 43 29 00 55 13 17 02 99 22 11 11 11 11 9E 46 49 |C).U....".....FI|
00000B40: 4C 45 20 54 4F 20 52 45 2D 4E 41 4D 45 3A 20 1E |LE TO RE-NAME: .|
00000B50: 22 3B 46 49 24 00 74 13 1C 02 85 22 11 9E 54 48 |";FI$.t...."..TH|
00000B60: 45 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 |E NEW FILE NAME"|
00000B70: 3B 4E 4E 24 00 9F 13 1D 02 8B C3 28 4E 4E 24 29 |;NN$.......(NN$)|
00000B80: B1 31 36 A7 99 22 1C 31 36 20 43 48 41 52 41 43 |.16..".16 CHARAC|
00000B90: 54 45 52 20 4D 41 58 2E 21 22 3A 89 35 34 30 00 |TER MAX.!":.540.|
00000BA0: BE 13 21 02 43 43 24 B2 22 52 30 3A 22 AA 4E 4E |..!.CC$."R0:".NN|
00000BB0: 24 AA 22 3D 22 AA 46 49 24 3A 8D 32 37 30 00 E8 |$."=".FI$:.270..|
00000BC0: 13 26 02 99 22 11 9E 52 45 2D 4E 41 4D 45 20 41 |.&.."..RE-NAME A|
00000BD0: 4E 4F 54 48 45 52 20 46 49 4C 45 20 3F 20 28 1C |NOTHER FILE ? (.|
00000BE0: 59 9E 2F 1C 4E 9E 29 22 00 FD 13 2B 02 A1 41 4E |Y./.N.)"...+..AN|
00000BF0: 24 3A 8B 41 4E 24 B2 22 22 A7 35 35 35 00 0E 14 |$:.AN$."".555...|
00000C00: 30 02 8B 41 4E 24 B2 22 59 22 A7 35 30 30 00 20 |0..AN$."Y".500. |
00000C10: 14 35 02 8B 41 4E 24 B3 B1 22 4E 22 A7 35 35 35 |.5..AN$.."N".555|
00000C20: 00 28 14 3A 02 89 31 30 00 5B 14 58 02 99 22 93 |.(.:..10.[.X..".|
00000C30: 12 9A 11 20 20 20 20 20 20 20 44 20 45 20 4C 20 |... D E L |
00000C40: 45 20 54 20 45 20 20 20 41 20 20 20 46 20 49 20 |E T E A F I |
00000C50: 4C 20 45 20 20 20 20 20 20 20 22 00 78 14 5B 02 |L E ".x.[.|
00000C60: 58 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |X$."............|
00000C70: 11 11 11 11 11 11 11 22 00 AA 14 5C 02 42 4C 24 |......."...\.BL$|
00000C80: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CA0: 20 20 20 20 20 20 20 20 20 22 00 DC 14 5D 02 99 | "...]..|
00000CB0: 22 11 11 11 9E 45 4E 54 45 52 20 27 1C 4C 9E 27 |"....ENTER '.L.'|
00000CC0: 20 46 4F 52 20 4C 49 53 54 20 4F 46 20 46 49 4C | FOR LIST OF FIL|
00000CD0: 45 53 20 4F 4E 20 44 49 53 4B 2E 22 00 06 15 62 |ES ON DISK."...b|
00000CE0: 02 99 22 45 4E 54 45 52 20 27 1C 4D 9E 27 20 54 |.."ENTER '.M.' T|
00000CF0: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00000D00: 2E 91 91 91 91 22 00 29 15 67 02 85 22 9E 4E 41 |.....".).g..".NA|
00000D10: 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 44 45 |ME OF FILE TO DE|
00000D20: 4C 45 54 45 22 3B 46 49 24 00 68 15 6C 02 8B 46 |LETE";FI$.h.l..F|
00000D30: 49 24 B2 22 4C 22 A7 99 22 11 11 11 11 1C 4C 4F |I$."L"..".....LO|
00000D40: 41 44 49 4E 47 20 46 49 4C 45 20 4E 41 4D 45 53 |ADING FILE NAMES|
00000D50: 2C 50 4C 45 41 53 45 20 57 41 49 54 2E 22 3A 8D |,PLEASE WAIT.":.|
00000D60: 37 30 30 3A 89 36 36 31 00 78 15 71 02 8B 46 49 |700:.661.x.q..FI|
00000D70: 24 B2 22 4D 22 A7 31 30 00 9D 15 76 02 99 58 24 |$."M".10...v..X$|
00000D80: 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A |:.BL$:.BL$:.BL$:|
00000D90: 99 42 4C 24 3A 99 42 4C 24 3B 22 91 22 00 BF 15 |.BL$:.BL$;"."...|
00000DA0: 7B 02 99 58 24 3A 99 22 9E 46 49 4C 45 20 54 4F |{..X$:.".FILE TO|
00000DB0: 20 44 45 4C 45 54 45 3A 20 1E 22 3B 46 49 24 00 | DELETE: .";FI$.|
00000DC0: E4 15 80 02 99 22 11 9E 44 45 4C 45 54 45 20 54 |....."..DELETE T|
00000DD0: 48 49 53 20 46 49 4C 45 3F 20 28 1C 59 9E 2F 1C |HIS FILE? (.Y./.|
00000DE0: 4E 9E 29 22 00 F9 15 85 02 A1 41 4E 24 3A 8B 41 |N.)"......AN$:.A|
00000DF0: 4E 24 B2 22 22 A7 36 34 35 00 31 16 8A 02 8B 41 |N$."".645.1....A|
00000E00: 4E 24 B2 22 59 22 A7 43 43 24 B2 22 53 30 3A 22 |N$."Y".CC$."S0:"|
00000E10: AA 46 49 24 3A 99 22 1C 11 44 45 4C 45 54 45 49 |.FI$:."..DELETEI|
00000E20: 4E 47 2E 2E 2E 91 22 3A 8D 32 37 30 3A 89 36 35 |NG....":.270:.65|
00000E30: 35 00 43 16 8D 02 8B 41 4E 24 B3 B1 22 4E 22 A7 |5.C....AN$.."N".|
00000E40: 36 34 35 00 68 16 8F 02 99 58 24 3A 99 42 4C 24 |645.h....X$:.BL$|
00000E50: 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A |:.BL$:.BL$:.BL$:|
00000E60: 99 42 4C 24 3B 22 91 22 00 7C 16 90 02 8B 4E 4C |.BL$;".".|....NL|
00000E70: B3 B1 31 A7 99 58 24 3A 89 36 36 38 00 B4 16 91 |..1..X$:.668....|
00000E80: 02 99 58 24 3A 99 22 9E 44 45 4C 45 54 45 20 41 |..X$:.".DELETE A|
00000E90: 4E 4F 54 48 45 52 20 46 49 4C 45 20 4F 4E 20 54 |NOTHER FILE ON T|
00000EA0: 48 49 53 20 4C 49 53 54 3F 28 1C 59 9E 2F 1C 4E |HIS LIST?(.Y./.N|
00000EB0: 9E 29 11 22 00 C9 16 92 02 A1 41 4E 24 3A 8B 41 |.)."......AN$:.A|
00000EC0: 4E 24 B2 22 22 A7 36 35 38 00 DA 16 93 02 8B 41 |N$."".658......A|
00000ED0: 4E 24 B2 22 4E 22 A7 36 36 38 00 EC 16 94 02 8B |N$."N".668......|
00000EE0: 41 4E 24 B3 B1 22 59 22 A7 36 35 38 00 11 17 95 |AN$.."Y".658....|
00000EF0: 02 99 58 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 |..X$:.BL$:.BL$:.|
00000F00: 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3B 22 91 |BL$:.BL$:.BL$;".|
00000F10: 22 00 38 17 96 02 99 58 24 3A 85 22 9E 44 45 4C |".8....X$:.".DEL|
00000F20: 45 54 45 20 57 48 49 43 48 20 46 49 4C 45 20 1C |ETE WHICH FILE .|
00000F30: 23 9E 20 22 3B 41 4E 24 00 4A 17 97 02 8B C5 28 |#. ";AN$.J.....(|
00000F40: 41 4E 24 29 B1 4E A7 36 36 31 00 6D 17 98 02 43 |AN$).N.661.m...C|
00000F50: B2 C5 28 41 4E 24 29 3A 46 49 24 B2 50 52 47 24 |..(AN$):FI$.PRG$|
00000F60: 28 43 29 3A 4E 4C B2 31 3A 89 36 33 30 00 95 17 |(C):NL.1:.630...|
00000F70: 9C 02 99 22 9E 44 45 4C 45 54 45 20 41 4E 4F 54 |...".DELETE ANOT|
00000F80: 48 45 52 20 46 49 4C 45 20 3F 20 28 1C 59 9E 2F |HER FILE ? (.Y./|
00000F90: 1C 4E 9E 29 22 00 AA 17 9D 02 A1 41 4E 24 3A 8B |.N.)"......AN$:.|
00000FA0: 41 4E 24 B2 22 22 A7 36 36 39 00 C1 17 9E 02 8B |AN$."".669......|
00000FB0: 41 4E 24 B2 22 59 22 A7 4E 4C B2 30 3A 89 36 30 |AN$."Y".NL.0:.60|
00000FC0: 30 00 D3 17 A3 02 8B 41 4E 24 B3 B1 22 4E 22 A7 |0......AN$.."N".|
00000FD0: 36 36 39 00 DB 17 A8 02 89 31 30 00 05 18 BC 02 |669......10.....|
00000FE0: 4E B2 30 3A 42 24 B2 22 22 3A 41 24 B2 22 22 3A |N.0:B$."":A$."":|
00000FF0: 81 58 B2 31 A4 39 38 3A 50 52 47 24 28 58 29 B2 |.X.1.98:PRG$(X).|
00001000: 22 22 3A 82 58 00 15 18 BF 02 9F 31 2C 38 2C 30 |"":.X......1,8,0|
00001010: 2C 22 24 30 22 00 23 18 C2 02 A1 23 31 2C 41 24 |,"$0".#....#1,A$|
00001020: 2C 42 24 00 31 18 C5 02 A1 23 31 2C 41 24 2C 42 |,B$.1....#1,A$,B|
00001030: 24 00 3F 18 C8 02 A1 23 31 2C 41 24 2C 42 24 00 |$.?....#1,A$,B$.|
00001040: 58 18 CB 02 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 |X....#1,B$:. ST.|
00001050: B1 30 20 A7 20 37 33 30 00 6E 18 CE 02 8B 20 42 |.0 . 730.n.... B|
00001060: 24 B3 B1 C7 28 33 34 29 20 A7 20 37 31 35 00 9D |$...(34) . 715..|
00001070: 18 D1 02 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 |....#1,B$:. B$..|
00001080: C7 28 33 34 29 A7 50 52 47 24 28 4E 29 B2 50 52 |.(34).PRG$(N).PR|
00001090: 47 24 28 4E 29 AA 42 24 3A 89 37 32 31 00 B9 18 |G$(N).B$:.721...|
000010A0: D4 02 A1 23 31 2C 42 24 3A 8B 20 42 24 B2 C7 28 |...#1,B$:. B$..(|
000010B0: 33 32 29 20 A7 20 37 32 34 00 CE 18 D7 02 8B 53 |32) . 724......S|
000010C0: 54 B2 30 A7 4E B2 4E AA 31 3A 89 37 30 39 00 FF |T.0.N.N.1:.709..|
000010D0: 18 DA 02 A0 31 3A 8B 4E B3 32 A7 99 22 1C 12 20 |....1:.N.2..".. |
000010E0: 44 49 53 4B 20 49 53 20 42 4C 41 4E 4B 20 92 9E |DISK IS BLANK ..|
000010F0: 22 3A 81 54 B2 31 A4 39 39 39 3A 82 54 3A 8E 00 |":.T.1.999:.T:..|
00001100: 09 19 DD 02 50 52 B2 33 30 00 3E 19 E0 02 99 22 |....PR.30.>...."|
00001110: 93 9E 4C 49 53 54 20 4F 46 20 46 49 4C 45 53 20 |..LIST OF FILES |
00001120: 4F 4E 20 54 48 49 53 20 44 49 53 4B 3A 22 3A 8B |ON THIS DISK:":.|
00001130: 4E B1 50 52 A7 4E 4F 25 B2 50 52 AB 31 35 00 5A |N.PR.NO%.PR.15.Z|
00001140: 19 E3 02 8B 4E B3 50 52 A7 4E 4F 25 B2 28 4E AB |....N.PR.NO%.(N.|
00001150: 28 50 52 AB 33 30 29 29 AD 32 00 6B 19 E6 02 81 |(PR.30)).2.k....|
00001160: 58 B2 50 52 AB 32 39 A4 4E 4F 25 00 83 19 E9 02 |X.PR.29.NO%.....|
00001170: 99 22 1C 22 3B 58 3B 22 1E 20 22 3B 50 52 47 24 |.".";X;". ";PRG$|
00001180: 28 58 29 00 8F 19 EC 02 82 58 3A 99 22 13 22 00 |(X)......X:.".".|
00001190: 9D 19 EF 02 8B 4E B1 50 52 A7 37 36 30 00 AE 19 |.....N.PR.760...|
000011A0: F2 02 81 58 B2 4E 4F 25 AA 31 A4 4E AB 31 00 B7 |...X.NO%.1.N.1..|
000011B0: 19 F5 02 89 37 36 33 00 C7 19 F8 02 81 58 B2 4E |....763......X.N|
000011C0: 4F 25 AA 31 A4 50 52 00 E3 19 FB 02 99 A3 32 30 |O%.1.PR.......20|
000011D0: 29 22 1C 22 3B 58 3B 22 1E 20 22 3B 50 52 47 24 |)".";X;". ";PRG$|
000011E0: 28 58 29 00 EA 19 FE 02 82 58 00 F8 19 01 03 8B |(X)......X......|
000011F0: 4E B3 50 52 AA 31 A7 8E 00 23 1A 04 03 99 22 11 |N.PR.1...#....".|
00001200: 9E 54 48 45 52 45 20 41 52 45 20 4D 4F 52 45 20 |.THERE ARE MORE |
00001210: 46 49 4C 45 53 20 4F 4E 20 54 48 45 20 44 49 53 |FILES ON THE DIS|
00001220: 4B 2E 22 00 4D 1A 07 03 99 22 44 4F 20 59 4F 55 |K.".M...."DO YOU|
00001230: 20 57 49 53 48 20 54 4F 20 53 45 45 20 54 48 45 | WISH TO SEE THE|
00001240: 4D 3F 20 28 1C 59 9E 2F 1C 4E 9E 29 22 00 62 1A |M? (.Y./.N.)".b.|
00001250: 0A 03 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 37 |...AN$:.AN$."".7|
00001260: 37 38 00 7D 1A 0D 03 8B 41 4E 24 B2 22 59 22 A7 |78.}....AN$."Y".|
00001270: 50 52 B2 50 52 AA 33 30 3A 89 37 33 36 00 8F 1A |PR.PR.30:.736...|
00001280: 10 03 8B 41 4E 24 B3 B1 22 4E 22 A7 37 37 38 00 |...AN$.."N".778.|
00001290: 95 1A 11 03 8E 00 B5 1A 20 03 8F 20 2A 2A 2A 20 |........ .. *** |
000012A0: 44 49 52 45 43 54 4F 52 59 20 52 4F 55 54 49 4E |DIRECTORY ROUTIN|
000012B0: 45 20 2A 2A 2A 00 E8 1A 25 03 99 22 93 12 9A 11 |E ***...%.."....|
000012C0: 20 20 20 20 20 20 4C 20 49 20 53 20 54 20 20 20 | L I S T |
000012D0: 44 20 49 20 52 20 45 20 43 20 54 20 4F 20 52 20 |D I R E C T O R |
000012E0: 59 20 A0 A0 A0 A0 20 22 00 11 1B 2A 03 99 22 1C |Y .... "...*..".|
000012F0: 11 12 56 92 9E 49 45 57 20 4F 52 20 1C 12 50 92 |..V..IEW OR ..P.|
00001300: 9E 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 3F |.RINT DIRECTORY?|
00001310: 22 00 26 1B 2F 03 A1 41 4E 24 3A 8B 41 4E 24 B2 |".&./..AN$:.AN$.|
00001320: 22 22 A7 38 31 35 00 3D 1B 34 03 8B 41 4E 24 B2 |"".815.=.4..AN$.|
00001330: 22 56 22 A7 9F 33 2C 33 3A 89 38 33 35 00 5A 1B |"V"..3,3:.835.Z.|
00001340: 39 03 8B 41 4E 24 B2 22 50 22 A7 9F 33 2C 34 3A |9..AN$."P"..3,4:|
00001350: 8D 31 34 33 30 3A 89 38 33 35 00 63 1B 3E 03 89 |.1430:.835.c.>..|
00001360: 38 31 35 00 92 1B 43 03 8D 38 36 30 3A 99 22 9E |815...C..860:.".|
00001370: 4C 49 53 54 20 41 4E 4F 54 48 45 52 20 44 49 52 |LIST ANOTHER DIR|
00001380: 45 43 54 4F 52 59 3F 20 28 1C 59 9E 2F 1C 4E 9E |ECTORY? (.Y./.N.|
00001390: 29 22 00 A7 1B 48 03 A1 41 4E 24 3A 8B 41 4E 24 |)"...H..AN$:.AN$|
000013A0: B2 22 22 A7 38 34 30 00 B8 1B 4D 03 8B 41 4E 24 |."".840...M..AN$|
000013B0: B3 B1 22 59 22 A7 31 30 00 C1 1B 52 03 89 38 30 |.."Y".10...R..80|
000013C0: 35 00 DD 1B 57 03 8F 20 20 44 49 52 45 43 54 4F |5...W.. DIRECTO|
000013D0: 52 59 20 53 55 42 52 4F 55 54 49 4E 45 00 EA 1B |RY SUBROUTINE...|
000013E0: 5C 03 5A 30 24 B2 C7 28 30 29 00 FC 1B 61 03 9F |\.Z0$..(0)...a..|
000013F0: 38 2C 38 2C 30 2C 22 24 30 3A 2A 22 00 32 1C 66 |8,8,0,"$0:*".2.f|
00001400: 03 99 22 11 9E 1C 12 53 50 41 43 45 92 9E 20 54 |.."....SPACE.. T|
00001410: 4F 47 47 4C 45 53 20 50 41 55 53 45 20 20 20 1C |OGGLES PAUSE .|
00001420: 12 53 48 49 46 54 92 9E 20 54 4F 20 45 4E 44 11 |.SHIFT.. TO END.|
00001430: 1E 22 00 4B 1C 6B 03 A1 23 38 2C 41 24 2C 41 24 |.".K.k..#8,A$,A$|
00001440: 3A 8B 41 24 B2 22 22 A7 39 35 35 00 5F 1C 70 03 |:.A$."".955._.p.|
00001450: A1 23 38 2C 41 24 2C 41 24 2C 41 24 2C 44 24 00 |.#8,A$,A$,A$,D$.|
00001460: 94 1C 75 03 42 4B B2 C6 28 41 24 AA 5A 30 24 29 |..u.BK..(A$.Z0$)|
00001470: AA 32 35 36 AC C6 28 44 24 AA 5A 30 24 29 3A 42 |.256..(D$.Z0$):B|
00001480: 4B 24 B2 22 20 20 20 20 20 22 AA C4 28 42 4B 29 |K$." "..(BK)|
00001490: AA 22 20 22 00 A6 1C 7A 03 8B 53 54 B2 30 A7 98 |." "...z..ST.0..|
000014A0: 33 2C 42 4B 24 3B 00 B5 1C 7F 03 8B 53 54 B3 B1 |3,BK$;......ST..|
000014B0: 30 A7 39 35 35 00 FA 1C 84 03 A1 23 38 2C 49 24 |0.955......#8,I$|
000014C0: 28 31 29 2C 49 24 28 32 29 2C 49 24 28 33 29 2C |(1),I$(2),I$(3),|
000014D0: 49 24 28 34 29 2C 49 24 28 35 29 2C 49 24 28 36 |I$(4),I$(5),I$(6|
000014E0: 29 2C 49 24 28 37 29 2C 49 24 28 38 29 2C 49 24 |),I$(7),I$(8),I$|
000014F0: 28 39 29 2C 49 24 28 31 30 29 00 48 1D 89 03 A1 |(9),I$(10).H....|
00001500: 23 38 2C 49 24 28 31 31 29 2C 49 24 28 31 32 29 |#8,I$(11),I$(12)|
00001510: 2C 49 24 28 31 33 29 2C 49 24 28 31 34 29 2C 49 |,I$(13),I$(14),I|
00001520: 24 28 31 35 29 2C 49 24 28 31 36 29 2C 49 24 28 |$(15),I$(16),I$(|
00001530: 31 37 29 2C 49 24 28 31 38 29 2C 49 24 28 31 39 |17),I$(18),I$(19|
00001540: 29 2C 49 24 28 32 30 29 00 7A 1D 8E 03 A1 23 38 |),I$(20).z....#8|
00001550: 2C 49 24 28 32 31 29 2C 49 24 28 32 32 29 2C 49 |,I$(21),I$(22),I|
00001560: 24 28 32 33 29 2C 49 24 28 32 34 29 2C 49 24 28 |$(23),I$(24),I$(|
00001570: 32 35 29 2C 49 24 28 32 36 29 00 B6 1D 93 03 98 |25),I$(26)......|
00001580: 33 2C 49 24 28 31 29 49 24 28 32 29 49 24 28 33 |3,I$(1)I$(2)I$(3|
00001590: 29 49 24 28 34 29 49 24 28 35 29 49 24 28 36 29 |)I$(4)I$(5)I$(6)|
000015A0: 49 24 28 37 29 49 24 28 38 29 49 24 28 39 29 49 |I$(7)I$(8)I$(9)I|
000015B0: 24 28 31 30 29 3B 00 FB 1D 98 03 98 33 2C 49 24 |$(10);......3,I$|
000015C0: 28 31 31 29 49 24 28 31 32 29 49 24 28 31 33 29 |(11)I$(12)I$(13)|
000015D0: 49 24 28 31 34 29 49 24 28 31 35 29 49 24 28 31 |I$(14)I$(15)I$(1|
000015E0: 36 29 49 24 28 31 37 29 49 24 28 31 38 29 49 24 |6)I$(17)I$(18)I$|
000015F0: 28 31 39 29 49 24 28 32 30 29 3B 00 28 1E 9D 03 |(19)I$(20);.(...|
00001600: 98 33 2C 49 24 28 32 31 29 49 24 28 32 32 29 49 |.3,I$(21)I$(22)I|
00001610: 24 28 32 33 29 49 24 28 32 34 29 49 24 28 32 35 |$(23)I$(24)I$(25|
00001620: 29 49 24 28 32 36 29 3B 00 58 1E A2 03 8B 49 24 |)I$(26);.X....I$|
00001630: 28 32 36 29 B3 B1 22 22 A7 A1 23 38 2C 41 24 2C |(26)..""..#8,A$,|
00001640: 49 24 28 32 36 29 3A 98 33 2C 41 24 49 24 28 32 |I$(26):.3,A$I$(2|
00001650: 36 29 3B 3A 89 39 33 30 00 7F 1E A7 03 8B C2 28 |6);:.930.......(|
00001660: 36 35 33 29 A7 98 33 3A 89 39 35 35 3A 8F 20 53 |653)..3:.955:. S|
00001670: 48 49 46 54 20 4B 45 59 20 44 45 54 45 43 54 00 |HIFT KEY DETECT.|
00001680: 92 1E AC 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 |.....A$:.A$."".9|
00001690: 35 30 00 A5 1E B1 03 A1 41 24 3A 8B 41 24 B2 22 |50......A$:.A$."|
000016A0: 22 A7 39 34 35 00 B7 1E B6 03 8B 53 54 B2 30 A7 |".945......ST.0.|
000016B0: 98 33 3A 89 38 38 30 00 CB 1E BB 03 97 31 39 38 |.3:.880......198|
000016C0: 2C 30 3A 98 33 3A A0 33 3A A0 38 00 D1 1E C0 03 |,0:.3:.3:.8.....|
000016D0: 8E 00 DF 1E 96 05 A0 34 2C 34 3A 9F 34 2C 34 00 |.......4,4:.4,4.|
000016E0: F9 1E 9B 05 98 34 3A 8B A8 C2 28 31 34 34 29 AF |.....4:...(144).|
000016F0: 31 32 38 A7 89 31 34 34 35 00 33 1F A0 05 99 22 |128..1445.3...."|
00001700: 1C 2A 2A 2A 20 9E 50 4C 45 41 53 45 20 54 55 52 |.*** .PLEASE TUR|
00001710: 4E 20 54 48 45 20 50 52 49 4E 54 45 52 20 4F 4E |N THE PRINTER ON|
00001720: A0 1C 2A 2A 2A 9E 91 22 3A 50 50 B2 31 3A 89 31 |..***..":PP.1:.1|
00001730: 34 33 35 00 68 1F A5 05 8B 50 50 B2 31 A7 99 22 |435.h....PP.1.."|
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001760: 20 20 20 20 20 20 91 22 00 7A 1F AA 05 A0 34 2C | .".z....4,|
00001770: 34 3A 9F 34 2C 34 2C 37 3A 8E 00 A0 1F DC 05 8F |4:.4,4,7:.......|
00001780: 2A 2A 2A 20 52 45 54 55 52 4E 20 54 4F 20 48 2E |*** RETURN TO H.|
00001790: 41 2E 4C 2E 20 52 4F 55 54 49 4E 45 20 2A 2A 2A |A.L. ROUTINE ***|
000017A0: 00 D6 1F E1 05 99 22 11 11 9A 48 2E 41 2E 4C 2E |......"...H.A.L.|
000017B0: 9E 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 3F |. DISK IN DRIVE?|
000017C0: 2E 2E 2E 2E 50 52 45 53 53 20 1C 12 52 45 54 55 |....PRESS ..RETU|
000017D0: 52 4E 92 9E 2E 22 00 F0 1F E2 05 A1 41 4E 24 3A |RN..."......AN$:|
000017E0: 8B 41 4E 24 B3 B1 C7 28 31 33 29 A7 31 35 30 36 |.AN$...(13).1506|
000017F0: 00 0C 20 E6 05 97 35 33 32 38 30 2C 30 3A 97 35 |.. ...53280,0:.5|
00001800: 33 32 38 31 2C 30 3A 99 22 93 90 22 00 1C 20 F0 |3281,0:."..".. .|
00001810: 05 48 24 B2 22 48 2E 41 2E 4C 2E 22 00 27 20 FA |.H$."H.A.L.".' .|
00001820: 05 97 31 39 38 2C 34 00 3E 20 04 06 99 22 93 11 |..198,4.> ..."..|
00001830: 11 4C 4F 41 44 22 C7 28 33 34 29 48 24 3B 00 50 |.LOAD".(34)H$;.P|
00001840: 20 0E 06 99 20 C7 28 33 34 29 22 2C 38 13 22 3B | ... .(34)",8.";|
00001850: 00 75 20 18 06 97 36 33 31 2C 31 33 3A 97 36 33 |.u ...631,13:.63|
00001860: 32 2C 38 32 3A 97 36 33 33 2C 31 31 37 3A 97 36 |2,82:.633,117:.6|
00001870: 33 34 2C 31 33 00 7B 20 22 06 80 00 A1 20 40 06 |34,13.{ ".... @.|
00001880: 8F 2A 2A 2A 20 4C 4F 41 44 20 46 49 4C 45 20 43 |.*** LOAD FILE C|
00001890: 4F 50 49 45 52 20 52 4F 55 54 49 4E 45 20 2A 2A |OPIER ROUTINE **|
000018A0: 2A 00 BF 20 43 06 8B 41 4E 24 B2 22 38 22 A7 48 |*.. C..AN$."8".H|
000018B0: 24 B2 22 46 49 4C 45 20 43 4F 50 49 45 52 22 00 |$."FILE COPIER".|
000018C0: DD 20 44 06 8B 41 4E 24 B2 22 35 22 A7 48 24 B2 |. D..AN$."5".H$.|
000018D0: 22 44 49 53 4B 20 43 4F 50 49 45 52 22 00 13 21 |"DISK COPIER"..!|
000018E0: 45 06 99 22 11 11 9A 48 2E 41 2E 4C 2E 9E 20 44 |E.."...H.A.L.. D|
000018F0: 49 53 4B 20 49 4E 20 44 52 49 56 45 3F 2E 2E 2E |ISK IN DRIVE?...|
00001900: 2E 50 52 45 53 53 20 1C 12 52 45 54 55 52 4E 92 |.PRESS ..RETURN.|
00001910: 9E 2E 22 00 2D 21 4A 06 A1 41 4E 24 3A 8B 41 4E |..".-!J..AN$:.AN|
00001920: 24 B3 B1 C7 28 31 33 29 A7 31 36 31 30 00 38 21 |$...(13).1610.8!|
00001930: 5E 06 97 31 39 38 2C 34 00 50 21 68 06 99 22 93 |^..198,4.P!h..".|
00001940: 90 11 11 4C 4F 41 44 22 C7 28 33 34 29 48 24 3B |...LOAD".(34)H$;|
00001950: 00 62 21 72 06 99 20 C7 28 33 34 29 22 2C 38 13 |.b!r.. .(34)",8.|
00001960: 22 3B 00 87 21 7C 06 97 36 33 31 2C 31 33 3A 97 |";..!|..631,13:.|
00001970: 36 33 32 2C 38 32 3A 97 36 33 33 2C 31 31 37 3A |632,82:.633,117:|
00001980: 97 36 33 34 2C 31 33 00 8D 21 86 06 80 00 00 00 |.634,13..!......|
.......53280,0:.53281,0:.......PRG$(99),
I$(26).H....G(142):."... D I S K
U T I L I T I E S "......".. YOUR
OPTIONS ARE:".......5)"..(.1.) FORMAT A
NEW DISK".I.....5)"..(.2.) ERASE A DISK
"...#...5)"..(.3.) VALIDATE A DISK"...(.
..5)"..(.4.) RE-NAME A DISK".*.*...5)"..
(.5.) DISK COPIER".J.-...5)"..(.6.) DELE
TE A FILE".K.2...5)"..(.7.) RE-NAME A FI
LE"...7...5)"..(.8.) FILE COPIER"...<...
5)"..(.9.) VIEW/PRINT DIRECTORY".S.F...5
)"..(.0.) RETURN TO H.A.L."...K..".. S
ELECT AN OPTION.."...P..AN$:.AN$."".80..
.S..E(AN$).9.80.).T..AN$."0".1500._.U.O.
E(AN$):.O.100,200,300,400,1600,600,500,1
600,800...D..".... F O R M A T A N
E W D I S K "...I.."...INSERT DISK
TO BE FORMATTED."...N.."..ENTER THE NAME
YOU WANT ON THIS DISK:"...P.."ENTER '.M
.' TO ABORT & RETURN TO MENU.".$.S..".."
;NA$.5.T.. NA$."M".10.C.X..C(NA$).16..".
16 CHARACTER MAXIMUM!":.115...}.."...ENT
ER A 2 CHARACTER I.D. FOR THE DISK:"....
.."..";ID$.N....C(ID$).2..".2 CHARACTER
MAXIMUM!":.130......"...FORMATTING DISK.
...PLEASE WAIT.".5...CC$."N0:".NA$.",".I
D$:."..FORMATTING...PLEASE WAIT":.270.^.
..."...FORMAT ANOTHER DISK? (.Y./.N.)".S
....AN$:.AN$."".150......AN$."Y".100...
..AN$.."N".150......10.Q.H.."....
E R A S E A D I S K "...M.."
...INSERT FORMATTED DISK TO BE ERASED.".
..R.."..ENTER THE NAME YOU WANT ON THIS
DISK:".\.T.."ENTER '.M.' TO ABORT & RETU
RN TO MENU.".J.W.."..";NA$.{.X.. NA$."M"
.10......C(NA$).16..".16 CHARACTER MAXIM
UM!":.215.....CC$."N0:".NA$:.270......".
..ERASE ANOTHER DISK? (.Y./.N.)"......AN
$:.AN$."".235......AN$."Y".200. ....AN$.
."N".235.(....10.5....15,8,15.A....15,CC
$.K.". 15:..~.,..".... V A L I D A T
E A D I S K "...1.."...INSERT D
ISK TO BE VALIDATED.".K.6.."..PRESS ..RE
TURN.. WHEN READY."...;..AN$:.AN$."".315
...@..AN$..G(13).315.$.E.CC$."V0":."..VA
LIDATING...PLEASE WAIT":.270.O.J.."...VA
LIDATE ANOTHER DISK? (.Y./.N.)".D.O..AN$
:.AN$."".335.U.T..AN$."Y".300...Y..AN$..
"N".335...^..10.B....".... R E -
N A M E D I S K "......"...INSE
RT THE DISK TO BE RE-NAMED,":."THEN PRES
S .RETURN.."......AN$:.AN$."".410.-....A
N$..G(13).410.\... 15:.15,8,15:.15,"I0:"
: 5:.5,8,5,"#":B$.""......15,"U1:5,0,18,
0":.15,"B-P:5,144"......J.1.16:.#5,A$:A$
.G(F(A$.G(0))):B$.B$.A$:..R...."...DISK
NAME IS NOW: .";B$......"...NEW NAME";N$
:.C(N$).16..".MAXIMUM LENGTH IS 16!":.44
0.1....C(N$).16.N$.N$.G(160):.445.A.B..1
5,"B-P:5,144":.5,N$;:.15,"U2:5,0,18,0":
5...G..15,ER,ER$:."..DISK STATUS: ."ER;E
R$:.15,"I0": 15.O.L.."...YOUR DISK HAS B
EEN RE-NAMED.":.T.1.1666:.T:.10......"..
.. R E - N A M E A F I L E
".4...."....ENTER '.L.' FOR LIST OF FIL
ES ON DISK.".^...."ENTER '.M.' TO RETURN
TO MENU....."......".NAME OF FILE TO RE
-NAME";FI$.A....FI$."L"..".....LOADING F
ILE NAMES,PLEASE WAIT.":.700:.531.Q....F
I$."M".10.Z....535......"..RE-NAME WHICH
FILE .#. ";AN$......E(AN$).N.."...":.53
1.2...C.E(AN$):FI$.PRG$(C).U....".....FI
LE TO RE-NAME: .";FI$.T...."..THE NEW FI
LE NAME";NN$......C(NN$).16..".16 CHARAC
TER MAX.!":.540...!.CC$."R0:".NN$."=".FI
$:.270...&.."..RE-NAME ANOTHER FILE ? (.
Y./.N.)"...+..AN$:.AN$."".555...0..AN$."
Y".500. .5..AN$.."N".555.(.:..10.[.X..".
... D E L E T E A F I L E
".X.[.X$."..................."...\.BL$
."
"...].."....ENTER '.L.' FOR LIST OF FIL
ES ON DISK."...B.."ENTER '.M.' TO RETURN
TO MENU.....".).G..".NAME OF FILE TO DE
LETE";FI$.H.L..FI$."L"..".....LOADING FI
LE NAMES,PLEASE WAIT.":.700:.661.X.Q..FI
$."M".10...V..X$:.BL$:.BL$:.BL$:.BL$:.BL
$;"."...{..X$:.".FILE TO DELETE: .";FI$.
....."..DELETE THIS FILE? (.Y./.N.)"....
..AN$:.AN$."".645.1....AN$."Y".CC$."S0:"
.FI$:."..DELETEING....":.270:.655.C....A
N$.."N".645.H....X$:.BL$:.BL$:.BL$:.BL$:
.BL$;".".|....NL..1..X$:.668......X$:.".
DELETE ANOTHER FILE ON THIS LIST?(.Y./.N
.).".I....AN$:.AN$."".658.Z....AN$."N".6
68......AN$.."Y".658......X$:.BL$:.BL$:.
BL$:.BL$:.BL$;".".8....X$:.".DELETE WHIC
H FILE .#. ";AN$.J....E(AN$).N.661.M...C
.E(AN$):FI$.PRG$(C):NL.1:.630......".DEL
ETE ANOTHER FILE ? (.Y./.N.)"......AN$:.
AN$."".669.A....AN$."Y".NL.0:.600.S....A
N$.."N".669......10.....N.0:B$."":A$."":
.X.1.98:PRG$(X)."":.X......1,8,0,"$0".#.
B..#1,A$,B$.1.E..#1,A$,B$.?.H..#1,A$,B$.
X.K..#1,B$:. ST..0 . 730.N.N.. B$..G(34)
. 715...Q..#1,B$:. B$..G(34).PRG$(N).PR
G$(N).B$:.721...T..#1,B$:. B$.G(32) . 72
4.N.W..ST.0.N.N.1:.709...Z. 1:.N.2.."..
DISK IS BLANK ..":.T.1.999:.T:......PR.3
0.>...."..LIST OF FILES ON THIS DISK:":.
N.PR.NO%.PR.15.Z....N.PR.NO%.(N.(PR.30))
.2.K....X.PR.29.NO%......".";X;". ";PRG$
(X)......X:."."......N.PR.760......X.NO%
.1.N.1......763.G....X.NO%.1.PR.......20
)".";X;". ";PRG$(X)......X......N.PR.1..
.#...."..THERE ARE MORE FILES ON THE DIS
K.".M...."DO YOU WISH TO SEE THEM? (.Y./
.N.)".B....AN$:.AN$."".778.}....AN$."Y".
PR.PR.30:.736......AN$.."N".778.........
.. *** DIRECTORY ROUTINE ***...%.."....
L I S T D I R E C T O R Y "
...*.."...V..IEW OR ..P..RINT DIRECTORY?
".&./..AN$:.AN$."".815.=.4..AN$."V"..3,3
:.835.Z.9..AN$."P"..3,4:.1430:.835.C.>..
815...C..860:.".LIST ANOTHER DIRECTORY?
(.Y./.N.)"...H..AN$:.AN$."".840...M..AN$
.."Y".10.A.R..805...W.. DIRECTORY SUBRO
UTINE...\.Z0$.G(0)...A..8,8,0,"$0:*".2.F
.."....SPACE.. TOGGLES PAUSE ..SHIFT..
TO END..".K.K..#8,A$,A$:.A$."".955._.P.
.#8,A$,A$,A$,D$...U.BK.F(A$.Z0$).256.F(D
$.Z0$):BK$." ".D(BK)." "...Z..ST.0..
3,BK$;.....ST..0.955......#8,I$(1),I$(2
),I$(3),I$(4),I$(5),I$(6),I$(7),I$(8),I$
(9),I$(10).H....#8,I$(11),I$(12),I$(13),
I$(14),I$(15),I$(16),I$(17),I$(18),I$(19
),I$(20).Z....#8,I$(21),I$(22),I$(23),I$
(24),I$(25),I$(26)......3,I$(1)I$(2)I$(3
)I$(4)I$(5)I$(6)I$(7)I$(8)I$(9)I$(10);..
....3,I$(11)I$(12)I$(13)I$(14)I$(15)I$(1
6)I$(17)I$(18)I$(19)I$(20);.(....3,I$(21
)I$(22)I$(23)I$(24)I$(25)I$(26);.X....I$
(26)..""..#8,A$,I$(26):.3,A$I$(26);:.930
.....B(653)..3:.955:. SHIFT KEY DETECT.
.....A$:.A$."".950......A$:.A$."".945...
...ST.0..3:.880.K....198,0:.3: 3: 8.Q...
...... 4,4:.4,4......4:..B(144).128..144
5.3. ..".*** .PLEASE TURN THE PRINTER ON
.***..":PP.1:.1435.H....PP.1.."
.".Z... 4,
4:.4,4,7:.. ....*** RETURN TO H.A.L. ROU
TINE ***.V...."...H.A.L.. DISK IN DRIVE?
....PRESS ..RETURN..."......AN$:.AN$..G(
13).1506.. ...53280,0:.53281,0:."..".. .
.H$."H.A.L.".' ...198,4.> ..."...LOAD"G(
34)H$;.P ... G(34)",8.";.U ...631,13:.63
2,82:.633,117:.634,13.{ ".... @..*** LOA
D FILE COPIER ROUTINE ***.. C..AN$."8".H
$."FILE COPIER".. D..AN$."5".H$."DISK CO
PIER"..!E.."...H.A.L.. DISK IN DRIVE?...
.PRESS ..RETURN...".-!J..AN$:.AN$..G(13)
.1610.8!^..198,4.P!H.."....LOAD"G(34)H$;
.B!R.. G(34)",8.";..!|..631,13:.632,82:.
633,117:.634,13..!......
> CLICK IMAGE PREVIEW FOR FULL MODAL