cQMSMSW ;OVERGANG TUSSEN UCI'S ;cQMSMSW; [ 04/12/00  11:48 AM ]
 ;
T0 ;OVERGANG TUSSEN UCI'S ;
 ;
T0F ;TRANSITION ENTRE UCI'S ;
 ;
ST D ^%CD Q
 ;
SW Q
 ;
INT zn UCI Q
 ;
MGR zn "%SYS" Q
TST zn "DATA-M" Q
MENU(UCI) zn UCI Q
IN(UCI) zn UCI Q
UCILIB zn "%SYS" Q
 ;
ZZ ; 14.02.01 - 16 u 10 * Cache-r2.0.2