Commodore 2040 User Manual page 88

2 ALPHA
REM TRACK INDEX ARRAY
REM SECTOR INDEX ARRAY
REM PRIMARY KEY VALUE
:REM PELATIVE RECORD LIST PER KEY
:F:Et1 FIELD ::: I ZE
:REM FIELD POSITION
FP%(I)= SUM [FS%(I-l)]
:REM FIELD TYPE: 0:BINAPY,
:REM FIELD HEADING
REM FIELD ARGS-ALPHA,BINAPY
:REM FIELD
ARGS-Nl~ERIC
....t.t...t.t.t.t.t.t.t.tt...t.t.t.t.t.t.t.t.t.t.
RANDOM FILE DIMENSION ROUTINE
1ST SET NR, NF & NB
F:Et1
FH1
F:H1
F:Et1
GO:::UB 15' . :1
IFFP%=-lTHENRETURN
FP;·;=-l
D!t'1 F:::;';
(t'~F)
DI t1 FP;'; (t·jF)
F:H1
D1t'1 FT ;.;
(t'~F
)
DIt1 FH$O'W)
DH1 F$O·F'
DI~1 F(~W)
RETUF.:t·j
IFIT%=-lTHENRETURN
IT;';=-l
DIt1 IT;.;
(t·m )
DI t1 I:::;';
(m:)
DI t1
1< 1
$(
t~RI
DI
~1
RF.:;·; (t·W)
RETURt·~
REM
f.t.t.t.t.f.f.tt.tttttttt.tt.tt. .. t.t.t
REM UPDATE RECORD, CR
FH1
GC6UB900
PF.:ItH#CC . . "Ul : "C0.: D.: T.: :::
PF.:IHT#CC . . "B-P: "C0.: PP
FORCF= 1
TOt~F
GOSUB5~X1
t'~E::<TCF
PRItH#CC . . "U2: "C[1.: D.: T.: :::
GOSUB1000:IFETHEN1900
RETUF.:t·j
REM t.ttf.tttttttttt.t.ttttt.t.t.tt.t.
REM READ RECORD, CR
REt1
GC6UB9~X1
PF.:ItH#CC, "Ui : "C0.: D.: T.: :::
PF:ItH#CC . . "B-P: "C0; PP
GOSUB1000IFETHEN1900
FOPCF=l
TOt'~F
GOSUB6~Xl
t'~E::-::TCF
RETUF:tj
REM
t.t.t.tt.t.t.tt.t.t.tt.tt.tttttttttt.
PEM UPDATE FIELD(CF) OF PECORD CR, SINGLE FIELD UPDATE
REt1
GOSUB9[10
PRItH#CC . . "Ul : "C0.: D.: T.::3
GOSUB1000:IFETHEN1900
PI': It-H#CC . . "B-P: "C[1.: FP;·;(CF)+F.:P
GOSUB500 :REM UPDATE FIELD
PPINT#CC, "U2: "C0;D;T;S
GOSUB1000:IFETHEN1900
F:ETUF.:t·~
REM ....
ttf.tf.tttttttttttttttttt
REM READ FIELD(CF) OF RECORD CR . . SINGLE FIELD READ
PEM
GO:::UB9[1[1
PPIt-H#CC, "Ul : "C0.: D.: T.: :::
GC6UB 100[1 : I
FETHEt·~
19[10
pF.:nH#CC . . "E:-P: "C0.:FP;·;(I::F)+f':P
GOSUB600 :REM READ FIELD
RETURt·~
PEM
ttttttttttttttttttttttttt
REM UPDATE FIELD(CF), B-P IS SET
REM
IFFT%(CF)()lTHEN520
A$=RIGHT$(SP$+STR$(F(CF»,FS%(CF»:GOT0530
AS=LEFT$(FS(CF)+SP$,FS%(CF»
PRItH#C[1 . . AS.:
~1$:
RETUf':tj
435
C='-,C'
oJ·:.·;.)
,-,.-.e-
.:::..:::.._1
1[10
Wl
1 ~]~:
103
1[15
110
111
115
12[1
125
130
135
14' . :1
145
146
150
151
155
160
165
17[1
175
2~X1
2~:11
202
2'.:15
210
215
220
'-"-,E:"
'':''::''-'
230
:~:35
340
400
401
402
4~]5
4W
415
42[1
425
43~]
44'.:1
45'.:1
451
452
455
46'.:1
465
470
475
4:::0
5(1' . :1
501
5f12
5W
515
520
53(1
2*]
245
::::O~:1
:X11
3[12
305
31'.:1
315
:::2~:1
90