TEXT(EQUVEL input-file fragment         :W100
ONEPHS=F;EQUVEL=T;CFIPS=1.0;DENPCO=T
OUTPUT(9,N,N,N,N,N,N);SOLUTN(9,Y,N,N,N,N,N)
SOLUTN(10,Y,Y,N,P,P,P);SOLUTN(4,N,N,N,N,N,N)
SOLUTN(6,N,N,N,N,N,N);SOLUTN(8,N,N,N,N,N,N)
IF(BFC) THEN
 SOLUTN(U2CR,N,N,N,N,N,N)
 SOLUTN(V2CR,N,N,N,N,N,N)
 SOLUTN(W2CR,N,N,N,N,N,N)
ENDIF
mesg(equvel file fragment has been loaded
SOLVED
STORED
DELAY(500)