1 DIM SEQ$(20):DISK$=+quot;B:+quot;:PRTFLG=0:SCRFLG=1:MAXL=3000:PLAFLG=1 5 COMMON LENGTH,S

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

Skeptic Tank!

1 DIM SEQ$(20):DISK$="B:":PRTFLG=0:SCRFLG=1:MAXL=3000:PLAFLG=1 5 COMMON LENGTH,SEQ$(),TITLE$,PRTFLG,SCRFLG,PLAFLG,DISK$,MAST,MAXL 6 CLOSE: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 50 KEY(5) ON:ON KEY(5) GOSUB 350 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 two of this list" 120 PRINT " F2 ENTER Accepts your sequence from the keyboard" 130 PRINT " F3 EDIT Allows you to make changes in a file" 140 PRINT " F4 READ Reads a file containing your sequence" 150 PRINT " F5 PRINT Prints your sequence" 160 PRINT " F6 REST Finds restriction enzyme sites in your sequence" 170 PRINT " F7 SEARCH Finds all positions of a specified sequence" 180 PRINT " F8 TRANS Translates your sequence in all possible frames" 190 PRINT " F9 COMPII Compares two files" 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 "PAGE2" 320 IF MAST=2 THEN GOTO 400 ELSE MAST=2:CHAIN MERGE "ENTER",400,DELETE 500-1000 330 IF MAST=3 THEN GOTO 400 ELSE MAST=3:CHAIN MERGE "EDIT",400,DELETE 500-1000 340 IF MAST=4 THEN GOTO 400 ELSE MAST=4:CHAIN MERGE "READ",400,DELETE 500-1000 350 IF MAST=5 THEN GOTO 400 ELSE MAST=5:CHAIN MERGE "PRINT",400,DELETE 500-1000 360 IF MAST=6 THEN GOTO 400 ELSE MAST=6:CHAIN MERGE "REST",400,DELETE 500-1000 370 IF MAST=7 THEN GOTO 400 ELSE MAST=7:CHAIN MERGE "SEARCH",400,DELETE 500-1000 380 IF MAST=8 THEN GOTO 400 ELSE MAST=8:CHAIN MERGE "TRANS",400,DELETE 500-1000 390 IF MAST=9 THEN GOTO 400 ELSE MAST=9:CHAIN MERGE "COMPII",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 IF PRTFLG=1 THEN OPEN "LPT1:" FOR OUTPUT AS #2 510 IF PRTFLG=2 THEN INPUT "Enter the file which is to recieve the output: ",A$:OPEN DISK$+A$ FOR OUTPUT AS #2:PRINT 520 RESTORE:READ NENZ 530 IF PRTFLG THEN PRINT #2,TITLE$:PRINT #2,"" 540 PRINT "Sites searched for:":PRINT:IF PRTFLG THEN PRINT #2,"Sites searched for:":PRINT #2,"" 550 FOR I=1 TO NENZ 560 READ ENZ$,CUT,NPAL:FOR J=1 TO NPAL:READ PAL$:NEXT 570 PRINT USING "\ \";ENZ$;:IF PRTFLG THEN PRINT #2,USING "\ \";ENZ$; 580 IF I MOD 9 = 0 THEN PRINT:IF PRTFLG THEN PRINT #2,"" 590 NEXT 600 PRINT:PRINT:PRINT "Sites found:":PRINT:IF PRTFLG THEN PRINT #2,"":PRINT #2,"":PRINT #2,"Sites found:":PRINT #2,"" 610 RESTORE:READ NENZ:LFFLG=10 620 FOR K=1 TO NENZ 630 READ ENZ$,CUT,NPAL 640 NAMFLG=1:F=0 650 FOR I=1 TO NPAL 660 R=1:J=1:READ PAL$ 670 IF (R+1)*250>LENGTH THEN SEARCH$=SEQ$(R):GOTO 690 680 SEARCH$=SEQ$(R)+LEFT$(SEQ$(R+1),LEN(PAL$)-1) 690 P=INSTR(J,SEARCH$,PAL$) 700 IF P>0 THEN IF NAMFLG THEN NAMFLG=0:PRINT USING "\ \";ENZ$;:IF PRTFLG THEN PRINT #2,USING "\ \";ENZ$; 710 IF P>0 THEN IF F=10 THEN F=0:PRINT:PRINT " ";:IF PRTFLG THEN PRINT #2,"":PRINT #2," "; 720 IF P>0 THEN J=P+1:F=F+1:PRINT USING " #### ";(R-1)*250+P+CUT;:IF PRTFLG THEN PRINT #2,USING " #### ";(R-1)*250+P+CUT;:GOTO 690 ELSE GOTO 690 730 IF R*2500) THEN 790 770 LFFLG=1:BEEP 780 A$=INKEY$:IF A$="" GOTO 780 790 NEXT K 800 RETURN 810 DATA 64 820 DATA AatII,5,1,GACGCT,AccI,2,4,GTCTAC,GTCGAC,GTATAC,GTAGGC,AhaIII,0,1,TTTAAA,AluI,2,1,AGCT,AsuI,1,4,GGACC,GGCCC,GGGCC,GGTCC,AvaI,1,4,CCCGAG,CCCGGG,CTCGAG,CTCGGG,AvaII,1,2,GGTCC,GGACC 830 DATA BalI,3,1,TGGCCA,BamHI,1,1,GGATCC,BclI,1,1,TGATCA,BglII,1,1,AGATCT 840 DATA BssHI,1,1,GCGCGC,BstNI,2,2,CCTGG,CCAGG,CfoI,3,1,GCGC,ClaI,2,1,ATCGAT,DdeI,1,4,CTAAG,CTCAG,CTGAG,CTTAG,DraI,3,1,TTTAAA 850 DATA EcoRI,1,1,GAATTC,EcoRII,0,2,CCTGG,CCAGG,EcoRV,5,1,GATATC,Fnu4HI,2,4,GCAGC,GCCGC,GCGGC,GCTGC,FnuDII,2,1,CGCG 860 DATA HaeII,5,4,AGCGCC,AGCGCT,GGCGCC,GGCGCT,HaeIII,2,1,GGCC,HgiAI,5,4,GTGCTC,GTGCAC,GAGCTC,GAGCAC,HhaI,3,1,GCGC 870 DATA HincII,3,4,GTCAAC,GTCGAC,GTTAAC,GTTGAC,HindIII,1,1,AAGCTT,HinfI,1,4,GAATC,GACTC,GAGTC,GATTC 880 DATA HpaI,3,1,GTTAAC,HpaII,1,1,CCGG,KpnI,5,1,GGTACC,MboI,0,1,GATC,MluI,1,1,ACGCGT,MspI,1,1,CCGG,MstI,3,1,TGCGCA 890 DATA NaeI,1,1,GCCGGC,NarI,2,1,GGCGCC,NciI,2,2,CCGGG,CCCGG,NcoI,1,1,CCATGG,NdeI,2,1,CATATG,NruI,3,1,TCGCGA 900 DATA PaeR7I,1,1,CTCGAG,PstI,5,1,CTGCAG,PvuI,4,1,CGATCG,PvuII,3,1,CAGCTG,RsaI,2,1,GTAC,SacI,5,1,GAGCTC,SacII,4,1,CCGCGG 910 DATA SalI,1,1,GTCGAC,Sau3AI,0,1,GATC,Sau96I,1,4,GGACC,GGCCC,GGGCC,GGTCC,ScrFI,2,4,CCAGG,CCCGG,CCGGG,CCTGG,SmaI,3,1,CCCGGG,SphI,5,1,GCATGC 920 DATA SspI,3,1,AATATT,StuI,3,1,AGGCCT,SstII,4,1,CCGCGG,TaqI,1,1,TCGA,ThaI,2,1,CGCG,XbaI,1,1,TCTAGA 930 DATA XhoI,1,1,CTCGAG,XmaI,1,1,CCCGGG,XorII,4,1,CGATCG 1000 END

---

E-Mail Fredric L. Rice / The Skeptic Tank