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.
16K Games<br />
Power Boat<br />
if you're desperate to try out your<br />
sea legs, this little speedy simulation<br />
of a power boat race on Ruislip Lido<br />
should start the adrenalin pumping.<br />
it was written by Andrew Thomas<br />
and Careth Canister for the PET, and<br />
converted for the <strong>ZX</strong>81 by Tim<br />
Hartnell.<br />
You're in control of an extremely<br />
powerful, 16K<br />
power boat, with a state-ofthe-art<br />
on-board computer<br />
(looking somewhat like a<br />
small black thing from Cambridge),<br />
racing around the<br />
Lido against other top<br />
champs. The course and<br />
weather conditions vary in<br />
each game, although the<br />
weather doesn't alter during<br />
the course of a game<br />
(the reliability of the<br />
climate in West Ruislip is<br />
well-known). The course is<br />
marked out with buoys to<br />
give you the direction and<br />
maximum speed for that<br />
section. There are 20 sections<br />
in all. Even finishing<br />
the race is an achievement, as<br />
you'll see when you run the program.<br />
You must enter the<br />
amount of RUDDER you<br />
need to make a turn. Too<br />
much and you'll cut the corner,<br />
too little and you'll<br />
overshoot the corner.<br />
Slightly cutting the corner,<br />
if you can manage it, helps<br />
you get ahead of the other<br />
drivers. However, bad driv-<br />
lO REM *PQUER BOAT*<br />
20 REM *ANDREW THOMAS*<br />
30 REM JGRRETH CALLISTER*<br />
40 REM *TXM HRRTWELL*<br />
90 LET E=S0<br />
100 DIM R$(6,10)<br />
110 LET A $ ( 1 > = " CALM<br />
120 LET AS(2*="MILD"<br />
130 LET A$(3)="CHOPPY"<br />
140 LET R $ U ) ="ROUGH"<br />
150 LET R$ ="UERY ROUGH"<br />
160 LET R$ l"8 J = " STORMY"<br />
230 LET U=INT tRND*S>->i<br />
235 LET 5=0<br />
237 SCROLL<br />
ing on the corners will get<br />
you disqualified. The lower<br />
the number entered for<br />
the rudder, the smaller the<br />
turning circle and hence<br />
the smaller the radius.<br />
Entering zero will make<br />
your craft continue in a<br />
straight line. The ratio between<br />
the rudder and the<br />
radius varies from one to 10<br />
when stationary, to one to<br />
five at top speed, just to<br />
make a difficult game nearly<br />
impossible. To complete<br />
the course, you must also<br />
regulate your speed to a<br />
24- 0<br />
U)<br />
250<br />
260<br />
270<br />
230<br />
300<br />
305"<br />
310<br />
311<br />
312<br />
315<br />
320<br />
330<br />
*2<br />
value near to, or slightly<br />
above, the maximum speed<br />
for the section.<br />
The more power you<br />
supply to the drive, the<br />
faster the boat will go. If<br />
you enter too much power,<br />
you run the risk of a most<br />
dramatic flip-over.<br />
Variables used in this program<br />
are:<br />
C is the difference between<br />
actual and rated<br />
turning circles.<br />
D is the distance to the<br />
leader.<br />
E is the previous 'power to<br />
the main drive'.<br />
El is the present 'power to<br />
the main drive'.<br />
F is the amount of fuel remaining.<br />
M is the maximum speed<br />
for the section.<br />
P is your position.<br />
R is the rated turning circle.<br />
S is your present speed.<br />
T is the rudder position.<br />
W is the prevailing weather<br />
condition.<br />
X is the section number.<br />
PRINT "CONDITIONS ARE ";R$»<br />
LET P=1000<br />
LET P=S<br />
LET D = 10<br />
LET E =0<br />
FOR X = 1 TO 20<br />
SCROLL<br />
IF RND-J 0 . 3 THEN GOTO 320<br />
LET R =0<br />
LET M =55 + INT tRND*55J -U*2<br />
GOTO 34-0<br />
LET R = INT *RND*90> +lt?<br />
LET MsINT t' 30 +RND*20-f RS3-U