AZXE393S.m

AZXE393S ;TUC/MHL;393 TEST RTN; [ 11/14/91  7:53 AM ]

 ;;1.0;SEPT 30, 1991

 W:$D(IOF) @IOF

 W !?13,"****************************************************"

 W !?12,"|",*27,*91,*55,*109

 W ?68,*27,*91,*109,"|"

 W !?12,"|",*27,*91,*55,*109

 W ?68,*27,*91,*109,"|"

 W !?12,"|",*27,*91,*55,*109,?32,"3 9 3  L O G B O O K"

 W ?68,*27,*91,*109,"|"

 W !?12,"|",*27,*91,*55,*109

 W ?68,*27,*91,*109,"|"

 W !?12,"|",*27,*91,*55,*109

 W ?68,*27,*91,*109,"|"

 W !?13,"****************************************************"

 W !!!!

AZXE393S  ;TUC/MHL;393 TEST RTN; [ 11/14/91  7:53 AM ]

 +1       ;;1.0;SEPT 30, 1991

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        WRITE !?13,"****************************************************"

 +4        WRITE !?12,"|",*27,*91,*55,*109

 +5        WRITE ?68,*27,*91,*109,"|"

 +6        WRITE !?12,"|",*27,*91,*55,*109

 +7        WRITE ?68,*27,*91,*109,"|"

 +8        WRITE !?12,"|",*27,*91,*55,*109,?32,"3 9 3  L O G B O O K"

 +9        WRITE ?68,*27,*91,*109,"|"

 +10       WRITE !?12,"|",*27,*91,*55,*109

 +11       WRITE ?68,*27,*91,*109,"|"

 +12       WRITE !?12,"|",*27,*91,*55,*109

 +13       WRITE ?68,*27,*91,*109,"|"

 +14       WRITE !?13,"****************************************************"

 +15       WRITE !!!!