Commodore 2040 User Manual page 91

200(1
mpUT"::m~lDO
'T'OU
~H:::H
TO CPEATE A FILE
t·~.II'''.:A$:
IFLEFT$(A$ .. 1)<>'''T'''THEt·Q1(10
2001
HWUT":~F.:At·mOt'1
FILE
t·~At'1E".:
F$
2(H~12 I t·WUT "VE'T' FILE DF.: I '·lE t·Klt'1BEP".: DD
2(H~n
I
t'~PUT"
PAtmOt'1 FILE DP I ',,IE
t·~Ut·1BEF.:".:
F.:D
2005 mpUT"Et-nEP ID OF F.: At·mOt·1 DISf<
III''';
ID$: ID$=LEFT$( ID$ .. 2)
2(H36 I t·WUT"
t·~Ut'1BEF.:
OF PECOF.:DS".:
t·~p
2007 I
t'~PUT"
t·Wt'lBEP OF FIELDS PEP F.:ECOPD".:
t'~F
2010 CiC6UB 11 0
2015
PPINT"~
INPUT FIELD NAME .. FIELD SIZE .. FIELD TYPE"
2(116 PP I NT" n'PE::: : O=B I t·~AP'T'.. 1 =t'~U~1EP I C.. 2=ALPHA:~l"
2(119 P:::=O
202(1 FOP I = 1
TOt'~F
: PP I tH" FIELD" .: I., : I t·WUTFH$ ( I ) ..
F:::;'~
( I ) .'
FT;'~
( I ) :
PS=FS;'~
( I ) +F.:S+ 1 :
t'~E::<T
2025 A$=" I " : I FDD=PDTHENA$=" I "+:::TP$ (DD)
2030 PPINT#CC,A$
2040 CiOSUB1100:IFETHEN3900
205~3 OPEtH .. ::: .. 4 .. :::TF.:$(DD)+": "+LEFT$(F$+SP$., 1(1)+". f<E'T'01 .. U., ~.j"
2055 PRINT#4,0;M$; :CLOSE4
2~390
CiOT02120
2100 PEM OPEN RANDOM FILE FOP ACCESS
2103 I t·iPUT"
:~F:At-mot'1
FILE
t·~At'1E".:
F$
2105 HWUT" KE'T' FILE DP !'olE
t·~Ut'lBEF.:".:
DD
2110 mpUT"RAt·mOt'1 FILE DF.T·lE
t~Um:EP".: r;~D
2120 CiOSUB1200:IFETHEN3900
2140 OPEtH .. :::" 4., :::TP$(DD)+": "+LEFT$(F$+SP$ .. 1(1)+". f<E'T'(11 .. U"
2142 INPUT#4 .. RR:IFRP=OTHEN2147
2145 FORI=1TOPp:INPUT#4 .. f<1$(I) .. PP%(I):NEXT
2147 CLO:::E4
2150 PP I t-n ":1~O t:Ht·1PLE F.: At·mo t' 1 ACCE:::::::~l"
2155 PPHH"T'r'PE / TO OUIT)iI"
2156 PF.: It-n" (H IT
PETUPt·~
TO ADD F.:ECOPD)"
216~3 PF.:lt-n":~lll.1,jHOSE PECOF.:D DO 'T'OU"
2161
mpUT"~·n:::H
TO :::EE
.'1'''.:
PI':$
2165 I FPP:i'=" "THa~2:31 0
2167 IFRP$="//"THEN2400
216::: IFRP$="/DIP"THENCiOSUB4000:GOT02160
2170 FORII=1TOPP:IFf<1$(II)<>PR$THENNEXT:CiOT02300
2175 CR=RR%(II):GOSUB300
218(1 FORI=1 TONF: PRItHI.:") "FH$( I)" :" .. F$( I):
t'~E>::T:
PF.:HH
21:::5 FF=(1
2190
It~PUT"At'~'T'
t'lODS
.11'" . :
A$ : I FLEFT$( A$ .. 1 ) <> '"T'''
THEt~222(1
2195 mpUT" ~,jH I CH FIELD".: A
22(10 PRHH" "F$(A): PF.:It-n"~" ,: : HWUTF$(A): F(A)=VAL(F$(A»
2210 FF=1:CiOT02190
2220 IFFF=0THEN2160
2222 IFA=1THENf<1$(II)=F$(A)
2225 GC6UB2~30
2230 GOT02160
2300 PI': I t-n
":~F.:ECORD
tKiT PF.:E:::Et-H"
2305 It-lPUT"DO 'T'OU ~H:::H TO ADD".: A$: IFLEFT$(A$ .. 1 )<>'''T'''THEt~2160
231 0 pr;~ I tH" :~lH:H AnD PECOF.:D :H:H:~l~]"
2312 IFFR>NRTHEN2500
2315 CR=Fp:FR=FR+1:RR=RR+1
2320 FORI=1TC~F:PRINTFH$(I); :INPUTF$(I):F(I)=VAL(F$(I»:NEXT
233~3 GOSUB2(1(1
2340 f<1$(RR)=F$(1):PR%(RR)=CR
2::::5(1 GOT02161:1
24(H~1
F.:Et'1 CLOSE RAt·m FILE
24135 CiOSUB 140~~1
241(1 OPEt~4 .. :::., 4 .. "I!"+STF.:$(DII)+" : "+LEFT$(F$+:::P$ .. 1(1)+". f<E'r'01 .. U.,
W
2420 CiOSUB 1(1(1(1 : I FETHaB9~3(1
2430 PRINT#4,PP;M$;
2440 FOPI=1TORp:PPINT#4 .. f<1$(I);M$;RP%(I);M$; :NEXT
2445 GO:::UB 1 (H~H3 : I FETHEt-j::::9~~10
245~~1 CLOSE4
2455 GOSUB1000:IFETHEN3900
249~) POI<E 1022 .. ::: : am : F.:Et'1 TUF.l~ DOS SUPPOPT 3. 1 Ot·~
25(H) PI': ItH" THE FILE I ::: FULL.. t·JO ADD IT IOt~AL RECOF.:D::: t1A'T' BE ADDED"
251 ~3 CiOT0216(1
3900 PRINTE .. EM$:STOP
4000 FORDI=OTONp:PPINTf<1$(DI):NEXT:PETURN
93