cQ9 ;Functions ;cQ9; [ 02/09/01  12:55 PM ]
 ;
T0 ;Functies ;
 ;
T0F ;Functions ;
 ;
TOUPPER(X)         ;Convert string to uppercase
 Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 ;
TOLOWER(X)         ;Convert string to lowercase
 Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;
INTERP(X,Y,Z)      ;Interpunction for X with Y decimals in a field of Z long
 Q $J($TR($FN(X,",T",Y),".,",",."),Z)
 ;
CONFIG() ;
 Q 0
 ;
ZOOM ;Zoom window to 25 lines and 80 columns
 Q
 ;
HFS() ; get HFS and open it
 Q 0
 ;
AKJ() ; aantal aktieve jobs
 Q 1
 ;
LVL(J) ;
 Q
 ;
DOUBLEQ(X)         ;Double quotes in string
 N Y S Y=0
 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
 K Y Q X
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8