0 REM WHAT IS IT? LW.LINSON5 GOSUB 15000:GRAPHICS Q2:GOSUB BRK:POKE 710,48:POKE 712,48:POKE 708,26:RA=Q0:WA=Q0:POKE OFF,Q16 FOR D=Q2 TO 16 STEP Q2:POSITION D,Q0:? #Q6;" ":POSITION D,Q2:? #Q6;" ":NEXT D7 POSITION Q2,Q1:? #Q6;" WHAT IS IT? "9 POSITION Q5,Q6:? #Q6;"c ":POSITION Q2,Q9:? #Q6;"":SPOT=17:TRAP QTRAP11 FOR D=Q1 TO 1000:NEXT D:POSITION Q6,Q9:? #Q6;T$:POSITION Q2,Q9:? #Q6;""12 POSITION Q3,Q4:? #Q6;"what is":POSITION Q5,Q6:? #Q6;" your name"13 POKE OFF,Q1:? :? :? " ۠ŠҠ ERASES NAME"14 POKE 755,Q2:POKE KEY,Q255:OPEN #Q1,Q4,Q0,"K:":POSITION Q7,Q9:FOR D=Q1 TO 12:POKE 702,64:POKE 694,Q015 GET #Q1,A:IF A=Q155 THEN 1916 IF AQ90 THEN A=Q3217 IF A=Q32 OR A=Q126 THEN POSITION Q7,Q9:? #Q6;T$:CLOSE #Q1:NAME$="":TRAP QTRAP:GOTO 1418 ? #Q6;CHR$(A);:NAME$(LEN(NAME$)+Q1)=CHR$(A):NEXT D19 IF D>12 OR NAME$="" THEN A=Q32:GOTO 1720 FOR D=Q1 TO Q52:NEXT D:POKE OFF,Q1:CLOSE #Q1:GOSUB 1600027 TRAP Q29:CLOSE #Q128 POKE KEY,Q255:POKE OFF,Q1:? :? "What level, ";NAME$;"?";" "29 POKE 702,64:POKE 694,Q0:CLOSE #1:GOSUB BRK:OPEN #Q1,Q4,Q0,"K:":GET #Q1,L:X0=630 IF L=Q49 THEN L=Q0:LV=Q1:CLOSE #Q1:GOTO PICK31 IF L=50 THEN L=1000:LV=Q2:CLOSE #Q1:GOTO PICK32 IF L=51 THEN L=2000:LV=Q3:CLOSE #Q1:GOTO PICK33 IF L=Q52 THEN L=3000:LV=Q4:CLOSE #Q1:GOTO PICK34 IF LQ52 THEN GOTO Q2935 IF LQ52 THEN GOTO Q2940 GOSUB KOLOR50 READ A,B,C,D,E,F,G60 PLOT A,B:DRAWTO C,D:DRAWTO E,F:IF G=-Q1 THEN TEMP$="HOUSE":G=Q0:HOU=99:GOTO 11061 IF G=-Q2 THEN G=Q10:TEMP$="STAR":STA=199:GOTO Q9062 IF G=-Q3 THEN G=Q20:TEMP$="BOX":BOX=299:GOTO Q9063 IF G=-Q4 THEN G=30:TEMP$="KITE":KIT=399:GOTO Q9065 IF G=-Q5 THEN G=50:TEMP$="BOOK":BOO=599:GOTO Q9066 IF G=-Q6 THEN G=60:TEMP$="TV":TV=699:GOTO Q9068 IF G=-Q7 THEN G=80:TEMP$="TRUCK":TRU=899:GOTO 91569 IF G=-Q8 THEN G=90:TEMP$="FOOTBALL":FOOT=999:GOTO 102070 IF G=-Q9 THEN G=100:TEMP$="FACE":FAC=1099:GOTO Q9080 GOTO 5090 IF LV=Q4 THEN G=Q095 GOSUB CLUE+L+G:GOTO CUE99 RESTORE 100:GOTO Q40100 DATA 50,30,80,15,110,30,0,110,30,50,30,50,70,0,50,70,110,70,110,30,0,110,30,130,20,130,60,0101 DATA 130,60,110,70,110,70,0,105,5,130,20,130,20,0,80,15,105,5,105,5,0102 DATA 75,16,75,5,65,10,0,65,10,65,21,65,21,0,60,24,60,10,71,4,0,71,4,75,4,75,4,0,65,10,60,10,60,10,0103 DATA 75,55,75,70,85,70,0,85,70,85,55,75,55,0,70,50,58,50,58,40,0,58,40,70,40,70,50,0,64,49,64,41,64,41,0104 DATA 59,45,69,45,69,45,0,90,40,90,50,102,50,0,102,50,102,40,90,40,0,91,45,101,45,101,45,0,96,41,96,49,96,49,-1110 READ H,I,J,K,L1115 PLOT H,I:PLOT J,K:IF L1=-Q1 THEN GOTO Q90116 GOTO 110120 DATA 61,4,59,3,0,57,2,68,2,0,66,1,66,4,0,64,3,62,2,0,55,1,52,1,0,60,1,58,0,0,64,0,83,63,-1199 RESTORE 200:GOTO Q40200 DATA 83,8,106,66,50,32,1,50,32,116,32,60,66,1,60,66,83,8,83,8,-2299 RESTORE 300:GOTO Q40300 DATA 100,20,80,10,60,20,0,60,20,80,30,100,20,0,100,20,100,50,80,60,0301 DATA 80,60,60,50,60,20,0,80,30,80,60,80,60,-3399 RESTORE 400:GOTO Q40400 DATA 60,10,40,30,60,62,0,60,62,80,30,60,10,0,60,62,64,70,73,73,0,73,73,77,65,85,68,0,85,68,90,66,95,70,0401 DATA 95,70,103,65,103,65,0,60,11,60,61,60,61,0,41,30,78,30,78,30,-4499 G=Q40:GOSUB KOLOR:FOR W=50 TO 102:X=Q7:Y=76:Z=61502 PLOT W,X:DRAWTO Y,Z:NEXT W:TEMP$="CONE":CON=499:POKE OFF,Q1:GOTO Q90599 RESTORE 600:GOTO Q40600 DATA 102,70,62,70,62,22,0,62,22,102,22,102,70,0,102,70,108,64,108,16,0,108,16,68,16,62,22,0601 DATA 108,16,102,22,102,22,0,66,18,106,18,106,66,0,64,20,104,20,104,68,0,76,28,72,28,72,34,0602 DATA 74,32,72,32,72,32,0,80,34,80,28,84,28,0,84,28,84,34,80,34,0,88,28,92,34,92,34,0,88,34,92,28,92,28,0603 DATA 76,42,76,48,76,48,0,80,48,80,42,84,48,0,84,48,84,42,84,42,0,68,56,64,56,68,62,0,68,62,64,62,64,62,0604 DATA 72,62,72,56,76,56,0,76,56,76,62,72,62,0,84,56,80,56,80,62,0,80,62,84,62,84,62,0,88,56,88,62,88,62,0605 DATA 92,56,88,60,92,62,0,100,56,96,56,100,62,0,100,62,96,62,96,62,-5699 RESTORE 700:GOTO Q40700 DATA 112,70,50,70,50,30,0,50,30,112,30,112,70,0,112,70,120,62,120,22,0,120,22,58,22,50,30,0701 DATA 120,22,112,30,112,30,0,58,36,58,66,102,66,0,102,66,102,36,58,36,0,88,24,84,24,84,26,0,84,26,88,26,88,24,0702 DATA 88,24,102,6,102,6,0,84,24,72,6,72,6,0,108,38,106,38,106,36,0,106,36,108,36,108,38,0704 DATA 108,44,106,44,106,42,0,106,42,108,42,108,44,0,108,50,106,50,106,48,0,106,48,108,48,108,50,-6799 GOSUB KOLOR:RESTORE 804802 READ A,B,C,D803 PLOT A,B:DRAWTO C,D:IF D=0 THEN GOTO 850804 DATA 90,30,90,38,92,22,92,44,94,20,94,48,96,18,96,50,98,14,98,52,100,14,100,54,102,12,102,56805 DATA 104,10,104,57,106,9,106,58,108,9,108,59,110,8,110,59,112,7,112,60,114,7,114,60,116,6,116,61806 DATA 118,7,118,60,120,7,120,60,122,8,122,59,124,9,124,59,126,9,126,58,128,10,128,57,130,12,130,56807 DATA 132,14,132,54,134,14,134,52,136,18,136,50,138,20,138,48,140,22,140,44,142,30,142,38,30,62,32,66808 DATA 32,66,93,47,91,45,30,62,0,0,0,0849 IF D>Q1 THEN GOTO 802850 G=70:TEMP$="LOLLIPOP":LOL=799:POKE 752,Q1:GOTO Q90899 RESTORE 900:GOTO Q40900 DATA 76,12,58,12,52,18,0,52,18,52,58,76,58,0,76,58,76,32,76,12,0,76,32,52,32,52,32,0901 DATA 81,33,81,13,77,9,0,77,9,57,9,49,17,0,49,17,49,33,21,33,0,21,33,17,36,17,39,0,17,51,21,49,21,43,0902 DATA 21,43,17,39,15,43,0,15,43,15,47,17,51,0,17,51,17,59,23,65,0,23,65,31,65,31,55,0,31,55,36,52,44,52,0903 DATA 44,52,47,55,47,65,0,47,65,101,65,101,55,0,101,55,106,52,114,52,0,114,52,117,55,117,65,0904 DATA 117,65,137,65,144,58,0,144,58,144,36,141,33,0,141,33,81,33,81,33,0,34,66,36,70,44,70,0905 DATA 44,70,46,66,46,66,0,104,66,106,70,114,70,0,114,70,116,66,116,66,-7915 X=55:Y=X:X1=X:Y1=X916 PLOT 131,X:DRAWTO 147,Y:PLOT 14,X1:DRAWTO 29,Y1:X1=X1+Q1:Y1=Y1+Q1:X=X+Q1:Y=Y+Q1:IF Y1=62 THEN GOTO 940919 GOTO 916940 X=38:Y=X941 PLOT 23,X:DRAWTO 140,Y:X=X+Q1:Y=X:IF Y=41 THEN PLOT 24,43:DRAWTO 140,43:GOTO 950944 GOTO 941950 X=58:Y=X:X1=X:Y1=Y951 PLOT 38,X:DRAWTO 42,Y:PLOT 108,X1:DRAWTO 112,Y1:X1=X1+Q1:Y1=X1:X=X1:Y=Y1:IF Y1=62 THEN GOTO Q90955 GOTO 951999 RESTORE 1000:GOTO Q401000 DATA 20,40,24,46,30,54,0,30,54,40,60,50,64,0,50,64,58,66,72,70,0,72,70,88,70,102,66,0,102,66,110,64,120,60,01001 DATA 120,60,130,54,136,46,0,136,46,140,40,136,34,0,136,34,130,26,120,20,0,120,20,110,16,102,14,01002 DATA 102,14,94,12,80,10,0,80,10,72,10,58,14,0,58,14,50,16,40,20,0,40,20,30,26,24,34,0,24,34,20,40,20,40,01003 DATA 40,60,50,61,50,61,0,40,60,50,62,50,62,0,40,60,50,63,50,63,0,40,20,50,19,50,19,0,40,20,50,18,50,18,01004 DATA 40,20,50,17,50,17,0,120,60,110,63,110,63,0,120,60,110,62,110,62,0,120,60,110,61,110,61,01005 DATA 120,20,110,19,110,19,0,120,20,110,18,110,18,0,120,20,110,17,110,17,-81020 X=34:Y=X1022 PLOT 66,X:DRAWTO 96,Y:X=X+Q2:Y=X:IF Y=44 THEN GOTO 10301028 GOTO 10221030 X=72:Y=X1032 PLOT X,Q32:DRAWTO Y,44:X=X+Q3:Y=X:IF Y>92 THEN 10401038 GOTO 10321040 X=Q20:Y=X:X1=X:Y1=Y1042 PLOT Q40,X:DRAWTO 50,Y:PLOT 110,X1:DRAWTO 120,Y1:X1=X1+Q1:Y1=X1:X=X1:Y=Y1:IF Y1=62 THEN GOTO Q901048 GOTO 10421099 GOSUB 1107:RESTORE 1100:GOTO 501100 DATA 65,13,97,13,105,25,1,105,25,105,57,97,65,1,97,65,65,65,55,57,1,55,57,55,25,65,13,1,67,27,73,27,73,33,11102 DATA 73,33,67,33,67,27,1,89,27,95,27,95,33,1,95,33,89,33,89,27,1,65,49,69,57,73,59,1,73,59,89,59,93,55,11104 DATA 93,55,97,49,89,51,1,89,51,73,51,65,49,1,89,55,89,55,73,55,1,65,49,73,55,73,55,1,65,49,73,55,73,55,11105 DATA 97,49,89,55,89,55,1,79,35,79,43,83,43,1,83,43,83,45,77,45,1,77,45,77,35,79,35,1,73,29,69,29,69,33,11106 DATA 89,29,93,29,93,33,-91107 GOSUB KOLOR:X=73:Y=X1108 PLOT X,51:DRAWTO Y,59:X=X+Q4:Y=X:IF Y=93 THEN RETURN 1110 GOTO 11081500 POKE KEY,Q255:SOUND Q0,Q40,Q10,14:FOR D=Q1 TO Q20:NEXT D:SOUND Q0,Q0,Q0,Q0:? :? :? " This is a ...";1501 SPOT=1507:TRAP QTRAP:OPEN #Q1,Q4,Q0,"K:":GOSUB BRK1505 FOR D=Q1 TO 12:GET #Q1,A:IF A=Q155 THEN 15101506 IF AQ90 THEN A=Q321507 IF A=Q32 OR A=Q126 THEN ? "}":CLOSE #Q1:G$="":GOTO 20051508 ? CHR$(A);:G$(LEN(G$)+Q1)=CHR$(A):NEXT D1509 IF D>12 THEN A=Q32:GOTO 15071510 IF G$="" THEN A=Q32:GOTO 15071511 IF G$=TEMP$ THEN CLOSE #Q1:G$="":GOSUB 19501512 CLOSE #Q1:GOSUB 20001950 GRAPHICS Q2+16:POKE 712,144:POKE 710,281951 GOSUB BRK:POSITION Q4,Q3:? #Q6;"thats ":RA=RA+Q1:WA=WA+Q11952 POSITION Q5,Q9:? #Q6;RA;" Ԡ ";WA1953 POSITION Q9-LEN(NAME$)/Q2,Q6:? #6;NAME$;""1954 SOUND Q0,83,Q10,Q10:FOR D=Q1 TO Q20:NEXT D:SOUND Q0,60,Q10,Q10:FOR D=Q1 TO Q20:NEXT D1955 SOUND Q0,47,Q10,Q10:FOR D=Q1 TO Q20:NEXT D:SOUND Q0,Q40,Q10,Q10:FOR D=Q1 TO Q40:NEXT D1957 SOUND Q0,47,Q10,Q10:FOR D=Q1 TO Q20:NEXT D:SOUND Q0,Q40,Q10,Q10:FOR D=Q1 TO Q40:NEXT D:SOUND Q0,Q0,Q0,Q01960 POSITION Q4,Q4:? #Q6;T$:POSITION Q7,Q7:? #Q6;T$:FOR D=Q1 TO 35:NEXT D:COUNT=COUNT+Q1:IF COUNT=Q7 THEN 40601962 X0=INT(RND(0)*15):GOTO PICK2000 POKE 710,Q0:? "}":? " Well, ";NAME$;". . . Try again!":WA=WA+Q12001 SOUND Q0,84,Q10,14:FOR D=Q1 TO Q15:NEXT D:SOUND Q0,101,Q10,14:FOR D=Q1 TO Q15:NEXT D:SOUND Q0,Q0,Q0,Q02003 FOR D=Q1 TO 150:NEXT D2005 FOR D=Q1 TO Q32:NEXT D:G$="":X0=PEEK(712):POKE 710,X0:? "}":GOTO Q904000 FOR J=Q0 TO PN:POOL(J)=J:NEXT J:FOR J=PN TO Q0 STEP -1:K=INT(RND(Q0)*(J+Q1)):PICTURE=POOL(J):POOL(J)=POOL(K)4010 POOL(K)=PICTURE:NEXT J:PICTURE=(PICTURE*100)+994015 IF PICTURE=HOU THEN GOTO PICK4016 IF PICTURE=STA THEN GOTO PICK4017 IF PICTURE=BOX THEN GOTO PICK4018 IF PICTURE=KIT THEN GOTO PICK4019 IF PICTURE=BOO THEN GOTO PICK4020 IF PICTURE=TV THEN GOTO PICK4021 IF PICTURE=TRU THEN GOTO PICK4022 IF PICTURE=FOOT THEN GOTO PICK4023 IF PICTURE=FAC THEN GOTO PICK4024 IF PICTURE=CON THEN GOTO PICK4025 IF PICTURE=LOL THEN GOTO PICK4030 GOTO PICTURE4060 IF WA=Q7 THEN REWARD$="ԡ"4062 IF WA=Q8 THEN REWARD$="ԡ"4064 IF WA=Q9 THEN REWARD$="ġ"4066 IF WA>Q9 THEN REWARD$="٠ġ"4070 GRAPHICS 0:POKE 710,2124071 ? :? :? :? ;REWARD$;:? :? :? ;NAME$;", you answered ";RA;" out of ";WA:? "questions correctly!"4074 GOSUB BRK:POKE 752,Q1:POSITION Q5,Q10:? " ";LV:POKE OFF,Q1:POKE KEY,Q255:SPOT=40794076 ? :? :? "Would you like to try again? ٯΩ";:OPEN #Q1,Q4,Q0,"K:":GOSUB BRK4077 GET #Q1,A:IF A=89 THEN CLOSE #Q1:RUN 4079 POKE OFF,Q0:POKE 16,192:POKE 53774,247:GRAPHICS 0:CLR :POP :END 5000 ? ," Š":RETURN 5010 ? ," Ҡ":RETURN 5020 ? ," ؠ":RETURN 5030 ? ," Š":RETURN 5040 ? ," Š":RETURN 5050 ? ," ˠ":RETURN 5060 ? ," ֠ ":RETURN 5070 ? ," Р":RETURN 5080 ? ," ˠ":RETURN 5090 ? ," ̠":RETURN 5100 ? ," Š":RETURN 6000 ? " Š Ҡ Ԡ":RETURN 6010 ? " ˠ ̠ Ҡ":RETURN 6020 ? " Š ؠ Р":RETURN 6030 ? " Š ̠ Š":RETURN 6040 ? " Š Ϡ Š":RETURN 6050 ? " ˠ Ġ Ӡ":RETURN 6060 ? " Π ֠ Ҡ":RETURN 6070 ? " ˠ Ҡ Р":RETURN 6080 ? " ˠ Ҡ ̠":RETURN 6090 ? " Ԡ ̠ Ԡ":RETURN 6100 ? " Š Ġ Š":RETURN 7000 ? "Š Ƞ Š נ":RETURN 7010 ? " Р ٠ Ҡ Ԡ":RETURN 7020 ? "ؠ ٠ ؠ Ӡ":RETURN 7030 ? " Π Ԡ Š ٠":RETURN 7040 ? " Š Ԡ Š Š":RETURN 7050 ? "ˠ Ϡ ˠ  ":RETURN 7060 ? " Ԯ® ֠ Ԡ Š":RETURN 7070 ? "ՠ ̠ Р Ġ":RETURN 7080 ? "Ҡ ˠ Π ̠":RETURN 7090 ? "Ǡ Ԡ ̠ Ġ":RETURN 7100 ? "Ԡ Š Ƞ Š":RETURN 8000 ? :RETURN 13000 POKE 16,64:POKE 53774,64:POKE 702,64:POKE 694,Q0:RETURN 13500 A=Q32:GOTO SPOT14000 GRAPHICS Q6:GOSUB BRK:COLOR Q1:POKE OFF,Q1:POKE 710,(X0*16)+Q4:POKE 712,PEEK(710):RETURN 15000 Q1=1:Q0=Q1-Q1:Q2=Q1+Q1:Q3=Q2+Q1:Q4=Q3+Q1:Q5=Q4+Q1:Q6=Q5+Q1:Q7=Q5+Q2:Q8=Q7+Q1:Q9=Q8+Q1:Q10=Q9+Q1:Q15=Q10+Q515005 Q20=Q10+Q10:Q29=Q20+Q9:Q32=Q20+Q10+Q2:Q40=Q20+Q20:Q49=Q40+Q9:Q52=Q40+Q10+Q215010 Q65=65:Q90=90:Q126=126:Q155=155:Q255=255:CUE=1500:CLUE=5000:PICK=4000:BRK=13000:OFF=752:KEY=764:KOLOR=1400015020 QTRAP=13500:PN=Q10:DIM NAME$(12),REWARD$(15),TEMP$(Q10),G$(15),T$(12),POOL(PN):T$=" "15030 RETURN 16000 GRAPHICS Q0:GOSUB BRK:POKE 710,9816010 ? " This program will show you some pictures and picture words. There are four difficulty levels."16020 ? :? :? "̠ This level simply asks you to type the given picture word."16030 ? :? :? "̠ This level gives you some words to choose from to find the picture word."16040 ? :? :? "̠ This level gives you some very similar words to choose from."16050 ? :? :? "̠ This level asks you to spell the picture word without any clues.":RETURN