*
* NO/GOOD 7/17/83 BY R. SHIPP (460-9353)
ERASE
? '///////////////////////////////////////////////'
? '/'
? '/'
? '/ ENTRY IS NO GOOD !!'
? '/ -------------------'
? '/'
? '/ TRY AGAIN !!!!!'
? '/'
? '/ PRESS ANY KEY TO CONTINUE'
? '/'
? '/////////////////////////////////////////////'
WAIT
RETURN
* THE END -- NO/GOOD
*

R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE,3) TO MPAGE
   SET PRINT ON
                          CODEN
SET PRINT OFF
SKIP
O MCN
IF *
   SKIP
ENDIF
STORE STR(#,3) TO RECE