cQMSMP ;SIMULATIE ;cQMSMP; [ 04/07/00  12:03 PM ]
 ;
T0 ;SIMULATIE ;
 ;
T0F ;SIMULATION ;
 ;
 S $ZT="ERR^"_$T(+0) B 1
 X "ZR  F  U 0 W !,$ZU(5),"">"" R CMD S:CMD=""H""!(CMD=""h"") CMD=""Q"" W ! Q:CMD=""Q""!(CMD=""q"")  X ""ZI CMD"":$F(CMD,$C(9)),CMD:'$F(CMD,$C(9))"
 ;
YZ S $ZT="^cA405" Q
 ;
ERR G ^cA405:$ZE["<DSCON>"
 B 0 W !!,$ZE,! S $ZT="^cA405" H:$ZE["<INTERRUPT>" 1 U 0 G cQMSMP
 ;
ZZ ; 14.02.01 - 16 u 10 * Cache-r2.0.2