*DECK CALL$CS 
*CALL NFETCH
*CALL NSTORE
*CALL NP$ERR
