AZXZTEST.m

AZXZTEST ;NEW PROGRAM [ 05/01/95   1:25 PM ]

MAIN W !,"BEGIN ARGUMENTLESS DO TEST"

 D  W !,"RETURN FROM SUBRTN"

 .W !,"FIRST LINE OF SUB"

 .FOR I=1:1 D  I '(I#100) W "." Q:$D(J)

 ..SET K=$R(I)

 ..IF K>1000 GOTO LABEL

 ..S ^X(I)=I*K Q

LABEL ..SET J=1   

 ..Q

 .W !,"LAST LINE OF SUB"

 W !,"END OF RTN"

AZXZTEST  ;NEW PROGRAM [ 05/01/95   1:25 PM ]

 +1 MAIN   WRITE !,"BEGIN ARGUMENTLESS DO TEST"

 +1        Begin DoDot:1

 +2            WRITE !,"FIRST LINE OF SUB"

 +3            FOR I=1:1

                   Begin DoDot:2

 +4                    SET K=$RANDOM(I)

 +5                    IF K>1000

                           GOTO LABEL

 +6                    SET ^X(I)=I*K

                       QUIT 

LABEL                  SET J=1

 +1                    QUIT 

                   End DoDot:2

                   IF '(I#100)

                       WRITE "."

                       IF $DATA(J)

                           QUIT 

 +2            WRITE !,"LAST LINE OF SUB"

           End DoDot:1

           WRITE !,"RETURN FROM SUBRTN"

 +3        WRITE !,"END OF RTN"