5 COMMON LENGTH,SEQ$(),TITLE$,PRTFLG,SCRFLG,PLAFLG,DISK$,MAST,MAXL 6 KEY OFF 10 KEY(1) ON:

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

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

---

E-Mail Fredric L. Rice / The Skeptic Tank