0 MODE7 10 *|"ƒSeth....Version 3.1 20 *|"†I Think Therefore I Am 30 *|"…251 Words 40 *|"‚04/09/88jAmES LaWSon 50 num=30 60 done=FALSE 70 CLS:PRINT''':guse=0:used=0:max=0:was=FALSE:start=FALSE:are=FALSE:like=FALSE:my=FALSE:whata=FALSE:think=FALSE:last$="":obj=FALSE:who=FALSE:l$="":says=FALSE 80 IF done THEN GOTO 180 90 DIMnum(num) 100 FOR A=1 TO num:READ num(A) 110 IF num(A)>max THEN max=num(A) 120 NEXT 130 DIMgroup$(num,max) 140 FOR A=1 TO num 150 FOR B=1 TO num(A) 160 READgroup$(A,B) 170 NEXT:NEXT 180 done=TRUE:PROCsentan:PROCend:END 190 DATA6,19,8,7,6,20,6,12,5,10,7,4,5,13,7,1,12,5,6,4,11,13,5,5,13,7,4,8,14,8 200 DATAthe,my,your,their,our,a 210 DATAcat,dog,dinosaur,gerbil,rat,boy,girl,monster,worm,gran,postman,snake,african limbo dancer,rhino,lesser spotted parrot,green guinea pig,penguin,iguana,mum 220 DATAsat,stood,layed down,slouched,knelt,sat crossed legged,flumped down,exploded 230 DATAon,by,next to,beside,behind,infront of,to the side of 240 DATAthe,my,your,their,our,a 250 DATAtable,mat,chair,video,car,reliant robin,book,rolls royce,wheel barrow,plant pot,television,hoover,compact disc player,magazine,bottle of wine,telephone,dustbin,fountain pen,news paper,acid house track 260 DATAcould,would,will,should,might,may 270 DATAsit,stand,lay down,slouch,spit,throw up,die,faint,collapse,explode,fly,create bombs 280 DATAshot,killed,smashed,walked,attacked 290 DATAbroke,destroyed,smashed,overheating,melting,carresing,killing,exploding,spontainiously combusting,spontainiously combusted 300 DATAdogs,cats,gerbils,rats,boys,girls,toys 310 DATAbe,not be,never be,always be 320 DATAwe,they,you,he,she 330 DATAtogether,apart,stupid,silly,a big green bogie,a family pizza,an atom bomb,a teenybopper,a genius,a giant squirrel,a pink elephant,a working BT Payphone,an escaped phsyco 340 DATAthe,my,your,their,our,some,a few 350 DATAi 360 DATAdead,alive,mental,wierd,tired,flying,crashing,exploding,disintagrating,melting,ageing,moving 370 DATAbroke,destroyed,smashed,spontainiously combusted,dissasembled 380 DATAoverheating,melting,carrasing,killing,exploding,spontainiously Combusting 390 DATAwhat a,thats a,that is a,gosh a 400 DATAfine,glorious,crap,useless,worthless,pathetic,amazing,wicked,sponditious,boring,exciting 410 DATAtogether,apart,stupid,silly,big green bogies,family pizzas,atom bombs,teenyboppers,geniuses,giant squirrels,pink elephants,working BT payphones,escaped phsycos 420 DATAshoots,kills,smashes,walks,attacks 430 DATAi think,i hope,i know,i guess,i concluded 440 DATAtables,mats,chairs,videos,cars,reliant robins,books,rolls royces,wheel barrows,plant pots,televisions,hoovers,compact disc players 450 DATAthe,my,your,their,our,some,a few 460 DATAto be,not to be,never to be,always to be 470 DATAquietly,messily,noisily,loudly,tidily,peacefully,angrily,casually 480 DATAthinks,hopes,knows,guesses,concludes,hoped,knows,guessed,concluded,is a nurse,is a cambridge student,is an IRA terrorist,died last week,was born in a morris minor 490 DATAi am,i was,i might be,i could be,i should be,i can,i could,i should 500 DEFPROCvowel:IF INSTR(group$(a,word),"a")=1 THEN VDU8:PRINT"n "; 510 IF INSTR(group$(a,word),"e")=1 THEN VDU8:PRINT"n "; 520 IF INSTR(group$(a,word),"i")=1 THEN VDU8:PRINT"n "; 530 IF INSTR(group$(a,word),"o")=1 THEN VDU8:PRINT"n "; 540 ENDPROC 550 DEFPROCword 560 word=RND(num(a)):IF num(a)=1 word=1 570 IF a=8 AND obj AND word<10 GOTO 560 580 IF a=29 AND l$<>"who" AND word>9 VDU8:PROCadd(", who "):l$="w":who=TRUE 590 IF a=29 AND word>9 l$="w":who=TRUE 600 IF a=20 AND word=1 THEN whata=TRUE 610 IF a=guse AND word=used GOTO 560 620 IF l$="a" PROCvowel 630 IF (38-POS)29 THEN 1620 1610 PROCrand2(-1,-2):IF a=-1 a=29:PROCadd(", who"):l$="who":who=TRUE ELSE a=29 1620 IF a=-1 PROCrand4(3,9,18,1):PROCadd(" was"):was=TRUE 1630 IF a=-2 PROCrand5(5,1,15,11,19):PROCadd(" likes") 1640 IF a=-3 PROCrand5(5,1,15,11,19):PROCadd(" liked") 1650 IF a=-4 PROCrand3(17,4,14):PROCadd(" is") 1660 IF NOT my THEN 1700 1670 PROCrand3(-1,-2,-3) 1680 IF whata AND a=-1 THEN PROCadd(" that is"):PROCend 1690 IF whata AND a=-2 THEN PROCadd(" that was"):PROCend ELSE PROCend 1700 start=TRUE:ENDPROC 1710 DEFPROCgroup6 1720 PROCrand3(7,9,-1) 1730 IF start PROCend:END 1740 IF my THEN 1760 1750 IF a=-1 PROCrand2(9,18):PROCadd(" was"):was=TRUE 1760 IF NOT my THEN 1800 1770 PROCrand3(-1,-2,-3) 1780 IF whata AND a=-1 THEN PROCadd(" that is"):PROCend 1790 IF whata AND a=-2 THEN PROCadd(" that was"):PROCend ELSE PROCend 1800 start=TRUE:obj=TRUE 1810 DEFPROCgroup8 1820 PROCrand3(4,28,-1) 1830 IF a=-1 PROCend:END 1840 ENDPROC 1850 DEFPROCgroup9 1860 IF NOT was AND NOT are THEN 1890 1870 PROCrand2(4,-1):IF a=-1 PROCend:END 1880 ENDPROC 1890 PROCrand3(1,11,15) 1900 ENDPROC 1910 DEFPROCgroup11 1920 PROCrand10(3,7,9,18,-1,-2,-3,-4,-5,-6) 1930 IF start PROCend:END 1940 IF think AND a>0 OR a=-4 GOTO 1920 1950 IF a=-1 PROCrand4(3,9,10,1):PROCadd(" were"):was=TRUE 1960 IF a=-2 PROCrand4(5,1,15,11):PROCadd(" like") 1970 IF a=-3 PROCrand4(5,1,15,11):PROCadd(" liked") 1980 IF a=-4 PROCrand5(3,9,18,11,22):PROCadd(" are"):are=TRUE 1990 IF a<>-6 THEN 2030 2000 PROCrand2(-1,-2) 2010 IF a=-1 THEN PROCadd(" are all") ELSE PROCadd(" are") 2020 a=21 2030 IF a<>-5 THEN 2060 2040 PROCrand5(3,9,18,11,22) 2050 IF a=18 OR a=22 OR like OR a=11 PROCadd(" are all"):are=TRUE:ELSE PROCadd(" all") 2060 start=TRUE:ENDPROC 2070 DEFPROCgroup16 2080 PROCrand9(8,3,7,9,18,-1,-2,-3,-4) 2090 IF a=-1 PROCrand6(1,5,11,15,19,27):PROCadd(" like") 2100 IF a=-2 a=8:PROCadd(" like to") 2110 IF a=-3 PROCrand4(3,9,10,1):PROCadd(" was"):was=TRUE 2120 IF a=-4 PROCrand3(17,4,14):PROCadd(" am"):last$="am" 2130 start=TRUE:ENDPROC 2140 DEFPROCgroup24 2150 PROCrand5(30,26,15,-1,-2) 2160 IF a=-1 PROCrand3(26,15,30):PROCadd(" that") 2170 IF a=-2 PROCrand3(26,15,30):PROCadd(" therefore") 2180 think=TRUE:ENDPROC 2190 DEFPROCgroup25 2200 PROCrand6(-1,-2,-3,-4,-5,-6) 2210 IF a=-1 PROCrand4(3,9,10,1):PROCadd(" were"):was=TRUE 2220 IF a=-2 PROCrand4(5,1,15,11):PROCadd(" like") 2230 IF a=-3 PROCrand4(5,1,15,11):PROCadd(" liked") 2240 IF a=-4 PROCrand5(3,9,18,11,22):PROCadd(" are"):are=TRUE 2250 IF a<>-6 THEN 2290 2260 PROCrand2(-1,-2) 2270 IF a=-1 THEN PROCadd(" are all") ELSE PROCadd(" are") 2280 a=21 2290 IF a<>-5 THEN 2320 2300 PROCrand5(3,9,18,11,22) 2310 IF a=18 OR a=22 OR like OR a=11 PROCadd(" are all"):are=TRUE:ELSE PROCadd(" all") 2320 start=TRUE:ENDPROC