TITLE SLEEPR SEARCH MONSYM P=17 M1=1 M2=2 M3=3 SAV=10 BEGIN: HRROI SAV,[ASCIZ/ HOW LONG TO SLEEP (MINUTES) ? /] MOVE M1,SAV PSOUT MOVEI M1,.PRIIN MOVEI M3,^D10 INTIME: NIN JRST BEGIN MOVE M1,M2 IMULI M1,^D60000 SLEEP: DISMS ENDPT: HALTF JRST BEGIN END BEGIN