C********************************************************************** C C USERR.SKL: Skeleton PICAX user module for the root segment C C********************************************************************** C SUBROUTINE UPDATE C COMMON /P FLAGS/ PROG ON, EXPT ON, QUERY LOGICAL PROG ON, EXPT ON, QUERY EXPT ON = .FALSE. RETURN END C---------------------------------------------------------------------- SUBROUTINE UPLOT RETURN END