Commodore 2040 User Manual page 90

92
11
~)(1
IHH
I1f12
1103
11(14
11(15
11 [16
11(19
1110
1115
1116
1120
1121
1122
1123
1124
1126
1130
1135
114(1
1145
1150
1152
1155
1160
1165
1166
1167
116:::
1170
1175
11
::::~:1
1200
1201
1202
1203
1204
12(15
12(19
1210
1215
1220
1
·-,·-,<::,
0::.'::',_1
1226
1227
123~:1
1235
1240
1245
1250
1255
126(1
1265
1270
1
·-,-,,,,
.::.. i
._1
12:::0
12:::5
12:::6
129~)
129:::
1299
1400
14(11
1402
14(19
1410
1420
143~)
1440
1490
1900
REM
t.****t.****t.t.*t.*t.*******t.*
REM CREATE DESCRIPTOR FILE
REM INPUT: FS= FILENAME
REM IDS,NR,NF,FS%(),FT%(),FHS()
REM DD= DESCRIPTOR FILE DRIVE #
REM RD= RANDOM DISK DRIVE #
REM DRIVES MUST BE INITIALIZED
F.:Et' 1
R::::= 1 : D=RD
FORAO=lTONF:FP%(A0)=RS:RS=FS%(AO)+RS+l:NEXT:RS=RS-l
RB=INT(254/RS+EP)
OPEt·jCO., Dt-j., CO, "#" : GO:::;LIB 1(11)(1 : I FETHEt·j
190~:1
CiO:;UB 12:::0
PRItH#CC, "B-P: "C0.: 1
FORA0=lTORB:FORA1=lTONF
PRINT#CO,LEFTS(SPS,FS%(Al»;MS;
t·jD<TA 1, A(l
NB=INT(NR/RB+EP):IF(NR/RB-NB)t.RB)=lTHENNB=NB+l
T=1:S=0:GOSUB150
FORAO=0TONB-l:GOSUB710:IFETHEN1900
IT%(AO)=T IS%(A0)=SGOSUB430:NEXT
GO:::UB710
PRItH#CC, "B-P· "CO.: 1
PRINT#CO,NR;MS;I;MS;NB;MS;RS;MS;RB;MS;NF;MS;
PRItH#CC,
"B-(,J:
"CO.: D.: T.: :::
AS=::::TRHDD)+" : "+LEFTS(FS+:3PS, 1(1)+". DESCR, U.,
(~"
OPEt·jC 1, Dt-j . . C1, AS
GO::::UB 1(lIXl : I FETHHj 190(1
PRINT#Cl,IDS;MS;T;MS;S;MS;
FORA0=ITONF:PRINT#Cl,CHRS(FS%(A0»;CHRS(FT%(A0»;FHS(A0);MS; :NEXT
FORA0=OTONB-l:PRINT#Cl . . CHRS(IT%(A0»;CHRS(IS%(A0»; :NEXT
CLOSEC1:CLOSECO:RETURN
REM
*t.'t.t.t.t.*t.t.t.t.t.t.t.t.ttt.t.tt.tt.t.
REM OPEN RELATIVE FILE
REM INPUT: FS= FILENAME
REM DD= DESCRIPTOR FILE DRIVE #
REM RD= RANDOM DISK DRIVE #
REM DRIVES MUST BE INITIALIZED
REt1
AS=:::TRS(DD H" : "+LEFTS(FS+SPS, 10)+". DESCR., U. . F.:"
OPENC1,DN,Cl,A':GOSUBI000:IFETHEN1900
INPUT#Cl,IDS,T,S
OPEtK:O., Dt-L CO, "#" :GO:::UB1(1I)O: I FETHHH
9~)~)
GOSUB12:::0
PRItH#CC., "B-R: ".: C(l.: RD.: T.: S: GO:::UBI0(1tl: IFETHEtH9(1I)
INPUT#C0,NR,FR,NB,RS . . RB,NF
CiOSUB100:FT%(0)=TFS%(0)=S
FORA0=1TONF:GOSUB129::::FS%(A0)=ASC(AS)
GOSUB129::::FT%(A0)=ASC(AS)
INPUT#Cl,FHS(A0):NEXT
FORA0=0TCNB-l :GO::::UBI298:
IT;·;(A~:l)=ASC(AS)
GOSUB129::::IS%(A0)=ASC(AS):NEXT
GOSUB1000:IFETHENI900
CLOSECl
F.:ETURt·j
PRItH#CC . . "Ul : ".: C0.:
F::D.:".,
1:::.,0": GOSUB1(1I)O: I FETHEt·H 9(1(1
PRItH#CC, "B-P: ".: C(l.: 162
CiET#CO,A',A1S:A'=AS+A1S:IFIDS()ASTHENEN=43:EMS="WRONG RAND DISK":GOT01900
F.:ETUF.:t·j
CiET#C 1., AS : I FAS=" "THEt·jAS=CHRS «(1)
RETURt·j
REM t.t.t.t.tt.*t.t.t.t.t.t.t.*t.t.tt.t.*t.t.t.t.
REM CLOSE RELATIVE FILE
REM INPUT: VARIABLES FROM OPEN SHOULD BE VALID
REt1
PRItH#CC" "B-P: "CO 1
PRINT#C0,NR;MS;FR MS;NB;MS;RS;MS;RB;MS;NF;MS;
PRItH#CC, "B-(·j: "C(l D.:
FT;·;(~:1).:
F:::;·;«(1)
CLC6EO:l
RETUF.:t·j
E=E+1 : F.:ETUF.:t·j