File CREATE.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2CB]HBR<RR
\XDL2,KL<OD8<HL?<OH?((L.<O8<!L>4
D;<A<;DO<<;;O<;L?(
H
\98;LO09H(T*;<H?D8DO<;H;;LO4;DH*;<AL<0
LO =L!0OH?((OH*H28CL!7L8$HX 9L9$%H&\9L9$*)A8L,H TKD,GHU;HKL(DGX[[,WDW$KZMD(K[,RDRTK[,PDRXK[<QP ?*<
Q =YAX(BN
MORE FILES?  ]AF6BH DEVICE= A:DBF FILE= A<FBE EXT= A?BHI?XQ+BBMA)HMA?OI!=YA[:XYC)OA%;(IAB YBI RANDOM? ]AAOI%;OI$OI[0BH
CREATE?]AAOHCXAA1BG AMEND?]AAZHAXAA1OI$GHBBH DELETE?]AA	XAA1BI
ENQUIRE HDOA$GNI$ABO  
RECORD NAME=OI[0 A$BFHI$BXQBK-I<$BA$BFYA\]XYDA?IC$AABQ
SELECTED FIELDS?*HCIP]AC*H*ISOIIQKBF
NAME= A%7F(IC%7OAIR[QIQEC-I%7IS?IB(IQAMHI$APAXICVBR
CHECK EACH FIELD?]ACTXACVOAIPXAD9BB 
2I$A$EA	IHO$E	IJ1$E	IF7$EXAJ1BS ERROR OPENING FILEXABBO FILE NOT FOUNDXABBQ RECORD NOT FOUNDXAA3A(ID-IR[IIQDC-IIS%7(ID!%7?ID&IQAMHABXADMBA
A%7FXADMBE
FLD: A%7F(ID!%7XADM9H/6BXACXBP
MORE THIS FILE?]AELXAAB(IEQ$XAE:HI$A.AE.A.AE^B.AE^CXAFO(IFO$XAE:BK
SORT FILE?]AFGXAFEBQ
WAS KEY CHANGED?]AFO9H$	(2A R2I(AE2GYA16YAZ2H2 RIYA^BQ
CLOSE DATA FILE A:D^AB:A<F^AB.A?B2A R2I2I<F/DGA2XABDYAI=BA
YA $(IGB%;XAGDXIG>HCNI%:YAK%(IGOIPXAG BP
DISPLAY RECORD?]AG HBNI%:YAK%BK RECORD OK?]AD92I$A$EA	IG8$EYA!WXYIFOA$XAD9YA!>XYIFXAD9B[ THIS RECORD ALREADY EXISTSXAD9YAI=HANI%:YA $XYH0YA!EXYH>OI$IOIIQYADMXYH+OIQYAK%XAH!(ID9$IXAGJBU RECORD KEY NOT FOUNDXAD9BJ ERROR GETXAD9BJ ERROR PUT^ABGXAD93I<J]CX!J 
I
C.C.KEY=AXA&XYD?NQ$JBI G.L.KEY=AHNI$LA&XAI=BCMASTBL
RECORD KEY=AXXYD?"A&FLNY$JXAI=YAI=BA
HBNI%:YA $XYH0YA!EXYH>YAK%(IKH$GXAD9B\ AUTHORITY TO DELETE RECORD?]AD99H??/6BYA!>XYIFOA$XAD9YA]DXYH>?IK3$AC+I*</6*HT$RHANI91H*?NI$NIINI$OH$PNI$PXALH[Q$O[I$N3IFFA%ILWL%OA$QXALYOI$Q2I%:$EA	IP($E	IS,$EXAN	OA$POA$P[I$PHI%IL2L>XAL>HI$N[I$PNIHA[I$PNIA2I%:$EA	IR
$EXAPJHI$ONI$NIINI$OXALH(INR$R(IMG$Q[I$NHIFNI$E[Q$P[I$P[I3IGAAX!M>A[I$PNQOQ$POQ$POQ$E[Q$O3I$EFAXINRXAM][I$POAA[I$PHINI$NIINI$OOQ$POQ$PXALH[Q$O(INYAXAMG2I%:$EA	IN"$EXAK%A%<JXAK%OI$&OA$&YAN/XAOZBA
[I$NABF[I$NHIGJAXIN/BH FLD NO=HI$&"A&FDXAN/[I$N[YE[Q912I%O/6XAOLBE NEW=OA$HYAS>(IO/&A(IO*IPXAO/BD OK?]AO5YAOLYAPTXAN+BH
REPEAT?]AO>XAOZBQ RECORD CANCELLEDXAD9[I$PHIANI$&YAN/XAMG[I$NHIEKI91[I$N3IG$&AXIMQOA$&XAPT[I$N3IB%7CX!Q OI$&OA$&[I$NHIGJAXIRIBH FLD NO=AXXIK%XYK%OQIQ"A&FDNI$EXAQ13I$E$&A%IRIRIOA$&[I$NHIEKI91XAQO[I$NHIGNI$E[I$NHIEKI91	IMQ$EXAQ&[I$N3IG$EA%IQOQ<XAQOBP INVALI
,REPEAT?]AQ XAP(BE NOW=OI$HYAS>BH CHANGE?]AK%BF
 NEW=OA$HYAS>(IR%IPXAR*BD OK?]ARIYAOLOA$IXAK%OI$&[I$N3IB%7CX!MGOA$&[I$NHIGJA%IS&SE(ISJQXAS[BH FLD NO=AXXIS&XYS&OQIQ"A&FDNIQ[I$P3IAQA%IS&MGXAMGYADMXYNYXAMGOI$&OA$&YAN/BE NOW=OI$HYAS>YAPTXAS0[I$NHIENI$FNITX%IVQVQJ)%IVQTRXAVQ(IT[$H9H%OXAT%HI$FNIT$[I912I/6%O[
$NHIHNI&AXIURMHCNI&ECMHCNI&DCMHNI&BCNI&CHI&BNI$E	IUW$E	IUW$E	IU-$E	IY5$EXAVI"A&FBXAS>(IU%$HYAVA[Q$FEB A%OKXAS>[Q$FEBA%OXAS>(IU:$HYAVA[Q$F!A%OKXAS>[Q$F$A%OXAS>(IVA&DLXAVAHI$FNI$EJDXYV^BT
ILLEGAL DESCRIPTIONXAD9HI&C;AVQG(IW!$HHI&D%IV0V,HPXAV;A	IV;$EHH	IV;$EHPII&CFHHIXPNIWBNY$	HI$FNI$EHY$		IW\$E	IWW$EXAWSNY%OXAW!CPNQ%OXAW!CHNI%OXAW!HI&D%IW+W&[I$FDEXAW+[I$FDDXAW:HI%OCHXAXHHQ%OCPXAXHHY%OXAXHHI%OXAXHHQ%OXAXHHY%O[I&CDE"A&FNXAS>AHAIAJAKALAMANAOA
AQARASATAUAVAWAXAYAZA[A\A]A^A
BT
   CREATION-UPDATE YAY%GSYSFDESCFMA2IXYC)2H2I[1IXAX(HI>6PC8CLA$NQY3HI>6C(IQY3LA$NQY3HI>6PGIANIQY3XAYGYAYG"AY.JXAY%   /  /  -(IY<$HYA"	XAS>YA"QXAS>*B2DHH2AIH2CNQ[NHH2HBIH2AJANI[P+H2[NHQ[NGBHX:IAXIZ,3I[P[OAXIZ,O2DOA[OXAZW(AZ2DOQ[OHQ[NGBOI[NHH2FKI[NHI[N;AZDF
HX:IAX!Z6+A[N2EOP2DXAZ2A[12IIOA[&HI[&
H2IXY[QFH2H:[	IXA[Q92I2I:\EFGRKA12XY[:BC R="A&FFNI\\2H2 RIXA[:2I[0[&AYA[QXY\]H??JI[	XI\?H61JI[	X!\3I$B[)CX!\2I[&[0AXA\]H??CHXA\]9H*6EHI[0JANI[&H??NI]>OI]?YA[QXY]D&I]2]>H60JI[	%I]D]$H61JI[	%I]D]+H??JI[	%I]D]2[Q]?2I[	*6IHIKI]?XA]V9H??&6D9H [I(I
= UHI ZII UNI [(I J YHI YLHIHNI
BHI SII UNI \HAUNI ]HI UBNI ^HI SNI 
HI RNI  NI "H&6NI
EHI \NI !HQ  GB8:ANY8HCKI
E	I
T ]OA \&I
T [XA^;HI 
NI 9HAU ]A2A&6:DHQ "HOA 
&I
5 ^H&6NI
E9H??&6D(I O [XA
M(I O [H?>CHXA^BS
INDEX NOT REQUIREDXA^H??CHXA^AXA^YA -XY $AXA $2A R2IHY$J(I <%;
H2XA >
2XY -NI!DXA -YA -XY!E2I X!TA[I!D2H:/68XA!E2A R2IA
H2XY!WNI!<2I91!-A[Q!<2A/6:8G2H2 RIOA!=BH WRITTENXA!WYA -XY!>2I X"MA[Q!D2A/6:8FXA!>OI"%2I$F"&A[I"%HI%OJ	I"Q"&OA"%XA"YOIO2I$FPAAOI"%LHNI"&A;A"6B0B7JB0II"&?I"2"%AC[IONI%O	I"	POAOXA"/ INVALID          0-      0.0-     0.00-    0.000-   0.0000-  0.00000- 0.000
00-   /  /00 ABCDEFGH*HG9P+H2D9+OA9+HH2HCHBJH2CJI9+%I2M2MOA9+HX2NY92HH2AIH2CJANI93HDMH2FNI9*LH2FNI91NI3?NI4"NI4WNI4LHH2FNI9[2I&.9\HHI9*LBNI9*HI9+NI9-HI9-C!NI9-XI16HI9+JI9-NI90)HA9/+I9/9,HI9,II9-NI9.YA33(I3	9$HI9,JI9-NI9,JAXI3PXQ3PHI9/IANI9/JI90XQ2=XA3MHQ9
II9,GBXY52H:&6BHQ92II9.GBXY5[Q912H:&6BYA4,(I339$[I912A&6:DHQ92II9.HXY5M2A&6:DHQ92II9,HXY5MXA33OI9$)HB9)ZA6(I4,9$HI9*NI9)ZA6XA4,IAXY5MBK
FILE FULL
XA33BQ
SORT DISK ERROR
D2IS2I>.?K3	22AO12I
0:A
<K/
.K/
-K,/+UG:*>>$P>P<R&	?;?<*SBEU+A9>&Q]>O2,)T0C2K;O?8H
?O??(*.O?8!O>
=;A
<;O<
;;O;O?
:
9	8;O9<(*%;O?8!O;
;; O;=*R;AO<
<O=8!O<?(*O*B2C.K(K5[(O(2IK\9K4<X*6K3K2[[2AO[2I[C: 	1: 	15B: 	1;X	0K]	0: 	11ZK^	0	/	.:6./-	,9<6K&< /
	+J/SB>G<BK&/
B(UKUN)*(M)T1]G?95&C5(89X9(9%9&9	9*9); K%G[U; K(G[V[WKWKYZMKZ[RKRKU[PKRKV[QOP?H*
OQ=H*$8!OP*$;OQ=H*\;A=(*=;KUKZ[SKVKZ[TK[8![ROS<QOT
S=Q
TSSSTSR*0SXS$.< .SW;G8D8!KW?.*J=(/G8![RK[SR+L/GK\&6:*;;E< +N>6J\ :]:!TSC:H+X[%SYSTEM ERRHD?;OSHKBBJBI>G+:2CB NX>ELOAD]>H(&D\??23,(.AN45$>E 
PP8FCFD\70CB$AC^C\8A68BJBMDCH?CXCFE4O,EWCN><D><B<A<CNH<EVBG?/?4?2[?1?0?.?=?%N:H?$IKC8HAF%MZSVF)N%<HG6NF
N-GAI3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \8;2A2J	?H;2A2J	>ASYS88;JK2A2J	>BB
*;JTZ^2A2J	>FRASSV;2C/=9PI7>P+BHI6?*YH9HH$X HYA5<X*98F8F8FL \ P*YP%+BP$I4*RH> RI.I H\ H] H^ H
>(/FI3*H
 /F SX<H:OX< +U0!+],[XYHY8J8J8J*HY*/ A5<(/*I<A5I<$S/*X?+
LLK<(/7%2BA>B?

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search