CASH-FLOW
by Hugh Davis
from ZX Computing Feb/Mar.1986

COIN DROP

Hugh Davis has been visiting the Hereford arcades
and offers you the chance to get rich quick!


The program 'Coin Drop' is a version of the coin-in-the-slot
game popular in seaside and fairground amusement arcades. A
coin is allowed to fall down a vertical pin-board bouncing
from one pin to another in a random path until it reaches
one of six coin-bearing channels. The channels contain
anything from zero to four coins, and the aim is to bring
the total up to five, upon which all five will 'drop' to the
player's advantage. Coins won in this way can be retained or
reinserted. The result is influenced principally by the
decision when to allow the coin to fall during its passage
along the top of the board. However, there is the facility
to 'nudge' the coin just once in either direction. The
fourth channel swallows up all coins and so should be
avoided! You have only six coins to start with, and so it is
essential to make an early gain.


Figure 1. Lines

3000-3050  define graphics
2500-2538  write the title
2540-2580  illustrate the title page
2600-2670  print the instructions
35-65      draw the pinboard
75-85      draw the coin channels
1000-1050  draw a random number of coins in each of five channels
1105-1160  transport a coin across the top of the board
1200-1320  cause the coin to fall as far as the first pin
135-190    cause the coin to bounce down the pins as far as
           the coin channels
500-560    make the coin come to rest immediately above the next
           highest coin in its channel
604-615    empty a filled channel
2000-2080  print the Score Sheet at the end of the game


Figure 2. Variables

a$      top half of coin
B$      bottom half of coin
a to f  no. of coins in the channels
g       no. of coins in the channel being topped up
k       decides direction of horizontal motion
m       distance fallen
l       gross loss
w       gross winnings
nw      net winnings in any one game
ow      overall winnings
cr      coins in hand
(x,y)   coin coordinates


-- end of file --
