*d SET SET SYSTEM CHARACTERISTICS 1n \@1,25),"SET FILE SYSTEM CHARACTERISTICS" \x @2,1),"ENTER 4 LETTER SYSTEM FILE NAME ",@2,34),"****",@2,40),"DRIVE #",@2,48),"*" 3 @2,52),"ENTER NUMBER OF FIELDS",@2,75),"##" 7 @3,1),"ENTER MAXIMUM FIELD LENGTH",@3,30),"###" C @3,36),"ENTER FIELD NUMBER TO SORT OR MERGE BY",@3,75),"##"  @2,34),\ "",F$\ NAME $@2,48),\"",F1$\ DRIVE NUMBER F1$","F1$  F$)4 ( F$F1$)5 \ ALY EXISTS  F$F1$,2,5\ #0%5,F$F1$  @2,75),\ "",K  K0 K20  @3,30),\ "",K1  K10 K1130  @3,75),\ "",K2  K20 K2K  Q$15),L$K15) , N1 K G6 @N4,1),"FIELD # ",N," DESCRIPTION",@N4,30),"***************", @ @N4,30),\ "",Q$ J L$N1514,N15)Q$ T N ^   #0%5,F$F1$  #0,K,K1,K2  Q$15),L$K15)\ #0,L$  N1 K  Q$L$N1514,N15) 7 @N4,1),"FIELD # ",N," DESCRIPTION",@N4,30),Q$  N 0 @2,35),F$,@2,66),K,@3,30),K1,@3,75),K2 = @4,1),"ENTER FIELD TO CHANGE 0 TO RECORD",@4,35),"##" - @4,35),\ "",N\ N0 X\ NK   @N4,30),\ "",Q$  L$N1514,N15)Q$   X #0 b #0%5,F$F1$ l #0,K,K1,K2,L$ v #0 C @4,1),"FILE SAVED--PRESS ANY KEY TO RETURN TO MENU",\A$0)  "MENU" ANGE 0 TO RECORDGE BYMERGE BYK$1,4))5 \F91\\