5 "  Name    MENU    Module of Creator.
10 CLS:CLEAR3000:DEFINTA-Z:PRINT
20 PRINTTAB(18);"CREATOR AND REPORTOR MENU":PRINT:PRINT
30 PRINTTAB(15);"You have the following choices:":PRINT
40 PRINT"      1. Write a program using the CREATOR."
50 PRINT"      2. Write a report program using the reportor."
60 PRINT"      3. Run a program or a report."
70 PRINT"      4. Sort a data file."
80 PRINT"      5. Create or re-create a key file."
90 PRINT"      6. Transfer data from a file created using the original"
100 PRINTTAB(9);"CREATOR to a file useable by the new version."
110 PRINT"      7. Quit, and exit to BASIC.":PRINT
120 PRINTTAB(10);"Please depress the number of your choice: ";
130 AN$=INKEY$:IFAN$=""THEN130
140 AN=VAL(AN$):IFAN<1ORAN>7THENRUN
150 IFAN=1THENCLS:PRINT"LOADING THE CREATOR.":RUN"CREATOR/BAS"
160 IFAN=2THENCLS:PRINT"LOADING THE REPORTOR.":RUN"REPORTOR/BAS"
170 IFAN=4THENCLS:PRINT"LOADING CHEAPSORT.":RUN"CSORT/BAS"
180 IFAN=5THENCLS:PRINT"LOADING REKEY.":RUN"REKEY/BAS"
190 IFAN=6THENCLS:PRINT"LOADING CXFER.":RUN"CXFER/BAS"
200 IFAN=7THENNEW
210 PRINT@960,STRING$(63,32):PRINT@960,"What's the name of the program to run: ";
220 LINEINPUTF$:CLS:PRINT"LOADING ";F$:RUNF$
                                                                                      