Radio Shack TRS-80 - 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