MUMPS, where every keyword has a 1-to-3 letter abbreviation, resulting in code like

this:

`%DTC`

%DTC ; SF/XAK - DATE/TIME OPERATIONS ;1/16/92 11:36 AM

;;19.0;VA FileMan;;Jul 14, 1992

D I 'X1!'X2 S X="" Q

S X=X1 D H S X1=%H,X=X2,X2=%Y+1 D H S X=X1-%H,%Y=%Y+1&X2

K %H,X1,X2 Q

;

C S X=X1 Q:'X D H S %H=%H+X2 D YMD S:$P(X1,".",2) X=X_"."_$P(X1,".",2)

K X1,X2 Q

S S %=%#60/100+(%#3600\60)/100+(%\3600)/100 Q

;

H I X
S %Y=$E(X,1,3),%M=$E(X,4,5),%D=$E(X,6,7)

S %T=$E(X_0,9,10)*60+$E(X_"000",11,12)*60+$E(X_"00000",13,14)

TOH S

%H=%M>2&'(%Y#4)+$P("^31^59^90^120^151^181^212^243^273^304^334","^",%M)+%D

S %='%M!'%D,%Y=%Y-141,%H=%H+(%Y*365)+(%Y\4)-(%Y>59)+%,%Y=$S(%:-

1,1:%H+4#7)

K %M,%D,% Q

;

DOW D H S Y=%Y K %H,%Y Q

DW D H S Y=%Y,X=$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR","^",Y+1)_"DAY"

S:Y

[...]