OPEN REL FILE
FILE INFORMATION
FILENAME(S): OPEN REL FILE
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
1e6668cd15c0428a6210c94605196f88795a2fa5b77cf6f90796e926a1810fed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | OPEN REL FILE | PRG | Sailor, Ganheden | 12 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 05 00 8F 20 4F 50 45 4E 20 52 45 4C |..".... OPEN REL|
00000010: 41 54 49 56 45 20 46 49 4C 45 20 50 52 4F 47 52 |ATIVE FILE PROGR|
00000020: 41 4D 00 4A 08 06 00 8F 20 52 55 4E 20 4D 41 47 |AM.J.... RUN MAG|
00000030: 41 5A 49 4E 45 20 41 50 52 49 4C 20 31 39 38 34 |AZINE APRIL 1984|
00000040: 2C 20 50 41 47 45 20 31 30 30 00 50 08 07 00 3A |, PAGE 100.P...:|
00000050: 00 9C 08 0A 00 8F 20 4F 50 45 4E 53 20 41 20 52 |...... OPENS A R|
00000060: 45 4C 41 54 49 56 45 20 46 49 4C 45 2E 20 41 53 |ELATIVE FILE. AS|
00000070: 4B 53 20 46 4F 52 20 20 20 20 20 20 20 20 20 46 |KS FOR F|
00000080: 49 4C 45 20 4E 41 4D 45 2C 20 46 49 4C 45 2F 43 |ILE NAME, FILE/C|
00000090: 48 41 4E 4E 45 4C 2C 20 23 20 4F 46 00 EB 08 0B |HANNEL, # OF....|
000000A0: 00 8F 20 44 41 54 41 20 52 45 43 4F 52 44 53 20 |.. DATA RECORDS |
000000B0: 41 4E 44 20 43 48 41 52 41 43 54 45 52 53 20 50 |AND CHARACTERS P|
000000C0: 45 52 20 20 20 20 20 20 20 20 20 52 45 43 4F 52 |ER RECOR|
000000D0: 44 2E 20 46 49 4C 45 20 4E 41 4D 45 53 20 41 52 |D. FILE NAMES AR|
000000E0: 45 20 54 52 55 4E 43 41 54 45 44 00 39 09 0D 00 |E TRUNCATED.9...|
000000F0: 8F 20 54 4F 20 31 36 20 43 48 41 52 41 43 54 45 |. TO 16 CHARACTE|
00000100: 52 53 2E 20 54 48 45 20 31 53 54 20 52 45 43 4F |RS. THE 1ST RECO|
00000110: 52 44 20 20 20 20 20 20 20 20 49 53 20 52 45 53 |RD IS RES|
00000120: 45 52 56 45 44 20 46 4F 52 20 41 20 43 4F 55 4E |ERVED FOR A COUN|
00000130: 54 45 52 20 57 48 49 43 48 00 85 09 0E 00 8F 20 |TER WHICH...... |
00000140: 57 48 49 43 48 20 57 49 4C 4C 20 53 45 52 56 45 |WHICH WILL SERVE|
00000150: 20 41 53 20 41 4E 20 49 4E 44 49 43 41 54 4F 52 | AS AN INDICATOR|
00000160: 20 20 20 20 20 20 20 20 4F 46 20 48 4F 57 20 4D | OF HOW M|
00000170: 41 4E 59 20 44 41 54 41 20 52 45 43 4F 52 44 53 |ANY DATA RECORDS|
00000180: 20 48 41 56 45 00 CF 09 0F 00 8F 20 42 45 45 4E | HAVE...... BEEN|
00000190: 20 57 52 49 54 54 45 4E 20 57 48 45 4E 20 54 48 | WRITTEN WHEN TH|
000001A0: 45 20 46 49 4C 45 20 49 53 20 20 20 20 20 20 20 |E FILE IS |
000001B0: 20 20 20 20 55 53 45 44 20 4C 41 54 45 52 2E 20 | USED LATER. |
000001C0: 54 48 45 20 4C 41 53 54 20 52 45 43 4F 52 44 00 |THE LAST RECORD.|
000001D0: EE 09 10 00 8F 20 43 4F 4E 54 41 49 4E 53 20 54 |..... CONTAINS T|
000001E0: 48 45 20 57 4F 52 44 20 22 45 4E 44 22 2E 00 0E |HE WORD "END"...|
000001F0: 0A 19 00 99 22 93 52 45 4C 41 54 49 56 45 20 46 |....".RELATIVE F|
00000200: 49 4C 45 20 43 52 45 41 54 4F 52 22 3A 99 00 22 |ILE CREATOR":.."|
00000210: 0A 1E 00 85 22 46 49 4C 45 20 4E 41 4D 45 22 3B |...."FILE NAME";|
00000220: 4E 24 00 4F 0A 20 00 99 22 4E 4F 54 45 3A 20 46 |N$.O. .."NOTE: F|
00000230: 49 4C 45 20 4E 41 4D 45 53 20 54 52 55 4E 43 41 |ILE NAMES TRUNCA|
00000240: 54 45 44 20 54 4F 20 31 36 20 43 48 41 52 22 00 |TED TO 16 CHAR".|
00000250: 69 0A 21 00 8B C3 28 4E 24 29 B1 31 36 A7 4E 24 |i.!...(N$).16.N$|
00000260: B2 C8 28 4E 24 2C 31 36 29 00 87 0A 23 00 85 22 |..(N$,16)...#.."|
00000270: 46 49 4C 45 2F 43 48 41 4E 4E 45 4C 23 20 28 32 |FILE/CHANNEL# (2|
00000280: 2D 31 34 29 22 3B 57 00 9D 0A 28 00 8B 20 57 B3 |-14)";W...(.. W.|
00000290: 32 20 B0 20 57 B1 31 34 20 A7 20 33 35 00 BF 0A |2 . W.14 . 35...|
000002A0: 41 00 85 22 4D 41 58 20 23 20 44 41 54 41 20 52 |A.."MAX # DATA R|
000002B0: 45 43 53 2C 20 43 48 41 52 53 22 3B 52 2C 43 00 |ECS, CHARS";R,C.|
000002C0: E2 0A 46 00 8B 52 B3 31 A7 99 22 23 20 52 45 43 |..F..R.1.."# REC|
000002D0: 53 20 4D 55 53 54 20 42 45 20 3E 30 22 3A 89 20 |S MUST BE >0":. |
000002E0: 36 35 00 06 0B 50 00 8B 43 B3 31 A7 99 22 23 20 |65...P..C.1.."# |
000002F0: 43 48 41 52 53 20 4D 55 53 54 20 42 45 20 3E 30 |CHARS MUST BE >0|
00000300: 22 3A 89 20 36 35 00 33 0B 5A 00 9F 31 2C 38 2C |":. 65.3.Z..1,8,|
00000310: 31 35 3A 53 4E B2 39 30 3A 9F 57 2C 38 2C 57 2C |15:SN.90:.W,8,W,|
00000320: 4E 24 AA 22 2C 4C 2C 22 AA C7 28 43 29 3A 8D 20 |N$.",L,"..(C):. |
00000330: 39 30 30 00 59 0B 5F 00 99 22 49 20 48 41 56 45 |900.Y._.."I HAVE|
00000340: 20 4F 50 45 4E 45 44 20 41 20 52 45 4C 41 54 49 | OPENED A RELATI|
00000350: 56 45 20 46 49 4C 45 2E 22 00 70 0B 60 00 99 22 |VE FILE.".p.`.."|
00000360: 49 54 53 20 4E 41 4D 45 20 49 53 20 22 3B 4E 24 |ITS NAME IS ";N$|
00000370: 00 9A 0B 61 00 99 22 49 54 20 48 41 53 20 22 3B |...a.."IT HAS ";|
00000380: 43 3B 22 20 43 48 41 52 41 43 54 45 52 53 20 50 |C;" CHARACTERS P|
00000390: 45 52 20 52 45 43 4F 52 44 22 00 CC 0B 64 00 52 |ER RECORD"...d.R|
000003A0: 31 B2 52 AA 32 3A 52 32 B2 30 3A 8B 52 31 B1 32 |1.R.2:R2.0:.R1.2|
000003B0: 35 35 A7 52 32 B2 B5 28 52 31 AD 32 35 36 29 3A |55.R2..(R1.256):|
000003C0: 52 31 B2 52 31 AB 32 35 36 AC 52 32 00 E3 0B 78 |R1.R1.256.R2...x|
000003D0: 00 53 4E B2 31 32 30 3A 98 57 2C 22 30 22 3A 8D |.SN.120:.W,"0":.|
000003E0: 39 30 30 00 0A 0C 7D 00 53 4E B2 31 32 35 3A 98 |900...}.SN.125:.|
000003F0: 31 2C 22 50 22 C7 28 57 29 C7 28 31 29 C7 28 30 |1,"P".(W).(1).(0|
00000400: 29 C7 28 31 29 3A 8D 39 30 30 00 33 0C 82 00 53 |).(1):.900.3...S|
00000410: 4E B2 31 33 30 3A 98 31 2C 22 50 22 C7 28 57 29 |N.130:.1,"P".(W)|
00000420: C7 28 52 31 29 C7 28 52 32 29 C7 28 31 29 3A 8D |.(R1).(R2).(1):.|
00000430: 39 30 30 00 4C 0C 86 00 53 4E B2 31 33 34 3A 98 |900.L...SN.134:.|
00000440: 57 2C 22 45 4E 44 22 3A 8D 39 30 30 00 78 0C 87 |W,"END":.900.x..|
00000450: 00 99 22 49 20 48 41 56 45 20 50 55 54 20 41 20 |.."I HAVE PUT A |
00000460: 27 30 27 20 49 4E 20 54 48 45 20 46 49 52 53 54 |'0' IN THE FIRST|
00000470: 20 52 45 43 4F 52 44 22 00 A3 0C 88 00 99 22 46 | RECORD"......"F|
00000480: 4F 52 20 59 4F 55 20 54 4F 20 55 50 44 41 54 45 |OR YOU TO UPDATE|
00000490: 20 41 53 20 41 20 43 4F 55 4E 54 45 52 20 57 48 | AS A COUNTER WH|
000004A0: 45 4E 22 00 CA 0C 89 00 99 22 59 4F 55 20 57 52 |EN"......"YOU WR|
000004B0: 49 54 45 20 52 45 43 4F 52 44 53 20 54 4F 20 54 |ITE RECORDS TO T|
000004C0: 48 49 53 20 46 49 4C 45 2E 22 00 F3 0C 8A 00 99 |HIS FILE."......|
000004D0: 22 54 48 45 4E 20 49 27 56 45 20 57 52 49 54 54 |"THEN I'VE WRITT|
000004E0: 45 4E 20 27 45 4E 44 27 20 41 46 54 45 52 20 54 |EN 'END' AFTER T|
000004F0: 48 45 22 00 0C 0D 8B 00 99 22 4C 41 53 54 20 44 |HE"......"LAST D|
00000500: 41 54 41 20 52 45 43 4F 52 44 2E 22 00 24 0D 96 |ATA RECORD.".$..|
00000510: 00 53 4E B2 31 35 30 3A A0 57 3A 8D 39 30 30 3A |.SN.150:.W:.900:|
00000520: A0 31 3A 90 00 41 0D 84 03 84 31 2C 45 2C 45 24 |.1:..A....1,E,E$|
00000530: 2C 54 2C 53 3A 8B 45 B3 32 30 B0 45 B2 35 30 A7 |,T,S:.E.20.E.50.|
00000540: 8E 00 5E 0D 89 03 99 22 44 49 53 4B 20 45 52 52 |..^...."DISK ERR|
00000550: 4F 52 20 46 52 4F 4D 20 53 4E 22 3B 53 4E 00 75 |OR FROM SN";SN.u|
00000560: 0D 8E 03 99 20 45 3B 45 24 3B 54 3B 53 3A A0 57 |.... E;E$;T;S:.W|
00000570: 3A A0 31 3A 90 00 7B 0D 93 03 8E 00 A6 0D E8 03 |:.1:..{.........|
00000580: 85 22 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 24 3A |."FILE NAME";N$:|
00000590: 85 22 4E 55 4D 42 45 52 20 4F 46 20 52 45 43 4F |."NUMBER OF RECO|
000005A0: 52 44 53 22 3B 52 00 CD 0D F2 03 57 B2 32 3A 9F |RDS";R.....W.2:.|
000005B0: 31 2C 38 2C 31 35 3A 53 4E B2 31 30 31 30 3A 9F |1,8,15:SN.1010:.|
000005C0: 57 2C 38 2C 57 2C 4E 24 3A 8D 39 30 30 00 DF 0D |W,8,W,N$:.900...|
000005D0: FC 03 81 49 B2 31 A4 52 AA 32 3A 52 31 B2 49 00 |...I.1.R.2:R1.I.|
000005E0: 0A 0E 06 04 52 32 B2 30 3A 8B 52 31 B1 32 35 35 |....R2.0:.R1.255|
000005F0: A7 52 32 B2 B5 28 52 31 AD 32 35 36 29 3A 52 31 |.R2..(R1.256):R1|
00000600: B2 52 31 AB 32 35 36 AC 52 32 00 34 0E 10 04 53 |.R1.256.R2.4...S|
00000610: 4E B2 31 30 34 30 3A 98 31 2C 22 50 22 C7 28 57 |N.1040:.1,"P".(W|
00000620: 29 C7 28 52 31 29 C7 28 52 32 29 C7 28 31 29 3A |).(R1).(R2).(1):|
00000630: 8D 39 30 30 00 53 0E 1A 04 53 4E B2 31 30 35 30 |.900.S...SN.1050|
00000640: 3A 84 57 2C 5A 24 3A 8D 39 30 30 3A 99 49 3B 5A |:.W,Z$:.900:.I;Z|
00000650: 24 3A 82 00 6C 0E 24 04 53 4E B2 31 30 36 30 3A |$:..l.$.SN.1060:|
00000660: A0 57 3A 8D 39 30 30 3A A0 31 3A 80 00 00 00 |.W:.900:.1:.... |
..".... OPEN RELATIVE FILE PROGRAM.J....
RUN MAGAZINE APRIL 1984, PAGE 100.P...:
...... OPENS A RELATIVE FILE. ASKS FOR
FILE NAME, FILE/CHANNEL, # OF....
.. DATA RECORDS AND CHARACTERS PER
RECORD. FILE NAMES ARE TRUNCATED.9...
. TO 16 CHARACTERS. THE 1ST RECORD
IS RESERVED FOR A COUNTER WHICH......
WHICH WILL SERVE AS AN INDICATOR
OF HOW MANY DATA RECORDS HAVE.O.... BEEN
WRITTEN WHEN THE FILE IS USED
LATER. THE LAST RECORD...... CONTAINS T
HE WORD "END".......".RELATIVE FILE CREA
TOR":.."...."FILE NAME";N$.O. .."NOTE: F
ILE NAMES TRUNCATED TO 16 CHAR".I.!..C(N
$).16.N$.H(N$,16)...#.."FILE/CHANNEL# (2
-14)";W...(.. W.2 . W.14 . 35...A.."MAX
# DATA RECS, CHARS";R,C...F..R.1.."# REC
S MUST BE >0":. 65...P..C.1.."# CHARS MU
ST BE >0":. 65.3.Z..1,8,15:SN.90:.W,8,W,
N$.",L,".G(C):. 900.Y._.."I HAVE OPENED
A RELATIVE FILE.".P.`.."ITS NAME IS ";N$
...A.."IT HAS ";C;" CHARACTERS PER RECOR
D".L.D.R1.R.2:R2.0:.R1.255.R2..(R1.256):
R1.R1.256.R2...X.SN.120:.W,"0":.900...}.
SN.125:.1,"P"G(W)G(1)G(0)G(1):.900.3...S
N.130:.1,"P"G(W)G(R1)G(R2)G(1):.900.L...
SN.134:.W,"END":.900.X...."I HAVE PUT A
'0' IN THE FIRST RECORD"......"FOR YOU T
O UPDATE AS A COUNTER WHEN".J...."YOU WR
ITE RECORDS TO THIS FILE."......"THEN I'
VE WRITTEN 'END' AFTER THE"......"LAST D
ATA RECORD.".$...SN.150: W:.900: 1:..A..
..1,E,E$,T,S:.E.20.E.50...^...."DISK ERR
OR FROM SN";SN.U.... E;E$;T;S: W: 1:..{.
........."FILE NAME";N$:."NUMBER OF RECO
RDS";R.M...W.2:.1,8,15:SN.1010:.W,8,W,N$
:.900......I.1.R.2:R1.I.....R2.0:.R1.255
.R2..(R1.256):R1.R1.256.R2.4...SN.1040:.
1,"P"G(W)G(R1)G(R2)G(1):.900.S...SN.1050
:.W,Z$:.900:.I;Z$:..L.$.SN.1060: W:.900:
1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL