cyur01 ;Copyright (c) 1988 CyberTools, Inc. ;04:57 PM  16 Aug 1990
74 I $E(X,xc)?.P S X=$E(X,1,xc-1)_$E(X,xc+1,999) Q
 S a=$F(X," ",xc)-1 I a<1 S a=$L(X)
 I $E(X,a)?1P F a=a-1:-1:xc Q:$E(X,a)'?1P
 S xc=$L($P(X," ",1,$L($E(X,1,xc)," ")-1))+1
 S X=$E(X,1,xc-1)_$E(X,a+1,999)
 Q
82 I $E(X,xc)?1A S a=$A(X,xc),X=$E(X,1,xc-1)_$C(a+$S(a>90:-32,1:32))_$E(X,xc+1,999) X spu W $E(X,xc)
 E  W:xc<ln cu("r")
 I xc<ln S xc=xc+1
 Q
 ;
V D:'$D(cu) ^cyu S ln=255,prompt="MUMPS reference: ",X="",(%C,%R)=1
 W @cu,cu("cl")_$C(10,13)_cu("cl")_$C(10,13)_cu("cl")_$C(10,13)_cu("cl")
 D ^cyur
 I zb'=7,X]"" N REF S REF=X,X="" S:$D(@REF)#10 X=@REF S ln=255,%R=2,%C=1 D ^cyur I zb'=7 S @REF=X
 Q
 ;
tkread N ln,xc,y
 F a=1:1:4 S k=$P("CHR LNG PAT PROMPT"," ",a) I $D(@k) S @$P("char ln if prompt"," ",a)=@k
 D ^cyur
 S RX=$S(zb=21:1,zb=21:2,zb=23:4,zb=24:5,zb=9:3,1:0)
 K CHR,LNG,PAT,PROMPT
 Q
 ;