14 lines
349 B
Mathematica
14 lines
349 B
Mathematica
|
XBTM12 ; IHS/ADC/GTH - TECH MANUAL : SYSTEM REQUIREMENTS ; [ 02/07/97 3:02 PM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;
|
||
|
|
NEW A,B,C,I
|
||
|
|
S A=$O(^DIC(9.4,"C","XB",0)),B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
|
||
|
|
S %=0
|
||
|
|
F S %=$O(^DIC(9.4,A,22,B,"S",%)) Q:'% D PR(^(%,0)) Q:$D(DUOUT)
|
||
|
|
Q:$D(DUOUT)
|
||
|
|
D ^DIWW
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
PR(X) NEW %,A,B,C,I D PR^XBTM(X) Q
|
||
|
|
;
|