127 lines
3.1 KiB
Mathematica
127 lines
3.1 KiB
Mathematica
XPDIN00T ; ; 03-JUL-1995
|
|
;;8.0;KERNEL;;JUL 10, 1995
|
|
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
|
Q Q
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,0)
|
|
;;=XPD EDIT BUILD10A^9.661
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,40,0)
|
|
;;=^.4044I^1^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,40,1,0)
|
|
;;=1^^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,40,1,1)
|
|
;;=.01
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,40,1,2)
|
|
;;=1,2^4
|
|
;;^UTILITY(U,$J,"DIST(.404,",85,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,0)
|
|
;;=KIDS^XPD^Kernel Installation & Distribution System
|
|
;;^UTILITY(U,$J,"PKG",12,1,0)
|
|
;;=^^3^3^2940705^^
|
|
;;^UTILITY(U,$J,"PKG",12,1,1,0)
|
|
;;=Kernel Installation and Distribution System first time install. This
|
|
;;^UTILITY(U,$J,"PKG",12,1,2,0)
|
|
;;=package is used to install Kernel for the first time. It will install
|
|
;;^UTILITY(U,$J,"PKG",12,1,3,0)
|
|
;;=a part of KIDS that will then allow you to use KIDS to install Kernel.
|
|
;;^UTILITY(U,$J,"PKG",12,4,0)
|
|
;;=^9.44PA^3^2
|
|
;;^UTILITY(U,$J,"PKG",12,4,2,0)
|
|
;;=9.7
|
|
;;^UTILITY(U,$J,"PKG",12,4,2,222)
|
|
;;=y^y^^n^^^n
|
|
;;^UTILITY(U,$J,"PKG",12,4,2,223)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,4,3,0)
|
|
;;=9.6
|
|
;;^UTILITY(U,$J,"PKG",12,4,3,222)
|
|
;;=y^y^^n^^^n
|
|
;;^UTILITY(U,$J,"PKG",12,4,"B",9.6,3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,4,"B",9.7,2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,0)
|
|
;;=^9.49I^6^6
|
|
;;^UTILITY(U,$J,"PKG",12,22,1,0)
|
|
;;=1^2940603^2931015
|
|
;;^UTILITY(U,$J,"PKG",12,22,2,0)
|
|
;;=8.0^2950703
|
|
;;^UTILITY(U,$J,"PKG",12,22,3,0)
|
|
;;=8.0T17^2941024
|
|
;;^UTILITY(U,$J,"PKG",12,22,4,0)
|
|
;;=8.0T18^2950112
|
|
;;^UTILITY(U,$J,"PKG",12,22,5,0)
|
|
;;=8.0T19^2950214
|
|
;;^UTILITY(U,$J,"PKG",12,22,6,0)
|
|
;;=8.0T20^2950412^2950410
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B","8.0",2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T17",3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T18",4)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T19",5)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T20",6)
|
|
;;=
|
|
;;^UTILITY(U,$J,"PKG",12,"DIST",0)
|
|
;;=^9.485^^0
|
|
;;^UTILITY(U,$J,"PKG",12,"INI")
|
|
;;=^
|
|
;;^UTILITY(U,$J,"PKG",12,"INIT")
|
|
;;=^
|
|
;;^UTILITY(U,$J,"PKG",12,"PRE")
|
|
;;=^
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.6)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.61)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.62)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.623)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.626)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.63)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.64)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.641)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.6411)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.65)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.66)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.661)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.67)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.6,9.68)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.7)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.701)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.702)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.703)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.704)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.713)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.714)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.715)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.716)
|
|
;;=
|
|
;;^UTILITY(U,$J,"SBF",9.7,9.718)
|
|
;;=
|