Commodore 2031 - Page 93

1215 OPEN C1,DN,C1,A$:GOSUB 1000:IF E THEN 1900
1220 INPUT#C1,ID$,T,S
1225 OPEN C0,DN,C0,”#”:GOSUB 1000:IF E THEN 1900
1226 GOSUB 1280
1227 PRINT#CC,”B-R:”;C0;RD;T;S:GOSUB 1000:IF E THEN 1900
1230 INPUT#C0,NR,FR,NB,RS,RB,NF
1235 GOSUB 100:FT%(0)=T:FS%(0)=S
1240 FOR A=0 TO NF:GOSUB 1298:FS%(A0)=ASC(A$)
1245 GOSUB 1298:FT%(A0)=ASC(A$)
1250 INPUT#C1,FH$(A0):NEXT
1255 FOR A0=0 TO NB-1:GOSUB 1298:IT%(A0)=ASC$(A$)
1260 GOSUB 1298:IS%(A0)=ASC(A$):NEXT
1265 GOSUB 1000:IF E THEN 1900
1270 CLOSE C1
1275 RETURN
1280 PRINT#CC,”U1:”;C0;RD;”,18,0”:GOSUB 1000:IF E THEN1 900
1285 PRINT#CC,”B-P:”C0;162
1286 GET#C0,A$,A1$:A$=A$+A1$;IF ID$<>A$ THEN EN=43:EM$=”DISKID MISMATCH”:GOTO 1900
1290 RETURN
1298 GET#C1,A$:IF A$=”” THEN A$=CHR$(0)
1299 RETURN
1400 REM *************************
1401 REM CLOSE RELATIVE FILE
1402 REM INPUT: VARIABLES FROM OPEN SHOULD BE VALID
1409 REM
1410 PRINT#CC,”B-P:”C0;1
1420 PRINT#C0,NR;M$;FR;M$;NB;M$;RS;M$;RB;M$;NF;M$;
1430 PRINT#CC,”B-W:”C0;D;FT%(0);FS%(0)
1440 CLOSE C0
1490 RETURN
1900 E=E+1:RETURN
2000 INPUT”♥Q QDO YOU WISH TO CREATE A FILE Y]]]”;A$:
IF LEFT$(A$,1)=”N” THEN 2100
2001 INPUT”QRANDOM FILE NAME PHONE LIST]]]]]]]]]]]]”,F$
2002 INPUT”KEY FILE DRIVE NUMBER 0]]]”;DD
2003 INPUT”RANDOM FILE DRIVE NUMBER 0]]]”;RD
2004 INPUT”ENTER ID OF RANDOM DISK CS]]]]”;ID$:ID$=LEFT$(ID$,2)
2006 INPUT”NUMBER OF RECORDS”;NR
2007 INPUT”NUMBER OF FIELDS PER RECORD”;NF
2010 GOSUB 110
2015 PRINT”Q INPUT FIELD NAME, FIELD SIZE, FIELD TYPE”
2016 PRINT” TYPES: 0=BINARY, 1=NUMERIC, 2=ALPHA [CRSR RT]”
2019 RS=0
2020 FOR I=1 TO NF:PRINT”FIELD”;I;:INPUTFH$(I),FS%(I),FT%(I):RS=FS%(I)+RS+1:NEXT
2025 A$=”I”:IF DD=RD THEN A$=”I”+STR$(DD)
2030 PRINT#CC,A$
2040 GOSUB 1100:IF E THEN 3900
2050 OPEN4,8,4,STR$(DD)+”:”+LEFT$(F$+SP$,10)+”.KEY01,U,W”
2055 PRINT#4,0;M$;:CLOSE4
2090 GOTO 2120
2100 REM OPEN RANDOM FILE FOR ACCESS
2103 INPUT”QRANDOM FILE NAME”;F$
2105 INPUT”KEY FILE DRIVE NUMBER”;DD
2110 INPUT”RANDOM FILE DRIVE NUMBER”;RD
2120 GOSUB 1200
2140 OPEN4,8,4,STR$(DD)+”:”+LEFT$(F$+SP$,10)+”.KEY01,U”
2142 INPUT#4,RR:IF RR=0 THEN 2147
2145 FOR I=1 TO RR:INPUT#4,K$(I),RR%(I):NEXT
2147 CLOSE4
2150 PRINT”♥Q Q]]]]]]]]]]]]]] SAMPLE RANDOM ACCESS Q”
2155 PRINT”TYPE // TO QUIT Q”
2156 PRINT”(HIT RETURN TO ADD RECORD)”
2160 PRINT”QQWHOSE RECORD DO YOU”
2161 PRINT”WISH TO SEE ]]]”;RR$
2165 IF RR$=” “ THEN 2310
2167 IF RR$=”//” THEN 2400
2168 IF RR$=”/DIR” THEN GOSUB 4000:GOTO 2160
89