ZX Computings - OpenLibra
ZX Computings - OpenLibra
ZX Computings - OpenLibra
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Winning Positions<br />
COIN COIN<br />
BELL BELL<br />
CASTLE CASTLE<br />
LEMON LEMON<br />
CHERRY CHERRY<br />
ORANGE ORANGE<br />
COIN COIN<br />
— COIN<br />
BELL BELL<br />
BELL<br />
CASTLE CASTLE<br />
— CASTLE<br />
LEMON LEMON<br />
_ LEMON<br />
CHERRY CHERRY<br />
_ CHERRY<br />
ORANGE ORANGE<br />
— ORANGE<br />
CHERRY -<br />
At random intervals, "HOLD"<br />
will appear. The player may<br />
then choose to hold any of<br />
the barrels.<br />
To hold barrel 1<br />
Press "Y"(else "N"»<br />
To hold barrel 2<br />
Press "Y"(else "N")<br />
To hold barrel 3<br />
Press "Y"(else "N")<br />
i.e. To hold barrel 1 and<br />
barrel 3 Press "YNY" N/L<br />
This is a <strong>ZX</strong>80 version of the pub<br />
game. Three barrels are rolled on<br />
which are marked six symbols.<br />
According to the symbols<br />
displayed, different payments are<br />
awarded.<br />
COIN<br />
BELL<br />
CASTLE<br />
LEMON<br />
CHERRY<br />
ORANGE<br />
COIN<br />
BELL<br />
CASTLE<br />
LEMON<br />
CHERRY<br />
ORANGE<br />
66<br />
55<br />
44<br />
33<br />
22<br />
11<br />
List of Variables<br />
A(0) Result for barrel one.<br />
AID Result for barrel two.<br />
A(2) Result for barrel two.<br />
C Result for barrel one.<br />
W$ String used for display.<br />
VS . String used for display.<br />
H$ String used for containing what is to be held<br />
'held'.<br />
G$ String used to check H$ is legal.<br />
Q$ String used to stop programme.<br />
I Dummy variable.<br />
J Dummy variable.<br />
<strong>ZX</strong> COMPUTING SUMMER 1)x COMPUT<br />
18<br />
18<br />
15<br />
1 5<br />
1 2<br />
12<br />
9<br />
9<br />
6<br />
6<br />
3<br />
3<br />
5<br />
10<br />
15<br />
20<br />
25<br />
30<br />
35<br />
40<br />
45<br />
47<br />
50<br />
55<br />
60<br />
65<br />
70<br />
75<br />
80<br />
85<br />
95<br />
98<br />
100<br />
105<br />
1 10<br />
115<br />
120<br />
125<br />
130<br />
1 35<br />
140<br />
145<br />
150<br />
1 55<br />
160<br />
180<br />
185<br />
195<br />
200<br />
205<br />
215<br />
220<br />
225<br />
230<br />
330<br />
LET W$ = "<br />
LET V$ = "<br />
LET C = 1000<br />
RANDOMISE<br />
DIM A{2)<br />
LET H$ = "NNN"<br />
INPUT Q$<br />
IF 0$ = "STOP" THEN STOP<br />
LET C = C — 5<br />
FOR I = 0 TO 2<br />
IF CODE