100 MODE 2
110 MODE 0:DIM fail$(26),Gword$(26),word$(15),gues$(15),d$(15),mem$(260),v$(4):INK 0,0:BORDER 13:v=1:INK 1,13:INK 2,16:INK 3,0:INK 4,1:INK 5,15:INK 6,3:INK 7,1:INK 8,12:PEN #1,6:PEN #2,7:PEN #3,8 120 FOR z=1 TO 20 130 PLOT 0,z,1:DRAW z,0:PLOT 0,400-z:DRAW z,400:PLOT 640-z,0:DRAW 640,z:PLOT 640-z,400:DRAW 640,400-z 140 NEXT z:WINDOW #4,1,14,3,23:WINDOW #5,1,20,4,24 150 PRINT #1:PRINT #1," INSTRUCTIONS":LOCATE 1,5:PRINT " AFTER COMPLETING ":PRINT "THE INSTRUCTIONS THE ":PRINT " MENU WILL APPEAR. ":PRINT " TO SELECT YOUR ":PRINT " OPTION PRESS THE ":PRINT " INDICATED KEY ":LOCATE #2,1,17 160 PRINT #2," THE NUMBER BEFORE! ":PRINT #2," THE OPTION":LOCATE 1,22:PRINT " PRESS SPACE BAR ":PRINT " TO CONTINUE" 170 IF INKEY$<>" " THEN 170 180 CLS #5:LOCATE 1,5:PRINT " IF YOU CHOOSE AN ":PRINT " OPTION BETWEEN 1-4 ":PRINT "YOU WILL GO STRAIGHT ":PRINT " TO":LOCATE #2,8,11:PRINT #2,"TIME LIMIT":PRINT:PRINT " YOU NOW HAVE TO ":PRINT " PRESS Y OR N WHICH ":PRINT "STAND FOR YES OR NO " 190 LOCATE 1,22:PRINT " PRESS SPACE BAR ":PRINT " TO CONTINUE" 200 IF INKEY$<>" " THEN 200 210 CLS #5:LOCATE 1,5:PRINT " IF YOU PRESS Y YOU ":PRINT " WILL BE ASKED ":LOCATE #2,7,9:PRINT #2,"HOW LONG":LOCATE 1,11:PRINT " YOU TYPE IN YOUR ":PRINT " REPLY IN SECONDS. ":PRINT " THEN THE GAME WILL ":PRINT " START." 220 LOCATE 1,22:PRINT " PRESS SPACE BAR ":PRINT " TO CONTINUE" 230 IF INKEY$<>" " THEN 230 240 CLS #5:LOCATE 1,5:PRINT "HOWEVER IF YOU CHOSE":PRINT " OPTIONS 5 OR 6 ":PRINT " BEFORE YOU GO TO ":LOCATE #2,5,11:PRINT #2,"TIME LIMIT":LOCATE 1,13:PRINT " YOU HAVE OPTION ":PRINT " INSTRUCTIONS ":PRINT " YOU WILL FIND OUT " 250 PRINT "ABOUT THESE WHEN YOU":PRINT " SELECT THEM ":LOCATE #1,1,24:PRINT #1,"PRESS SPACE TO START" 260 IF INKEY$<>" " THEN 260 ELSE CLS #5:LOCATE 1,2:PRINT " ":GOSUB 1160 270 LOCATE #2,4,2:PRINT #2,"ELECTRIC EDDY" 280 FOR z=1 TO 240:READ d$:mem$(z)=d$:NEXT z 290 INK 2,16:INK 4,1:INK 5,15:INK 6,3:GOTO 360 300 INK 2,16:INK 4,1:INK 5,15:INK 6,3:go=0:c=0 310 CLS #4 320 LOCATE 5,10:PRINT "SAME AS":PRINT:PRINT " BEFORE":in$=INKEY$ 330 IF in$="n" OR in$="N" THEN q=0:CLS #4:GOTO 360 340 IF in$="y" OR in$="Y" THEN q=1:GOTO 380 350 GOTO 320 360 LOCATE 1,7:PRINT " 1 LIST A":PRINT:PRINT " 2 LIST B":PRINT:PRINT " 3 LIST C":PRINT:PRINT " 4 LIST D":PRINT:PRINT " 5 OWN LIST":PRINT:PRINT " 6 CHALLENGE" 370 v$=INKEY$:IF v$="" THEN 370 380 IF v$<>"" THEN CLS #4 390 FOR z=1 TO 170 400 IF z<27 THEN fail$(z)="" 410 IF z<27 THEN Gword$(z)="" 420 PLOT 615-z,16,3:DRAW 615-z,28:NEXT z 430 LOCATE 2,10:PRINT " ":IF v$="5" AND q=1 OR v$="5" AND gues$="new word" THEN 580 440 IF v$="1" THEN 520 450 IF v$="2" THEN 530 460 IF v$="3" THEN 540 470 IF v$="4" THEN 550 480 IF v$="5" THEN 560 490 IF v$="6" THEN 620 500 GOTO 360 510 FOR p=1 TO 1500:NEXT p:GOTO 360 520 r=RND*60:word$=mem$(r+1):GOTO 650 530 r=RND*60:word$=mem$(r+60):GOTO 650 540 r=RND*60:word$=mem$(r+120):GOTO 650 550 r=RND*60:word$=mem$(r+180):GOTO 650 560 LOCATE 2,4:PRINT "number of":PRINT " words":LOCATE 2,7:INPUT l:CLS #4 570 FOR z=1 TO l:LOCATE 2,10:INPUT a$(z):LOCATE 2,10:CLS #4:NEXT z 580 r=INT(RND*l) 590 IF r=0 THEN 580 600 word$=a$(r) 610 IF word$="" THEN 580 ELSE 650 620 LOCATE 2,6:PRINT "ENTER WORD":LOCATE 2,8:INPUT word$:word$=LOWER$(word$) 630 IF word$="" THEN LOCATE 2,8:PRINT " ":GOTO 620 640 LOCATE 2,6:PRINT " ":PRINT:PRINT " " 650 LOCATE 3,10:PRINT "TIME LIMIT":in$=INKEY$ 660 IF in$="n" OR in$="N" THEN 690 670 IF in$="y" OR in$="Y" THEN 680 ELSE 650 680 LOCATE 2,12:PRINT " ":LOCATE 3,10:PRINT " ":LOCATE 4,10:PRINT "HOW LONG":LOCATE 2,12:INPUT t:IF t>600 THEN 680 ELSE LOCATE 2,12:PRINT " ":t=t*50:AFTER t,1 GOSUB 1760 690 LOCATE 3,10:PRINT " " 700 length=LEN(word$):go=0:c=0 710 FOR a=1 TO length:LOCATE 1+a,6:PRINT "-";:NEXT a 720 LOCATE 2,18:PRINT "GUESS NOW":LOCATE 2,20 730 INPUT gues$:g=1 740 gues$=LOWER$(gues$) 750 LOCATE 2,18:PRINT " ":PRINT:PRINT " " 760 IF gues$="" THEN 720 770 IF gues$=word$ THEN 1060 780 IF LEN(gues$)=1 THEN 800 790 SOUND 1,300,30,5,10:LOCATE #1,4,18:PRINT #1,"WRONG":FOR p=0 TO 500:NEXT p:g=1:GOTO 880 800 FOR d=1 TO 26:IF gues$=fail$(d) THEN 850 ELSE NEXT d 810 FOR d=1 TO length 820 a$=MID$(word$,d,1) 830 IF gues$=a$ THEN 980 840 NEXT d:GOTO 880 850 SOUND 1,300,30,5,10,15:LOCATE 2,18:PRINT "YOU GUESSED":PRINT " THAT ONCE" 860 FOR p=0 TO 500:NEXT p 870 LOCATE 2,18:PRINT " ":PRINT " ":GOTO 720 880 c=c+1 890 IF g=1 THEN go=go+1:ON go GOSUB 1730,1730,1730,1730,1730,1730,1730,1730,1730,1760 900 IF LEN(gues$)>1 THEN 720 910 fail$(c)=gues$ 920 LOCATE 2,11 930 FOR d=1 TO c 940 IF d=10 THEN LOCATE 2,13 950 IF d=18 THEN LOCATE 2,15 960 PRINT fail$(d); 970 NEXT d:GOTO 720 980 g=0:LOCATE d+1,6:PRINT a$:SOUND 1,200,20,5 990 Gword$(d)=a$ 1000 FOR b=1 TO length 1010 IF Gword$(b)=MID$(word$,b,1) THEN NEXT b ELSE GOTO 840 1020 AFTER 1,1 GOSUB 1030 1030 ENT 1,2,1,3,4,-1,4,4,1,5,1,-1,6,2,1,7:ENV 1,3,60,1,1,0,10,120,-1,8:SOUND 1,0,10:SOUND 1,200,25,6,1,1:SOUND 1,180,25,6,1,1:SOUND 1,160,25,6,1,1:SOUND 1,148,50,6,1,1:SOUND 1,200,55,6,1,1:SOUND 1,148,25,6,1,1:SOUND 1,160,25,6,1,1:SOUND 1,148,25,6,1,1 1040 LOCATE #3,1,22:PRINT #3,"CONGRATULATIONS":SOUND 1,135,50,6,1,1:SOUND 1,180,55,6,1,1:SOUND 1,180,25,6,1,1:SOUND 1,160,25,6,1,1:SOUND 1,148,25,6,1,1:SOUND 1,120,30,6,1,1:SOUND 1,135,15,6,1,1:SOUND 1,135,25,6,1,1:SOUND 1,148,25,6,1,1 1050 PRINT " ":SOUND 1,148,25,6,1,1:SOUND 1,160,25,6,1,1:SOUND 1,180,25,6,1,1:SOUND 1,160,25,6,1,1:SOUND 1,148,60,6,1,1:LOCATE 1,22:PRINT " ":GOTO 300 1060 AFTER 1,1 GOSUB 1070 1070 INK 1,13:INK 2,16:INK 3,0:INK 4,1:INK 5,15:INK 6,3:go=0:c=0:LOCATE 2,6:PRINT word$ 1080 r=INT(RND*3) 1090 IF r=1 THEN LOCATE #3,2,18:PRINT #3,"PRETTY GOOD":GOTO 1120 1100 IF r=2 THEN LOCATE #3,4,18:PRINT #3,"NOT BAD":GOTO 1120 1110 LOCATE #3,2,18:PRINT #3,"OK SHOW OFF" 1120 ENV 1,3,40,2,1,0,10,120,-1,6:ENV 2,3,40,1,1,0,10,120,-1,8:ENT 1,2,1,1,4,-1,2,4,1,3,4,-1,4,4,1,5:SOUND 1,200,30,4,1,1:SOUND 1,200,15,4,1,1:SOUND 1,200,30,4,1,1:SOUND 1,200,30,4,1,1:SOUND 240,30,4,1,1:SOUND 1,200,35,4,1,1:SOUND 1,150,30,5,1,1 1130 SOUND 1,150,15,5,1,1:SOUND 1,150,30,5,1,1:SOUND 1,150,30,5,1,1:SOUND 1,200,30,5,1,1:SOUND 1,150,35,5,1,1:SOUND 1,120,30,6,1,1:SOUND 1,120,15,6,1,1:SOUND 1,120,30,6,1,1:SOUND 1,120,30,6,1,1:SOUND 1,150,30,6,1,1:SOUND 1,120,35,6,1,1 1140 SOUND 1,100,120,6,2,1 1150 LOCATE 2,18:PRINT " ":GOTO 300 1160 FOR z=0 TO 10 1170 IF z<8 THEN PLOT 597-z,40,1:DRAW 597-z,290 1180 IF z<8 THEN PLOT 512-z,40:DRAW 512-z,135 1190 PLOT 505,135+z:DRAW 600,135+z 1200 NEXT z 1210 FOR z=1 TO 360 STEP 4 1220 DEG 1230 ORIGIN 560,320 1240 DRAW 22*COS(z),30*SIN(z),2 1250 IF z<150 THEN DRAW 20*COS(z),10*SIN(z),5 1260 NEXT z 1270 ORIGIN 0,0:PLOT 538,325,2:DRAW 534,315:PLOT 538,315:DRAW 538,320:PLOT 545,320,3 1280 FOR z=0 TO 270 STEP 3 1290 ORIGIN 560,270 1300 IF z<180 THEN DRAW 20*COS(z),20*SIN(z),4 1310 ORIGIN 573,156 1320 IF z>180 THEN DRAW 10*COS(z+90),10*SIN(z+90) 1330 ORIGIN 0,0 1340 IF z<10 THEN PLOT 581-z,270:DRAW 581-z,156 1350 IF z>20 AND z<50 THEN PLOT 520+z,270:DRAW 520+z,146 1360 ORIGIN 536,236 1370 IF z>100 AND z<260 THEN DRAW 5*COS(z),30*SIN(z) 1380 NEXT z 1390 FOR z=0 TO 270 STEP 3 1400 ORIGIN 560,275 1410 IF z<180 THEN PLOT 11*COS(z),11*SIN(z),3 1420 ORIGIN 560,220 1430 IF z>180 THEN PLOT 11*COS(z+90),11*SIN(z+90) 1440 NEXT z 1450 ORIGIN 0,0:PLOT 572,275:DRAW 572,220:PLOT 550,275:DRAW 550,224:PLOT 532,230:DRAW 553,230:PLOT 557,210:DRAW 536,210 1460 FOR z=0 TO 18 1470 PLOT 537,211+z:DRAW 520,211+z,4 1480 IF z>8 THEN PLOT 490,190+z,1:DRAW 600,190+z 1490 IF z>12 THEN PLOT 500+z,210:DRAW 500+z,230 1500 NEXT z 1510 PLOT 508,211,2:DRAW 508,229:DRAW 498,229:PLOT 507,227:DRAW 498,227 1520 FOR z=90 TO 180 1530 ORIGIN 0,0 1540 IF z<114 THEN PLOT 540,260-z:DRAW 504,260-z,4 1550 ORIGIN 500,148 1560 DRAW 22*COS(z),22*SIN(z),4 1570 NEXT z 1580 ORIGIN 0,0:PLOT 540,180:DRAW 580,180,3 1590 FOR z=1 TO 60 1600 PLOT 480,148-z:DRAW 500,148-z,4 1610 NEXT z 1620 PLOT 500,144,3:PLOT 497,144:PLOT 504,146:PLOT 504,148 1630 FOR z=1 TO 10 1640 PLOT 490,88-z,1:DRAW 500,88-z 1650 NEXT z 1660 PLOT 500,77,2:DRAW 480,77:PLOT 470,74:DRAW 500,74:PLOT 500,73:DRAW 460,73 1670 PLOT 440,18:DRAW 440,30,1:DRAW 619,30:DRAW 619,18 1680 FOR z=1 TO 180 STEP 3 1690 ORIGIN 560,335 1700 DRAW 21*COS(Z),17*SIN(Z),1 1710 NEXT Z 1720 ORIGIN 0,0:PLOT 575,335:DRAW 598,335:DRAW 598,290:RETURN 1730 SOUND 1,1500,30,7:FOR z=1 TO 19 1740 PLOT go*19+425+z,28,6:DRAW go*19+425+z,18 1750 NEXT z:RETURN 1760 AFTER 1,1 GOSUB 1770 1770 FOR z=445 TO 615:PLOT z,18,6:DRAW z,28:NEXT z 1780 INK 2,16,13:INK 4,26,1:SPEED INK 3,2 1790 ENV 1,2,60,1,1,0,10,120,-1,6:ENV 2,2,60,1,1,0,60,120,-1,6:ENT 1,6,1,2,12,-1,2,12,1,2,6,-1,2:SOUND 1,1000,80,6,1,1:SOUND 1,1000,70,6,1,1:SOUND 1,1000,25,6,1,1:SOUND 1,1000,70,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,950,30,6,1,1:SOUND 1,950,50,6,1,1 1800 SOUND 1,1000,30,6,1,1:SOUND 1,1000,50,6,1,1:SOUND 1,1050,30,6,1,1:SOUND 1,1000,140,6,2,1:SOUND 1,900,80,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,900,25,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,700,70,6,1,1:SOUND 1,800,30,6,1,1:SOUND 1,800,50,6,1,1 1810 INK 2,0:INK 4,0:INK 5,0:LOCATE #1,2,6:PRINT #1,word$ 1820 SOUND 1,900,30,6,1,1:SOUND 1,900,50,6,1,1:SOUND 1,950,30,6,1,1:SOUND 1,900,140,6,2,1:SOUND 1,530,50,6,1,1:SOUND 1,600,30,6,1,1:SOUND 1,680,50,6,1,1:SOUND 1,700,30,6,1,1:SOUND 1,700,70,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,530,50,6,1,1 1830 LOCATE 2,18:PRINT " ":LOCATE 2,20:PRINT " ":LOCATE #1,2,18:PRINT #1,"YOU LOST":PRINT " " 1840 SOUND 1,600,30,6,1,1:SOUND 1,680,50,6,1,1:SOUND 1,700,30,6,1,1:SOUND 1,700,70,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,1000,80,6,1,1:SOUND 1,1000,70,6,1,1:SOUND 1,1000,25,6,1,1:SOUND 1,1000,70,6,1,1:SOUND 1,900,70,6,1,1:SOUND 1,950,30,6,1,1 1850 SOUND 1,950,50,6,1,1:SOUND 1,1000,30,6,1,1:SOUND 1,1000,50,6,1,1:SOUND 1,1050,30,6,1,1:SOUND 1,1000,140,6,2,1:LOCATE 2,18:PRINT " ":GOTO 300 1860 DATA apple,arch,baby,balloon,carry,chopper,darling,dazzle,earth,employ,father,feast,gangster,glimmer,happy,hectic,ideal,important,jacket,jungle,keeper,kettle,large,leader,machine,market,nail,nerve,orange,observe,paper,pardon,quack,quiet,race,rapid 1870 DATA sacred,scamper,tablet,teacher,ugly,understand,vacant,verse,wade,wall,yell,yard,zip,zero,aim,area,beach,behave,catch,cattle,desert,detail,elderly,employ,arrival,apology,backwards,bankrupt,calendar,challenge,dangerous,dedication,effortless,elastic 1880 DATA familiar,fathom,gaiety,garrulous,habitat,harbour,idiot,impudent,jettison,juvenile,knight,keepsake,label,laughable,magician,management,naughty,neighbour,obey,obnoxious,painful,parchment,qualify,quarrel,radiant,ration,salary,savior,tactful 1890 DATA telepathy,umpire,uproad,vacation,vegetable,walk,wander,year,yesterday,zest,zone,alibi,arena,business,bursar,cause,cleanse,olepth,desolation,electrify,embroider,autumn,archaic,bamboozle,blasphemy,campaign,chaperon,dastardly,debonair,ecstatic 1900 DATA endeavour,facetious,fatuous,galvanize,gauge,hallucination,height,ignite,impromptu,jewellery,juncture,kitchen,kerchief,lacerate,language,maintenance,malnutrition,negotiate,nonchalant,oblivion,obsession,pacify,pariah,quarter,quirk,raconteur 1910 DATA rapacious,sabotage,scrpulous,talkative,technique,unbiased,undistinguished,velocity,vault,warranty,warrior,yield,yearning,zealows,zenith,agriculture,avenue,buoyant,burlesque,catastrophe,characteristic,descendant,dexterity,eligible,embarrassing 1920 DATA austere,annul,banal,bazaar,camouflage,chauvinism,daub,deceit,effigy,encyclopaedia,feasible,feign,ghastly,gnarled,hirsute,hysteria,illegible,inertia,jeopardy,jaundiced,knick-knack,kudos,laconic,lascivious,magenta,marauder,nebulous,nymph,obliqe 1930 DATA opuleuce,pamphlet,paraphernalia,queasy,quixotic,raucous,rhythm,scintillating,sepulchre,tangible,tawdry,unique,untopia,vague,vehicle,weigh,whimsica,yokel,yowl,zephyr,zealot,aisle,avalanche,beleaguer,bureau,cemetery,coherent,diabolical,dialogue 1940 DATA elicit,emphasis |