Multiple names: MLX/64, RELATIVE

00000000: 01 08 1C 08 00 00 8F 20  43 52 45 41 54 45 20 52  |....... CREATE R|
00000010: 45 4C 41 54 49 56 45 20  46 49 4C 45 00 3D 08 01  |ELATIVE FILE.=..|
00000020: 00 9E 36 35 35 31 37 3A  8B C2 28 37 38 31 29 B2  |..65517:..(781).|
00000030: 34 30 A7 4D 54 24 B2 22  05 22 3A 89 33 00 49 08  |40.MT$.".":.3.I.|
00000040: 02 00 4D 54 24 B2 22 1F  22 00 87 08 03 00 99 4D  |..MT$."."......M|
00000050: 54 24 22 93 11 11 11 11  20 54 48 49 53 20 44 49  |T$"..... THIS DI|
00000060: 53 4B 20 49 53 20 12 57  52 49 54 45 11 22 3A 99  |SK IS .WRITE.":.|
00000070: 22 20 12 50 52 4F 54 45  43 54 45 44 92 2E 20 50  |" .PROTECTED.. P|
00000080: 4C 45 41 53 45 11 22 00  B9 08 04 00 99 22 20 49  |LEASE."......" I|
00000090: 4E 53 45 52 54 20 41 20  44 49 46 46 45 52 45 4E  |NSERT A DIFFEREN|
000000A0: 54 11 22 3A 99 22 20 44  49 53 4B 20 54 4F 20 53  |T.":." DISK TO S|
000000B0: 41 56 45 20 54 48 45 11  22 00 D4 08 05 00 99 22  |AVE THE."......"|
000000C0: 20 46 49 4C 45 53 20 43  52 45 41 54 45 44 20 57  | FILES CREATED W|
000000D0: 49 54 48 22 00 17 09 06  00 99 22 11 20 54 48 49  |ITH"......". THI|
000000E0: 53 20 50 52 4F 47 52 41  4D 2E 22 3A 99 22 11 11  |S PROGRAM.":."..|
000000F0: 11 20 12 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |. .PRESS ANY KEY|
00000100: 20 54 4F 22 3A 99 22 11  20 20 20 20 20 12 43 4F  | TO":.".     .CO|
00000110: 4E 54 49 4E 55 45 22 00  29 09 09 00 92 31 39 38  |NTINUE".)....198|
00000120: 2C 31 3A 97 31 39 38 2C  30 00 53 09 0A 00 99 4D  |,1:.198,0.S....M|
00000130: 54 24 22 93 11 4C 45 4E  47 54 48 20 4F 46 20 52  |T$"..LENGTH OF R|
00000140: 45 43 4F 52 44 22 3A 85  20 52 4C 3A 52 4C B2 52  |ECORD":. RL:RL.R|
00000150: 4C AA 31 00 82 09 14 00  99 22 11 11 54 4F 54 41  |L.1......"..TOTA|
00000160: 4C 20 4E 55 4D 42 45 52  20 4F 46 22 3A 85 22 52  |L NUMBER OF":."R|
00000170: 45 43 4F 52 44 53 22 3B  52 4E 3A 52 4E B2 52 4E  |ECORDS";RN:RN.RN|
00000180: AA 31 00 93 09 1E 00 48  42 B2 B5 28 52 4E AD 32  |.1.....HB..(RN.2|
00000190: 35 36 29 00 A4 09 28 00  4C 42 B2 52 4E AB 48 42  |56)...(.LB.RN.HB|
000001A0: AC 32 35 36 00 B1 09 32  00 9F 31 35 2C 38 2C 31  |.256...2..15,8,1|
000001B0: 35 00 D0 09 3C 00 9F 31  2C 38 2C 32 2C 22 52 45  |5...<..1,8,2,"RE|
000001C0: 4C 2E 46 49 4C 45 2C 4C  2C 22 AA C7 28 52 4C 29  |L.FILE,L,"..(RL)|
000001D0: 00 F5 09 46 00 98 31 35  2C 22 50 22 AA C7 28 32  |...F..15,"P"..(2|
000001E0: AA 39 36 29 AA C7 28 4C  42 29 AA C7 28 48 42 29  |.96)..(LB)..(HB)|
000001F0: AA C7 28 31 29 00 02 0A  50 00 98 31 2C 22 45 4E  |..(1)...P..1,"EN|
00000200: 44 22 00 09 0A 5A 00 A0  31 00 2F 0A 5F 00 84 31  |D"...Z..1./._..1|
00000210: 35 2C 45 2C 45 24 3A 99  22 12 44 49 53 4B 20 53  |5,E,E$:.".DISK S|
00000220: 54 41 54 55 53 3A 22 3A  99 45 24 3A A0 31 35 00  |TATUS:":.E$:.15.|
00000230: 4B 0A 63 00 8F 20 50 52  45 50 41 52 45 20 54 4F  |K.c.. PREPARE TO|
00000240: 20 57 52 49 54 45 20 46  49 4C 45 00 57 0A 64 00  | WRITE FILE.W.d.|
00000250: 52 43 B2 52 43 AA 31 00  62 0A 6E 00 52 43 24 B2  |RC.RC.1.b.n.RC$.|
00000260: 22 22 00 8B 0A 78 00 53  50 24 B2 22 20 20 20 20  |""...x.SP$."    |
00000270: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000280: 20 20 20 20 20 20 20 20  20 20 22 00 A2 0A 82 00  |          ".....|
00000290: 99 22 46 49 52 53 54 20  4E 41 4D 45 22 3A 85 4E  |."FIRST NAME":.N|
000002A0: 46 24 00 BA 0A 8C 00 99  22 4D 49 44 44 4C 45 20  |F$......"MIDDLE |
000002B0: 4E 41 4D 45 22 3A 85 4D  4E 24 00 D0 0A 96 00 99  |NAME":.MN$......|
000002C0: 22 4C 41 53 54 20 4E 41  4D 45 22 3A 85 4C 4E 24  |"LAST NAME":.LN$|
000002D0: 00 EB 0A A0 00 99 22 53  54 52 45 45 54 20 41 44  |......"STREET AD|
000002E0: 44 52 45 53 53 22 3A 85  53 41 24 00 FC 0A AA 00  |DRESS":.SA$.....|
000002F0: 99 22 43 49 54 59 22 3A  85 43 49 24 00 0E 0B B4  |."CITY":.CI$....|
00000300: 00 99 22 53 54 41 54 45  22 3A 85 53 54 24 00 23  |.."STATE":.ST$.#|
00000310: 0B BE 00 99 22 5A 49 50  20 43 4F 44 45 22 3A 85  |...."ZIP CODE":.|
00000320: 5A 49 24 00 3C 0B C8 00  99 22 50 48 4F 4E 45 20  |ZI$.<...."PHONE |
00000330: 4E 55 4D 42 45 52 22 3A  85 50 48 24 00 56 0B D2  |NUMBER":.PH$.V..|
00000340: 00 52 43 24 B2 52 43 24  AA C8 28 4E 46 24 AA 53  |.RC$.RC$..(NF$.S|
00000350: 50 24 2C 31 35 29 00 70  0B DC 00 52 43 24 B2 52  |P$,15).p...RC$.R|
00000360: 43 24 AA C8 28 4D 4E 24  AA 53 50 24 2C 31 35 29  |C$..(MN$.SP$,15)|
00000370: 00 8A 0B E6 00 52 43 24  B2 52 43 24 AA C8 28 4C  |.....RC$.RC$..(L|
00000380: 4E 24 AA 53 50 24 2C 31  35 29 00 A4 0B F0 00 52  |N$.SP$,15).....R|
00000390: 43 24 B2 52 43 24 AA C8  28 53 41 24 AA 53 50 24  |C$.RC$..(SA$.SP$|
000003A0: 2C 33 30 29 00 BE 0B FA  00 52 43 24 B2 52 43 24  |,30).....RC$.RC$|
000003B0: AA C8 28 43 49 24 AA 53  50 24 2C 32 35 29 00 D7  |..(CI$.SP$,25)..|
000003C0: 0B 04 01 52 43 24 B2 52  43 24 AA C8 28 53 54 24  |...RC$.RC$..(ST$|
000003D0: AA 53 50 24 2C 33 29 00  F0 0B 0E 01 52 43 24 B2  |.SP$,3).....RC$.|
000003E0: 52 43 24 AA C8 28 5A 49  24 AA 53 50 24 2C 35 29  |RC$..(ZI$.SP$,5)|
000003F0: 00 0A 0C 18 01 52 43 24  B2 52 43 24 AA C8 28 50  |.....RC$.RC$..(P|
00000400: 48 24 AA 53 50 24 2C 31  32 29 00 1E 0C 2B 01 8F  |H$.SP$,12)...+..|
00000410: 20 57 52 49 54 45 20 54  4F 20 46 49 4C 45 00 2B  | WRITE TO FILE.+|
00000420: 0C 2C 01 9F 31 35 2C 38  2C 31 35 00 41 0C 36 01  |.,..15,8,15.A.6.|
00000430: 9F 31 2C 38 2C 32 2C 22  52 45 4C 2E 46 49 4C 45  |.1,8,2,"REL.FILE|
00000440: 22 00 52 0C 40 01 48 42  B2 B5 28 52 43 AD 32 35  |".R.@.HB..(RC.25|
00000450: 36 29 00 63 0C 4A 01 4C  42 B2 52 43 AB 48 42 AC  |6).c.J.LB.RC.HB.|
00000460: 32 35 36 00 88 0C 54 01  98 31 35 2C 22 50 22 AA  |256...T..15,"P".|
00000470: C7 28 32 AA 39 36 29 AA  C7 28 4C 42 29 AA C7 28  |.(2.96)..(LB)..(|
00000480: 48 42 29 AA C7 28 31 29  00 93 0C 5E 01 98 31 2C  |HB)..(1)...^..1,|
00000490: 52 43 24 00 9A 0C 68 01  A0 31 00 C0 0C 72 01 84  |RC$...h..1...r..|
000004A0: 31 35 2C 45 2C 45 24 3A  99 22 12 44 49 53 4B 20  |15,E,E$:.".DISK |
000004B0: 53 54 41 54 55 53 3A 22  3A 99 45 24 3A A0 31 35  |STATUS:":.E$:.15|
000004C0: 00 D8 0C 7C 01 99 3A 99  22 41 4E 4F 54 48 45 52  |...|..:."ANOTHER|
000004D0: 20 45 4E 54 52 59 3F 22  00 EB 0C 86 01 A1 47 24  | ENTRY?"......G$|
000004E0: 3A 8B 47 24 B2 22 22 A7  33 39 30 00 FB 0C 90 01  |:.G$."".390.....|
000004F0: 8B 47 24 B2 22 4E 22 A7  35 30 30 00 0B 0D 9A 01  |.G$."N".500.....|
00000500: 8B 47 24 B2 22 59 22 A7  31 30 30 00 14 0D A4 01  |.G$."Y".100.....|
00000510: 89 33 39 30 00 36 0D F3  01 8F 20 52 45 41 44 20  |.390.6.... READ |
00000520: 52 45 4C 41 54 49 56 45  20 46 49 4C 45 20 49 4E  |RELATIVE FILE IN|
00000530: 20 4F 52 44 45 52 00 57  0D F4 01 81 41 B2 31 A4  | ORDER.W....A.1.|
00000540: 52 43 3A 52 43 24 B2 22  22 3A 99 22 52 45 43 4F  |RC:RC$."":."RECO|
00000550: 52 44 20 23 22 3B 41 00  64 0D FE 01 9F 31 35 2C  |RD #";A.d....15,|
00000560: 38 2C 31 35 00 7A 0D 08  02 9F 31 2C 38 2C 32 2C  |8,15.z....1,8,2,|
00000570: 22 52 45 4C 2E 46 49 4C  45 22 00 8A 0D 12 02 48  |"REL.FILE".....H|
00000580: 42 B2 B5 28 41 AD 32 35  36 29 00 9A 0D 1C 02 4C  |B..(A.256).....L|
00000590: 42 B2 41 AB 48 42 AC 32  35 36 00 BF 0D 26 02 98  |B.A.HB.256...&..|
000005A0: 31 35 2C 22 50 22 AA C7  28 32 AA 39 36 29 AA C7  |15,"P"..(2.96)..|
000005B0: 28 4C 42 29 AA C7 28 48  42 29 AA C7 28 31 29 00  |(LB)..(HB)..(1).|
000005C0: E0 0D 30 02 81 42 B2 31  A4 31 32 30 3A A1 23 31  |..0..B.1.120:.#1|
000005D0: 2C 41 24 3A 52 43 24 B2  52 43 24 AA 41 24 3A 82  |,A$:RC$.RC$.A$:.|
000005E0: 00 EB 0D 3A 02 A0 31 3A  A0 31 35 00 FC 0D 44 02  |...:..1:.15...D.|
000005F0: 99 CA 28 52 43 24 2C 31  2C 31 35 29 00 0E 0E 4E  |..(RC$,1,15)...N|
00000600: 02 99 CA 28 52 43 24 2C  31 36 2C 31 35 29 00 20  |...(RC$,16,15). |
00000610: 0E 58 02 99 CA 28 52 43  24 2C 33 31 2C 31 35 29  |.X...(RC$,31,15)|
00000620: 00 32 0E 62 02 99 CA 28  52 43 24 2C 34 36 2C 33  |.2.b...(RC$,46,3|
00000630: 30 29 00 44 0E 6C 02 99  CA 28 52 43 24 2C 37 36  |0).D.l...(RC$,76|
00000640: 2C 32 35 29 00 56 0E 76  02 99 CA 28 52 43 24 2C  |,25).V.v...(RC$,|
00000650: 31 30 31 2C 33 29 00 68  0E 80 02 99 CA 28 52 43  |101,3).h.....(RC|
00000660: 24 2C 31 30 34 2C 35 29  00 7B 0E 8A 02 99 CA 28  |$,104,5).{.....(|
00000670: 52 43 24 2C 31 30 39 2C  31 32 29 00 81 0E 94 02  |RC$,109,12).....|
00000680: 82 00 9E 0E BB 02 8F 20  52 45 41 44 20 49 4E 44  |....... READ IND|
00000690: 49 56 49 44 55 41 4C 20  52 45 43 4F 52 44 00 BA  |IVIDUAL RECORD..|
000006A0: 0E BC 02 99 22 52 45 43  4F 52 44 20 23 20 54 4F  |...."RECORD # TO|
000006B0: 20 52 45 41 44 22 3A 85  52 45 00 DA 0E C6 02 99  | READ":.RE......|
000006C0: 22 53 54 41 52 54 49 4E  47 20 41 54 20 50 4F 53  |"STARTING AT POS|
000006D0: 49 54 49 4F 4E 22 3A 85  50 4F 00 F8 0E D0 02 48  |ITION":.PO.....H|
000006E0: 42 B2 B5 28 52 45 AD 32  35 36 29 3A 4C 42 B2 52  |B..(RE.256):LB.R|
000006F0: 45 AB 48 42 AC 32 35 36  00 05 0F DA 02 9F 31 35  |E.HB.256......15|
00000700: 2C 38 2C 31 35 00 1B 0F  E4 02 9F 31 2C 38 2C 32  |,8,15......1,8,2|
00000710: 2C 22 52 45 4C 2E 46 49  4C 45 22 00 41 0F EE 02  |,"REL.FILE".A...|
00000720: 98 31 35 2C 22 50 22 AA  C7 28 32 AA 39 36 29 AA  |.15,"P"..(2.96).|
00000730: C7 28 4C 42 29 AA C7 28  48 42 29 AA C7 28 50 4F  |.(LB)..(HB)..(PO|
00000740: 29 00 5D 0F F8 02 81 41  B2 50 4F A4 31 32 30 3A  |).]....A.PO.120:|
00000750: A1 23 31 2C 41 24 3A 99  41 24 3B 3A 82 00 7F 0F  |.#1,A$:.A$;:....|
00000760: 02 03 84 31 35 2C 45 2C  45 24 3A 99 22 12 44 49  |...15,E,E$:.".DI|
00000770: 53 4B 20 53 54 41 54 55  53 3A 22 3A 99 45 24 00  |SK STATUS:":.E$.|
00000780: 8A 0F 0C 03 A0 31 3A A0  31 35 00 AB 0F 16 03 99  |.....1:.15......|
00000790: 22 50 52 45 53 53 20 41  4E 59 20 4B 45 59 20 54  |"PRESS ANY KEY T|
000007A0: 4F 20 43 4F 4E 54 49 4E  55 45 22 00 BE 0F 20 03  |O CONTINUE"... .|
000007B0: A1 47 24 3A 8B 47 24 B2  22 22 A7 38 30 30 00 C7  |.G$:.G$."".800..|
000007C0: 0F 2A 03 89 37 30 30 00  00 00                    |.*..700...      |

....... CREATE RELATIVE FILE.=....65517:
.B(781).40.MT$.".":.3.I...MT$."."......M
T$"..... THIS DISK IS .WRITE.":." .PROTE
CTED.. PLEASE."......" INSERT A DIFFEREN
T.":." DISK TO SAVE THE.".T...." FILES C
REATED WITH"......". THIS PROGRAM.":."..
. .PRESS ANY KEY TO":.".     .CONTINUE".
)....198,1:.198,0.S....MT$"..LENGTH OF R
ECORD":. RL:RL.RL.1......"..TOTAL NUMBER
 OF":."RECORDS";RN:RN.RN.1.....HB..(RN.2
56)...(.LB.RN.HB.256...2..15,8,15.P.<..1
,8,2,"REL.FILE,L,".G(RL)...F..15,"P".G(2
.96).G(LB).G(HB).G(1)...P..1,"END"...Z. 
1./._..15,E,E$:.".DISK STATUS:":.E$: 15.
K.C.. PREPARE TO WRITE FILE.W.D.RC.RC.1.
B.N.RC$.""...X.SP$."                    
          "......"FIRST NAME":.NF$......
"MIDDLE NAME":.MN$.P...."LAST NAME":.LN$
... .."STREET ADDRESS":.SA$......"CITY":
.CI$......"STATE":.ST$.#...."ZIP CODE":.
ZI$.<.H.."PHONE NUMBER":.PH$.V.R.RC$.RC$
.H(NF$.SP$,15).P...RC$.RC$.H(MN$.SP$,15)
.....RC$.RC$.H(LN$.SP$,15).....RC$.RC$.H
(SA$.SP$,30).....RC$.RC$.H(CI$.SP$,25).W
...RC$.RC$.H(ST$.SP$,3).....RC$.RC$.H(ZI
$.SP$,5).....RC$.RC$.H(PH$.SP$,12)...+..
 WRITE TO FILE.+.,..15,8,15.A.6..1,8,2,"
REL.FILE".R.@.HB..(RC.256).C.J.LB.RC.HB.
256...T..15,"P".G(2.96).G(LB).G(HB).G(1)
...^..1,RC$...H. 1...R..15,E,E$:.".DISK 
STATUS:":.E$: 15.X.|..:."ANOTHER ENTRY?"
......G$:.G$."".390......G$."N".500.....
.G$."Y".100......390.6.... READ RELATIVE
 FILE IN ORDER.W....A.1.RC:RC$."":."RECO
RD #";A.D....15,8,15.Z....1,8,2,"REL.FIL
E".....HB..(A.256).....LB.A.HB.256...&..
15,"P".G(2.96).G(LB).G(HB).G(1)...0..B.1
.120:.#1,A$:RC$.RC$.A$:....:. 1: 15...D.
.J(RC$,1,15)...N..J(RC$,16,15). .X..J(RC
$,31,15).2.B..J(RC$,46,30).D.L..J(RC$,76
,25).V.V..J(RC$,101,3).H....J(RC$,104,5)
.{....J(RC$,109,12)............ READ IND
IVIDUAL RECORD......"RECORD # TO READ":.
RE.Z.F.."STARTING AT POSITION":.PO...P.H
B..(RE.256):LB.RE.HB.256...Z..15,8,15...
...1,8,2,"REL.FILE".A....15,"P".G(2.96).
G(LB).G(HB).G(PO).]....A.PO.120:.#1,A$:.
A$;:......15,E,E$:.".DISK STATUS:":.E$.
.... 1: 15......"PRESS ANY KEY TO CONTIN
UE"... ..G$:.G$."".800.G.*..700...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL