* * EDI/DIR 8/11/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' EDIT DATA MENU ' ? ' --------------' ? ? '(*) TYPE DATA TO BE CHANGED INTO RECORD ' ? ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN' ? ' (ENTER RECORD)' ? ? '(*) TYPE RECORD # TO CONTINUE --OR--' ? ' RETURN KEY TO EXIT BACK TO MAIN MENU' ? ? '(*) TYPE CTRL. (U) TO DELETE A RECORD' ? ' -OR- WHEH RECORD IS DELETED' ? ' CTRL. (U) WILL UNDELETE' ? ? ' ENTER:' ? ' 1 TO CONTINUE' ? ? ' / EXIT BACK TO MAIN MENU' ? ? '===============================================' WAIT TO EXIT DO CASE CASE EXIT = '/' USE DO MENU ENDCASE USE B:&FILE ERASE EDIT USE DO MENU * THE END -- EDI/DIR * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          ' ? ? ' Enter one of the 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/NU00871-2222Bought'78 $100K VA 8% ====' ? ? ' EDIT DATA MENU ' ? ' --------------' ? ? '(*) TYPE DATA TO BE CHANGED INTO RECORD ' ? ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN' ? ' (ENTER RECORD)' ? ? '(*) TYPE RECORD # TO CONTINUE --OR--' ? ' RETURN KEY TO EXIT BACK TO MAIN MENU' ? ? '(*) TYPE CTRL. (U) TO DELETE A RECORD' ? ' -OR- WHEH RECORD IS DELETED' ? ' CTRL. (U) WILL UNDELETE' ? ? 'PRESS ANY K