10 DEFINT A-Z
20 FOR I=1 TO 24:PRINT:NEXT I
30 PRINT"CREATOR AND REPORTOR ARE TRADEMARKS OF T.N.T. SOFTWARE, INC."
40 PRINT"34069 HAINESVILLE ROAD, ROUND LAKE IL 60073. THESE PROGRAMS"
50 PRINT"ARE NOT TO BE SOLD WITHOUT THE EXPRESS WRITTEN PERMISSION OF"
60 PRINT"T.N.T. SOFTWARE, INC. VIOLATORS WILL BE PROSECUTED!"
70 PRINT"IF YOU GOT THIS PROGRAM FROM A FRIEND, AND WANT DOCUMENTATION,"
80 PRINT"SEND $10, + $1 POSTAGE & HANDLING, TO T.N.T. SOFTWARE, INC."
90 PRINT"A NEWSLETTER IS AVAILABLE FOR $10 PER YEAR IN THE U.S., CANADA,"
100 PRINT"AND MEXICO (PUBLISHED QUARTERLY). WRITE AND ASK FOR OUR CATALOG."
110 PRINT
120 PRINT"                   CREATOR AND REPORTOR MENU ":PRINT:PRINT
130 PRINT" You have the following choices: "
140 PRINT"   1. Write a program using the CREATOR."
150 PRINT"   2. Write a report program using the REPORTOR."
160 PRINT"   3. Run a program or a report."
170 PRINT"   4. Sort a data file."
180 PRINT"   5. Create or re-create a key file."
190 PRINT"   6. Quit, and exit to BASIC.":PRINT:PRINT
200 PRINT" Please depress the number of your choice: ";
210 AN$=INPUT$(1)
220 AN=VAL(AN$):IF AN<1 OR AN>6 THEN RUN
230 IF AN=1 THEN PRINT CHR$(13);STRING$(60,32);CHR$(13);"LOADING THE CREATOR.":RUN"CREATOR.BAS"
240 IF AN=2 THEN PRINT CHR$(13);STRING$(60,32);CHR$(13);"LOADING THE REPORTOR.":RUN"REPORTOR.BAS"
250 IF AN=4 THEN PRINT CHR$(13);STRING$(60,32);CHR$(13);"EXITING TO OPERATING SYSTEM FOR CHEAPSORT.":SYSTEM
260 IF AN=5 THEN PRINT CHR$(13);STRING$(60,32);CHR$(13);"LOADING REKEY.":RUN"REKEY.BAS"
270 IF AN=6 THEN NEW
280 PRINT CHR$(13);STRING$(60,32);CHR$(13);:PRINT"What's the name of the program to run: ";
290 LINE INPUT F$:PRINT"LOADING ";F$:RUN F$