Radio Shack TRS-80 User Manual page 209

40 REM
50 CLSiP ,AT24
,"
WHEEL OF FORTUNE"
60 T=6S
65
P=RND(54)
70 REST.
71
FOR
1
=
1
TO 54
72
READ
A(
I
)
73
NEXT
I
80 REST.
81
FOR 1=55 TD 60
82
READ
At
I
>
B3
NEXT
I
100 X=0
i
Y=13 :GOS. 3000
110
X=18
t
Y=12 iGQS.3000
120
X
= 36
i
Y=9 iGOS. 3000
130 X=56 :Y=6iGOS.3000
140 X=76
;
Y=9
>GOS.
3000
150 X = 94
i
Y=
12
:GDS. 3000
160
X=I12:Y=]6>GOS.3000
170
P.AT92,"
>>
>>"
;
190
P.AT594," ROUND
&
ROUND
IT
GOES
. . .
"
t
195
P.AT729," JOKER
(13)
£.
"
196
P.AT794,"TRS-80 (80)"
193
P
.
AT856
,
"
BOTH PAY
40
TD
1"
200 FOR
S=l TO 100
+
RNDI2)
210 P.AT450,ArP);:P.AT331,A[P+I);:P.AT2 76,A(P+2);
215
P. AT22Z
,
A{P+3)
i
220
P,AT296,A(P+i
h )
i
:P.AT369,A(P+5);:P.AT506,A{P+6)i
221 IFS<TG. E35
224
R=(
S-T)
*(
S-T) *(S-T
>/T
226 IFS<98P
.
AT594
,
" PAYOFFS GO
TO THE
"
:G.230
227
P.AT594,"
ALMOST THERE
-
. .
"
.
230 IF S<102 FDR Z=
1
TO R;NEXT
Z
Z3S P=P-1
236
IF
P=0 P=54
240
N.
SiP.TAB(
29)
,
iQ=A(P+4)
iGOS.
2000 iX=0
2
50 P
,
TAB( 22
) i
"
YOUR C HO ICE WAS
"
i:
Q=G iGOS
.
2
000
260
P.TAB!23)i:IFG=A(P+4)P." YOU WIN
AT " |D| "
TO
1
"
iE.
270 P."
YOU LOSE. " :E.
500
D. 1,2, 80
,1,
5,1,
2,
1,10,
1,2, 1,5, 1.2, 1,5, l.Z,
I,
£0,1,
2,
10
510
D. 1,2, 1,5, 1,2,
I, 5,
1,2,
13, 1,2, 1,10, 1,2, 1,2
520
D.
1
,
20,
1
,2,5,
1
,2
,
10,
1
,
2,5
2000
= Q
:
IFtOOl
3)
*(Q<>8» )P. " " ;Q:RET,
2010 0=40
i
AS=
"JOKER "
:IFQ=80
AJ=TRS-80
2020
P .AS; RET
.
3000 FOR 1=0 TO
7
3010
S.
t
X,
I+Y) iS. (X+l
,
I
+ Y)
3015
5,{X+14.I+Y)>S.(X+15,I+Y)
3020
S.(I*2+X,Y);S.(I*2+1+X.Y)
30
25 S.
(
I*2+X,7+Y)
;S.
C
I*2+l+X,7+Y)
3030 NEXT
I
3040 RET.
Dow-Jones
Industrial
Average
Forecaster
There
is
no
guarantee
that this
program
will
make you
instantly
wealthy, but
it is
an example of converting
a financial
magazine
article
into a useable
computer
program.
The
article
describing the market premises
on which
this
program
is
built
appeared on Page
90
of Forbes, June
1,
1977,
207