REL FILE CREATOR
FILE INFORMATION
FILENAME(S): REL FILE CREATOR
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
73c20b7cbe046cd28c3f7c89743f60639253007648261481ef46b424489ddbfc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 08 | REL FILE CREATOR | PRG | The BAM Archive | 2 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 05 00 8F 20 4E 41 4D 45 20 22 4F 50 |..$.... NAME "OP|
00000010: 45 4E 20 52 45 4C 20 46 49 4C 45 22 2C 20 41 55 |EN REL FILE", AU|
00000020: 47 20 38 33 00 44 08 19 00 99 22 93 52 45 4C 41 |G 83.D....".RELA|
00000030: 54 49 56 45 20 46 49 4C 45 20 43 52 45 41 54 4F |TIVE FILE CREATO|
00000040: 52 22 3A 99 00 58 08 1E 00 85 22 46 49 4C 45 20 |R":..X...."FILE |
00000050: 4E 41 4D 45 22 3B 4E 24 00 85 08 20 00 99 22 4E |NAME";N$... .."N|
00000060: 4F 54 45 3A 20 46 49 4C 45 20 4E 41 4D 45 53 20 |OTE: FILE NAMES |
00000070: 54 52 55 4E 43 41 54 45 44 20 54 4F 20 31 36 20 |TRUNCATED TO 16 |
00000080: 43 48 41 52 22 00 9F 08 21 00 8B C3 28 4E 24 29 |CHAR"...!...(N$)|
00000090: B1 31 36 A7 4E 24 B2 C8 28 4E 24 2C 31 36 29 00 |.16.N$..(N$,16).|
000000A0: BD 08 23 00 85 22 46 49 4C 45 2F 43 48 41 4E 4E |..#.."FILE/CHANN|
000000B0: 45 4C 23 20 3C 32 2D 31 34 3E 22 3B 57 00 CE 08 |EL# <2-14>";W...|
000000C0: 28 00 8B 57 B3 32 B0 57 B1 31 34 A7 33 35 00 F0 |(..W.2.W.14.35..|
000000D0: 08 41 00 85 22 4D 41 58 20 23 20 44 41 54 41 20 |.A.."MAX # DATA |
000000E0: 52 45 43 53 2C 20 43 48 41 52 53 22 3B 52 2C 43 |RECS, CHARS";R,C|
000000F0: 00 12 09 46 00 8B 52 B3 31 A7 99 22 23 20 52 45 |...F..R.1.."# RE|
00000100: 43 53 20 4D 55 53 54 20 42 45 20 3E 30 22 3A 89 |CS MUST BE >0":.|
00000110: 36 35 00 35 09 50 00 8B 43 B3 31 A7 99 22 23 20 |65.5.P..C.1.."# |
00000120: 43 48 41 52 53 20 4D 55 53 54 20 42 45 20 3E 30 |CHARS MUST BE >0|
00000130: 22 3A 89 36 35 00 61 09 5A 00 9F 31 2C 38 2C 31 |":.65.a.Z..1,8,1|
00000140: 35 3A 53 4E B2 39 30 3A 9F 57 2C 38 2C 57 2C 4E |5:SN.90:.W,8,W,N|
00000150: 24 AA 22 2C 4C 2C 22 AA C7 28 43 29 3A 8D 39 30 |$.",L,"..(C):.90|
00000160: 30 00 87 09 5F 00 99 22 49 20 48 41 56 45 20 4F |0..._.."I HAVE O|
00000170: 50 45 4E 45 44 20 41 20 52 45 4C 41 54 49 56 45 |PENED A RELATIVE|
00000180: 20 46 49 4C 45 2E 22 00 9F 09 60 00 99 22 49 54 | FILE."...`.."IT|
00000190: 27 53 20 4E 41 4D 45 20 49 53 20 22 3B 4E 24 00 |'S NAME IS ";N$.|
000001A0: C9 09 61 00 99 22 49 54 20 48 41 53 20 22 3B 43 |..a.."IT HAS ";C|
000001B0: 3B 22 20 43 48 41 52 41 43 54 45 52 53 20 50 45 |;" CHARACTERS PE|
000001C0: 52 20 52 45 43 4F 52 44 22 00 FB 09 64 00 52 31 |R RECORD"...d.R1|
000001D0: B2 52 AA 32 3A 52 32 B2 30 3A 8B 52 31 B1 32 35 |.R.2:R2.0:.R1.25|
000001E0: 35 A7 52 32 B2 B5 28 52 31 AD 32 35 36 29 3A 52 |5.R2..(R1.256):R|
000001F0: 31 B2 52 31 AB 32 35 36 AC 52 32 00 12 0A 78 00 |1.R1.256.R2...x.|
00000200: 53 4E B2 31 32 30 3A 98 57 2C 22 30 22 3A 8D 39 |SN.120:.W,"0":.9|
00000210: 30 30 00 39 0A 7D 00 53 4E B2 31 32 35 3A 98 31 |00.9.}.SN.125:.1|
00000220: 2C 22 50 22 C7 28 57 29 C7 28 31 29 C7 28 30 29 |,"P".(W).(1).(0)|
00000230: C7 28 31 29 3A 8D 39 30 30 00 62 0A 82 00 53 4E |.(1):.900.b...SN|
00000240: B2 31 33 30 3A 98 31 2C 22 50 22 C7 28 57 29 C7 |.130:.1,"P".(W).|
00000250: 28 52 31 29 C7 28 52 32 29 C7 28 31 29 3A 8D 39 |(R1).(R2).(1):.9|
00000260: 30 30 00 7B 0A 86 00 53 4E B2 31 33 34 3A 98 57 |00.{...SN.134:.W|
00000270: 2C 22 45 4E 44 22 3A 8D 39 30 30 00 A5 0A 87 00 |,"END":.900.....|
00000280: 99 22 49 27 56 45 20 50 55 54 20 41 20 27 30 27 |."I'VE PUT A '0'|
00000290: 20 49 4E 20 54 48 45 20 46 49 52 53 54 20 52 45 | IN THE FIRST RE|
000002A0: 43 4F 52 44 22 00 D0 0A 88 00 99 22 46 4F 52 20 |CORD"......"FOR |
000002B0: 59 4F 55 20 54 4F 20 55 50 44 41 54 45 20 41 53 |YOU TO UPDATE AS|
000002C0: 20 41 20 43 4F 55 4E 54 45 52 20 57 48 45 4E 22 | A COUNTER WHEN"|
000002D0: 00 F7 0A 89 00 99 22 59 4F 55 20 57 52 49 54 45 |......"YOU WRITE|
000002E0: 20 52 45 43 4F 52 44 53 20 54 4F 20 54 48 49 53 | RECORDS TO THIS|
000002F0: 20 46 49 4C 45 2E 22 00 20 0B 8A 00 99 22 54 48 | FILE.". ...."TH|
00000300: 45 4E 20 49 27 56 45 20 57 52 49 54 54 45 4E 20 |EN I'VE WRITTEN |
00000310: 27 45 4E 44 27 20 41 46 54 45 52 20 54 48 45 22 |'END' AFTER THE"|
00000320: 00 39 0B 8B 00 99 22 4C 41 53 54 20 44 41 54 41 |.9...."LAST DATA|
00000330: 20 52 45 43 4F 52 44 2E 22 00 51 0B 96 00 53 4E | RECORD.".Q...SN|
00000340: B2 31 35 30 3A A0 57 3A 8D 39 30 30 3A A0 31 3A |.150:.W:.900:.1:|
00000350: 90 00 6E 0B 84 03 84 31 2C 45 2C 45 24 2C 54 2C |..n....1,E,E$,T,|
00000360: 53 3A 8B 45 B3 32 30 B0 45 B2 35 30 A7 8E 00 8B |S:.E.20.E.50....|
00000370: 0B 89 03 99 22 44 49 53 4B 20 45 52 52 4F 52 20 |...."DISK ERROR |
00000380: 46 52 4F 4D 20 53 4E 22 3B 53 4E 00 A1 0B 8E 03 |FROM SN";SN.....|
00000390: 99 45 3B 45 24 3B 54 3B 53 3A A0 57 3A A0 31 3A |.E;E$;T;S:.W:.1:|
000003A0: 90 00 A7 0B 93 03 8E 00 D2 0B E8 03 85 22 46 49 |............."FI|
000003B0: 4C 45 20 4E 41 4D 45 22 3B 4E 24 3A 85 22 4E 55 |LE NAME";N$:."NU|
000003C0: 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 53 22 |MBER OF RECORDS"|
000003D0: 3B 52 00 F9 0B F2 03 57 B2 32 3A 9F 31 2C 38 2C |;R.....W.2:.1,8,|
000003E0: 31 35 3A 53 4E B2 31 30 31 30 3A 9F 57 2C 38 2C |15:SN.1010:.W,8,|
000003F0: 57 2C 4E 24 3A 8D 39 30 30 00 0B 0C FC 03 81 49 |W,N$:.900......I|
00000400: B2 31 A4 52 AA 32 3A 52 31 B2 49 00 36 0C 06 04 |.1.R.2:R1.I.6...|
00000410: 52 32 B2 30 3A 8B 52 31 B1 32 35 35 A7 52 32 B2 |R2.0:.R1.255.R2.|
00000420: B5 28 52 31 AD 32 35 36 29 3A 52 31 B2 52 31 AB |.(R1.256):R1.R1.|
00000430: 32 35 36 AC 52 32 00 60 0C 10 04 53 4E B2 31 30 |256.R2.`...SN.10|
00000440: 34 30 3A 98 31 2C 22 50 22 C7 28 57 29 C7 28 52 |40:.1,"P".(W).(R|
00000450: 31 29 C7 28 52 32 29 C7 28 31 29 3A 8D 39 30 30 |1).(R2).(1):.900|
00000460: 00 80 0C 1A 04 53 4E B2 31 30 35 30 3A 84 57 2C |.....SN.1050:.W,|
00000470: 5A 24 3A 8D 39 30 30 3A 99 54 49 3B 5A 24 3A 82 |Z$:.900:.TI;Z$:.|
00000480: 00 99 0C 24 04 53 4E B2 31 30 36 30 3A A0 57 3A |...$.SN.1060:.W:|
00000490: 8D 39 30 30 3A A0 31 3A 80 00 00 00 01 |.900:.1:..... |
..$.... NAME "OPEN REL FILE", AUG 83.D..
..".RELATIVE FILE CREATOR":..X...."FILE
NAME";N$... .."NOTE: FILE NAMES TRUNCATE
D TO 16 CHAR"...!..C(N$).16.N$.H(N$,16).
..#.."FILE/CHANNEL# <2-14>";W.N.(..W.2.W
.14.35...A.."MAX # DATA RECS, CHARS";R,C
...F..R.1.."# RECS MUST BE >0":.65.5.P..
C.1.."# CHARS MUST BE >0":.65.A.Z..1,8,1
5:SN.90:.W,8,W,N$.",L,".G(C):.900..._.."
I HAVE OPENED A RELATIVE FILE."...`.."IT
'S NAME IS ";N$.I.A.."IT HAS ";C;" CHARA
CTERS PER RECORD"...D.R1.R.2:R2.0:.R1.25
5.R2..(R1.256):R1.R1.256.R2...X.SN.120:.
W,"0":.900.9.}.SN.125:.1,"P"G(W)G(1)G(0)
G(1):.900.B...SN.130:.1,"P"G(W)G(R1)G(R2
)G(1):.900.{...SN.134:.W,"END":.900.....
."I'VE PUT A '0' IN THE FIRST RECORD".P.
..."FOR YOU TO UPDATE AS A COUNTER WHEN"
......"YOU WRITE RECORDS TO THIS FILE.".
...."THEN I'VE WRITTEN 'END' AFTER THE"
.9...."LAST DATA RECORD.".Q...SN.150: W:
.900: 1:..N....1,E,E$,T,S:.E.20.E.50....
...."DISK ERROR FROM SN";SN......E;E$;T;
S: W: 1:........R...."FILE NAME";N$:."NU
MBER OF RECORDS";R.....W.2:.1,8,15:SN.10
10:.W,8,W,N$:.900......I.1.R.2:R1.I.6...
R2.0:.R1.255.R2..(R1.256):R1.R1.256.R2.`
...SN.1040:.1,"P"G(W)G(R1)G(R2)G(1):.900
.....SN.1050:.W,Z$:.900:.TI;Z$:....$.SN.
1060: W:.900: 1:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL