FILE MANAGER.D
FILE INFORMATION
FILENAME(S): FILE MANAGER.D
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
fbf6bc32192b3be8bc9a9f72c99d5edd441576318a82c9e56591d39bcba0701c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG MAY 84 C | FILE MANAGER.D | PRG | Radd Maxx | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *|
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 | **.|
00000050: 76 08 1E 00 8F 20 2A 2A 20 20 20 20 52 45 4C 2E |v.... ** REL.|
00000060: 46 49 4C 2E 4D 41 4E 41 47 45 52 20 56 32 2E 30 |FIL.MANAGER V2.0|
00000070: 20 20 20 20 2A 2A 00 9D 08 28 00 8F 20 2A 2A 20 | **...(.. ** |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 C4 08 | **...|
000000A0: 32 00 8F 20 2A 2A 20 20 52 45 4C 41 54 49 56 45 |2.. ** RELATIVE|
000000B0: 20 20 46 49 4C 45 20 20 4D 41 4E 41 47 45 52 20 | FILE MANAGER |
000000C0: 20 20 2A 2A 00 EB 08 3C 00 8F 20 2A 2A 20 20 52 | **...<.. ** R|
000000D0: 45 4C 41 54 49 56 45 20 20 46 49 4C 45 20 20 4D |ELATIVE FILE M|
000000E0: 41 4E 41 47 45 52 20 20 20 2A 2A 00 12 09 46 00 |ANAGER **...F.|
000000F0: 8F 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |. ** |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 2A 2A 00 39 09 50 00 8F 20 2A 2A 20 54 48 49 53 |**.9.P.. ** THIS|
00000120: 20 49 53 20 41 20 4D 4F 44 49 46 49 45 44 20 56 | IS A MODIFIED V|
00000130: 45 52 53 49 4F 4E 20 2A 2A 00 60 09 5A 00 8F 20 |ERSION **.`.Z.. |
00000140: 2A 2A 20 4F 46 20 52 45 4C 2E 45 58 50 45 52 2E |** OF REL.EXPER.|
00000150: 56 33 2E 34 20 54 48 41 54 20 57 49 4C 4C 2A 2A |V3.4 THAT WILL**|
00000160: 00 86 09 64 00 8F 2A 2A 41 4C 4C 4F 57 20 54 48 |...d..**ALLOW TH|
00000170: 45 20 55 53 45 52 20 54 4F 20 44 45 46 49 4E 45 |E USER TO DEFINE|
00000180: 20 48 49 53 2A 2A 00 AC 09 6E 00 8F 2A 2A 20 4F | HIS**...n..** O|
00000190: 57 4E 20 23 20 4F 46 20 46 49 45 4C 44 53 20 41 |WN # OF FIELDS A|
000001A0: 4E 44 20 54 48 49 45 52 20 20 2A 2A 00 D2 09 78 |ND THIER **...x|
000001B0: 00 8F 2A 2A 20 4C 45 4E 47 54 48 20 41 4E 44 20 |..** LENGTH AND |
000001C0: 54 49 54 4C 45 2E 50 4F 57 45 52 20 54 4F 20 20 |TITLE.POWER TO |
000001D0: 2A 2A 00 F8 09 82 00 8F 2A 2A 20 20 20 55 53 2E |**......** US.|
000001E0: 20 20 4A 41 4D 20 4E 4F 56 45 4D 42 45 52 20 31 | JAM NOVEMBER 1|
000001F0: 39 38 33 20 20 20 2A 2A 00 1E 0A 8C 00 8F 2A 2A |983 **......**|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 |**************.P|
00000220: 0A 96 00 86 41 41 24 28 35 30 30 29 2C 4E 25 28 |....AA$(500),N%(|
00000230: 35 30 30 29 3A 97 35 33 32 38 31 2C 30 3A 99 22 |500):.53281,0:."|
00000240: 05 22 C7 28 31 34 29 3A 97 36 35 30 2C 31 32 38 |.".(14):.650,128|
00000250: 00 80 0A A0 00 4E 4D 24 B2 22 22 3A 8D 31 30 34 |.....NM$."":.104|
00000260: 32 30 3A 8B C2 28 34 39 31 35 32 29 B2 37 36 AF |20:..(49152).76.|
00000270: C2 28 34 39 32 35 37 29 B2 31 37 33 A7 32 30 30 |.(49257).173.200|
00000280: 00 92 0A AA 00 97 36 34 36 2C C2 28 35 33 32 38 |......646,.(5328|
00000290: 31 29 00 CC 0A B4 00 99 22 11 11 4E 45 57 11 11 |1)......"..NEW..|
000002A0: 22 3A 99 22 4C 4F 41 44 22 C7 28 33 34 29 22 52 |":."LOAD".(34)"R|
000002B0: 45 4C 2E 46 49 4C 45 2E 42 4F 4F 54 45 52 22 C7 |EL.FILE.BOOTER".|
000002C0: 28 33 34 29 22 2C 38 11 11 11 11 22 00 06 0B BE |(34)",8...."....|
000002D0: 00 99 22 52 55 4E 91 91 91 91 91 91 91 91 91 91 |.."RUN..........|
000002E0: 91 91 91 91 22 3A 97 31 39 38 2C 33 3A 97 36 33 |....":.198,3:.63|
000002F0: 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 |1,13:.632,13:.63|
00000300: 33 2C 31 33 3A 80 00 32 0B C8 00 99 22 11 20 CE |3,13:..2....". .|
00000310: CF D4 C5 3A 20 C9 4E 20 41 4C 4C 20 43 41 53 45 |...: .N ALL CASE|
00000320: 53 20 54 48 52 4F 55 47 48 4F 55 54 20 54 48 49 |S THROUGHOUT THI|
00000330: 53 22 00 5C 0B D2 00 99 22 20 20 20 20 20 50 52 |S".\...." PR|
00000340: 4F 47 52 41 4D 2C 20 54 59 50 49 4E 47 20 54 48 |OGRAM, TYPING TH|
00000350: 45 20 52 45 54 55 52 4E 20 4B 45 59 00 86 0B DC |E RETURN KEY....|
00000360: 00 99 22 20 20 20 20 20 57 49 54 48 20 20 4E 4F |.." WITH NO|
00000370: 20 20 4B 45 59 42 4F 41 52 44 20 20 45 4E 54 52 | KEYBOARD ENTR|
00000380: 59 20 57 49 4C 4C 00 B0 0B E6 00 99 22 20 20 20 |Y WILL......" |
00000390: 20 20 41 43 54 20 41 53 20 41 4E 20 45 53 43 41 | ACT AS AN ESCA|
000003A0: 50 45 20 46 52 4F 4D 20 57 48 41 54 45 56 45 52 |PE FROM WHATEVER|
000003B0: 00 CB 0B F0 00 99 22 20 20 20 20 20 59 4F 55 20 |......" YOU |
000003C0: 41 52 45 20 44 4F 49 4E 47 2E 11 00 0A 0C FA 00 |ARE DOING.......|
000003D0: 99 22 11 20 D0 55 54 20 41 20 44 49 53 4B 20 46 |.". .UT A DISK F|
000003E0: 4F 52 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 |OR RELATIVE FILE|
000003F0: 53 20 20 20 20 20 20 20 20 20 20 20 49 4E 20 54 |S IN T|
00000400: 48 45 20 44 52 49 56 45 2E 22 00 20 0C 04 01 8B |HE DRIVE.". ....|
00000410: C2 28 38 33 30 29 B3 B1 33 32 A7 8D 35 30 31 30 |.(830)..32..5010|
00000420: 00 38 0C 0E 01 99 22 9D 22 3B 3A 8D 31 30 36 34 |.8....".";:.1064|
00000430: 30 3A 8D 31 30 34 32 30 00 58 0C 18 01 9F 31 2C |0:.10420.X....1,|
00000440: 38 2C 31 35 2C 22 49 22 3A 52 24 B2 C7 28 31 33 |8,15,"I":R$..(13|
00000450: 29 3A 4E 4D 24 B2 22 22 00 9C 0C 22 01 42 B2 31 |):NM$.""...".B.1|
00000460: 37 3A 5A 24 B2 22 22 3A 99 22 11 20 C4 4F 20 59 |7:Z$."":.". .O Y|
00000470: 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 41 54 |OU WANT TO CREAT|
00000480: 45 20 41 20 42 52 41 4E 44 20 4E 45 57 22 3A 8D |E A BRAND NEW":.|
00000490: 31 30 34 37 30 3A 8D 31 30 34 38 30 00 AD 0C 2C |10470:.10480...,|
000004A0: 01 8B 5A 24 B3 B1 22 51 22 A7 33 34 30 00 E1 0C |..Z$.."Q".340...|
000004B0: 36 01 99 22 11 20 C4 4F 20 59 4F 55 20 57 41 4E |6..". .O YOU WAN|
000004C0: 54 20 54 4F 20 51 55 49 54 22 3B 3A 5A 24 B2 22 |T TO QUIT";:Z$."|
000004D0: 22 3A 85 5A 24 3A 42 B2 32 32 3A 8D 31 30 34 38 |":.Z$:B.22:.1048|
000004E0: 30 00 F9 0C 40 01 8B 5A 24 B2 22 4E 22 A7 8D 31 |0...@..Z$."N"..1|
000004F0: 30 34 32 30 3A 89 32 39 30 00 05 0D 4A 01 A0 32 |0420:.290...J..2|
00000500: 3A A0 31 3A 80 00 15 0D 54 01 8B 5A 24 B2 22 59 |:.1:....T..Z$."Y|
00000510: 22 A7 35 36 30 00 3E 0D 5E 01 99 22 11 20 D7 48 |".560.>.^..". .H|
00000520: 41 54 20 49 53 20 54 48 45 20 4E 41 4D 45 20 4F |AT IS THE NAME O|
00000530: 46 20 59 4F 55 52 22 3A 8D 31 30 34 37 30 00 5E |F YOUR":.10470.^|
00000540: 0D 68 01 4E 4D 24 B2 5A 24 3A 5A B2 C3 28 4E 4D |.h.NM$.Z$:Z..(NM|
00000550: 24 29 3A 8B 4E 4D 24 B2 22 22 A7 33 31 30 00 8E |$):.NM$."".310..|
00000560: 0D 72 01 8B 5A B1 31 35 A7 8D 31 30 34 32 30 3A |.r..Z.15..10420:|
00000570: 99 22 11 20 12 C6 49 4C 45 20 4E 41 4D 45 20 54 |.". ..ILE NAME T|
00000580: 4F 4F 20 4C 4F 4E 47 2E 22 3A 89 32 39 30 00 AC |OO LONG.":.290..|
00000590: 0D 7C 01 4D 4E 24 B2 4E 4D 24 3A 8B 5A B1 36 A7 |.|.MN$.NM$:.Z.6.|
000005A0: 4D 4E 24 B2 C8 28 4E 4D 24 2C 36 29 00 D8 0D 86 |MN$..(NM$,6)....|
000005B0: 01 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A |..2,8,3," ".NM$:|
000005C0: 8D 31 30 30 31 30 3A 8F 20 44 4F 45 53 20 46 49 |.10010:. DOES FI|
000005D0: 4C 45 20 45 58 49 53 54 00 0F 0E 90 01 A0 36 3A |LE EXIST......6:|
000005E0: 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 |.6,8,7," ".MN$."|
000005F0: 2F 4B 45 59 2C 53 2C 52 22 3A 84 36 2C 46 4C 44 |/KEY,S,R":.6,FLD|
00000600: 53 2C 44 46 2C 50 4F 25 3A 8D 31 30 30 31 30 00 |S,DF,PO%:.10010.|
00000610: 1B 0E 9A 01 44 46 25 B2 32 35 33 00 4D 0E AE 01 |....DF%.253.M...|
00000620: 8D 31 30 34 32 30 3A 99 22 11 20 12 22 4E 4D 24 |.10420:.". ."NM$|
00000630: 22 92 20 48 41 53 20 12 22 46 4C 44 53 22 92 46 |". HAS ."FLDS".F|
00000640: 49 45 4C 44 53 20 43 52 45 41 54 45 44 00 7E 0E |IELDS CREATED.~.|
00000650: B8 01 99 22 20 41 4E 44 20 41 20 52 45 43 4F 52 |..." AND A RECOR|
00000660: 44 20 4C 45 4E 47 54 48 20 4F 46 20 12 22 44 46 |D LENGTH OF ."DF|
00000670: 22 92 43 48 41 52 41 43 54 45 52 53 2E 22 00 AC |".CHARACTERS."..|
00000680: 0E C2 01 99 22 11 20 C6 C9 C5 CC C4 A0 23 22 A3 |....". ......#".|
00000690: 31 32 29 22 D4 C9 D4 CC C5 22 A3 32 37 29 22 C3 |12)".....".27)".|
000006A0: C8 C1 D2 2E 20 CC C5 CE C7 D4 C8 22 00 DA 0E CC |.... ......"....|
000006B0: 01 99 22 20 B7 B7 B7 B7 B7 B7 B7 22 A3 31 32 29 |.." .......".12)|
000006C0: 22 B7 B7 B7 B7 B7 22 A3 32 37 29 22 B7 B7 B7 B7 |".....".27)"....|
000006D0: B7 B7 B7 B7 B7 B7 B7 B7 11 22 00 F8 0E D6 01 81 |........."......|
000006E0: 49 B2 31 A4 46 4C 44 53 3A 84 36 2C 43 48 28 49 |I.1.FLDS:.6,CH(I|
000006F0: 29 2C 43 48 24 28 49 29 00 15 0F E0 01 99 A3 33 |),CH$(I).......3|
00000700: 29 49 A3 31 31 29 43 48 24 28 49 29 A3 33 32 29 |)I.11)CH$(I).32)|
00000710: 43 48 28 49 29 00 1F 0F EA 01 82 49 3A A0 36 00 |CH(I)......I:.6.|
00000720: 4A 0F F4 01 8B 46 58 31 25 B2 39 A7 99 22 11 11 |J....FX1%.9.."..|
00000730: 11 22 3A 8D 31 30 36 34 30 3A 8D 31 30 34 32 30 |.":.10640:.10420|
00000740: 3A 99 22 11 22 3A 89 37 35 30 00 55 0F FF 01 8D |:.".":.750.U....|
00000750: 31 30 31 30 30 00 92 0F 08 02 9F 36 2C 38 2C 37 |10100......6,8,7|
00000760: 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 54 20 |," ".MN$."/SORT |
00000770: 4B 45 59 2C 53 2C 52 22 3A 8D 31 30 30 31 30 3A |KEY,S,R":.10010:|
00000780: 81 49 B2 31 A4 4C 4F 3A 84 36 2C 4E 25 28 49 29 |.I.1.LO:.6,N%(I)|
00000790: 3A 82 00 A7 0F 12 02 99 22 11 11 11 22 3A 8D 31 |:......."...":.1|
000007A0: 30 36 34 30 3A A0 36 00 B1 0F 1C 02 89 31 33 36 |0640:.6......136|
000007B0: 30 00 D7 0F 26 02 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |0...&.. ******* |
000007C0: 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 20 |CREATE NEW FILE |
000007D0: 2A 2A 2A 2A 2A 2A 2A 00 05 10 30 02 99 22 11 20 |*******...0..". |
000007E0: D7 48 41 54 20 44 4F 20 59 4F 55 20 57 41 4E 54 |.HAT DO YOU WANT|
000007F0: 20 54 4F 20 43 41 4C 4C 20 59 4F 55 52 22 3A 8D | TO CALL YOUR":.|
00000800: 31 30 34 37 30 00 25 10 3A 02 4E 4D 24 B2 5A 24 |10470.%.:.NM$.Z$|
00000810: 3A 5A B2 C3 28 4E 4D 24 29 3A 8B 4E 4D 24 B2 22 |:Z..(NM$):.NM$."|
00000820: 22 A7 33 31 30 00 55 10 44 02 8B 5A B1 31 35 A7 |".310.U.D..Z.15.|
00000830: 8D 31 30 34 32 30 3A 99 22 11 20 12 C6 49 4C 45 |.10420:.". ..ILE|
00000840: 20 4E 41 4D 45 20 54 4F 4F 20 4C 4F 4E 47 2E 22 | NAME TOO LONG."|
00000850: 3A 89 35 36 30 00 81 10 4E 02 A0 32 3A 9F 32 2C |:.560...N..2:.2,|
00000860: 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A 84 31 2C 45 |8,3," ".NM$:.1,E|
00000870: 2C 45 24 2C 43 2C 44 3A 8B 45 B2 36 32 A7 36 34 |,E$,C,D:.E.62.64|
00000880: 30 00 A8 10 58 02 99 22 11 20 D4 48 41 54 20 46 |0...X..". .HAT F|
00000890: 49 4C 45 20 4E 41 4D 45 20 41 4C 52 45 41 44 59 |ILE NAME ALREADY|
000008A0: 20 45 58 49 53 54 53 2E 00 D7 10 62 02 5A 24 B2 | EXISTS....b.Z$.|
000008B0: 22 22 3A 85 22 20 C4 4F 20 59 4F 55 20 57 41 4E |"":." .O YOU WAN|
000008C0: 54 20 54 4F 20 57 52 49 54 45 20 4F 56 45 52 20 |T TO WRITE OVER |
000008D0: 49 54 20 22 3B 5A 24 00 E0 10 6C 02 42 B2 33 32 |IT ";Z$...l.B.32|
000008E0: 00 06 11 76 02 8D 31 30 34 38 30 3A 8B 5A 24 B2 |...v..10480:.Z$.|
000008F0: 22 51 22 B0 5A 24 B2 22 4E 22 A7 8D 31 30 34 32 |"Q".Z$."N"..1042|
00000900: 30 3A 89 35 36 30 00 24 11 80 02 4D 4E 24 B2 4E |0:.560.$...MN$.N|
00000910: 4D 24 3A 8B 5A B1 36 A7 4D 4E 24 B2 C8 28 4E 4D |M$:.Z.6.MN$..(NM|
00000920: 24 2C 36 29 00 39 11 8A 02 8B 45 B2 36 32 A7 5A |$,6).9....E.62.Z|
00000930: 24 B2 22 22 3A 89 37 30 30 00 6C 11 94 02 5A 24 |$."":.700.l...Z$|
00000940: B2 22 22 3A 99 22 11 20 C4 4F 20 59 4F 55 20 57 |."":.". .O YOU W|
00000950: 41 4E 54 20 54 4F 20 4B 45 45 50 20 54 48 45 20 |ANT TO KEEP THE |
00000960: 46 49 45 4C 44 20 54 49 54 4C 45 53 00 98 11 9E |FIELD TITLES....|
00000970: 02 99 22 20 41 4E 44 20 54 48 45 49 52 20 43 48 |.." AND THEIR CH|
00000980: 41 52 41 43 54 45 52 20 4C 45 4E 47 54 48 53 20 |ARACTER LENGTHS |
00000990: 54 48 45 20 53 41 4D 45 00 D8 11 A8 02 99 22 20 |THE SAME......" |
000009A0: 41 53 20 54 48 45 59 20 57 45 52 45 20 49 4E 20 |AS THEY WERE IN |
000009B0: 54 48 45 20 4F 4C 44 20 12 22 4E 4D 24 22 92 22 |THE OLD ."NM$"."|
000009C0: 3B 3A 85 5A 24 3A 42 B2 C3 28 4E 4D 24 29 AA 32 |;:.Z$:B..(NM$).2|
000009D0: 36 3A 8D 31 30 34 38 30 00 F3 11 B2 02 8B 5A 24 |6:.10480......Z$|
000009E0: B2 22 51 22 A7 8D 31 30 34 32 30 3A A0 32 3A 89 |."Q"..10420:.2:.|
000009F0: 32 39 30 00 07 12 BC 02 A0 32 3A 98 31 2C 22 53 |290......2:.1,"S|
00000A00: 3A 20 22 AA 4E 4D 24 00 1F 12 C6 02 8B 5A 24 B2 |: ".NM$......Z$.|
00000A10: 22 59 22 A7 46 58 31 25 B2 39 3A 89 37 33 30 00 |"Y".FX1%.9:.730.|
00000A20: 3B 12 D0 02 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 |;....1,"S: ".MN$|
00000A30: AA 22 2F 4B 45 59 2C 53 2C 20 22 00 5C 12 DA 02 |."/KEY,S, ".\...|
00000A40: 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 AA 22 2F 53 |.1,"S: ".MN$."/S|
00000A50: 4F 52 54 20 4B 45 59 2C 53 2C 20 22 00 6C 12 E4 |ORT KEY,S, ".l..|
00000A60: 02 8B 46 58 31 25 B2 39 A7 34 30 30 00 A4 12 EE |..FX1%.9.400....|
00000A70: 02 99 22 11 20 C8 4F 57 20 4D 41 4E 59 20 52 45 |..". .OW MANY RE|
00000A80: 43 4F 52 44 53 20 4C 4F 4E 47 22 3A 99 22 20 57 |CORDS LONG":." W|
00000A90: 49 4C 4C 20 22 4E 4D 24 3B 3A 85 22 20 42 45 20 |ILL "NM$;:." BE |
00000AA0: 22 3B 4C 4F 00 C1 12 F8 02 8B 4C 4F B3 31 B0 4C |";LO......LO.1.L|
00000AB0: 4F B1 35 30 30 A7 8D 31 30 34 32 30 3A 89 37 35 |O.500..10420:.75|
00000AC0: 30 00 D2 12 02 03 8B 46 58 31 25 B3 B1 39 A7 37 |0......FX1%..9.7|
00000AD0: 39 30 00 F4 12 0C 03 99 22 11 20 C3 52 45 41 54 |90......". .REAT|
00000AE0: 49 4E 47 20 46 49 4C 45 53 20 2E 2E 2E 22 3A 89 |ING FILES ...":.|
00000AF0: 31 32 38 30 00 33 13 16 03 8D 31 30 34 32 30 3A |1280.3....10420:|
00000B00: 99 22 11 20 C8 4F 57 20 4D 41 4E 59 20 46 49 45 |.". .OW MANY FIE|
00000B10: 4C 44 53 20 28 39 20 4D 41 58 29 20 57 49 4C 4C |LDS (9 MAX) WILL|
00000B20: 20 45 41 43 48 22 3A 50 4F 25 B2 31 3A 46 4C 44 | EACH":PO%.1:FLD|
00000B30: 53 B2 30 00 67 13 20 03 85 22 20 52 45 43 4F 52 |S.0.g. .." RECOR|
00000B40: 44 20 48 41 56 45 20 22 3B 46 4C 44 53 3A 8B 46 |D HAVE ";FLDS:.F|
00000B50: 4C 44 53 B3 31 B0 46 4C 44 53 B1 39 A7 99 22 91 |LDS.1.FLDS.9..".|
00000B60: 91 22 3A 89 37 39 30 00 98 13 2A 03 81 49 B2 31 |.":.790...*..I.1|
00000B70: A4 46 4C 44 53 3A 99 22 11 20 C5 4E 54 45 52 20 |.FLDS:.". .NTER |
00000B80: 54 48 45 20 54 49 54 4C 45 20 46 4F 52 20 46 49 |THE TITLE FOR FI|
00000B90: 45 4C 44 20 23 12 22 49 00 C6 13 34 03 43 48 24 |ELD #."I...4.CH$|
00000BA0: 28 49 29 B2 22 22 3A 85 22 20 28 32 30 20 43 48 |(I)."":." (20 CH|
00000BB0: 41 52 41 43 54 45 52 53 20 4D 41 58 29 20 22 3B |ARACTERS MAX) ";|
00000BC0: 43 48 24 28 49 29 00 FA 13 3E 03 8B 43 48 24 28 |CH$(I)...>..CH$(|
00000BD0: 49 29 B2 22 22 B0 C3 28 43 48 24 28 49 29 29 B1 |I).""..(CH$(I)).|
00000BE0: 32 30 B0 C3 28 43 48 24 28 49 29 29 B3 31 A7 8D |20..(CH$(I)).1..|
00000BF0: 31 30 34 32 30 3A 89 38 31 30 00 0A 14 48 03 8B |10420:.810...H..|
00000C00: 49 B2 36 A7 8D 31 30 34 32 30 00 2B 14 52 03 8B |I.6..10420.+.R..|
00000C10: C3 28 43 48 24 28 49 29 29 B1 50 4F 25 A7 50 4F |.(CH$(I)).PO%.PO|
00000C20: 25 B2 C3 28 43 48 24 28 49 29 29 00 32 14 5C 03 |%..(CH$(I)).2.\.|
00000C30: 82 49 00 69 14 66 03 8D 31 30 34 32 30 3A 99 22 |.I.i.f..10420:."|
00000C40: 11 20 D4 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |. .HE FOLLOWING |
00000C50: 41 52 45 20 52 45 43 4F 52 44 20 46 49 45 4C 44 |ARE RECORD FIELD|
00000C60: 20 54 49 54 4C 45 53 3B 22 00 95 14 70 03 81 49 | TITLES;"...p..I|
00000C70: B2 31 A4 46 4C 44 53 3A 99 22 11 20 C6 49 45 4C |.1.FLDS:.". .IEL|
00000C80: 44 20 23 22 49 A3 50 4F 25 AA 32 29 43 48 24 28 |D #"I.PO%.2)CH$(|
00000C90: 49 29 3A 82 49 00 A4 14 7A 03 42 B2 33 34 3A 5A |I):.I...z.B.34:Z|
00000CA0: 24 B2 22 22 00 D7 14 84 03 85 22 11 20 C4 4F 20 |$.""......". .O |
00000CB0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4D 41 4B 45 |YOU WANT TO MAKE|
00000CC0: 20 41 4E 59 20 43 48 41 4E 47 45 53 22 3B 5A 24 | ANY CHANGES";Z$|
00000CD0: 3A 8D 31 30 34 38 30 00 EF 14 8E 03 8B 5A 24 B2 |:.10480......Z$.|
00000CE0: 22 51 22 A7 99 22 01 08 19 08 C2 1F 9F 31 35 2C |"Q"..".......15,|
00000CF0: 38 2C 31 35 3A 44 B2 38 3A 44 24 B2 22 30 22 00 |8,15:D.8:D$."0".|
00000D00: 3F 08 CC 1F 98 31 35 2C 22 49 22 AA 44 24 3A 9F |?....15,"I".D$:.|
00000D10: 31 2C 44 2C 30 2C 22 24 22 AA 44 24 AA 22 3A 21 |1,D,0,"$".D$.":!|
00000D20: 23 24 25 26 22 00 55 08 D6 1F 81 44 B2 31 A4 33 |#$%&".U....D.1.3|
00000D30: 34 3A A1 23 31 2C 58 24 3A 82 44 00 73 08 E0 1F |4:.#1,X$:.D.s...|
00000D40: A1 23 31 2C 58 24 3A 58 B2 C3 28 58 24 29 3A 8B |.#1,X$:X..(X$):.|
00000D50: 58 A7 58 B2 C6 28 58 24 29 00 91 08 EA 1F A1 23 |X.X..(X$)......#|
00000D60: 31 2C 58 24 3A 59 B2 C3 28 58 24 29 3A 8B 59 A7 |1,X$:Y..(X$):.Y.|
00000D70: 59 B2 C6 28 58 24 29 00 B6 08 F4 1F 4C B2 58 AA |Y..(X$).....L.X.|
00000D80: 59 AC 32 35 36 3A 99 22 28 22 3B 4C 3B 22 42 4C |Y.256:."(";L;"BL|
00000D90: 4F 43 4B 53 20 46 52 45 45 20 29 22 00 C3 08 FE |OCKS FREE )"....|
00000DA0: 1F A0 31 3A A0 31 35 3A 80 00 D6 08 28 23 84 31 |..1:.15:....(#.1|
00000DB0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 F6 08 32 |5,E,E$,E1,E2...2|
00000DC0: 23 8B 45 B2 30 A7 45 B2 28 53 54 20 AF 20 31 39 |#.E.0.E.(ST . 19|
00000DD0: 31 29 3A 45 24 B2 22 2A 53 54 2A 22 00 FC 08 3C |1):E$."*ST*"...<|
00000DE0: 23 8E 00 00 00 |#.... |
..(.... ********************************
.O.... ** **.
V.... ** REL.FIL.MANAGER V2.0 **..
.(.. ** **.D.
2.. ** RELATIVE FILE MANAGER **...<
.. ** RELATIVE FILE MANAGER **...F.
. ** **.9.P..
** THIS IS A MODIFIED VERSION **.`.Z..
** OF REL.EXPER.V3.4 THAT WILL**...D..**
ALLOW THE USER TO DEFINE HIS**...N..** O
WN # OF FIELDS AND THIER **.R.X..** LEN
GTH AND TITLE.POWER TO **......** US.
JAM NOVEMBER 1983 **......**********
**********************.P....AA$(500),N%(
500):.53281,0:."."G(14):.650,128... .NM$
."":.10420:.B(49152).76.B(49257).173.200
......646,B(53281).L...."..NEW..":."LOAD
"G(34)"REL.FILE.BOOTER"G(34)",8...."....
.."RUN..............":.198,3:.631,13:.63
2,13:.633,13:..2.H..". NOTE: IN ALL CASE
S THROUGHOUT THIS".\.R.." PROGRAM, T
YPING THE RETURN KEY......" WITH NO
KEYBOARD ENTRY WILL......" ACT AS
AN ESCAPE FROM WHATEVER.K...." YOU
ARE DOING........". PUT A DISK FOR RELAT
IVE FILES IN THE DRIVE.". ....
B(830)..32..5010.8....".";:.10640:.10420
.X....1,8,15,"I":R$.G(13):NM$.""...".B.1
7:Z$."":.". DO YOU WANT TO CREATE A BRAN
D NEW":.10470:.10480...,..Z$.."Q".340...
6..". DO YOU WANT TO QUIT";:Z$."":.Z$:B.
22:.10480...@..Z$."N"..10420:.290...J. 2
: 1:....T..Z$."Y".560.>.^..". WHAT IS TH
E NAME OF YOUR":.10470.^.H.NM$.Z$:Z.C(NM
$):.NM$."".310...R..Z.15..10420:.". .FIL
E NAME TOO LONG.":.290...|.MN$.NM$:.Z.6.
MN$.H(NM$,6).X....2,8,3," ".NM$:.10010:.
DOES FILE EXIST..... 6:.6,8,7," ".MN$."
/KEY,S,R":.6,FLDS,DF,PO%:.10010.....DF%.
253.M....10420:.". ."NM$". HAS ."FLDS".F
IELDS CREATED.~...." AND A RECORD LENGTH
OF ."DF".CHARACTERS."...B..". FIELD #".
12)"TITLE".27)"CHAR. LENGTH".Z.L.." ....
...".12)".....".27)"............."...V..
I.1.FLDS:.6,CH(I),CH$(I).......3)I.11)CH
$(I).32)CH(I)......I: 6.J....FX1%.9.."..
.":.10640:.10420:.".":.750.U....10100...
...6,8,7," ".MN$."/SORT KEY,S,R":.10010:
.I.1.LO:.6,N%(I):......."...":.10640: 6.
.....1360.W.&.. ******* CREATE NEW FILE
*******...0..". WHAT DO YOU WANT TO CALL
YOUR":.10470.%.:.NM$.Z$:Z.C(NM$):.NM$."
".310.U.D..Z.15..10420:.". .FILE NAME TO
O LONG.":.560...N. 2:.2,8,3," ".NM$:.1,E
,E$,C,D:.E.62.640...X..". THAT FILE NAME
ALREADY EXISTS..W.B.Z$."":." DO YOU WAN
T TO WRITE OVER IT ";Z$...L.B.32...V..10
480:.Z$."Q".Z$."N"..10420:.560.$...MN$.N
M$:.Z.6.MN$.H(NM$,6).9....E.62.Z$."":.70
0.L...Z$."":.". DO YOU WANT TO KEEP THE
FIELD TITLES......" AND THEIR CHARACTER
LENGTHS THE SAME.X...." AS THEY WERE IN
THE OLD ."NM$".";:.Z$:B.C(NM$).26:.10480
......Z$."Q"..10420: 2:.290..... 2:.1,"S
: ".NM$...F..Z$."Y".FX1%.9:.730.;.P..1,"
S: ".MN$."/KEY,S, ".\.Z..1,"S: ".MN$."/S
ORT KEY,S, ".L....FX1%.9.400......". HOW
MANY RECORDS LONG":." WILL "NM$;:." BE
";LO.A....LO.1.LO.500..10420:.750.R....F
X1%..9.790......". CREATING FILES ...":.
1280.3....10420:.". HOW MANY FIELDS (9 M
AX) WILL EACH":PO%.1:FLDS.0.G. .." RECOR
D HAVE ";FLDS:.FLDS.1.FLDS.9.."..":.790.
..*..I.1.FLDS:.". ENTER THE TITLE FOR FI
ELD #."I.F.4.CH$(I)."":." (20 CHARACTERS
MAX) ";CH$(I)...>..CH$(I)."".C(CH$(I)).
20.C(CH$(I)).1..10420:.810...H..I.6..104
20.+.R..C(CH$(I)).PO%.PO%.C(CH$(I)).2.\.
.I.I.F..10420:.". THE FOLLOWING ARE RECO
RD FIELD TITLES;"...P..I.1.FLDS:.". FIEL
D #"I.PO%.2)CH$(I):.I...Z.B.34:Z$."".W..
..". DO YOU WANT TO MAKE ANY CHANGES";Z$
:.10480......Z$."Q".."....B..15,8,15:D.8
:D$."0".?.L..15,"I".D$:.1,D,0,"$".D$.":!
#$%&".U.V..D.1.34:.#1,X$:.D.S....#1,X$:X
.C(X$):.X.X.F(X$)......#1,X$:Y.C(X$):.Y.
Y.F(X$).....L.X.Y.256:."(";L;"BLOCKS FRE
E )".C... 1: 15:..V.(#.15,E,E$,E1,E2...2
#.E.0.E.(ST . 191):E$."*ST*"...<#....
> CLICK IMAGE PREVIEW FOR FULL MODAL