PRINTI/CP,PRINTI/-SP=PRINTI,[5,212]PASLIB
/
EXTSCT=......:10
GBLDEF=HPSIZE:10
EXTSCT=PAS$$:2000
STACK=32
//