*
* COD/LIS 7/16/83 BY R. SHIPP (460-9353)
ERASE
? 'CODE LETTERS ARE AS FOLLOWS:'
?
? '     A = ADMINISTRATIVE BOARD'
?
? '     C = COUNCIL OF MINISTRIES'
?
? '     D = DIRECTORY LIST'
?
? '     I = HOLD'
?
? '     L = HOLD'
?
? '     M = MEMBERS'
?
? '     N = NEW ENTRY'
?
? '     X = HOLD'
?
? '     Y = HOLD'
?
RETURN
* THE END -- COD/LIS
*

R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE,3) TO MPAGE
   SET PRINT ON
                          CODEN
SET PRINT OFF
SKAAAAAIVE D'
?
? '   9. FILE MAINTAIN (MUST USE DISK # 412)'
?
? '   0. SHUT DOWN S