DISK FILE MGR
FILE INFORMATION
FILENAME(S): DISK FILE MGR
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
bc87bcfadb237fc638046ff400c5aac88723b264993ca04c56e1540bccb5e374
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | DISK FILE MGR | PRG | Radd Maxx | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 8F 20 20 20 20 20 46 49 4C 45 |....... FILE| 00000010: 20 4D 41 4E 41 47 45 52 00 2C 08 14 00 8F 20 20 | MANAGER.,.... | 00000020: 20 20 20 20 20 47 20 42 52 4F 57 4E 00 47 08 1E | G BROWN.G..| 00000030: 00 8F 20 20 56 45 52 53 49 4F 4E 20 31 2E 30 20 |.. VERSION 1.0 | 00000040: 20 33 2F 31 2F 38 33 00 4D 08 28 00 8F 00 67 08 | 3/1/83.M.(...g.| 00000050: 5A 00 9F 31 32 38 2C 32 2C 30 2C C7 28 33 38 29 |Z..128,2,0,.(38)| 00000060: AA C7 28 32 32 35 29 00 89 08 64 00 42 4C 24 B2 |..(225)...d.BL$.| 00000070: 22 20 22 3A 81 49 B2 31 A4 37 3A 42 4C 24 B2 42 |" ":.I.1.7:BL$.B| 00000080: 4C 24 AA 42 4C 24 3A 82 49 00 A2 08 D2 00 99 22 |L$.BL$:.I......"| 00000090: 93 22 3B 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 |.";:. CLEAR SCRE| 000000A0: 45 4E 00 C7 08 DC 00 99 22 20 20 20 20 20 20 20 |EN......" | 000000B0: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *************| 000000C0: 2A 2A 2A 2A 2A 2A 22 00 EC 08 E6 00 99 22 20 20 |******"......" | 000000D0: 20 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 | * | 000000E0: 20 20 20 20 20 20 20 20 20 20 2A 22 00 13 09 F0 | *"....| 000000F0: 00 99 22 20 20 20 20 20 20 20 20 20 20 2A 20 20 |.." * | 00000100: 46 49 4C 45 20 4D 41 4E 41 47 45 52 20 20 20 2A |FILE MANAGER *| 00000110: 22 2C 4E 00 3A 09 FA 00 99 22 20 20 20 20 20 20 |",N.:...." | 00000120: 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 | * | 00000130: 20 20 20 20 20 20 2A 22 2C 4D 00 5F 09 0E 01 99 | *",M._....| 00000140: 22 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A |" *****| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".| 00000160: 65 09 18 01 99 00 84 09 22 01 99 22 41 44 44 22 |e.......".."ADD"| 00000170: 2C 22 46 49 4E 44 22 2C 22 4E 45 57 22 2C 22 45 |,"FIND","NEW","E| 00000180: 58 49 54 22 00 A0 09 2C 01 99 22 43 48 41 4E 47 |XIT"...,.."CHANG| 00000190: 45 22 2C 22 53 4F 52 54 22 2C 22 4C 4F 41 44 22 |E","SORT","LOAD"| 000001A0: 00 BD 09 36 01 99 22 44 45 4C 45 54 45 22 2C 22 |...6.."DELETE","| 000001B0: 50 52 49 4E 54 22 2C 22 4B 45 45 50 22 00 C3 09 |PRINT","KEEP"...| 000001C0: 7C 01 99 00 D1 09 FE 01 41 24 B2 22 22 3A 85 41 ||.......A$."":.A| 000001D0: 24 00 DA 09 03 02 8D 35 32 30 00 E3 09 04 02 89 |$......520......| 000001E0: 32 31 30 00 F9 09 08 02 8B C8 28 41 24 2C 31 29 |210.......(A$,1)| 000001F0: B2 22 41 22 A7 31 30 30 30 00 0F 0A 12 02 8B C8 |."A".1000.......| 00000200: 28 41 24 2C 31 29 B2 22 43 22 A7 32 30 30 30 00 |(A$,1)."C".2000.| 00000210: 25 0A 1C 02 8B C8 28 41 24 2C 31 29 B2 22 44 22 |%.....(A$,1)."D"| 00000220: A7 33 30 30 30 00 38 0A 21 02 8B C8 28 41 24 2C |.3000.8.!...(A$,| 00000230: 31 29 B2 22 45 22 A7 90 00 4E 0A 26 02 8B C8 28 |1)."E"...N.&...(| 00000240: 41 24 2C 31 29 B2 22 46 22 A7 35 30 30 30 00 64 |A$,1)."F".5000.d| 00000250: 0A 2B 02 8B C8 28 41 24 2C 31 29 B2 22 4B 22 A7 |.+...(A$,1)."K".| 00000260: 39 30 30 30 00 7A 0A 2C 02 8B C8 28 41 24 2C 31 |9000.z.,...(A$,1| 00000270: 29 B2 22 4C 22 A7 38 30 30 30 00 90 0A 2D 02 8B |)."L".8000...-..| 00000280: C8 28 41 24 2C 31 29 B2 22 4E 22 A7 37 30 30 30 |.(A$,1)."N".7000| 00000290: 00 A6 0A 30 02 8B C8 28 41 24 2C 31 29 B2 22 50 |...0...(A$,1)."P| 000002A0: 22 A7 34 30 30 30 00 BC 0A 3A 02 8B C8 28 41 24 |".4000...:...(A$| 000002B0: 2C 31 29 B2 22 53 22 A7 36 30 30 30 00 C5 0A 57 |,1)."S".6000...W| 000002C0: 02 89 32 31 30 00 DD 0A E8 03 8F 20 2A 2A 2A 2A |..210...... ****| 000002D0: 2A 2A 20 41 44 44 20 2A 2A 2A 2A 2A 2A 00 FE 0A |** ADD ******...| 000002E0: ED 03 99 22 3C 42 4C 41 4E 4B 20 46 49 45 4C 44 |..."<BLANK FIELD| 000002F0: 20 31 20 54 4F 20 52 45 54 55 52 4E 3E 22 00 10 | 1 TO RETURN>"..| 00000300: 0B F2 03 4E B2 4E AA 31 3A 99 3A 42 24 B2 22 22 |...N.N.1:.:B$.""| 00000310: 00 28 0B FC 03 99 22 52 45 43 4F 52 44 20 4E 55 |.(...."RECORD NU| 00000320: 4D 42 45 52 20 22 3B 4E 00 38 0B 06 04 8B 4E B3 |MBER ";N.8....N.| 00000330: B2 4D A7 89 31 30 36 30 00 4D 0B 08 04 4E B2 4D |.M..1060.M...N.M| 00000340: 3A 99 22 46 49 4C 45 20 46 55 4C 4C 22 00 57 0B |:."FILE FULL".W.| 00000350: 1A 04 89 31 39 36 30 00 63 0B 24 04 81 49 B2 31 |...1960.c.$..I.1| 00000360: A4 4E 31 00 79 0B 38 04 99 22 20 20 22 3B 4E 24 |.N1.y.8.." ";N$| 00000370: 28 49 29 3B 3A 99 22 2A 22 00 87 0B 42 04 41 24 |(I);:."*"...B.A$| 00000380: B2 22 22 3A 85 41 24 00 9B 0B 44 04 8B 49 B2 31 |."":.A$...D..I.1| 00000390: AF 41 24 B2 22 22 A7 31 39 35 30 00 A9 0B 45 04 |.A$."".1950...E.| 000003A0: 41 24 B2 41 24 AA 42 4C 24 00 C8 0B 47 04 41 24 |A$.A$.BL$...G.A$| 000003B0: B2 C8 28 41 24 2C 28 44 28 49 2C 32 29 AB 44 28 |..(A$,(D(I,2).D(| 000003C0: 49 2C 31 29 AA 31 29 29 00 D5 0B 4C 04 42 24 B2 |I,1).1))...L.B$.| 000003D0: 42 24 AA 41 24 00 DC 0B 56 04 82 49 00 E9 0B 60 |B$.A$...V..I...`| 000003E0: 04 49 24 28 4E 29 B2 42 24 00 F3 0B 6A 04 89 31 |.I$(N).B$...j..1| 000003F0: 30 31 30 00 FD 0B 9E 07 4E B2 4E AB 31 00 03 0C |010.....N.N.1...| 00000400: A8 07 8E 00 1E 0C D0 07 8F 20 2A 2A 2A 2A 2A 2A |......... ******| 00000410: 20 43 48 41 4E 47 45 20 2A 2A 2A 2A 2A 2A 00 39 | CHANGE ******.9| 00000420: 0C DA 07 41 B2 30 3A 85 22 52 45 43 4F 52 44 20 |...A.0:."RECORD | 00000430: 4E 55 4D 42 45 52 22 3B 41 00 4C 0C E4 07 8B 41 |NUMBER";A.L....A| 00000440: B1 30 AF 41 B3 B2 4E A7 32 30 35 30 00 56 0C E9 |.0.A..N.2050.V..| 00000450: 07 8D 35 30 30 30 00 6D 0C EE 07 85 22 52 45 43 |..5000.m...."REC| 00000460: 4F 52 44 20 4E 55 4D 42 45 52 22 3B 41 00 7F 0C |ORD NUMBER";A...| 00000470: F8 07 8B 41 B3 30 B0 41 B1 4E 89 32 31 37 30 00 |...A.0.A.N.2170.| 00000480: 9C 0C 02 08 99 22 3C 42 4C 41 4E 4B 20 46 4F 52 |....."<BLANK FOR| 00000490: 20 4E 4F 20 43 48 41 4E 47 45 3E 22 00 AE 0C 0C | NO CHANGE>"....| 000004A0: 08 42 24 B2 22 22 3A 81 49 B2 31 A4 4E 31 00 C8 |.B$."":.I.1.N1..| 000004B0: 0C 16 08 4B B2 44 28 49 2C 31 29 3A 4C B2 44 28 |...K.D(I,1):L.D(| 000004C0: 49 2C 32 29 AB 4B AA 31 00 DC 0C 20 08 99 22 20 |I,2).K.1... .." | 000004D0: 20 22 3B 4E 24 28 49 29 3B 22 2A 22 00 F0 0C 2A | ";N$(I);"*"...*| 000004E0: 08 41 24 B2 CA 28 49 24 28 41 29 2C 4B 2C 4C 29 |.A$..(I$(A),K,L)| 000004F0: 00 0B 0D 3E 08 99 22 20 20 22 3B 41 24 3A 85 41 |...>.." ";A$:.A| 00000500: 24 3A 41 24 B2 41 24 AA 42 4C 24 00 1D 0D 52 08 |$:A$.A$.BL$...R.| 00000510: 42 24 B2 42 24 AA C8 28 41 24 2C 4C 29 00 24 0D |B$.B$..(A$,L).$.| 00000520: 66 08 82 49 00 31 0D 70 08 49 24 28 41 29 B2 42 |f..I.1.p.I$(A).B| 00000530: 24 00 4C 0D 7A 08 85 22 41 4E 59 20 4D 4F 52 45 |$.L.z.."ANY MORE| 00000540: 20 52 45 43 4F 52 44 53 22 3B 41 24 00 5D 0D 84 | RECORDS";A$.]..| 00000550: 08 8B 41 24 B2 22 59 22 89 32 30 30 30 00 63 0D |..A$."Y".2000.c.| 00000560: 8E 08 8E 00 7E 0D B8 0B 8F 20 2A 2A 2A 2A 2A 2A |....~.... ******| 00000570: 20 44 45 4C 45 54 45 20 2A 2A 2A 2A 2A 2A 00 9E | DELETE ******..| 00000580: 0D C2 0B 85 22 49 53 20 52 45 43 4F 52 44 20 23 |...."IS RECORD #| 00000590: 20 4B 4E 4F 57 4E 20 59 2F 4E 22 3B 41 24 00 AF | KNOWN Y/N";A$..| 000005A0: 0D CC 0B 8B 41 24 B2 22 59 22 A7 33 30 34 30 00 |....A$."Y".3040.| 000005B0: BA 0D D6 0B 8D 20 35 30 30 30 00 D1 0D E0 0B 85 |..... 5000......| 000005C0: 22 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 22 3B |"RECORD NUMBER";| 000005D0: 41 00 E3 0D EA 0B 8B 41 B3 30 B0 41 B1 4E A7 33 |A......A.0.A.N.3| 000005E0: 30 31 30 00 EF 0D F4 0B 81 49 B2 31 A4 4E 31 00 |010......I.1.N1.| 000005F0: FA 0D FE 0B 99 4E 24 28 49 29 00 1F 0E 08 0C 99 |.....N$(I)......| 00000600: CA 28 49 24 28 41 29 2C 44 28 49 2C 31 29 2C 44 |.(I$(A),D(I,1),D| 00000610: 28 49 2C 32 29 AB 44 28 49 2C 31 29 AA 31 29 00 |(I,2).D(I,1).1).| 00000620: 26 0E 12 0C 82 49 00 41 0E 1C 0C 99 3A 85 22 43 |&....I.A....:."C| 00000630: 4F 52 52 45 43 54 20 52 45 43 4F 52 44 22 3B 41 |ORRECT RECORD";A| 00000640: 24 00 53 0E 26 0C 8B 41 24 B3 B1 22 59 22 A7 33 |$.S.&..A$.."Y".3| 00000650: 31 37 30 00 61 0E 30 0C 8B 41 B2 4E A7 33 31 36 |170.a.0..A.N.316| 00000660: 30 00 6E 0E 3A 0C 81 49 B2 41 A4 4E AB 31 00 80 |0.n.:..I.A.N.1..| 00000670: 0E 44 0C 49 24 28 49 29 B2 49 24 28 49 AA 31 29 |.D.I$(I).I$(I.1)| 00000680: 00 87 0E 4E 0C 82 49 00 91 0E 58 0C 4E B2 4E AB |...N..I...X.N.N.| 00000690: 31 00 97 0E 62 0C 8E 00 B5 0E A0 0F 41 B2 30 3A |1...b.......A.0:| 000006A0: 8F 20 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 20 2A |. ****** PRINT *| 000006B0: 2A 2A 2A 2A 2A 00 D3 0E AA 0F 85 22 4C 49 53 54 |*****......"LIST| 000006C0: 20 41 4C 4C 20 46 49 45 4C 44 53 20 59 2F 4E 22 | ALL FIELDS Y/N"| 000006D0: 3B 41 24 00 E3 0E B4 0F 8B 41 24 B2 22 59 22 A7 |;A$......A$."Y".| 000006E0: 41 B2 31 00 02 0F C8 0F 81 49 B2 31 A4 4E 31 3A |A.1......I.1.N1:| 000006F0: 41 28 49 29 B2 41 3A 8B 41 B2 31 A7 41 28 49 29 |A(I).A:.A.1.A(I)| 00000700: B2 49 00 09 0F CD 0F 82 49 00 1C 0F D2 0F 4A B2 |.I......I.....J.| 00000710: 4E 31 3A 8B 41 B2 31 A7 34 31 32 30 00 32 0F DC |N1:.A.1.4120.2..| 00000720: 0F 99 22 4C 49 53 54 20 46 49 45 4C 44 20 59 2F |.."LIST FIELD Y/| 00000730: 4E 22 00 4A 0F E6 0F 4A B2 30 3A 81 49 B2 31 A4 |N".J...J.0:.I.1.| 00000740: 4E 31 3A 99 4E 24 28 49 29 3B 00 60 0F FA 0F 85 |N1:.N$(I);.`....| 00000750: 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 34 31 31 30 |A$:.A$.."Y".4110| 00000760: 00 71 0F 04 10 4A B2 4A AA 31 3A 41 28 4A 29 B2 |.q...J.J.1:A(J).| 00000770: 49 00 78 0F 0E 10 82 49 00 94 0F 18 10 85 22 53 |I.x....I......"S| 00000780: 43 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 |CREEN OR PRINTER| 00000790: 22 3B 41 24 00 AA 0F 22 10 8B C8 28 41 24 2C 31 |";A$..."...(A$,1| 000007A0: 29 B2 22 50 22 A7 34 35 30 30 00 B5 0F 2C 10 81 |)."P".4500...,..| 000007B0: 49 B2 31 A4 4E 00 C0 0F 36 10 81 4B B2 31 A4 4A |I.1.N...6..K.1.J| 000007C0: 00 CE 0F 40 10 99 4E 24 28 41 28 4B 29 29 00 FC |...@..N$(A(K))..| 000007D0: 0F 45 10 99 CA 28 49 24 28 49 29 2C 44 28 41 28 |.E...(I$(I),D(A(| 000007E0: 4B 29 2C 31 29 2C 44 28 41 28 4B 29 2C 32 29 AB |K),1),D(A(K),2).| 000007F0: 44 28 41 28 4B 29 2C 31 29 AA 31 29 00 03 10 4A |D(A(K),1).1)...J| 00000800: 10 82 4B 00 15 10 4F 10 99 22 3C 52 45 54 55 52 |..K...O.."<RETUR| 00000810: 4E 3E 22 3A 99 00 29 10 54 10 A1 41 24 3A 8B 41 |N>":..).T..A$:.A| 00000820: 24 B2 22 22 A7 34 31 38 30 00 30 10 59 10 82 49 |$."".4180.0.Y..I| 00000830: 00 4D 10 5E 10 41 24 B2 22 22 3A 85 22 41 4E 4F |.M.^.A$."":."ANO| 00000840: 54 48 45 52 20 4C 49 53 54 22 3B 41 24 00 63 10 |THER LIST";A$.c.| 00000850: 68 10 8B C8 28 41 24 2C 31 29 B2 22 59 22 A7 34 |h...(A$,1)."Y".4| 00000860: 30 30 30 00 69 10 72 10 8E 00 7C 10 94 11 8F 20 |000.i.r...|.... | 00000870: 50 52 49 4E 54 45 52 20 4C 49 53 54 00 8A 10 9E |PRINTER LIST....| 00000880: 11 50 B2 30 3A 8D 34 38 30 30 00 95 10 A8 11 81 |.P.0:.4800......| 00000890: 49 B2 31 A4 4E 00 A3 10 B2 11 50 B2 B5 28 49 AD |I.1.N.....P..(I.| 000008A0: 35 30 29 00 AE 10 BC 11 81 4B B2 31 A4 4A 00 E1 |50)......K.1.J..| 000008B0: 10 C6 11 98 31 32 38 2C CA 28 49 24 28 49 29 2C |....128,.(I$(I),| 000008C0: 44 28 41 28 4B 29 2C 31 29 2C 44 28 41 28 4B 29 |D(A(K),1),D(A(K)| 000008D0: 2C 32 29 AB 44 28 41 28 4B 29 2C 31 29 AA 31 29 |,2).D(A(K),1).1)| 000008E0: 3B 00 F0 10 D0 11 82 4B 3A 98 31 32 38 2C 22 22 |;......K:.128,""| 000008F0: 00 02 11 DA 11 8B 50 B3 B1 49 AD 35 30 A7 34 35 |......P..I.50.45| 00000900: 38 30 00 0C 11 DF 11 8D 34 38 30 30 00 24 11 E4 |80......4800.$..| 00000910: 11 82 49 3A 98 31 32 38 2C 42 4C 24 3B 42 4C 24 |..I:.128,BL$;BL$| 00000920: 3B 42 4C 24 00 2E 11 EE 11 89 34 31 39 30 00 3D |;BL$......4190.=| 00000930: 11 C0 12 98 31 32 38 2C C7 28 31 32 29 00 5F 11 |....128,.(12)._.| 00000940: CA 12 98 31 32 38 2C 46 24 3B 22 20 20 20 20 20 |...128,F$;" | 00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.| 00000960: 81 11 CF 12 98 31 32 38 2C 22 20 20 20 20 20 20 |.....128," | 00000970: 20 20 20 20 20 20 20 20 50 41 47 45 22 3B 50 AA | PAGE";P.| 00000980: 31 00 8D 11 D4 12 98 31 32 38 2C 22 22 00 98 11 |1......128,""...| 00000990: DE 12 81 4B B2 31 A4 4A 00 AB 11 E8 12 98 31 32 |...K.1.J......12| 000009A0: 38 2C 4E 24 28 41 28 4B 29 29 3B 00 B2 11 F2 12 |8,N$(A(K));.....| 000009B0: 82 4B 00 C8 11 FC 12 98 31 32 38 2C 22 20 22 3A |.K......128," ":| 000009C0: 98 31 32 38 2C 22 20 22 00 CE 11 06 13 8E 00 E7 |.128," "........| 000009D0: 11 88 13 8F 20 2A 2A 2A 2A 2A 2A 20 46 49 4E 44 |.... ****** FIND| 000009E0: 20 2A 2A 2A 2A 2A 2A 00 0A 12 92 13 99 22 53 45 | ******......"SE| 000009F0: 41 52 43 48 20 46 49 45 4C 44 3C 42 4C 41 4E 4B |ARCH FIELD<BLANK| 00000A00: 20 54 4F 20 53 4B 49 50 3E 22 00 22 12 9C 13 81 | TO SKIP>"."....| 00000A10: 49 B2 31 A4 4E 31 3A 99 22 20 20 22 3B 4E 24 28 |I.1.N1:." ";N$(| 00000A20: 49 29 00 3D 12 B0 13 41 24 B2 22 22 3A 85 41 24 |I).=...A$."":.A$| 00000A30: 3A 8B 41 24 B3 B1 22 22 A7 35 30 37 30 00 44 12 |:.A$.."".5070.D.| 00000A40: BA 13 82 49 00 4E 12 C4 13 89 35 33 30 30 00 64 |...I.N....5300.d| 00000A50: 12 CE 13 41 B2 C3 28 41 24 29 3A 8B 41 B3 31 A7 |...A..(A$):.A.1.| 00000A60: 35 30 37 30 00 83 12 E2 13 8B 41 B3 B2 28 44 28 |5070......A..(D(| 00000A70: 49 2C 32 29 AB 44 28 49 2C 31 29 AA 31 29 A7 35 |I,2).D(I,1).1).5| 00000A80: 31 32 30 00 9B 12 EC 13 41 B2 28 44 28 49 2C 32 |120.....A.(D(I,2| 00000A90: 29 AB 44 28 49 2C 31 29 AA 31 29 00 AA 12 F6 13 |).D(I,1).1).....| 00000AA0: 41 24 B2 C8 28 41 24 2C 41 29 00 B6 12 00 14 46 |A$..(A$,A).....F| 00000AB0: B2 30 3A 51 B2 30 00 C1 12 14 14 81 4A B2 31 A4 |.0:Q.0......J.1.| 00000AC0: 4E 00 E1 12 28 14 8B 41 24 B3 B1 CA 28 49 24 28 |N...(..A$...(I$(| 00000AD0: 4A 29 2C 44 28 49 2C 31 29 2C 41 29 A7 35 31 37 |J),D(I,1),A).517| 00000AE0: 30 00 EB 12 2D 14 8D 35 32 31 30 00 F9 12 32 14 |0...-..5210...2.| 00000AF0: 8B 51 B2 31 A7 35 32 30 30 00 00 13 46 14 82 4A |.Q.1.5200...F..J| 00000B00: 00 1D 13 50 14 8B 46 B2 30 A7 99 22 52 45 43 4F |...P..F.0.."RECO| 00000B10: 52 44 20 4E 4F 54 20 46 4F 55 4E 44 22 00 27 13 |RD NOT FOUND".'.| 00000B20: 55 14 89 35 33 30 30 00 3A 13 5A 14 99 22 52 45 |U..5300.:.Z.."RE| 00000B30: 43 4F 52 44 20 23 20 22 3B 4A 00 4D 13 64 14 81 |CORD # ";J.M.d..| 00000B40: 4B B2 31 A4 4E 31 3A 99 4E 24 28 4B 29 00 64 13 |K.1.N1:.N$(K).d.| 00000B50: 78 14 41 31 B2 44 28 4B 2C 32 29 AB 44 28 4B 2C |x.A1.D(K,2).D(K,| 00000B60: 31 29 AA 31 00 7F 13 82 14 99 CA 28 49 24 28 4A |1).1.......(I$(J| 00000B70: 29 2C 44 28 4B 2C 31 29 2C 41 31 29 3A 82 4B 00 |),D(K,1),A1):.K.| 00000B80: 94 13 8C 14 99 3A 85 22 43 4F 4E 54 49 4E 55 45 |.....:."CONTINUE| 00000B90: 22 3B 42 24 00 A4 13 96 14 8B 42 24 B2 22 4E 22 |";B$......B$."N"| 00000BA0: A7 51 B2 31 00 AE 13 AA 14 46 B2 31 3A 8E 00 C7 |.Q.1.....F.1:...| 00000BB0: 13 B4 14 85 22 41 4E 4F 54 48 45 52 20 53 45 41 |...."ANOTHER SEA| 00000BC0: 52 43 48 22 3B 41 24 00 D8 13 BE 14 8B 41 24 B2 |RCH";A$......A$.| 00000BD0: 22 59 22 A7 35 30 30 30 00 DE 13 C8 14 8E 00 FB |"Y".5000........| 00000BE0: 13 70 17 8F 20 2A 2A 2A 2A 2A 2A 20 53 4F 52 54 |.p.. ****** SORT| 00000BF0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 11 14 7A 17 | **********...z.| 00000C00: 99 22 53 4F 52 54 20 46 49 45 4C 44 20 59 2F 4E |."SORT FIELD Y/N| 00000C10: 22 00 1D 14 84 17 81 49 B2 31 A4 4E 31 00 2C 14 |"......I.1.N1.,.| 00000C20: 8E 17 99 4E 24 28 49 29 3A 85 41 24 00 3D 14 98 |...N$(I):.A$.=..| 00000C30: 17 8B 41 24 B2 22 59 22 89 36 30 37 30 00 44 14 |..A$."Y".6070.D.| 00000C40: A2 17 82 49 00 4E 14 AC 17 89 36 31 34 30 00 6D |...I.N....6140.m| 00000C50: 14 B6 17 41 B2 44 28 49 2C 31 29 3A 4C B2 44 28 |...A.D(I,1):L.D(| 00000C60: 49 2C 32 29 AB 44 28 49 2C 31 29 AA 31 00 75 14 |I,2).D(I,1).1.u.| 00000C70: C0 17 42 B2 31 00 8A 14 C5 17 42 B2 32 AC 42 3A |..B.1.....B.2.B:| 00000C80: 8B 42 B3 B2 4E A7 36 30 38 35 00 A1 14 CA 17 42 |.B..N.6085.....B| 00000C90: B2 B5 28 42 AD 32 29 3A 8B 42 B2 30 A7 36 31 34 |..(B.2):.B.0.614| 00000CA0: 30 00 B2 14 CF 17 81 43 B2 31 A4 4E AB 42 3A 4A |0......C.1.N.B:J| 00000CB0: B2 43 00 BC 14 D1 17 4B B2 4A AA 42 00 E1 14 D4 |.C.....K.J.B....| 00000CC0: 17 8B CA 28 49 24 28 4A 29 2C 41 2C 4C 29 B3 B2 |...(I$(J),A,L)..| 00000CD0: CA 28 49 24 28 4B 29 2C 41 2C 4C 29 A7 36 31 32 |.(I$(K),A,L).612| 00000CE0: 30 00 03 15 DE 17 42 24 B2 49 24 28 4A 29 3A 49 |0.....B$.I$(J):I| 00000CF0: 24 28 4A 29 B2 49 24 28 4B 29 3A 49 24 28 4B 29 |$(J).I$(K):I$(K)| 00000D00: B2 42 24 00 17 15 E3 17 4A B2 4A AB 42 3A 8B 4A |.B$.....J.J.B:.J| 00000D10: B1 30 A7 36 30 39 37 00 23 15 E8 17 82 3A 89 36 |.0.6097.#....:.6| 00000D20: 30 39 30 00 40 15 FC 17 85 22 53 4F 52 54 20 41 |090.@...."SORT A| 00000D30: 4E 4F 54 48 45 52 20 46 49 45 4C 44 22 3B 41 24 |NOTHER FIELD";A$| 00000D40: 00 51 15 06 18 8B 41 24 B2 22 59 22 89 36 30 30 |.Q....A$."Y".600| 00000D50: 30 00 57 15 10 18 8E 00 6F 15 58 1B 8F 20 2A 2A |0.W.....o.X.. **| 00000D60: 2A 2A 2A 2A 20 4E 45 57 20 2A 2A 2A 2A 2A 2A 00 |**** NEW ******.| 00000D70: 8B 15 6C 1B 85 22 46 49 4C 45 4E 41 4D 45 20 20 |..l.."FILENAME | 00000D80: 20 20 20 20 20 20 20 22 3B 46 24 00 A7 15 8A 1B | ";F$.....| 00000D90: 85 22 4E 55 4D 42 45 52 20 4F 46 20 46 49 45 4C |."NUMBER OF FIEL| 00000DA0: 44 53 20 22 3B 4E 31 00 BC 15 94 1B 99 3A 86 4E |DS ";N1......:.N| 00000DB0: 24 28 4E 31 29 3A 86 41 28 4E 31 29 00 DB 15 48 |$(N1):.A(N1)...H| 00000DC0: 1C 86 44 28 4E 31 2C 32 29 3A 4A B2 31 3A 81 49 |..D(N1,2):J.1:.I| 00000DD0: B2 31 A4 4E 31 3A 41 24 B2 22 22 00 02 16 58 1C |.1.N1:A$.""...X.| 00000DE0: 42 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |B$."............| 00000DF0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000E00: 2E 22 00 20 16 5C 1C 99 22 46 49 45 4C 44 22 3B |.". .\.."FIELD";| 00000E10: 49 3B 22 4E 41 4D 45 20 20 20 22 3B 3A 85 41 24 |I;"NAME ";:.A$| 00000E20: 00 3B 16 66 1C 99 22 20 20 20 20 20 20 20 20 4C |.;.f.." L| 00000E30: 45 4E 47 54 48 20 22 3B 3A 85 4C 00 53 16 6B 1C |ENGTH ";:.L.S.k.| 00000E40: 41 24 B2 41 24 AA 42 24 3A 41 24 B2 C8 28 41 24 |A$.A$.B$:A$..(A$| 00000E50: 2C 4C 29 00 7A 16 98 1C 4E 24 28 49 29 B2 41 24 |,L).z...N$(I).A$| 00000E60: 3A 44 28 49 2C 31 29 B2 4A 3A 4A B2 4A AA 4C 3A |:D(I,1).J:J.J.L:| 00000E70: 44 28 49 2C 32 29 B2 4A AB 31 00 81 16 B6 1C 82 |D(I,2).J.1......| 00000E80: 49 00 8F 16 C0 1C 4A B2 4A AB 31 3A 4E B2 30 00 |I.....J.J.1:N.0.| 00000E90: A8 16 CA 1C 4D B2 B8 28 38 29 3A 8B 4D B3 30 A7 |....M..(8):.M.0.| 00000EA0: 4D B2 4D AA 32 AE 31 36 00 B9 16 D4 1C 4D B2 B5 |M.M.2.16.....M..| 00000EB0: 28 4D AD 28 4A AA 33 29 29 00 D1 16 E8 1C 99 3A |(M.(J.3))......:| 00000EC0: 99 22 4D 41 58 2E 52 45 43 4F 52 44 53 3D 22 3B |."MAX.RECORDS=";| 00000ED0: 4D 00 EB 16 0B 1D 99 22 4E 55 4D 42 45 52 20 4F |M......"NUMBER O| 00000EE0: 46 20 52 45 43 4F 52 44 53 22 3B 00 FF 16 10 1D |F RECORDS";.....| 00000EF0: 85 41 3A 8B 41 B1 30 AF 41 B3 4D A7 4D B2 41 00 |.A:.A.0.A.M.M.A.| 00000F00: 0C 17 1A 1D 86 49 24 28 4D 29 3A 99 00 25 17 E6 |.....I$(M):..%..| 00000F10: 1E 99 46 24 3B 22 20 46 49 4C 45 20 53 45 54 20 |..F$;" FILE SET | 00000F20: 55 50 22 3A 99 00 35 17 FA 1E 99 22 3C 52 45 54 |UP":..5...."<RET| 00000F30: 55 52 4E 3E 22 00 4A 17 04 1F A1 41 24 3A 8B 41 |URN>".J....A$:.A| 00000F40: 24 B2 22 22 A7 89 37 39 34 30 00 50 17 0E 1F 8E |$.""..7940.P....| 00000F50: 00 69 17 40 1F 8F 20 2A 2A 2A 2A 2A 2A 20 4C 4F |.i.@.. ****** LO| 00000F60: 41 44 20 2A 2A 2A 2A 2A 2A 00 84 17 54 1F 85 22 |AD ******...T.."| 00000F70: 4E 41 4D 45 20 4F 46 20 44 49 53 4B 46 49 4C 45 |NAME OF DISKFILE| 00000F80: 22 3B 46 24 00 9E 17 5E 1F 9F 32 2C 38 2C 32 2C |";F$...^..2,8,2,| 00000F90: 22 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 22 00 AC |"0:".F$.",S,R"..| 00000FA0: 17 68 1F 84 32 2C 4E 2C 4E 31 2C 4D 00 B9 17 72 |.h..2,N,N1,M...r| 00000FB0: 1F 86 44 28 4E 31 2C 32 29 00 C5 17 77 1F 86 4E |..D(N1,2)...w..N| 00000FC0: 24 28 4E 31 29 00 D1 17 7C 1F 81 49 B2 31 A4 4E |$(N1)...|..I.1.N| 00000FD0: 31 00 DE 17 81 1F 84 32 2C 4E 24 28 49 29 00 E9 |1......2,N$(I)..| 00000FE0: 17 86 1F 81 4A B2 31 A4 32 00 F7 17 90 1F 84 32 |....J.1.2......2| 00000FF0: 2C 44 28 49 2C 4A 29 00 00 18 9A 1F 82 4A 2C 49 |,D(I,J)......J,I| 00001000: 00 0B 18 B8 1F 86 49 24 28 4D 29 00 16 18 C2 1F |......I$(M).....| 00001010: 81 49 B2 31 A4 4E 00 23 18 CC 1F 84 32 2C 49 24 |.I.1.N.#....2,I$| 00001020: 28 49 29 00 2A 18 D6 1F 82 49 00 33 18 E0 1F A0 |(I).*....I.3....| 00001030: 32 3A 8E 00 4C 18 28 23 8F 20 2A 2A 2A 2A 2A 2A |2:..L.(#. ******| 00001040: 20 4B 45 45 50 20 2A 2A 2A 2A 2A 2A 00 68 18 32 | KEEP ******.h.2| 00001050: 23 99 22 53 41 56 45 20 22 3B 46 24 3B 3A 85 22 |#."SAVE ";F$;:."| 00001060: 20 59 2F 4E 22 3B 41 24 00 84 18 3C 23 8B 41 24 | Y/N";A$...<#.A$| 00001070: B3 B1 22 59 22 A7 85 22 46 49 4C 45 4E 41 4D 45 |.."Y".."FILENAME| 00001080: 22 3B 46 24 00 91 18 46 23 9F 31 35 2C 38 2C 31 |";F$...F#.15,8,1| 00001090: 35 00 AB 18 50 23 9F 32 2C 38 2C 32 2C 22 30 3A |5...P#.2,8,2,"0:| 000010A0: 22 AA 46 24 AA 22 2C 53 2C 57 22 00 C3 18 5A 23 |".F$.",S,W"...Z#| 000010B0: 84 31 35 2C 45 31 24 2C 45 32 24 2C 45 33 24 2C |.15,E1$,E2$,E3$,| 000010C0: 45 34 24 00 D6 18 64 23 8B C5 28 45 31 24 29 B2 |E4$...d#..(E1$).| 000010D0: 30 A7 39 32 30 30 00 EE 18 6E 23 A0 32 3A 8B C5 |0.9200...n#.2:..| 000010E0: 28 45 31 24 29 B3 B1 36 33 A7 39 31 32 30 00 10 |(E1$)..63.9120..| 000010F0: 19 78 23 85 22 46 49 4C 45 20 45 58 49 53 54 53 |.x#."FILE EXISTS| 00001100: 2C 52 45 50 4C 41 43 45 20 59 2F 4E 22 3B 41 24 |,REPLACE Y/N";A$| 00001110: 00 1F 19 82 23 8B 41 24 B3 B1 22 59 22 A7 8E 00 |....#.A$.."Y"...| 00001120: 3A 19 8C 23 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 |:..#.2,8,2,"@0:"| 00001130: AA 46 24 AA 22 2C 53 2C 57 22 00 44 19 96 23 89 |.F$.",S,W".D..#.| 00001140: 39 32 30 30 00 59 19 A0 23 99 45 31 24 2C 45 32 |9200.Y..#.E1$,E2| 00001150: 24 2C 45 33 24 2C 45 34 24 00 69 19 AA 23 99 22 |$,E3$,E4$.i..#."| 00001160: 3C 52 45 54 55 52 4E 3E 22 00 7D 19 B4 23 A1 41 |<RETURN>".}..#.A| 00001170: 24 3A 8B 41 24 B2 22 22 A7 39 31 34 30 00 91 19 |$:.A$."".9140...| 00001180: F0 23 98 32 2C 4E 3A 98 32 2C 4E 31 3A 98 32 2C |.#.2,N:.2,N1:.2,| 00001190: 4D 00 9D 19 FA 23 81 49 B2 31 A4 4E 31 00 AA 19 |M....#.I.1.N1...| 000011A0: FF 23 98 32 2C 4E 24 28 49 29 00 B5 19 04 24 81 |.#.2,N$(I)....$.| 000011B0: 4A B2 31 A4 32 00 C3 19 0E 24 98 32 2C 44 28 49 |J.1.2....$.2,D(I| 000011C0: 2C 4A 29 00 CC 19 18 24 82 4A 2C 49 00 D7 19 2C |,J)....$.J,I...,| 000011D0: 24 81 49 B2 31 A4 4E 00 E4 19 36 24 98 32 2C 49 |$.I.1.N...6$.2,I| 000011E0: 24 28 49 29 00 EB 19 40 24 82 49 00 F8 19 4A 24 |$(I)...@$.I...J$| 000011F0: A0 32 3A A0 31 35 3A 8E 00 00 00 |.2:.15:.... |
....... FILE MANAGER.,.... G B ROWN.G.... VERSION 1.0 3/1/83.M.(...G. Z..128,2,0,G(38).G(225)...D.BL$." ":.I.1 .7:BL$.BL$.BL$:.I...R..".";:. CLEAR SCRE EN.G...." *******************". ....." * *".... .." * FILE MANAGER *",N.:... ." * *",M._.... " *******************".E....... ".."ADD","FIND","NEW","EXIT". .,.."CHANG E","SORT","LOAD"...6.."DELETE","PRINT"," KEEP".C.|...Q...A$."":.A$.Z....520...... 210......H(A$,1)."A".1000......H(A$,1)." C".2000.%....H(A$,1)."D".3000.8.!..H(A$, 1)."E"...N.&..H(A$,1)."F".5000.D.+..H(A$ ,1)."K".9000.Z.,..H(A$,1)."L".8000...-.. H(A$,1)."N".7000...0..H(A$,1)."P".4000.. .:..H(A$,1)."S".6000.E.W..210...... **** ** ADD ******......"<BLANK FIELD 1 TO RE TURN>".....N.N.1:.:B$."".(...."RECORD NU MBER ";N.8....N..M..1060.M...N.M:."FILE FULL".W....1960.C.$..I.1.N1.Y.8.." ";N$ (I);:."*"...B.A$."":.A$...D..I.1.A$."".1 950...E.A$.A$.BL$.H.G.A$.H(A$,(D(I,2).D( I,1).1)).U.L.B$.B$.A$...V..I...`.I$(N).B $...J..1010.....N.N.1.........P.. ****** CHANGE ******.9.Z.A.0:."RECORD NUMBER"; A.L....A.0.A..N.2050.V....5000.M...."REC ORD NUMBER";A.....A.0.A.N.2170......"<B LANK FOR NO CHANGE>".....B$."":.I.1.N1.H ...K.D(I,1):L.D(I,2).K.1... .." ";N$(I) ;"*"...*.A$.J(I$(A),K,L)...>.." ";A$:.A $:A$.A$.BL$...R.B$.B$.H(A$,L).$.F..I.1.P .I$(A).B$.L.Z.."ANY MORE RECORDS";A$.].. ..A$."Y".2000.C.....~.... ****** DELETE ******...B.."IS RECORD # KNOWN Y/N";A$.. .L..A$."Y".3040...V.. 5000.Q...."RECORD NUMBER";A......A.0.A.N.3010......I.1.N1. .....N$(I)......J(I$(A),D(I,1),D(I,2).D( I,1).1).&....I.A....:."CORRECT RECORD";A $.S.&..A$.."Y".3170.A.0..A.N.3160.N.:..I .A.N.1...D.I$(I).I$(I.1)...N..I...X.N.N. 1...B..... .A.0:. ****** PRINT ******.S. ..."LIST ALL FIELDS Y/N";A$......A$."Y". A.1...H..I.1.N1:A(I).A:.A.1.A(I).I...M.. I...R.J.N1:.A.1.4120.2...."LIST FIELD Y/ N".J...J.0:.I.1.N1:.N$(I);.`....A$:.A$.. "Y".4110.Q...J.J.1:A(J).I.X....I......"S CREEN OR PRINTER";A$..."..H(A$,1)."P".45 00...,..I.1.N...6..K.1.J.N.@..N$(A(K)).. .E..J(I$(I),D(A(K),1),D(A(K),2).D(A(K),1 ).1)...J..K...O.."<RETURN>":..).T..A$:.A $."".4180.0.Y..I.M.^.A$."":."ANOTHER LIS T";A$.C.H..H(A$,1)."Y".4000.I.R...|.... PRINTER LIST.....P.0:.4800......I.1.N... ..P..(I.50)......K.1.J...F..128,J(I$(I), D(A(K),1),D(A(K),2).D(A(K),1).1);...P..K :.128,""...Z..P..I.50.4580......4800.$.. ..I:.128,BL$;BL$;BL$......4190.=....128, G(12)._.J..128,F$;" ";. ..O..128," PAGE";P.1...T..1 28,""......K.1.J......128,N$(A(K));..... .K.H....128," ":.128," ".N.......... *** *** FIND ******......"SEARCH FIELD<BLANK TO SKIP>"."....I.1.N1:." ";N$(I).=...A $."":.A$:.A$.."".5070.D....I.N.D..5300.D .N.A.C(A$):.A.1.5070......A..(D(I,2).D(I ,1).1).5120.....A.(D(I,2).D(I,1).1)..... A$.H(A$,A).....F.0:Q.0.A....J.1.N...(..A $..J(I$(J),D(I,1),A).5170...-..5210...2. .Q.1.5200...F..J...P..F.0.."RECORD NOT F OUND".'.U..5300.:.Z.."RECORD # ";J.M.D.. K.1.N1:.N$(K).D.X.A1.D(K,2).D(K,1).1... ..J(I$(J),D(K,1),A1):.K......:."CONTINUE ";B$......B$."N".Q.1.....F.1:..G...."ANO THER SEARCH";A$.X....A$."Y".5000...H.... .P.. ****** SORT **********...Z.."SORT F IELD Y/N"......I.1.N1.,....N$(I):.A$.=.. ..A$."Y".6070.D....I.N....6140.M...A.D(I ,1):L.D(I,2).D(I,1).1.U...B.1...E.B.2.B: .B..N.6085...J.B..(B.2):.B.0.6140...O..C .1.N.B:J.C...Q.K.J.B...T..J(I$(J),A,L).. J(I$(K),A,L).6120.....B$.I$(J):I$(J).I$( K):I$(K).B$.....J.J.B:.J.0.6097.#....:.6 090.@...."SORT ANOTHER FIELD";A$.Q....A$ ."Y".6000.W.....O.X.. ****** NEW ******. ..L.."FILENAME ";F$......"NUMBER OF FIELDS ";N1......:.N$(N1):.A(N1)...H ..D(N1,2):J.1:.I.1.N1:A$.""...X.B$.".... .........................". .\.."FIELD"; I;"NAME ";:.A$.;.F.." LENGTH "; :.L.S.K.A$.A$.B$:A$.H(A$,L).Z...N$(I).A$ :D(I,1).J:J.J.L:D(I,2).J.1......I.....J. J.1:N.0...J.M..(8):.M.0.M.M.2.16...T.M.. (M.(J.3)).Q....:."MAX.RECORDS=";M......" NUMBER OF RECORDS";......A:.A.0.A.M.M.A. .....I$(M):..%....F$;" FILE SET UP":..5. ..."<RETURN>".J....A$:.A$.""..7940.P.... .I.@.. ****** LOAD ******...T.."NAME OF DISKFILE";F$...^..2,8,2,"0:".F$.",S,R".. .H..2,N,N1,M...R..D(N1,2).E.W..N$(N1).Q. |..I.1.N1......2,N$(I)......J.1.2......2 ,D(I,J)......J,I......I$(M)...B..I.1.N.# .L..2,I$(I).*.V..I.3... 2:..L.(#. ****** KEEP ******.H.2#."SAVE ";F$;:." Y/N";A$ ...<#.A$.."Y".."FILENAME";F$...F#.15,8,1 5...P#.2,8,2,"0:".F$.",S,W".C.Z#.15,E1$, E2$,E3$,E4$.V.D#.E(E1$).0.9200...N# 2:.E (E1$)..63.9120...X#."FILE EXISTS,REPLACE Y/N";A$....#.A$.."Y"...:..#.2,8,2,"@0:" .F$.",S,W".D..#.9200.Y. #.E1$,E2$,E3$,E4 $.I..#."<RETURN>".}..#.A$:.A$."".9140... .#.2,N:.2,N1:.2,M....#.I.1.N1....#.2,N$( I)....$.J.1.2.C..$.2,D(I,J).L..$.J,I.W., $.I.1.N...6$.2,I$(I)...@$.I...J$ 2: 15:. ...
> CLICK IMAGE PREVIEW FOR FULL MODAL