PVW ;Testen ZWINTERM en CHARWIN [ 01/03/2002  1:52 PM ]
 Set $ZT="TRAP^PVW"
 Set sScr("VT")="Z"
 D W^cA612
 D O^cA612(3,3,15,40,1,0,0,1)
 Set FP=202 Write @F,"Test"
 
 Do HLIJN^vhTERMINA(4,5,20,"M","M",0)
 ;For I=1:1:12 Write "Test",I,!
 h 3
 D C^cA612
 D E^cA612
 Q
TRAP D C^cA612
 D E^cA612
 Q