0MODE7 10*|" Seth....Version 3.1 20*|" I Think Therefore I Am 30*|" 251 Words 40*|" 04/09/88 jAmES LaWSon 50num=30 60done=FALSE 70CLS:PRINT''':guse=0:used=0:max=0:wa s=FALSE:start=FALSE:are=FALSE:like=FALSE :my=FALSE:whata=FALSE:think=FALSE:last$= "":obj=FALSE:who=FALSE:l$="":says=FALSE 80IF done THEN GOTO 180 90DIMnum(num) 100FOR A=1 TO num:READ num(A) 110IF num(A)>max THEN max=num(A) 120NEXT 130DIMgroup$(num,max) 140FOR A=1 TO num 150FOR B=1 TO num(A) 160READgroup$(A,B) 170NEXT:NEXT 180done=TRUE:PROCsentan:PROCend:END 190DATA6,19,8,7,6,20,6,12,5,10,7,4,5,1 3,7,1,12,5,6,4,11,13,5,5,13,7,4,8,14,8 200DATAthe,my,your,their,our,a 210DATAcat,dog,dinosaur,gerbil,rat,boy ,girl,monster,worm,gran,postman,snake,af rican limbo dancer,rhino,lesser spotted parrot,green guinea pig,penguin,iguana,m um 220DATAsat,stood,layed down,slouched,k nelt,sat crossed legged,flumped down,exp loded 230DATAon,by,next to,beside,behind,inf ront of,to the side of 240DATAthe,my,your,their,our,a 250DATAtable,mat,chair,video,car,relia nt robin,book,rolls royce,wheel barrow,p lant pot,television,hoover,compact disc player,magazine,bottle of wine,telephone ,dustbin,fountain pen,news paper,acid ho use track 260DATAcould,would,will,should,might,m ay 270DATAsit,stand,lay down,slouch,spit, throw up,die,faint,collapse,explode,fly, create bombs 280DATAshot,killed,smashed,walked,atta cked 290DATAbroke,destroyed,smashed,overhea ting,melting,carresing,killing,exploding ,spontainiously combusting,spontainiousl y combusted 300DATAdogs,cats,gerbils,rats,boys,gir ls,toys 310DATAbe,not be,never be,always be 320DATAwe,they,you,he,she 330DATAtogether,apart,stupid,silly,a b ig green bogie,a family pizza,an atom bo mb,a teenybopper,a genius,a giant squirr el,a pink elephant,a working BT Payphone ,an escaped phsyco 340DATAthe,my,your,their,our,some,a fe w 350DATAi 360DATAdead,alive,mental,wierd,tired,f lying,crashing,exploding,disintagrating, melting,ageing,moving 370DATAbroke,destroyed,smashed,spontai niously combusted,dissasembled 380DATAoverheating,melting,carrasing,k illing,exploding,spontainiously Combusti ng 390DATAwhat a,thats a,that is a,gosh a 400DATAfine,glorious,crap,useless,wort hless,pathetic,amazing,wicked,sponditiou s,boring,exciting 410DATAtogether,apart,stupid,silly,big green bogies,family pizzas,atom bombs,t eenyboppers,geniuses,giant squirrels,pin k elephants,working BT payphones,escaped phsycos 420DATAshoots,kills,smashes,walks,atta cks 430DATAi think,i hope,i know,i guess,i concluded 440DATAtables,mats,chairs,videos,cars, reliant robins,books,rolls royces,wheel barrows,plant pots,televisions,hoovers,c ompact disc players 450DATAthe,my,your,their,our,some,a fe w 460DATAto be,not to be,never to be,alw ays to be 470DATAquietly,messily,noisily,loudly, tidily,peacefully,angrily,casually 480DATAthinks,hopes,knows,guesses,conc ludes,hoped,knows,guessed,concluded,is a nurse,is a cambridge student,is an IRA terrorist,died last week,was born in a m orris minor 490DATAi am,i was,i might be,i could b e,i should be,i can,i could,i should 500DEFPROCvowel:IF INSTR(group$(a,word ),"a")=1 THEN VDU8:PRINT"n "; 510IF INSTR(group$(a,word),"e")=1 THEN VDU8:PRINT"n "; 520IF INSTR(group$(a,word),"i")=1 THEN VDU8:PRINT"n "; 530IF INSTR(group$(a,word),"o")=1 THEN VDU8:PRINT"n "; 540ENDPROC 550DEFPROCword 560word=RND(num(a)):IF num(a)=1 word=1 570IF a=8 AND obj AND word<10 GOTO 560 580IF a=29 AND l$<>"who" AND word>9 VD U8:PROCadd(", who "):l$="w":who=TRUE 590IF a=29 AND word>9 l$="w":who=TRUE 600IF a=20 AND word=1 THEN whata=TRUE 610IF a=guse AND word=used GOTO 560 620IF l$="a" PROCvowel 630IF (38-POS)<LEN(group$(a,word)) PRI NT'" "; 640PRINTgroup$(a,word); 650IF a=2 OR a=6 OR a=11 THEN guse=a:u sed=word 660IF l$="w" PROCend 670l$=group$(a,word) 680ENDPROC 690DEFPROCspace:PRINT" ";:ENDPROC 700DEFPROCrand2(a1,a2):z=RND(2):IF z=1 THEN a=a1:ENDPROC ELSE a=a2:ENDPROC 710DEFPROCrand3(a1,a2,a3):z=RND(3):IF z=1 THEN a=a1:ENDPROC 720IF z=2 THEN a=a2:ENDPROC ELSE a=a3: ENDPROC 730DEFPROCrand4(a1,a2,a3,a4):z=RND(4): IF z=1 THEN a=a1:ENDPROC 740IF z=2 THEN a=a2:ENDPROC 750IF z=3 THEN a=a3:ENDPROC ELSE a=a4: ENDPROC 760DEFPROCrand5(a1,a2,a3,a4,a5):z=RND( 5):IF z=1 THEN a=a1:ENDPROC 770IF z=2 THEN a=a2:ENDPROC 780IF z=3 THEN a=a3:ENDPROC 790IF z=4 THEN a=a4:ENDPROC ELSE a=a5: ENDPROC 800DEFPROCrand6(a1,a2,a3,a4,a5,a6):z=R ND(6):IF z=1 THEN a=a1:ENDPROC 810IF z=2 THEN a=a2:ENDPROC 820IF z=3 THEN a=a3:ENDPROC 830IF z=4 THEN a=a4:ENDPROC 840IF z=5 THEN a=a5:ENDPROC ELSE a=a6: ENDPROC 850DEFPROCrand8(a1,a2,a3,a4,a5,a6,a7,a 8):z=RND(8):IF z=1 THEN a=a1:ENDPROC 860IF z=2 THEN a=a2:ENDPROC 870IF z=3 THEN a=a3:ENDPROC 880IF z=4 THEN a=a4:ENDPROC 890IF z=5 THEN a=a5:ENDPROC 900IF z=6 THEN a=a6:ENDPROC 910IF z=7 THEN a=a7:ENDPROC ELSE a=a8: ENDPROC 920DEFPROCrand9(a1,a2,a3,a4,a5,a6,a7,a 8,a9):z=RND(9):IF z=1 THEN a=a1:ENDPROC 930IF z=2 THEN a=a2:ENDPROC 940IF z=3 THEN a=a3:ENDPROC 950IF z=4 THEN a=a4:ENDPROC 960IF z=5 THEN a=a5:ENDPROC 970IF z=6 THEN a=a6:ENDPROC 980IF z=7 THEN a=a7:ENDPROC 990IF z=8 THEN a=a8:ENDPROC ELSE a=a9: ENDPROC 1000DEFPROCrand10(a1,a2,a3,a4,a5,a6,a7, a8,a9,a10):z=RND(10):IF z=1 THEN a=a1:EN DPROC 1010IF z=2 THEN a=a2:ENDPROC 1020IF z=3 THEN a=a3:ENDPROC 1030IF z=4 THEN a=a4:ENDPROC 1040IF z=5 THEN a=a5:ENDPROC 1050IF z=6 THEN a=a6:ENDPROC 1060IF z=7 THEN a=a7:ENDPROC 1070IF z=8 THEN a=a8:ENDPROC 1080IF z=9 THEN a=a9:ENDPROC ELSE a=a10 :ENDPROC 1090DEFPROCadd(s$):IF (38-POS)<LEN(s$) PRINT 1100PRINTs$;:ENDPROC 1110DEFPROCend:IF says PROCadd(". ""):P RINT''''" Press Any Key.":A=GET:GOTO70:E NDPROC 1120IF who THEN PROCadd(", says ""):say s=TRUE:start=FALSE:GOTO180 1130PRINT".":PRINT''''" Press Any Key." :A=GET:GOTO70:ENDPROC 1140DEFPROCsentan 1150PROCrand6(20,1,15,24,16,13) 1160IF a=20 my=TRUE 1170PROCspace 1180PROCword 1190IF a=1 a=2:GOTO1170 1200IF a=2 PROCgroup2:GOTO1170 1210IF a=3 PROCrand2(4,28):GOTO1170 1220IF a=4 PROCrand3(1,5,15):GOTO1170 1230IF a=5 a=6:GOTO1170 1240IF a=6 PROCgroup6:GOTO1170 1250IF a=7 PROCrand2(8,12):GOTO1170 1260IF a=8 PROCgroup8:GOTO1170 1270IF a=9 PROCgroup9:GOTO1170 1280IF a=10 AND was THEN ENDPROC 1290IF a=10 PROCrand3(1,5,15):GOTO1170 1300IF a=11 PROCgroup11:GOTO1170 1310IF a=12 PROCrand4(14,1,5,15):GOTO11 70 1320IF a=13 start=TRUE:PROCrand4(3,7,9, 18):GOTO1170 1330IF a=14 ENDPROC 1340IF a=15 a=11:GOTO1170 1350IF a=16 PROCgroup16:GOTO1170 1360IF a=17 AND my THEN PROCrand2(2,6): GOTO1170 1370IF a=17 ENDPROC 1380IF a=18 AND was THEN ENDPROC 1390IF a=18 AND are THEN ENDPROC 1400IF a=18 AND my PROCrand2(2,6):GOTO1 170 1410IF a=18 a=5:GOTO1170 1420IF a=19 AND was THEN ENDPROC 1430IF a=19 PROCrand4(1,11,5,15):GOTO11 70 1440IF a=20 my=TRUE:l$="a":PROCrand5(2, 6,21,17,18):GOTO1170 1450IF a=21 AND my PROCrand3(17,2,6):GO TO1170 1460IF a=21 ENDPROC 1470IF a=22 ENDPROC 1480IF a=24 PROCgroup24:GOTO1170 1490IF a=25 PROCgroup25:GOTO1170 1500IF a=26 a=25:GOTO1170 1510IF a=27 PROCrand5(14,1,5,15,11):GOT O1170 1520IF a=29 PROCadd(" that"):start=FALS E:GOTO1150 1530IF a=28 PROCrand2(4,-1):IF a=4 GOTO 1170 1540IF a=-1 AND last$="am" a=4 1550ENDPROC 1560DEFPROCgroup2 1570PROCrand10(3,29,7,9,23,18,-1,-2,-3, -4) 1580IF start PROCend:END 1590IF my THEN 1660 1600IF a<>29 THEN 1620 1610PROCrand2(-1,-2):IF a=-1 a=29:PROCa dd(", who"):l$="who":who=TRUE ELSE a=29 1620IF a=-1 PROCrand4(3,9,18,1):PROCadd (" was"):was=TRUE 1630IF a=-2 PROCrand5(5,1,15,11,19):PRO Cadd(" likes") 1640IF a=-3 PROCrand5(5,1,15,11,19):PRO Cadd(" liked") 1650IF a=-4 PROCrand3(17,4,14):PROCadd( " is") 1660IF NOT my THEN 1700 1670PROCrand3(-1,-2,-3) 1680IF whata AND a=-1 THEN PROCadd(" th at is"):PROCend 1690IF whata AND a=-2 THEN PROCadd(" th at was"):PROCend ELSE PROCend 1700start=TRUE:ENDPROC 1710DEFPROCgroup6 1720PROCrand3(7,9,-1) 1730IF start PROCend:END 1740IF my THEN 1760 1750IF a=-1 PROCrand2(9,18):PROCadd(" w as"):was=TRUE 1760IF NOT my THEN 1800 1770PROCrand3(-1,-2,-3) 1780IF whata AND a=-1 THEN PROCadd(" th at is"):PROCend 1790IF whata AND a=-2 THEN PROCadd(" th at was"):PROCend ELSE PROCend 1800start=TRUE:obj=TRUE 1810DEFPROCgroup8 1820PROCrand3(4,28,-1) 1830IF a=-1 PROCend:END 1840ENDPROC 1850DEFPROCgroup9 1860IF NOT was AND NOT are THEN 1890 1870PROCrand2(4,-1):IF a=-1 PROCend:END 1880ENDPROC 1890PROCrand3(1,11,15) 1900ENDPROC 1910DEFPROCgroup11 1920PROCrand10(3,7,9,18,-1,-2,-3,-4,-5, -6) 1930IF start PROCend:END 1940IF think AND a>0 OR a=-4 GOTO 1920 1950IF a=-1 PROCrand4(3,9,10,1):PROCadd (" were"):was=TRUE 1960IF a=-2 PROCrand4(5,1,15,11):PROCad d(" like") 1970IF a=-3 PROCrand4(5,1,15,11):PROCad d(" liked") 1980IF a=-4 PROCrand5(3,9,18,11,22):PRO Cadd(" are"):are=TRUE 1990IF a<>-6 THEN 2030 2000PROCrand2(-1,-2) 2010IF a=-1 THEN PROCadd(" are all") EL SE PROCadd(" are") 2020a=21 2030IF a<>-5 THEN 2060 2040PROCrand5(3,9,18,11,22) 2050IF a=18 OR a=22 OR like OR a=11 PRO Cadd(" are all"):are=TRUE:ELSE PROCadd(" all") 2060start=TRUE:ENDPROC 2070DEFPROCgroup16 2080PROCrand9(8,3,7,9,18,-1,-2,-3,-4) 2090IF a=-1 PROCrand6(1,5,11,15,19,27): PROCadd(" like") 2100IF a=-2 a=8:PROCadd(" like to") 2110IF a=-3 PROCrand4(3,9,10,1):PROCadd (" was"):was=TRUE 2120IF a=-4 PROCrand3(17,4,14):PROCadd( " am"):last$="am" 2130start=TRUE:ENDPROC 2140DEFPROCgroup24 2150PROCrand5(30,26,15,-1,-2) 2160IF a=-1 PROCrand3(26,15,30):PROCadd (" that") 2170IF a=-2 PROCrand3(26,15,30):PROCadd (" therefore") 2180think=TRUE:ENDPROC 2190DEFPROCgroup25 2200PROCrand6(-1,-2,-3,-4,-5,-6) 2210IF a=-1 PROCrand4(3,9,10,1):PROCadd (" were"):was=TRUE 2220IF a=-2 PROCrand4(5,1,15,11):PROCad d(" like") 2230IF a=-3 PROCrand4(5,1,15,11):PROCad d(" liked") 2240IF a=-4 PROCrand5(3,9,18,11,22):PRO Cadd(" are"):are=TRUE 2250IF a<>-6 THEN 2290 2260PROCrand2(-1,-2) 2270IF a=-1 THEN PROCadd(" are all") EL SE PROCadd(" are") 2280a=21 2290IF a<>-5 THEN 2320 2300PROCrand5(3,9,18,11,22) 2310IF a=18 OR a=22 OR like OR a=11 PRO Cadd(" are all"):are=TRUE:ELSE PROCadd(" all") 2320start=TRUE:ENDPROC