Rescue London's stolen treasures from the Phantoms of Tower
bridge
THE GHOSTS at the Tower of London have left their usual haunts.
They've taken the treasures from the vaults and scattered them
all over Tower Bridge.
Your job as custodian is to gather up the treasures one by one
and get them back to the bank for safe keeping.
The trouble is that the ghosts, while not harmful, are mischievous.
If one catches you while you're on your way to the bank with some
treasure, it will probably take it off you and put it back on
Tower Bridge. And the bridge is opening and closing all the time.
Just to make it more frustrating, as soon as you've collected
all the treasures and put them in the bank the ghosts scatter
them all over the bridge again.
And this time there are more of them trying to thwart you!
Major Procedures
1330 PROCinit dimensions and sets up arrays used in program;
also sets up user-defined characters and sound envelopes.
1500 PROCsetup sets up variables at start of each sheet.
940 PROCscreen sets up screen, as you might guess.
900 PROCbridge draws bridge.
650 PROCman animates man.
750 PROCguard animates each guardian ghost.
860 PROCraise raises/lowers bridge.
510 PROCmanmove reads keyboard and decides where to put man.
630 PROCfall moves falling man and finds out if he is in Thames.
700 PROCthink decides where to put ghosts.
1000 PROCtower draws towers.
1130 PROChead displays the title header.
1250 PROCtell displays instructions.
1560 PROCerr traps escape or displays any other errors.
Major Variables
A% = TRUE if man is dead.
C% = TRUE if man carrying treasure.
D% = TRUE if ghoul carrying treasure.
K% = Ascii value of key pressed.
M% = Number of lives left.
N% = Number of ghost being animated.
S% = Score to date.
T% = Number of treasures in bank.
U% = Height of bridge.
X% = Man's X co-ordinate.
Y% = Man's Y co-ordinate.
hi% = High score.
nc% = New character for man.
oc% = Old character for man.
no% = Level (number of ghosts).
up% = TRUE if bridge to be raised.
X%(N%) = X co-ordinate of ghost N%
Y%(N%) = Y co-ordinate of ghost N%
