Multiple names: DISK SURGEON, DISK SURGEON 1

00000000: 01 08 27 08 0A 00 97 35  33 32 38 30 2C 31 31 3A  |..'....53280,11:|
00000010: 97 35 33 32 38 31 2C 31  32 3A 99 22 1F 22 3A 97  |.53281,12:.".":.|
00000020: 38 30 38 2C 32 33 34 00  42 08 14 00 86 46 24 28  |808,234.B....F$(|
00000030: 31 34 34 2C 34 29 2C 54  24 28 34 29 2C 4D 24 28  |144,4),T$(4),M$(|
00000040: 33 29 00 5B 08 1E 00 81  58 B2 36 37 39 A4 37 31  |3).[....X.679.71|
00000050: 38 3A 87 41 3A 97 58 2C  41 3A 82 00 9D 08 28 00  |8:.A:.X,A:....(.|
00000060: 54 24 28 30 29 B2 22 44  45 4C 45 54 45 44 22 3A  |T$(0)."DELETED":|
00000070: 54 24 28 31 29 B2 22 53  45 51 55 45 4E 54 2E 22  |T$(1)."SEQUENT."|
00000080: 3A 54 24 28 32 29 B2 22  50 52 4F 47 52 41 4D 22  |:T$(2)."PROGRAM"|
00000090: 3A 54 24 28 33 29 B2 22  55 53 45 52 22 00 B2 08  |:T$(3)."USER"...|
000000A0: 2D 00 54 24 28 34 29 B2  22 52 45 4C 41 54 49 56  |-.T$(4)."RELATIV|
000000B0: 45 22 00 E8 08 32 00 4D  24 28 30 29 B2 22 90 50  |E"...2.M$(0).".P|
000000C0: 52 49 4E 54 49 4E 47 20  45 4E 54 49 52 45 20 44  |RINTING ENTIRE D|
000000D0: 49 52 45 43 54 4F 52 59  2E 2E 2E 50 4C 45 41 53  |IRECTORY...PLEAS|
000000E0: 45 20 57 41 49 54 2E 22  00 19 09 3C 00 4D 24 28  |E WAIT."...<.M$(|
000000F0: 31 29 B2 22 90 50 52 49  4E 54 49 4E 47 20 56 41  |1).".PRINTING VA|
00000100: 4C 49 44 20 46 49 4C 45  53 2E 2E 2E 50 4C 45 41  |LID FILES...PLEA|
00000110: 53 45 20 57 41 49 54 2E  22 00 4F 09 46 00 4D 24  |SE WAIT.".O.F.M$|
00000120: 28 32 29 B2 22 90 50 52  49 4E 54 49 4E 47 20 53  |(2).".PRINTING S|
00000130: 43 52 41 54 43 48 45 44  20 46 49 4C 45 53 2E 2E  |CRATCHED FILES..|
00000140: 2E 50 4C 45 41 53 45 20  57 41 49 54 2E 1F 22 00  |.PLEASE WAIT..".|
00000150: 82 09 50 00 4D 24 28 33  29 B2 22 90 50 52 49 4E  |..P.M$(3).".PRIN|
00000160: 54 49 4E 47 20 50 52 4F  47 52 41 4D 20 46 49 4C  |TING PROGRAM FIL|
00000170: 45 53 2E 2E 2E 50 4C 45  41 53 45 20 57 41 49 54  |ES...PLEASE WAIT|
00000180: 2E 22 00 8B 09 5A 00 89  37 31 30 00 9E 09 64 00  |."...Z..710...d.|
00000190: 84 31 35 2C 45 2C 45 24  2C 45 54 2C 45 53 00 AA  |.15,E,E$,ET,ES..|
000001A0: 09 6E 00 8B 45 B3 32 30  A7 8E 00 E3 09 78 00 99  |.n..E.20.....x..|
000001B0: 22 93 1C 12 20 20 20 20  20 20 20 20 20 20 44 49  |"...          DI|
000001C0: 53 4B 20 45 52 52 4F 52  21 21 21 20 20 20 20 20  |SK ERROR!!!     |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 1F 22 3A 99 3A  |           .":.:|
000001E0: 99 3A 99 00 F4 09 82 00  99 45 2C 45 24 3A 99 45  |.:.......E,E$:.E|
000001F0: 54 2C 45 53 00 00 0A 8C  00 98 31 35 2C 22 49 22  |T,ES......15,"I"|
00000200: 00 0B 0A 96 00 A0 38 3A  A0 31 35 00 3B 0A A0 00  |......8:.15.;...|
00000210: 99 3A 99 3A 99 3A 99 22  05 50 52 45 53 53 20 41  |.:.:.:.".PRESS A|
00000220: 4E 59 20 4B 45 59 20 54  4F 20 52 45 53 54 41 52  |NY KEY TO RESTAR|
00000230: 54 20 50 52 4F 47 52 41  4D 2E 22 00 61 0A AA 00  |T PROGRAM.".a...|
00000240: 99 3A 99 3A 99 3A 99 3A  99 22 1C 20 20 20 20 48  |.:.:.:.:.".    H|
00000250: 49 54 20 27 46 31 27 20  54 4F 20 51 55 49 54 2E  |IT 'F1' TO QUIT.|
00000260: 22 00 7D 0A B4 00 92 31  39 38 2C 31 3A A1 41 24  |".}....198,1:.A$|
00000270: 3A 8B 41 24 B2 22 85 22  A7 32 34 31 30 00 83 0A  |:.A$.".".2410...|
00000280: BE 00 8A 00 98 0A C8 00  99 22 1F 20 20 4D 41 49  |.........".  MAI|
00000290: 4E 20 4D 45 4E 55 3A 22  00 B7 0A D2 00 99 3A 99  |N MENU:"......:.|
000002A0: 22 20 20 31 2E 20 43 48  41 4E 47 45 20 44 49 53  |"  1. CHANGE DIS|
000002B0: 4B 20 4E 41 4D 45 22 00  D4 0A E6 00 99 3A 99 22  |K NAME"......:."|
000002C0: 20 20 32 2E 20 56 49 45  57 20 44 49 52 45 43 54  |  2. VIEW DIRECT|
000002D0: 4F 52 59 22 00 F1 0A F0  00 99 3A 99 22 20 20 33  |ORY"......:."  3|
000002E0: 2E 20 55 4E 53 43 52 41  54 43 48 20 46 49 4C 45  |. UNSCRATCH FILE|
000002F0: 22 00 1F 0B FA 00 99 3A  99 22 20 20 34 2E 20 53  |"......:."  4. S|
00000300: 43 52 41 54 43 48 20 46  49 4C 45 2D 4C 45 41 56  |CRATCH FILE-LEAV|
00000310: 45 20 4F 4E 20 44 49 52  45 43 54 4F 52 59 22 00  |E ON DIRECTORY".|
00000320: 4D 0B 04 01 99 3A 99 22  20 20 35 2E 20 53 43 52  |M....:."  5. SCR|
00000330: 41 54 43 48 20 46 49 4C  45 2D 54 41 4B 45 20 4F  |ATCH FILE-TAKE O|
00000340: 46 46 20 44 49 52 45 43  54 4F 52 59 22 00 6B 0B  |FF DIRECTORY".k.|
00000350: 0E 01 99 3A 99 22 20 20  36 2E 20 50 52 49 4E 54  |...:."  6. PRINT|
00000360: 20 44 49 52 45 43 54 4F  52 59 22 00 8C 0B 18 01  | DIRECTORY".....|
00000370: 99 3A 99 22 20 20 37 2E  20 47 4F 20 54 4F 20 41  |.:."  7. GO TO A|
00000380: 4E 4F 54 48 45 52 20 44  49 53 4B 22 00 A7 0B 22  |NOTHER DISK"..."|
00000390: 01 99 3A 99 22 20 20 38  2E 20 51 55 49 54 20 50  |..:."  8. QUIT P|
000003A0: 52 4F 47 52 41 4D 22 00  C8 0B 2C 01 99 3A 99 A6  |ROGRAM"...,..:..|
000003B0: 39 29 22 05 57 48 49 43  48 20 4F 50 54 49 4F 4E  |9)".WHICH OPTION|
000003C0: 3F 20 28 31 2D 38 29 22  00 EA 0B 36 01 92 31 39  |? (1-8)"...6..19|
000003D0: 38 2C 31 3A A1 41 24 3A  8B 41 24 B3 22 31 22 B0  |8,1:.A$:.A$."1".|
000003E0: 41 24 B1 22 38 22 A7 33  31 30 00 F0 0B 40 01 8E  |A$."8".310...@..|
000003F0: 00 06 0C 4A 01 9F 31 35  2C 38 2C 31 35 2C 22 49  |...J..15,8,15,"I|
00000400: 22 3A 8D 31 30 30 00 1A  0C 54 01 9F 38 2C 38 2C  |":.100...T..8,8,|
00000410: 38 2C 22 23 22 3A 8D 31  30 30 00 34 0C 5E 01 98  |8,"#":.100.4.^..|
00000420: 31 35 2C 22 55 31 3A 22  38 3B 30 3B 54 3B 53 3A  |15,"U1:"8;0;T;S:|
00000430: 8D 31 30 30 00 4C 0C 68  01 98 31 35 2C 22 42 2D  |.100.L.h..15,"B-|
00000440: 50 3A 22 38 3B 42 50 3A  8D 31 30 30 00 5C 0C 72  |P:"8;BP:.100.\.r|
00000450: 01 98 38 2C 44 24 3B 3A  8D 31 30 30 00 76 0C 7C  |..8,D$;:.100.v.||
00000460: 01 98 31 35 2C 22 55 32  3A 22 38 3B 30 3B 54 3B  |..15,"U2:"8;0;T;|
00000470: 53 3A 8D 31 30 30 00 83  0C 86 01 A0 38 3A A0 31  |S:.100......8:.1|
00000480: 35 3A 8E 00 94 0C 90 01  9F 31 35 2C 38 2C 31 35  |5:.......15,8,15|
00000490: 2C 22 49 22 00 A3 0C 9A  01 9F 38 2C 38 2C 38 2C  |,"I"......8,8,8,|
000004A0: 22 23 22 00 BD 0C A4 01  98 31 35 2C 22 55 31 3A  |"#"......15,"U1:|
000004B0: 22 38 3B 30 3B 54 3B 53  3A 8D 31 30 30 00 DA 0C  |"8;0;T;S:.100...|
000004C0: AE 01 A1 23 38 2C 4E 54  24 3A 8B 4E 54 24 B2 22  |...#8,NT$:.NT$."|
000004D0: 22 A7 4E 54 24 B2 C7 28  30 29 00 E8 0C B8 01 4E  |".NT$..(0).....N|
000004E0: 54 B2 C6 28 4E 54 24 29  00 05 0D C2 01 A1 23 38  |T..(NT$)......#8|
000004F0: 2C 4E 53 24 3A 8B 4E 53  24 B2 22 22 A7 4E 53 24  |,NS$:.NS$."".NS$|
00000500: B2 C7 28 30 29 00 13 0D  CC 01 4E 53 B2 C6 28 4E  |..(0).....NS..(N|
00000510: 53 24 29 00 1E 0D D6 01  42 4C 24 B2 22 22 00 2B  |S$).....BL$."".+|
00000520: 0D E0 01 81 58 B2 31 A4  32 35 34 00 45 0D EA 01  |....X.1.254.E...|
00000530: A1 23 38 2C 41 24 3A 8B  41 24 B2 22 22 A7 41 24  |.#8,A$:.A$."".A$|
00000540: B2 C7 28 30 29 00 54 0D  F4 01 42 4C 24 B2 42 4C  |..(0).T...BL$.BL|
00000550: 24 AA 41 24 00 5A 0D FE  01 82 00 63 0D 08 02 8D  |$.A$.Z.....c....|
00000560: 31 30 30 00 70 0D 12 02  A0 38 3A A0 31 35 3A 8E  |100.p....8:.15:.|
00000570: 00 9E 0D 1C 02 99 3A 99  3A 99 A6 32 29 22 90 44  |......:.:..2)".D|
00000580: 49 53 4B 20 57 49 4C 4C  20 4E 4F 57 20 42 45 20  |ISK WILL NOW BE |
00000590: 56 41 4C 49 44 41 54 45  44 2E 2E 2E 2E 22 00 BA  |VALIDATED...."..|
000005A0: 0D 21 02 99 3A 99 3A 99  A6 31 33 29 22 50 4C 45  |.!..:.:..13)"PLE|
000005B0: 41 53 45 20 57 41 49 54  2E 22 00 D1 0D 26 02 9F  |ASE WAIT."...&..|
000005C0: 31 35 2C 38 2C 31 35 2C  22 56 22 3A A0 31 35 3A  |15,8,15,"V":.15:|
000005D0: 8E 00 E4 0D 30 02 9E 36  37 39 3A 8B 41 B2 35 A7  |....0..679:.A.5.|
000005E0: 31 30 31 30 00 16 0E 3A  02 99 4D 24 28 41 AB 31  |1010...:..M$(A.1|
000005F0: 29 3A 9F 34 2C 34 3A 98  34 3A 98 34 3A 98 34 2C  |):.4,4:.4:.4:.4,|
00000600: 22 50 52 4F 47 52 41 4D  20 4E 41 4D 45 3A 22 3B  |"PROGRAM NAME:";|
00000610: C7 28 31 36 29 3B 00 2A  0E 44 02 22 32 30 54 59  |.(16);.*.D."20TY|
00000620: 50 45 3A 22 3A 98 34 3A  98 34 00 37 0E 4E 02 81  |PE:":.4:.4.7.N..|
00000630: 58 B2 30 A4 31 34 33 00  57 0E 58 02 8B 41 B2 31  |X.0.143.W.X..A.1|
00000640: A7 8B C8 28 46 24 28 58  2C 31 29 2C 31 29 B2 C7  |...(F$(X,1),1)..|
00000650: 28 30 29 A7 36 36 30 00  74 0E 62 02 8B 41 B2 32  |(0).660.t.b..A.2|
00000660: A7 8B C6 28 46 24 28 58  2C 30 29 29 B3 31 32 39  |...(F$(X,0)).129|
00000670: A7 36 36 30 00 A3 0E 6C  02 8B 41 B2 33 A7 8B C6  |.660...l..A.3...|
00000680: 28 46 24 28 58 2C 30 29  29 B1 31 32 38 B0 C8 28  |(F$(X,0)).128..(|
00000690: 46 24 28 58 2C 31 29 2C  31 29 B2 C7 28 30 29 A7  |F$(X,1),1)..(0).|
000006A0: 36 36 30 00 C1 0E 76 02  8B 41 B2 34 A7 8B C6 28  |660...v..A.4...(|
000006B0: 46 24 28 58 2C 30 29 29  B3 B1 31 33 30 A7 36 36  |F$(X,0))..130.66|
000006C0: 30 00 EA 0E 80 02 50 24  B2 46 24 28 58 2C 31 29  |0.....P$.F$(X,1)|
000006D0: 3A 54 B2 C6 28 46 24 28  58 2C 30 29 29 AB 31 32  |:T..(F$(X,0)).12|
000006E0: 38 3A 8B 54 B3 30 A7 54  B2 30 00 05 0F 8A 02 98  |8:.T.0.T.0......|
000006F0: 34 2C 50 24 3B C7 28 31  36 29 3B 22 32 30 22 3B  |4,P$;.(16);"20";|
00000700: 54 24 28 54 29 00 0B 0F  94 02 82 00 2E 0F 9E 02  |T$(T)...........|
00000710: A0 34 3A 99 A6 38 29 22  1F 50 52 49 4E 54 4F 55  |.4:..8)".PRINTOU|
00000720: 54 20 43 4F 4D 50 4C 45  54 45 2E 2E 2E 22 00 64  |T COMPLETE...".d|
00000730: 0F A8 02 99 3A 99 3A 99  3A 99 22 05 48 49 54 20  |....:.:.:.".HIT |
00000740: 41 4E 59 20 4B 45 59 20  54 4F 20 52 45 54 55 52  |ANY KEY TO RETUR|
00000750: 4E 20 54 4F 20 54 48 45  20 4D 41 49 4E 20 4D 45  |N TO THE MAIN ME|
00000760: 4E 55 2E 22 00 91 0F B2  02 99 3A 99 22 48 49 54  |NU."......:."HIT|
00000770: 20 12 46 33 92 54 4F 20  47 4F 20 54 4F 20 50 52  | .F3.TO GO TO PR|
00000780: 49 4E 54 20 4F 50 54 49  4F 4E 20 4D 45 4E 55 2E  |INT OPTION MENU.|
00000790: 22 00 A2 0F BC 02 92 31  39 38 2C 31 3A A1 41 24  |"......198,1:.A$|
000007A0: 3A 8E 00 D5 0F C6 02 99  22 93 12 1F 20 20 20 20  |:......."...    |
000007B0: 20 20 20 20 20 20 20 20  20 44 49 53 4B 20 53 55  |         DISK SU|
000007C0: 52 47 45 4F 4E 20 20 20  20 20 20 20 20 20 20 20  |RGEON           |
000007D0: 20 20 20 20 22 00 01 10  D0 02 99 3A 99 3A 99 A6  |    "......:.:..|
000007E0: 35 29 22 1F 50 4C 45 41  53 45 20 49 4E 53 45 52  |5)".PLEASE INSER|
000007F0: 54 20 54 48 45 20 44 49  53 4B 20 54 4F 20 42 45  |T THE DISK TO BE|
00000800: 22 00 1D 10 DA 02 99 3A  99 A6 31 32 29 22 4F 50  |"......:..12)"OP|
00000810: 45 52 41 54 45 44 20 55  50 4F 4E 2E 22 00 48 10  |ERATED UPON.".H.|
00000820: E4 02 99 3A 99 3A 99 3A  99 A6 36 29 22 05 50 52  |...:.:.:..6)".PR|
00000830: 45 53 53 20 41 4E 59 20  4B 45 59 20 57 48 45 4E  |ESS ANY KEY WHEN|
00000840: 20 52 45 41 44 59 2E 22  00 5C 10 EE 02 92 31 39  | READY.".\....19|
00000850: 38 2C 31 3A A1 41 24 3A  9E 36 37 39 00 6A 10 F8  |8,1:.A$:.679.j..|
00000860: 02 99 3A 99 3A 99 3A 99  3A 99 00 99 10 FD 02 99  |..:.:.:.:.......|
00000870: A6 31 29 22 90 52 45 41  44 49 4E 47 20 44 49 53  |.1)".READING DIS|
00000880: 4B 20 43 4F 4E 54 45 4E  54 53 2C 20 50 4C 45 41  |K CONTENTS, PLEA|
00000890: 53 45 20 57 41 49 54 2E  22 00 AB 10 02 03 54 B2  |SE WAIT.".....T.|
000008A0: 31 38 3A 53 B2 30 3A 8D  34 30 30 00 BA 10 0C 03  |18:S.0:.400.....|
000008B0: 81 58 B2 31 34 33 A4 31  35 38 00 D4 10 16 03 8B  |.X.143.158......|
000008C0: CA 28 42 4C 24 2C 58 2C  31 29 B2 C7 28 39 36 29  |.(BL$,X,1)..(96)|
000008D0: A7 38 30 30 00 FF 10 1B  03 8B CA 28 42 4C 24 2C  |.800.......(BL$,|
000008E0: 58 2C 31 29 B3 B1 C7 28  31 36 30 29 A7 44 4E 24  |X,1)...(160).DN$|
000008F0: B2 44 4E 24 AA CA 28 42  4C 24 2C 58 2C 31 29 00  |.DN$..(BL$,X,1).|
00000900: 05 11 20 03 82 00 1F 11  2A 03 44 49 24 B2 CA 28  |.. .....*.DI$..(|
00000910: 42 4C 24 2C 31 36 31 2C  32 29 3A 9E 36 37 39 00  |BL$,161,2):.679.|
00000920: 48 11 34 03 99 22 1F 44  49 53 4B 20 4E 41 4D 45  |H.4..".DISK NAME|
00000930: 3A 20 22 44 4E 24 3A 99  3A 99 22 44 49 53 4B 20  |: "DN$:.:."DISK |
00000940: 49 44 3A 20 22 44 49 24  00 77 11 3E 03 99 3A 99  |ID: "DI$.w.>..:.|
00000950: 3A 99 A6 32 29 22 05 49  53 20 54 48 49 53 20 54  |:..2)".IS THIS T|
00000960: 48 45 20 43 4F 52 52 45  43 54 20 44 49 53 4B 3F  |HE CORRECT DISK?|
00000970: 20 28 59 2F 4E 29 22 00  9B 11 48 03 92 31 39 38  | (Y/N)"...H..198|
00000980: 2C 31 3A A1 41 24 3A 8B  41 24 B3 B1 22 59 22 AF  |,1:.A$:.A$.."Y".|
00000990: 41 24 B3 B1 22 4E 22 A7  38 34 30 00 A9 11 52 03  |A$.."N".840...R.|
000009A0: 8B 41 24 B2 22 4E 22 A7  8A 00 DE 11 5C 03 9E 36  |.A$."N".....\..6|
000009B0: 37 39 3A 99 3A 99 3A 99  3A 99 A6 34 29 22 90 52  |79:.:.:.:..4)".R|
000009C0: 45 41 44 49 4E 47 20 44  49 52 45 43 54 4F 52 59  |EADING DIRECTORY|
000009D0: 20 49 4E 54 4F 20 4D 45  4D 4F 52 59 2E 22 00 FA  | INTO MEMORY."..|
000009E0: 11 66 03 99 3A 99 3A 99  A6 31 33 29 22 50 4C 45  |.f..:.:..13)"PLE|
000009F0: 41 53 45 20 57 41 49 54  2E 22 00 0B 12 70 03 54  |ASE WAIT."...p.T|
00000A00: B2 31 38 3A 53 B2 31 3A  52 B2 30 00 14 12 7A 03  |.18:S.1:R.0...z.|
00000A10: 8D 34 30 30 00 1F 12 84  03 81 58 B2 30 A4 37 00  |.400......X.0.7.|
00000A20: 3F 12 8E 03 46 24 28 58  AA 52 AC 38 2C 30 29 B2  |?...F$(X.R.8,0).|
00000A30: CA 28 42 4C 24 2C 58 AC  33 32 AA 31 2C 31 29 00  |.(BL$,X.32.1,1).|
00000A40: 60 12 98 03 46 24 28 58  AA 52 AC 38 2C 31 29 B2  |`...F$(X.R.8,1).|
00000A50: CA 28 42 4C 24 2C 58 AC  33 32 AA 34 2C 31 36 29  |.(BL$,X.32.4,16)|
00000A60: 00 75 12 A2 03 46 24 28  58 AA 52 AC 38 2C 32 29  |.u...F$(X.R.8,2)|
00000A70: B2 C7 28 54 29 00 8A 12  AC 03 46 24 28 58 AA 52  |..(T).....F$(X.R|
00000A80: AC 38 2C 33 29 B2 C7 28  53 29 00 A4 12 B6 03 46  |.8,3)..(S).....F|
00000A90: 24 28 58 AA 52 AC 38 2C  34 29 B2 C7 28 58 AC 33  |$(X.R.8,4)..(X.3|
00000AA0: 32 AA 32 29 00 AA 12 C0  03 82 00 D1 12 CA 03 8B  |2.2)............|
00000AB0: 4E 54 B3 B1 30 AF 4E 53  B3 B2 31 38 A7 54 B2 4E  |NT..0.NS..18.T.N|
00000AC0: 54 3A 53 B2 4E 53 3A 52  B2 52 AA 31 3A 89 38 39  |T:S.NS:R.R.1:.89|
00000AD0: 30 00 E8 12 D4 03 8B 28  58 AA 52 AC 38 29 B1 B2  |0......(X.R.8)..|
00000AE0: 31 34 33 A7 31 30 31 30  00 22 13 DE 03 81 5A B2  |143.1010."....Z.|
00000AF0: 28 58 AA 52 AC 38 29 A4  31 34 34 3A 46 24 28 5A  |(X.R.8).144:F$(Z|
00000B00: 2C 30 29 B2 C7 28 30 29  3A 46 24 28 5A 2C 31 29  |,0)..(0):F$(Z,1)|
00000B10: B2 C7 28 30 29 3A 46 24  28 5A 2C 32 29 B2 C7 28  |..(0):F$(Z,2)..(|
00000B20: 30 29 00 42 13 E8 03 46  24 28 5A 2C 33 29 B2 C7  |0).B...F$(Z,3)..|
00000B30: 28 30 29 3A 46 24 28 5A  2C 34 29 B2 C7 28 30 29  |(0):F$(Z,4)..(0)|
00000B40: 3A 82 00 63 13 F2 03 8B  C3 28 44 4E 24 29 B3 31  |:..c.....(DN$).1|
00000B50: 36 A7 44 4E 24 B2 44 4E  24 AA 22 20 22 3A 89 31  |6.DN$.DN$." ":.1|
00000B60: 30 31 30 00 94 13 FC 03  54 4C 24 B2 22 93 12 1F  |010.....TL$."...|
00000B70: 44 49 53 4B 20 4E 41 4D  45 3A 20 22 AA 44 4E 24  |DISK NAME: ".DN$|
00000B80: AA 22 20 20 20 49 44 3A  20 22 AA 44 49 24 AA 22  |."   ID: ".DI$."|
00000B90: 20 20 20 22 00 9D 13 06  04 99 54 4C 24 00 A6 13  |   "......TL$...|
00000BA0: 10 04 8D 32 30 30 00 E2  13 1A 04 9E 36 37 39 3A  |...200......679:|
00000BB0: 41 B2 C5 28 41 24 29 3A  91 41 89 31 30 36 30 2C  |A..(A$):.A.1060,|
00000BC0: 31 34 38 30 2C 31 36 37  30 2C 31 39 35 30 2C 32  |1480,1670,1950,2|
00000BD0: 31 32 30 2C 32 32 39 30  2C 32 34 30 30 2C 32 34  |120,2290,2400,24|
00000BE0: 31 30 00 15 14 24 04 99  3A 99 22 1F 49 4E 50 55  |10...$..:.".INPU|
00000BF0: 54 20 4E 45 57 20 44 49  53 4B 20 4E 41 4D 45 20  |T NEW DISK NAME |
00000C00: 55 50 20 54 4F 20 31 36  20 43 48 41 52 41 43 54  |UP TO 16 CHARACT|
00000C10: 45 52 53 2E 22 00 40 14  2E 04 99 3A 99 A6 36 29  |ERS.".@....:..6)|
00000C20: 22 05 50 52 45 53 53 20  12 52 45 54 55 52 4E 92  |".PRESS .RETURN.|
00000C30: 20 57 48 45 4E 20 46 49  4E 49 53 48 45 44 2E 22  | WHEN FINISHED."|
00000C40: 00 5A 14 38 04 4E 4E 24  B2 22 22 3A 58 B2 30 3A  |.Z.8.NN$."":X.0:|
00000C50: 99 3A 99 A6 36 29 22 9F  22 3B 00 69 14 42 04 92  |.:..6)".";.i.B..|
00000C60: 31 39 38 2C 31 3A A1 41  24 00 7C 14 4C 04 8B 41  |198,1:.A$.|.L..A|
00000C70: 24 B2 C7 28 31 33 29 A7  31 31 36 30 00 8D 14 56  |$..(13).1160...V|
00000C80: 04 8B 41 24 B2 22 85 22  A7 31 30 31 30 00 C0 14  |..A$.".".1010...|
00000C90: 60 04 8B 41 24 B2 C7 28  32 30 29 AF C3 28 4E 4E  |`..A$..(20)..(NN|
00000CA0: 24 29 B1 30 A7 58 B2 58  AB 31 3A 4E 4E 24 B2 C8  |$).0.X.X.1:NN$..|
00000CB0: 28 4E 4E 24 2C 28 C3 28  4E 4E 24 29 AB 31 29 29  |(NN$,(.(NN$).1))|
00000CC0: 00 E5 14 65 04 8B 41 24  B2 C7 28 32 30 29 AF C3  |...e..A$..(20)..|
00000CD0: 28 4E 4E 24 29 B1 30 A7  99 C7 28 32 30 29 3B 3A  |(NN$).0...(20);:|
00000CE0: 89 31 30 39 30 00 01 15  6A 04 8B 41 24 B2 C7 28  |.1090...j..A$..(|
00000CF0: 32 30 29 AF C3 28 4E 4E  24 29 B2 30 A7 31 30 39  |20)..(NN$).0.109|
00000D00: 30 00 26 15 74 04 4E 4E  24 B2 4E 4E 24 AA 41 24  |0.&.t.NN$.NN$.A$|
00000D10: 3A 58 B2 58 AA 31 3A 99  41 24 3B 3A 8B 58 B2 31  |:X.X.1:.A$;:.X.1|
00000D20: 36 A7 31 31 36 30 00 30  15 7E 04 89 31 30 39 30  |6.1160.0.~..1090|
00000D30: 00 4C 15 88 04 9E 36 37  39 3A 99 22 1F 4E 45 57  |.L....679:.".NEW|
00000D40: 20 4E 41 4D 45 3A 20 22  3B 4E 4E 24 00 72 15 92  | NAME: ";NN$.r..|
00000D50: 04 99 3A 99 3A 99 A6 38  29 22 05 49 53 20 54 48  |..:.:..8)".IS TH|
00000D60: 49 53 20 43 4F 52 52 45  43 54 3F 20 28 59 2F 4E  |IS CORRECT? (Y/N|
00000D70: 29 22 00 9F 15 9C 04 92  31 39 38 2C 31 3A A1 41  |)"......198,1:.A|
00000D80: 24 3A 8B 41 24 B3 B1 22  59 22 AF 41 24 B3 B1 22  |$:.A$.."Y".A$.."|
00000D90: 4E 22 AF 41 24 B3 B1 22  85 22 A7 31 31 38 30 00  |N".A$..".".1180.|
00000DA0: B6 15 A6 04 8B 41 24 B2  22 4E 22 A7 9E 36 37 39  |.....A$."N"..679|
00000DB0: 3A 89 31 30 36 30 00 C7  15 B0 04 8B 41 24 B2 22  |:.1060......A$."|
00000DC0: 85 22 A7 31 30 31 30 00  EB 15 BA 04 8B C3 28 4E  |.".1010.......(N|
00000DD0: 4E 24 29 B3 31 36 A7 4E  4E 24 B2 4E 4E 24 AA C7  |N$).16.NN$.NN$..|
00000DE0: 28 31 36 30 29 3A 89 31  32 31 30 00 18 16 C4 04  |(160):.1210.....|
00000DF0: 9E 36 37 39 3A 99 3A 99  3A 99 3A 99 3A 99 A6 31  |.679:.:.:.:.:..1|
00000E00: 30 29 22 90 43 48 41 4E  47 49 4E 47 20 44 49 53  |0)".CHANGING DIS|
00000E10: 4B 20 4E 41 4D 45 2E 22  00 38 16 CE 04 54 B2 31  |K NAME.".8...T.1|
00000E20: 38 3A 53 B2 30 3A 42 50  B2 31 34 34 3A 44 24 B2  |8:S.0:BP.144:D$.|
00000E30: 4E 4E 24 3A 8D 33 33 30  00 4D 16 D8 04 9F 31 35  |NN$:.330.M....15|
00000E40: 2C 38 2C 31 35 2C 22 49  22 3A A0 31 35 00 7B 16  |,8,15,"I":.15.{.|
00000E50: E2 04 9E 36 37 39 3A 99  3A 99 3A 99 3A 99 3A 99  |...679:.:.:.:.:.|
00000E60: A6 39 29 22 1F 4E 41 4D  45 20 43 48 41 4E 47 45  |.9)".NAME CHANGE|
00000E70: 20 43 4F 4D 50 4C 45 54  45 2E 22 00 98 16 EC 04  | COMPLETE.".....|
00000E80: 44 4E 24 B2 4E 4E 24 3A  81 58 B2 30 A4 35 30 30  |DN$.NN$:.X.0.500|
00000E90: 3A 82 3A 89 31 30 31 30  00 B0 16 C8 05 99 22 1F  |:.:.1010......".|
00000EA0: 56 49 45 57 20 44 49 52  45 43 54 4F 52 59 3A 22  |VIEW DIRECTORY:"|
00000EB0: 00 DB 16 D2 05 99 3A 99  22 20 4E 4F 2E 22 2C 22  |......:." NO.","|
00000EC0: 46 49 4C 45 20 54 59 50  45 22 2C 22 20 20 46 49  |FILE TYPE","  FI|
00000ED0: 4C 45 20 4E 41 4D 45 1F  22 3A 99 00 F3 16 DC 05  |LE NAME.":......|
00000EE0: 5A B2 30 3A 97 36 38 36  2C 34 3A 97 36 39 38 2C  |Z.0:.686,4:.698,|
00000EF0: 32 30 30 00 FE 16 E6 05  81 58 B2 30 A4 39 00 23  |200......X.0.9.#|
00000F00: 17 F0 05 41 B2 28 C6 28  46 24 28 58 AA 5A AC 31  |...A.(.(F$(X.Z.1|
00000F10: 30 2C 30 29 29 29 AB 31  32 38 3A 8B 41 B3 30 A7  |0,0))).128:.A.0.|
00000F20: 41 B2 30 00 5D 17 FA 05  8B 28 41 B2 30 AF 46 24  |A.0.]....(A.0.F$|
00000F30: 28 58 AA 5A AC 31 30 2C  31 29 B2 22 22 29 B0 28  |(X.Z.10,1)."").(|
00000F40: 41 B2 30 AF 28 C6 28 46  24 28 58 AA 5A AC 31 30  |A.0.(.(F$(X.Z.10|
00000F50: 2C 31 29 29 B2 30 29 29  A7 31 35 39 30 00 85 17  |,1)).0)).1590...|
00000F60: 04 06 99 58 AA 28 5A AC  31 30 29 AA 31 2C 54 24  |...X.(Z.10).1,T$|
00000F70: 28 41 29 2C 22 20 20 22  3B 46 24 28 58 AA 5A AC  |(A),"  ";F$(X.Z.|
00000F80: 31 30 2C 31 29 00 8B 17  0E 06 82 00 C5 17 18 06  |10,1)...........|
00000F90: 99 3A 99 3A 99 A6 33 29  22 05 50 52 45 53 53 20  |.:.:..3)".PRESS |
00000FA0: 41 4E 59 20 4B 45 59 20  54 4F 20 43 4F 4E 54 49  |ANY KEY TO CONTI|
00000FB0: 4E 55 45 20 4C 49 53 54  1F 22 3A 92 31 39 38 2C  |NUE LIST.":.198,|
00000FC0: 31 3A A1 41 24 00 D6 17  22 06 8B 41 24 B2 22 85  |1:.A$..."..A$.".|
00000FD0: 22 A7 31 36 33 30 00 EF  17 2C 06 9E 36 37 39 3A  |".1630...,..679:|
00000FE0: 99 3A 99 3A 5A B2 5A AA  31 3A 89 31 35 31 30 00  |.:.:Z.Z.1:.1510.|
00000FF0: 25 18 36 06 99 3A 99 3A  99 22 1F 4C 49 53 54 20  |%.6..:.:.".LIST |
00001000: 43 4F 4D 50 4C 45 54 45  2E 20 05 50 52 45 53 53  |COMPLETE. .PRESS|
00001010: 20 12 46 37 92 20 54 4F  20 56 49 45 57 20 41 47  | .F7. TO VIEW AG|
00001020: 41 49 4E 2E 22 00 50 18  40 06 99 3A 99 A6 34 29  |AIN.".P.@..:..4)|
00001030: 22 50 52 45 53 53 20 12  46 33 92 20 54 4F 20 50  |"PRESS .F3. TO P|
00001040: 52 49 4E 54 20 44 49 52  45 43 54 4F 52 59 2E 22  |RINT DIRECTORY."|
00001050: 00 80 18 4A 06 99 3A 99  22 20 50 52 45 53 53 20  |...J..:." PRESS |
00001060: 41 4E 59 20 4B 45 59 20  54 4F 20 47 4F 20 54 4F  |ANY KEY TO GO TO|
00001070: 20 54 48 45 20 4D 41 49  4E 20 4D 45 4E 55 2E 22  | THE MAIN MENU."|
00001080: 00 8F 18 54 06 92 31 39  38 2C 31 3A A1 41 24 00  |...T..198,1:.A$.|
00001090: A2 18 5E 06 97 36 38 36  2C 32 3A 97 36 39 38 2C  |..^..686,2:.698,|
000010A0: 34 30 00 B9 18 68 06 8B  41 24 B2 22 88 22 A7 9E  |40...h..A$."."..|
000010B0: 36 37 39 3A 89 31 34 38  30 00 D0 18 72 06 8B 41  |679:.1480...r..A|
000010C0: 24 B2 22 86 22 A7 9E 36  37 39 3A 89 32 32 39 30  |$."."..679:.2290|
000010D0: 00 DA 18 7C 06 89 31 30  31 30 00 02 19 86 06 99  |...|..1010......|
000010E0: 22 1F 55 4E 53 43 52 41  54 43 48 20 46 49 4C 45  |".UNSCRATCH FILE|
000010F0: 3A 22 3A 97 36 38 36 2C  34 3A 97 36 39 38 2C 31  |:":.686,4:.698,1|
00001100: 36 30 00 0A 19 90 06 56  B2 30 00 33 19 9A 06 81  |60.....V.0.3....|
00001110: 58 B2 30 A4 31 34 33 3A  41 B2 28 C6 28 46 24 28  |X.0.143:A.(.(F$(|
00001120: 58 2C 30 29 29 29 AB 31  32 38 3A 8B 41 B3 30 A7  |X,0))).128:.A.0.|
00001130: 41 B2 30 00 42 19 A4 06  8B 41 B1 30 A7 89 31 38  |A.0.B....A.0..18|
00001140: 39 30 00 78 19 AE 06 8B  41 B2 30 AF 28 C8 28 46  |90.x....A.0.(.(F|
00001150: 24 28 58 2C 31 29 2C 31  29 B2 C7 28 30 29 B0 C8  |$(X,1),1)..(0)..|
00001160: 28 46 24 28 58 2C 31 29  2C 31 29 B2 C7 28 31 36  |(F$(X,1),1)..(16|
00001170: 30 29 29 A7 31 38 39 30  00 92 19 B8 06 9E 36 37  |0)).1890......67|
00001180: 39 3A 99 3A 99 3A 99 58  AA 31 2C 46 24 28 58 2C  |9:.:.:.X.1,F$(X,|
00001190: 31 29 00 C6 19 C2 06 99  3A 99 3A 99 A6 32 29 22  |1)......:.:..2)"|
000011A0: 05 57 41 4E 54 20 54 4F  20 55 4E 53 43 52 41 54  |.WANT TO UNSCRAT|
000011B0: 43 48 20 54 48 49 53 20  46 49 4C 45 3F 20 20 28  |CH THIS FILE?  (|
000011C0: 59 2F 4E 29 1F 22 00 F3  19 CC 06 92 31 39 38 2C  |Y/N)."......198,|
000011D0: 31 3A A1 41 24 3A 8B 41  24 B3 B1 22 59 22 AF 41  |1:.A$:.A$.."Y".A|
000011E0: 24 B3 B1 22 4E 22 AF 41  24 B3 B1 22 85 22 A7 31  |$.."N".A$..".".1|
000011F0: 37 34 30 00 04 1A D6 06  8B 41 24 B2 22 4E 22 A7  |740......A$."N".|
00001200: 31 39 30 30 00 25 1A E0  06 8B 41 24 B2 22 85 22  |1900.%....A$."."|
00001210: A7 97 36 38 36 2C 32 3A  97 36 39 38 2C 34 30 3A  |..686,2:.698,40:|
00001220: 89 31 30 31 30 00 42 1A  EA 06 9E 36 37 39 3A 99  |.1010.B....679:.|
00001230: 22 1F 57 48 41 54 20 46  49 4C 45 20 54 59 50 45  |".WHAT FILE TYPE|
00001240: 3F 22 00 5B 1A F4 06 99  3A 99 22 20 20 31 2E 20  |?".[....:."  1. |
00001250: 53 45 51 55 45 4E 54 49  41 4C 22 00 71 1A FE 06  |SEQUENTIAL".q...|
00001260: 99 3A 99 22 20 20 32 2E  20 50 52 4F 47 52 41 4D  |.:."  2. PROGRAM|
00001270: 22 00 84 1A 08 07 99 3A  99 22 20 20 33 2E 20 55  |"......:."  3. U|
00001280: 53 45 52 22 00 9B 1A 12  07 99 3A 99 22 20 20 34  |SER"......:."  4|
00001290: 2E 20 52 45 4C 41 54 49  56 45 22 00 BB 1A 1C 07  |. RELATIVE".....|
000012A0: 99 3A 99 22 1C 20 20 35  2E 20 41 42 4F 52 54 20  |.:.".  5. ABORT |
000012B0: 55 4E 53 43 52 41 54 43  48 1F 22 00 DD 1A 26 07  |UNSCRATCH."...&.|
000012C0: 99 3A 99 3A 99 A6 31 30  29 22 05 57 48 49 43 48  |.:.:..10)".WHICH|
000012D0: 20 54 59 50 45 3F 20 28  31 2D 35 29 22 00 00 1B  | TYPE? (1-5)"...|
000012E0: 30 07 92 31 39 38 2C 31  3A A1 41 24 3A 8B 41 24  |0..198,1:.A$:.A$|
000012F0: B3 22 31 22 B0 41 24 B1  22 35 22 A7 31 38 34 30  |."1".A$."5".1840|
00001300: 00 21 1B 3A 07 8B 41 24  B2 22 35 22 A7 97 36 38  |.!.:..A$."5"..68|
00001310: 36 2C 32 3A 97 36 39 38  2C 34 30 3A 89 31 30 31  |6,2:.698,40:.101|
00001320: 30 00 64 1B 44 07 46 54  B2 C5 28 41 24 29 AA 31  |0.d.D.FT..(A$).1|
00001330: 32 38 3A 46 54 24 B2 C7  28 46 54 29 3A 42 50 B2  |28:FT$..(FT):BP.|
00001340: C6 28 46 24 28 58 2C 34  29 29 3A 54 B2 C6 28 46  |.(F$(X,4)):T..(F|
00001350: 24 28 58 2C 32 29 29 3A  53 B2 C6 28 46 24 28 58  |$(X,2)):S..(F$(X|
00001360: 2C 33 29 29 00 74 1B 4E  07 44 24 B2 46 54 24 3A  |,3)).t.N.D$.FT$:|
00001370: 8D 33 33 30 00 88 1B 58  07 46 24 28 58 2C 30 29  |.330...X.F$(X,0)|
00001380: B2 46 54 24 3A 56 B2 31  00 AC 1B 62 07 9E 36 37  |.FT$:V.1...b..67|
00001390: 39 3A 99 3A 99 3A 99 A6  31 31 29 22 90 2E 2E 2E  |9:.:.:..11)"....|
000013A0: 57 4F 52 4B 49 4E 47 2E  2E 2E 1F 22 00 B2 1B 6C  |WORKING...."...l|
000013B0: 07 82 00 E6 1B 76 07 9E  36 37 39 3A 99 A6 32 29  |.....v..679:..2)|
000013C0: 22 1F 4E 4F 20 4D 4F 52  45 20 44 45 4C 45 54 45  |".NO MORE DELETE|
000013D0: 44 20 46 49 4C 45 53 20  4F 4E 20 54 48 49 53 20  |D FILES ON THIS |
000013E0: 44 49 53 4B 2E 22 00 F4  1B 80 07 8B 56 B2 31 A7  |DISK."......V.1.|
000013F0: 8D 35 34 30 00 27 1C 8A  07 99 3A 99 3A 99 A6 32  |.540.'....:.:..2|
00001400: 29 22 05 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |)".HIT ANY KEY T|
00001410: 4F 20 52 45 54 55 52 4E  20 54 4F 20 4D 41 49 4E  |O RETURN TO MAIN|
00001420: 20 4D 45 4E 55 2E 22 00  4B 1C 94 07 92 31 39 38  | MENU.".K....198|
00001430: 2C 31 3A A1 41 24 3A 97  36 38 36 2C 32 3A 97 36  |,1:.A$:.686,2:.6|
00001440: 39 38 2C 34 30 3A 89 31  30 31 30 00 86 1C 9E 07  |98,40:.1010.....|
00001450: 99 22 1F 53 43 52 41 54  43 48 20 46 49 4C 45 20  |.".SCRATCH FILE |
00001460: 2D 20 4C 45 41 56 45 20  4F 4E 20 44 49 52 45 43  |- LEAVE ON DIREC|
00001470: 54 4F 52 59 3A 22 3A 97  36 38 36 2C 34 3A 97 36  |TORY:":.686,4:.6|
00001480: 39 38 2C 32 30 30 00 8E  1C A8 07 56 B2 30 00 B8  |98,200.....V.0..|
00001490: 1C B2 07 81 58 B2 30 A4  31 34 33 3A 41 B2 28 C6  |....X.0.143:A.(.|
000014A0: 28 46 24 28 58 2C 30 29  29 29 AB 31 32 38 3A 8B  |(F$(X,0))).128:.|
000014B0: 41 B3 30 A7 32 30 36 30  00 D2 1C BC 07 9E 36 37  |A.0.2060......67|
000014C0: 39 3A 99 3A 99 3A 99 58  AA 31 2C 46 24 28 58 2C  |9:.:.:.X.1,F$(X,|
000014D0: 31 29 00 05 1D C6 07 99  3A 99 3A 99 A6 32 29 22  |1)......:.:..2)"|
000014E0: 05 57 41 4E 54 20 54 4F  20 53 43 52 41 54 43 48  |.WANT TO SCRATCH|
000014F0: 20 54 48 49 53 20 46 49  4C 45 3F 20 20 20 28 59  | THIS FILE?   (Y|
00001500: 2F 4E 29 1F 22 00 32 1D  D0 07 92 31 39 38 2C 31  |/N).".2....198,1|
00001510: 3A A1 41 24 3A 8B 41 24  B3 B1 22 59 22 AF 41 24  |:.A$:.A$.."Y".A$|
00001520: B3 B1 22 4E 22 AF 41 24  B3 B1 22 85 22 A7 32 30  |.."N".A$..".".20|
00001530: 30 30 00 43 1D DA 07 8B  41 24 B2 22 4E 22 A7 32  |00.C....A$."N".2|
00001540: 30 37 30 00 64 1D E4 07  8B 41 24 B2 22 85 22 A7  |070.d....A$.".".|
00001550: 97 36 38 36 2C 32 3A 97  36 39 38 2C 34 30 3A 89  |.686,2:.698,40:.|
00001560: 31 30 31 30 00 90 1D EE  07 42 50 B2 C6 28 46 24  |1010.....BP..(F$|
00001570: 28 58 2C 34 29 29 3A 54  B2 C6 28 46 24 28 58 2C  |(X,4)):T..(F$(X,|
00001580: 32 29 29 3A 53 B2 C6 28  46 24 28 58 2C 33 29 29  |2)):S..(F$(X,3))|
00001590: 00 A3 1D F8 07 44 24 B2  C7 28 31 32 38 29 3A 8D  |.....D$..(128):.|
000015A0: 33 33 30 00 BA 1D 02 08  46 24 28 58 2C 30 29 B2  |330.....F$(X,0).|
000015B0: C7 28 31 32 38 29 3A 56  B2 31 00 DE 1D 0C 08 9E  |.(128):V.1......|
000015C0: 36 37 39 3A 99 3A 99 3A  99 A6 31 31 29 22 90 2E  |679:.:.:..11)"..|
000015D0: 2E 2E 57 4F 52 4B 49 4E  47 2E 2E 2E 1F 22 00 E4  |..WORKING...."..|
000015E0: 1D 16 08 82 00 10 1E 20  08 9E 36 37 39 3A 99 A6  |....... ..679:..|
000015F0: 35 29 22 1F 4E 4F 20 4D  4F 52 45 20 46 49 4C 45  |5)".NO MORE FILE|
00001600: 53 20 4F 4E 20 54 48 49  53 20 44 49 53 4B 2E 22  |S ON THIS DISK."|
00001610: 00 1E 1E 2A 08 8B 56 B2  31 A7 8D 35 34 30 00 51  |...*..V.1..540.Q|
00001620: 1E 34 08 99 3A 99 3A 99  A6 32 29 22 05 48 49 54  |.4..:.:..2)".HIT|
00001630: 20 41 4E 59 20 4B 45 59  20 54 4F 20 52 45 54 55  | ANY KEY TO RETU|
00001640: 52 4E 20 54 4F 20 4D 41  49 4E 20 4D 45 4E 55 2E  |RN TO MAIN MENU.|
00001650: 22 00 75 1E 3E 08 92 31  39 38 2C 31 3A A1 41 24  |".u.>..198,1:.A$|
00001660: 3A 97 36 38 36 2C 32 3A  97 36 39 38 2C 34 30 3A  |:.686,2:.698,40:|
00001670: 89 31 30 31 30 00 B0 1E  48 08 99 22 1F 53 43 52  |.1010...H..".SCR|
00001680: 41 54 43 48 20 46 49 4C  45 20 2D 20 54 41 4B 45  |ATCH FILE - TAKE|
00001690: 20 4F 46 46 20 44 49 52  45 43 54 4F 52 59 3A 22  | OFF DIRECTORY:"|
000016A0: 3A 97 36 38 36 2C 34 3A  97 36 39 38 2C 32 30 30  |:.686,4:.698,200|
000016B0: 00 B8 1E 52 08 56 B2 30  00 E2 1E 5C 08 81 58 B2  |...R.V.0...\..X.|
000016C0: 30 A4 31 34 33 3A 41 B2  28 C6 28 46 24 28 58 2C  |0.143:A.(.(F$(X,|
000016D0: 30 29 29 29 AB 31 32 38  3A 8B 41 B3 30 A7 32 32  |0))).128:.A.0.22|
000016E0: 33 30 00 FC 1E 66 08 9E  36 37 39 3A 99 3A 99 3A  |30...f..679:.:.:|
000016F0: 99 58 AA 31 2C 46 24 28  58 2C 31 29 00 2F 1F 70  |.X.1,F$(X,1)./.p|
00001700: 08 99 3A 99 3A 99 A6 32  29 22 05 57 41 4E 54 20  |..:.:..2)".WANT |
00001710: 54 4F 20 53 43 52 41 54  43 48 20 54 48 49 53 20  |TO SCRATCH THIS |
00001720: 46 49 4C 45 3F 20 20 20  28 59 2F 4E 29 1F 22 00  |FILE?   (Y/N).".|
00001730: 5C 1F 7A 08 92 31 39 38  2C 31 3A A1 41 24 3A 8B  |\.z..198,1:.A$:.|
00001740: 41 24 B3 B1 22 59 22 AF  41 24 B3 B1 22 4E 22 AF  |A$.."Y".A$.."N".|
00001750: 41 24 B3 B1 22 85 22 A7  32 31 37 30 00 6D 1F 84  |A$..".".2170.m..|
00001760: 08 8B 41 24 B2 22 4E 22  A7 32 32 34 30 00 8E 1F  |..A$."N".2240...|
00001770: 8E 08 8B 41 24 B2 22 85  22 A7 97 36 38 36 2C 32  |...A$."."..686,2|
00001780: 3A 97 36 39 38 2C 34 30  3A 89 31 30 31 30 00 BA  |:.698,40:.1010..|
00001790: 1F 98 08 42 50 B2 C6 28  46 24 28 58 2C 34 29 29  |...BP..(F$(X,4))|
000017A0: 3A 54 B2 C6 28 46 24 28  58 2C 32 29 29 3A 53 B2  |:T..(F$(X,2)):S.|
000017B0: C6 28 46 24 28 58 2C 33  29 29 00 CB 1F A2 08 44  |.(F$(X,3)).....D|
000017C0: 24 B2 C7 28 30 29 3A 8D  33 33 30 00 E0 1F AC 08  |$..(0):.330.....|
000017D0: 46 24 28 58 2C 30 29 B2  C7 28 30 29 3A 56 B2 31  |F$(X,0)..(0):V.1|
000017E0: 00 04 20 B6 08 9E 36 37  39 3A 99 3A 99 3A 99 A6  |.. ...679:.:.:..|
000017F0: 31 31 29 22 90 2E 2E 2E  57 4F 52 4B 49 4E 47 2E  |11)"....WORKING.|
00001800: 2E 2E 1F 22 00 0A 20 C0  08 82 00 36 20 CA 08 9E  |...".. ....6 ...|
00001810: 36 37 39 3A 99 A6 35 29  22 1F 4E 4F 20 4D 4F 52  |679:..5)".NO MOR|
00001820: 45 20 46 49 4C 45 53 20  4F 4E 20 54 48 49 53 20  |E FILES ON THIS |
00001830: 44 49 53 4B 2E 22 00 44  20 D4 08 8B 56 B2 31 A7  |DISK.".D ...V.1.|
00001840: 8D 35 34 30 00 77 20 DE  08 99 3A 99 3A 99 A6 32  |.540.w ...:.:..2|
00001850: 29 22 05 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |)".HIT ANY KEY T|
00001860: 4F 20 52 45 54 55 52 4E  20 54 4F 20 4D 41 49 4E  |O RETURN TO MAIN|
00001870: 20 4D 45 4E 55 2E 22 00  9B 20 E8 08 92 31 39 38  | MENU.".. ...198|
00001880: 2C 31 3A A1 41 24 3A 97  36 38 36 2C 32 3A 97 36  |,1:.A$:.686,2:.6|
00001890: 39 38 2C 34 30 3A 89 31  30 31 30 00 C0 20 F2 08  |98,40:.1010.. ..|
000018A0: 99 3A 99 3A 99 22 1F 50  52 49 4E 54 20 44 49 52  |.:.:.".PRINT DIR|
000018B0: 45 43 54 4F 52 59 20 4F  50 54 49 4F 4E 53 3A 22  |ECTORY OPTIONS:"|
000018C0: 00 E5 20 FC 08 99 3A 99  22 20 20 31 2E 20 50 52  |.. ...:."  1. PR|
000018D0: 49 4E 54 20 45 4E 54 49  52 45 20 44 49 52 45 43  |INT ENTIRE DIREC|
000018E0: 54 4F 52 59 22 00 0A 21  06 09 99 3A 99 22 20 20  |TORY"..!...:."  |
000018F0: 32 2E 20 50 52 49 4E 54  20 4F 4E 4C 59 20 56 41  |2. PRINT ONLY VA|
00001900: 4C 49 44 20 46 49 4C 45  53 22 00 31 21 10 09 99  |LID FILES".1!...|
00001910: 3A 99 22 20 20 33 2E 20  50 52 49 4E 54 20 4F 4E  |:."  3. PRINT ON|
00001920: 4C 59 20 44 45 4C 45 54  45 44 20 46 49 4C 45 53  |LY DELETED FILES|
00001930: 22 00 58 21 1A 09 99 3A  99 22 20 20 34 2E 20 50  |".X!...:."  4. P|
00001940: 52 49 4E 54 20 4F 4E 4C  59 20 50 52 4F 47 52 41  |RINT ONLY PROGRA|
00001950: 4D 20 46 49 4C 45 53 22  00 79 21 24 09 99 3A 99  |M FILES".y!$..:.|
00001960: 22 20 20 35 2E 20 41 42  4F 52 54 20 50 52 49 4E  |"  5. ABORT PRIN|
00001970: 54 20 4F 50 54 49 4F 4E  22 00 9C 21 2E 09 99 3A  |T OPTION"..!...:|
00001980: 99 3A 99 A6 39 29 22 05  57 48 49 43 48 20 4F 50  |.:..9)".WHICH OP|
00001990: 54 49 4F 4E 3F 20 28 31  2D 35 29 22 00 BF 21 38  |TION? (1-5)"..!8|
000019A0: 09 92 31 39 38 2C 31 3A  A1 41 24 3A 8B 41 24 B3  |..198,1:.A$:.A$.|
000019B0: 22 31 22 B0 41 24 B1 22  35 22 A7 32 33 36 30 00  |"1".A$."5".2360.|
000019C0: D0 21 42 09 41 B2 C5 28  41 24 29 3A 8D 35 36 30  |.!B.A..(A$):.560|
000019D0: 00 E7 21 4C 09 8B 41 24  B2 22 86 22 A7 9E 36 37  |..!L..A$."."..67|
000019E0: 39 3A 89 32 32 39 30 00  00 22 56 09 97 36 38 36  |9:.2290.."V..686|
000019F0: 2C 32 3A 97 36 39 38 2C  34 30 3A 89 31 30 31 30  |,2:.698,40:.1010|
00001A00: 00 06 22 60 09 8A 00 22  22 6A 09 99 22 93 1F 22  |.."`...""j..".."|
00001A10: 3A 97 38 30 38 2C 32 33  37 3A A0 38 3A A0 31 35  |:.808,237:.8:.15|
00001A20: 3A 80 00 6A 22 74 09 83  38 2C 37 32 2C 31 33 38  |:..j"t..8,72,138|
00001A30: 2C 37 32 2C 31 35 32 2C  37 32 2C 31 36 32 2C 32  |,72,152,72,162,2|
00001A40: 2C 31 36 30 2C 30 2C 32  34 2C 33 32 2C 32 34 30  |,160,0,24,32,240|
00001A50: 2C 32 35 35 2C 31 36 30  2C 30 2C 31 36 39 2C 33  |,255,160,0,169,3|
00001A60: 32 2C 31 35 33 2C 34 30  2C 34 00 AD 22 7E 09 83  |2,153,40,4.."~..|
00001A70: 31 35 33 2C 30 2C 35 2C  31 35 33 2C 30 2C 36 2C  |153,0,5,153,0,6,|
00001A80: 31 35 33 2C 30 2C 37 2C  32 30 30 2C 32 30 38 2C  |153,0,7,200,208,|
00001A90: 32 34 31 2C 31 30 34 2C  31 36 38 2C 31 30 34 2C  |241,104,168,104,|
00001AA0: 31 37 30 2C 31 30 34 2C  34 30 2C 39 36 00 00 00  |170,104,40,96...|

..'....53280,11:.53281,12:.".":.808,234.
B....F$(144,4),T$(4),M$(3).[....X.679.71
8:.A:.X,A:....(.T$(0)."DELETED":T$(1)."S
EQUENT.":T$(2)."PROGRAM":T$(3)."USER"...
-.T$(4)."RELATIVE"...2.M$(0).".PRINTING 
ENTIRE DIRECTORY...PLEASE WAIT."...<.M$(
1).".PRINTING VALID FILES...PLEASE WAIT.
".O.F.M$(2).".PRINTING SCRATCHED FILES..
.PLEASE WAIT.."...P.M$(3).".PRINTING PRO
GRAM FILES...PLEASE WAIT."...Z..710...D.
.15,E,E$,ET,ES...N..E.20.....X.."...    
      DISK ERROR!!!                .":.:
.:.......E,E$:.ET,ES......15,"I"..... 8:
 15.;. ..:.:.:.".PRESS ANY KEY TO RESTAR
T PROGRAM.".A....:.:.:.:.".    HIT 'F1' 
TO QUIT.".}....198,1:.A$:.A$.".".2410...
......H..".  MAIN MENU:"...R..:."  1. CH
ANGE DISK NAME".T....:."  2. VIEW DIRECT
ORY"......:."  3. UNSCRATCH FILE"......:
."  4. SCRATCH FILE-LEAVE ON DIRECTORY".
M....:."  5. SCRATCH FILE-TAKE OFF DIREC
TORY".K....:."  6. PRINT DIRECTORY".....
.:."  7. GO TO ANOTHER DISK"..."..:."  8
. QUIT PROGRAM".H.,..:..9)".WHICH OPTION
? (1-8)"...6..198,1:.A$:.A$."1".A$."8".3
10...@.....J..15,8,15,"I":.100...T..8,8,
8,"#":.100.4.^..15,"U1:"8;0;T;S:.100.L.H
..15,"B-P:"8;BP:.100.\.R..8,D$;:.100.V.|
..15,"U2:"8;0;T;S:.100..... 8: 15:......
.15,8,15,"I"......8,8,8,"#"......15,"U1:
"8;0;T;S:.100.Z....#8,NT$:.NT$."".NT$.G(
0).....NT.F(NT$)...B..#8,NS$:.NS$."".NS$
.G(0)...L.NS.F(NS$)...V.BL$."".+....X.1.
254.E....#8,A$:.A$."".A$.G(0).T...BL$.BL
$.A$.Z.....C....100.P... 8: 15:.......:.
:..2)".DISK WILL NOW BE VALIDATED...."..
.!..:.:..13)"PLEASE WAIT.".Q.&..15,8,15,
"V": 15:....0..679:.A.5.1010...:..M$(A.1
):.4,4:.4:.4:.4,"PROGRAM NAME:";G(16);.*
.D."20TYPE:":.4:.4.7.N..X.0.143.W.X..A.1
..H(F$(X,1),1).G(0).660.T.B..A.2..F(F$(X
,0)).129.660...L..A.3..F(F$(X,0)).128.H(
F$(X,1),1).G(0).660.A.V..A.4..F(F$(X,0))
..130.660.....P$.F$(X,1):T.F(F$(X,0)).12
8:.T.0.T.0......4,P$;G(16);"20";T$(T)...
........ 4:..8)".PRINTOUT COMPLETE...".D
....:.:.:.".HIT ANY KEY TO RETURN TO THE
 MAIN MENU."......:."HIT .F3.TO GO TO PR
INT OPTION MENU."......198,1:.A$:..U.F..
"...             DISK SURGEON           
    "...P..:.:..5)".PLEASE INSERT THE DI
SK TO BE"...Z..:..12)"OPERATED UPON.".H.
...:.:.:..6)".PRESS ANY KEY WHEN READY."
.\....198,1:.A$:.679.J....:.:.:.:.......
.1)".READING DISK CONTENTS, PLEASE WAIT.
".....T.18:S.0:.400......X.143.158.T....
J(BL$,X,1).G(96).800......J(BL$,X,1)..G(
160).DN$.DN$.J(BL$,X,1)... .....*.DI$.J(
BL$,161,2):.679.H.4..".DISK NAME: "DN$:.
:."DISK ID: "DI$.W.>..:.:..2)".IS THIS T
HE CORRECT DISK? (Y/N)"...H..198,1:.A$:.
A$.."Y".A$.."N".840...R..A$."N".....\..6
79:.:.:.:..4)".READING DIRECTORY INTO ME
MORY."...F..:.:..13)"PLEASE WAIT."...P.T
.18:S.1:R.0...Z..400......X.0.7.?...F$(X
.R.8,0).J(BL$,X.32.1,1).`...F$(X.R.8,1).
J(BL$,X.32.4,16).U...F$(X.R.8,2).G(T)...
..F$(X.R.8,3).G(S).....F$(X.R.8,4).G(X.3
2.2).......Q.J..NT..0.NS..18.T.NT:S.NS:R
.R.1:.890...T..(X.R.8)..143.1010."....Z.
(X.R.8).144:F$(Z,0).G(0):F$(Z,1).G(0):F$
(Z,2).G(0).B...F$(Z,3).G(0):F$(Z,4).G(0)
:..C....C(DN$).16.DN$.DN$." ":.1010.....
TL$."...DISK NAME: ".DN$."   ID: ".DI$."
   "......TL$......200......679:A.E(A$):
.A.1060,1480,1670,1950,2120,2290,2400,24
10...$..:.".INPUT NEW DISK NAME UP TO 16
 CHARACTERS.".@....:..6)".PRESS .RETURN.
 WHEN FINISHED.".Z.8.NN$."":X.0:.:..6)".
";.I.B..198,1:.A$.|.L..A$.G(13).1160...V
..A$.".".1010...`..A$.G(20).C(NN$).0.X.X
.1:NN$.H(NN$,(C(NN$).1))...E..A$.G(20).C
(NN$).0..G(20);:.1090...J..A$.G(20).C(NN
$).0.1090.&.T.NN$.NN$.A$:X.X.1:.A$;:.X.1
6.1160.0.~..1090.L....679:.".NEW NAME: "
;NN$.R....:.:..8)".IS THIS CORRECT? (Y/N
)"......198,1:.A$:.A$.."Y".A$.."N".A$.."
.".1180......A$."N"..679:.1060.G....A$."
.".1010......C(NN$).16.NN$.NN$.G(160):.1
210...D..679:.:.:.:.:..10)".CHANGING DIS
K NAME.".8.N.T.18:S.0:BP.144:D$.NN$:.330
.M.X..15,8,15,"I": 15.{....679:.:.:.:.:.
.9)".NAME CHANGE COMPLETE.".....DN$.NN$:
.X.0.500:.:.1010...H..".VIEW DIRECTORY:"
...R..:." NO.","FILE TYPE","  FILE NAME.
":......Z.0:.686,4:.698,200......X.0.9.#
...A.(F(F$(X.Z.10,0))).128:.A.0.A.0.]...
.(A.0.F$(X.Z.10,1)."").(A.0.(F(F$(X.Z.10
,1)).0)).1590......X.(Z.10).1,T$(A),"  "
;F$(X.Z.10,1).......E....:.:..3)".PRESS 
ANY KEY TO CONTINUE LIST.":.198,1:.A$.V.
"..A$.".".1630...,..679:.:.:Z.Z.1:.1510.
%.6..:.:.".LIST COMPLETE. .PRESS .F7. TO
 VIEW AGAIN.".P.@..:..4)"PRESS .F3. TO P
RINT DIRECTORY."...J..:." PRESS ANY KEY 
TO GO TO THE MAIN MENU."...T..198,1:.A$.
..^..686,2:.698,40...H..A$."."..679:.148
0.P.R..A$."."..679:.2290.Z.|..1010......
".UNSCRATCH FILE:":.686,4:.698,160.....V
.0.3....X.0.143:A.(F(F$(X,0))).128:.A.0.
A.0.B....A.0..1890.X....A.0.(H(F$(X,1),1
).G(0).H(F$(X,1),1).G(160)).1890......67
9:.:.:.X.1,F$(X,1).F.B..:.:..2)".WANT TO
 UNSCRATCH THIS FILE?  (Y/N)."...L..198,
1:.A$:.A$.."Y".A$.."N".A$..".".1740...V.
.A$."N".1900.%....A$."."..686,2:.698,40:
.1010.B....679:.".WHAT FILE TYPE?".[....
:."  1. SEQUENTIAL".Q....:."  2. PROGRAM
"......:."  3. USER"......:."  4. RELATI
VE"......:.".  5. ABORT UNSCRATCH."...&.
.:.:..10)".WHICH TYPE? (1-5)"...0..198,1
:.A$:.A$."1".A$."5".1840.!.:..A$."5"..68
6,2:.698,40:.1010.D.D.FT.E(A$).128:FT$.G
(FT):BP.F(F$(X,4)):T.F(F$(X,2)):S.F(F$(X
,3)).T.N.D$.FT$:.330...X.F$(X,0).FT$:V.1
...B..679:.:.:..11)"....WORKING...."...L
.....V..679:..2)".NO MORE DELETED FILES 
ON THIS DISK."......V.1..540.'....:.:..2
)".HIT ANY KEY TO RETURN TO MAIN MENU.".
K....198,1:.A$:.686,2:.698,40:.1010.....
.".SCRATCH FILE - LEAVE ON DIRECTORY:":.
686,4:.698,200.....V.0......X.0.143:A.(F
(F$(X,0))).128:.A.0.2060.R....679:.:.:.X
.1,F$(X,1)...F..:.:..2)".WANT TO SCRATCH
 THIS FILE?   (Y/N).".2.P..198,1:.A$:.A$
.."Y".A$.."N".A$..".".2000.C.Z..A$."N".2
070.D....A$."."..686,2:.698,40:.1010....
.BP.F(F$(X,4)):T.F(F$(X,2)):S.F(F$(X,3))
.....D$.G(128):.330.....F$(X,0).G(128):V
.1......679:.:.:..11)"....WORKING...."..
....... ..679:..5)".NO MORE FILES ON THI
S DISK."...*..V.1..540.Q.4..:.:..2)".HIT
 ANY KEY TO RETURN TO MAIN MENU.".U.>..1
98,1:.A$:.686,2:.698,40:.1010...H..".SCR
ATCH FILE - TAKE OFF DIRECTORY:":.686,4:
.698,200...R.V.0...\..X.0.143:A.(F(F$(X,
0))).128:.A.0.2230...F..679:.:.:.X.1,F$(
X,1)./.P..:.:..2)".WANT TO SCRATCH THIS 
FILE?   (Y/N).".\.Z..198,1:.A$:.A$.."Y".
A$.."N".A$..".".2170.M....A$."N".2240...
...A$."."..686,2:.698,40:.1010.....BP.F(
F$(X,4)):T.F(F$(X,2)):S.F(F$(X,3)).K...D
$.G(0):.330.....F$(X,0).G(0):V.1.. ...67
9:.:.:..11)"....WORKING....".. ....6 J..
679:..5)".NO MORE FILES ON THIS DISK.".D
 T..V.1..540.W ...:.:..2)".HIT ANY KEY T
O RETURN TO MAIN MENU.".. ...198,1:.A$:.
686,2:.698,40:.1010.. ...:.:.".PRINT DIR
ECTORY OPTIONS:".. ...:."  1. PRINT ENTI
RE DIRECTORY"..!...:."  2. PRINT ONLY VA
LID FILES".1!...:."  3. PRINT ONLY DELET
ED FILES".X!...:."  4. PRINT ONLY PROGRA
M FILES".Y!$..:."  5. ABORT PRINT OPTION
"..!...:.:..9)".WHICH OPTION? (1-5)"..!8
..198,1:.A$:.A$."1".A$."5".2360.P!B.A.E(
A$):.560..!L..A$."."..679:.2290.."V..686
,2:.698,40:.1010.."`...""J.."..":.808,23
7: 8: 15:..J"T..8,72,138,72,152,72,162,2
,160,0,24,32,240,255,160,0,169,32,153,40
,4.."~..153,0,5,153,0,6,153,0,7,200,208,
241,104,168,104,170,104,40,96...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL