Hi.
Q N R,Q,C,D,E,W,B,G,H,S,T,U,V,F,L,P,N,J,A S
N=$G(N),Q='N,F=Q+Q,P=F+F,W=$L($T(Q))
S
W=$E(W,Q),S='N_+N,W=W-F*S,L=$G(L),R=$C(Q_F_P),R(F)=$C(F+Q_F),R(P)=$C(W-F)
W #
S T=$E($T(Q+F),F,W\S)_$C(W+S+F) X T S
B=$P(T,$C(P_P),F),C=B\(W*W),D=B-(C*W*W)\W
F G=S-Q:F:S+F+Q S
E=B-(C*W*W+(D*W)),H=$E($T(Q),G),@[EMAIL PROTECTED]
(@[EMAIL PROTECTED]
'Q,Q:N)_@[EMAIL PROTECTED]
F A=Q:Q:W\S S
J=$E(T,A),C(F)=$S(J>(F+Q)&(J<(S-F)):Q,Q:+N),C(P)=$S(J#F:Q,Q:+N) D
.S
C(Q)=$S(J<(S-F):+N,Q:Q),C(F+Q)=$S(J>Q&(J<(S-F))&(J'=(P+'L))&(J'=(P)):Q,Q:+N)
.S H('L)=L F S H(N?.E)=$O(C(H('$G(N)))) Q:H('+L)=L S
F(A,H('L))=C(H(W[(W\S)))
F U=Q:Q:P W !,R F V=Q:Q:P+F W $S(F(V,U):'Q,Q:$C(P_(W\S))) W:'(V#F)
$C('N_F_F+F)
W !!,R(F)_C_R(P)_D_R(P)_E_R(F) X $RE($E($T(Q),Q+F,P+Q))_R(P)_'N W # G:N=L
Q+F Q
This is an "animated" BCD-clock for your terminal. No literals, legibility
or
even sense ;) Have fun...
(All references are "N-ed", no K's or ^'s, so a D Q^Q is safe, but do not
alter
anything or it'll explode and the results are unpredictable)
Any other "submissions"? I'd like to read some real MUMPS for a change
(especially if they're really obnoxious)
regards,
Robert
--
void if read
|
