Select the objects that you wish to see in the downloaded PDF
K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
MAR 13, 1986
TYPE A WHOLE NUMBER BETWEEN 1 AND 7
S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
MAR 25, 1986
Up to 7 tests allowed. The number will determine placement of the
test on the display or print.
S DIC("S")="I $P(^(0),U,5)[""CH"""
Tests with results stored in CH subscript of file 63