* * MAI/HOL 8/11/83 BY R. SHIPP (460-9353) ERASE ? '==============================================' ? ? ' MAINTENANCE FILE MENU' ? ' ---------------------' ? ? ? ' MAINTENANCE FILE PROGRAMS ARE USED BY HIGH' ? ' LEVEL OPERATORS IN CONJUNCTION WITH DISK' ? ' NUMBER 412.' ? ? ' YOU WILL RETURN TO THE MAIN MENU FOR ANOTHER' ? ' SELECTION.' ? ? ' ENTER:' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? '==============================================' WAIT USE DO MENU * THE END -- MAI/HOL * ===============' ? ? 'LABEL MENU' ? '----------' ? ? 'In order to continue with this program you will' ? 'need to know and do the following' ? ? ' * Insert label datebase file into drive B' ? ' * Load the printer with 2 up label paper' ? ' * Push the select switch on Printer so that' ? ' both green lights are on' ? ? ' 1 = To continue with this program' ?  FILE DO CASE CASE ASK = '1' DO LAB/MAI CASE ASK = '2' DO PRI/MEN CASE ASK = '3' DO DEL/ADD CASE ASK = '4' DO APP/DIR CASE ASK = '5' DO EDI/DIR CASE ASK = '6' DO LIS/FIL CASE ASK = '7' DO HOLD CASE ASK = '8' DO HOLD CASE ASK = '9' DO MAI/HOL CASE ASK = '0' USE QUIT OTHERWISE DO NO/GOOD ENDCASE DO MENU * THE END -- MENU * w@!w?R. SHIPP(460-9353) RELEASE ALL * ADD ALL CUSTOM ITEMS HERE STORE 'GLENMONT UNITED METHODIST CHURCH' TO LN1 STORE '* Church Phone 946-5577 *' TO LN2 STORE '* 12901 GEORGIA AVENUE *' TO LN3 STORE '* SILVER SPRING ,MD 20906 *' TO LN4 STORE 'FILE/5' TO FILE STORE 'MASTER.NDX' TO IFILE * END OF CUSTOM ITEMS ERASE ? '*** MAIN SELECTION MENU ***' ? ' -------------------' ? ' 1. MAILING LABELS' ? ? ' 2. PRINT FILE OUT' ? ? ' 3. ENTER NEW DATA O