Atari 8-bit Source code

0REMbyJohn(Jay)Williams.
1GOSUB9000:GOTO7000
5FORC=N1TON3:FORR=OTONX+N1:POSITIONY,R:?#N6;CHR$(N4):NEXTR:Y=Y+N1:NEXTC:RETURN
10FORW=OTOD:NEXTW:RETURN
15LN=XX+X9:POSITIONN6,N8:?#N6;CHR$(LN):POSITIONNX+N2,N8:?#N6;CHR$(LN-N2):RETURN
20FORW=OTON3:SOUNDW,O,O,O:NEXTW:RETURN
25FORZ=XX2TOXXSTEP-N2:SOUNDO,Z,NX,N6:SOUNDN1,Z-X6,NX,N6:GOSUBX2:NEXTZ:FORZ=XXTOXX2STEPN2
26SOUNDO,Z,NX,N6:SOUNDN1,Z-X6,NX,N6:GOSUBX2:NEXTZ:GOSUBTMF:GOTOXXX*N7+XX
30R=N8:IFLEN(X3$)=OANDLEN(P3$)>OTHENR=N7
31RETURN
35POSITIONC,R:IFCHR$(X)=""THEN?#N6;"";:RETURN
36IFX=X3+N9ORX=X4+N4ORX=X4+N5THEN?#N6;CHR$(X+NZ);:T=T+N1:RETURN
37?#N6;"*";:T=T+N1:RETURN
45POSITIONC,R:?#N6;CHR$(X+XX+X6);:GOSUBX6+N5:RETURN
47?#N6;CHR$(L+ILC):D=N5:GOSUBNX:RETURN
48FORW=N1TOXXX:NEXTW:RETURN
50GOSUBX3:POSITIONNX+N9,R:GOSUBX4+N7:RETURN
55D=X2:GOSUBNX:POSITIONC,R:?#N6;CHR$(L+XX+X6):SOUNDO,145,NX,N5:SOUNDN1,XX,NX,NX:D=XX:GOSUBNX:GOSUBX2
56LF=LF+N1:PVC=PVC+N1:GOSUBX7+N5:D=X6:GOSUBNX:RETURN
60PLOTC-N1,RW:GOSUBX4+N7:SOUNDO,XX,NX,N3:D=X2:GOSUBNX:GOSUBX2:D=X6:GOSUBNX:PLOTC-N1,RW:?#N6;"":RETURN
62FORX=CTOOSTEP-N1:POSITIONX,RW:GOSUBX4+N7:POSITIONX,RW:?#N6;"":SOUNDO,XX2-X,14,Y:NEXTX:GOSUBX3
63FORX=RW+N1TOR:POSITIONO,X:GOSUBX4+N7:POSITIONO,X:?#N6;"":SOUNDO,XX2+X,14,Y:NEXTX:D=NX:GOSUBNX:RETURN
65FORX=N8TOOSTEP-N1:SOUNDO,NX,NX,X:NEXTX:RETURN
67SOUNDN1,X7+N3,NX,N4:RETURN
70TM=TM-N1:PLOTNX+N8,NX:?#N6;CHR$(TM):GOSUBX6+N5:IFTM=TMFTHENGOTOX7+N2
71RETURN
72GOSUBX9:S$="sorry...outoftime":GOSUBX8:D=XX*N5:GOSUBNX:WN=O:IFLEN(P2$)<N1THENGOTOX7+N9
73RETURN
74GRAPHICSO:POKECR2,X9+N6:RETURN
75PV=XX*NX+(X5*LEN(X1$))+(X5*LEN(X2$))+(X5*LEN(X3$))-(PVC*XX):PLOTNX+N5,O:?#N6;"":PLOTNX+N5,O
76IFPV<N1THEN?#N6;"0000":RETURN
77?#N6;PV:RETURN
79T1=T1-INT(T1/NX):GOSUBX9+N5:RETURN
80GOSUBX3:FORZ=N1TOLEN(S$):POSITIONZ,R:?#N6;S$(Z,Z):SOUNDO,NX,NX,XX:D=N5:GOSUBNX:GOSUBX2:GOSUBNX
81NEXTZ:FORX=NXTOOSTEP-N1:SOUNDO,NX,NX,X:D=NX:GOSUBNX:NEXTX:D=XX*N3:GOSUBNX:RETURN
85GOSUBX3:PLOTN7,R:?#N6;"O":SOUNDO,XX2,NX,N8:D=XX:GOSUBNX:GOSUBX2:GOSUBNX:PLOTN9,R:?#N6;"OH"
86SOUNDO,XX2+X5,NX,N8:D=XX*N3:GOSUBNX:GOSUBX2:RETURN
88GOSUBX3:PLOTO,R:?#N6;"":D=X2:D=XX*N5:GOSUBNX:RETURN
90FORX=NX+N4TOOSTEP-N1:SETCOLORN4,O,X:SOUNDO,XX2+X5,NX,N7:SOUNDN1,XX2,N2,N7:D=X3
91GOSUBNX:NEXTX:D=XX2:GOSUBNX:GOSUBX2:GOSUBNX:RETURN
95FORRW=N9TONX+N1:PLOTN9,RW:?#N6;"":NEXTRW:R=N9:IFLEN(P3$)=OTHENR=NX
96PLOTO,R:?#N6;P1$:PLOTN9,R:?#N6;T1:IFLEN(P2$)=OTHENRETURN
97PLOTO,R+N1:?#N6;P2$:PLOTN9,R+N1:?#N6;T2:IFLEN(P3$)=OTHENRETURN
98PLOTO,R+N2:?#N6;P3$:PLOTN9,R+N2:?#N6;T3:RETURN
100FORW=OTON3:POKECR0+W,O:NEXTW:RETURN
110POSITIONN1,R:?"":RETURN
120POSITIONC,R:?#N6;S$:RETURN
200IFPEEK(PK)=N6THENGOTORW
201IFPEEK(PK)=N3THENGOTOR
202GOTOXX2
205POSITIONN2,NX+N6:RETURN:REM**
300FORR=NX+N9TONX+N6STEP-N1:GOSUBXX+NX:NEXTR:GOSUBXX2+N5:?"PRESSTOGOON,OR....":?
310?"TOREPEATLASTENTRY.":POSITION2,17:?:RETURN
400GOSUBXX2+N5:?"":?"Whenentryisdone.....,or":?"evenifyoumadeerror,or"
410?"iflineistobeblank....":POSITIONX2+N4,R:RETURN
500GRAPHICSO:POKECR2,X9+N8:POKECR4,X9+N8:?:?"M.C.INPUT":POSITIONN2,N7:RETURN
600POSITIONN2,R:RETURN
1000GRAPHICSNX+N8:POKECR0,X3+N8:POKECR1,X6+N8:POKECR2,XX2-N2:POKECR3,XX+X5:POKE77,O:LN=XXX+X5
1010PLOTO,O:?#N6;CTG$:GOSUBX9+N5:GOSUBX7+N5:GOSUBX3:IFPZ>OTHENPOSITIONNX+N4,R:?#N6;"(";PZ;")"
1020R=N2:FORC=N1TOLEN(X1$):X=ASC(X1$(C,C)):IFX<>A1(C)THENGOSUBX3+N5:NEXTC:GOTO1040
1030GOSUBX4+N5:NEXTC
1040IFLEN(X2$)=OTHENGOTOXXX+XX
1050R=N4:FORC=N1TOLEN(X2$):X=ASC(X2$(C,C)):IFX<>A2(C)THENGOSUBX3+N5:NEXTC:GOTOXXX+X7
1060GOSUBX4+N5:NEXTC
1070IFLEN(X3$)=OTHENGOTOXXX+XX
1080R=N6:FORC=N1TOLEN(X3$):X=ASC(X3$(C,C)):IFX<>A3(C)THENGOSUBX3+N5:NEXTC:GOTOXXX+XX
1090GOSUBX4+N5:NEXTC
1100IFLP=N1THENGOTOPLL
1110X=1230*(TURN=N1)+1240*(TURN=N2)+1260*(TURN=N3):GOTOX
1200IFWN=N1THENGOTOXXX+XX*N4
1210X=(PLL+X4)*(PL=N1)+(PLL+X6)*(PL=N2)+(PLL+X3)*(PL=N3):GOTOX
1230PL=N1:GOTOPLL+XX
1240IFLEN(P2$)=OTHENGOTOPLL+X3
1250PL=N2:GOTOPLL+XX
1260IFLEN(P3$)=OTHENGOTOPLL+X3
1270PL=N3
1300WN=O:LN=1300:IFLP=OTHENTL=T:D=XX*N5:GOSUBNX
1310LP=N1:GOSUBX8+N8:FORX=X6TOX3STEP-N1:SOUNDO,X,NX,N7:NEXTX:GOSUBX2:PLOTO,R:IFPL=N1THENS$=P1$
1315IFPL=N2THENS$=P2$
1320IFPL=N3THENS$=P3$
1325IFSP2=N1THENGOTOLN+X4
1330IFLEN(P2$)=OTHENGOTOLN+X4+N5
1335?#N6;S$;"":GOTOLN+X5
1340?#N6;"";S$:SP2=O:GOTOLN+X5
1345?#N6;""
1350IFTL=PVCTHEND=XX2:GOSUBNX:GOTO2420
1360TM=X5+N4:POKEX2,O
1370IFPEEK(X2)>=XX+X2THENGOSUBX7:POKEX2,O:IFTM=TMFTHENGOTOPLL
1380IFSTICK(O)=NX+N3ORSTICK(N1)=NX+N3THENGOTOXXX*N3
1390GOTO1370
1400IFSP2=N1THEN1300
1405D=XX*N3:GOSUBNX:S$="selectaletter:":GOSUBX8:L=X6+N4:POKEX2,O:X=O:DR=O
1410IFPEEK(X2)>=XX2+X4THENX=X+N1:POKEX2,O:IFX=N4THENTM=X5+N8:GOTOTMR
1420IFSTICK(O)<>NX+N5ORSTICK(N1)<>NX+N5THENTM=X5+N5:POKEX2,O:GOTOTMR
1430GOTO1410
1500IFPEEK(X2)>=XX+X2THENGOSUBX7:POKEX2,O:IFTM=TMFTHENGOTOPLL
1510LN=1600:IFSTICK(O)=N7ORSTICK(N1)=N7THENGOTOLN+X2
1520IFSTICK(O)=NX+N1ORSTICK(N1)=NX+N1THENGOTOLN+X4
1530IFSTRIG(O)=OORSTRIG(N1)=OTHENGOTOLN
1540GOTOTMR
1600IFDR=OTHENGOTOXXX*N2
1610GOTO2410
1620IFDR=OTHENGOTOLN+X6
1630L=X8+N9:Z=N1:GOSUBX5:GOTOTMR
1640IFDR=OTHENGOTOLN+X8
1650L=X7+N8:Z=O:GOSUBX5:GOTOTMR
1660L=L+N1:IFL>X9THENL=X9
1670GOSUBX5:GOTOTMR
1680L=L-N1:IFL<X6+N5THENL=X6+N5
1690GOSUBX5:GOTOTMR
2000GOSUBX3:FORC=NX+N9TON1STEP-N1:POSITIONC,R:?#N6;"":POSITIONC-N1,R:?#N6;CHR$(L+ILC)
2010SOUNDO,C+XX+X5,NX,N4:D=NX:GOSUBNX:NEXTC:GOSUBX2:D=X2:GOSUBNX:FORX=RTON1STEP-N1:POSITIONO,X
2020?#N6;CHR$(L+ILC):SOUNDO,X+XX+X3,NX,N4:D=X2:GOSUBNX:POSITIONO,X:?#N6;"":NEXTX:GOSUBX2:D=XX:GOSUBNX
2100LN=XXX*N2+XX2:LF=O:FORC=N1TOLEN(X1$):RW=N1:GOSUBX6:IFL=A1(C)THENGOTOLN+X2
2110IFASC(X1$(C,C))=LTHENA1(C)=L:R=N2:GOSUBX5+N5
2120NEXTC:IFLEN(X2$)=OTHENGOTOLN
2130FORC=N1TOLEN(X2$):RW=N3:GOSUBX6:IFL=A2(C)THENGOTOLN+X2
2140IFASC(X2$(C,C))=LTHENA2(C)=L:R=N4:GOSUBX5+N5
2150NEXTC:IFLEN(X3$)=OTHENGOTOLN
2160FORC=N1TOLEN(X3$):RW=N5:GOSUBX6:IFL=A3(C)THENGOTOLN+X2
2170IFASC(X3$(C,C))=LTHENA3(C)=L:R=N6:GOSUBX5+N5
2180NEXTC
2200LFT=LF:D=XX2:GOSUBNX:IFLFT>OTHENGOTOLN+X4
2210S$="sorry...nonefound":GOTOLN+X3
2220D=XX2:GOSUBNX:GOSUBX8+N5:S$="letteralreadyup"
2230GOSUBX8:D=XX2:GOSUBNX:Y=N6:GOSUBX6+N2:FORC=OTONX+N8:PLOTC,R:GOSUBX4+N7:SOUNDO,XX2+NX+C,14,N6:NEXTC
2235FORX=N1TOX7:SOUNDO,XX2+X4,NX+N4,N6:SOUNDO,255,NX+N4,N6:NEXTX:GOSUBX2:IFLEN(P2$)=OTHENGOSUBX7+N9
2237WN=O:GOTOPLL
2240Y=O:GOSUBX6+N2:IFL=X6+N5ORL=X6+N9ORL=X7+N3ORL=X7+N9ORL=X8+N5THENGOTOLN+XX
2250S$="youwin":GOSUBX8:D=XX:GOSUBNX:PLOTN8,R:?#N6;PZ;"";LFT;"";PZ*LFT:D=XX*N5:GOSUBNX
2260T1=T1+LFT*PZ*(PL=N1):T2=T2+LFT*PZ*(PL=N2):T3=T3+LFT*PZ*(PL=N3):GOTOLN+XX2
2300S$="vowelcost":GOSUBX8:D=X3:GOSUBNX:PLOTNX+N1,R:?#N6;"50";LFT;"";LFT*X5:D=XX*N5:GOSUBNX
2310T1=T1-LFT*X5*(PL=N1):T2=T2-LFT*X5*(PL=N2):T3=T3-LFT*X5*(PL=N3)
2400FORX=N1TON3:GOSUBX9+N5:NEXTX:GOSUBNX:GOSUBNX:S$="trysolve:yorn?":GOSUBX8:TM=X5+N8:DR=N1:GOTOTMR
2410IFZ=N1THENGOTO2500
2420IFTL=PVCTHENS$="lettersallfound":GOSUBX8:D=XX*N3:GOSUBNX:GOTO2400
2430S$="allright,thenspin":GOSUBX8:GOTO1360
2500S$="stateyourguess...":GOSUBX8:D=XX:GOSUBNX:S$="y=yes/n=no...":GOSUBX8
2510LN=2500:X=77:Z=764:POKENX+N9,O:POKEZ,255
2520IFPEEK(Z)=ASC("+")THENPOKEX,O:POKEZ,255:GOTOLN+XX
2530IFPEEK(Z)=ASC("#")THENPOKEX,O:POKEZ,255:GOSUBX9:WN=O:GOTOXXX
2540IFPEEK(NX+N9)>NXTHENPOKEX,NZ
2550GOTOLN+X2
2600GRAPHICSNX+N8:POKECR0,X3:POKECR1,X7+N2:POKECR4,X9+N6:POKECR2,XX+N4:POKECR3,X2+N6
2610S$="youguessedit!":GOSUBX8:D=XX2:GOSUBNX:PLOTO,R:?#N6;""
2620PLOTO,O:?#N6;CTG$:D=XX2:GOSUBNX:PLOTO,N2:?#N6;X1$:D=X5:GOSUBNX:PLOTO,N4:?#N6;X2$
2625GOSUBNX:PLOTO,N6:?#N6;X3$:SP=N1:GOTO7160
2630GOSUBTMF:GOSUBX9+N5:D=XX*N5:GOSUBNX:S$="puzzleprize:":GOSUBX8
2640D=XX2:GOSUBNX:POSITIONNX+N5,R:?#N6;"$";PV:GOSUBNX:T1=T1+PV*(PL=N1):T2=T2+PV*(PL=N2):T3=T3+PV*(PL=N3)
2670FORX=N1TON3:GOSUBX9+N5:NEXTX:GOSUBTMF
2680IFNOP=N1ORNOP=N2ANDTURN=N2ORNOP=N3ANDTURN=N3THENGOTO2700
2690GOTO6200
2700LN=2740:S$="thewinneris":GOSUBX8:GOSUBNX:PLOTNX+N4,R:IFT1>T2ANDT1>T3THEN?#N6;P1$:GOTOLN
2710IFT2>T1ANDT2>T3THEN?#N6;P2$:GOTOLN
2720IFT3>T1ANDT3>T2THEN?#N6;P3$:GOTOLN
2730S$="it'satie!":GOSUBX8
2740D=XX2:GOSUBNX:GOTOX2+N5:REM
3000TRAPXXX*N3:FORY=NXTOOSTEP-N1:SOUNDO,XX2+X5,NX,NX:GOSUBX2:FORW=N1TOY:NEXTW:NEXTY
3010SOUNDO,XX2+X5,N2,N4:TRAPXXX*X4
3020GRAPHICSNX+N8:GOSUBXX:Y=N4:GOSUBN5:Y=NX+N2:GOSUBN5:GOSUBNX+N5
3030S$="BONL*T???TAXBONL*T???":RR=INT(RND(O)*15)+NX+N4:RS=INT(RND(N1)*N3)+N1:T=N1
3040POKECR0,X5+N2:POKECR1,NX:POKECR2,XX+X9+N6
3050FORR=N1TORR:X=T:Y=T+N2:FORRW=NXTOOSTEP-N2:PLOTN7,RW:?#N6;S$(X,Y):SOUNDO,XX,NX,N8:SOUNDO,O,O,O
3060X=X+N3:Y=Y+N3:IFX=X4+N3THENX=N1:Y=N3
3070NEXTRW:T=T+N3:IFT=X4+N3THENT=N1
3074D=XX*N3*(R>RR-RS)+XX*(R>RR-RS-N2)+X3*(R>RR-RS-N6)+NX*(R>RR-RS-NX):GOSUBNX:NEXTR
3100FORX=N1TON6:POSITIONN6,N8:?#N6;"":POSITIONNX+N2,N8:?#N6;"":GOSUBNX+N5:SOUNDO,NX,NX,N8:D=NX
3110GOSUBNX:GOSUBX2:NEXTX:D=XX2:GOSUBNX:LOCATEN8,N8,X:GRAPHICSNX+N8:WN=N1:POKECR0,NX+N4:PZ=O:DR=O
3120LN=3200:Z=INT(RND(N1)*N9)+NX+N2:IFX>X8+N4THENGOTOLN
3130Y=(LN+XX)*(X=X6+N6)+(LN+XX2)*(X=X7+N6ORX=X8+N4)+XXX*N4*(X=X6+N3):GOTOY
3200POKECR4,X2:S$="VALUE":C=N4:R=N1:FORY=N1TON5:PLOTC,R:?#N6;S$(Y,Y):C=C+N1:R=R+N1:D=NX:GOSUBNX:NEXTY
3210C=N4:R=N9:FORY=N1TON5:PLOTC,R:?#N6;S$(Y,Y):C=C+N1:R=R-N1:GOSUBNX:NEXTY:D=XX2:GOSUBNX:PLOTNX,N5
3220IFX=176THENPZ=X5:?#N6;"$50":GOTOFIN
3230PZ=(X-176)*XX:?#N6;"$";PZ:GOTOFIN
3300PZ=Z*XX
3310POKECR4,X5:S$="BONUSUNO":FORDR=N1TON5:C=N5:R=N5:FORY=N1TON8
3320C=C+N1*(Y<N4):R=R-N1*(Y<N4):C=C+N1*(Y>N3ANDY<N6):R=R+N1*(Y>N3ANDY<N6):C=C-N1*(Y>N5ANDY<N8)
3340R=R+N1*(Y>N5ANDY<N8):IFY=N8THENC=C-N1:R=R-N1
3350PLOTC,R:?#N6;"":D=N3:GOSUBNX:PLOTC,R:?#N6;S$(Y,Y):NEXTY:NEXTDR:D=XX2:GOSUBNX:PLOTN3,NX
3360?#N6;"$";PZ;:IFPZ<XXXTHEN?#N6;"";
3370?#N6;"VALUE":GOTOFIN
3400POKECR4,XX+NX+N2:WN=O:IFX=X8+N4THEN3500
3410IFLEN(P2$)=OTHENGOTOXXX*N5
3420GOSUBX8+N5:POKE755,N4:PLOTN4,N4:?#N6;"LOSETURN":D=XX*N5:GOSUBNX:POKE755,N2:GOTOFIN
3500GOSUBX8+N5:PLOTO,R-N6:?#N6;"TAXONPRIZESDUE:":D=XX2:GOSUBNX:PLOTO,R-N4:?#N6;"PAY25%OFWINNINGS"
3510GOSUBNX:PLOTN6,R:?#N6;"":IFLEN(P2$)=OTHEN3530
3520PLOTN4,R-N2:?#N6;"(LOSETURN)"
3530D=XX*N5:GOSUBNX:GOSUBX9+N5:GOSUBTMF
3540T1=T1-INT(0.25*T1)*(PL=N1):T2=T2-INT(0.25*T2)*(PL=N2):T3=T3-INT(0.25*T3)*(PL=N3):GOSUBX9+N5
3600GOSUBTMF:IFWLP=N1THEN4210
3610FORX=NX+N4TOOSTEP-N2:POKECR0,X:D=N5:GOSUBNX:NEXTX:POKECR4,O:GOTOXXX
4000LN=3120:IFLEN(P2$)>OTHEN4100
4010Y=INT(RND(O)*N4):X=(X6+N6)*(Y=OORY=N3)+(X7+N6)*(Y=N1)+(X8+N4)*(Y=N2):DR=N1:IFY=N3THEN4150
4020GOTOLN
4100LN=XXX*N4+XX:IFPL=N1THENIFT1>T2*N2ANDT1>T3*N2THENGOTOLN+X6
4105IFPL=N2THENIFT2>T1*N2ANDT2>T3*N2THENGOTOLN+X6
4110IFPL=N3THENIFT3>T1*N2ANDT3>T2*N2THENGOTOLN+X6
4115IFPL=N1THENIFT1>T2*1.5ANDT1>T3*1.5THENGOTOOOH
4120IFPL=N2THENIFT2>T1*1.5ANDT2>T3*1.5THENGOTOOOH
4125IFPL=N3THENIFT3>T1*1.5ANDT3>T2*1.5THENGOTOOOH
4130IFPL=N1THENIFT1*N2<T2ORT1*N2<T3THENGOTOLN+X5
4135IFPL=N2THENIFT2*N2<T1ORT2*N2<T3THENGOTOLN+X5
4140IFPL=N3THENIFT3*N2<T1ORT3*N2<T2THENGOTOLN+X5
4145GOTOXXX*N5
4150WLP=N1:PZ=Z*X5:GOTOBON
4160X=X8+N4:GOTOOOH
4200PZ=Z*X5:IFLEN(P2$)=OTHENGOTOBON
4210POKECR0,O:S$="PLUS":FORC=N2TONX+N4STEPN4:FORR=OTONX:GOSUBXX+X2:NEXTR:NEXTC:D=XX*N3:GOSUBNX
4220LN=4260:R=N3:Z=N2:GRAPHICSNX+N8:POKECR0,XX+X3:POKECR2,NX+N4:POKECR4,XX+X4
4250S$="YOURECEIVEA":GOSUBLN:R=N5:POSITIONN3,R:?#N6;"$";PZ/N2;"":S$="REFUND!":Z=N8:GOSUBLN:GOTOLN+X2
4260FORC=N1TOLEN(S$):X=ASC(S$(C,C)):POSITIONC+Z,R:?#N6;CHR$(X+NZ):D=NX:GOSUBNX:POSITIONC+Z,R:?#6;CHR$(X)
4270FORY=N6TOOSTEP-N2:SOUNDO,XX,NX,Y:SOUNDN1,XX,N2,Y:NEXTY:GOSUBX2:NEXTC:RETURN
4280D=XX*N4:GOSUBNX:GOSUBX9+N5:D=XX*N6:GOSUBNX:T1=T1+PZ/N2*(PL=N1):T2=T2+PZ/N2*(PL=N2):T3=T3+PZ/N2*(PL=N3)
4290GOSUBX9+N5:GOSUBNX:WLP=O:GOTOFIN
5000POKECR0,122:POKECR1,NX+N4:IFLEN(P2$)>OORDR=N1THENGOTOXXX*N5+NX
5005PLOTN3,N3:?#N6;"FOR1PLAYER":PLOTN3,N5:?#N6;"'L*T'MEANS:"
5010PLOTN4,N8:?#N6;"lucktime":GOSUBTMF:DR=O
5015PLOTN1,N3:?#N6;"PUSHYOURBUTTON":POSITIONO,N5:?#N6;"TOENDTHESUSPENSE":D=XX*N5:GOSUBNX
5020PLOTN4,N8:?#N6;"goodluck":GOSUBTMF:R=N3
5025FORX=N1TON2:FORC=OTONX+N8:PLOTC,R:NEXTC:R=N5:NEXTX
5030FORC=OTONX+N8:PLOTC,N8:NEXTC:GOSUBX9+N5:POKECR0,NX+N4:LN=5040:D=N5:POKENX+N9,O
5040IFPEEK(19)>NXTHENPOKE77,128
5045RS=INT(RND(O)*N5)+N1:S$="-":X=XX2+X5:GOSUBLN+NX:GOSUBLN+X2:S$="+":X=XX2:GOSUBLN+NX:GOSUBLN+X2:GOTOLN
5050PLOTN6,N5:?#N6;"":GOSUBNX:PLOTN6,N5:?#N6;S$;"$";RS*XX:GOSUBNX:SOUNDO,X,NX,N4:RETURN
5060IFSTRIG(O)=OORSTRIG(N1)=OTHENPOP:GOTOXXX*N5+XX
5070RETURN
5100SOUNDO,XX,NX,NX+N5:D=X3:GOSUBNX:GOSUBX2:LOCATEN7,N5,X:IFX=X4+N3THEN5120
5110T1=T1-RS*XX*(PL=N1):T2=T2-RS*XX*(PL=N2):T3=T3-RS*XX*(PL=N3):GOTO5130
5120T1=T1+RS*XX*(PL=N1):T2=T2+RS*XX*(PL=N2):T3=T3+RS*XX*(PL=N3)
5130D=XX*N5:GOSUBNX:FORX=N1TON3:GOSUBX9+N5:NEXTX:GOSUBNX:POKE77,O:WN=N1:SP2=N1:GOTOFIN
6000GOSUBXX*N5:?"ENTERNO.OFPUZZLES(1,2,OR3)";:LN=XXX*N6
6010TRAPLN+NX:INPUTNOP:IFNOP<N1ORNOP>N3THENGOTOLN+NX
6020TRAPXXX*X4:GOSUBSS:R=LN:RW=LN+XX:GOTOXX2
6100GOSUBXX*N5:POKEIV,NZ:?"ENTERNAMESOFPLAYERS|.....|":R=N9:GOSUBPRT:?"1.";:INPUTP1$:R=NX:GOSUBPRT
6105IFLEN(P1$)=OTHENGOTOLN+XX
6110?"2.";:INPUTP2$:R=NX+N1:GOSUBPRT:?"3.";:INPUTP3$:GOSUBSS:LN=LN+XX
6120POKEIV,O:R=LN:RW=LN+XX:GOTOXX2
6200TURN=TURN+N1:LP=O:PVC=O:TL=O:PZ=O:FORC=N1TONX+N8:A1(C)=O:NEXTC:FORC=N1TONX+N8:A2(C)=O:NEXTC
6210FORC=N1TONX+N8:A3(C)=O:NEXTC:LN=XXX*N6+XX2
6220GOSUBXX*N5:?"ENTERPUZZLENO.";TURN;"(UPTO3ROWS)":?:?"|..................|":R=NX+N1:GOSUBPRT
6230GOSUBXX*N6:?"1.";:INPUTX1$:R=NX+N2:GOSUBXX*N6:?"2.";:INPUTX2$:R=NX+N3:GOSUBXX*N6
6240?"3.";:INPUTX3$:GOSUBSS:R=LN+X2:RW=LN+XX:GOTOXX2
6300GOSUBXX*N5:?"ENTERTHECATEGORY":?:?"|............|":?:POSITIONN4,NX+N1:POKEIV,NZ:INPUTCTG$:LN=6300
6310POKEIV,O:GOSUBSS:R=LN:RW=LN+X2:GOTOXX2
6320GRAPHICSO:POKECR2,X6+N4:POKECR4,X6+N4:?:?"":D=XX*N3:GOSUBNX:IFTURN>N1THEN6340
6330?:?:?"NO.OF":?"PUZZLES__:";NOP:?:?"PLAYER__1:";P1$:?"__2:";P2$:?"__3:";P3$
6340?:?"PUZZLE__1:";X1$:?"__2:";X2$:?"__3:";X3$:?:?"CATEGORY:";CTG$:?:?:?
6350?"PressifallOK...":?:?"Presstorepeat...":R=XXX*N6:RW=6400:IFTURN>N1THENR=6220
6360GOTOXX2
6400GRAPHICSNX+N7:POKECR0,X7:POKECR1,X2+N2:POKECR2,X5+N4:POKECR4,O:PLOTN2,N7:?#N6;"WHENEVERYONE"
6410D=XX2:GOSUBNX:PLOTN4,NX+N1:?#N6;"isready":D=XX2:GOSUBNX:PLOTN3,NX+N5:?#N6;""
6420IFPEEK(PK)=N6THENGOTOXXX
6430GOTO6420
7000DIMP1$(5),P2$(5),P3$(5),CTG$(12),X1$(18),X2$(18),X3$(18),S$(42),A1(18),A2(18),A3(18)
7010O=0:N1=1:N2=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N9=9:NX=10:X2=NX*N2:X3=NX*N3:X4=NX*N4:X5=NX*N5:X6=NX*N6:X7=NX*N7
7020X8=NX*N8:X9=NX*N9:XX=NX*NX:XX2=XX+XX:XXX=XX*NX:ILC=X3+N2:TMF=X4+N8:IV=694:NZ=128:CR0=708:CR1=CR0+N1
7030CR2=CR1+N1:CR3=CR2+N1:CR4=CR3+N1:SS=XX*N3:PRT=XX*N4:PLL=XXX+XX2:TMR=1500:BON=3310:OOH=3400:FIN=3600:PK=53279
7100GRAPHICSN2:GOSUBXX:T1=O:T2=O:T3=O:SP=O:C=N2:R=N2:S$="$$$$$$$$$$$$$$$$":GOSUBXX+X2:?#N6
7110?#N6;"wheeloffortune":R=N6:GOSUBXX+X2:POKECR0,X3+N8:POKECR1,X6+N8
7120R=XX+X5:SOUNDO,X7+N4,NX,N5:GOSUBX6+N7:D=XX*N3:GOSUBNX:FORY=N1TON3:FORZ=N1TON5:SOUNDO,R,NX,N8
7130SOUNDN1,X6+N9,NX,N7:D=N1:GOSUBNX:GOSUBX2:D=N2:GOSUBNX:NEXTZ:FORZ=N1TON3:SOUNDO,R,NX,N8
7140SOUNDN1,X6+N9,NX,N8:D=N5:GOSUBNX:GOSUBX2:D=X6:GOSUBNX:NEXTZ:R=R-35:NEXTY:D=NX:GOSUBNX:GOSUBX6+N7
7150SOUNDO,X6+N1,NX,N7:D=X3:GOSUBNX:GOSUBX2:D=X6:GOSUBNX:D=X2:GOSUBNX
7160SOUNDO,X8,NX,N8:REM
7170D=X6:GOSUBNX:GOSUBX2:D=XX:GOSUBNX:GOSUBX6+N7:SOUNDO,122,NX,N4:SOUNDN2,X9+N2,NX,N4:SOUNDN3,145,NX,N4
7180D=XX*N5:GOSUBNX:GOSUBX2:IFSP=N1THEN2630
7190?"COPYRIGHT1984BYJBW,INC.":GOSUBTMF:TURN=O:GOTOXXX*N6
8000REM
8001REM
8002REM
8003REM
8004REM
8005REM
9000GRAPHICS1:POKE710,0:POKE752,1:POKE764,255:POKE82,1:POKE83,38:?:?"HITTOREADDOC/INSTRUCTIONS"
9010IFFRE(0)<25000THEN?:?"HITTORUNWHEELOFFORTUNE-"
9020PLOT1,5:?#6;"WHEELOFFORTUNE":PLOT3,8:?#6;"DOCUMENTARY."
9030X=INT(RND(0)*12)+4:POKE708,X*16+6:POKE708,X*16+8:IFPEEK(764)=58THEN9100
9040IFFRE(0)<25000THENIFPEEK(764)=40THENPOKE764,255:RETURN
9050POKE764,255:GOTO9030
9100GRAPHICS0:POSITION15,0:?"AKRUD":?:?"ThisisaRevisedDOC.ThefirstwaslongerthantheGAME!";
9110?"IhopeClarity":?"isnotdestroyedbyBrevity.Ifyoudohaveanyproblemsorquestions,PLEASE";
9120?"leavemeamessageorcall!":?"TheGAMEwasmyfirst'majorwork'.Itisnotflawless.Iwould";
9130?"thereforealsoappreciateanyconstructivecrit-icismfromyou'oldpros'.":?"Itis,ofcourse,";
9140?"modeledaftertheTVgameshow,'WheelofFortune'.Sincemywholefamilyenjoyedthe"
9150?"show,Ithoughtitwouldbeneattobeabletomakeupourownpuzzlestobaffleeachotherwith."
9160?:?"John(Jay)Williams70707,630":?:?"(Mass)617-987-0943":GOSUB9170:GOTO9200
9170POSITION8,22:?"":POSITION1,21:?"":POKE764,255
9180IFPEEK(764)=12THENRETURN
9190GOTO9180
9200GOSUB9210:?"MyriadRoutines...":?:?"ThisDocumentary!":GOTO9220
9210GRAPHICS0:?"RADW&NLSS":?:RETURN
9220?:?"Initialization&Title":?:?"M.C.Input&Review|TurnLoop":GOSUB9170:GOSUB9210
9230?"":?:?"SetupPuzzleScreen"
9235?"DirectionsforTurn":?"GetPlayer'sTurn":?"'SPIN'":?"SelectaLetter"
9240?"Timer":?"Printstick-selectedletters":?"SearchforLetter":?"Disposition"
9245?"'nonefound'|'alreadyup'":?"'youwin'|'vowelcost'":?"'trysolve?',etc."
9250?"'stateyourguess'":?"'youguessedit!'|Reveal...":?"'thewinneris'":GOSUB9170
9260GOSUB9210:?"":?:?"Spinner":?"Getresult|Givedirection"
9265?"VALUE":?"BONUS":?"LOSETURN":?"TAX":?"'FIN'(FinishSpinnerLoop"
9270?"???('Surprise')|1Player":?"???morethan1|Comparescores":?"PLUS|REFUND"
9275?"LUCKTIME":GOSUB9170
9300Z=0:GOSUB9305:?":M.C.:Putsinthepuzzle(s)":GOTO9310
9305Z=Z+1:GRAPHICS0:?Z:POSITION13,0:?"NTUTOS":?:RETURN
9310?"PLYR:Solvesthepuzzle(s)":?"Max.:1M.C.and1-3PLYRs":?
9320?"1stINPUT:(1,2,or3)":?"-Oneadvantageof2-3puzzlesfor2-3PLYRsisthateach";
9330?"getsa":?"turngoingfirst.":?"-Note:whengivenNo.ofpuzzlesaredone,GAMEreturnsto";
9340?"TITLEandScoresrevertto0.":?:?"2ndINPUT:(5-digitsmax.)":?"-Note:PLYR";
9350?"names&Categoryareauto.installedinInverseVideo.":?"-Note:LengthlimitsalsoonPuzzle"
9360?"Lines&Category.JuststaywithintheBrackets:|............|":?:GOSUB9170
9400GOSUB9305:?"3rdINPUT:(18digits-3lines)"
9410?"-Usereg.UPPERCASEALPHABET":?"-3Punctuationmarksonly:":?"CommaApostropheHyphen"
9420?"-Note:PLYRsmaynotwatchM.C.INPUTorREVIEW...":?:?"4thINPUT:(15-digitmax.)"
9430?"-Ex:Things,Places,People,Ex-pressions...yourIMAGINATION":?:?""
9440?"-ReviewtotalInputforaccuracy-Preparetoplay...":?"-Note:Ifmorethan1puzzle,M.C."
9450?"willnothavetorepeator":GOSUB9170
9500GOSUB9305:?"":?
9510?"PLYRsuse1or2joysticks(Note:EITHERperformstheSAMEFUNCTION)":?
9520?"To'SPIN':Pullstickstraightback.":?:?"To'SELECTALETTER':move1stright,thenleftorright";
9530?"to'move'lettersfromA-ZorZ-A.HITTRIGGERTOINPUT":?:?"To'SOLVETHEPUZZLE?':moverightor"
9540?"leftforor-HITTRIGGER":?:?"NOTE:IfPLYRhasselected'Y'andstatedhisguess,M.C.";
9560?"musthitoronthekeyboard...":GOSUB9170
9600GOSUB9305:?"":?
9610?":TopLeft":?:?":Center":?:?":(andScores)Bottom":?
9620?":Topright(dependsonlengthofpuzzleandreducesaslettersarefound)":?
9630?":Bottomright(countsof'5'toSPINorSOLVE/delayofabout20sec-onds&countof'9'to";
9640?"SELECTALETTER":?"NOTE:20-seconddelayendswhenstickmoved...":GOSUB9170
9700GOSUB9305:?"":?:?":GivesaVALUEtoapotentialfoundletter.";
9710?"(Ex:IfVALUE=$200andtheletterselectedisfound,youwin$200timesthe#oflettersfound)"
9720?"Exception:ifletterselectedandfoundisaVOWEL(A,E,I,O,U),$50foreachonefound...":?
9730?"Ineithercase,ifletterisfound,SPINagain.Ifnot,LoseTurn(except"
9740?"ifonlyonePLYR,lose10%ofwinnings":?"=BONUS-ReceiveaBonusVALUE"
9750?"($1200-2000)(don'tbuyavowelnow!)":GOSUB9170:GOSUB9305
9760?"=LOSETURN":?:?"=Pay25%ofwinnings/LoseTurn":?
9770?"='Surprise'.IfonlyonePLYR,Bonus,Tax,or'LUCKTIME'.Ifmorethanone,Bonus,Tax,";
9780?"LUCKTIME,OR":?"LoseTurn(dependssomewhatonscores):BonusheregivesaVALUEof"
9790?"$300-500ANDaninstanttaxrefund!":?:?"LUCKTIME:WinorLose$100-500":GOSUB9170:GOTO9000
9794REM
9795REM***THISLASTPAGEISNOTREQUIREDUNLESSYOUDESIRETOSEPARATETHEDOCUMENTATION
9796REM(LINES9000ON...)FROMTHEREGULARWOFPROGRAMAGAIN***
9797REM.
9800GOSUB9305:?"":?:?"Initially,youmaywishtohavethis"
9810?"(alreadyLOADed)DOCcombinedwiththegame.Ifso,thinkofthisDOCas'ADD',here,then:":?
9820?"-D:WOF.ADD/TYPE":?:?"-D:WOF.BIN":?:?"-D:WOF.ADD":?
9830?"-D:WOF.CMB('CoMBined')":?"(Savetoadiff.disk)":?:?"-MakeaNOTEto9000"
9840?"afterLOADingWOF.CMB...":POSITION13,21:?"LASTPAGE...":GOSUB9170:GOTO9000	

• Download link 1

• Download link 1