\25),"ENTER DATA"  "DATA FILE NAME ",K$ $"DRIVE NUMBER ",K1$\K1$","K1$ \K$K$K1$\ F90 ( "MAX LENGTH OF FIELD ",K1 ##"NUMBER OF FIELDS TO ENTER ",K "(K$)32\K$,2\#1,K$\P 2#1,K$ <#1,&A\II1\A1< F#1%I2,&A PG$K120),R$K14)K) 7Z\R$""\25),K$," "\"ENTER QUIT TO END" +dF90i\X1K\@X4,5),"FIELD",X\X iF90. 5nN1K\@N4,18),\"",G$\N1x\G$"QUIT" (xX1G$)\G$X,X)","\X\ G$34)G$34) G$G$","\R$R$G$ N X1R$) #1,&R$X,X)) X\#1,&13,&10 TT1 Z #1  0 "YOU HAVE ADDED ",T," RECORDS IN FILE ",K$ + "PRESS ANY KEY TO RETURN TO THE MENU" A$0) "MENU" ) RINE LOAD DISPLAY FIELD NAMES 5 K$1,4)K1$)5 \F91\\ DOES EXIST  #0%5,K$1,4)K1$  #0,K,K1,K8 1 L$K15),Q$K1)\ N1 K1\Q$N,N)"*"\ N  #0,L$ $ #0 ) F90\ . N1 K ,8 @N4,1),L$N1514,N15),@N4,18),Q$ B N L AL "ENTER FIELD TO CHANGE 0 TO RECORD",@4,35),"##" - @4,35),\ "",N\ N0 X\ NK