1 'WHEEL.100 by George Flanders (6/2/88) 10 CLS:FORI=-832TO-717:READA:POKEI,A:NEXT:PRINT@11,CHR$(27)"p WHEEL OF FORTUNE "CHR$(27)"q":ZZ=1:X=120:Y=9:A$="LETTER VALUE":GOSUB54:PRINT@100,"$":X=190:A$="TURNS LEFT":GOSUB54:PRINT@115,"20":X=120:Y=26:A$="THIS ROUND":GOSUB54:PRINT@180,"$" 11 X=190:A$="BAD GUESSES":GOSUB54:X=120:Y=42:A$="SESSION TOTAL":GOSUB54:PRINT@260,"$" 12 DATA1,133,246,58,246,252,95,205,100,93,254,91,210,199,252,254,8,202,2,253,254,13,202,16,253,254,32,202,247,252,254,39,202,232,252,254,65,218,199,252,87,175,187,202,199,252,122,231,2,3,29,195,199,252,,205,25,253,202,199,252,62,32,195,232,252,205,25 13 DATA253,202,199,252,62,127,231,11,28,195,199,252,205,25,253,202,199,252,175,2,201,58,246,252,187,201,205,100,93,254,91,210,30,253,254,65,218,30,253,231,50,48,253,201,0,0,0,0 14 DATAPHRASE,PERSON,THING,PLACE,PEOPLE,EVENT,"150","600","400","250","500","200","350","550","300","100","1000","450" 15 CLEAR:DIMU(60),VA$(12),LU(26):FORI=1TO6:PRINT@40*I,SPACE$(20):NEXT:EL=20:CT=-778:RESTORE14:FORI=1TO6:READC$(I):NEXT:FORI=1TO12:READVA$(I):NEXT 16 E$=CHR$(27):V$=E$+"p ":N$=" "+E$+"q":X$=E$+"K":PRINTE$"V":GOSUB20:X=8:Y=41:ZZ=1:A$=C$(T):GOSUB54:ZZ=0:V=PEEK(-717):VO$="AEIOU":GT=PEEK(-719)+256*PEEK(-718):IFGTTHENPRINT@262,GT;X$: 17 PRINT@101,SPACE$(8):PRINT@280,"1=Spin 2=Solve "X$;:IFTL>100ANDV<2THENPRINT"3=Buy Vowel"X$ 18 A$=INKEY$:IFA$=""THEN18ELSEA=VAL(A$):IFA<1ORA>2+ABS(TL>100ANDV<2)THEN18ELSEONAGOTO25,37,41 19 Q=1+(PEEK(-1745)MOD60):RETURN 20 PRINT@280,X$:SU=1:GOSUB46:GOSUB19:IFU(Q)THEN20ELSEU(Q)=1 21 OPEN"WHEEL1.DO"FORINPUTAS1:FORI=1TOQ:INPUT#1,T,G$(1),G$(2),G$(3):NEXT:CLOSE:Y=9:FORI=1TO3:L(I)=LEN(G$(I)):FORX=8TO(8*L(I))STEP8:LINE(X,Y)-(X+8,Y+8),1,B:NEXTX:Y=Y+11:NEXTI:SL$=G$(1)+" "+G$(2)+" "+G$(3) 22 VO$="AEIOU":Y=11:FORI=1TO3:GOSUB51 23 L(I)=L(I)-LL(I):Y=Y+11:NEXT:RETURN 24 Y=11:FORI=1TO3:FORJ=1TOLEN(G$(I)):A$=MID$(G$(I),J,1):X=2+8*J:GOSUB56:NEXTJ:Y=Y+11:NEXTI:RETURN 25 M=0:EL=EL-1:PRINT@114,EL;X$:PRINT@280,X$:GOSUB19:FORI=1TOQ:J=1+(IMOD12):PRINT@103,VA$(J)" ":SOUND84,3:NEXT:VL=VAL(VA$(J)) 26 PRINT@280,V$"Consonant:"N$" "X$;:CALL-738:A$=CHR$(PEEK(-720)):A=INSTR(VO$,A$):IFATHEN26ELSEA=ASC(A$):IFLU(A-64)THEN26ELSELU(A-64)=1 27 Y=11:FORI=1TO3:FORJ=1TOLEN(G$(I)):IFA$=MID$(G$(I),J,1)THENL(I)=L(I)-1:X=2+8*J:GOSUB56:GOSUB50:TL=TL+VL:M=M+1:PRINT@182,TL" ":GOSUB53:NEXTJ:Y=Y+11:NEXTIELSENEXTJ:Y=Y+11:NEXTI 28 PRINT@104,SPACE$(5):IFM=0THENIC$=IC$+A$:PRINT@192,IC$:GOTO32ELSEIF(L(1)<1ANDL(2)<1ANDL(3)<1)THEN30ELSEIF(LL(1)<1ANDLL(2)<1ANDLL(3)<1)THEN31 29 IFEL>0THEN17ELSEPRINT@280,X$:GOSUB35:PRINT@280,V$"You Must Guess!"N$X$:GOSUB53:GOTO37 30 PRINT@280,V$"Only Vowels Left!"N$X$ 31 GOSUB47:GOSUB35:GOTO37 32 SOUND12538,10:GOTO29 33 SOUND2488,15:GOSUB34:SOUND2348,15:GOSUB34:FORI=0TO15:SOUND2488,1:SOUND2092,2:NEXT:RETURN 34 FORJ=0TO59:NEXT:RETURN 35 FORI=1TO4:SOUND1479,7:GOSUB34:NEXT:RETURN 36 A$="":CALL-832:FORI=-2427TO-2396:A=PEEK(I):IFATHENA$=A$+CHR$(A):NEXTELSERETURN 37 GOSUB47:PRINT@280,V$C$(T)N$" "X$;:POKECT,30:GOSUB36:IFA$=SL$THENPRINT@280,V$"That's Right !"N$X$:GOSUB33:GOSUB24ELSE40 38 GT=GT+TL:PRINT@262,GT;X$:PRINT@280,"You've won $"STR$(GT)"! Another Round?"X$ 39 AN$=INKEY$:IFAN$=""THEN39ELSEIFAN$="Y"ORAN$="y"THENHB=GT\256:LB=GT-HB*256:POKE-719,LB:POKE-718,HB:GOTO15ELSEMENU 40 GOSUB46:PRINT@182,V$"0"N$X$:SOUND12538,20:PRINT@280,"Sorry, Here's the Answer"X$:GOSUB24:PRINT@280,"Another Round?"X$:GOTO39 41 VW=0:TL=TL-100:PRINT@182,TL" ":V=V+1:PRINT@280,V$"Vowel: "N$" "X$;:CALL-738:A$=CHR$(PEEK(-720)):MD=INSTR(VO$,A$):ON-(MD=0)GOTO41:AS=ASC(A$):IFLU(AS-64)THEN41ELSELU(AS-64)=1 42 Y=11:FORI=1TO3:FORJJ=1TOLEN(G$(I)):IFA$=MID$(G$(I),JJ,1)THENVW=1:X=2+8*JJ:GOSUB56:GOSUB50:GOSUB53:LL(I)=LL(I)-1 43 NEXTJJ:Y=Y+11:NEXTI:IF(L(I)<1ANDL(2)<1ANDL(3)<1)THENPRINT@280,X$:PRINT@280,V$"You Must Guess!"N$X$:GOSUB53:GOTO37 44 IFVW=0THENSOUND12538,10:IV$=IV$+A$:PRINT@232,IV$X$ 45 GOTO17 46 PRINT@181,SPACE$(10) 47 IFSU=0THENPRINT@111,SPACE$(6)ELSESU=0 48 PRINT@101,SPACE$(10) 49 PRINT@192,SPACE$(7):PRINT@232,SPACE$(5):RETURN 50 SOUND1108,6:RETURN 51 FORJJ=1TOLEN(G$(I)):MD$=MID$(G$(I),JJ,1):MD=INSTR(VO$,MD$):IFMDTHENLL(I)=LL(I)+1 52 IFMD$="'"THENL(I)=L(I)-1:X=2+8*JJ:A$=MD$:GOSUB56:NEXT:RETURNELSENEXT:RETURN 53 FORWT=0TO399:NEXT:RETURN 54 Z=Y+1:B=Y+2:K=Y+3:W=Y+4:FORSL=1TOLEN(A$):S=X+1:G=X+2:U=X+3:R=X+4:A=ASC(MID$(A$,SL,1))-64:IFA=-32THENX=X-1ELSEIFA=-25THENLINE(S,Y)-(S,Z):X=X-1ELSEONAGOSUB67,68,69,70,71,72,73,74,75,76,77,78,79,80,65,81,82,83,84,85,86,87,88,89,90,91 55 X=X+4:NEXT:RETURN 56 Z=Y+1:B=Y+2:K=Y+3:W=Y+4:S=X+1:G=X+2:U=X+3:R=X+4:A=ASC(A$)-64:IFA=-25THENLINE(S,Y)-(S,Z):RETURNELSEONAGOSUB67,68,69,70,71,72,73,74,75,76,77,78,79,80,65,81,82,83,84,85,86,87,88,89,90,91:RETURN 57 PSET(X,K):RETURN 58 PSET(S,W):RETURN 59 GOSUB94:GOTO100 60 PSET(S,B):RETURN 61 PSET(G,Z):RETURN 62 PSET(U,W):RETURN 63 PRESET(G,B):RETURN 64 PRESET(G,W):RETURN 65 GOSUB96:GOTO59 66 GOSUB98:GOTO65 67 GOSUB96:GOSUB94:GOTO60 68 GOSUB66:GOTO63 69 GOSUB96:GOTO100 70 GOSUB92:PSET(S,Y):LINE(G,Z)-(G,K):GOTO58 71 GOSUB100 72 GOSUB96:GOTO60 73 GOSUB96:LINE(G,B)-(G,W):GOTO100 74 GOSUB92:GOSUB94:GOTO60 75 GOSUB92:IFZZTHENX=X-2:RETURNELSERETURN 76 GOSUB59:GOTO57 77 GOSUB92:GOSUB99:LINE(G,K)-(G,W):GOTO60 78 GOSUB92:GOTO100 79 GOSUB96:PSET(U,Y):GOSUB95:GOSUB94:IFZZTHENX=G:RETURNELSERETURN 80 GOSUB92:LINE(U,Y)-(U,W):LINE(S,Z)-(G,B):IFZZTHENX=S:RETURNELSERETURN 81 GOSUB96:GOSUB99:GOTO98 82 GOSUB65:GOSUB62:IFZZTHENX=S:RETURNELSERETURN 83 GOSUB77:GOTO101 84 GOSUB101:GOSUB97:GOSUB98:PSET(G,K):GOTO100 85 GOSUB93:GOTO101 86 GOSUB92:GOSUB94:GOTO58 87 GOSUB86:PRESET(X,W):GOTO64 88 GOSUB92:GOSUB62:GOSUB95:GOSUB59:IFZZTHENX=G:RETURNELSERETURN 89 GOSUB74:PRESET(X,B):GOTO63 90 LINE(G,Y)-(G,B):LINE(S,B)-(S,W):GOTO97 91 GOSUB101:GOSUB100:GOSUB61:GOSUB60:GOTO57 92 LINE(X,Y)-(X,W):RETURN 93 LINE(S,Y)-(S,W):RETURN 94 LINE(G,Y)-(G,W):RETURN 95 LINE(R,Y)-(R,W):RETURN 96 LINE(G,Y)-(X,Y):GOTO92 97 LINE(X,Y)-(X,B):RETURN 98 LINE(X,B)-(G,B):RETURN 99 LINE(G,Y)-(G,Z):RETURN 100 LINE(X,W)-(G,W):RETURN 101 LINE(X,Y)-(G,Y):RETURN