RAINBOW114 $13 $12 $11 $ZOMBIES$10 $XMAS $09 $SQUASH $08 $ROADRCE$07 $ZIGZAG $06 $FRUIT $05 $HITMISS$04 $NAVY $03 $FISH $02 $BOMBER $01 $MENU $!BOOT $ (3 #8̅#8̄#8̃#8̂#{#jt#o#h#c#^#BY#hS#N#H#*C#=#=8#x0#*####;## #,*BASIC
PAGE=&1900
*FX21
CLOSE#0:CHAIN"MENU"
*FX200,1
7
*FX11,0
( *FX15
2*KEY10CHAIN"MENU"|L|M
13 l%+3,p%+t%+3)156c2%
! G%=138 p%=p%+1: p%>i% p%=1
! G%=139 p%=p%-1: p%=0 p%=i%
$ G%<>13 l%+3,p%+t%+3)157c5%
G%=13:*FX4
*FX12
*FX11,50
=p%
p%
menu:%1$=%
%:%
7
23;8202;0;0;0;
TITLE$="BOMBER"
(
title
2"As you are an extraterrestrial pilot, you have very odd ideas about what are, and what are not, good flying habits. For example, whenever you visit Earth you think it perfectly alright to b18 $17 $STEPS $16 $15 $( #8#8# ##8
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
d-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
7
23;8202;0;0;0;
TITLE$="STEPS AND LEAPS"
(
title
2"The object of this game is to reverse the order of the counters with the fewest possible moves, and with the empty space always ending up at the extreme left of the box."
<" A piece can be moved in one of two ways. If an adjacent square is vacant itcan 'step' into the empty space. On the other hand, a piece can 'leap' over another counter into the empty space beyond."
F
space
P" Taking the diagram below as an example, at the start of the game one would have a choice. You can either movethe 6 to the vacant square or else leap the 5 over the 6 and into it."
Z:
d12)"***************"
n12)"* *6*5*4*3*2*1*"
x12)"***************"
:
F" Pieces may shuttle back and forth as many times as you like."
"Simply press the number of the piece youwant to move and it will automatically go to the new position as long as the move is a valid one."
space
" If you get stuck press 'S' and the computer will play the game automatically and with the least possible number of moves."
]" Once you have mastered the game you should be able to match the computer's score."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"STEPS"
title
L=(TITLE$)
20-L/2);TITLE$
20-L/2);L,"_")
"
,space
6=1,23);"Press the SPACE BAR for the next page.": =32
@:title:
(2<FPZdnx
d STEPS
n
X(7)
x C=6
A=2 7
X(A)=C+2-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
last"
=16-Y "+";: tt@
" ";
I:: Y
A=0: B=1: D=1: F=0
( X=A: Y=B: tdF: " ": A=A+D
A<1 A>16 df@
' X=A: Y=B: tdF:" <=> ";: TDA
F=0: D=1 D=-1: dH@
? X=A: Y=B: tdF: " ";: B=B+1: D=1: B<14 dH@
T=4: DxE: DhA
& T=.2: DxE: H(A)+B=16 D@A
F=1 dH@
D@F: K$<>" " dH@
"; F=1: X=A+2: Y=B+1 15: tdF: "*";: T=0.1: DxE
,< Z=100: D`I: tdF: " ";: T=0.1: DxE: Y: H(A)=0
6
dH@
@3 T=.1: I=1 8: tdF: " ": Z=20: D`I
J DxE: tdF:
T! tdF: " XXX ": T=4: DxE
^- dpJ::: "YOU DIDN'T MAKE IT!": D|A
h$ dpJ::: "A SAFE LANDING!":
r "HAVE A NICE DAY!"
|:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
G$="S" tJB
6 K$=G$: P=1: tLJ: G=A-48: G<1 G>6 df@
B=1 C+1
G=X(B) Q=B
X(B)=0 R=B
" B
, (Q-R)<3 DJA
6( X=0: Y=10: tdF: "INVALID MOVE"
@ T=5: DxE: d\@
J X(Q)=0
T X(R)=G
^
D|A
h
d\@
r DRAWS BOARD
|+ X=0: Y=4: tdF: " ***************"
$ Y=6: tdF:" ***************"
$ Y=5: tdF:" "
N=1 C+1: X=2*N: tdF
' X(N)>0 R=X(N)-16: dDI: R$;
$ N: X=1 15 2: tdF: "*";
X
ZZ=ZZ+1: F=0
N=1 C+1
X(N) <> N-1 F=1
N
F=1
3 G$="S" :"I ONLY TOOK ";ZZ;" MOVES": TRB
, X=0: Y=12: tdF:"CONGRATULATIONS!!"
!:"YOU TOOK ";ZZ;" MOVES..."
X=0: Y=15: tdF
& COMPUTER MOVES
0 B=1 C+1
: G=X(B) Q=B
D X(B)=0 R=B
N B
X X(Q)=0
b X(R)=G
l
D|A
v T=2: DxE
AUTOPLAY
DLD
A=1 C+1
X(A)=C+2-A
A
X(1)=0
D|A
M=1 4
G=5 1 -2
TfB
G
M=4 :
G=2 6 2
TfB
G
M
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
(@ @)@GX[ Z G A
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
(
title
2"The object of this game is to reverse the order of the counters with the fewest possible moves, and with the empty space always ending up at the extreme left of the box."
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
(
title
2"The object of this game is to reverse the order of the counters with the fewest possible moves, and with the empty space always ending up at the extreme left of the box."
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
):
GG
7
23;8202;0;0;0;
TITLE$="STUPID FISH"
(
title
2"You are the master of a North Atlantic trawler. You and the crew are out fishing for thickheads off the coast of Iceland. Thickheads are such stupid fishthat they will only take food that is"
9 t`@
G$;" S/N:";
0 d\E: T\L: E=GG-48: E<1 E>9 tt@
G$;" D:";
0 d\E: T\L: F=GG-48: F<1 F>9 dH@
8 G$:: A=D B=E C=F "YOU HOOKED IT!": DJA
"GO ";
A=D B=E TlA
E**B "SOUTH";
D>A "EAST";
DC "UP";
@:: tV@
J6 T=4: DxE: dpJ::: "YOU TOOK ";(S);" GOES"
T: "TO HOOK THE FISH"
^:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
Z$
:z
)@:@l$k2GH
@
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
GG=(G$):
7
23;8202;0;0;0;
TITLE$="SWISS NAVY"
(
title
2"Due to a clerical error in the Ministry of Transport, landlocked Switzerland discovers one day that it has bought itself a first-class modern navy. The rest of the world is outraged."
<"In a bid to bring the land of cuckoo clocks and dark chocolate to its senses an international squadron of bombers is sent to sink the Swiss fleet which, for some strange reason, has been hidden"
F+"in the countryside under camouflage."
P
space
Z?" The Swiss Navy consists of the following ships:"
d
n"1 Battleship (BBBB)"
x"1 Cruiser (CCC)"
"1 Destroyer (DD)"
"2 Patrol Boats (P) (P)"
'" Each of the five ships is hidden on a grid for which the various squares all have row numbers followed by column letters that identify them. To bomb a position you key in the row and then thecolumn."
space
" Every bomb that you drop is noted on the screen. A hit is indicated by the letter of the ship that has been struck.To sink the Swiss Navy you must find anddestroy all five ships using as few"
"bombs as possible. To make things more difficult, if you bomb a mountain (M) bymistake your planes are blown up and youhave to start again."
space
TITLE$="HINTS"
title
w"No two ships adjoin each other so try bombing squares that are two spaces apart until you locate a target."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"NAVY"
title
"
,L=(TITLE$)
6 20-L/2);TITLE$
@ 20-L/2);L,"_")
J
T
^space
h=1,23);"Press the SPACE BAR for the next page.": =32
r:title:
(2<FPZdnx",6@JT^hr|",6e.": =32
h:title:
6
d
NAVY
n
DLD
x B(6,8)
S$(6)
" SWISS NAVY"
( I=1 6: J=1 8: B(I,J): J: I
0,1,1,1,1,0,0,0
0,0,0,0,0,0,2,0
3,3,0,0,0,0,2,0
0,0,0,4,0,0,2,0
5,0,0,0,0,0,0,0
0,0,5,0,0,0,0,4
I=1 6: S$(I): I
"*","B","C","D","P","M"
T=2: DxE: dpJ:
" A B C D E F G H":
" 1 + + + + + + + +":
" 2 + + + + + + + +":
" 3 + + + + + + + +":
" " 4 + + + + + + + +":
, " 5 + + + + + + + +":
6 " 6 + + + + + + + +"
@ B=0: H=0
J B=B+1
T/ X=1: Y=14: tdF: " "
^ tdF: "ROW ";
h0 d\E: T\L: R=GG-48: R<1 R>6 DhA
r G$;" COL ";
|0 d\E: T\L: C=GG-64: C<1 C>8 D|A
G$;" ";
' P=B(R,C): P=0 "MISS";: tnA
P>4 tnA
"HIT!": B(R,C)=0: H=H+1
) X=2*C+1: Y=2*R+1: tdF: S$(P+1);
P<>5 dVA
7 X=1: Y=15: tdF: "HIT MOUNTAIN!";: T=2: DxE
THB
T=3: DxE: H<11 DJA
* dpJ::: "YOU TOOK ";(B);" BOMBS"
: "TO SINK THEN NAVY"
&: B<30 "GOOD FLYING!": THB
"YOU NEED PRACTICE!"
:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
G
d (
7
23;8202;0;0;0;
TITLE$="HIT OR MISS"
(
title
2"The trajectory of shells fired from gunscan be very precisely determined. As captain of a field gun it is your task to learn to fire with 100% accuracy."
<"In this contest a spotter in an observation balloon radios the range of the most promising targets to you. You must destroy as many as possible with the ten rounds of ammunition that you"
F"have been given."
P
space
Z" Your gun has a range from 500m to 15,000m. The greatest distance can be obtained with an angle of 45 degrees although the barrel can be elevated to 90 degrees and cranked down as low as 1 degree."
d"You choose the correct angle of fire by raising and lowering the barrel to the nearest degree. However, if you shoot atan angle of 90 degrees, the shell will go straight up - and straight back down"
n9"again. You and the gun crew will all be wiped out!"
x
space
" Targets are scattered at random 500m intervals throughout the range. You score a hit anywhere within 250m of a bullseye. Reports of a miss, whether toofar or too short, are accurate to the nearest 250m."
" Due to the very high cost of shells you only have one chance to hit each target. But as long as your angle of fire is correct you will never miss."
space
TITLE$="HINTS"
title
"If you keep a list of the targets, the angles at which you set the gun barrel, and the reports of where the shells landed you should soon see the pattern of your shots. Your accuracy should"
;"improve quickly making a perfect score easy to get."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"HITMISS"
title
L=(TITLE$)
20-L/2);TITLE$
" 20-L/2);L,"_")
,
6
@space
J=1,23);"Press the SPACE BAR for the next page.": =32
T:title:
(2<FPZdnx",6@JL/2);TITLE$
6 20-L/2);L,"_")
@
J
Tspace
^=1,23);"P
dHITMISS
nDLD: H=0
x "HIT OR MISS"::
"YOU HAVE 10 SHELLS"
H=0: G=1 10
N=29: TTE: R=500*R+500
T=3: DxE
% dpJ:: "TARGET AT ";R;" MTRS"
7: "ANGLE OF FIRE? ";: TtH: K>90 K<1 tj@
::
. K=90 : "*BOOM* YOU ARE DEAD!": TNA
D=15000*(6.28*K/180)
/ E=250*((D-R)/250+.5): (E)>250 dz@
:: "**BOOM**"
H=H+1: TNA
# M$="SHORT": E>0 M$="FAR"
+: "THAT WAS ";(E);" M":: "TOO ";M$
G
: "OUT OF SHELLS!"
" T=3: DxE: dpJ
,* H>5 C$=" GREAT SHOOTING!": DJA
6& H>2 C$=" NOT BAD!": DJA
@ C$="YOU NEED PRACTICE!"
J:: C$
T!:: "YOU HIT ";H;" TARGETS"
^: "OUT OF A POSSIBLE 10"
h:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
: f٩'0hK @;HZ$FARRT$YOU NEED PRACTICE!
W$(60):
GG=(G$):
60):
GG=(G$):
60):
GG=(G$):
7
23;8202;0;0;0;
TITLE$="FRUIT MACHINE"
(
title
2"After a long night in a Nevada casino you find that you have nothing more thanten dollars to your name. That and the shirt on your back!"
30 K<>(K) K>M tt@
@ T=2: DxE: N=4: TTE: R1=R: TTE: R2=R: TTE: R3=R
&:: F$(R1);" ";F$(R2);" ";F$(R3)
R1=R2 dz@
M$="LOSE": M=M-K: TNA
3 R2<>R3 M$="WIN $"+(3*K): M=M+3*K: TNA
! M$="WIN $"+(4*K): M=M+4*K
3 M$="LOSE" R1=3 M$="WIN $"+(K): M=M+2*K
: " YOU ";M$;"!"::
"* M=0 "SORRY YOU'RE BROKE!": D@A
,% M>100 "YOU BROKE THE BANK!"
67 "YOU NOW HAVE $";M: T=3: DxE: M<=100 tj@
@ ::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
{$(NSY_ LEMONORANGECHERRYLIMEv @; 123$WIN $80
60):
GG=(G$):
60):
GG=(G$):
7
23;8202;0;0;0;
TITLE$="ZIGZAG GOLF"
(
title
2i"This is a game of computer golf in which only one kind of shot may be used - the ZigZag Shot!"
<" You play the ball by selecting the height of its flight (zig) from 0 to 9. The distance it travels (zag) is also a number chosen from 0 to 9."
F" As you watch the flight of the ball you will notice a peculiar thing - it must stop directly at the hole in order to sink in. Hard shots will skip right past if you misjudge the distance."
P
space
Z" You must play nine holes to complete around, taking as few strokes as possible. The lowest score at the end ofa round wins the game. With practice youshould be able to finish a round of"
d-"nine holes in much less than 27 shots."
n
space
xTITLE$="HINTS"
title
"When playing a hole that lies especiallynear and toward the top of the screen, it can be easier to score by zigging to it directly while entering nil for the zag part of the shot."
V"If you do the reverse the ball will travel toward the bottom of the screen."
" Remember too that the size of the green is defined so that the hole is never more than ten units away in a straight line from your starting position."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"ZIGZAG"
title
L=(TITLE$)
20-L/2);TITLE$
20-L/2);L,"_")
"space
,=1,23);"Press the SPACE BAR for the next page.": =32
6:title:
d
GOLF
n
DLD
x " ZIGZAG GOLF"
H=1: S=0
D N=10: TTE: A=R-1: TTE: B=R-1: (B-A)>5 A+B=0 tL@
O T=2: DxE: dpJ: X=7: Y=1: tdF: "HOLE ";H: X=1: Y=8: tdF: "*"
, X=1+A+B: Y=8-A+B: tdF: "O": S=S+1
. X=1: Y=13: tdF: "ZIG ";: TtH: C=K
/ X=11: Y=13: tdF: "ZAG ";: TtH: D=K
% X=1: Y=8: T=.2: C=0 dR@
C N=1 C: tdF: " ": X=X+1: Y=Y-1: tdF: "*";: DxE: N
D=0 df@
C N=1 D: tdF: " ": X=X+1: Y=Y+1: tdF: "*";: DxE: N
; X=3: Y=14: tdF: A<>C B<>D "MISSED!";: tV@
"SUNK IT!"
T=2: DxE
H=H+1: H<10 tL@
* dpJ::: "YOU TOOK ";S;" STROKES"
(:: S<18 "A REAL PRO!!": TvA
"% S<27 "SHOWS PROMISE!": TvA
, "KEEP PRACTISING!"
6 ::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
``` @ 0z
(P6`):
7
23;8202;0;0;0;
TITLE$="ROADRACE"
(
title
2"While driving in an international rally you realize that racing really boils down to two things - good reflexes and tremendous stamina. You know you can winany race as long as you stay on course."
<"Other drivers, with less concentration than you, will invariably drop out as fatigue wears them down. Your secret is that you know how to stay alert longer than anyone else."
F
space
P" In this rally the object is to stay inthe race for as long as possible. The winner is the driver who travels furthest. You must keep the car between the crash barriers by using the X and Z"
Z8"keys to steer either to the right or to the left."
d" The race comes to an end after you have steered off the track for a total of ten stages in all. The distance that you have managed to travel is then flashed on the screen as a record to"
n"beat in the next race."
x
space
TITLE$="HINTS"
title
"Just touch the X and Z keys lightly to steer the car. If you hold them down youwill over-steer and skid out of control."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"ROADRCE"
title
L=(TITLE$)
20-L/2);TITLE$
20-L/2);L,"_")
space
"=1,23);"Press the SPACE BAR for the next page.": =32
,:title:
.ITLE$tROADRACEdnxtitlespace""space
,=1,23);"Press the SPACE BAR for the next page.": =32
6:title:
ITL
d ROADRACE
n
DLD
x$ X=4: Y=D/2: tdF:"ROADRACE"
T=2: DxE: dpJ
" A=8: B=10: C=0: G=0: F=0
X1=8: X2=8: X3=8: X4=8
' N=10: TTE: R<4 A>1 A=A-1
R>6 A<13 A=A+1
X=B: Y=D-5: tdF: " ";
# D@F: K$="Z" B>2 B=B-1
K$="X" B<18 B=B+1
X=B: Y=D-4: tdF: "O";
$ X=A: Y=D-1: tdF: "* *";
; X1=X2: X2=X3: X3=X4: X4=A: B>X1 B17 df@
C=-1: P=P+1: Z=40: D`I
A<>2 dz@
C=1: P=P+1: Z=40: D`I
B<>2 TNA
D=1: P=P+2: Z=60: D`I
B<14 DJA
(A-E-2)>1 TlA
"' D=-1: P=P+2: Z=60: D`I: DJA
,0 X=6: Y=4: tdF: "MISSED!": Z=20: D`I
6* X=4: Y=6: tdF: "POINTS = ";(P)
@ T=2: DxE: dpJ:
J# D@F: K$="Z" E>1 E=E-1
T K$="X" E<14 E=E+1
^6 X=E: Y=14: tdF: " XXX ": T=.2: DxE: tt@
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
`4@z @@`@:$
7
23;8202;0;0;0;
TITLE$="XMAS"
(
title
2"A lightning strike at Father Christmas' workshop has completely fouled up delivery schedules for presents this year. At the last meeting of the board of directors, it was obvious to all"
<"that it would be impossible for him to visit every home *and* find the time to climb down the chimney to deliver presents in person."
F" Instead a new method of delivery was suggested. This year Father Christmas will fly fast and low dropping gifts directly into chimney pots as he sails by without stopping. He hopes there willbe few breakages."
P
space
Z" In order to improve his aim he is making a few practice runs. Your task isto help him perfect his delivery technique. The object of this exercise is to get all of the presents into the chimneys."
d"Pressing the space bar or the zero on some machines releases one gift as he flies over a chimney. Remember that there are ten presents in each sack - and only one chance to get each of them to its target."
n
space
xTITLE$="HINTS"
title
"Because Father Christmas is flying so fast, it is important for each present to be dropped with a lot of lead distance. Otherwise you will probably overshoot the targets."
space
TITLE$="VARIATIONS"
title
ȗ"To make this exercise more difficult youcan speed up the sled by changing T=.2 to T=.1 in line 190. This will double the speed of its travel."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"XMAS"
title
L=(TITLE$)
20-L/2);TITLE$
" 20-L/2);L,"_")
,
6
@space
J=1,23);"Press the SPACE BAR for the next page.": =32
T:title:
(2<FPZdnx
d
XMAS
n DLD: H=0
x " XMAS"
T=2: DxE
H=0: S=1 10: dpJ
- X=2: Y=14: tdF: "****************";
N=10: TTE: R=R+4
* X=R: Y=12 14: tdF: "* *";: Y
A=0: B=1: P=0
5 T=.2: DxE: A=A+1: X=A: Y=B: tdF: " <*>"
X=17 TvA
P=1 dz@
D@F: K$<>" " dp@
P=1: C=A: D=B: N=1
t~@
7 C=C+1: D=D+N: N=N+1: X=C: Y=D-1: tdF: "+";
# (X=R X=R+3) Y>11 TvA
Y<14 t~@
X=R+1 X=R+2 TlA
"
TvA
,3 X=8: Y=5: tdF: "BULLSEYE!": H=H+1: D@A
6" X=6: Y=5: tdF: "MISSED!"
@ T=2: DxE: S
J T=2: DxE: dpJ
T%:: "YOU GOT ";(H);" PRESENTS"
^$:: "OUT OF A POSSIBLE 10"::
h H>4 D|A
r4 "NOT MUCH FOR XMAS":: " THIS YEAR!": tFA
|0 "APPLY FOR A JOB AT":: "THE NORTH POLE!"
:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
$ `z 0
7
23;8202;0;0;0;
TITLE$="ZOMBIES"
(
title
2"You have just been abandoned at the lostAmazonian ranch of Count Morue, the mad big game hunter. As luck would have it, the only game he really enjoys hunting is human. He sets you free on the ranch"
<\"and with a half days' head start, sends four slave zombies out to track you down."
F""Your goal is to stay alive."
P
space
Z" The ranch is surrounded on all sides by impenetrable swamp so there is no wayof escaping from here. Pools of quick- sand abound as well. Your only chance tosurvive is to lure the zombies (Z)"
dS"into the quicksand (while avoiding it yourself) before they can catch you."
nB" Your position on the map of the ranch is shown by an (H)."
x"With each turn you can move by pressing any one of the keys numbered from 1 to 9. The arrows on the grid show the direction in which each number will takeyou. When you press 5 you stay in the"
U"same spot. It takes very careful planning to out-manoeuvre the zombies."
space
:
+"1 up/left 2 up 3 up/right"
:
("4 left 5 stay 6 right"
:
-"7 down/left 8 down 9 down/right"
space
TITLE$="HINTS"
title
"The zombies always come toward you by the most direct route possible. They arenot aware, for example, that quicksand is dangerous."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"ZOMBIES"
"
, title
6
@L=(TITLE$)
J 20-L/2);TITLE$
T 20-L/2);L,"_")
^
h
rspace
|=1,23);"Press the SPACE BAR for the next page.": =32
:title:
(2<FPZdnx",6@JT^hr| ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
L
d
ZOMBIES
n
DLD
x " ZOMBIES"
T=2: DxE: dpJ
: " ******************"
* I=1 13: " * *": I
" ******************"
Q(8,2)
Z(4,2)
C I=1 4: N=16: TTE: Z(I,1)=R+1: N=13: TTE: Z(I,2)=R+1
' X=Z(I,1): Y=Z(I,2): tdF: "Z";
I
C I=1 8: N=16: TTE: Q(I,1)=R+1: N=13: TTE: Q(I,2)=R+1
' X=Q(I,1): Y=Q(I,2): tdF: "*";
I
; N=16: TTE: A=R+1: N=13: TTE: B=R+1: X=A: Y=B
tdF: "H";: N=4
0 d\E: T\L: G=GG-48: G<1 G>9 TNA
X=A: Y=B: tdF: " ";
". D=((G-4)/3): C=G-3*D-5: A=A+C: B=B+D
,& A=1 A=18 B=1 B=15 D@A
6
DJA
@% M$="YOU'RE IN THE SWAMP": d`A
J1 F=0: I=1 8: A=Q(I,1) B=Q(I,2) F=1
T9 I: F=1 M$="YOU'RE IN QUICKSAND": F=1 d`A
^+ I=1 4: A=Z(I,1) B=Z(I,2) F=1
h4 I: F=1 M$="YOU'RE CAUGHT!": F=1 d`A
r: X=A: Y=B: tdF: "H";: Z=50: D`I: T=0.5: DxE
|! I=1 4: Z(I,1)=0 dLA
< T=0.5: DxE: X=Z(I,1): Y=Z(I,2): tdF: " ";: F=0
K X=X+(A-X): Y=Y+(B-Y): F=0: J=1 8: X=Q(J,1) Y=Q(J,2) F=1
J: F<>1 tnA
+ N=N-1: Z(I,1)=0: Z=35: D`I: dLA
4 tdF: "Z": Z(I,1)=X: Z(I,2)=Y: Z=20: D`I
' X=A Y=B M$="CAUGHT!": d`A
& tdF: "Z": Z(I,1)=X: Z(I,2)=Y
I: N>0 TNA
M$="YOU'VE MADE IT!"
X=1: Y=16: tdF: M$;
T=4: DxE: dpJ:::
BBC SUBROUTINES
L; 5: 19,0,4;0;:W=20:D=32:F=8:23;8202;0;0;0;: tpD:
: 0,8);:
R=(N):
x Z=1 1000*T:Z:
G$=:
@
K$=(0):
X,Y);:
X);:
l (11);:
(9);:
4 K:
K$:
7:
` 1,-15,Z,2:
R$=(R+64):
(P$=K$,P,1):
ThJ:A=(P$):
:
T V$(26):
W$(60):
GG=(G$):
$):
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
d-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
d-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
d-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
7
"NON-GAME PROGRAM"
"NOT INCLUDED"
(
d-A
A
X(1)=0
ZZ=-1
DLD
0 Y=14: X=0: tdF: "PRESS S FOR SOLUTION"
D|A
, Y=12: X=0: tdF:"PRESS KEYS 1 TO 6"
( X=0: Y=10: tdF: "************"
d\E
**