* * COP/SHO 8/23/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' COPY MENU (MAKE A BACKUP DISK)' ? ' ------------------------------' ? ? '(*) ATER COPY PROGRAM IS BOOTED UP' ? ? '(*) FOLLOW THE INSTRUCTIONS IN PROGRAM' ? ? '(*) AFTER YOU EXIT TO A< THEN TYPE DBASE' ? ? '(*) ADD THE DATE BACK IN' ? ? '(*) THEN TYPE ( DO MENU )' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '===============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF QUIT TO 'COPY' DO MENU * THE END -- COP/SHO * 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 = '5' DO EDI/DIR CASE ASK = '6' DO LIS/FIL CTROL (U) TO DELETww