5 COMMON LENGTH,SEQ$(),TITLE$,PRTFLG,SCRFLG,PLAFLG,DISK$,MAST,MAXL
6 KEY OFF
10 KEY(1) ON:ON KEY(1) GOSUB 310
20 KEY(2) ON:ON KEY(2) GOSUB 320
30 KEY(3) ON:ON KEY(3) GOSUB 330
40 KEY(4) ON:ON KEY(4) GOSUB 340
60 KEY(6) ON:ON KEY(6) GOSUB 360
70 KEY(7) ON:ON KEY(7) GOSUB 370
80 KEY(8) ON:ON KEY(8) GOSUB 380
90 KEY(9) ON:ON KEY(9) GOSUB 390
95 KEY(10) ON:ON KEY(10) GOSUB 395
98 GOSUB 100
99 GOTO 99
100 CLS:PRINT:PRINT:PRINT:COLOR 9,0:PRINT "KEY";:COLOR 7,0:PRINT "   ";:COLOR 9,0:PRINT "FUNCTION";:COLOR 7,0:PRINT "     ";:COLOR 9,0:PRINT "DESCRIPTION";:COLOR 7,0:PRINT:PRINT
110 PRINT " F1    MENU         Prints page one of this list"
120 PRINT " F2    FANCY        Prints and translates your sequence in one frame"
130 PRINT " F3    USAGE        Determines the codon usage in your sequence"
140 PRINT " F4    OVERLAP      Finds homologies within your sequences"
150 PRINT " F5                 Not implemented"
160 PRINT " F6                 Not implemented"
170 PRINT " F7                 Not implemented"
180 PRINT " F8    TYPE         Prints a specified file"
190 PRINT " F9    PRINTER      Changes the typeface used by the printer"
195 PRINT "F10    CONTROL      Changes the parameters which control program flow"
196 PRINT:PRINT:PRINT:PRINT "Depress the apropriate function key to continue."
200 RETURN
310 MAST=1:CHAIN "MASTER",5
320 IF MAST=2 THEN GOTO 400 ELSE MAST=2:CHAIN MERGE "FANCY",400,DELETE 500-1000
330 IF MAST=3 THEN GOTO 400 ELSE MAST=3:CHAIN MERGE "USAGE",400,DELETE 500-1000
340 IF MAST=4 THEN GOTO 400 ELSE MAST=4:CHAIN MERGE "OVER",400,DELETE 500-1000
350 IF MAST=5 THEN GOTO 400 ELSE MAST=5:CHAIN MERGE "",400,DELETE 500-1000
360 IF MAST=6 THEN GOTO 400 ELSE MAST=6:CHAIN MERGE "",400,DELETE 500-1000
370 IF MAST=7 THEN GOTO 400 ELSE MAST=7:CHAIN MERGE "",400,DELETE 500-1000
380 IF MAST=8 THEN GOTO 400 ELSE MAST=8:CHAIN MERGE "TYPE",400,DELETE 500-1000
390 IF MAST=9 THEN GOTO 400 ELSE MAST=9:CHAIN MERGE "PRINTER",400,DELETE 500-1000
395 IF MAST=10 THEN GOTO 400 ELSE MAST=10:CHAIN MERGE "CONTROL",400,DELETE 500-1000
400 CLS:KEY(1) ON:ON KEY(1) GOSUB 6:GOSUB 500
410 PRINT:PRINT "Strike any key to continue.":
420 A$=INKEY$:IF A$="" THEN 420 ELSE GOTO 10
500 RETURN
1000 END