C RESET C C MICHAEL BOORSTEIN C C MARCH 11,1978 C C SUBROUTINE RESET IMPLICIT INTEGER(A-Z) DATA NULL/0/ C C BEGIN C CALL QUESTN(0) CALL TRACK(NULL,NULL,NULL,NULL,NULL) CALL CLRFST CALL CLRCRD RETURN END