*
* APP/DIR 8/23/83 BY R. SHIPP (460-9353)
ERASE
? '==============================================='
?
?
? ' APPEND MENU (ADD NEW DATA TO FILE)'
? ' ----------------------------------'
?
? '(*) TYPE DATA INTO RECORD'
?
? '(*) YOU WILL GO TO NEXT RECORD'
?
? '(*) CONTINUE TYPING DATA IN --OR--'
?
? '(*) STEP THROUGH RECORD AND YOU WILL GO BACK'
? '    TO MAIN MENU'
?
? '    1 = CONTINUE'
?
? '    / = EXIT BACK TO MAIN MENU'
?
? 'ENTER ONE OF THE ABOVE:'
?
? '==============================================='
WAIT TO TEMP
IF TEMP='/'
     USE
     DO MENU
ENDIF
ERASE
? '==============================================='
?
? 'IN THIS MODE YOU CAN USE THE (CARRY) COMMAND'
?
? 'This will carry-over data from previous'
?
? 'record to save on repetitious typing.'
?
? 'NOTE: YOU MUST TYPE NEW DATA IN 1 ST.FIELD OR'
? '====  I WILL THINK YOU ARE THROUGH !!'
?
? '    1 = CARRY MODE'
?
? '    2 = DO NOT USE CARRY MODE'
?
? 'ENTER ONE OF THE ABOVE:'
?
? '=============================================='
WAIT TO CARRY
DO CASE
   CASE CARRY='1'
        SET CARRY ON
   OTHERWISE
        SET CARRY OFF
ENDCASE
USE B:&FILE
APPE
USE
DO MENU
* THE END -- APP/DIR
*

R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE,3) TO MPAGE
   SET PRINT ON
                          above numbers:'
?
? '==============================================='
ACCEPT ' ' TO ASK
STORE 'FILE/1' TO FILE
DO CASE
CASE ASK = '1'
   DO HOLD
CASE ASK = '2'
   DO HOLD
CASE ASK = '3'
   DO CON/NUM
CASE ASK = '4'
   DO APP/DIR
CASE ASK ===R
CASE ASK ===O LN1