TITLE SLEEP FT10==1 FT20==0 IFN FT10< SEARCH UUOSYM > IFN FT20< SEARCH MONSYM > ENTRY SLEEP SLEEP: MOVE 1,@(16) ;GET TIME TO SLEEP IFN FT10< SLEEP 1, ;SLEEP > IFN FT20< THIBR JFCL > POPJ 17,0 END