Writtenby: MortinBuller

From thecreo torsof 'Hall s of the Things: ' lnvosion of the body snotchos:
ond mony other softworeclossics come these e,i:citingnew games.
Gomes to tox your judgement ond puzz le and frustrate you for months on end.
Don't forget our other titles, which hove a ttracted enthusiastic reviews like
1
"Excelle; ,~:~,~~~~~~1;"odd ic~~:e~;~~?ddJ':~;e,h:'s~~dr~i<,':eRs ;~~po~!~~l;h;'f.~~ .~\~'c"i,R USER.

ZEUS
64
ASSEMBLER

Writtenby: MortinHorsley
PROGRAMMERSI WRITIEN ANYSOFTWARE THATCOMESUP
TO OURSTANDARDS1 IFSO SENDITTO USFOREVALUATION.
WEOFFERGENEROUS ROYALTIES.

Pleosesupp ly: IN
VAS
ION
Of THE BODY SNATCHA S O £6 ..50
I ~~
SL~r~8:,U.1:'NGS
B~:: THE ~g=:~sN~~~~B~r~
I r1::...iAJtE~:LATEST
~J;.{:ARE
O ZEUS64D £9·9S

~CsffiY1~Lfflj1
CRYSTAL COMPUTING, 2 ASHTON WAY,
I NAME-~~~~~~~~
: ADDRESS-- -
~ ----
------ - ----

EASTHERRINGTON, SUNDERLANDSR33RX. 1 ----------- - ------

1 ~&~fnd~:J~(it~~!
TRADE ENQUIRIES WELCOME,-Tel: 061·205 6603.
CRYSTAL
COMPUTING
ISTHETRADI
NG NAMEOfCHANORfXLTD ; ~·rd~-r~;~-l~~~-~dd"£1.'5()~,·ii~~-·.
 l:~~'
Editor
Rdxcca Ferguson
Co~
Co nsulta nt editor GRAPHICS 3 SOFT THEME 32
John [Link]
Managing production editor
INSTRUCTIONS PROGRAM TUTOR 34
Harold Mayes M BE
St aff writ e r LETTERS 31 SOFT FOCUS 36
June Mortimer
Design
Elaine Bishop
Group advertise m ent manager
Holly Fleming
[Link]
Assistan t advertisem ent manage r ARMADA 9 VANHELSING AND 39
Rick Holloway THE VAMPIRES
Produ ctio n ass istant FLOOD BARRIER 18
Dcti Epaminondou SEA RESCUE 43
Edi toria l assista n t LOCUST ATTACK 20
Col~te McDermott HOLD-UP 49
RUNWAY 26
Man ag ing editor
Nigel Clark
GUESS WHAT 62
Managing d ire ctor PASTA BLASTA 27 ANIMATION 63
Terry Cartwright
Asslsta n t m a naging dircc 1or FISHERMAN 30 COSMIC DUSTMAN 64
Barry Hau l
Cha irman
Richard HC2SC
U.S. Press representativ e: J Eisenberg,
q}~ifuu.r~
JE Publishers' n·presentative, 6855 Sa.n1:1 SPECTRUM ZX-81
Monica Blvd, Suite 202, Los Angeles, CA
90038. TENNIS ANIMATION 15 EQUATIONS OF 16
Sincla ir Program s is pub lishe d
mon thl y by ECC Publication s Ltd , MANIC AXE 15 MOTION
Telephone 01 -3 59 3525
JAM SEARCH 17 PLUTONIUM 16
If you would like your original programs to
be published in Sinclair Progra!Jll, plea~ SHIP WRECK 17
send your comribuli«>ns, which must O()I
ha,e appeared elsewhere, 10:
Sinclair Programs,
ECC Publkidons,
2 Ncwington Green R02d,
London NI 4AQ
S'pu!t:[Link]
Programs should be on cassette. We cannot
PROGRAM OF THE ICABOD THE 46
undcnakc to return 1hem unless a stamped·
addressed envelope is included. We pay
MONTH EVIL FROG
£10 for the copyright of each program COLOUR THE 5 BOUNCING BALL 48
published.
PYRAMID
:J Copyrigh1 1984 Sinclair Prognms ROLL A BALL 51
ISSN No 0263-0265 ANSWER THE PHONE 10
Prin1cd and lypGCI by Cradlcy Print PLC,
MUTANT ARACHNID 14 MPG 52
Warley, Wt:$t Midlands
OiMributed by Spotlight Magninc ALPHABETICAL 23 ICEBERG 55
Distribution Ltd, I Benwell Road,
Holloway, London N7. 01-607 6411 ATTACK MOLE ATTACK 59
Cover De sign -Ivan Hu,scy GHOST MONSTER 42 CAVERN BLASTER 60

lrmructions for gniphici characters arc printed in lower-case leuers in our listings. They arc enclosed by br.icke1s and separated by colons 10 distinguish
them and 1he brackets and colons should not be entered.
Inverse characters arc represented by the letter "i" and graphici characlCrs by "g". Thus an inveNC W would be represented by "iw", a graphics W by
"gw", and an inverse graphics W by "igw".
Spaces arc represen1cd by "sp" and inverse spaces by "isp". Whenf'vcr :my character is to be used mor e than once, the number of times it is 10 be used is
shown before it, 1ogcthcr wi1h a multiplkations ign. Thus "6*isp" means six in verse space, and "(g4:4•i4:gJ)" would be cn1cred as a graphic four, followed
by an im•crsc four repeated four 1imC$,followed by a graphics 1hrcc.
Where whole words att: to be wrinen in invef'S("letters they appear in the lis!ings as [Link] letters. Leners to be entered in graphics mode on lhc
Spectrum arc underlined.
Invent characters m1ilybe ent ered on the ZX-81 by changing 10 graphiC$ mode and 1hcn typing 1hc appropriate characters and on 1he Sptttrum by
changing to inverse video and typing the appropriate lencrs. Graphics chat1ilctcrs may be entered on the ZX-81 by changing 10 graphics mode and then
pressing symbol shift while the appropriate chara<:1ersarc entered. On 1hc Spectrum graphics characters may be obtained by changing 10 graphics mode and
1hcn pressing the appropriate character. User-defined graphics will appear as normal lcncrs umil the program has been RUN.

SINCLAIR PROGRAMS Augusr 1984

 Introducing the Sprint

UK& V.'orld Patents Pendin g..

It loads Spectrums four times faster

than an ordinary cassette player,
uses standard cassette software.
and has improved loading reliability.
Alll_£.or
Thenew Spri ntfrom
i__ 1•ust£6495
ChallengeResearchwilll oad • •
and save Spectrum program s at four tim es the speed of
Spendless onaSpri nt
Spendmoretim ewo rklngyour
Spectru m and be theenvyoryourfriends .
conve ntional cassette players. this even applies to Ifyou have Visa or Access cards you may p hone your
standard program and gamescassene software that has order to ensure faster delivery by calling Potters Bar
been pre-recordedat normal [Link] thi s plus ([Link])OStthecoupan below
improved loadingreliabllltyl s available for just £64.95 Please allow 28days for [Link] are not delighted
~~ui~~
en~~~~i~"~~;~/1iJc~~d~'s
::~1~:1,,'S
~~ft~Rf~J!1:~? ~Yfu1
1tu m it within 7 da ys
and prcwtdesan Innova t ive but inexpensive new concept
In cassette tape 5toJ3ie
Use oftheSprtnt
TRADE ENQUIRIES WELCOME
Is slmplldty Itself.
• Retains the sta ndard Spectrum commands and formal
r-;;:
°""'""'
• Advanceddigitalcircuitryand signal processing
lmpl'C:NeSloading reliability and eliminates volume setting.
• Simplyplugsin totheSpectrum Port- no interlace or
external pawe r unit is required , it even has it sown
expansion sk>tso that you can still use ot her peripheral s
at the same time .
1=== """"
"-----------
I!""""""-'
=~[(,(~=~
I!3
fllc.M,t,,.1cboic:lf~~'qlJin.•,1iunhcJ2)UU\~f!IC'(!'4tdl11'<~COSlof(7'i0 0 II
• Afull48KprQ€ramwil l loadorsave In 75seco ndsrather
than five minu tes with a conventional cassette recorde r
IName1Mnist"'~,, I
I I
CHALLE NGERESEARCH I, I1cncJo,,ccheq1.1e,po!,[Link].; ydbie,10Cha ll'flil:'~:archbr
I
A DIVISION OF A.E. HEADEN LTD.
Ipi..~chareemr~~NoUn,v11,~lhesum(( £ I
[Link] Hefb EN6581~<.'fS [Link] 1070'71"4CX>l ( I
l_-------- - ----------1.=:=-= ,._ 111111111111111
.....~~~~~~~ U
~~~~~S~.!!..J
1

SINCLAJ R PROGRAMS A"IJ'U 1984

 COLOUR
'1H£ .
'Pll,R-A~D
HERE IS a myth t hat all good The PO KE in line 5 ensur es that the 310.

T programs are long and compli-

cated . For those who write pro-
grams in a hurry that may be true but if
response to the request for instructions
is in uppe [Link]. If instructions are re·
quired, the routine at line 3000 prints
Last, the main routine can also call a
jump to other rout in es - listed. They
perform casks such as start new game,
you thi nk about the program first, you them. Line 3050 waits for the player to move to next sheet, and so on.
can have results such as Co lou r the press a key as well as playing a note . Main roulines
Py ramid . It is based on the popular The routine at lin e 6 initalis es the 2-5 Instruction promp1.
6-35 loitalis.t scores.
game Q*B ERT . The graphics are su- score counters and prints a string of
40 Print pyramid block.
perb and it is wonh the effort to type-in. zeros for score and high score. The 50-102 Draw pyramid and initalisc move-
In this version, you play th e part of a reason is that the scores will be printed ment variables.
little man who must jump from squar e over the zeros, thus giving a neat effect. 120-390 Main routine - set text.
10 square on a 30 pyramid , colouring Lines 40 to 60 draw the pyramid and 400-440 Caught routin e.
10()()..1010Completed pyramid .
the pyramid blocks as you go. You can those lines contain two cond itional 20()()..2050 Move disc.
move up and down but all movement is loops. Line 40 prints each block of the 300()..3060Prim instructi<m
s.
pyramid . After that, the discs are drawn 4000-4002 Save game routine - use after writ·
at line 70 and the starting positions for ten.
9900-9916 User-definable graphi cs da1a.
the ball and snake are at lines 101-102.
9900-9999 Wail mcsuge ~md read da1a.
The main routine of the program,
one large loop at lines 120-390, follows. Po kes u sed
There several operations are performed.
First, a test is made to see if the user is FLAGS2 (23658) Ensures uppc r< asc input.
Line 9990 Pokes data in10 UOG area.
moving the man - line 130. If not, a
jump is made to the movement routines Str in gs u sed
for the ball and snake; remembe r, the AS used for all user inpul.
ball and snake can move even if you do
Variables used
not.
FI Holds curr ent number of blocks filled.
diagonal. To move in the game the A, If you have decided to move, lines HI High score.
Z, K and M keys are used. 140-165 test to see which way you will SC Holds current score.
When you ju mp on to a square, it will move. Immediately after that, two tests LIV Number of lives.
be filled with the colour shown on the have to be made . First , a check in line SH Holds current sheet - round - number.
X Line posilion of block.
top left of the screen. After the whole 171 is made to see if you have fallen Y Character po$ilion of block.
pyramid has been filled-in, you move to from the pyramid; if so, the line also F Used as index for [Link]·row drawing.
the next sheet, where it is necessary to contains a loop to draw the man falling. BI Line position of ball.
jump on the squares twice for them to Next, a test is made to see ff the block to 82 Column position of ball.
Si Line position of snake.
be coloured correctly. which you arc about to jump is not $2 Column position of snake .
Colour The Pyramid was written for coloured; if thac is so, it is coloured at A Line position of man.
the 48K Spectrum by Simon Baines of line 180. B Column po$ilion of man .
Felixstowe, Suffolk. He took approxi- T he remaining major action of this D Holds - random - movement pointer for
ball and snake.
mately five hours to wrire it and has rout ine is to find your position and alter
IK Holds current ink number of block.
owned a Specrrum for a year, having the direction of the snake and ball, to a L, M and T [Link] drawing pyramid.
previously had a ZX-81 for six months. limited extent; it is done at lines 280-
1 GO TO 9900 10 OVER 1: BORDER 0: PAPER 0 :
2 CLS INK 7: BRIGHT 1: CLS
4PRINT AT7 ,1 2; INK6;"<ig4 15 LET SC=O: LET LIV=3: LET SH
:6*g3:g7>" ; AT 8,12;"<ig5>"; ~ =1
2; "Q *BERT 11 ; INK 6; "(g5) 11
; AT 9, 20 PRINT AT o , o;"S C: 000000";
12;" (ig1:6 * i g 3 :ig 2> " - AT 0,20; 11 HI:OOOOOO"; AT 1,0;"SHE
5 POKE 23658 ,8: LET HI=O: PRI ET:1 11 ; AT 1,2 0 ; 11 LIVE S :3 "
NT AT 11, 2; "WOULD
RUCTIONS?": INP UT
YOU LIKE INST
LINE A$: I F A
AT2~ ~~l~l"
AT 3,0 ; INK 4 ; :aJ'l.'.';
$="Y" THEN GO SUB 3000 23 ' IF SH>l THEN PRINT AT 3, 0
6 RANDOMIZE a,nrinutd on page6

SINC LAIR PROGRAMS August 1984

a, rtu 1111«/ from par 5
· OVER O· INK 5· "AB" · AT 4 O· " BA AT A,B-1; "Ji" ; PAPER IK; 11 11
1 PAP
~.; AT s,O; INK 4;"AB!'; AT 6,0;"~ ER O; OVER l;" "; OVER O; AT A+I
A" , B-1 ; "~ '; PAPER I K;" "; PAPER O
-30 OVER I : PR INT AT 0 ,29- LEN ;" A:'; AT A+2,B;"ljIB": OVER I: PRI
STR$ HI; OVER O;H I; AT 0,9- LE NT AT A+I, B-1; INK 6; PAPER 6;"
N STR$ SC ; OVER O; SC; AT l,26;L £ .ll." : OVER 0: LET Fl=F I +!I ANO
11
IV ; AT 1,0; SHEET: 11
; SH I K=4): LET SC=SC+I: PRINT AT Q,
35 LET X=- 2: LET Y=l5: LET Cal 9- LEN 5TR$ SC; OVER O;SC
LET L=-2 : LET M=l 5: GO TO 50
185 IF FI=21 THEN GO TO 1000
4 0 INK 6: PRINT AT X+2 ,Y+l;"a 19 0 BEEP .01,-20
B''; AT X+J , Y;''A''; PAPER 6; 11

PAPER O;"B " ; AT X+4, Y; "~' ; PAPER

,
191 IF A=Sl ANO 8=52 OR A=Bl AN
D Bs B2 THEN GO TO 400
O;" ; PAPER O;".fr"; ATX+4,Y;"
11
200 PRINT AT A,B; PAPER 6; INK
C"; AT X+4,Y+ 3 ; " ~; AT X+~, Y+l;" l ;" fil'"; AT A+l,B;"GH"
BA"; AT X+6, Y+l; ".Q.:' : INK 7: RETU
220 PRINT AT Bl,B2; PAPER 6;"
RN " ; AT Bl+l, 82; " " : LET Bl= B1+ 3
5 0 LET T=7: LET C=I 0 : LET O= INT ( RNO *2)+1 : LET 82
5 5 GO SUB 40: LET X=X+3: LET Y =6 2+2* <0= 1 )-2 *(0= 2) 1 IF SH>2 ANO
=Y-2 : LET C=C+I: IF C<T THEN GO RNO >. 5 ANO 81 ) 4 ANO ATTR !BI
TO 55 ' -6,82) <> 7 1 THEN LET Bl•Bl-6
60 LET L=L+3 : LET M=M+2: LETT
=T- 1: LET C=I: LET X=L: LET Y=M: 231 IF 81=19 THEN LET C=O: LET
IF T>1 THEN GO TO 55 81=1: LET 82=16
6 1 INK 6: PLOT 40,32: FOR F=1 240 PRINT AT Bl,B2;
TO 6: DRAW OVER 0 ;16,-16: INK 2; PAP
DRAW ER 8·"IJ "· AT Bl+ l B2•"K L"
OVER 0;16,16: NEXT F: INK 7 260,L ET o= INT < RNo' *4> +1
70 PRINT AT 6,6; BRIGHT O;"l,L 270 PR INT AT 51,52;
11
AT 9,8;
PAPER 8;"
; "KL"; AT 8 1 24; 11
.!i!_"; AT 11
; AT S1+1,S2;"
9 24 ·" KL" 280 IF 0 =1 ANO ATTR (S l -3 ,52-2
100 OVER 0 : LET A=7: LET 8=1 2: ) <> 71 ANO 51 ) 3 THEN LET Sl=Sl
LET FI= O -3: LET 52a52-2
10 1 LET Bl= I : LET 8 2= 16 290 I F·b=2 ANO ATTR (51 -3 ,5 2+2
102 LET 5 1=7 : LET 52=2 0
120 PRINT AT A,B ; PAPER 6; INK > <> 71 ANO 51 >3 THEN LET 51=51
-3: LET S2=S2+2
6;" " · AT A+I B•" 300 IF 0 =3 ANO ATTR !S 1+3,S2+2
130 LET A$= INKEY$ : IF A$ < > " > <> 71 THEN LET Sl= S1 +3 : LETS
A" ANO A$ < > "Z " ANO A$ < > "K" A 2=52 +2
NO A$ <> "M" THEN GO TO 191 3 10 IF 0=4 ANO ATTR (5 1+3 , 52-2
140 IF A$="Z" THEN LET A=A+3:
> <> 71 THEN LET 51=51+3: LETS
LET B=B+2 2=52-2
150 IF A$="M" THEN LET A=A+3 : 320 IF S l =A ANO S2=B THEN GOT
LET B=B- 2 0 400
160 I F A$="A" THEN LET A=A-3: , 32 1 I·F SI< I THEN LET Sl=I
LET B=B- 2
165 IF A$="K" THEN LET A=A-3:
LET B=B+2
170 IF ATTR !A+2, B>=7 THEN GO
TO 2000
171 IF ATTR !A+2, Bl= 71 THEN O
VER I: FOR F=A TO 20 STEP 3 : FOR
G=I TO 2: PRI NT AT F,B; PAPER
8; INK 8; 11
.ff "; AT F+ l ,B; 11
GH11 : NE
XT G: BEEP . 01,20-F: NEXT F: OVE
R 0: GO TO 410
172 IF ATTR (A+2 ,B l=66 THEN G
OTO 161
173 LET I K=4 : IF SH>I AND ATTR
<A+2,6l=70 THEN LET IK=5
174 IF SH>1 ANO ATTR (A+2,Bl=6
9 THEN LET IK=4
160 I F ATTR (A+2,Bl <> 71 IHEN
PRINT AT A-I , B; INK I K; "AB" ;

SINCLAIRPROGRAMS Aq tm 1981
 ET:1"; AT 1,20; "LI VES:3 "
2026 PRINT AT 0,29- LEN STR$ H
I; OVER O;HI; AT 0,9- LEN STR$
SC; OVER O;SC; AT 1,26;L I V; AT 1
11
,O;"SHEET: ;SH
2030 GO TO 200
2050 STOP
3000 CLS : PRINT AT 0,13;"0*BER
T"; AT 1, 13; INK 3;" C6*g3l"
3010 PRINT ''" CONTROLS:-"
3020 PRINT AT 3,14;"A K"; AT 4
, 15; 11
\/
11
; AT 5,15; 11
/\
11
; AT 6,14;
"M Z"
3030 PRINT ''" JUMP ON THE BLOC
KS TO CHANGE THEIR [Link]
ID THE SNAKE AND BOUNCING BA
LL. ON LATER SCREENS JUMP ON
EACH BLOCK TWICE.J UMPING ON
330 PRINT AT 51,52; PAPER 8; I A nrsc WILL FLY YOU TO THE
NK 3; "..t:lll!.";AT 51+1, 52; "OP" TOP OF THE PYRAMID. ON THE
340 IF ATTR (A,8);114 OR ATTR THIRD SCREEN THE BALL WILL
CA,B);115 THEN GO TO 400 BOUNCE UPWARDS"
390 GO TO 120 3040 PRINT INK 2; AT 19,8;"PRES
400 PRINT AT A,B; INK 1; PAPER SANY KEY."
8;"EF"; AT A+l,B;"GH"; AT A-1,B 3050 IF INKEY$ ;"" THEN BEEP
+l; FLASH 1; INK 6;"!#*#" : FOR F 01, RND *50-20: GO TO 3050
;1 TO 15: BEEP . 01,F: BEEP .01,7 3060 CLS: RETURN
: BEEP .01,15-F: NEXT F 4000 SAVE " Q*BERT" LINE
410 LET LJV;LJV-1: PRINT AT 1, 4001 VERIFY "Q*BERT"
20; OVER O; "LIVES:"; LIV: FOR F;l 4002 RUN
TO 150: NEXT F: IF LIV>O THEN 9900 DATA 1,3, 7 ,15, 31 ,63,127,255
CLS: GO TO 20 ,128,192,224,240,248,~52,254,255
420 FOR F;l TO 50: BEEP .01, RN
D *50-20: NEXT F: PRINT AT 21,2 9901 DATA 128,128,128,128,128,12
;"PRESS ANY KEY TO PLAY AGAIN." 8, 128, 128
9902 DATA 1,1,1,1,1,1,1,1
430 IF INKEY$ THEN GO TO 9903 DATA 7,15,27,17,49,49,59,62
430 ,192,224,176,24,24, 24 ,184, 248,60
435 IF SC>HI THEN LET HJ;SC ,24,25,15,7 , 4,4,29,112,240,224,1
440 GO TO 6 92,192,64,64,19 2
9907 DATA 0 1 7,31,63,63,127,127,1
1000 LET SH;SH+l: IF SH/6; !NT 27,0,224,248,252,252,254,254,254
SH/6) THEN LET LIV;LJV+l
1010 LET SC;SC+lOO: FOR F;l TO 4 9908 DATA 127,127,1 27, 63 1 63, 3 1,7
0: BEEP . 01, F: NEXT F: CLS : GO ,0,254,254,254,252,252,248,224,0
TO 20
9909 DATA 0,0,60,78,126,60,12,6
2000PRINT ATA,B;" "; ATA+l,
B;" "; AT A+2,B;" ": LET 8;8-4 9910 DATA o,o,o , o,24 ,102,1 02 ,199
*(8 ( 16)+4*(8 > 16)
2005 LET A;A-1: LET 8;B+CB<l6)-( 9911 DATA 6,6,1,0,o,o,o,o
8 >16): BEEP .01,A: PRINT AT A,B 9912 DATA 195,195,195,0,0,0,0,0
-1 ; INK 1 ; 11 EF " ; AT A+ 1 , B-1 ; 11 .§.
.tf..."; AT A+2,B-1; INK 7; 11 KL "; A 9915 DATA 1,3,7,15,15,7,3,1
T A+3,B-1;" 9916 DATA 128,192,224,240,240,22
4,192,128
2010 IF A>O THEN GO TO 2005
2015 PR INT AT A,B;'' ''; AT A+l, 9990 PRINT AT 10,10; FLASH l;"P
B;" "; AT A+2,B;" 11
: LET A=l: LEASE WAIT": RESTORE 9900: FOR f
LET 8;16 ; USR "a" TO USR "P"+7: READ a:
2025 PRINT AT O,O; "SC: 000000"; POKE f,a: NEXT
AT 0,20;"HI:OOOOOO"; AT l,O;"SHE 9999 GO TO 2

SINCLAIR PROGRAMS August 1984

* FITS SNI.X3LY ONTO SPECTRUM * A PROFESSIONAL KEYBOARD AT
*DOES NOT USE SPECTRUM'S RUEIBER MAT A SENSIBLE PRICE
*BLACK KEYS BEAUTIFULLY PRINT ED *40 INDIV IDUAL SWITCHES
IN GOLD& RED * EAS ILY FITTED IN MIN UTES
•spec trum Only
*Ref. KB
BACKPACKS
~-;.~~

~
• Let1)'0Ul"[Link]
ZX81 IU'l mu::h(X)Oler .
~ -.;.I ......
$epw8MCool-ilUM
ZX81 Re!ZlCCCl l .85 Specln,nAef SC £11.85
[Link] lnfO «her KMWOOt1 add-b
SilrV9f$10nsofhsindispensablelri:~you, ~Base(Spectr\.m)Rel P8SC £18 .SS• Powe,
~ · .,_./'\aV8SAVE/LOADandON/0 ff sn:t*'II 885&{ZX8 1)Ref P8ZX1C Ct 9.35•Scuid Power Bue
andat'lou9il'IOIQflfltlr\WISlormer . ~wlltl (Spee1N,'lontyJRef SP8tC £2S .OO•S.. PP: 1 Ref
intef1aoeone.k»[Link]~ 8P1C £32.55• SPPacli:2Ret BP2C t24 .55• 8ack
Ref BP1 - FIAlyvanable50U:'ldemp-3 1t131Wf1)90Ckels, Padt3Ret BP3C l'[Link] e B$idtPtc*4 Re! BP4C
SW*:hal'ldnoonindicaaol- Cllblt,lfldl)IUQ........ W .50 (18.60 • 8ackPdSRel 8P5C £[Link]• Bedo:Pd 6
Rei. BP2-as8P 1 bul:[Link]'*"'5-Ha Ref 8PIC£ 18.90 • Wearsa ver(~)Ret WSSC
roomlOfi:liyoutown'Qwcllug'aoc:kels £19.50 £16 .00 e Wearsa• {ZX81)Ref WSZX ( 15.80
Aet BP3-Q 8PI blAnol<Mld .. . . t21.50
Ret . 8P4 -u BPI WnolOU"(lorlOCMCS ...... £13.0S
Ref. 8P5 - ZX81 Y9fsionh:.IIOCMl$.ITIWIS$"'41ct1
naon,cabl U Kll)IUQ .... ................. . . , .... . £20-85
Ref BPhiSBPSbul:nocableouocMts ... • £12.85

MICROSTATION
1TSQU¥'1! 1,-, lo, abo'te l)lus compti le<' and tap,e
Ret. MS t7.50

SlNCLAIR PROGRMi.S Augu111984

 RM IDA is based on the ancient

A Chinese game. Four poles and a

number of run gs are drawn .
One, two or four people can play and
each chooses one or two poles depend-
ing on the number of players. The
players then take turns to place rungs
on the poles, forming ::i. ladder effect,
until 10 rungs have been placed.
The computer then draws a path
from the star at the bottom 10 one of the
letters at the top by going along any
rung until it reaches the end. T he letter
at which it finishes is the winne r.
Armida was written for the l6K
ZX-8 1 by Timothy England, of Work-
sop, Nou s.
·..

AKM1DA
·.·

1 GO$UB 9000
i O X,1 X I (71
3 Lt!.T Xt • " A e C O"
4 ARNO

ii r~~ ~H:ff i
40 Nt!.)(T A
0
•••..
s0 Gosue
&0 PRINT
70 l"OR 1'"• 1 TO i.0
x,
e'illiQ

ee PRINT RI ( 1")
'il0 Nl!XT f'
rn~
li.).)
PRit!::: ::::
.T NT
~~1t&r
2, 1 S;CS
J.04 T FlT 4,1 S;O s

i;;
.1.0e
Sff,~i~f!.
AT i:.2, 1s, "'
11i1: •1 TO 7
ll:3 AT (G t4iU-i,12; G;'') ''
tu G
1115 AT 14,10 ; "INPUT APPAO
F'AIR "
1115 AT 115, 10, " AAAANGl!Ml!ITT
ue
Ll'il
f'O R G•2 TO .20 $TEP
INPUT I
li!

HII~I:!~~!~ E~r1:1t
1:3!5 II"
!~!-e,
I•.il THEN PRINT RT G,0;C I
140 1 ..- l•:3 THl!N LU A l ( C J • Ot
14!5 Ill h:3 TH!.N PRINT AT G,0;01
1150 I!" 1•4 THEN L~ A l CG) • l!I
tl~ i~ ihl5:~ +~~~
16!5 I,..
EH~.~!11:,t •I!•
THEN PRINT AT G ,0,F I
170 1 " 1•6 T Hl!N l.~ Al( G) •GS
17!5 If' h6 THl!N PRINT AT G,0 ;G S
tg: 1G~tM1L-------------------"---------
i; i:~ +~~~ ~g1~·J~
l'il0 Nl!l<T G II' Al( YI •M• THl! N l. l!T 21• "0"
i 00 CLS 11" Al lYI • I"• TMl!N Ll!T 21•"8 ''
a10 P RI NT xi Nl!XT Y

-~= ~w
.iHi!0 l"OR t<.•1 TO 20
;.!4 0Nl!XT K
li!4 S PRINT 11T .1:1, 4., "•••
Al!T URN
=•
II" Y ( l TNl!N
II" AI IYI •l!I
GOTO
THl! N
.1:i!00
Ll!T Zl •" A"

i:::
.ill50 PRINT AT 10,lla,
WI LL Tl! LL ..
:: ~N:.:~/1
"UAIT RNO I

, 10 ; "YOU UHO UON

II" Al (VI • Cl
II" AS IYI •0 1
~i~:iYI • I'S
THl!N
THl!N
THl!N
LET Zl •"C"
Ll!T Zl•"O "
Ll!T Zt•"A ..

10
11
1:J00 FOR Y•20 TO 1 $Tt!.P ~1 A!!H C

1~ ~ IF
;~ ;! II'
I ,.. Zl•"A" THl!N PA INT AT Y,0
z , ... e .. THl!N PRINT
Zt •"C" THt!.N, PRINT
AT ".,
AT Y , 4
~= :ni~~~ ti~H:~r
II" Y< l THt!.N COTO i.1:00
1~!~!
~~~·~VJ • l'I THt!.N L.t!.T Z l • "O"

t~: ~;:::::
1:3:J0
1:J 4.0
:::~:::::~:: ::0:
II" z , ... e .. TH!N G0$U e ::n s 0
II" z, ... c .. THl!N QOSUe :Jl500
,
6
~r~~: THt!.N
II" AS (YI •H•
119' As (VI .o,
GOTO
THe:N
Tt1t!.N
iil:00
L.l!T
L!T
21-
Z l•
~F=I"
"8"
• •L
NI!SHt!..5 ON . "
~i:iT 2 1 , 0 ;·· a ·1
iF!v,."" THt!.N GOTO
cwa:::.
S;.!50
\:Jee 11" Zl• "O" THt!.N ~05Ue :37!50 II" As !VJ .e, THe:N L!T Z l• HC" ll :300 CLS
13150 Nt!.XT 'Y 11" A• !VJ •I"• TH!N L.t!.T Zl• "C" e,a00 A CTUAN
.!000 l"OA A•0 TO i1:1 N! XT Y
:::~ 81~ ~f Hl

(?II
.il:010 PRIN T ftT A ,8;" Rl!TURN
9001 0 1 1'1 01 17 )
R 90 0:ii! DI M 1!11?1
TA T 11,ll ; Z, ;" IJON. ·· Q0 0 3 OIM Ft (?)
0•1 TO 1 0 0 9004 DI M G I (7)
0 'i10()!5
90015 0Le:T11'1 H$
es •" . ..
T " [Link] YOU LIKII!!: ANOTM 'illJ0 7 Lf:T C l •.. ..
g0oe Ll!T 01 ... ..
900il LU t!.$ •" ··
N~!~~~K~lN RUN 9010 Lt!.T f t •" "
I I" t'l l• "N" TH l!N STOP 9100 L~ T Cl : " "
GOTO .il!5!50 9i1:00 Lt!.T H• • " ··
Rt!.t1 A ggc;p Rt!.TURN
I I" Y ~ l TMt!.N OOTO 2.il0 0 9'il'i18 ~AU!. " FIR/11~ "
I~ ~ I !~~ :a:+~i~tit u :::~:: 'il'ilil9 RUN

SINCLAI R PROGRAMS August 1984

A
NSWER THE 'P HO NE before have to use the lift to reach t he proper
th e caller hangs up and you lose level. The lift doors open and close
a life. There are two floors with aut omatically and you must use keys 5
six telephones on each floor. When the and 8 to move left and right.
telephon e rings you must answer ir as Written for the 48K Spectru m by
qu ickly as you can before you run out of Micha el Batty of Che ster le Street,
time. If you are on the wron g floor you County Durh am.
2() POKE USR "t"+d', BJN 0111 11 730 PRINT AT 19,0: "GOES ALONG "
10
30 POKE USR "t"+l, BIN 1001 10 73::i PA USE :50
01 740 PRINT AT 21 1 0; "PRESS A KEY
40 POKE USR "t "+2, BIN 101111 T O CONTINUE"
01 7:50 IF lNKEYs •"c" THEN GO TO
50 POKE USR "t"+3 , SIN 001 1 11 770
00 760 PAUSE O
60 POKE USR "t"+4, BIN 011001 770 CLS
10 780 PRINT INK b: AT 2 1, 0;" I~
70 POKE USR "t"+5, BIN 011001 g3)"
10 eoo POKE USR "a"•O, BIN 0000 10
80 POKE USR "t"+6,255 00
9 0 POKE USR "t" +7,255 810 POKE USR "a."+1 1
BIN 000110
100 L ET h s•O : LET ;,$ •"????????? 00
?" 820 POKE USR " • "+2, BIN 0000 10
00
8::SO POKE USR " • "•3, BIN 000 1 11
00
840 POKE USR " • "+4, BIN 001010
10
850 POKE ~R " a "+5, BIN 010010
01
860 POKE USR "a"+6, BIN 000111
00
870 POKE USR "•"+7 , BIN 001000
160 PRINT INK 2; FL ASM 1; AT 1 10
O, 12 ; MRI NG RING" 87'!5 REM
170 F OR n 2 0 T O 2: BEEP . 5,10 : P 880 POKE USR "b"•O, BIN 000010
AUSE '!5: BEEP , '!55, 10 : PAUSE 27 : N 00
EXT n 890 PO+<E USR "b" • 1, BIN 000110
180 PRI NT I NK 1; AT 10 , 0; " (1:5 * 00
i~:;1~~~E1;;i9B>M- 00
900 POKE USR "b"+2 1
BIN 000010

190 PRINT INK 5; AT 0 ,0;"<3* •P 910 POKE USR "b"+3, BIN 000 111
: 21ti98:29 • s p: igB : 3t • sp: lgB : 3Tiip 00
, 1 g9: 31 • sp : 19B:29• • P: :S• ioB: 29 • •P 920 POKE USR "b"+4, BIN 000111

~b!:!;g:io;;~~~=Yfe~;o!;~~;
200
~;~;7
PAI~ INK ~; AT 12, 121 "<a
00

00
930

940
POKE

POKE
USR

USR
"b "+5,

"b"+6,
BI N 000 010

BI N 000101
00 1100 POKE USR "d"+ 4 , BIN 00 1 110
* 2~()2Pl8~E3g • sp 1 2 •t g8:S • s pl"
950 POKE USR "b"+7, BIN 00010 1 00
::590 BEEP . 1 ,1 3 00 1 110 POKE USR "d"+5 1 BIN 000100
'!590 PRINT AT b,b; "Pr••• • key 960 REM 00
to continue" q70 POKE USR "c"+O , BIN 000100 1120 POKE USR "d"•6, BIN 001010
bOO BEEP . 3,'!5 00 00
1 130 POKE USR "d"+7, BIN 00 1010
.,o
610 IF JNKEY$ •"c" THEN GO TO 980
00
q90
POKE

POKE
USR

USR
"c" •t,

"c"+2,
BIN 000110

BI N 000100
00
1131 LET 103
620 PAUSE O
630 CLS 00 1140 PRINT AT O ,O; "SC ORE-";sc; "
HI- ";hs ; '' LIVES- " ; l
635 BORDER 1
640 PRI NT AT 1,0;
T O GO L EFT"
"PRESS ""5""
1000
00
POKE

10 10 POKE
USR "c"•3,

USR "c" +4,

BIN 00 1 110

BIN 010101
!;~? PRINT INK 6: AT 12,0; "(2 4*

6 50 PR IN T AT 3,0; "PRESS ""8"" 00 ~60/Rl~T ~NK ~; AT 10 ,0;"!

TO GO RIGHT" 1020 POKE USR "c"•'!5, BIN 100100
660 PRINT AT '!5,0 1 " .. --- -------- 10 Tt7 0-PR IN'T 'INK 6; OVER 1; AT 10
1030 POKE USR "c" +6 BIN 001110 ,25;" <7 •i g8:26 • •p : ig'!5 : 4• •p : g:5: 26
670 PRINT
TO OPEN LIFT
680 PRlNT
AT 7,0; "PRESS " "l""
DOOR"
AT 9,0 : " FOR EACH CAL
00
1040
00
POk:E USR "c"+7
1

, B I N 010001 ;~~;,;~;:
7;;w:.~;~
;;;~~;,~2;~
t;;~H
•P : gS: 26 • s p: 1 g5 : 4'* •P : g5: 26 • • p: 1g
L YOU ANSWER YOU GE T"
690 PRINT

700 PRINT
AT 11,0;"'!5 PO IN TS"

AT 13,0; "THE GAME IS

OVER WHEN YOU LOSE "
1050
1060
00
REM
POKE

10 7 0 POKE
00
USR "d .. •O, BIN

USR "d"+l , BIN

000100

000110
...
~~ :;s~,~~~~=;~~6~!~:
"""TiSoPRINT
;;;~,~;~~=;
R 1j"lig9:3l
JN+< 6: AT 12,24;
• • p : ig8:31 • s p:ig8:31
OVE

"710 PRINT

720
AT 15,0; "THREE LIVES

PRINT AT 17 ,O; "THE GAME GE

1080
00
POKE USR "d"•2, BIN 000100
;~i~B~t~!;:~~A~:~ft
I MO POKE USA "e"
*•e=
198
:3
,2:5 :,;
1
••
1090 POKE USR "d" +:S, BIN 001110
TS HARDER AS IT " 00 119:5 PRINT INK 5; AT 19,0; "!

10 SINCLA IR PROGRAMS Awgull 1984

 1410 JF l • O THEN GO TO 9000
1420 GO TO 1380
2000 IF lNKEY$ • "5'' THEN GO SU
8 3000
2010 IF INKEYf "'"8" THEN GO SU
a 4000
2020 IF INKEYS • " 1" THEN GO SU
8 5000
2030 RETURN
3000 LET y • y-1
3001 1F y • -1 THEN LET y • O
3002 PRINT AT x 1 y;'~'; AT x,y;"
J!"
3003 PRINT AT x,y+1J" " : IF x-2
'"'9 AND y•h THEN LET sc•sc+:5 : PR
INT AT x,y;" ~: BEEP .1 1 20 : GO
SUB 7000
3004 PRINT AT x,y -+1;" "
3005 RETURN
4000 LET y • y+l
4001 IF y•25 THEN PRINT AT x,y
; " ": GO sue 6000
4002 PRINT AT 11,y;".£"; AT 11,y;"
o·
4003 IF x-2 • g ANO y•h THEN PRIN
T AT x,y-1;" ": LET sc.,sc+5: BE
EP • 1, 20: GO SUB 7000
4005 PRINT AT x ,y-1;"
4006 RETURN
5000PRINT ATq,z;",S,."
5001 RETURN
6000 REM
6001 IF x • 20 THEN PRINT AT 20,
24;" ": FOR n •20 TO 11 STEP - 1:
PRINT AT n,25;"!!,": PRINT OVER
1; AT n,25;".E" : PAUSE 5: PRINT
AT n , 25;" ": NEXT n: LET x• ll: P
RINT AT 11, 25; "£.:': PRINT AT 11
,24; "A"1 LET y • i4 1 GO TO 6003
0002 TF :o< • l 1 THEN PRINT AT 11 1
24;" ": FOR n•l l TO 20 : PRINT A
T n,2:5 ; ".f.": PRINT OVER I; AT n,
25; "Jt": PAUSE 5 : PRINT AT n,25;
" ": NEXT n1 LET x•20: PRINT AT
20,25; ''..§..": PRINT AT 20,24;':fr":
LET y•24
6003 LET y•24
0004 RETURN
7000 PRINT AT O,OJ "SCORE- .. ; sc;"
HI-";h s ;" LI VES-";l
7001 LET w• 120
7002 IF sc:)100 THEN LET w•w-10

7003 IF s c)200 THEN LET w• w-10

7004 IF •c >300 THEN LET w• w - 10

7005 IF &C)400 THEN LET M,w - 10

T T T l l" 1359 IF p"'5 THEN LET g•9: LET h 7006 IF sc >500 THEN LET " ""w-10
l200PoKE uSR ..;-;.-+1, 129 • 16
1210 POKE USR "e " +2, 1 1360 GO SUB 2000 7007 IF sc) I OOO THEN LET w•w -15
1220 POKE USR "•"+3, 1 1301 IF p•O THEN LET 9• 9 : LET h
1230 POKE USA "e"+4, 1 •20 7008 JF s c >2000 THEN LET w-=w- 10
124.) POKE USA "R"+5, 1 1362 GO SUB 2000
1250 POKE USR Me"+O, 129 1363 IF p•7 THEN LET g • IS: LET 7009 IF s c ) 3000 THEN LET w•w-10
1260 POKE USR "e"+7,2:i:i h•O
1270 POKE USR "f'",2 5:i : POKE US 1304 GO SUB 2000 7010 IF s c>lOOOO THE N LET w•w-2
R "f"+7,255 136 5 IF p•8 THEN LET g•t81 LET 0
1280 FOR n • l TO 6 h• 4 7050 PRINT AT g ,h;" "
1290 POKE USR "f"+n,129 1366 GO SUB 2000 7100 GO TO 1320
1300 NEXT n 1307 IF p • 9 THEN LET 9•18 : LET 9000 FOR n =30 TO -20 STEP -2 . 5
1301 LET q • 20: LET 1:•25 h•9 9001 BEEP .1,n: NEXT n
1310 PRINT AT q,::.; ''..f." 1368 00 SUB 2000 9002 CLS
1320 LET w,.30 1369 IF p•IO THEN LET g • IB: LET 9003 IF ac>h!i THEN PRINT "You H
1335 PRINT AT x ,Y; "fl"
13:iO LET P"' !NT ( AND • 12)+1
h-=12
t:S70 GO SUB 2000
•v• Thv High sco r e ": BEEP .5,32:
LET hs••c: INPUT "NAME";•$
1352 IF p•l THEN LET 9 a 9: LET h 1371 IF p•ll THEN LET g-18 : LET 9004 CLS : PRINT "TH€ HIGH SCORE
•O h • IO -" ;h s : PRINT : PRINT "THE HIGH S
1353 GO SUB 2000 1372 60 SUB 2000 CORER - ";•:J: PR INT : PRINT "YOU

-·
13 5 4 IF p•2

.
135:i
1356
THEN

GO SUB 2000
IF p • 3 THEN
LET g•9: LET

LET g • 9, LET
h

h
13 73 IF p • 12 THEN LET g • IB: LET
h • 20
1374 GO SUB 2000
1380 PRINT
!;"'":
AT g,hi
LET wsw - 1
INK 2 ; FLASH
R SCORE WAS "-; sc
9005 PRINT "PRESS A KEY FOR ANOT
HER GAME"
9006
9999
IF lNKEYf • "c " THEN GO TO

1357 IF p•4 THEN LET 9•9: LET h t 400 GO SUB 2000 9007 PAUSE O
•12 14 0:i IF w• O THEN LET l•l-1 : BEE 9999 LET sc•Or LET w• 1201 GO TO
1358 GO SUB 2000 P .5,0: GO SUB 7000 770

SINCLAIR PROGRAMS August 1984 II

 __
---
cow- .,_
-·-
-.--

eon.--
.... [Link]

--
LIIMlf ....... Ud
NaUoMI Phyelcal [Link]
Otnlr9I T,.._~ Ud
.,_.,_
-·-
---
[Link]

----
• .T. flleNrdl Ubl Accounls

--
JMMIIOwLld

-Ud
--
H.C.c
.s.Asaod91lon

lnfonnltion TKhnOtogy ~
._..
Ud

llk:rosy [Link] Ltd

Thll Television [Link],-

--
Educadon & MlerotKh Unit
Brttith Telecom Entitrp,tM:•
°"f*Y'DiabtbubonLtd

&[Link],ef [Link]
BBC Pubtk:atlons
M.S . Slmnen Computer• Ltd
ROIYllle Timothy Ltd

----
M.E. Eleclroncls
• MlcrostoN:
&llffll Region Into. Centni

U...-CtMtk>nlltd
[Link] llHon
Custom Video Production s
BBC TV South
K•liogg c:[Link] [Link] Britain

--[Link]<wy
Ltd

w,tweotnputi..,,Syt..,,._
S~ TelKommul'KIIUomi
U boratorte s Ltd
Gr,nada Compuler S..-Vlces Ud
Apptled SystMM Know ledge Ltd

---__
CApMrSystems and
[Link] Lid
eo,w,u. Comick "'9odatn

..........
~Shyte&Sonltd

Robot Technology Lid

• _.,..,.._.
Btltlah [Link] (Training, Ed. &
Soloty)Ltd

-·-
...._.Control s lid

Robot T.c hnok)gy Ltd

Unllltd kJngctom Ak>mlc Energy
Authortty
Brltlth~
S. lllm Gfoup lid
Pubfk Ltd

f»teHey Avionics• Comm.

Elite Softwan, Co. Ltd
c...--.Unlt.
CheltMr4nstitute
lntK Onvwelyde) Ltd
uni.,.,.. ,Sone:rLtd
~ EqulPf'l*'I Sco tlllnd Ltd
Edftrd OeYIH Chemk:al L1bL
PyrMlid SenkM Ltd
P'Nllpe AetlNrch [Link]*10nN
Klng ... [Link])n ~
Micfo&ronlx S.A.R.L

--
- ""
lhomas Law ANOCletes
T,..-.,vldeo ProducOona Ltd
DMhElilc1rtcall Eiec:tronlc

--"""
Triptych
• zxDet•
• Octocon.,..,
e
Pubft.,...
NotthW .... New.,.._..Ud
• [Link] Pha([Link] .. Ltd
Ltd

• Hetionel Coel 8oerd

e FM Ways Softw• Ud

·-
e ECINUd
e John Eimer Offiele Equlpnlent
• Centn1Eloc1rlclty"""-""o-.,
e GuernNy Computtn; Lt d
• Cwrlh Compul9r" Components Ltd

I,
 WTOOAOEA BYPOST:
* Dealer Inquiries welcomed BY TELEPHONE ; (0923)48222
l!','OUMartAme r,can[JCpt&SS
$!mpl)'fi11W1thecoupooeocloslngyou,
CheQl;tlP.0 ll'lilOe payable 10 BRITISH

* Special discounts to educational

authorities & government
Budaycam, DinersOw or Access C9i'll MICROoruselhespec:elsec:\IOrlfof
Hok:lerSllnpfy~phoneuSgrw'lg yc,ur
Clrd [Link]. Addtt$Sandrtem(S)
Cfedi!CltdHol<:tertandposttotl'I&
addlHSbelow
reqwedandyourO!O&f wilbe OVERSEAS ORDERS:
departments cfe$oat<:hedwltlwl•8 h0ur$1 Pleaseaddt'1 0perllem0tdefei:I

* Export Inquiries Invited r Post to: BRITISH MICRO, UNIT 02 . PENFOLD WORKS, IMPERIAL
WAY,WATFORD,HERTS.WD24YY.

O BBCMODELBoco~MOOORE64
'°'.
Please se~ me GAAFPAO SINCLAIASPECTRU
M

lly()ure([Link].,,..,.,....
YelSIOr'IS,p$ell$etll;tl

Oty Item Ex. VAT Inc VAT

BRITISH MICRO
A HEGOTRON GROUP COMPANY $
G,afP3dComplete (125 .00 (143.75

I enc lose my cheq ue tor /P.O. C.~tag e, Packrng& Ins;;:~ ,-,~~s

._oo
__ _,

Umi 02. Penfold Works. . I preler to pay with my American Express: Barclaycard, Diners Club,
Imperial way, wauord, HERTSWD2 4YY Access Card.
TEL: (0923) 48222 TELEX: 946024 (Please delele whichever is not applicable)
Card No.
Signature
Name
Address
 10 BORDER 3 : PAPER 3 : INK· 1: C \\~35'°F"0Rjm0~EST~~oo· ,i ,/r,B;" . "; AT n,17;" .' '; AT n+8, 15;"
LS : GO SUB 9000 , "; AT n+S,24; .. . "; AT n-1,20;"."
20 LET 5t"'1: LET lv • 3 740 FOR tr1•l TO 4: FOR n "' l TO 4r ; AT n+S ,12;("." ANO n)3) : NEXT
30 LET oii:S"" "· ••.•.•••• " : GO SUB READ a.: BEEP . 1,oii: NEXT n: NEXT n
s t•HOO+t900 m 230 1 RETURN
35 RESTORE 8900: FOR n=l TO st 750 NEXT j '2400 PAPER 5 : PRINT AT 2,10;.a$;
READ lm: NEXT n 755 IF at • 9 THEN GO TO 1000 AT 7,tO;•S; AT 14,10 ; .i•; AT 19,
40 LET Y"' 19 : LE T x=1 5 : LET <1•2 756 LET s t•5t+l 10; .. s; AT 5 ,4; •-*1 AT 16,4;.as ; AT
LE T b • l5 7b0 PAPER 3: CLS : PRINT AT 10 5,17; • S:i AT 1b,17; aS : FOR n • 2 T
50 LET gS • SCREEN$ <oii, b) ,10; FLASH l;"Well Don•"; AT 12, 0 7: PRINT AT n,10;"."; AT n,20
bO PRINT AT oii,b; "~" 10; "Sh •• t No."; s t; AT 14 1 10; "Liv ;"."; AT 12+n,t0;" . "; AT 12+n,20
70 LET oiiS"" I NKEY$ v a : ";lv ; " . ": NEXT n
75 PRINT AT y,x;" " 770 PAUSE O 240 1 FOR n • 6 TO 15; PRINT AT n,
BO LET x • x+C,a$ • "8" ANO ATTR C 780 CLS : GO TO 30 4;"."; AT n,13;"."; AT n 1 17;".";
y,x+U=41>-(.il:f • ''5" AND ATTR ly, 1000 DATA 4,-5,0,4,2,-5,-1,2,0,- AT n,26;"." : NEXT n: RETURN
x-1) • 41) B , -3 ,0,-1,-8, -5,-1 ,-3,-12,-7 1 -3, 2500 LET •••as ( TO 5) : PAPER 5:
8 5 LET y•y+ (,a$"'"6" AND ATTR I -5,-12 , -8 , -5,-3, -1 2 ,-7 , -3,-1,-10 PRINT AT 2 , 13;.a$; AT b,13;.il• : P
y+l ,X) • 41 l-( .aS,.."7" AND ATTR (y - , -5 , -1 RINT AT 19,13;.iiS; AT 15,13; • SJ
1,x>=41 l 1010 PAPER 3 : CLS : PRINT AT 10 AT 9,4;•"f.; AT 13,4;.iiS; AT 9 , 22;•
90 IF SCREENS Cy,xl•"." THEN , 10; FLASH 1; "Wvl l Don•!" Sj AT 13,22;•$
LET lm • lm-1: BEEP . 01,0 10 20 FOR n = l TO 32 : READ a : BEEP 2501 FOR n•3 TO 5 : PRINT AT n, l
91 IF y • a AND xmb THEN GO TO • 4,.i : NEXT n 3;"."i AT n,17;" . "; AT J3+n,13;"
300 1030 PAUSE O: RUN . " ; AT 13+n,17;" . "; AT 7 +n,4; " . "
94 PRINT AT y,x; "~ ' 2000 PAPER :5: PRINT AT 2, l Oj oiiS:j ; AT 7+n,8;","; AT 7+n,22;" ."; A
96 IF 1 ffl"'-0 THEN cm TO 700 AT 7,10:•$;.AT 14,10;.ii:f:; AT 19, T 7+n ,2bJ ". ": NEXT n : PRINT AT
97 PRINT AT a ,b;gf: 10; •• : FOR n • 2 TO 7 : PRINT Al n 11 , 8; .a•;•f:; .as: FOR n=7 TO 14: PR
98 IF RND >. b T HEN GO TO :iO ,10;" ." ; AT n,20;","; AT 12+n,10 INT AT n,15; ". ": NEXT n
;"."; AT 12 +n,20;"."; AT b+n,15 ; 2502 RETURN
99 LET .a.a•• ". ": NEXT n : RETURN 2600 PAPER 5: FOR n•5 TO lb: PRI
100 LET a•.i+(oii(y AND ATTR ( <1+1 2100 PAPER 5 : PRINT AT 2,5;a$; NT AT n,13;" . ~; AT n, 17; "." : 'NE
,bl .,,41)-(,ii)y AND ATTR c.a-t, b)zo4 AT 7,5;•S:; AT 14,5;.tS; AT 19,5;• XT n: PRINT AT 10 1 4J oii"f.: AT 10,1
1) "f; AT 7 ,1 :i ;•:J; AT 14,1 5;a.S: : FOR 7;.iiS:; AT 5,13;.i:r:\ TO 5); AT l b,1
101 IF .a <> .a.a THEN GO TO 105 n • 2 TO 7: PR I NT AT O+n,5;" . "; A 3; as ( TO 5) : FOR n•2 TO 5 : PR IN T
T 12+n , 5; ","; AT O+n , 1:5;" . "; AT AT n,15;" , "; AT 14 + n,t5 ; " .N: N
103 LET b•b+(b(k ANO ATTR (.a,b 12+n,1 5 ;"."; AT 6+n,15;"."; AT b EXT n
+1) • 41) -( b)k AND ATTR (a,b-1) •4 +n,24;" . ": N(XT n 2&01 RETURN
I) 2101 RETURN 2700 PAPER 5 : PRINT AT b, lO; a.s;
105 IF y •.a AND >1• b THEN GO TO 2200 PAPER 5 : FOR n • 2 TO 5 t PRJN AT 14,lO;a."f.; AT 10,7;a"f.; AT 10,
300 T AT n,1::i;"."; AT n,10;''."; AT lO; a s; AT 10,14 ; a.$ : FOR n • I TO 1
110 GO TO 50 n+3,20;"."; AT n +l 0,20 ; " ."; AT n 9: PRINT AT n,15;" . ": NE XT n: F
300 BEEP . 2 1 - 2 : BEEP . 3 , - 10: BE +7,10;"."; AT n +-14 , 10;"."; AT n+ OR n"'b TO 14: PRINT AT n, 10; "."
EP .4,-18 3,15 ;"."; AT n+-7 1 15;"."!; AT n+11 ; AT n,20;" . ": NEXT n
3 04 LET lv • lv-1 ,15;" . "; AT n+-14,15;"." : NEXT n 270 1 RETURN
305 PAPER 3 : CLS : IF lv,.O THEN 9900 DATA 6 5 ,99,79,Bb,131,83,53,
PRINT AT 10, 101 FLASH l; "Ga.m•
Over" : GO TU 103 0
2201 PRINT
T 5, 10;.aSt
AT 2,10;.iiS<
AT 9 1 10;aS;"
TO 5>; A
. "; AT 12
••
9000 DATA 5b,56, 16, 124 1 lb,40,b8,
306 PR I NT AT 10,10;"L1ves:";lv ,10; .at:; AT 16,10; • $;"."; AT 19,1 0
: PAUSE 0: CLS : GO TO 30 O;a.S( TO 5) 9005 DATA 73 ,42,28,127,28,42,73,
700 DATA 10,b, 1,-b 2202 RETURN 0 ,
710 DATA 9 1 5,1,-~ 2300 PAPER 5 : PRINT AT 2,8;.as; 9010 RESTORE 9000: FOR n • USR " .a
720 DATA 6,3, - t , - b AT 12,9;•$; AT 19,15; a.$; AT 10,1 •• TO USR "b"+7: READ a.: POKE n 1
730 DATA 8,5,1,-6 5 ; .i.$ : FOR n • 3 TO 11 : PRINT AT n .ii : NEXT n : RETURN

14 SINCLAIR PROGRMiS A14g111t

1984
 52 PLOT OVER l;n,SO+hl• SIN (
n/235* PI )
55 IF n)t70 THEN PRINT AT c,

d; ;f'i/~.t~~:rt!,;O
TO 58
:57 IF hi (65 AND n ) l60 AND t~o
THEN LET d • d-1: PRINT AT c , di•
£ "; AT c+l,d;w.Q. w1 LET t • l
:58 IF t •O THEN GO TO 60
5 9 IF hl ) 72 ANO n>160 ANO t • l
THEN LET d • d+l: PRINT AT c,d-1
;" J;.."; AT c+l,d-11· .Q.'': LET t•O
60 NEXT n
62 PAUSE 5 : PRINT AT c,d;''...k,"1
AT c+l,d ;':Q:': BEEP .01,0
65 LET hi• RNO • 26+571 LET a l •
RNO •16,+4

v~rnm11s 70 Fo"R n • l90 TO 44 STEP -ar:

LOT n,40+hr•
72 PLOT
SIN (n/~5
OVER l;n,40+hr•
• PI )
SIN (
P

IAlITTlll
ffl!AlYll[Om
n/ 2 55 • PI )
74 IF n ( 64 THEN PRINT AT •,b

,-~-----------..J
10 GO SU~ 9000: LET h1•~7: LET
; "E."; AT • +l ,b; ':.f"
76 IF v•l
77 IF hr(73
THEN GO TO 78
AND n<60 AND v • O T
h..-• 70: LET sl•l2 : LET s r • B HEN LET b • b+l1 PRINT AT a,b-1;
15 LET v • O: LET t • O: LET .. • 13: "~"; AT .i+ t,b -t ;" !.":
LET v•l
LET b • 4: LET c • l l: LET d • 24
20 LET g • l 10: FOR + • 103 TO 53 78 IF v •O THEN GO TO BO
STEP -5 1 PLOT 9,+: DRAW O,-l!i : L 79 IF hr >85 ANO n<60 AND v • l T
ET Q"'Q+-21 NEX T f HEN LET b .. b-1: PRINT AT •,bi ''.B.
30 FOR f•O TO 1:5 STEP 51 PLOT "i AT ••1 ,b; we ": LET v•O
t 10, 103-f : DRAW 20,-50: NEXT f 80 NEXT n -
82 PAUSE 5: PRINT AT a,b 1"Aw;
40 PLOT 12,88 : DRAW 190,0: ORA AT a +t,b; "8" : BEEP . 01,0 -
W 24,-50: DRAW -190,0 : DRAW -24, 83 PLOT ff ,6 7 : DRAW 70,0
00 85 LET hr• RND •30+6 5 : LET sr•
41 PLOT 22,67 : QRAl,,I 70,0: DRAW RNO •16+4
-1 0,20 : DRAW 24,-49 87 PLOT 12,88: DRAW l't'O,O
90 GO TO 50

A
S THE NAME suggests, this is 42 PLOT 212,67 : DRAW -70,01 OR
AW -10 , 20 : DRAW 2 4 ,-49 't'OOO FOR f•l T O 8: FOO g -0 TO 7 :
an animation program which de- 44 PRINT AT a,b;",B."; AT ••1,b READ a.: POKE USR CHRS: (143-t-f)
picts two figures playing tennis . I NB" +9,• : NEXT g: NEXT f: RETURN
45 PRINT AT c,d; "k." I AT c+l ,d 9010 DATA 0 , 0,24 ,24,2'55, 56, 92,92
Although the perspective of the court is ; ''.,Y": PAUSE 5 , 92, 154, 153, 1481212,210, 18,27
slightly wobbly the idea is interesting 47 PRINT AT a. ,b;NE"; AT ,i+-1,b 9020 DATA 0,0,24 124 18,28,58,58 ,5
and it is a good example of animation. ;''.£" - 8, 89, 15 3, 41 ,43, 75, 72,216
48 PAUSE 51 BEEP • 01,0: PRINT 9030 DATA 3,3,25,25,255,62,92,92
Tennis Animation was written for AT o1.
,b;"_e.N; AT a+l,b;''.,!" ,92, 152, 152 , 148,20, lB, 19,27
the 16K Spectrum by Calvin Reid of 50 FOR n•36 TO 190 STEP sl : ?L 9040 DATA 192,192,1 52 ,152,72,60,
(n/235• PI > 58 , 58,58,25,25 ,40,40, 72, 72,216
Kirkwall, Orkney.

M
ANIC AXE was written for
the issue one or two l 6K
Spectrum by Carl Thomp-
son, aged 13, of Hessle, N Humberside.
Avoid the axe which homes-in on you
and try to survive for as long as poss-
ible. The keys to use are Q and A for up
and down and O and P to move left and
right. You can also move diagonally
because the program uses the 'IN' func-
tion.

ANO c>O> 310 IF SC )• hl THEN PRINT NIN

120 LET d•d+-Cb >d AND d(31)-(b(d PUT YOUR NAME": INPUT n:f: LET h1
ANO d ) O>
~3~ ; P:t:
140 BEEP . 004 , 2
,d!~~ .. ~f. AT c ,d: "l!"; I
320 CLS : PRINT : PRINT : PRINT
n.r ;" HOLDS THE HIGH SCORE" : PRI
NT "YOU SCORED "; sc ;" THAT Tl/'IE"
150 LET sc•sc+l : PRINT : PRINT "ANOTHER GO? IY/
80 LET b•b+2* ( IN 57342•254 AN 16 0 IF a.•c AND b,..d OR o1.
• c AND b Nl''
O b (J: 1>-2•( IN 57342•253 ANO b)t •d+I THEN GO TO 300 330 POKE 23658,0: IF INl<E YS • "
) 1;,o PRINT AT • ,b;" "; AT c ,d; .. " THEN GO TO 330
90 PRINT AT .a,b ; '.:A:,' :S.40 lF lNKEV:f. •"y" THEN CLS :
100 BEEP . 004 , 0 180 GD TD 70 GO TO 60
105 PRINT AT o,o;··scORE N; •c ; 300 CLS : BEEP 1, - 30 : FOR n • O T ::S:50 IF INK[Y,t: •"n" THEN STOP
AT 0,17;"HI-SCORE H;h t 0 7: BORDER n: PAUSE n+l: BEEP •
110 LET c•c+(a)c AND c(21)-(A(c 004,n: NEXT n: BORDER O 360 GO TO 330

SINCLAIR PROGRAMS August 1984 15

 '5 INPI JT L
10 LET H•L>VAL "3"

S
PACECRAFT carrying deadly 30 DIM A!VAL " 4")
plutonium waste attempt to land 40 LET P=VAL "INT <RND•4\ +1"
45 PRINT AT VAL "16", H ,"
on a moving platform which you 60 LET J=L<P
control. As the craft can travel in only 70 FOR I=8 T O 20-A(Pl
one direction you must guide the plat- 80 LET AS=INKEYS
form so that a safe landing occurs. Ifth c 90 LET H=H+ !AS="B") - CAS="S")
ship misses the platform it will crash u ;;~TP~:~:/T. ~jt''~~'.~T.. I~ J; ..
and the wreckage of the spacecraft will 120 IF I=15 AND ABS <H +2- Jl < •1
THEil GOTO 40
build up. Should the wreckage reach the 125 NEXT I
platform the game will end. Enter a skill
level from 1-4, I being easy, and then
g~ E~1Ni(~T .k;~di". ..
13 5 IF A(P)=7 THEN GOTO 150
you will be ready to play.
Plutonium was written for the 1K
ZX-81 by S Hu ggins of Northampton.
u~ ~2i:h 4
~\coRE
l +A (2) +A (3) +A (<l))"
,";V AL " 40- ( A(l

E
QUATIONS OF MOTION is a
shon program which can be used
by physics students to solve
problems using the four equations.
Choose the unknown you wish to find
and then enter three known values. The
computer selects the appropriate equa ·
tion and the form the equation must
take and gives the unknown answer.
Values must be cmered in SI units, i.e.,
velocity in MIS, accelera1ion in MIS 1 ,
time in seconds and distance in metres.
Written for the IK ZX-81 by T
Lewis of Pembroke, Dyfed.

al ~i2.J1<;1,
INITIAL V•LOCITY ,U
30 PAINT "21,..INAL VELOCITY ,V"'
ii ~=1m:
::?:~1~
~II ~=I~
1~~
9 !! , &"
.. S )A C!:Ll!AATIOH,A""
ee PAINT "UHAT 00 YOU UJ:&H TO
f'IN0(1-5l'"
,;ie INPUT L
100 I,. L >S OR L <1 THl!N QOTO 100

ii! tH~::::~~u~;1a,3UUH"'
1411 l"'OR "•1 TO 3
x,
190 PRINT ··eNTeA •. , (Vi:IL ( l!lt I I

t,:
(L·l> t3 > •P' ) I I
~:w,.A
100 I,. L•VAL
I P'I
'"1'" TH!:H LeT C•A(l
)-< A (21+A C3ll
1911 1,. L•UAL. "'2" TH!!N [Link] C•A(l
I+ CA(31 tAlaJ l
aee If' L•UAL "3 " TH!:N L.l.T C• ( IA
11) •A <.U) /al IA 13)
a1111 I,. L•VAL "4 "' TH!:N LCT C•All
) .1 C(AC 2 ) •A<3 1 J ;a)
aae If' L•VAL ··s·· TH !:N LCT C • IA(
a>-AIU I /A(3l
a31 PAINT XS CL);"•"';C

16
SJNCu\.lR PROGRAMS AUfUII 1984
 0
LY T H ROUG H one of two cav-

F erns to collect jam hidden in the

~
~~;~fJI;~~ tunnels. the
steer through Use caverns
the cursor
and keys to
try to
maintain control of the helicopter as it
is blown about. The score is recorded
each time the jam is collected and, as
one route is more difficult, the points
are awarded accordingly.
Jam Sea rch was written for the 16K
Spectrum by M Bradford of Heywood,
S'JW?CH
Lanes.

l
RANDOMIZE 9,1 4;"<~>"; AT 2 0, 14;"~
2
Go sue 9000 gB:iQI ) "; AT 20,2'!5;"CiQ2tb • igB>•

;~j~rc~~~r~~·
BORDER l
3
CLS
4 i5~ AT 14,4i"
LET h • O
9 "! PAPER 21 AT 15 , 4 ; "JAM"; AT l
9 LET •• O 6,4;" "; PAPER bj AT 13,27;"
40 LET y•b : LET x • 15 "; PAPER 3 ; AT 14,27;" JAM "; AT
50 GO SUB 500 15,27;" "
bO IF s) h THEN LET h•• 560 PRINT INK 5; AT 0,10;"1ig2
100 PRINT IN!< I; AT y,x; MA" :2•i.98:19ll"; AT 1,7;"<ig2 : 7• igB
110 BEEP .00 5 ,50
120 PRINT INK 1; AT y,x;"B"
130 BEEP .005,51 -
-
:.w~.h~~~!:~~;;~a=;~
~;:.~·~;~79~;?.:"~f4~U
140PRINT ATy,x;""
170 LET b • INT C RNO •30-15>
180 IF t:1) 10 THEN LET x•x+ l ~,~; 1xr;:1;;.i~~:i;~
190 IF b ( -10 THEN LET x • x-1 · Ar 5,24;"lQ7 : tgB1tg4l"--
210 LET >1• x+( lNKEY$ "' MB")-( IN 570 RETuRN___ _
KEYS • "5") 9000 FOR 1 • 0 TO 15
220 LET y""y+C INKEY$ •"b "> -< IN 9 0 10 READ x : POKE USR " •"+l ,x
KEY$ • M7" AND y ) 6)
9020 NEXT l
2 :50 GO TO 350 9 030 DATA 0,255,8 , 156,250, 5 7 ,29,
340 PRINT AT :5 , 11 : JNK O; PAP
14,0,60,8, 156,250,57 ,29, 14
ER 2; "YOUR OEAO"; AT 7 ,:5; PAPER
9 0 4 0 PRINT ; INK 1; AT O, 7;"
3 ; "PRESS ANV KEY TO PLAY": BEEP JAH SEARCH "; AT 2 ,0; INK O; "VDU
2, . 5 : PAUSE 0 : PAUSE 0 : CLS : GO R JOB JS TO COLL ECT JAM FRO M THE
TO.
JARS HIDDEN IN TWO CAVES • YOU
350 PR INT AT 0,2; "SCORE • "; s ; A
SCORE PO INTS FOR [Link] TH
T 0 ,20;"HiSCORE • ";h
400 IF ATTA ly,xl • bO Tl-tEN GO E JAM ANO BECAUSE ONE ROUTE lS
MORE DANGEROUS POINTS ARE
TO 3 40
410 IF ATTR Cy,xl • lb THEN LET AWARDED ACCORDINGL V "
9 ""S +50: BEEP .09,1 3 : BEEP . 0 9,1 9050 PR I NT • • ; " PRESS ANV l<EY
41 BEEP . 09,13 : BEEP . 05 ,1 0 : SEE TO PLAY" : PAUSE O
9090 RETURN
P . 0'!5,10 : GO TO 10

10 LET 1'1•• 0 1 PAPER 5 : BORDER 5

INK O: CLS
20 FOR n • USA "•" TO USR "c"+
1 = READ a.: POKE n,• : NE)(T n
3 0 DATA bO , t26 1 126,6b,90,90,90
,90,66, l2b, 102, 102, 126, 126,60,24
, 184, 185, 14b, 124 ,5b,5b,0,91
4 0 CLS : BEEP , 05, 20: BEEP , 05
, 3 0 : LET •• 0 : LET y • lb
50 LET y • y+ ( INKEV-$ • "B• AND y
(3 0) - C INKEYS • " 5 " AND y ) O)
bO LET• • ATTR (t,y+ll
70 IF a• 41 THEN LET a•• +l : BE
EP • 005, 20
BO IF a •56 THEN GO TO t 10
9 0 PRINT AT l,y+l;".&,''; AT O , y
; "Ji": FOR n • l TO 2 : PRINT AT
2 0, RND • 30; PAPER ?; " •·; AT 21
, RND *30;" ": NEXT n: PRINT A
!, 21, RND • 3 1 ; PAPER 5; INK l; "~

100 LET l • USR 3280 : BEEP . 005,

a /2 : GO TO 50
11 0 PRINT AT O,y; FLASH t; PAP
ER 2; INK b;" "I AT t,y;" "1
FLASH 0: FOR n • 20 TO -20 STEP -
.7 5 : BEEP . 01,n: NEXT n
120 PR I NT AT 0,0; PAPER 2; lNI<
7j"VOU RESCUED"; & ; " PEOPLE": 1
F ,> hs THEN LET h a• • : PRINT AT
1, 0 ; PAPER l; INK 7 ; "A NEW HIGH
SCORE ' ' • ": FOR n"" - 20 TO 201 BE
EP . 005 ,n : NEXT n
130 PRIN T AT 3 ,0; PAPER 6J INK
O; MTh• c urr•nt tu -acor• 1 • "; ha
; AT 21 10;" PRESS ANY KEY FOR AN
OTHER GAME: ~ : PAUSE 0 : PAUSE 0:
00 TO 40

SINCLAIR PROGRAM.S August 1984 17

 -FLOODBARRIER
P REVENT the suicide pilots col-
liding with the barrier causing
flooding. Use the 'F' key to fire a
missile. Flood Barri er was written for
floods the barrier and line 195 - within
a loop - flashes 'GLUG'.
Things can be made more difficult by
moving the missile launcher nearer to
10
S
9
.L!S
20
30
LET p,.0
CLS>
FA$T
PAINT
F OR
AT 0,e,
y ,.e TO iiH
PRINT AT Y, li ; ... ..
' l"LOOD 8AAAIE

the 16K ZX-81 by Colin Todd of the right of the screen. To do that, Nf:XT Y
40
Ripon} N Yorks. 50 l"'OR Y~Ui! TO i1
substitute all occurrences of '20' in the 60 PAINT AT Y , 0,··pe, W ·T···
The loop at line 20 draws the barrier, 70 NfXT Y
listing with the required column num· eo PRINT AT ai..:0, .....
while the second loop at line 50 draws ber. Also remove line 100 and replace 90 $[Link]
,;s G05U6 300
the water. The missile launcher is at a with: 100 II"' I NKe;Ys · ···· n,e:N GOTO 100
110 ,.OR X•31 TO 1.! $TE~ -1
fixed position and is drawn at line 80. 100 FOR D=I TO INT(RND'200) gg ~~I~!2 ~TA~ 6xx;i;·~~E~'~Q~o ..
The next routine deals with moving
the aircraft and checking, but first a
!05 NEXT D ••
140 Ir' INK!!Ytc"F" TH f:N G0$U!5 4.
U50 Nl!:XT X
random line number for the aircraft is 160 Ll!T C•.il1
170 .. OR X "1 2 TO N
found at line 300. To make the aircraft Routin es used 180 PRINT ~T X 0 "'
move, you first press a key - line I00 - " AT C, 13," •
Although 1here arc no real routines in the pro- 185 LfT C• ~1
and the loop at line 110 moves the gram, 1hc different oixrations have bttn divided l'i10 Nl!XT X
aircraft.
There two checks are made. First,
into the following sections:
5-SO (nitialise variables and draw screen. .i;:...
194 FOR X" 1 TO 30
~~t Uj:::· 111::;AT 21,
~150 Moveaircrafi. ,.il:!~A~~g~T AT !5,6, "YOU SHOT " ; P ,
line 130 checks to see if the aircraft has 16().196 Flood barrier. i10 PRINT AT 8, 6, "PRf:5$ ANY KE
collided with the missile launcher and, 200-230 Print 5<:ore. TO CONTINUE'"
220 I,.- INK~I• '••· THe:N GOTO 220
if it has, a jump is made to the explosion 30().310 lnilialise row number of aircraft. .il:J0 GOTO S
400-456 Fire missile. 300 LfT N•INT CANOt-10 ) +1 2
routine at line 500. Second, line 140 310 RETURtl
460470 Increase score.
checks to see if a missile has been fired;
500-530 Missile launchu hi! . !t: ~~tN~.~~ ~6XN";;EP -1
if it has, a jump to the missile routine is ~ C0 PRINT AT Y ,20," t ";AT Y, .\ii!0,'
made. 430 IF Y•t l AND X " 20 THEN GOTO 4
The missile routine at line 400 moves
Variables used
C Holds row number for rising water. •
440
4S5
NEXT Y
PRINT AT
N, X; ••
the missile and if there is a hit - line N Holds random row number along which 4!56 RET URN
aircrafttnvcls . 460 LET P=P+l
430 - the explosion rout ine at line 500 P Holds number of aircraft shot down. 4 70 GOTO 95
S00 FOR X • 1 TO 30
is ca11ed. Notice that the explosion rou· X Holds column [Link] of aircrafl. 510 PAINT AT 21,20 , ••Q •· ; AT 21, i!
· "+",AT 21 , 20, ··"
tine is used from two points in the Y Used 10 hold row position of missile. 520 NfXT X
530 GOTO 200
program. Last, t he routine at line 160

18
SINCLAIR PROGRAMS Augus t 1984
 Upgrade your
16K ZX SPECTRUM
Now! The "CHEETAH" 32 K Ram pack simply plugs Into t he user port at the rear of
your computer and inc reases the memory Instantly to 48K.

:h:~.~~·:o~~ 1~:!t:~::~~~,~-de.
=~~ ~:~
~~~"p~~:;:::;
• Fully compatib le with all accessories via rear edge connector.

? £ 3ON•
e LY
• • Fully cased , tested and guaranteed.

Why w a,t any longer . 9 95 inc. VAT and p&p

Now make your SPECTRUM and ZX81 Talk!

The CHEETAH "Sweet Talker'' Just plugs into the back of the computer using
the existing power supply. Based on an allophone system you can easily
program any word, sentence or phrase . Fully cased , tested , guarante e d and
compatible with all accessories via rear edge connector . Complete with
demonstration ca ssette and full instructions. No more lonely night s!

Terrificptease
when orderlng
Value at
quote whether
£29.75
Spectrum or ZX81 owner .
Also availa ble:
16 K Rampac k tor zxe, . .. .. £19.75 64K Rampac k tor ZX8 1 ...... £44.75
Prices inclu de VAT. Postage and Packing. Delivery normally 14 days. Export orders
at no extra cost. Dealer enquiries welcome .
Send cheque/PO no w to:-

C HE ET AH MARKETING LIMITED
Dept. SP8, 24 Ray Street, London EC1. Tel: 01-833 4909
Cheetah , pro ducts available from
br anch es
01
jJjJ9 WHSMITH • "AM55Mii,fliil
Rumbelows
and all good computer shop s

S INCLAIR PROGRA M.S A ug,m 1984 19

 Locasu ~ ..
aLLack ~ P ROTECT the tree from the lo- /' ~
fg LOCl
4 LET HI=0

g~iNT ..
cust attack by spraying the lo·
cusrs with insecticid e. Press F
once to fire the insecticide and again to ~
•2$R
I "ATA•
-,j 0 P~NT"
spray the locusts. Your score varies
accordingto the amountof tree remain·
ing at the end of the game.
Lo cu st Attack was written for the
l6K ZX-81 by Andrew Bates, ofStokc -
on-Trent, Staffs .

lm!!01:::NTAT 15,1;"00
IN STRUCTIONS ? (Y !Nl"
YOU WANT
60 PRUSE 1000
155 LET I=0
70 IF INKEYS= "Y" THEN GOSIJB 10
00
90 CLS
100 LET N= l
105 LET E=l0
110 LET A=0
115 LET C=l
120 LET B=0
125 LET D=l
130 DIM A$(4,4 l
140 LET A$Cll=" & "
150 LET A$ ,2l =" "
1150 LET A$ ( 3) =' "
170 LET AS ( 4) =" "
175 PRINT AT 9,5," •.

y ''-V
•175
1e0
PRINT AT 21,E;"
PRINT
...
~T A,B i AS (N,1);AT
"
1
A+2
270 PRINT AT 21,E;"
280 GOTO 180
... "
290 LET E=E+CINKE Y$:"B" AND E<2
7l- ( INKEY$="5" AND E >0l
,B;A$CN,2l;AT A,B+ 2; A$CN,3l ; AT A 293 IF INKEYS="F" THEN GOSUB 60
0
•fa~+i~A~:~·~b A>lB OR 8>28 OR 8 295 LET C=C- cc,21
<l THEN G05UB 500 300 PRINT AT 21 , E;" ... "
185 IF INKEYS < >"" THEN GOTO 2g0 310 GOTO 190
187 IF I<>0 THEN G05U8 650 500 IF Ac2 THEN LET C:l
li0 PRINT AT A,8i" "; AT A+2,B ;" 510 IF A >18 THEN LET C=-1
";RT R,B+ti·" ";AT A+2,B+2 ;· ·" 520 I~ B <l THEN LET 0:1
200 LET A=A+C 530 IF B >2B THEN LET 0=-1
210 LET B=B+O 540 RETURN
230 IF I<>0 THEN G05U8 1550 600 IF I <>0 THEN GOSUB 600
250 IF INKEY$="" THEN GOTO 180 603 IF Ic>0 THEN RETURN
260 LET E=E+cINKEY$= " 8" AND E <2 605 LET G=l8
7) - CINKEY$="5" AND E >0) 610 LET H=E+l
2153 LET F=INT (RND+3) 520 LET I=-2
265 IF F=l THEN LET 0=0-(D,2) 530 L!!T B$=" I"
267 IF 5GN 0= - 1 THEN LET N:2 640 RETURN
269 IF SGN 0:1 THEN LET N=l 650 PRINT AT G,H;B$ ;A T G+2 ,H:"

20 SINCLAIRPROGRAM..$ A1,gim 1984

 5>PEEK 15399) ="•" THEN GOSUB 215
0
820 PRINT AT G ,H-1;" "i AT G-1
'~35;~ RINT ~T G-2,H-3 ;:',
;AT G-3,H-4 ;"
840 PRINT AT G+2, H;" "
850 LET I=0
860 RETURN
1000 CLS
1010 PRHff " LOCUST >'ITTR
CK"
1020 PRINT , , "USE KEYo, ""5""' AND
""8"'" TO MOUE LEFT >'!NDRIGHT
.PRES S ""F"" TO FIREAN INSECTISI
DE CAN. PRESS '"'F"" >'!GAIN TO S
PRAY THE LOCUSTS."
1030 PRINT
1040 PRINT "YOU SC•JRE BY THE RMO
UNT Of TREE LEFT AT THE END OF T
HE GAME."
1050 PRINT , , " PRESS ANY KEY T
O CONTI NUE "
1050 IF INKEY$ ="" THEN GOTO 1060
11 00 RETURN
2000 LET AS (1,4) =""
2010 LET AS (2,4) ='"'
2020 IF A$Cll=" "THEN GOSUB
4000
2030 IF A$(2l=" "THEN GOSUB
4000
2040 RETURN
2050 LET AS (1,3) =""
2050 LET AS C2, 3) =""
2070 IF R$ lll =" " THEN GOSUB
4000
2080 IF RS C2l =" " THEN GOSUB
4000
2090 RETURN
2Hl0 LET R$ (1, 2 ) =""
2110 LET AS (2, 2:• =""
2120 IF RS Cll =" " THEN GOSUB
4000
2130 IF R$ C2l=" "THEN GOSUB
4000
2140 RETURN
2150 LET A$(1,1J:""
2160 LET RSC2,1l =""
2170 IF A$ (1l =" THEN GOSUB
4000
2180 IF R$ (2l =" "THEN GOSUB
4000
2190 RETURN
3000 REM PRINT AT A,B;ASCN,lJ;AT
R+2,B ;~ $CN,!i2J;AT R,B+2;A$CN,:3) ;
~~0~+[ET+5;0SCN ,4l
4005 PRINT AT 5 ,10;"GA NE OVER"
4010 FOR H=9 TO 20
4020 FOR N=5 TO 25
4030 PRINT AT M,N;
4040 IF CHR$ PEEK (PEEK 16398+25
650 LET G=G+I 5 >PEEK 15399) <>" " THEN LET O=O+
670 IF G<=4 THEN GOSUB 800 1
680 RETURN 4045 IF CHR$ PEEK (PEEK 16398+25
J~~/:~~~'.. (')T G, H-1 ; " .•• ";RT G-1 5•PEEK 16399!:"."
4060 NEXT N
TMEN LET 0=0-1
810 PRINT AT G-2,H-3; " .•.... ," ; 4065 FAST
AT G-3~H-4; " . ,.,,, . •. " 4070 NEXT M
811 PRINT AT A+2 ,6; 4075 SLOW
812 IF CHRS PEEK (PEEK 16398+25 4080 PRINT AT 5,7 ;"YOUR SCORE IS
6•PEEK 16399) ="·" T HEN GOSUB 200
0 4~~~ IF O>HI THEN LET HI:O
~f2
~~I~~R~TP~E~+1~EEK
6•PEEK 16399)="·"
16398+25
THEN GOSUB 205
40•35
; HI
PRINT RT 7 ,8; "HI SCORE IS "
4097 PRINT AT 9,7;"RNOTHER GO CY
0 /N) '?"
815 PRINT AT A+2,S+2; 4100 IF INKEYS•'"Y" THEN GOTO 5
816 IF CHR$ PEEK CPEEK 16398+25 4110 IF INKEY$="N" THEN STOP
6*P~EK 16399);'' . " THEN G05UB 210 4120 GOTO 4100
0 •3000 SAVE "LOCUSii"
817 PRINT AT A,B ; 9010 RUN
818 IF CHR$ PEEK CPEEK 16398+25 9020 REN "LOCUST"

SINCLAIRPROGRAMSAugust 1984 21
 NIGHT GUNNER
£6.95
48K Spectrum
OTHER .JOystie*Com~t,bkl •
AMAZING FEATURES
Tht l l'batt le whe re
• Landmg1ndt1 ke ot t inc. VAT & p. & p. only.cessu1Vi 119-
lrom • runw 1ys plus
stNringon tt,.e groul'ld Joystick Compatib le w,1.t1e,ne mylightet"s
lt tackmgfroma N
• FullyAeroMl lc
Perk>rmanc.
(Kempston, AGF, Sinc lair i:e: ~:i~; d i1ection s,guns
[Link],up1Qsive 30
.._,
•Alr l~ldallackby t!WI Interface 2, Protek etc.)· Pr«1,c ti0n
W1th 9 me thocllOI
ground 1 11.. ck s0t1ies •
ano:lher 1·, ,1•1t1ot
• CrOH w ind s. te am per to,rruine e
Tu1 [Link] e 11nd lhQhl hom e
- l)'S <S • lel )'OUI

Al
ll nd,ng lri log Sc>ectrumgu ,de you to
I\
<.:::t
• 4 Pllotra11ng s. 8
8Ncon s. ground you, ... . ""' '-
leatu res an<1map
• Amhc l1lhor<101'1.
,a,oa,
1111
(7 tl ig l'II
O)tl'IPl,l l t<
• ILS Flap s UICand •· ;;. ·· j?. ,,., ., .. I
••.so~,
!:!'.:~~::~::' .yy~
@)
---------
~t
$yt ttmt 1,lu 1e 1 tn l your skJIJs• WIZARDS OF
. ,~
W1thoom p1e1e
rn.ct1,ri• c()l)e
...... ·-·m- ~ ....-
end
r>u1bew11e the
RecklH s 01,vers•
COMPUTER GA ME~
SOFT WARE
.,.,_
N"1Sl
ru c ho n 1 an dp 1k>I ~
Funl0 r 1ll the f1m, ty

DIGITAL;) ~;~:;;~~;:,
·~~'
the Sµ«uvm
Lifetime Gua rantee Cheques payable lo Digital lntegratoo

INTEGRATION g~~::
~:~t~~~~~~:K
Football 4BK O C7 95 Trade and
l encloseacheq ue/P.O. lor
Name•- ___________
Address;--------- --- _
Total.

Watchmoor Trade Centre Ta)Ct

(Any Spectrum) O £5 50 Export , Or deb it my Access Accoun t No.
Camberley ~~~~:;nau,~3~dJ ~K ~ne~~~::. ~lsWdalet)(oL~elW
~:~a~1~s·:~~;~~e I I 11...
1!::!i
-·"
Se lecttd P•od \fet• •v•lltbl t lrom Please send 10 Oigi1al Integra tion. OeptSP7
Boot$ . w oo1w0<1hs. H MV Mt:nt >M. wH sm ,th Watchmoor Trade Centre, Watchmoor Road. Camberley . Sur rey GU15 3AJ
G•CM$ h$ k~ • · Currys . Rumbek)ws . Se Hrf(J90t,_ Spec t fu m
....
,.
ne-,ets v,oe,o Pll lj,U Z•pp0 and ,11 gOOCIcomp..,te..
 /I
J 4>
;;--...____
A LETTER appears on the screen
and heads towards the flashing
magnetic field on the right. You
have to prevent the leuer pen etrating
............__ the magnetic field by pressing the corre~
~ponding letter on the keyboard . As
each phase is completed the field moves

A,~ICir
AlPiw:~
nearer, giving you less lime in which 10
press the letter.
Alph a Attack was wrinen for the
16K Spectrum by Paul Sruhlfelder of
Gwynedd, N Wales.
1 LET PHASE==l : LET SCORE • O: L 230 PRINT AT 10,X;" ";As ESS ANY t<EY "TO RE-RUN": PAUSE 4E
ET 0•28: GO SUB 8000 240 LET IS • 1NKEY$ : IF lS • '"' T 4: GO TO 1
2 PAPER 0 1 INK 7 : BORDER 0: C HEN GO TO 249 3000 CLS : PAPER 2: INK 7: BORDE
LS : LET TIME"" . 2 2 42 IF IS z As THEN LET SCORE• SC R 2: CLS : PRINT AT 1,7;"NOW IT
3 BORDER 0: PAPER 0: INK 7 : P ORE+.25-X: PRINT INK 7; AT 2,7;5 GETS HARDER! ": PRINT A"T 3,7 ;"Y
RJNT AT 2,1;~scoRE "; SCORE: PRI CORE: FOR G• l TO 20r BEEP . 01,G : OU HAVE LESS TIMEM : PRINT : PRIN
NT AT 4, I; "PHASE "; PHASE NEXT G: LET TIME•TIME- . 01 : PRIN T •· THE MAGNETIC FIELD GETS CLOS
8 FOR H• l TO 70 : BEEP .oo~. R T AT 10,X;" " : GO TO 210 ER" : FLASH 1 : PRINT AT 10, 10; "P
ND *5 0 : PLOT RND *250, AND •100 243 IF JS <> A$ THEN GO sue 20 RESS ANY KEY" : PAUSE 4E4: LET 0-
+-60: NEXT H 00 0-1: LET PHASE•PHASE+I: FLASH 0 :
9 INt 5 249 BEEP TIME,X: IF TIME <• 0 T GO TO 2
10 PLOT 0,0 : DRAW 97,50 HEN GO sue 3000 8000 PAPER t: INK 6: BORDER 1: C
20 PL OT 255,0: DRAW -97,50 250 NEXT X LS : PRINT " WELCOME TO ALFA(
3 0 PLOT J37 ,50: DRAW 5 0, -50 251 PRINT AT 10,29;" " 8ET)ATTACK"1 PRINT
40 PLOT 117,50: DRAW -:SO,-~ 300 GO TO 201 8010 PRINT "YOUR MISSION IS TO L
:50 PLOT 70,50: DRAW -70, - 15 1OOO CLS : FOR V•:50 TO 1 STEP -1 DOK OUT FOR" : PRINT
60 PLOT 185,50 : DRAW 70,-15 : BEEP . 004,V : NEXT V: PAPER 4: 8020 PRINT " ALIEN SPACE CRAFT
70 PLOT 0,50: DRAW 25:5,0 INK 7 : BORDER 4: CLS : PR INT IN WHICH LOOK": PRINT
80 PLOT 127,50 : DRAW 0,-50 K O; AT 13,6; "YOUR SCORE WAS "IS 8030 PRINT " JUST LIKE LETTERS
90 PLOT 0,40: DRAW 255,0 CORE : FLASH l: PAPER 11 PRINT A OF THE ": PRINT
100 PLOT O, 1:5: DRAW 255,0 T 10,6; " GAME OVER TOO SLOW"1 PAP 8040 PRINT " ALPHABET. THE ONLY W
110 PLOT 0,14: DRAW 255 1 0 ER 2: PRINT AT 18, 4; " PRESS ANY AY TO SAVE": PRINT
120 INK 5: PLOT 0,0: DRAW 0, 175 KEY TO RE-RUN": PAUSE 4£41 FLASH 8050 PR I NT M YOURSELF IS TO PRES
: DRAW 255,0 : DRAW 0,-175 : DRAW 0 : CLS I ao TO t S THE RIGHT" : PRINT
-255,0 1001 PRINT "SCORE•"'; SCORE 8060 PRINT "l<EY,BEFORE IT PENETR
125 FOR L =-1 TO 14: FLASH 1: PRI 2000 CLS : FOR Y•22 TO 1 STEP - 1 ATES THE": PRINT
NT INK RND -11 6+.l; AT L,O;M•• : N : BEEP • 1, Yz BORDER RNO •7: PRl 8070 PRINT "FLASHING MAGNETIC FI
EXT L : FLASH O NT INK RNO •0 +.1; "GAME OVER WRO ELD ON THE"
200 POKE 23058, 8 NG LETTER PRESSED": NEXT Y : PAUS 8071 PRINT : PRINT "RIGHT HANO S
210 LET A• b5• RNO -1125 E 200 : CLS : PRINT : PRINT " Y I OE OF THE SCREEN ! ! "
211 INK 6: PAPER O OU SHOULD HAVE PRESSED "; A$: PRI 8080 FLASH 1 : PRINT INK 7; PAPE
220 FOR X• I TO 29 NT : PRINT AT 4,9;"YOU PRESSED R 3; AT 20,4; "PRESS ANY KEY TO P
221 LET AS • CHR$ A "; l:t: PRINT AT 10,B; "YOUR SCORE LAY": FLASH 0: PAUSE 4E4: GO TO
222 IF X•O T HEN GO sue 1000 WAS ";SCORE: PRINT AT 20,~1 "PR 2

SINCLAIR PROGRAM..$ Augu1t 1984 2}

 --~~-ABr~~~-
JOYSJl(KS
i==-1 ~~
INTERFACES
rogrammable Interface Interface II
Hardware programmed, this interf,ce 1ttains
Jov,tick or Trackblll comp,tibility with ALL
Spectrum or ZX81 ,of~
9.95
Without mternal memories or tapes to Iced the
direct addressing mode offers the ftstnt con,,
puter response to controller movement with
programming being ~tamed when the PClwtf'is
off.
E~t directional ·~11tv is [Link]
Khlf'll'td by just seuing up, down, left Ind riW,t.
The hardware approech i1 totally compatible
with all key reading tt(hniques unlikt memory
programmed devices.

Supphed with Quick Reftf'9n0t Catds, to sPNd

up MU•ng to your f1v~.mi. gwnes, dtmon- No. .. AGJ 1-1-11.--......._.. '--
str1t1on cm:sette w\d twelve months [Link].

____
~----.
,...,_...

..... ..-.
.... -

____
AQFo,pt-o,wno,
_
. ..... ~_._
---100..,..or11.,.,i.,...,._w1,

M-,.,--.INlll""POfW'I,_
Ill Oc*-

_..,e.,,.,lnllltd
......,.. __
ltln -
1t1""*"'°'
tt..111'\Mtth

26.95 plus £1 post & packing .....

_-6c,_
.. __
_.,_
--.....
l•"-~
...
.--
~-
......... s...-~
1.-y,...._...._.... ...
_..._,...._

RomSlot
Now is your [Link] t o tnt« the growing wortd of insunt
loedinggemea..
All ROM Clrtrl dge software can be keyboard controlled so ,
joystick i1 no t essential.
Only high quality programs .,. &Y•lablti on ROM and soon •
whole MW ,_.. n to bt Leunch«tby P•rtter G..-ne&Hdusivety
on C¥tridge. for the SpectNm.
RomS 1ot'1 unique 'Game Resurt' will rm1rt the 91me et lf'IY
time during pl1y. When no 91fflectrtridge is in UMthis becomes
• useful computer reset ftc:ltlty from crnhts or conventiOMI
INChine codt pr..-
RomSk>t is tulty compe tible with 111oth« ldd-om v~ • ,...,
connector wld tl cmed Ind fully ~1111nteed for twelve mon t hs.

only 11.95 plus SOp post & packing

:::.IN> Sl,,_lll(Olot-M;l..........,.,[Link] li- ---"C.:...+='--- - -- -- --+ ==~ -+-= ~-11
a,- ._._..---..~"--•' Sf', f .._U'OlT.~MGll,WtumlJll'Q37-

_..
a.._._~............__..-.--
...,_
flllOl,IMMII--
~
jf....,_,._.,.,.."7m'I 11-----L---- -- ---- -1--- - 4-----11

a---· ""-.... •••~..__ ---

.. __ .........
__ ...-v...,....
--1-....MAGJ...-... ..,............,,_...........,._.,. ,1,...._
t,,cll~ .. AGF......_'°"*"'°"'W....S.-..T~
_ _.._
f0Nlll2m1
lJll,11 0 ZXSl'[Link] D

OVERSEAS PRICES ON APPLICATION

DEALER ENQUIRIES WELCOME
-------ABr~~---
NATION\YIDE
STOCKISTS
Airwaves, la Ash Street. Buxton, Derbyshire, SK17 6LL
Ash by Compu te r Cent re, 186 Ashby High St reet, Scunthorpe, S. Humberside, DN16 2JR
Bits & By t es, High Street, Bognar Regis, West Sussex
Bowies Com puters, 55 Bradford Street, Walsall, W. Midlands, WS7 OJZ
Brain wave Micro s Ltd., 24 Crown Street, Ipswich , Suffolk, IP1 3LD
Buff er Micro Ltd ., 310 Streatham High Road, London, SW16 6HG
Burnham Music & V ideo, 61b High Street, Burnham on Crouch, Essex CMO 8AH
Cabin Computers , 183 St. Helen's Road, Bolton, Lanes, BL3 JPS
COS Micro Syst ems, 10 Westfield Close, Tick hall, Doncaster, S. Yorks, ON11 9LA
Comput eram a, 88 - 90 London Road, Southend, Essex, SSl 1PG
Compute r World, 208 Kent House Road, Beckenham, Kent, BR3 1JN
Corstor phin e Comput ers, 43 Ellen's Glen Road, Liberton, Edinburgh, EH17 7QJ
Cou wold Com put ers, 6 Middle Road, Chipping Norton, Oxon
Dennine Television, 58 cavendish Street, Keighley, W. Yorks, 8021 3RD
Erringto n Compu ters, Unit 23, Central Arcade, Parkwood Precinct. Spennymoor. Co. Durham
Fabulous Phones, 72 High Street, Orpington, Kent, BR6 OJQ
4MAT Comp ut ing. 67 Friargate, Preston, Lanes, PR1 2AT
Fun-Cational Com put ers, 28 High Street, Lurgan, Co. Armagh, N. Ireland
Gamer, 24 Gloucester Road, Brighton, Sussex, BNl 4AQ
Games Sto re, 161 Linthorpe Road, Middlesbrough, Cleveland, TSl 4AG
Game r's Compu te rs, 275 Ryhope Road, Grangetown, Sunderland, Tyne & Wear.
GB Microla nd, 7 Queens Parade, London Road, Waterlooville, Hants, P07 7EB
Gwy nedd Com put ers, 10 Eastgate Street. Caernarfon, Gwynedd, LL551AG
HCCS Microcomputers , 122 Darwen Street, Blackburn, 882 2AJ
Helston Computer Cent re, Helston Arcade, Coinagehall Street. Helston, Cornwall, TR13 8XF
Hi-Tech System s, Leg Street, Oswestry, Shropshire, SY11 2NN
Home Commun ication s & Electro nic Centr e, 22 High Street, Keighley, W. Yorks, 8021 2AA
Logic Sales Lt d., 19 The Broadway, The Bourn, South gate, London N14
Melgray Hi-Tech Ltd ., 49 Broad Street. Hereford, HR4 9AR
Micro An$wers, 70 - 71 Wilton Road, London SW1V 1DE
Microcare Computin g. 18 Baneswell Road, Newport. Gwent, NP7 4BP
Microfare, 296 Gloucester Road, Horfield, Bristol , BL7 8PD
Micro Plus, 63 Graha ms Road, Falkirk, Stirlinghs ire, FK2 7DG
Multi Coloured Micro Shop, 8 Dund as Street, Redc ar, Cleveland
Nimbus Com put ing, 6 Station Road, West Wickham, Kent. BR4 OPY
Northern Computing, 31 Reclrock Road, Rothe rham, S. Yorks, S60 3J N
Norwich Cam era Centr e, 20 White Lion Street, Norwich, Norfolk, NR2 108
Orchard Comput er Centr e, 34 East St reet Horsham, W. Sussex, RH12 1HL
Radio 88, 88 Longbridge Road , Barking, Essex, IG 11 SSF
Raven Video, 74 Green Lane, Tett enh all, Wolverhampton, W. Midlands, WV6 9HJ
Rochester Softw are & Comput er Cent re, 38 Delce Road, Rochester, Kent. MEl 2DG
Screen Scene, 144 St. George's Road, Cheltenham, Glos. GLSO 3EL
Screens Microcompute rs, 6 Main Avenue, Moor Park, Nort hwood, Middlesex, HA6 2HJ
Sinewave Compu ter Services, Corporation Street Taunton, Somerset, TA 1 4AW
Sunderland Comput er Centre, 29 Crowtree Road, Sunderland, Tyne & Wear, SR1 3JV
Telecoe Video , 53 Maple Road, Penge, London, SE2 0 S LA
Telford Electroni cs, Inside Bambers, Mall 4, Telford Town Centre, Shrop shire, T F3 4DG
The Com puter Centr e (Humber side ) Ltd., 26 Anlaby Road, Hull, HUl 2PA
The Computer Sho p, Unit 25, Handyside Arcade, Newcastle-Upon -Tyn e, NE 1 4PZ
The Home Computer Sh op, 252 Bankh ead Road, Northallerton, N. Yorks, Ol6 1JE
Whitby Micros, 107 Church Street, Whitb y, N. Yorks, Y022 4DE
 T
HERE ARE six hor izontal run·
ways and the and roid can go
along any of them. When you
can see which run way is being used you
must go 10 it and fire at the android
before it reaches the end . lf the android
reaches the end of the runway before
being shot it will destroy you . As the
game progresses the runway becomes
short er, thus giving you less time to
fire.
Runwa y was written for the 16K
ZX·81 by James Hutchinson, aged 13,
of Kings Lynn, No rfolk.

~ ~R~~e 400 « 71 PRINT RT R, U+4 ;" "

27i FOR 0•1 TO 1i
4 Ll!T HI•0 .173 PRINT RT D, U;"
:s Ll!T U•1!5 .175 NEXT D
e.
7 BE! L•2 i60 GOTO 50
300 CLS

_..
10 LET 5•0 3 05 PRINT "THE RNDROIDS HRUI! OE
15 Ll!T I•0 ST ROYED YOU, "
20 CLS 310 If' S <•HI THEN GOTO 340
21 PRINT
FOR C•1RTTOC,0;1i ..______
STEP i _ 3 .10 LET Hic5
30 330 PRINT RT 7 ,0 ;" •CONGR
RTULRTIONS• YOU HRUI! 015TR
47 NEXT C
50 LET R•6
00 Ll!T NS• " .....
1
~ig ;~IN~
1
Rfc~~70i " 5CORl!•";5 ; "
HI-5CORE=" i HI
70 LET X•0 3 2 0 PRINT ":7• • ' ..
60 LET Q•INT (RND•6l•2
65 PRINT RT Q,X;NS 360 PRINT RT 21,0 ; "PRES S RNY KE
90 PRINT RT R,U+Q ; "< " Y FOR ANOTHER GRME,"
100 IF X+4•U+1 THEN GOTO 300 370 IF INKEYS= "" TMl!N GOTO 370
110 Ll!T X=X+1 3 60 GOTO 5
120 IF INKEYa• " 6" RND R< 10 THl!N
G05 U6 150
130 If' INKEYl•"7 " RND R>0 THl!N
GOSU15 160
...
!~g~~mi:~t t~7i... RUNURY"
420 PRINT " IN THIS GRME, YOU HR
135 If' INKEYS• " 0 " THEN GOTO 210 VE TO SHOOT "
1 ...0 GOTO ee 430 PRINT " RS MRNY ENEMY 5MI PS
i~~ ~~1N~·~t'"R - a ,u +2 ; .. " RS YOU CRN,"
440 PRINT " IF TME l!NEMY SHIP RE
170 RETURN RCME5 TME "
160 Ll!T R•R-2 450 PRINT " END OF TME RUNURY, Y
190 PRINT RT R+2,U+2 ;" " OU WI LL 6E "
:i00 Rl!TURN 460 PRINT "Dl!RD,YO U ON\..Y HRUE O
i10 PRINT RT FLU+2 ; "< " NE SMIP , "
i 11 FOR 15•U+1 TO (U+X+4l/2 5Tl!P 470 PRI NT " RFT ER R UMILE THE EN
-2 EMYS RUNWAY"
2i0 ~~i~t
iil
i 22 LET X• X+l
=+
~ :~i ~l" ; AT A,8 ;" " 4 60 PRINT " [Link] GET 5HORTER, YOU
R CONTROLS "
4 S0 PRINT " ARE: 6 :D OUN ,7:U P ,0,F I
i 25 If' X+4 >•U+1 THEN GOTO 300 RE, "
i 3 0 NEXT 6 50 0 PRINT "YOUR SCORE DEPENDS O
i35 LET I•I+l N HOU FRST "
«40 If' R <>Q THEN GOTO 65 510 PRIN T "YOU CRN SHOOT EACH 5
i45 PRINT RT Q,X;" " HI P ,"
i 50 LET 5•5+ CU+l-X l 520 PRINT AT 13, l l;" GOOD LUCK"
i51 IF I >40 RND Ua1!5 THEN GOTO 5 30 P RINT RT 2 1 , 5 ;"PR E55 RNY KE
27 0 Y TO START"
i5i I F 1 >130 RND U•13 THEN GOTO 5 4 0 IF INKEYS ="" TMEN GOTO 5 4 0
2 70 5 50 RETURN
i60 GOTO 70 6 0 0 SRUE "RUNWAi!I"
i70 LET U•U-2 6 10 RUN

l
26 SINCLAI R PROGRAMS Augus1 1984
 HILE in an Italian restaurant to save the pasta by blasting the intrud-

W
Pasta Blasta was written for the
you areattackedby the dread- ers, using 0. Use keys I and 2 for left 16K ZX-81 by Karl Gibson and Adrian
ed pasta pinchers. You have and right. Wilson of Tarporley, Cheshire.

160 PRINT AT 10,0;"ANO THER GAME

~ $~¥5;~~ST~" y IN"'
i!i LET 5•0 190 IF INKEYS=" Y" THEN GOTO 2
5 LET L-10 :l00 If' INKEY$= "N" THEN STOP
10 LET A•19 210 GOTO 160
20 LET B•14 300 CLS
21 LET C=2 3015 PRINT
22 LET D•INT (RND•31 ) 307 PRINT AT 10 , 7 ;"> +JPASTA BLA
30
40
LET
LET

Ii thJA.
g!,
50 PR INT

70 PRINT AT C,D;BS
n,r-•
A$= " <t> "
B$• " $ "

; AS
STAH <"
306 PRINT TAB 5;"<<<<<-----
-- ...> > > > >..

3 10 PAUSE 4E4
320 CLS
--- -
y:~09 PRINT AT 15 , 7; " PRESS ANY KE

'30 LET B•B+ lINKE Y$= " 2 "l - (INK EY 321 PRINT " LONG,LONG AGO IN AN
$ :" l") ITALIAN "
91 IF C:21 THEN LET L•L-1 322 PRINT
~3
i~I~!2~TT~~1:N2t"c';JVES " 323 PRINT "Rl!:STAURANT f'AR ,FAR A
WAY"
94 IF L•0 THEN GOTO 170 32 4 PRINT
99 PRINT AT C ,D; ,. " 32 5 PRINT "YOU ARE ATTACKED l!IY
100 IF RND>,5 THEN LET D•D+2 PASTA"
101 If' D>31 THEN LET D•D-2 326 PRINT
107 IF INKEY$•"0" THl!:N GOTO 120 327 PRINT " PINCHER S,"
108 LET D•D- 1 328 PRINT
1011 LET C•C+l ,,329 PRIN T "YOUR AIM IS T O BLAST
110 GOTO 110
330 PRINT
i~~ ~~~N!.~1 f6D~BfTEP -1 331 PRINT " THE PASTA PINCHERS,
122 PRINT AT G, e+2 ; " ......
123 IF G•C AND B+2:D THEN GOTO 332 PRINT
1:l7 333 PR INT " PASTA PINCHERS=S "
124 PRINT AT G, 1!1+2; •• " 33 4 PRINT
125 NEXT G 335 PRINT "YOU• <f >"
1215 GOTO 150 336 PRINT
127 Ll!:T S:5+50 337 PRINT "PASTA••"
128 GOTO 21 338 PAUSE 4E4
170 PRINT AT 3,0; "'YOUR SCOR!!: IS 339 CLS
..; s 3 4!!1 GOTO 5

SJNCLAlRPROGRAMS A"S"Jt 1984 27

 A re vou ready to takeon the challenge
Whenvou openup a MOVIT
excitingnewworld of robots.
?
box. vou moveinto the
Everythingfrom the printedcircuit boardto the
motors are [Link] waitingfor you to makea start.
And the detailedinstructionstakevou through eachstage
of this newadventure.
Tocreatethis new generationof robot modelsall
you needisa screwdriveranda knife.
What'smore,MOVITS cost a lot lessthan you might
think. In fact. the priceisthe onlythingabout them that's
down-to-earth!
MOVITS all havetheir own charactersand appeal.
They'refun to put [Link] to run. Takeyour first step
into the worldof seriousrobotics. sendoff for your
MOVlTS today.
 rPleasesend me my MOVIT<SIstraight away. 1
I ::~am~w~~~~~~avifarigm~J:~i~~~g~~~~:;:~n~UJ&vm I
I Name Aadress ___ ____ _

CONTINUES I
MOVITS-THECHALLENGE SP/8184 I
ID LINETRACERll@'£17.990 PIPERMOUSE@,~19.99
I D MEMOCONCRAWLER@£34.99 0 MONKEY(@£9.99

j O CIRCULAR@£29.99
PrismconsumerProductsUmlted I in~~~~:~~i;gt~e9~~~,~~[,~~7n~?~a~ ti~ve.
Prism House. 18-29 Mora st..
London EC1VBBT I ~:~J~~~rg~~~~~ii~M~~1i~~~~!~ ti~;~~: ·,Products. Prism
Telephone: 01-2532277 LH~se . 18-29 M~ Street . London EC1VBBT._ _ _ _ ~
 Judge the distance between yourself and
the fish and then decide when to cast
your line . You have 10 maggots, so be
careful to waste none. If you move too
near the edge of the river bank you will
fall in and will then be seen slouching
home.
Fish erman was written for the 16K
ZX-81 by E J Mathews of Milton
\\.Keynes, Bucks.
P.f D(.) •
~1.,,/ ~ ~ '> .....,
0 ,
r~c Ju('=--'
v:,, :-xv
lUN; Ke::V !i" "NOV E THE P'U,HER HAN U
11e0 PAINT ··s P'OR L ftl'T RNO a ,.OR
R IGHT "
11~0 " CR!.T UrT H ,c,ev C"
1·~= " OONT 00 TOO CL O~E TO
~~1,$ '.:OP' THe:: !.CRe::l!N THe": l!!IR
1:il::il:B PRU!.E eH
1 :il:30 Re":TUAN

l
30 SINCLA IR PROGRAMS August 1984
~~~~~~~-c~~­
the program we will print the
so1ve building problems copyright. Copyright would
remain yours. Cash is paid
for the best games but your
by demolishing a wall cassette will be returned only
if you enclose a stamped·ad·
dressed envelope. The people
LJKE MYSELF, I am sure That should be inserted a problem as I will often en-
many readers have been wait- immediately prior to the ter a program of this or great- who send a tape, whether ac·
ing for an item concern ing statement L ET she=she+ I, er length in two or three cepted or not, will receive a
problems with running the and bas the effect of printing sessions, SAVEing and discount of at least £2 on the
Builder program printed in that message to remind play- MERGEing each section as I price of the cassette.
the January, 1984 edition . crs that another key should go until completed. We are hoping to market
The game shows all the po-- be pressed to continue, other- R J Moore , the cassette around August.
tential of a first-class, arcade- wise the computer just waits North Walsham, Norfolk. The price will be £5-£7,or £3
type game wirh 1he exception ror a key-press before con- Character for people who submit
games. Send programs to the
that I found it to be technical· tinuing with subsequent
ly impossible to win, due to sheets. change address below.
Matth ew Brown ,
the fact that the final ladder, A simple point which I am 1 WOULD be interested to
in the bottom right·hand cor· sure might have been missed hear from readers with cheap 22 Kings Hedges ,
ner of the screen, was corn· by many people is the neces· software to sell _ originals St Ives,
pletely encased by walls and sity to press "O" to pick up only, including manufacrur· Huntingdon , Cambs.
therefore a player could not the picks and bonus. It tooker's inserts. I have also writ· Secure listing
exit to the next sheet. me a long time to spot that in
ten a short program 10 change I ENCLOSE a routine which
Since nothing has ap- the listing, since it is notcharacter appearances on the will protect a program from
peared in the Errors and Mis· specified in the magazine unauthorised listing. Add it
haps column, which is an program heading. 4SK Spectrum :
· Jh hd There ,·, ,,,.11 one flaw 10 FOR f= -255 T O 255 to the beginning of your pro-
execIIent service, ave a 20 POKE 23606,f gram and if BREAK is at·
:~ri~~! 3~ ::!~~i~~n~~i:::.e :~!:\!dht; tempted the rest of the
0~~n :e~:!~et~ 30 PRINT "abcdefg"
program will be re·set:
The data statement on line contribution from another 4 o IF lNKEYS= "" THEN 110 POKE 23613,2

~i::eq:h.:~ld 1~:;~ thJei~:~~ :::~ · ,~;r::: ~~h~~e1~~~~~ 120 POKE 23614,91

: 7~;i!terest~= ~~e~l~'.~~:: 130 POKE 23298,0
0
from it. That is the screen going down to the first Sutton Coldfield , 140 POKE 23299,0
position of the wall which runaway pit·truck area, 150 REM PROGRAM
blocks the ladder. which can be descended from West Midlands. STARTS HERE
When the offending wall the level above, but for some Spectrum Simon Cree,
has been removed, you will reason rhe builder will not Gu isborough ,
be able to leave the first climb back to the higher level games Cleveland.
screen but the compute r will when necessary. It is a minor A NEWLY·FORMED soft·
report INTEGER OUT OF point but can be annoying ware company, No 1, is corn· Successful
RANGE when you do so. To when the monsters are close piling a games tape consisting mine
clear that, both of the on your trail and grab you as of 100 to 500 games. At the DANIEL Popplewell asked
PRINT statements can be de- a result. moment the games tape is in the June edition of Sinclair
leted entirely from line 9810, I think Builder is an excel· available only for the Spee· Programs about the game
which does not affect the run· lent program once debugged trum but it is hoped later to Forty Niner from Software
ning of the program notice· and would like to see more cover most of the popular Farm. He asked if anyone
ably. attention paid to this calibre computers. We still require had beaten his brother's score
To improve the smooth of program which, to my way several games, so if readers of 46,469. I have achieved a
running of the game you can of thinking, is almost as good wish to send games which personal best of 55,575.
add to line 9800: as commercially·produc ed have been rejected by maga· S Perry ,
PRINT AT 9, 7; FLASH O; material. The length of such zines we will print the names Heme l Hempstead ,
"PRESS ANY KEY" programs does not have to be on the tape and at the start of Hertfordshire .
r----- --------------------------- --- ------,
Please complete this form and enclose it with any program which you send to us for I
possible publ ication. I
I
T o: Sinclair Programs, 196-200 Balls Pond Road, London NI 4AQ. I
I enclose ............................. .............. Program(s) for the .............................. ............. computer. I
I guarantee that each program submitted is my original work. I
Signed ............................... .. ........... ....................... ...................................... ........ ........ .... ....... . I
I
Name ................ ...., ...... .... .................... ..... ...... ................................................. .... ......... .... ...... .
I
Address .................... ............... ............ .... ............................... ..... ....... ........................... ......... .. I
.........................................................
________________ _...............................................
____ ____________ ...........................
________ ............. j I

SINCLAIR P ROGRAMS August 1984

__ ..fojt TNAIL_ -----..1
Good micro: shame
about the games
return to the forest more than once can
Manufacturers reproach be attained only with a sound knowl-
ZX-81 owners for lack of edge of the scoring system and a variety
of tactics which keep mother and cubs
Interest In buying pro- united with plenty to cat. One small
grams. We look at soft · bug is that the moth er bear can become
ware for the ZX-81 and blocked in a comer by the cubs, unable
to move until one of them is shot by a
Its value for money hunter.
Climber, also produced by Unicom,

Z
X-81 OWNERS have reason to is much less enjoyable. It is a version of
be annoyed with the software Kong in which tbe player must climb to place and the aim is to profit by
industry. A cursory glance at from level to level on one screen, jum p- buying goods in one pon and selling
computer magazines each month re- ing the monsters and picking-up points them for a profi1 at the next.
veals ample signs of the 150 or so on the way, and finally moving to the The game is rather slow-moving, tak·
companies prod ucing software for the next screen by reaching the approp riate ing some time to display optioM or to
Spectrum. Spectrum soflware suppons point on the top level. print detail s of prices. This type of
entire magazines devoted to its reviews. game, though, is wcll·suitcd. to the ZX-
So few ZX-81 games arc produced that Does not adapt well 81 and this is a wcll-thought-out
the entire computer press could be read Kong is not a game which adapts [Link].
for a month, without producing more from arcad e to ZX-81 particularly well, B lack Star from Quicksilva has an
than two pages of reviews, most of them as much of its interest relics on speed impressive storyline printed on its cov-
of old products. and good graphics. er. The story tells of the Cosmic Gueril·
Software Farm took higb-resolu1ion This version is not particularly diffi- Ju and of your plan to bomb their Black
graphics to the ZX-81 earlier this year cult, once the movement of the various Star base in your Svlcgiao Raide r. En·
with its Forty Niner. Half the !cttcrs obstacles has been understood, but it is emy ships must be dodged and the
to Sinclair Programsfrom ZX-81 own- very repetitive. ene rgy ducts in the tunnel leading to the
ers that month were written in praise of A style of game more suited to the Black Star must be destroyed. All very
the new game. The success of Pony ZX-81 is represented by Ocean Trad- impressive.
Niner has not led to production of high· er from Quicksilva. It is a form of On RUNning the program, however,
resolution graphics programs by other simulation in which the player takes the the tunnel proves to be a black rectan-
software houses and the field bas been part of a ship's commander, sailing gle, or sometimes a rectangle of aster-
left clear for SoftwareFarm to followits from port to pon round the coast of isks. Immediat e acceleration means that
[Link] its new program, Rocket England. no enemy ships appear and, when your
Man , to be reviewed in the next issue. Prices of commodities in the pons ship travels slowly enough to sec them,
Other companies arc also producing change from day to day and from place they appear as small Vs at the bottom of
good soflware for tbe ZX-81, although the screen.
they arc few and far between. Sindair I - Similarly unint erest ing is Croak.a
Programs has looked at some of the i BEARS IN '1111 Craw la from Quicksilva, a version of
products on the market to see where the
best programs arc to be found.
, TH_E , WOOD .,, the arcade oldie Froggcr. According to
this version Frogger bas gained nothing
lkan in the Wood from Unicom

~~~a.~
in its old age and has lost much. There
Micro Systems is a good example of an is a huge variety of skill levels, ranging
original game for the 16K ZX·Sl. The from the very low to the ultra ·fast but,
player begins with a mother bear and
three cubs which head across the screen ' other than that, the program has little to

-...
commend it.
towards their cave, collecting honey as
I ~,--"'~
QS Scramb le from Quicksilva is yet
they go. Of course, the little bean have
a tendency to lose their mother and, as
soon as they do so, they become prey to I' ' i/J· , ..
another arcade adaptation. The player
flies above the surface of a planet, firing
at approaching aircraft and bombi ng
the evil hunters in the forest. Hunter s t\ those still on the ground. The game
must be charged, bean guarded, and the
time limit watched. Once inside the
cave, boneypots must be filled and there
I loses less than 01hcrs from its adapta~
tion to the ZX..Sl, perhaps because its
interest is almost to11lly in controlling
is a chance to gain an extra cub. Then
the player returns to the forest.
l 9
~ ~. ~
.,,·-=- your craft. As the screen display
changes cont inually the square graphics
Bean in the Wood is a difficult game
at which to succccd and consequently
holds the ancntion. The opponuniry to
( II , arc less glaringly apparent than in
games where the screen display remains
constant.

32 SINCLAIR PROGRAMS AfllMst 1984

 Arcade games can do little on the ZX- Section two takes place inside a build-
81 other than to demonstrate its weak- ing. The aim is to walk into each of
nesses. The ZX-81 also has advantages three rooms, pick up treasure and re-
which Psion has put to excellent use in turn it to your lorry outside the build-
its program Vu -F ile. Vu-File allows the ing. The problem here is to avoid the
user to store information on record forcefields on the doors. As they appear
cards, to re-arrange, sort, store and to flash in a completely arbitrary fash-
print that information. Unlike other ion it is difficult to use any skill in that
filing systems it does not pre-define the seaion. Section three is combined with
index card but allows the user to design section two. The treasu re in room two
one. Information can then be entered is inside a Safe with a combination lock
into the computer and can be re- and the combination must be cracked
arranged according to any one of the quickly before the alarms ring.
headings on the record card. Overall the pace of Swag is slow and
A demonstration program on the B the game unexciting. It would keep few
side of the cassette demonstrates one players interested for as long as half an
use to which the program can be put. A hour; most would lose interest more
gazetteer has been recorded, including quickly.
basic details about a number of coun- Bank Raid is from Senior Software,
tries. The program can be used for 8 The Elms, Shaw, Swindon. Again the
reference or taken as an example by theme is bank robbery, this time with
those who want to test the efficacy of an emphasis on shoot-outs. A maze is
Vu-File before entrusting their records printed on-screen and the player must
to it. escape the two gunmen who arc out to
kill. On the next screen the tables are
Inexpensive programs turned and this time it is the player who
Also reviewed by Sinclair ProgramJ must shoot the gunmen before they
were programs from two small compan- escape. The next screen returns the
ies which produce inexpensive pro- player to th e beginning to escape again,
grams on a mail order basis. They give and so it continues. Again, the game is
some idea of the quality of programs deadly slow and lacks the excitement
sold through magazine small advertise- necessary to a maze game.
ments, rather than those produced by Also from Senior Software is All ot-
large companies. ment, a utility program for gardeners
Swag is produced by Howard Soft- planning how to allocate space in their
ware, 20 Pantycelyn, Fishguard , Dyfed vegetable gardens or allotments. The
and costs £3.45. In it the player takes program works on a three- or four-year
the part of a burglar who wishes to rob a crop rotation system and divides the
bank. The first section is a street chase, vegetables which it has stored in it
in which the player navigates a car accordingly. On a diagram of the allot-
through a maze, pursued by two police ment vegetables chosen by th e gardener
cars which move more slowly. Speed is will be placed automatically at the cor-
slow and it is easy to avoid the police. rect distance from each other, so that
the number to be planted is readily
apparent.
CROAKA-CRAWLA
ZX -81 GAMES FROM
QLJICKSILVA Essential add-ons
Allotment is an easy way of planning
a garden to advantage, of recording
where vegetables are planted and when
they arc likely to appear. A large nwn-
ber of vegetables and information about
them is stored in the data section and
gardeners who prefer to plant exotic
plants can include their own data.
Available by mail order also arc es-
sential add-ons for the user on a limited
budget. Glaston Computers, YalJands
Hill, Monkton Heathficld, Taunton,
Somerset produces clear, self-adhesive
plastic pads which can be stuck on to
the keys of a ZX-81, or only on to those
keys used for games playing. Forty pads
cost £2.99 and 1bey make 1be ZX-81
keyboard usable for games or for typing.

SINCLAlR PROGRAMS Augsm 1984

~-~_guun_M:IJ~~~~~~~
Explore your computer
with a clear memory map
W
HEN LEARNING about a operating system are physically differ-
computer, the words memory Understanding the ent, with the advantage that other Ian·
map, system variables and so memory map of your guages can be implemented without too
on are bound to crop up. They are not machine allows you to much difficulty. The problem is that
exceptional to the Sinclair machines - both the Basic and operating system
all micros have them in one form or write much faster pro-
will take more room than if they were
another. grams in Basic. David combin ed. So when you hear references
So what is a memory map? In all the Janda explains how. to the monitor or operating system, it
common micros, Basic normally is im- usually means the routines are not
plemented and, as well as Basic, there more difficult, so use them when neces- directly pan of the Basic interpreter.
are sections of che Basic ROM which In the ROMs of the ZX-Sl and Spec-
sary and not as a matter of course.
perform other tasks. They include trum are hundreds of small machine
On the Spectrum, the start of RAM
handling the keyboard and screen as coderoutines which perform individual
is at location 16384 and that is true of
well as primer and any other input and tasks. Alone they may not do much but
the ZX-81. Simple arithmetic tells us
output to and from the machine. The when some are combined they can do
that there is 16K worth of addresses on
Basic as well as the 1/0 handlers is the ZX-81 before the RAM starts, yet big jobs, such as adding two numbers.
operating all the time the micro is Many routines are used by different
there is only SK of ROM. PEEKing the
switched on, even when you are not parts of the ROM and that is why the
locations above the SK ROM area re-
running a program. So the Basic and UO ZX-81 and Spectrum ROMs are some-
veals that there is a 'shadow' copy of the
handlers are, in essence, a program times referred to as threaded code inter-
ROM. That area cannot be used by the
which is running constant ly. preters. An example is how numbers are
All programs need data on which to handled . Even when you specify a num-
operate, as well as areas of memory to ber as being an integer - a whole
store information which may or may nm number - it is still processed by the
change. That area is called the memory floating point routines - there are no
map and is divided into sections which integer routines - and, at the end of the
store different types of data. calculation, the number is converted
Working and storage back to an integer.
The fact that there are routines
space which handle several jobs, as well as the
In the case of Sinclair machines there fact that all numbers are treated as
are areas to store the contents of the floating point, contributes to why the
screen, the program you write, the data ZX machines are not the fastest on the
area for the Basic and 110 - system market.
variables - and so on. If you own a
Spectrum as well as a ZX-81, you will Machine code
notice from the manuals that the mem - routines
ory map is similar in parts. Because of
that, I will be discussing both machines, Because the routines to do everything
with a bias towards the Spectrum, programmer but some add-ons can use are packed together, machine code pro-
which is a more complicated machine. the area effectively. grammers can utilise those routines in
When programming in Basic at ele- When the 16K ROM was written for their programs. There are routines to
mentary or advanced level, it is always a the Spectrum, not all the code was do everything, such as printing nurn '
good idea to understand how the mem- original - the 16K ROM is a re-write bers to the screen, performing calcula·
ory map of the micro is set up. Learning of the SK ROM on the ZX-S l. That is tions, and so on.
about memory maps allows for a greater evident as th ere are parts of the 16K After the ROM there is the memory
understandin g of the machine and, at ROM which are not used but were map in RAM, not that that area of
Basic level, you can by-pass many oper- simply left there. Many of the routines RAM is used by the machine and can·
ations, thus allowing your programs to in the ZX-81 ROM are also used on the not be used by the programmer to store
run faster. Spectrum and if you have studied the programs. Unfortunately, the lK ZX-
There is a danger in doing that. ZX-81 ROM you will not find it too Sl and the 1614SK Spectrum do not
PEEKing and POKEing about the difficult to progress to the Spectrum allow you 10 use all the memory, be·
memory map can easily crash the ma- ROM. cause the memory map takes a portion.
chine, as there is no error-checking . Basic and the UO routines - or In the case of the ZX-81 it is a mini·
Also, memory maps differ from one monitor - were mentioned as if they mum of 125 bytes and for the Spectrum
machine to another and, depending on were both separate. In reality that is not a minimum of 7. l 7K. I say minimum
using them within your programs , may so, as they are all mixed. On more because there are areas which use no
make the progression to other machines advanced machines, the Basic and th e room until a program is running. They

34 SINCLAIR PROGRAMS August 1984

 character and 22 rows, plus two for the
report lines.
Poking characters to the Spectrum
display is very difficult. Each character
is made up from eight bytes, not like the
one-byte ZX-81 set-up. If characters arc
to be printed in machine code, it is best
to use the RST 10 instruction, which
will prim a whole character.
Each bit of every byte in the display
file corresponds to one pixel being plot-
ted on the screen. Note that it has
nothing to do with the colour or other
attribute the character/pi xel may have.
The information as to foreground/
background colour and so on is held in
the attribute area. That area is smaller
than the display file and each byte
corresponds to one character position
on the screen. Depending on the bit
pattern of rhe byte, certain attributes
will be assigned to the corresponding
character position.
As there is one attribute byte corre-
sponding to a character and not a pixel,
no individual pixel may have its own
attribute. That is the reason each char-
acter may have only one foreground and
background colour.
Characters and
graphics
The program area is where your pro-
gram is stored. On the ZX-81 it starts at
a fixed location - 16509 - and that
allows machine code to be stored in
REM statements at the start of the
program. For the Spectrum things are
different - the Microdrive maps and
are the machine stack, GOSUB stack, 'H' on the fifth column of line zero channel information are flexible. That
program variables and others. means that the start address has to be means that with an Interface 1 attached,
To the newcomer, the need for mem- found and five added to it. The system the start of program area cannot be
ory to be reserved for the display is a variable D_FILE - address 16396 - guaranteed. That is a little white lie -
little confusing; after all, it is the screen holds that start position so, POKE the start of the Basic program area can
which is used for the display and not the (PEEK J6396+256'PEEK 16397) be determined by START=PEEK
computer. That is true but the screen + 5,45 will do the trick. For unexpand - 23635+256'PEEK 23636. That is
displays all the previous data you send ed users, it is necessary first to ensure PEEKing the system variable FROG.
to it and not just one character. It is best that the area to be poked is already Readers who own computers other
to imagine the display file as a buffer expanded . That can be done with than the ZX-81 or Spectrum may have
which holds all the data for the screen. spaces. noticed that a program for one machine
When it is filled, or when a PRINT/ Th e Spectrum also has a display file takes more room when put on a Sinclair
PLOT command is issued, the ZX-81 - addresses 16384-22528 - but there is machine. That is because all numbers in
or Spectrum pushes that information to also an area of memory directly associ- listings arc followed by an invisible five-
the television set. ated with it. That is the attributes area, byte floating point representation.
The display files for the Spectrum which is at addresses 22528-23296. Immediately above the program area
and ZX-81 are radically different, with Both the display file and the attributes on both machines is the variables area.
the ZX-81 display file the easiest to area are at fixed addresses and thus The values of the variables in your
und erstand. To save memory, the ZX- cannot be moved about in memory. programs are stored. As a program is
81 display file will expand and contract Th e first thing to note about the run, variables are created and accessed
as required. That saves room for ma- display file on the Spectrum is that it is and that makes the area one of the
chines with only l K. Those with the more than SK long. The reason is that busiest. Programs can be made to run
16K expansion have the display file the display file not only holds characters more efficiently if arrays to be used in a
fully expanded. but also high-resolution graphics. It is program arc dimensioned before any
Poking to the screen is not imposs- set up in such a way that each row - other variables. After the arrays, declare
ible, even though the display file is not high resolution - is made up of 32 the numeric variables, with the most-
at a fixed position. To poke the lener bytes. There are eight bytes to each frequcntly-used declared first.

SINCLAIR PROGRAMS August 1984 35

__ S'ojtjoe,~--------
Duel to death as killer
parrot attacks man
SABRE WULF sends the player rush- appointed task without having to pre-
ing round a lusciously-flowered maze·
like forest in searc h of the four portions
We look at the best and vent one drowning in the river or walk-
ing straight into the hands of a monster.
of an amulet which will allow escape. the worst new releases Stan the game and one walks straight
On the way arc superbly-animated crea- In a month wh ich offers into the river. The next tribble follows
rures to be killed or avoided and an new games from top you obediently into your spaceship but
assonmcnt of objects and treasure to be will it sit there quietly while you collect
collected. software houses Fan- jewels and build a bridge across the
As with Atic Atac from the same tasy and Ultimate.
company, a joystick is almost essential
to any progress in the maze. Each loca-
tion is packed with lethal creatures and rush and buy both games now. Pro-
as fast as one set is killed, another set duced by Ultimate Play the Game, The
appears. Stay in any place for any Green, Ashby de la Zouch. Leicester·
length of time and the lethal, indestruc- shire, Sabre Wulf costs £9.95.
tible voodoo flame will get you.
There is a choice of objectives. A Mugsy
percentage at the end of each game NICE GRAPHICS, shame about the
indicate how much of the maze you game. Never has that been truer of a
have covered; a score at the top of the Spectrum game than it is of M ugsy . river? You bet it will not. When finally
screen registers most events, including The graphics arc superb-many screens
monster, killed and, of course, there is you escape the first screen, what hap-
full of cartoon pictures, drawn quickly pens? Your tribble gets caught on a
the ultimate goal-escape. and in great detail. Some of them arc
cactus, eaten by a Spheroid, or walks
Apan from the obvious problems
straight into a Snapper. Typical.
posed by an intricate maze and deadly
T ribbl e Tr oub le is exasperating
creatur es, there are tactics to be learned
and great fun. It is produced for the
which can help the player to success.
48K Spectrum by Software Projects,
Each object collected has a use, al-
Bear Brand Complex, Allenon Road,
though they arc difficult to deduce, and
Woolton, Liverpool and costs £5.95.
even working'"°ut which of the several
objects collected has provided an extra
life can be difficult. Egg Snatchers
There arc the orchids which bloom
RECENT software releases have indi·
occasionally. One sends your move-
cated that shooting in straight lines is
ments haywire, another moves you su· animated and the large-sale animation now [Link] new ahcrative is to spit
per-fast, a third transforms you into a is better than any produced for the missiles which hit their target on the
Spectrum so far. ricochet. Not the cleanest of habits and
The game, however, is a straightfor· ccn·ainly not the easiest.
ward simulation in which the aim is to Thai form of defence is employed in
run a mob of gangsters for as long as Bcaky an d th e Egg Sna tchers. The
possible. Decisions to be made are con- game includes many levels, all different.
cerned with allocatio n of budget and The gist is th at the player is trans·
little else. formed into a large bird trying to rear
At first sight the game is astounding; chicks. Eggs must be collected and
within 10 minutes the graphics have batched and chicks mus t then be fed.
become stale and the game is boring. As usual, the difficulties arc mani -
What a shame. Produced by Melbourne fold. You arc not just a bird, you arc an
zombie. Some arc essential 10 prog ress, House, Church Yard, Tring, Hens for Andromcdan Condor. The instructions
others should be avoided comple tely. the 48K Spectrum. Price, £6.95. suggest that life is made easier if you
Then there are the pieces of amulet. imagine you really are an Andromtdan
They move round, so have to be re- Tribble Trouble Condor. That is no mean feat but they
discovered in each game. Next there are TRIBBLE TROUBLE is a five-screen arc correct; movement is even more
the knights in armour, and the fruit game and by the time you finish the difficult than that stretch of the imagi-
bats, and the wart hogs, the tarantulas, fifth screen you will wish you had never nation.
the killer parrots - and so it goes on. heard of tribblcs. It is not that they are It might be thought that trying to
If you like Atic Atac, you will love not cute; it is just that they are dumb incubate eggs would be difficult if you
Sa b re Wulf. If you missed Atic Atac, and it is difficult enough to finish an arc a male bird but the problem goes·

36 SINCLAJR PROGRAMS AW1U1t

1984
 apprentice undoes all the good work, if
you let him_; othc,r carpet fitters arc
laying carpet over yours and you cannot
-
A II

puter into the kitchen, set them up, load

the database program , select your cho-
sen recipe, load the recipe program and
tread on your own carpet. Ther e arc then cook.
nine rooms to complete and each one is Cook, that is, if you have room
a challenge. among the electrical equipment then
Produced by Terminal Software, 28 cluttering your work surfaces. Most of
Church Lane, Prestwich, Manchester. it is also inclcvant if you follow any
Pri ce £5.95. lciod of special diet. Bug Byte seems to
be implying that it is easier to go to all
that trouble than to flick through your
unnoticed in the face of the Egg- Bugaboo favourite recipe book but it is not.
snatchers which do their best at every IN BUGAB00-48K Produced for the 48K Spectrum by
Spectrum,
stage of the game to prevent any new £6 .95- the pl2yer taxes oo the persona Bug-Byte Ltd, Mulberry House, Can-
condor reaching maturity. Not only do ning Place, Liverpool, price £9.50 .
of Bu gaboo the flea, which must leap
they carry away the eggs, they also drop out of a pit, from pit to pit and from
snowflakes on the eggs while they are mushroom to mushroom while avoiding
incubating and fire missiles at the small the horrific monster which wishes to cat The Inferno
chicb. THE rNFERNO is an adventure game
Bugaboo. The novel movement of short
Bea1'yand the Egg Snatcher, is far and long jumps disguises for some time with an ambitious theme, a screen lay·
more inventive and far more challeng- out similar to that employed in The
ing than it is possible to imagine with- Hobbit, and a character with whom
out playing it for several hours. conversations can be held in much th e
Definitely one of the best games of same way as they can be with Gaodalf
1984, produced for the 48K Spectrum io The Hobbit. The scenario is the l 3th
by Fantasy Software, Fauconbcrg century European image of bell,
Lodge, 27a St George'[Link], Chelten- through which the player must travel to
ham, Gloucestershire. Price, £6.50. escape. Unfortunately the adventure is
too easy. The first seven rings can be
Eric and the Floaters croucd quickly with the aid of the help
facility and there is little difficulty in
ERIC and the Floaters is a very addic- visiting every location and collecting all
the point that it is a clever development
tive game, involving moving round a necessary objects.
of the monster-in-the-maze game.
maze, exploding sections of wall to col- Produced for the 48K Spectrum by
Produced by Quicksilva, 13, Palmer-
lect treasure and finding the exit to Richard Shepherd Software, Elm
ston Road, Southampton SO I ILL.
another screen. Points can be gained House, 23-25 Elmshott Lane , Chip-
slowly by collecting ucasurc, or quickly penham, Slough, Berkshire, Th e Inf er-
by bunting the deadly floating balloons Dragonsbane no costs £6.50 .
as soon as possible and moving to the
DRAGONSBANE-48K Spectrum,
next more difficult level. Enjoyable
£6.95-is one of those awful amalgama-
though it is, the fact remains that it is a
tions of adventure and strategy game
Zlpper Flipper
monstcrs-in-the-maz.c-rypc game. Sin- IN YOUR local toyshop, in the novelty
which become disenchanting within a
clair software used 10 be state of the an, section, is a pile of little plastic gadgets
few minutcs of loading. The aim is to
so why is the company now endorsing which simulate the working of a fruit
make your way through th e castle, past
products which could have been pro- machine. Z ipp er Flip per docs the
the deadly monster, to rescue the prin-
duced early last year? same thing oo a 48K Spectrum. The
ces.s. Ooly one room is displayed at a
Produced for the 48K Spectrum by bouncing pinball is very well represent-
time and, even with careful use of a
Sinclair Research Ltd, 23 Willis Road, ed and is obviously the work of
map, it is difficult to do anything other
Cambridge Price, £5.95. skilful prognmmiog. When all is said
than trust to luck, as fleeing from mon·
sters can transport you magically over and done, though, the plastic gadget in
Carpet Capers some distance.
Dragons ba n e should be re-named
N THE sophisticated Spectrum

I
Uscrbane and is definitely not rec-
software market it is not often a ommended. Produced by Quicksilva, 13
game populated. by un animated. Palmerstoo Road, Southampton SO I
user-defined graphics retains the user's ILL.
attention for more than a few minutes.
Carpet Ca p ers, billed as a game
'about deranged carpet fitters', docs just Computer Cook Book
that. The player rushes round the THE COMPUTER Cook Book by Bug
screen-a joystick is almost csscntial- Byte would merit an entry in the com-
lays as much carpet as possible, picks puter press pscudscomer if there were the toyshop docs the same job more
up the key and any tools lying around, such a thing. To use it properly you cheaply.
and finds the door to the next room must search your cupboards to sec what Published by Sinclair Research Ltd,
which the key unlocks. ingredients you have available, carry the 25 Willis Road, Cambridge Price,
To make matters more difficult , your television set cassette recorder and COD:?-
£5.95 .

SJNCLAIR PROGRAMS [Link] 1984 37

 ,...
~
lf-
T ASWORD TWO THEWORDPROCES
64 CHARACTERS PER LINE ON THE SCREEN AND TO PRINTERS!
MICRODRIVE COMPATIBLE - instruction s supplied

"'The numbor of on-screen promp1s, 1ogether with rhe TASPRINT

excell,mt manual, ma•• it ideal - even for an absolute
beginner ... A must for dot matri~ printer owners I Print your program
ou1pu1and listings ln a choice of five impressive print styles.
Drives all the printer interfaces listed under Tasword Two 1nd
"'What ma lres a word prOCH$Or more or less versatile is its all dot mauix printer s wi1h bit image gr1phics capabilities.
control features. Tasword Two offers an impressive selection You can •lso use TASPRINT to print Tasword Two text files.
and the tutor program succeeds in demonstrating them TASPRINT gives your output originality and style! Send• a e.
admirably ... for brochure which includes TASPRINT output.
ELECTRONICSAN0C0Mf>UYING Nr,.,.m ,W 1"3 £9 .90 f ull y lnclu slv t mail order pri ct

·rasword is showing a degree of sophistication that business

computers took many years to develop ."' TASWIDE - 64 characters per lin e!
WHAT MOI01 OrdoNr ,_, A machine code ut,hty program, TASWIOE doubles the
informetion that your own programs can disp1ay. Make a
simple change to your print statements and your output
appears on the screen at 64 characters per line instead of the
TASWORD TWO The Word Processor* normal 32. Both print sizes can be mixed on the screen. 16K
Your Spectrum becomes a pro [Link] n•I word processor and 481<versions supplied on the same cassene.
with TASWORO TWO . TASWORO TWO gives you an amazing £5 ·50 fully in clusive m1il order price
64 characters per line on your screen. This is ideal for stand1rd
A4 paper and TASWORD TWO prints your text jus t as it
appears on your screen . TASMATH 1
Tasword Two drivH the folfowing interlaces: Ma1hema1icseducation. Three praorams on one cassette:
Cobra RS232 VO Port ADS Interlace TASIMEO - simultaneous equ ations
Euroal«tronia Interlace Kempston [Link] TASOUAD - quadrahc equations
Hilderbay lnterlac6 Morex lnrerlace TAS ·TRIG- uigonometry of right angled 1riangles.
Sinclair ZX Interlace 1 Tasman Interlace Available for the 16K and 48K Spectrum and for .the BBC
The same program drive, these interlac,s. A short easy to fol- model B.
low set of ins tructions takes you through serting up yaur Tas·
word Two to drive tho interlace you have or choose to buy. £5.95 fully inclu slvt mill order price
Tnword Two also drives the ZX printer .
TASMAN PARALLEL PRINTER INTERFACE
Tesword Two is readily adapted for the mk:rodrives to give
super ·fHl saving and loading of both program and text. The Plug into your Spectrum and drive any printer fitted with the
microdnve instruclions are supplied with the Tasword Two Centronics 5tandard parallel interface. Supplied comple1e
with ribbon cable and driving softw are. The cassette includes
manual.
LUST. LPRINT, and t ext screen copy softwar e for •II
£13 ·90 fully inclusiv e mall orde r pric e. centronics printers. The user changeable lnterface softwa re
makes ii easy to send coc,trol codes lo your printer using the
muthod so successfully pioneered w11h Tasword Two. The
cassette 1lso contains fast machine code high resolution
TASWORD TWO TUTOR screen copy software for Epson:Star, Se1kosha, Shinwa, end
TASWORO 1WO comes complete with a manual and a Tandy Colour Graphic (in colour!) printers . Send s.1.e. for
cassette. The cassette contains your TASWORO TWO and brochure which includes sampl e print-outs and a full list of
TASWORO TWO TUTOR. This teaches you word processing prin1ers supported by screen software. Compatible with
using TASWOROlWO. Whether you have serious application s microdrivesJZX Interface 1.
or simply want to learn 1bou1 word processing, TASWORD
TWO and TASWORO TWO TUTOR make it easy and enjoyable. £39 .90 fully lncluslve m•il order price

TAS MAN RS232 PRINTER INTERFACE

Specifica1ion and software as above bul d rives prin 1ers
TASWORD TWO £2 Demon stra tion Cassett e fitted with the RS232 standard interface A low cost rout e to
See for yourself the powerful features of TASWORO TWO. printing - especially suitable for use wi1h the Tandy Colour
Send 1ust C2 for the Tasword Two demonstration cassene A Graphic printer and the Brother por1able typewriter l prmters .
voucher is included which gives you C1 off the price of Supplied complete wilh cable - please specify whether 4 pm
TASWOROTWO . DIN or 25 way D plug required.
£38 fully inclu sive mall order pri:::e
All prices Include VAT and post and packaging

• Av••l•bl• from i.,ge, br•nchesof Boots

For fur1her informa11on on all these products $end an s.a.e. TASMAN SOFTWARE
with ..Tasman Brochure" wr itten on the flap. DeptSU
SPRINGFIELD HOUSE
SeM chequ•P.O.o, Aocess numberwith order HYDE TERRACE, LEEDS LS2 9LN
TelephoneAccns Ofders'.Lflds (05321438301

38 SINCLAIR PROGRAMS July 1984

 Y
OU PLAY the part of the hero,
Vanhelsing, and must kill the
bats attacking the victim. As the
bats swoop you have to throw crucifixes
....e:::.Sfi!fi~!i!l
at them using key "F".
Vanhelsing and the Vampires was
written for the 16K ZX-81 by S Martin,
Newcastle-upon-Tyne.

~H~t~tHf~i
PRINT RT 0,0;"5CORE•";5

"SH"
p NTa+. ·.....
51 II" A•l0 THEN QOT"O 500
55 PRINT RT 15 0; "O"; RT 16,0;"
l,"·RT 17 0;"1";Rf lB 0;"1,"
;0 II" fNKl!Y. •"" TM!N Gll"TO 40
9!5 II" INKEY •"I"" THEN GOTO 100
100 FOR K•il O 25
1015 PRINT RT 5, Q; " +"
110 PRINT RT 5,Q;" "

+1
t~i i~Tp~eQA~o Q•M THl!':N LfT 5•5
130 IF Q>26 THEN Ll!':T Q•2
135 NEXT K
13!! LET R=R+l
145 GOTO 40
150 SAVI! "VAHil"
155 CLS
13& PRINT Fff 1,5; "IIOIMl9411$iM
lillfl~0 PRINT RT 2,2;"IN THIS GAME
YOU ARE"
165 PRINT ><T 3, a; "UANHl!':[Link], T
HE VRMPIRI!"
170 PRINT RT 4,il;"l!ATS RRI! ATTA
CKING A NRIOl!:N"
175 PRINT RT 15,2;"YOU MUST THRO
W YOUR CROSSES"
160 PRINT RT 6,2;"RT THEM USING
Kl!:Y '"'F'"'"
165 PRINT RT 7 , 2; "YOU ONL.Y NAU

Vi\NH~, E 10 CRUC IF IX!S "

165 PRINT RT 5, 2; "T0 FIGHT TNE
BATS Ol"F,"
157 PRINT RT 9, 2; "YOU MUST HIT
THI! BAT IN TH! HERD TO

THE
KILL IT"
190 PRINT RT 11,9; "lGOOD LUCKl"
195 PRUSE 500
20111 GOTO 9

w~~r
VMlflKES 1500 CLS

IN ...
6SN~·o~NT~~~si~aNT
THIS TIME.........
RT ~6G;~
euT I
WILL RETURN"
510 II' 5<10 THEN PRINT AT 3,5 ;"
THIS TIMI! VAN HELSING ••.••• YOU
LOSE.," .
51!! PRINT RT 5,5 ; "00 YOU WANT T
NST~ub~rn~s~T 5. 5; "~~ /Z?\I
WANT I
O TRY AGAIN '?
511!! IF INKEYS•""
(Y /N)"
THEN GOTO 516
2 PRUSE 200 1520 IF INKEYS •"Y" THEN GOTO 9
3 IF INKEY I•" N" THl!':N GOTO 9 15215 II' INKEY I•" N" THEN GOTO 527
4 II" INKEYl•"Y" THEN GOTO 155 527 IF 5•10 THEN GOTO 1540
9 CL.5 !!~II" 5<10 THEN PRINT RT 14 ,1 5
10 Ll!:T P•l ·" "; RT 15 15 · "IOI"; RT 16, 15 · "
11 Ll!':T 5•0 ~ ";RT 17,15 ;" ~.l "; RT 16,115;"'-,
12 LET el•il
13 Ll!T R•0 532 PAUSE 100
15 Ll!T 5•1!! 1534 PRINT RT 15,15;"~"
16 Ll!T Q•2 5315 PFl_INT RT 14, 15 · " "; RT 15,
110 Ll!T H•INT (RN0t20+5) 15 "L I" RT 16 15,i•:-:l
"; RT 17, 15
as GOTO 65
40 PRINT RT P H; " .. • • ,I' "; RT •;\0 1~6~+H;~·f~S;~~"
P+l,M;" ..:...JI ";R T P+il,M;" • 1545 LET Al•"
lllf's~~~Tp~" ,I' .. "
~~ i~I~i;l~TT~E~·r~~ P·l .. 550 PRINT RT 10,1 ,AS
60 IF P:1 THEN PRINT RT B,M; " 5155 Ll!':T !!$•".,.......__
";RT 5+1,M;" ";RT
B+~,M ;" ";AT 8+3,M;"
61 II" P•1 THEN L.l!T M•INT (RNOt 560 PRINT RT• 10~;5;
20+3) 565 NEXT H

SINCLAIR PROGRAMS AUIJ'st 1984 39

 chies' power
completed that task and must make
your way back to headquarters. There
are several patrols you have to pass to
- _.A reach HQ. Wait for a convenient mo-
- "'?',.;-
ment and slip into line in t he patrol
unt il you reach the next exit.
Ghost Monster was written for the
16K Spectrum by Martin Walker of
Rugeley, Staffordshire.
200 FOR a• USR "a" TO USA '"d""+ W 0,-20 : DRAW - 255,0: DRAW 0 , 20 620 PRINT AT a,b ; "O": BEEP . OS
7
210
220
READ udg : POKE a 1 ud9
NEXT a. C 45g L~T ~·~" "£. £. .Q. £... .£
·"
6 30 LET aS •.1. S(2 TO )+a.$(1)
-
640 LET b .$..,b$ (31)+b:fC TO 31)
230 DATA 60, 126,2:55,25:5 1 25:5,2:55 -460 LET b.-;-...Ji .a..a. .e.. ~ ..It 050 IF ass3 AND b • l:5 THEN GO TO
, 126,60
.I! l!..l!.I!. JL" 700
240 DATA b0, 12b,248,240,240,248 660 GO TO 550
, 126,60 11/~1 PfHNT AT 3,0; INK 4; "~ 670 PRINT AT a,b: FLASH 1 : "0" :
250 DATA 60, 12b,31, 15, 15,31, 126 QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA FOR ,11•0 TO 30 : BEEP 0 . 05,a. + :5'7'°N
,60 /\I--IAAAAAAAAAAAAAAAAAAAAAAAAA" EXT <ii
260 DATA 60,12b,90,219,2:5:5,25:5 4W1 PHINT AT 7,0; INK 4;':.aaAM
1 680 LET li •l 1-I: IF li-=O THEN
219, 137 MAAf'IAAAf'IAAAAAAAAAAAAAAAAAAAAAAA PRINT AT 1,19;"0" : 60 TO 720
270 BORDER 6: PAPER 6 : INK 9 : C Af'IM\AAAAAAAAAAAAAAAAAAAAAAA" 690 GO TO 390
LS '1Y11 F'RJNl AT 11,0; INK 4;"'.eeaa 700 FOR a• -40 TO 50 STEP 4: BEE
280 PRINT AT 0 , 10; "GHOST MONST AAAAAAAAAAAAAAAAAAAAA 99AAAAAAAAA P . 02,~+10 : BEEP . 02 , a-:5 : NEXT a.
ER'" ·on/"\AAAA MAAAAAAAAAAAAAAAAAAA"
290 PRINT AT b, 13 ; "KEYS:-" ~oil PRINT AT l!i,O; INK 4; "~ 710 LET c c • cc+IO : GO TO 390
300 PRINT AT 9, t 2;'"P • RIGHT"; (;(';flr,AnAAAAAAAAAAAAAAAAAAAAAAAAAA
720 PRINT AT 18,12; FLASH 1: '"6
AT 11,12;"1 • LEF T"; AT 13,12; '" AAAAf\f\(l,AAAAAAAAAAAAAAAAAAAAA"
AME OVER" ' : FOR ••0 TO 30: BEEP •
Q'" UPR; AT 1:5,12;"? • DOWN" ~I•) PR INT AT ::S,15; FLASH l; " H" 0:5 1 :5: BEEP . 05,2 : BEEP . 03,l : BE
310 PRINT AT 18,:5; "PRESS ANY K ; AT '1, l~; FLASH O;" " EP .04,2: NEXT ~
EY TO PLAY" ~20 PRINT AT 7,c;" "; AT B , c;'" 730 CLS
320 PLOT 3:5,20 : DRAW 176 1 0 : ORA
740 PRINT AT 0 1 10; "GHOST MONST
W 0, 15: DRAW -176,0 : DRAW 0,- 15 !i"!.0 PRINT AT 1 1 ,d:" "; AT 12,d ER"
330 PAUSE 0 : FOR n•1 TO 14 : REA 5 40 PRINT AT 15,e;" "; AT 16, 11
750 PRINT AT 8, 10; ··you SCORED
"; cc
0 .a : BEEP . l ,a: NEXT n
760 IF c c>hi THEN LE T hi•cc
340 DATA :5,:5, 12, 12, 14, 14, 12 1 10, SZO PRINT AT •,b;'" "
10,9,9,7,7,:5 560 LET ., ... +( INKEYS •" :.:'" ANO• 770 PRINT AT 10,3; "HIGHEST sea
345 LET h1•0 19)-( lNKEY$ • "q" ANO a>O> RE SO FAR I S ";hi
3 50 CLS :57() LET b.,b+ ( INKEYS =="p" AND b 780 PRINT AT 12, 7 ; "ANOTHER GAM
380 LET scacO : LET l i • 3 "31)-( INKEYS • "i"' AND b ) O) E ['l'/NJ '"
390 LE T a•tljl: LET b•1b 580 PR INT AT 5 , 0; INK l;at:; AT 790 IF tN KEYS •" y " THEN GO TO
400 LET c • JNT I RNO *3 0 >-+-t 6,0: INY 2 : b$ 350
410 LET d • !NT ( RNO • 30)-+-l 590 PRINT AT 9,0; INK 2;•:J; AT 800 IF INKEYS • "n" THEN GO TO
420 L ET ea- INT ( RND • 30)+1 10,0; INK l;bt: 820
430 PRINT AT 1, l: "S CORE "; sq 600 PRINT AT 13 , 0 : INK 3 ;a:J; A 810 GO TO 790
AT l,13:'"LJVES '" : Ji; AT l, 24;"HI T 14 0 0; INK 2;bS 820 CLS : PRINT AT 0,0; "0, K •• T
":hi blO IF SCREENS (a,b>•"" THEN HANKS FOR PLAY I NG""
440 PLOT 0,175 : DRAW 2:55,0: ORA GO TO 670 830 STOP

42 SIN CLAIR PROGRAMS A,quu 1984

SEA
RESCUE
L
OWER your helicopter to the
sea and rescue the man bobbing
in the water. If you go too low
you will crash into the sea and lose a
life. After booking the man from the sea
you lower him on to the ship's landing
platform before attempt ing another res·
cue.
Sea Rescue written for the 16K ZX·
81 by Steven Knight ofNailsea, Avon.

SINCLAIR PROGRAMS August 1984 4J

 THffKO

D
EFEND your spaceship from ar the beginning of the game you can where you will have less time .
Icabod the F rog by hitting it choose the speed at which it travels. Written for the l 6K Spectrum by D
10 times with your laser gun. When kabod turns red you have to hit Mellor of Keyworth, Notts.
Your spaceship follows a fixed nath and it once more to proceed to the next level
l CLEAR : RESTORE : LET h1 '"'10 1005 PLOT ( Cx+2) •8+4), 13:5-n r 10 1 30;"
00 : LET lev e l •O 1010 DRAW OVER 1 ;0,-13 5020 PRINT AT 12,2 : "YOU MUST HI
3 LET tot • O: LET s core=O 1019 PAUSE 1 T ICABOO lei TIMES": PRINT AT 13
5 GO SUB 9000 1020 IF ATTR (17,f+l> • 71 THEN ,b; "WITHIN THE TIME LIMIT"
7 GO SUB 5000 BEEP .5,-10: LET hlt•hit+t 5030 PRINT AT 14,7:"CPRESS "" O"
B LET s peed• s.p oe d+ 3 1030 PLOT INK O; Clx+-2) • 8+4) ,135 " TO FIRE)": PRINT AT 17 ,BJ "ENT
9 IF tot >hi THEN LET ht • tot -n ER SPEED < 1-4)"
10 LET x • INT ( RNO '"'27+l): LE 1040 DRAW INK O; OVER 1;:0,-13 5032 INPUT • P••d : IF ~peed)4 OR
T f • lNT ( RNO 11-28+1) NEXT n
104 :5 • P••d < I THEN GO TO 5032
13 LET Q• l: LET -z= l 10 :50 LET s t • O 5035 PRINT INK O; AT 19,8; "PRES
14 LET e• 4 i LET t • 750-<leve1 •5 1070 IF hi t • 9 THEN LET c • 2 S ' "' 11"" TO BEGIN"
O> : LET tl .. t 1080 IF hi t • lO THEN GO TO 2000 5040 IF INKEYt" • "s" THEN RETUR
15 LET h1t • O: LET •• 1 N
17 LET st • O 1085 PRINT IN K 7; AT 20,2; "HITS 5050 GO TO 5040
30 INK 7: PAPER 01 BRIGHT 1: 8 : ";hit 7000 LET ~core:. INT Cl • v e l•IOO•C
ORDER 0: CLS 1090 RETURN 12/ 11,peed) +Clev • J +-1) •tl2+hl t • lOl :
50 FOR n • O TO 30 STEP 2: PRINT 2000 I NI< I : PAPER 7 : CL S LET tot • tot+ s core
; INK 4; BRIGHT O; AT 18,n; ".!:!.!." 2 100 PRINT IN I,.. 2; FLASH I: AT 9 7001 RETURN
NEXT n
; : ,9;" CONGRATULATIONS " 8000 PAPER 5: INK O I BORDER 5 : C
55 PRINT AT 0, 10; "HIGHEST sea 2 103 GO SUB 7000 LS
RE1 ";hi 2105 LE T d • .012 :i i FOR n • l TO 2 : BOOS GO SUB 7000
60 PRINT AT 20,2;"HITS: ";hit FOR m• 4 TO 16 STEP 2 : BEE P d ,m : 8007 FOR n•-10 TO -20 STEP -1 : B
NEXT m: NEXT n EEP • 25,n: NEXT n
10~ PRINT AT 20,20: " TIMEt " :t ; 2107 PRINT AT 0,0: "SPEED : ": • p e 8010 PRINT AT 6., 7; "YOU RAN OUT
e d -3 ; AT 0,20;"LEVE L : 0 :lev e l+t OF TIME "; AT 8, 11;" SCORE ~ ; tot
IOI IF t ( .. 0 THEN BEEP 2,0: G ; AT 15 ,4; "PRESS ""y"" TO PLAY A
O TO 8000 2108 PRINT AT 3 ,8; "SCORE: " ; tot GAIN"
102 PAUSE 1: PRINT INK 21 AT 3 8015 IF INKEYS R "y" THEN GO TO
,x;" fil ": PRINT INK 6; AT 4,x 2110 PRINT AT 13 ,1 2 ;"YOU KILLED 7
:" !£!!" 8020 GO TO 8015
i04 IF PEEK 23~60 • 48 ANO 11,t >• 211 l PRINT lNK 4; INVERSE I : AT 8900 STOP
6 THEN BEEP . 05,20 : GO SUB 100 15,11;"ICABOO FROG"; INK I; IN 9000 FOR .t• O TO 8: FOR b•O TO 7:
0 VERSE O,; AT 17,9; "IN A TIME OF ~ READ c: POKE USR ( CHR$ <•+144
106 POKE 23~60, 10 ;tl-t I )+b,c1 NEXT b: NEXT •
107 LET i;;t • st+l: LET t • t-1 2 112 PRINT AT 20,6; "PRESS A KEY 9080 DATA :54,93, 127,34,28, 107 ,29
108 LET z s z+l: IF %• 1opeed THEN TO CONTINUE" ,119
Go sue 299 2 11 :5 PAUSE O

-·
9100 DATA 03,64,2 5 5,25 5 ,127,49 ,2
110 IF xz O OR x • 28 THEN LET a• 2120 LET l • v • l • lev • l+l : GO TO 9 7, 15
9200 DATA 255,0,255,255,255,157,
120 LET x • x+.i 5000 INK 0: BORDER 4 : PAPER 7: B 247 , 2:55
200 GO TO 100 RIGHT 1 : CLS : PRINT AT 5,8; .. I 9300 DATA 252,2,2:55,2 5 5,255,140,
299 LET f m:f +9 CABOD THE FROG " 216,240
300 PRINT AT 17,f; INK c;" A" 5010 FOR n • I TO 15 STEP 3: PRINT 9320 DATA 0 ,0,0,0, 3 ,4,e, 16
: BEEP .0025,20 - INK 4; AT 10,n; •• ..8.": BEEP .1 9340 DATA o,o,60 , 2ss,o,o,o,o

-·
3 20 IF f a O OR f•29 THEN LET g• ,-15: PAUSE 5: NEXT n 9 3 60 DATA 0 1 0 1 0 1 0, 192,32, H .. ,e
501 3 PAUSE :50 9380 DATA 130, lb2 1 182, 182, 18 3 ,24
360 LET ZRI 501!5 FOR n .. 15 TD 30 STEP 3: PRIN 7 , 2 55 ,2 55,obb, 74, 75, 107,2:Sl ,25 :5, 2
380 RETURN T IN K 4; AT 10,n;" .a_": BEEP , 5 5, 255
1000 FOR n•20 TO 90 STEP 10 1 1 -15: PAUSE 5: NEXT n: PRINT A 9400 RETURN

46 SINCLAI R PROGRAMS August 1984

A D I enclose a cheque for or
B D debit my Barclaycard/Access Account*
CO Name ---- -----
 M
OVE ROUN D the maze col-
lecting diamonds and swords.
It is not so easy as it sounds,
as you will be pursued by a bouncing
ball. When you have collected all the
objects in the maze you have to go to
one of the secret passages.
Bouncin g Ba ll was written for the
48K Spectrum by David Creighton~
aged 14, of East Didsbury, Manchester.

BOUNciNG
BAnL16~g:k'",~ : ~c:trR 0: PAPER O:
ET
>
.ay •.a y+(2 AND .aSl< a x+l)/2,
<> "A"> : so sue 550
a y+3
:
BORDER • t BEEP • 005, • • b : NE XT a
NEXT b I BORDER O
INK 91 CLS 17:5 tF a x < 19 THEN lF a x >x THEN 801 CLS
1:S GO SUB 8000 GO sue 5 50: LET .ax• .a)(- (2 AND a 80:5 LET li • lt-1
20 DIM a'f ( 10, 64> S:[Link]+ll/2)-1, a y+l) <> "A*l: 130 810 PRINT AT 10,8J FLASH 1; PA
21 LET • c • O: LET li • 3 sue 5 :iO - PER 2; "YOU LOST A LIFE "
24 LET i t e m•"'3 180 IF • M )2 THEN IF •ic < x THEN 815 FOR a • t TO 100: PAUSE 1: NE
25 LET t=O: LET >C
• 17: LET y • 2: GO SUB 550 : LET .ax • .aM+l2 AND .a$ XT •
LET ~)C• 3: LET •y • 28 l( a M+l)/2 + 1,.ay+l) <> "A*)1 GO SU 816 IF l i <• 0 THEN GO TO 830
26 LET 1 tell'l& • i t e ma + 1 8 550 -
30 RESTORE 9100 : FOR •• 1 TO 10 190 IF .aM• o ANO a y • p THEN GO S 820 CLS : GO TO 25
: READ •SC•>: NEXT • UB 550: LET .ay • ay+(2 ANO .aS:(l( .ax 830 CLS I PRINT INK 91 AT 10,9
4 0 GO SUB 600: REM Prtnt m,ue +ll/2), .ay +3) <> "A''l-12 ANO .aSI( ; PAPER 3; FLASH 1; •• GAME OVER "
l•x+1>,2>,•y> <> 7B " >: GO sue 55
100 GO SUB 5001 REM Print m•n 0 - 840 PRINT AT 21 ,o;" Anoth•
200 GO TO 11 0 r Qillll O (y/n)?": PAUSE O
10 5 GO SUB :S:50: REM Print bo1,1nc 500 f>fHNT AT x,YI OVER 1; BRIG 850 IF INKEYS •"y" OR INKEY :f
y ba l l HT 1; INK 6;"KL"' • "Y" THEN RUN
110 IF JNKEYS • "8" THEN GO SU 505 PRINT Arx+l,YI OVER 1; BR 860 GO TO 850
8 500: LET y • y+(2 ANO i1SC(C x +t)/ IGHT 1; INK 61 ".!lli" 9000 REM In a t r ucti on•
2) 1 y+3) <> "~") : BEEP . OOl,y+20: 510 RETURN 8005 PRINT AT 0 , 0; PAPER 2; INK
GO SUB 500 550 PRINT AT « M ,.ay; OVER I; 9R 9; BRIGHT l J" BOUNCING B
11 :5 IF lNKEY$ • "5" THEN GD SU IGHT 1; INK 4; "Qf." ALL
B 500: LET ycy-(2 AND aS:I (x+l)/2 555 PRINT AT aK+l ,;ay; OVER 1; 801 :5 PRINT AT 3,0;
,y) <> "i:'): BEEP .001,50-y: GO BRIGHT l; INK 41 "'11B_" 8020 PRINT " Thv obJ•ct In ESCA
SUB 500 560 RETURN PE i • to ••c•p• th• grip• of
120 tF INKEYS: • "6" THEN GO SU 600 FOR a • l TO 10 : BEEP .001,40 BOUNCY THE BA
B 500: LET x • M+(2 AND •S:< (M/2)+1 +.a: PRINT AT 1.a•2> - t,O; INK 4;; LL ff bouncy bounci•• o
,y+1 > <> "!i.">: BEEP .001,40-yt G ,il$(.a) : NEXT .a n top of youthfil you wl 11 lea• ,
O SUB 500 601 PRINT AT 21,0; PAPER 2; "SC life"
125 IF INKEY$ •"7 '" THEN GO SU ORE "; s c; AT 21,21;"LIVES ";l 8025 PR I NT " Wh•n you .are wond•
B 500: LET x • )(-(2 ANO .t S:l(lx+l)/ > ring [Link] th• milze you [Link]• to
2) - 1 1 y+1) < > "8:'): BEEP .001,4 5- 6~ LET z $ • ".,g £. ": FOR z • l TO i pick up th• s worda .and dia1110nd•.
y: GO SUB 500: tems When al I th •• wor-d a and di •mcnda
130 IF .aS:((()(+1)/2>,y+l) • "'E" T 610 LET rx • I JNT I RND •8) + 1 l •2 h•ve b•tm c:ol l ec:tltd th•n you p
HEN LET t • t+l: LET •c • •c+tOO : F : LET ry •< IN T I RNO •14)+1>•2 r-ocevd to on• of th• ••c•rt p•
OR ;::• 10 TO 40 STEP 5 : BEEP .005, s s .ag•• · "
:n NEXT z: LET •*C()(+1)/2,y+ll • " 615 IF a SI Cr x +2 ) /2,ry+l) <> " "
••: LET .tS:((b+l)/2)+1 , y+ 3 3l•" "
8030 PRINT " ""'5""-ASWORD ""K
THEN GO TO 610 J."" - YOU
: PRINT OVER 1; AT )(,y;"f"; AT 020 PRINT INK INT ( RND *6)+2
.E !i.
Jj ...GH""- A DI ANOND "'O
x •l ,y; ''.£.."
135 lF ~$(((x+l>/2),y+1) • '"G" TH
; AT rl<+l,ry;z:fl
ry;;:S-(3 TO >
TO 2>; AT rM + 2, .,e"" - BOUNCY rr ~
EN LET t • t+l : LET ac •a c+2001 FO
B.:
621 LET .aS<lrx+2)/2,ry+1>•zS(1) 8035 PRINT ''"KEYS :- 5,6, 7 &. 8"
R z•20 TD 60 STEP 5 : BEEP .005,z : LET .aS:((rM+2)/2,ry+2 ) "'z$12)
: NEXT z: LET ,a$( ()(+1)/2,y+l) •M 622 LET .aS((n<+1)/2,ry +32l•z$(3 8100 FOR • • 0 TO 7J BEEP .002,a+
": LET .t$(((M+l>/2)+1,y+33) • '" ) : LET a :S((rx•ll/2,ry+J.2>•z$C4) NO • lO+ a
": PRINT OVER t; AT x,y; "..fil!"; A 8105 PRINT AT 21,0; INK 9; PAPE
T M•l ,y; ".!.:!." 625 LET zS:• C"GHIJ" ANO z >• 2)+ R A1 •• PRESS ANY KEY TO PLAY
140 IF t >• it • m• AND (x <• 2 0 l"E F '"ANO z ~)1 NEXT z
R x >• 19> ANO y • 14 THEN GO TO 630 - RETURN 8110 IF INKEYS <> "'' THEN CLS
700 700 FOR • • 1 TO 50 : RETURN
145 IF M >• 19 ANO y • 14 THEN G 70 1 OUT 254, 7 8115 NEXT .a: GO TO 9100
O SUB 500 : LET x • 31 LET y • t4: GO 702 OUT 254, 130 9005 REM Oat .i. for Br-aphic a
SUB 5 00 703 OUT 254, 30 9010 DATA 255, 128, 192,224,255,24
1 5 0 IF M <• 2 ANO y • l4 THEN GO 704 OUT 254, 16 0 ,240,240
sue :500: LET x • l 7: LET y • 14: 00 705 OUT 2:i4 , 255 9020 DATA 254,2,6, 14,254,30,30,3
sue 5 oc 706 OUT 2:54,201 0
1 55 PRIN T AT 21,7; PAPER 2; BR 707 OUT 254, 150 9030 DATA 24 0 ,240,240,2 55 ,224,19
IGHT 1; ac; BRIGHT O;" "; BRIGHT 708 NEXT « 2, 128,255
I; AT 21,27;11; BRIGHT 0 ;" " 710 BEEP .002,.a 9040 DATA 30 13 0,30,254, 14,6,2,25
16 0 IF K• .lM ANO y • •y THEN GO S 71 5 FOR a • O TO 10: FOR b • l TO 7 4
ue BOO : BEEP . 02, Ca +b)+ RNO *101 PRINT 9045 DATA 0,0,0,9 , 8,29,28,28
161 LET o • • M: LET po .ay AT 10, 11; PAPER b; INK 'i'J FLAS 9050 DATA 28,28,62,29,29,30,0,0
165 IF •y >y THEN GO SUB 5 50: l H 1; "BONUS": NEXT b: NEXT .a
ET .ay •a y-<2 AND a S( l•x•l)/2,ayl 720 CLS : LET •c • ac:+500 90:55 DATA 0,0,0, 15, tb,32,b4,63
<> ".i.*>: GO sue 550 730 GO TO 25
170 IF ay ( y THEN GO SUB 550 : L 800 FOR b • l TO 5: FOR a • O TO 7t 9060 DATA 0,0,0,240,16,8 4,~2
1

48
SINCLAIR PROGRAMS August 1984
 9065 DATA 64,64,32,16,8 1 4 1 2,1
9070 DATA 2,4,8 ,16,32,64,128,0
9075 DATA 63,63,32 , ~5,127,<rl,99
,1 03
9080 DATA 248,248 ,8,~4,248,lb,2
52 ,252 9115 DATA "AB AQABABABAAAAABAB BABABABAB ABABA
9085 DATA 79,79,64,63,7,31,24,16 ABABAB ABCD CDCDCOCOCDCDCOCD OCOCDCDCD ~

9090 DATA 120,56,

,24, 12
128,240

9095 DATA 0 ,0,0,15,31,63

~~6 DATA 0,0,0,240,2

1 224,224

, 63,63

48,~:2, 252 ,
~
COCDCD

CD
9125
a!!_
BF
~TA"""7,"AB
fil!
CD
ABci>
CD"
AB
~

DATA---;-'.B.D e§ .@
AB
t:[

~Q2..£QCOCO..£Q.
~
AB
,G
.BD.
..,
9991 SAVE

9992 VERIFY
9993 STOP
" Bouncing

""
B•ll" LI NE 9

i;p .kl!" 999 5 CLS

9097 DATA 63,63,63,63,31, 15,0,0 fill
9 0 98 DATA 252,252,252 ,2 52 , 248,24
9130 DATA
.Bli
CO
=-"~

CD"
i;p _
9996 PRINT
PER !5; INK
AT 10 1 81 FLASH 11 PA
9J" STOP THE TAP-E "

0,0,0 913 5 0ATA°'AB AB ABABAB AB A 99q9 FOR • "' 1 TO 3 : FOR b • l TO 20

9100 REP1 Oat • fe r t191'Z
R5 ••• •ecng~J:pJ:: : BEEP- . 02, {it+b) + 2: NEXT b1 NEX T
9101 REP1 Maze I
DATA MABA8ABA9A8 ABA8 ~
.Q£Q Q" •=RUN
9105 9140 DATA M~ ~ ~ ~ ~

6H IS PRINT AT ¥0 , 0 , '
TO PLAY ACAIN
6i00 IP' INK! Y S•''P " THE N GOTO 11
6i:10 GOTO ~ ··
7 000 REH
7010 PRI , , (T I, ..
70.1:0 LET R"l l
7030 PRINT AT A , C (Tl, .....
7 0, 0 Lf.T S•:5 •1
7050 PRINT AT 0 , 6 , S
70 6 0 Lf.T F• 0
7070 .JOTO 1010
8000 CL 5
8 010 SAVE ""HOL D !JS··
ww;.,.aJ

HOLD-h
SO.i 0 .. 0 , 11 ,'' HOLO UP' ,TH 8
' PART Of" A TE
•Y OU HU!IT NAK
OONT REACH T
THIS eY STAt lO
1YOU .:IA! C~H~
) , "

T
HERE ARE four tellers in the
bank, each with an alarm but-
ton. As the tellers attempt to
ring the alarms you must run in front of
them to prevent them doing so. If an
alarm is rung a police van will appear
and you will be taken to prison.
Hold-up was writt en for the 16K
ZX-81 by Simon Cooke of Clarkston,
Glasgow.

SINCLAIR PROGRAMS Augtw 1984 49

Ultimate Play the Gama,
The Green,
Ashby de le Zouch,
Leicestershire
 S
LOT THE BALL into the goal at
either end of the rink, using keys
M and Z. Key Z will move the
ball towards the centre of the rink and
M will move out th e ball towards the
goal. As the ball nears the goal you must
avoid the keepers, as running into them
will cause a life to be Jost.
RoU-a -Ball was written for the 48K
Spectrum by J Kelly of Denn y, Stirling-
shire.
20 BRIGHT 11 PAPER 71
BORDER 6 1 INK 1 r CLS
30 LET def• l b00 1
LET end•2000
40 LET 1nat•3000 :
LET acr-ol I •3500
50 LET ltv••-~r
LET •check•7500
60 LET foul •7700 :
LET ecor-e•8500
70 LET udg•9000 :
LET ov•l•9500
80 LET •••••: LET h:$•""
90 LET oa6 : LET 1 • I I I
LET d•"l1 LET e•13
100 GO sue udQ
110 GO SUB in•t
120 GO sue ov•l
130 GO SUB ecor-e
14 0 LET l •0
1030 FOR n•l TO 8
1040 LET M•l l+o ., COS (n/4 • Pt ) 1
LET wo•lt +o• COS <<n- 1 >/
4 • PI >
1050 LET y•lb+i• SIN (n/4 • PI >:
LET yo•16 +l * SIN ( (n-1) I
4 • PI J
1060 PRINT
AT x,y;"A"1 AT xo 1 yo
1 ".. -
1010 oo sue def
1080 IF ATTR hc , y> <> 12 1 THEN
GO SUB foul I NEXT n1 00 TO 10 30

1090 IF JNKEV S <> "" TMEN BEE

P .002,301 GO sue acheck
1110 NE XT n
1120 GO TO 1030
1620 lF d•l3 THEN 60 TO 1700
1630 PRINT AT 22-d,2 J " .. , AT d,

l~~~~:;;;~~~~~~~~~~~~~~~~~~1--~--,
1640 PRIN T AT d,20; " "J AT 22-d
,:::SOJ" ..
41""
1650 LET d•d+l
1660 PRINT tN<: 2; AT d, 41 ..~i A
T 22-d 21 "D" :;.t240 F~ c•O TO 16 STEP 4 0..h••rda . (•"'•Y fro-
16 70 PR IN T- INC 2; Al
centr-e)
d,281 ".!2."; 2250 PRINT AT c ,O; H.C 6 1 •-f: IN lnwar-d• . ... Ctow a r-d • centre>
AT 22-d,301"0" t . 51b S; INk. l1c•1 INt O:df ttie•e u•• key• ""•"'" an d ""z
1b 80 RETURN - 22&0 &EEP • o4 , ·t.- r-e•pecttvely."
1700 PRINT AT 22-a,21" "I AT • , 22?G NC)( TCl SlOP 3 11 0 PRINT PAPER 5 J AT 16,3J ''PR
4J .... 3000 LET ,1.S•"(l0 • ap :i g5 : g5 r7 • •p1 ESS ANY KEY TO CONTI NLIE"
1710 PRINT AT •,28J " "I AT 22 - • g51 6 • 5p: I g5: Q5) " 3120 PAUSE 0 : 0...5 1 GO SUB acrol
,:::so;• .. 3010 LET bi:••(4.,•r95:g7rtg51194 l
1720 LET e•e-2 I ~71 s p: 195: 951 SPI 94: Qbl 4 ., SPI 951 3130 PRINT I NK 21 AT 5,3;
1730 PRINT lf,,I( 2; AT e,28J "D" ; ? 1195 : 9S19 l 119?1ap 1195 :9 !1 4 • spl "VDU have 5 lives , nu.t>...-
AT 22-e , 30J ".Q." - r-ai ni ng •hown • t c e ntre
1740 PRINT INK 2; AT •,41"D"J A scr•en . You wi 11 lose
T 2 2-• 2 1 "D" - • life tf
1750 1F•.-r; THEN LET d•91 LET • over
you
et th e r- edge
try to go
of the
•13 rink and .al so i f you land
1760 RETURN on • position which t.h• ,.
2010 IF VAL h S ( VAL w.S THEN def9nce are occupying. You
LET hS•wS.1 LET a S •""r GO T O 220 •core 50 poin t • per Qoal"
0
2020 FLASM l I CLS : PRI NT AT 9, 3 140 PRI NT PAPER 51 AT 15,31 "PR
10; "GAME OVER '" J AT 10 , 101 "SCOR
ESS ANY KEY T O CONTI NUE "
E: "; VAL a s 31:50 PAUSE 0 1 CLS I BO sue •cr-o l
2030 LET • • •"" l
2040 60 TO 2210 3U,O PRINT IN< 2 1 AT 6,:5;
2200 FLASH 11 O...S : PRI NT AT 9, "PRESS ••t""
FOR A REPEAT
4; "A NEW HIGH SCORE 1 ., 1 " 1" "; VA OF THE INSTRUCTIO NS
L h$ ANY OTHER KE Y TO PLAY"
2210 PAUSE 501 FOR b•O TO :50 ST
EP 5 : BEEP . 07,b : NEXT b1 PRINT 3170 PAUSE O
INVERSE I: AT 12,7:"ANOTHER GAN 3180 IF INKEY t: <> "i" THEN CL
€ "><YI N) "1PAUSE O [Link] .at et ther and of t.h• S z RETURN
2220 IF 1Nl<E't'.,_ <> "n" THEN FL r-1nk. 31'90 O...S : GO TO 3070
ASH 0 : CLS I GO TO 120 You h•v• tMO direction• 3,490 RETURN
2230 FLASH 01 CLS Of fllOVeMent- 35-40 FOR •• I TO 31 STEP 2

SINCLAJR PROGRAM.$ Au,rm 1984

SI
 3::i'!50 PRINT AT 18,m-l;•S( T O 33 - 8100 LET s;S• STRS ( VAL s S+ SO) ,l;icS (33 -n TO)
ml 8St0 IF LEN sS <S THEN LET • S• " 9710 PAUSE !5
3:5b0 PRINT AT 19, 111-l;b$ ( TO 33- o~+s$ 1 GO TO 8SIO 9720 IF INKEYt: <> "" THEN GO
m) 8S20 IF LEN hS (:5 THEN LET hS • " TP 9740
3:570 PRINT AT 20 , 111-1tC::$ ( TO 33- O"+ h:f.: GO TO 8'!520 9730 NEXT n : GO TO 9670
ml 8530 PRINT INK 7; PAPER 2; AT O 9740 INVERSE 0: INK I
3:580 PRINT AT 21,m-l;dSC TO 33- , 7;5 :f.; AT 0,27 ; hS 97!50 FOR b •O TO 10: BEEP .OI, RN
ml 8540 PRINT INK 2; AT 11,1;".!t"f 0 •4 0: NEXT b
3:5'90 IF m(2 THEN NEXT III AT 11 , ;;:st; "C" 97b0 PRINT AT IS, 10J"
3b00 PRINT AT O,O ; •S<J-2-m TO > 9550 LET o-1. : LET i • I I "; AT 16, 13;"
9!5b0 RET URN 9770 PRI NT INK 7; PAPER 2 1 AT O
3b 10 PRINT AT 1,0;bS<32-m TO ) 9000 RESTORE '9980 ,l;"S~or•i .. ; AT 0,22;"Hi9h:
900!5 FOR a • USR "a" TO USR "• "+
3b20 PRINT AT 2 1 0 ; c::SC32-m TO > 7 9900 PRINT INI< 2; AT 11, 1; " 8";
9010 READ b; POKE a.,b: NEXT a AT 11, 3 1; ..£ -
9020 RET URN ~10 PRINT BRIG HT O; PAPER 6; A
9!500 RESTORE 9990 T 0,12;" "
3b 40 NEXT m 950:5 FOR y•O TO 164 STEP 2 9920 PRI NT AT 18, 10 ; "
3b50 RETURN 9 :HO PLOT PAPER 6; BRIGHT 0; 7, y "; AT 19, 13; "
:500'!5 LET l • l+l "?930 RETURN
5010 PRINT AT 11,13+1;~ ": BEEP 9 :520 READ M: DRAW x,O
.3,-'!5 9S30 PLOT 2!5:5, y J DRAW -x , 0
~20 IF l >• 5 THEN GO TO and 9 5 40 NEH y: PLOT BRIGHT O; PAP 9980 DATA 0 ,0, BIN 11000,
ER b; INI< b;7,169 BIN 111100 , BIN 111100,
:5030 RETURN 9!5!50 RESTORE 9992 BIN 11000,0 , 0 ,255,2 55,
750'!5 IF lNl<EYs ,,... ,.... THEN GO TO 9!560 FOR y•65 TO 103 STEP 2 BIN 11100000 , BIN 11000000,
8000 9:570 READ x BIN 11000000 , BIN 11100000,
::1~ PRINT AT >C1 y;" ": AT xo,yo 9!580 PLOT x,y: DRAW 2t1(131-M),O 255 , 255, 255, 2:iS, 7, 3 1 3 , 7 , 255
, 255 , BIN 11000, BIN 11000,
7s20 I F o>3 THEN LET ozo-1 : LET '9590 BEEP . 0!5 , y/2 - 20 BIN 1111110, BIN 10111101 ,
l • i-1 : RETURN 9b00 NEXT y BIN 10011001, BIN 10100101 ,
770 '!5 PRINT AT xo ,yo;" "; FLASH 9b10 PLOT 7,0: DRAW 248,0t DRAW BIN 100100 , BIN 1100110 ,
1 : AT x,y ;"E": PAUSE 100 0,16!5 ; DRAW -240, 0 : DRAW 0 , -t bS BIN 10000 10; BIN 10100010,
7710 BEEP .5-1: BEEP . 5,-2 : GO S BIN 1110100 , BIN 111100 , 255,
UB liv e s 9620 PRI NT INK 2; AT 11, 14 ; "AAA BIN lOU-100, BIN 10010010 ,
7715 PRINT AT x,y;" "; AT xo,yo AA" BIN 10001
9630 PRJ N! BRIGHT o; AT o, t2s" 9990 DATA 124 , 124 , 124 , 12 4,95,88,
7120 LET o•b : LET i,,.11 77 , 71 , 65 , 60 ,56 , 52, so, 46 ,4 2 ,
7730 RETURN 9b40 PRINT INK OJ FLASH 1; AT 1 39, 36, 34 , 31, 29 , 27 , 25 , 23 , 21 ,
8000 PRINT AT x ,y;" "; AT xo,yo 8 ,l O;"PRES S ANY KE Y"; AT 19,13; " 19 , 18, 16 , 15, 1 4, 13, 12 , 11, 7,
TO PLAY" 7 , 7 I 7 I 1 , 1, 7 , 7 , 7 , 7 , 7 I 7 I 1, 7,
8010 IF i )13 AND n <> 2 AND n <> 9b!50 LE T x S•" ROLLA - BALL RO * 7, 7, 7, 7 , 7 , 7 , 7,11, 12 , 13 ,14,
6 THEN GO SUB foul I RETURN LLA -B ALL * " 15 , 16, 18 , 19 , 21, 23 , 25 , 27, 29 ,
8020 LET p•o+l : LET :l•:1+1 9660 INVERSE l: INK 2 31 , 34 , 37 , 39 , 42, 46, SO, 53 , 57,
8030 IF :I< 15 THEN RETURN 9670 FOR n • l TO 31 62 ,65, 71, 77, 86 , 96 ,124 , 124 ,
8130 PRINT FLASH 1: INK 2; OVER '9b80 PRINT AT O ,n;xS ( TO 32-n) 9992 DATA 108 , 100 , 97,93,91 , 88,
1 ; AT 11,31 :"A "; AT 11,1 :" A" 9b90 IF n >• 2 THEN PRINT AT O 86, 85 , 84 , 84, 8 4, 8'1, 85 , 86, 88 ,
8140 FOR j,..O TD bO STEP 4: BEEP ,1;xSC 33-n TO> 91,93,95,100,108
. 008,J/2 : NEXT J 9700 IF' n >• 2 THEN PRINT AT O 9 999 SAVE • roll-a-ball" LINE 10

U
SING keys 5 and 8 you have to reasonable. If you reach Aberdeen with·

11P8
drive from London to Aber· out running out of fuel or cash you will
deen. You have 6,000 cash be booked into the Aberdeen Hilton as a
un its and a full tank tO start. When you reward. MPG was written for the l6K
reach a filling s1ation you must decide if Spectrum by Dou glas Killen of London
you need petrol and also if the price is NW!l.

l BORDER 7 : PAPER 71 lNK 0 : B PER b; FLASH 1; "Pr • • • any k•y to 1 80 POKE USR "b"+2 , BIN O
R IGHT 0 : OVER 0 : FLASH 0 : INVERS continue" ': PAUSE O 190 POKE USR "b" + 3, BIN 11000000
E o: GO sue 99 25 CLS 200 POKE USR "b"+4. BIN 00100000
2 POKE 23650, 25 5 30 PRINT ".eJ!•...........• You 210 POKE USR "b ..+5, BIN 11111100
11 CLS : LET a•18
12 LET b • l 1 Road (
2
*ig~::::: ::::::: 220
230
POKE USR
POKE USR
"b"+6,
"b"+7,
BIN 11101100
BIN 00010000
13 LET f • 10 Pvtrol pump" 240 REM s;._
14 LET 1'11"'0 35 PRINT AT B,4; FLASH 1; INK 250 POKE USR "c"+O, BIN O
15 LET p• tNT ( RND •100>+120 1; PAPER b; ..p,.. ••• any k•y to at 260 POKE USR "c"+l, BIN 0 111111 0
art" 270 POKE USR "c"+2. BIN 01111110
lb LET ca•h = bOOO -40 PAUSE 0 1 CLS 280 POKE t:SR "c"+3, BIN 00 11 0000
20 PRINT "The obJec::t of th• g.a "70 PR I NT AT • ,b: INK 1; " ~ 290 POKE USR "c"+4, BIN 011 11 110
me 11& to liil• tt o Aberdeen from Lon JOO POKE USR "c"+S . BIN 0111 1 110
don with out running out of fu el 71 PRINT AT 19,0;"C2 • sp : 28 •i9 310 POKE USR "c ''+6, BIN 01111110
or [Link] off with• ful 8 : 2 • sp>" : LET i•O ---- 320 POKE USR "c"+7 , BIN 01111110
l t a nk i. e . 10 g a [Link] co 72 IF INKEVS: • " 5 '" ANO b)O THE 321 REM D
often you p.a.s-. a p et rol [Link] N LET b • b - 1: LET f•f - . l : LET m• 322 POK£USR "d"+O. BIN 00100100
n.E • ch one ha a a different pr1c:: m+l : LET i • I 323 POKE USR "d"+l, BIN 00100100
• per liil•l l on•nd ycu choose wheth 74 IF INKEYS • "8" AND b(2b TH 324 POKE USR "d"+2. BIN 11111111
•r t o ac::c::optt ha offer or not,b•• EN LET b •b+l: LET f • f - . 1: LET m 325 POKE USR "d" +3, BIN 00100100
ring in mlndth a t you will not re • m+t: LET i • l 326 POKE USR "d"+4, BIN 00100100
ach one if you st•y st1t l, 1iio 1f 7!5 LET p • INT C RND •100) + 120 327 POKE USR '' d"+S. BIN 11111111
your fuel 1a very low , you ma,y 328 POKE USR "d"+6, BIN 00 100100
hav e to buy •t • hiliilh pr"1c::• in o 98 GO TO 331 329 POKE USR "d"+7, BIN 00 100100
rdar to st a yin the game . " 99 REN AB 330 RETURN •
21 PRINT " Uae ""S"" for left .an 100 POKE USR "a"+O, BIN 00000000 331 PRINT AT 1 1 20; ( INT Cf • lO+
d "'8 ... for r1ght ,,dthough which 110 POKE USR "a"+l, BIN 00000000 . :5)/ 101 ; " "1 AT 0,201 "Gal l on s "
•vvr wa y [Link], you ati 11 move 120 POKE USR "a " +2, BIN 00000000
to ward s Aberdeen ." 130 POKE USR " a "' +3, BIN 00000111 340 PRINT AT :i ,20; "11iles "; AT
22 PRINT " A record of your c::.a 140 POKE USR "a"+ 4 , BIN 00001001 6,20;m
sh,m1 le s to 90 , mi l e• alrea dy tr-.a 150 POKE USR "a"+S, BIN 00011111 3:50 F'RINT AT O ,O;"C ash" ; AT 1,
vel led and fuel •re kept •nd di 160 POKE USR "a" ' +6, BIN 000 11 011 O;c a..sh
spl a yed on the acreun constantl 165 POKE USR "a"+7 , BIN 00000100 370 IF m:50() THE N PR INT "You h
y . .. 168 POKE USR "b"+O, BIN O ,ii;VV rv•chvd Abvrde@n . We h•v e
24 PRI NT • o; AT 1,3; INK 1; PA 17 0 POKE USR "b"+l, BIN O book ed a room for- you .at t he A

S2 SINCLAIR PROGRAMS Auguu 1984

 iei ii : ic: i e: i1H It : ie: ir)"
413 IF m=104 TAEN LET cSz"

414 I F nt•l20 THEN LET c:f • "(l N:

10 : it : it : ii : i.n:ig : th : i• : htl .. -
415 IF m"' 123 fHEN LET c:f • "

416 IF m• 160 TH EN LET cS•" ~

1h : i e : if : if : i I : i e : i l : id> "
417 fF m• t63 T HEN LET c :f• "

418 IF m=190 TH EN LE T cS=" (.!.h.:

1e: i &: 1d : 1 • l"
41 9 IF "'""193 THEN LET c S •"

420 IF ffl•220 THEN LET c S•" C.!..Yl

io: 1r: i kl"
~m• 22 :S THEN Lt::T c:f•"

422 IF m•:SOO THEN LET c::f• " (!!:!,:

ie : 1w: ic: : 1a : i• : it :1 l: i•l"
423 fF m• 303 THEN LET c:f •"

424 IF m• 400 TH EN LET c S • " liE :

i d :i i. : in : ib :i u :i r : ig : ih) " -
425 IF mz403 THEN LET cSc"

426 IF m•450 THEN LET c :f:c"(~

lu : in : id : i • : i &l"
427 IF m• 453 THEN LET c::t:•"

4 30 IF 111•20 OR m""-23 OR m• l OO OR
m• l04 OR m• l 20 OR m• 123 OR m•U1
O OR m• 163 OR m•190 OR m'"'193 OR
m•220 OR m• 223 OR 111•3 00 OR m• :S03
OR m•400 OR m• 40 3 OR m• 4 :50 OR lfl

• 453 THEN PRI NT AT 4,1 5 ;cs

500 LET c• INT ( FINO •3 0>
502 IF t >9b ANO t< 101 OR t <• 2
83 AND t >= 280 THEN LET c • 10
:SO:S IF c: <> 1 OR 1 • 0 THEN GOT
0 8888

~HO IF c:• l THE N PRINT AT 7, 0 1

"H T : le : ix : i • : tc : to : 27 tt sp : 198: 2•
5
g11°:ei:
*~):::,;:c~EU
EEP • t~,23
0
~ ~·5 , 23 , B

513 IF c:• 1 THE N PRINT AT ,11,b+

1
I ;;~ii:1~~:
p:igB>";
K'':- AT •-2 ,b;"
1,b+l j ..
<lT : ienx
Ii 9B : 2 ••
: i• :
1
---------------------------- .... ~~INT AT 1 0 , 0; "Pa nc• per g
your• "lsp : IA : ib: • llon: ";p
i• : ir : id : i • : i i! : l n : i gB : •~
4,4; "(!!_ 520 PRINT "Do you want to ft l l
ig8)";t;"<3 • ig 8 > "; AT 5 ,4; 1-1p?": PAUSE 4 11~
~i&:l • : i~ "13 • i98 :i n : ii : 540 PAUSE O
54 1 IF J Nl(EYS • "N" THEN CLS :
400 i F £<1 0 AND t ) .. 0 THEN PR GO TO 8888
INT AT 2, 4:"19*i98)"; AT 3 ,4: 5 42 PRINT "Do you wan t t o f i 11
: 1e: 1r: id : 1 e : 1e : 1 n) " : "~ig:
:!~:1 b up to the top ?" : PAUSE 0 : IF
INKEYS m" Y " THEN GO TO 550
.. (!!.!.9.!) ";t; 544 IF INKEV-. •'"N' ' THEN PRINT
"l~l": AT 5 , 4 : "How m•ny g.i,J l on s do you w• nt ?
"t211tq8: im : 11 : 1 I : i•11 • : ffll nt mum: 0 . 1 g•l l on •
ma.1<1muin: " ; IO-f;" c.i•l l on a " : INP
~; c:a">h • 0 OR f <• 0 THEN UT ,
PRI NT AT 2 , 0 : "G•m o ov•r LOST' 545 IF i>10-f OR t <0 .1 THEN IN
375 LET t= :500-m ": POKE 23658,0 : STOP PUT 1 : GO TO 545
380 IF t >99 THEN PR IN T AT 2,5 4 0'5 I F m >• 400 ANO m <• 403 OR 546 PRINT 1 :" gallons cost• ";1
: "(9•i98> "; AT 3 , 5; 111 ,• 223 ANO m >• 220 THEN PRI *P : " pence" : LET c•-.h•c.a•h-i •p:
" ligB : iA: ib: ie : ir: id : 11
PRINT " Cash : " : c::•11,h: " pance": LE
~) " ; AT 4, 5 ;
T f•f+i : GO TO 5 70
T ,S; '" 13 •i g8)";t ;" C3• ig8) "!, (~ 550 PRINT "To ft I l up you Wl 11
5

*33g
NT
=n~:!~4!A~r~
<~&o 1

AT 2 , 4;:"1~)"
1
,~~
; AT 3 1 4;
PRI
ne•d
555
·• : 10-f;
PRINT
" G•llons
10-f;" g•l
"
1 one co a t •
"; 110 - f)•p
"iA:ib : i • :i 557 LET c••h•c:..a!lo h-( 10-f) • p : LET
r : id :l • : ie : in :2• 1 98)"~ f • lO
"<4 •ig8> "; :i60 PR INT "C..i.a h: "; [Link] :" p•nc:e
t;" (3 1H98> "; AT 5, 4;
"C:3 • ig8 : im: i I : il: i 11: 570 PAUSE 4 114: CLS
lt. : i qBl " 410 IF 111 ""20 THEN LET cS • " US: i
t : 1.:iA : il : 1b :i. a : 1n : i •> " -- 8888 GO TO 70
391 IF t >9.9 AND t(97 THEN PRI 9999 BORDER 7 : PAP ER 7: JNt< 0 : C
NT AT 2 ,4;" <~>" ; AT 3,3; 4J 1 I F m•23 THE N LET c:S"""
LS : POKE 236 92,255: LI~T

SINCLAIR PROGRAMS August 1984 53

 Doesyour
computer
serve
drinksl
There's a new world of high technology
opening up - a world where menial tasks
are no longer a chore, but have become a
challenging source of inspiration,
enjoyment and problem solving.

PRACTICAL ROBOTIC S is the first

magazine solely concerned with this
rapidly expanding new area in software
and hardware.
So why not subscribe NOW and who
knows , one day , - breakfast in bed?
HIRE
SPECTRUM
ANDZX-81SOFTWARE

ftiiaai1ca
•...................... ,
1OOs of best and latest programs available
for you to choose from, selected for quality
and variety. We don 't stock cheap rubb ish.
We want you to be satisfied when you join .
We underta ke to send orders by return of
Mail to:
PRACTICAL ROBOTICS , ECC Publications Limited pos t whenever possible. Hire up to three
2, Newington Green Road, London N l 4AQ tapes at a time and you only pay £ 1 each.
Yes- I'd like to subscribe to PRACTICAL ROBOTICS
(6 issues - price £6 inc luding P&P) SPECIAL INTRODUCTOR Y OFFER
I enclose a cheque for£ ------- - - Join now before Sept 30th and you only pay
£5 to join and you will receive your first tape
Please charge my credit card: free.
Cardname -------- -----
Numbe r
Name_ _________ ____ _
HAMSOFTWARE
LIBRARY
HAM LANE, ELSTEAD, SURREY, GUS 6HQ
Address _____________ _
I enclose cheque/ PO to, £5. 00 for Me membership .

Signature Date ____ _

NB: This offer applies to UK subscribers onJy.
Overse as rates available on request .
I •••••••••••••••••••••••

54 SINCLAIR PROGRAMS August 1984

 •••andaccessan
ofnews,view
Games

Travel

Toorhcr
Spectrum
Simply by connectingyour 1'SefS

Spectrum to the telephone line, via

the award-winning Prism VIX 5000
communicationsmodem, you can get
to all the information,games and
communicationfacilitiesheld on Learn a language.
viewdatamainframes. The choice is simply vast.
So,you can link into a varietyof Plus,your Prism VIX 5000
services,includingPrestel and allowsyou to communicatedirectly
Micronet 800. Accesshundreds of with other Spectrum owners.
softwareprograms-many completely And now,our SRecialoffermeans
free~Talk to [Link] up-to- that xou can do all this for just £ll*a
date with all the latestnational, month. So complete the coupon and
internationaland micro news. Play send it to us today,and we willlet you
on-screen [Link] sports have fulldetailsof our unbeatableoffer.
[Link] entertainment • All pnett(I\IOttd !l,(l'rtodomntit· u~ooly . Forbu)l- 11.C
c-Mrse-1s£[Link]'Of'Cb
thePrcstd:1nn11a
usincssukN ,.·illbeb,llcd£44 .!>0~rqu ~ntr
l..UR<hnc

SINCLAIR PROGRAA1.SAug1m 1984

excitingworld
s,facts&fun!
,eH••••
.......··"····
J• o r,ac111. • •• •
,,., ... , • •••••uc•t
11,

·~
n ••••••••••
,1,,0.,••,r.••o•••
..
U

.........
ru1<
"'..
..••••••
........... ······ .....
c;ooo• •• ,,..,,.•••
...........
11

... ........
•• 1•0•••
IUOICOll'Tl
1 o,,, ..
• •t

............
~
......
···•• ••r.• '"'""" •• c.•••• •••

Swapping [Link] Shopping

Latest news I
•• ,,,.,
, •o··• olf
o.,o<, •• ""
,o•••••••
'"'I••.. ooo..., •• ·,,
P• u,~o· ,.,
, ·~• .. •0 0 11 , 1u , .. '" <••o••""
......... , .... 01 luP•o•• L ........... L ••• I• I
............
,.,.,1e1 ••C o '"'""""""••>Tiii

...........................
MILOeT ....... ITl'110N

.,.,
PlOIH"L
••,e••
IAIII
., ...••
...OOIOL•ND
,,,, ..,.,, .. , . ..,. .. 11 .....
"l'I
,.,

News Competiliom Telesoftware

Booking Mailbox
Pr ism Microprodu cts Lid .
Prism l loo'ic, 18-29Mora Street
FORJUSf £11* AMONfHYOUWILLGET ~ Ci" - [Link].l..ondonECI\' Slff =:
• A Prism vrx 5000 worth £99.95. Tel: 01-2532277 SE:

• One year's subsc ription to Prestel

I to Spearum [Link] information on your special offer 9 I

worth £20.00. r;; ease send me
• One year's subscription to Micronet
worth £32.00. I Name: I
• Fr ee user-to-user software-norma lly
retailing at £19.00.
I Address: I
• Quarterly hardware and software offers . I I
• Disco unt ed software th rough Micronet
(up to 20% off retail prices).
I ______
L ___________ _JI
SINCw\lR PROGRM\S Augutt 1984 57
 24 x 24 GRID FOR H.R. GRAPHIC DESIGN. 200 CH. STORE. VIEW AND EDIT
UP TO 9 CH. - CHOICE OF 9 FORMATS - ROTATE - MIRROR (HOR. OR
VERT.) - MENU DRIVEN - KEYBOARD/JOYSTICK CONTROL - TOOLKIT
INCLUDED TO USE U.D.G IN YOUR OWN PROGRAMME
TRADE ENQUIRIES : ANIROG SOFTWARE LTD. 29 WEST HILL DARTFORD KENT (0322) 92513 / 8
MAIL ORDER: 8 HIGH STREET HORLEY SURREY 24 HOUR CREDIT CARD SALES HORLEY (02934) 6083
PAYMENT BY CHEQUE P.O. ACCESS/VISA
 MOLf
-41JJ41CK ESTROY the castle by releas-

D ing bombs and directing them

to the turrets. Each time you
drop a bomb the mole moves one step
nearer the base of the hill on which you
are standing. If the mole eats its way
through the base of the hill it will
collapse and you will fall to your doom.
Mole Attack was written for the
l6K Spectrum by Mark Rowland of
Hiltingdon, Middlesex.
o Go sue 1000: 0,60,24,60, "O" ,60,60,60,56, 16, 16 4070 IF r-S:• " n" THEN BO TO 7020:
10 GO sue 4000 , 16,60, "E " ,0,64, 253, 127 1 14 1 62,25
15 GO "SUB 8000 : BORDER '!5: PAPE 5,25 :5 4080 GO SUB 7000 :
R 7 : CLS 1070 DATA "F", 192,252, 127 ,63,63, 4090 RETURN
20 LET vl • IO: LET c:o=O: LET ol 127 ,252, 192, "G", 1'i'5, 23 1, 126, 126, 5000 LET ol • vl+Dl: PRINT INK O;
• vl+Dl 126, 126,60,24, "H" ,0,32, 126, 2:54 , 2 AT 21,ol;".!:!.."; AT 2 1,ol+ t : " ": L
25: INK 2 : REM • •tup M 55,38,99 , 193," I" ,66, '36,2 4 , 129,66 ET Vl""Vl-1
30 PRINT AT 3,0;"~l"j AT 2 , 165,90,25:5 , "J", 129 , 65,66,34 , 20, 5020 IF o l • O THEN GO SUB 6000 :
0
' !~(~Ok
9
:~~ TO 5 : PRINT AT • , 0
28, 157 ,24
1080 RETURN
GO TO ~40
5030 RETURN
2000 : FOR i • 1 TO 20 : 5040 PRINT AT ll, 3;"TME MOLE AT
;"~~·~g=>~~6N~~Tq~ PRINT AT b,O 200 5 LET q=y E THRU TME MILL"
2008 PRINT Al I , q+ 1; •• 5050 GO SUB 8040
;"~g*~~~>~:l~E~~ ~5: PRINT AT c 2010 PRIN T INK 0: AT i - 1, cn" 5060 IF AS <> "y" THEN STOP

,.
,O;M<~)M: NEXT c : REM 4 bloc: AT i ,q;"~'
2012 IF ATTR 120,q) • TI THEN LE
:5070 CLS : GO SUB 4000: GO TO l :5

70 FOR d=16 TO 20: PRINT AT d T c:o•co+l 6000 FOR t • 20 TO 2 STEP -1

,. --
, 0;"(5 *ig 8)": NEXT d : REM 5 bloc

80 INK 4: FOR o• O TO 31 : PRINT

2022 NEXT i
2025 GO SUB 5000
202Ci' IF c:o < 152 THEN GO TO 245
6010
6020
PRINT
NEXT t
AT t , O;"

6030 PRIN T AT O,OJ" " ; AT l ,Oi"

BRIGHT l; AT 21 1 e ;• ·(~" : NEX
T 11: FOR g • 5 TO 17: PRINT BRIGH 2030 FLASH 1: BRIGHT I : FOR t • O 6040 FOR c•l TO 20 : PRINT AT 5 1
TO ; AT 20,g;"UgB)" : NEXT g : PR TO 30: BEEP , 1,t: NEXT t : PRINT :S;:£_" ; AT s+l,3 ; '.'...Q.
"; AT a- 1, 3 ; "
INT AT 20 , 27 ; " 1"S'i"ig8)" AT 11,:5; ••you DESTROYED THE CAST " : BEEP • 04, INT ( 18/5)
82 PRINT IN K O; AT 21 , ol+l; ",!! LE"; AT 12,4; "AND YOU WERE ":ol : 6050 NEXT s
"SPACES FROM" ; AT 14,14;"DEATH" INK 2i AT 21 , 3 ;"!.";
.. 9~1;.~m-
6060 PRINT
5
) .. ~ A~N~5~~ ; ~~::!, ~T A~
0
2040 JNPUT "ANOTHER GO ly/nl" '; bf'
AT 20,3; N~:
6070 RETURN
BEEP . 6,-30 :

fil ;b:A;E~ , :~:~" - 204:5 FLASH 0 : BRIGHT O

7000 CLS : INK 0 : PRINT
t d•ctroy the cast l •
" You mus
b•for-•
100 FOR f:19 TO 26 : PRINT I NK 2050 IF btl < > "y" THEN STOP t h• molR CJ:il eat5 hia way thr-oug

:~; ~~i~~j~,;
Tf-
"!~'~~;~~~g~; "~T
N~:
-
2060 GO SUB 4000 : GO TO 15
3000 FOR l • 30 TO -30 STEP -1..: BE
h the b-,5e of th•
ds you pJunging
hi 11,
to you r-
.ir,nd sen

EP .08 ,1: NEXT l : PRINT FLASH 1 DEATH"

~1~~~:N!T ..:t
~~2;; 17,IS;"f! f!
; AT 11,12;"BAO
3010 GO SUB 8040
LUCK''''" 7010 PRINT
•Y 'I ' to
'"B•gin by prea51ng
sta r-t the f i rt ng of
k

120 INK 1 : RE M nio1.n+gun 3020 IF AS <> "y' ' THEN STOP tha bomb5 [Link] th• ' 0' k•y to
130 PRINT AT 0 , 0; "£."; AT 1,0;" 3030 CLS : RETURN dr-op thv bomb"
.!?.;bo ~~..
A;A~S~; 4000 BRIGHT 0 : BORDER 0 : PAPER :5
: CLS : BEEP . 1,0: BEEP , t ,4: BE
701 5 PRINT
y i a pr• • ••d
'" Each tim11 th•
the ff'IOlat mov • 1o 1 at
0 k•

205 IF INKEYtl z " 1" THEN GO TO EP .1,7 : BEEP . 3 ,12 : BEEP .1 1 7: 1tp n • •r-•r- to you r- DOWN FALL
220 BEEP .6 1 12
206 GO TO 204 400:5 PAUSE 3 7020 PRINT '' '"DIFF I CULTY Cl TO
210 GO TO 200 4010 BEEP . 1,12: BEEP . 1,7: BEEP 5) : - 1:sHARD
220 FOR y • 2 TO 30 .1,4: BEEP . 3,0: BEEP . 1,7: BEE : - 5•EASY"
225 PRINT AT l ,y;" E" P . 6,4 7021 INPUT O 1
230 IF INKEY:f • "0" THEN GO SU 4050 PRI N T FLASH l; INK O; AT 5 7025 IF D l < t OR 01>5 OR 01 < > 1
B 2000 , 11; "PRESENTING'' NT D 1 THEN GO TO 7020
240 NEXT y 4053 INK 1 : PRINT AT 10 1 3;" (3 • i 7030 CLS : RETURN
2 4 3 PRINT AT t ,y;" " g3 : 3 • cp : igl: ig3: ig2:3•ap: 3 •1g 3i3 8000 INPUT "DAY LIGHT(l) , DUSKtOl
250 BEEP .2,20:
1 OOO FOR W"' O TO 9
GO TO 2~
46~4 *At:~;:~;:~::r
3
PRYijf !;..
3
1 g3 :
";El
800 :5 IF El <> INT El OR El<O OR
1010 READ 5:f
I 020 FOR uzO TO 7
1030 READ r-: POKE USR s:f:+u,r
~==~~!~~~::;r:!~~2~t!~~
40:55 PRINT AT 12,3;" <2•tg3 : 192:
El >t THEN
8010 BRIGHT El
8020
60 TO 8000

IF El • l THEN LE T Tl•l21 : R
1040 NEXT u 3•cp : t9l:i98 : i92:3 • ap : ~ ET URN
1050 NEXT w 3 • a p : 191 : 19:i: ig2: 3 • 5p: tg5 : 2 • tg:S: 8030 LET TI • 57 : RETURN
1060 DATA " A" 1 2 19,219,255,255, 12 3~" 8040 IN PUT "AN OTHER FEEBLE ATTEM
6,255,255,25:5, "B" ,24, 126, 213,42 , ~ INPUT "INSTRUCTIONS: (y/nl"i PT?-(y/nl";AS
213 , 42,2 13,42, ··c~ ,56 1 127 ,60 , 62,6 8050 RETURN

SINCLAIR PROGRAMS Augurt 1984 59

 ; bMo~~·8,~B~t.2 M"~•~,, c • 01,f+g: NEXT f
1310 PAUSE 3 : NEXT g
3:::550 NEXT g: NEXT f .
LS 3555 PRINT AT ex ,d x+ l;"
10 FOR f•O TO 7 : FOR 9 =0 TO 7i 1500 PRINT AT aix,bx; BRIGHT 1; 3556 PRINT AT ax,.f>C+l ; "
READ a : POKE USR CHR:S (J.q4+fl INK :i;"A" 3560 IF l 1 • 0 THEN GO TO 4000
+Q,a: NEXT g : NEXT f 15 10 IF INKEY$ • "Cl" ANO ;ir,x)5 TH 3580 LET dx • 28
20 DATA 192,24 0,80,127, 127,SQ, EN LET .ix••x-1: BEEP . 001,60: P 3584 LET f x ,,.79
240, 192 RINT AT •x+l ,biq" " 3b00 RETURN
30 DATA 0,0 , 0,255,255,0,0,0 15 20 IF INKEY:J • "2" AND ax<16 T 3700 PRINT AT 11 1 5; INK 4;"80NU
40 DATA 0 , 1 1 31,99, 127 ,31, J ,O HEN LET ,1x•,1x+l: BEEP . 001,66 : S GUN"; INK:::!; BRIGHT t;" + "; B
PRINT AT •x-1 ,bx;"" RIGHT 0; INK 6: "200 POINTS"
50 DATA 48,248,24,238,238,24,2 1:130 IF IN KEYt: = " P" THEN GO SU 3705 FOR n • O TO 1
48,48 9 3000 3710 FOR g • O TO 40 STEP 4
bO DATA 24,73,214,143,47,216,3 1540 IF l NKEY$ • " H" THEN PAUSE 3 720 FOR f•O TO 15 STEP 4
4,24 0 3730 BEEP . 02,f+g : NEXT I: NEXT
70 DATA 0,12,62, 199, 25'5,62,120 1600 PRINT AT cx ,dx; BRIGHT J; g
INK 2i "t-.1): ·• 3740 NEXT n
80 DATA 15,62,124,216,216,124, 16 05 PRINT AT a x,fx; BRIGHT O: 3750 LET li • li+l
52, 15 INK 6;".E§." 3760 FOR f • I TO 40: LET s c •s c:+5:
90 DATA 255,t,l,1,1,l,1,1,~5 161 0 LET dx*'d>C-2 BEEP .001,45: PRINT AT 0,6; PA
1620 LET fx • fx-1 f"ER 2; INK 7; sc: NEXT f
100 FOR f •5 TO 16 1630 IF dx • 0 THE N GO sue 3500 3770 FOR f•5 TO 27
510 PRINT AT 5,0 : INK 6;" UP= " 1634 l F f lC•0 THEN GO SUB 3500 3780 PRINT AT 11,f;' ' '' : NEXT f
"Q.... OOWN• ""Z"" FIRE •" "PN""
515 PRINT AT 7 ,O; INI' 6; H
1700 IF s c > tOOO AND s c < lt OO THEN 3790 PRINT AT cx,dx;" "; AT
HOLD•" "H"" " Go sue 3700 a>C,fx ; " "
520 PRINT AT 9,0 : IN!". 3 :" 25 1710 IF s.c >JOOO ANO sc <3 100 THEN 3800 LET dx ...28: LET fx=29
POINTS 55 POINTSN GO sue 3700 30 10 RETURN
5.30 PRINT AT 9,0 : INY b: ''.£.!!.'.' 1720 IF sc>:5000 AND ac <5 100 THEN 4000 PRINT AT 10, 7 ; FLASH 1; IN
Go sue 3700 K 5; "G A r1 E O V E R"
5 40 PRINT AT 9.13: INK 2 : "CD" 1730 IF sc: ) 700() AND s c < 7100 THEN 4001 FOR f=O TO 100: BORDER 7: 0
60 SUB 3700 UT 34300,20 : BORDER O : NEXT f
5 50 PRINT AT 12,3 : f'APER 17' P
RESS ANY f EY TO START" 1990 PRINT INK 0 : AT 0,01 PAPER 4002 FOR f•O TO 100: BORDER 7 : 0
570 FOR F .. 2 TO b 4J"SCORE "; s c; AT 0,25: "LIVE S " UT 34350, 100: OUT 34300,20: BORD
580PRINT ATO,O : lNI f:" ;11 ; AT 0, 11;"Hl : " : h1 ER O: NEXT I
2000 GO TO 1500 . 4005 FOR f •0 TO 1
CAVERN BLAST
25 50 NEXT g : NEXT f 4010 BEEP .1, -30 : BEEP .1, -20 : B
590 IF JNKEY 1" •·•· 1t1FN r:t s
: 60 TO 1000 3000 FOR 1• 1 TO 2~ STEP 3 EEP .1,-17 : BEEP .1,-2 3
595 PAUSE 14 3010 PRINT AT • x ,b>c+f; INK I:"!!_ 4015 NE)(T f
88" 4020 PRINT AT 12, 3 ; "C AVERN FORT
600 NEXT f
3020 NEXT f RESS DESTROYED' "
610 GO TO 570
1000 FOR f .. 5 TO 16 3025 BEEP , 004, 20 : BEEP • 004 , 40 4030 FOR f•-15 TO -35 STEP -5
4040 BEEP . 13,f
100 5 BEE P • 005 , 20
10 10 PRINT Al f ,O ; JNI<'. 6; PAPER 3030 PRI NT AT •x,bx+l;" 40~ NEXT f
l;"H" 4060 PRINT AT 14,7;"YOU HAVE FA
1020 NEXT f 3040 IF • x • cx THEN PRINT AT ex ILEO!"
I 030 FOR f mO TO 25 5 ,d x ; INI<' 6 : PAPER 2: " EE" 1 F OR f= 4070 FOR f "'O TO ~~
1040 PLOT JN!... 4;f,17 5 O TO 4: BEEP . 001,55 :NEXT f : LE 4090 BEEP . oo~. 10: BEEP . 005,20:
10 50 DRAW INY 4;0, RND ,o.-J0+ - 9 T !lc•sc+55: PRINT AT ex ,dx : " " BEEP .oo~.o
: LET ex • JNT ( RND "1 0)+6 : LET
1051 PLOT INK 4 ; f ,O d x• 28
105 5 DRAW INK 4: O, RND • 36+3 3050 IF •x•a x THEN PRINT AT ~)(
4090 NEXT f
1060 NEXT f , fx: INV 6; PAPER 2; "EE" : FOR f •
4100 IF 5c ) h1 THEN LET hi •s c
1200 LET ,1x•12 O TD 4: BEEP ,001,55:NExT f : LE
4200 IF 1 i •O THEN GO TO 4300
1210 LET bx • I T sc=1ic+2:; : PRINT AT itX,f)(:" " 4300 LET t • PEEK 23672 + 256 • PEEK
1220 LET ex'" INT ( RND "1 0 > +6 : LET ex• INT ( RNO • 10>+6: LE T 2367'.l
12 30 LET dx = 28 fx .o29 4400 IF li.,O THEN PRINT AT 18,
1232 LET •x"' INT ( RND ~1 0)+6 3 100 RETURN 3; INK 5; "YOO LASTED "; t/50;" SE
1235 LET fx • 28 3500 LET li • li-l CONOS"
1240 LET •c•O 3510 PRINT AT 0 1 31; PAPER 4: IN 4450 IF JNKEYS ( > "" THEN GO
1250 LE T l 1= 4 K O; FLASH 1: l I TO 445 0
1260 POKE 23672,0 : POKE 23673,0 3520 FOR f • O TO 4 4500 IF INKEY:t: • "" THEN GO TO
3:S30 FOR g •? TO l STEP - 1 450 0
1290 FOR g•O TO 20 STEP 5 35 40PR1NT AT•x,b>e : lNKg:"tt' 4b00 CLS : GO TO 500
1300 FOR f • -10 TO O STEP 3: BEEP 3545 BEEP . 00 1,g+55 9000 SAVE "CAVERN" LINE 1

60 SIN CLAIR PROG RAMS August 1984

 OLLECT FOOD supplies for

C the penguins from a remote area

of the South Atlantic . When you
leave the boat you discover that the food
is stored on an iceberg which is melting
slowly. You have the ability to jump out
of deep holes and also to dig and fill in
the smaller holes .
Iceberg was written for the 16K
Spectrum by Kim and Kerry Tomlin-
son of Parkside, Stafford.

1 LET h1cO 70 PRINT AT y,x;"jt': IF b•l T l'"'x-1: GO TO 43 0

8 FOR n•O TO 47 : READ r : POKE HEN PRINT INK 2; AT y-1 , x : ''£." 425 GQ TO 4 10
USR ".a"+n,r : NEXT n 430 IF ATTR (yl,x1> • 47 THEN L
10 DATA 0,51,204,0,51 , 204 , 0 , 0, 80 LET 111•111+1: IF m• di •9 Tt-lEN ET yl ,..y : LET xl•x: GO TO 70
24 ,24 ,o, 126,24,24,24,60 GO TO 300 43:5 PRINT AT y,x;" "; AT y-1 , x
11 DATA 255,127,63,31 ,1 ~,7,3 ,1 85 IF INKEV$ • "b" THEN GO TO
, 255,254,252, 248,240, 224, 192, 128 ,oo 440 PRINT AT yl 1x 1; "@..": PAUSE
90 IF lNKEVS • "?" THEN GO TO 500 : PRINT AT yl,xl;" .. ; AT y1-
12 DATA 2:5:i , 102, 102,255,2 55 ,25 400 11x t ;" "
5 ,255,2 55 95 IF INKEVS: '"'''0" AND ch>O TH 45 0 IF xl .. x+l THEN LET xl"'x+2 :
15 DATA b0 1 24,24,102,243,245,t EN GO TO 200 LET x=x+l
26 ,60 100 IF INKEYS • "8" THEN LET x 4b0 IF xl • x-1 THEN LET ,cl•x-2 r
37
LET 5c"'O: LET b•O: LET :::""0 : l•x+l : PRINT AT y,x; " ••; AT y -1 LET x•x-1
LET
f-"'0 : LET 111•0: LET x 1• 19: LE ,x;" " 470 LET y • yl : GO TO 120
T yt • t9: LET x•l9 : LET y • J',' : BOR 110 IF lNKEYS • " '!5" THEN LET x '!520 IF INKEY:S . ..5 .. THEN LET x
DER I : PAPER 5 : CLS : LET i S"'" <.2_ t • x-1 : PRINT AT y,x;" "'; AT y-l 3•x-1 : GO TO 537
~ .. , x :" " 530 IF INKEV:S •"8" THEN LET x
40 PRINT AT 0,12;"<1I :1C:iE: i 120 IF x 1(0 THEN LET x l •x 3•x+l: GO TO 537
8 : 1E: iR : iG> "; AT 3,2 ; "You Mus t f 125 IF ATTR (y1,x1> • 47 THEN L '!535 GO TO 520
i 11 your- boat with p en guin me ET xl•x 537 IF i: • 1 THEN GO TO COO
.ilt s upplys fr-ol'II .il r•mote .are.a t30 IF ATTR (y l+l, xll•40 THEN 540 IF ATTR !y,,c3)~47 THEN GD
of ic:el•[Link] you find 1t i s LET yl • y+l: [Link] f"'O TO 70
an 1c:•bero m•l ting bene .. th yo 13'5 IF ATTR (y1-1,x1>•40 THEN :550 IF ATTR (y+t ,x3>s-40 THEN
ur feet 'C•n you g • t t PRJ NT AT yt-1,x t;" N: AT yl-2, GO TO 70
he aupp l 'ys?" xl; "" :560 PRINT AT y+l ,x3;" "; AT y,
4:1 PRINT AT 10, 10 : "5 • left B•r 14 0 IF y+l • 21 THE N GO TO 1000 x3;" •: LET i:•i:+l
ight 7(th e n 8 or 5)•Jul'II 5b5 PAUSE 500
p" 145 I F y•19 AND x1 • 19 AND b•l T 5 70 GO TO 70
44 PRINT AT 12, 2 ; "b(then 9 or HEN GO TO 700 600 IF ATTR (y+1,x3):o 4 7 THEN
:n•fill tn/dio out (.illt e rnate 150 LET xaxl : LET ycyl GO TO 70
) - ONLY ON A LEVEL < <2 •199 ) n 155 JF x"'O ANO b "'O T HEN BEEP • 610 FOR h •y+ l TO 20

~;,4~?.g:~:~>
45
~~ ~!9~~~~8~~l~"AT
INPUT "DIFFICULTY 2 TO 9 ";
l ,.'!5: LET b"'l
160 GO TO 70
020 lF
GO TO b50
ATTR (h+l , x3)• 47 THEN

~00 PRINT AT y, x ;" ": AT y-1,x 6:S.O NEXT h

di : CLS : " ": LET Y'" y-10: LET x.:x+l: LET 640 GO TO 70
4b LET ch=d1 yl•y l -10 : LET xl ., x t+l 050 LET y3 .. h : PRINT AT y3,x3;
49 LET LET ba•O
m•O: 2 10 LET ch • ch-1 : PRINT PAPER 3 INK 7;M<~>"; AT y3 -1, x:S.;"<~
50 PR INT BRIGHT 1; PAPER 1; I ; AT O,B; eh : FOR l •O TO 50: NEXT ": LET z•O; GO TO 70
NK 7 : AT 21 ,0; "AAAAAAAAAAAAAAAAA 1:GOT070 700 PRINT INK 2; AT 19,2t+ba; ~
AAAAAAAAAAAAAAA" '300 LET x2~ 1N1 ( RND •1 2)+1 £"; AT 13,o;::r:.·: LET ba • b.a+t : LE
51 PRINT AT 20,20; "CEEEEEEEEE 30 5 LET t ,. 14+ INT ( RND .. (y - 11 . T b•O : LET •c•s c + t: IF b••IO THE
.iQ" --- -
7)) N 130 TO 800
57 PRINT PAPER 3 ; AT o,o; "CHA FOR g • t4 TO t : f>RI NT
'307 AT q, 70~ BEEP • 3 ,ba/2
NCES •" ; ch J" DlFFlCULTY'"":di; '• SC x2:" N: IF ATTR (g+t,x2)><47 THE 710 PRINT PAPER 3; AT 0,29 ; •c :
ORE• "; sc ;" " N GO TO .:SOB-+ AND • 2 GO TO 70
bO FOR n•20 TO 14 STEP -1: PRI 309 NEXT 9 : GO TO 31 2 800 PR INT AT b,:S.;"WELL DONE! . N
NT AT n,O; INK 7;1,J( TO n): NEX 310 F'RHH AT Q+l ,x2:" EXT SHIP MENT'" : FOR 1•0 TO CO: N
T n 312 LET rn•O EXT 1 : PAUSE 0 : CLS : LET di•di-
b2 PRINT lNK b; AT 3,25;" <2•i 320 PRINT AT y,x;" AT y-1,,c l: GOT049

~~~; F~~ ~~; ~~ <1;! 5 2~~~CLE I:-

;" ":
400
GO TO 100
LET yl•y-1
1000 IF sc:)hi
1001 PRINT
THEN LET hi •sc
AT b,6; "You Have Ora
b;207, 144,n : NEXT n 41 0 IF INKEY:S -A eu THEN LET x wn e d" ' ; AT 9 1 13; ..hi•" :hi
bb INK O l • x+I: GO TO 430 1002 FOR 1 cO TO bO : NEXT 1
b9 PRINT AT 13,0 ; "f:.'.
' 420 IF I NKEVS- • "5" THEN LET x 1003 PAUSE 0 : GO TO JO

SINCLAIR PROGRAMS August 1984 61

 G
UESS WHAT was wfJnen for
the 16K ZX-81 by David
Hughes of Tunbridge Wells1
Kent and is a game for two players.
Choose a subject and then choose a
word up to eight leuers long. Players
then type-in words without showing
them to their opponent. A section of the
screen is blacked-in and the words are
then built gradually so that they appear
in silhouette against the black back-
ground . The object is for you to work
out what the word is before it is com-
pleted.

(i~[55
WHH1
~
S40 COTO 000
e:se INPU T lilt
;'~~u 1
~Rei·s~,I~IS ;~i!~o~l!M:,!
RT 19,0; " UORO RNO YOUR e»CORI! I!.
"i;gs PRUS! 300

,..
,,.
1

?40 I,. Z•3 THl!N Nl!U

7S0 If"" Z•:iil THl!N GOTO 1
760 L~ 1"•1"+1
770 GOTO ~0
1000 !.RV! "GU!!!.!. UHAil "
1100 GOTO 1

62 S1NCLAIR PROGRAMS Augu111984

U
SING the facilities in ZX-81
Animation produces an ani-
mated picture. There are five
pictures used to create the animation
but that number can be changed when
creating your own scenes to allow more
pictures to be used. T o enable more
pictures to be drawn, cha nge line 10 to
DIM AS (10,704) and line 3070 to FOR
N ~ l TO 10.
Written for 1he 16K ZX-81 by
Gareth Poxon, aged 11, of Kirkhouse,
Cumbria.

ii §i~ ~~~~/~li~I! IN &TRINO

40 PRINT " HtL.L.0"
uI~e~~a~I ei *6°;"~~o~ ~~~e~~~s
ANO l!NR8L.E YOU TO V!IU , RHl!NO OR
COPY THEM"
!Iii PRINT
54 PRINT "ORRUINOS &TOREO UITH
PR!VIOUSL.Y U&l!O NUM81!RSERRS! T
HI! [Link] DRRUINO"
55 PRINT RT 111, 0; "TO CONTINUE
PRESS [Link]"
61il I,. INK!Y I• "" THEN OOTO 50
101il CL.S
1llil PRINT " MENU "
liilil PRINT RT 4,0 ;" 0 : TO ORRU"
131il PRINT
Ulil PRINT "V: VEIU OR COPY"
150 PRINT
151il PRINT " R: RECORD DRRUINO&ON
TRPI!:"
1511 PRINT
1113 PRINT "N:RNIHRTE"
155 PRINT RT 110,0 ; "PRESS KEY CO
RRESPONDINOTO THE ,.UNCTION YOU
REQUIRE"
r~! I~ rnRi~z:
::e:::i:~,~
gs:i:s
~H
1'i111I,. INKEYl• " R" THEN GOTO 15111111
lil
l'i15 IF INKl!Yl•"N " THEN GOTO 30111
§:! ~e~o
lil
17111
31111PRINT " DRRU"
311111 PRINT RT 4,lil; "D: DRRU"
330 PRINT
34111PRINT "!!: ERASE"
3150 PRINT
35111PRINT "T:TRRN&PORT"
31!>5PRINT 43111PRINT "C : COPY"
37111PRINT "M:RETURN TO MENU " ;.315 PRINT
37!5 PRINT 4.40 PRINT " R: RMENO ORRUING CU!lI
3!10 PRINT "Kl!Y:5 3 TO 0 : CONTROL. ~G THI! SAME KEYS AS ,.OR DRAWING)
DIRECTION"
3!11 PRINT 4-4-S PRINT
3!111 PRINT 46111PRINT
3!15 PRINT " UHl!N DRRUING IS ,.INI 460 PRINT "UHICH NUHllER ORRUING
SHED PR1!5S S TO STOR1!1COPY THEN 00 YOU UISH TO VEIU 7 (ENTER
ENTER DRRUINO NUH81!RAND PR!SS N NUM BER THEN NEULINEI "
l!ULINI!" 4-7111INPUT Z
3'i111PRINT RT 111, 111; "NOU PRESS NE 4-Slil CL.!l
ULINI! TO START" 48!5 PRINT Al (Zl
jt; ~bTaN1~~&•"" THl!N OOTO 3115 4'i111I,. INKl!Yl•"H" THEN GOTO 11il0
4'i!5 I,. INKEYl• " R" THl!N GOTO 1011
1U
Y"
~~!NT "Vl!I U OR Vl!I U AND COP
0
&00 If INKEYS="C" THEN COPY
411111 PRINT RT i.,0;"M:TO RETURN H 505 GOTO i.'i0
!110 GOTO 100
ENU RT ANY TINE" 1010 CL.S
4115 PRINT 10111l [Link] X•311

SINCLA IR PROGRAM S August 1984 .,

 1030 LET Y•22 1
1040 G06Ue 11500 115ee IF Yd3 THEN GOTO 1590
10150 UNPLOT X,Y 1590 RET IJRN
1060
1070 PLn f0X0
2 000 INP UT A
2005 PRINT AT :a , 0 ; A;" ..
10e0 S8aue 151110 2007 FA5T
10;0 GOTO 10e0 ,010 FOR I•0 TO 21
1100 G06UI!! 1!!00 ,020 FOR J•1 TO 31
1110 PLOT X,Y
11:i0 UNPLOT X,Y ~~g~ KL!~:i~l!~s~:i~~~ l 1g~~~+5;5~*
1130 GOTO 1100 IJ
1'500 II' INKEYS• " D" THEN GOTO 104 2040 NEXT J
0 20'50 NEXT I
1310 IF INKEY S• "T " THEN GOTO 10e 2060 5LOU
0 2070 GOTO 100
1520 IF INKEYS= " S " THEN GOTO 200 3000 CLS
0 3010 PRINT " ANIMATE"
1530 IF INKEYS• " E" THEN GOTO 110 3020 PRINT
0 3030 PRINT "M:RETURN TO MENU"
1335 IF INKEY•= " M" THEN GOTO 100 3040 PRINT AT 21,0; " PRE5S [Link]
1540 IF INKl!YS="5 " THEN LET X•X- E TO 5TFIRT"
1 3050 IF INKEY S •' " ' THEN GOTO 30!10
1550 II' INKl!Y.="6" THl!N LET Y =Y- 3055 II' INKl!Y•• " H" THEN GOTO 100
1 3060 CLS
15155 II' Y:43 THEN GOTO 1590 3070 l'OR N•1 TO 5
30155 ~~i~ ~~ (~ '.0 ;
15!10 IF INKEY•• " 7 " THEN LET Y•Y+ 30150
1
1565 IF X•tl 3 THEN GOTO 1Sli0 3090 NEXT N
11570 II' INKEY••"6 " THEN LET X•X + 3100 If' INKEY••"M" THEN GOTO 100
1 3110 GOTO 3070
1572 II' INKEY.•"9" THl!N LET YaY+ 5000 CLS
1 5010 PRINT "SAVE ON TAPE"
1574 II' INKl!Y.•"9 " THEN LET X•X+ 5020 PRINT AT 4 , 0 ; "WHAT FILE NAM
1 E DO YOU WISH T O USE'? "
1576 IF INKEY•="0" THl!N LET X•X+ 5030 PRINT
1 5040 PRINT "ENTER FILENAHE ANO P
11578 IF INKEYS• " 0" THEN LET YzY- RESS NEWLINE"
1 15050 INPUT FS
15150 I I' INKEYS= " 4" THEN Ll!T XaX- 5060 CL::>
1 5070 PRINT "5TART TAPE RECORDER
115e2 If' INKEY•="4" THl!N LET Ys.Y+ IN RECORD MOOE THEN PRE55 NEWLIN
1 E"
Hil54 IF INKEYS•"3" THEN LET X21:X- 50150 IF INKEYS="" TMEN GOTO 5080
1
115156 IF INKEYS="3" THEN LET Y•Y- ~!~g ~~¥a
~~0

COSMICDUST~N
€E~fu2E~~!i
10 LET INK=PEEK 1631il!>+256fPEEK
11!>3!;)7+1
.!0 LET 5CORE•0
30 LET HI ~CORE•0
40 LET eORDER•1!141e
50 LET MEN•3
50 POKE eORDER,0
~~ ~2~z~·~ IIIPU

lr&aI AH,
100

1
i
r
Ll!T l'UEL • 1150
PRINT
PBM
f. ¥~
23, 1; "iNIM
40
130 LET PAPER•INT <RNOt560 J +INK
+e.6
140 I~ PEEK PRPl!R<>12tl THEN GOT
0 130
1150 POKE PFIPER,1515
160 Nl!XT I
17111~OR I•1 TO 20
1tl0 LET PAPER•INT (RN0•5!10 J +INK
+e.e.
190 I~ PEEK PAPER<>12e THEN GOT

Y
OU ARE the Cosmic Dust-
man and it is your job to pick
0 180
200 POKE PRPER,1 4 3
up all the rubb ish. Watch for the 210 Nl!:XT I
stars and black holes which must be 2:i0 LET HOOl!:•INK•315
230 LET MAN•INK+415
avoided but collect the mystery dust· 240 LET CHRR•141
bins to score points. Beware, as the bins 2150 Ll!:T DD•0
may conceal a black hole. 250 POKE MRN,CHRR
21!>15I~ Ml!Na0 THEN GOTO 1000
Written for the 16K ZX-81 by An- 21!>5 II' Rl!M•0 THEN GOTO 2000
drew Pitcher of Durs ley, Glos.

64 SINCLA IR PROGRAMS Aug1m 1984

 720 IF FOU:5 THEN GOTO 770
730 [Link] REH•REH-1
740 IF REM=0 THEN GOTO 2000
750 POKE MRN+D,12B
750 GOTO 260
770 DIM RSC5,31)
7B0 [Link] Rrll ="l:M:Mii·j,j@•iM#U ..

::'.::::::: ... ~
"?dtit'1111
4
B50
851
i!iii;:::::::
jl ~·11 L.
..a,-:,
i;,ww-·1-1,w
= N(RN0+6)+1
PRINT RT 0,0;RICMQN)
[Link] REM•REM-1
B52 IF REH•0 THEN GOTO 2000
e60 POKE NRN+0,12B
e70
900 GOTO
PRINT 260 llillllll!.......
RT 23 0; "•#ii•W
BBHAMJd
SUGOTO ..
...
930 100,.
P~fNT
7
f RT,.l0 [ ; "•e;11:-·c
!$ ..h~N!,~
..~-~;--
1040 IF SCORE>~EN
'.'.jSCOR
PRIN
i0s~c~~E~~O~E>HI SCORE THEN [Link]
HI SCORE•SCORE
1055 IF SCORE<HI SCORE THEN PRIN
THI SCORE;" "
1060 PRINT RT 3, 0; "iill[lli:1#1:ilij;j@j•
i70 POKE NOOE,1i8
i80 [Link] O•(INKEYl•"e")-(INKEYS= ,~70 IF INKEY$ <>"Y" THEN GOTO 10
"5") +334 ( ( INKEYS= "6") -(INKEYS•"7 70
" ) )
290 POKE NOOE,141 1080 CLS
1090 LET SCORE=0
300 IF PEEK <NRN+Ol•1i8 THEN L.E 1100 [Link] REM•20
T 00•0 1110 LET Nl!:N=3
310 IF PEEK (MRN+0)•1i8 THEN GO 1120 GOSUB 4000
0
Tg2i tF PEEK (NRN+Dl•155 THEN GO
TO 500
330 IF PEEK <NRN+D)•143 THEN GO
0
Tg4i tF PEEK (NRN+Ol•8 THEN POKE
11,sur•~i,;••
1130 GOTO 40

2020 POKE NRN-D ,12B

2030 LET REM=20
0
·- .........

g~~
OTO
·~F PEEK
i60
(NRN+Dl <>lie THEN G i031 FOR I=1 TO 50
2032 NEXT I
2033 CLS
400 [Link] NRN=MRN+O
410
4i0
[Link] CHRR•141
POKE HRN,CHRR
§~i~ g~z;g
;'.~05M IC DIJSTMA
3 030 GOTO 0
IIJ"
430 POKE HRN·D,1i8 4000 POKE 16418,0
440 [Link] FUEL.•FUE~-1 4010 FOR I•0 TO 23
~g~ ~bTbUS~00 TH N GOTO 900 4HI PRINT ....
800 FOR I•l TO 50
510 POKE NRN,B
5.!0 POKE NRN,1.!8
530 POKE NRN,8
540 POKE HRN,1i8
550 NEXT I
560 [Link] NEN•NEN-1
570 IF NEN=0 THEN GOTO 1000
580 GOTO 260
500 [Link] FOU=INT <RND+5)+1
510 IF FOUzl THEN POKE NRN,147
_;'-'l I F FOU:1 THla,N PRINT RT 0 0;
''ffi 118"\J!r.'f"¥iff't~
0
~o
Rgtl t~ FOU•i THEN POKE NRN,151
~~IFJ?~.! THEN PAfNT RT 0,0;
::=!!!! +i~IMUiMA~Wlllf I I

550 IF FOU:2 THEN [Link] SCORE•!CO

0 4 R I=1
Rg~i t~ FOU•3 THEN POKE MRN,1B0 4120 NEXT I
?! IF~Clli=3 n~EN Plrr NT eT 0. 0,
''pij@~i=!!!·-~hl!!!!!•§ • I
4130 PRINT RT 19 , 5 ; "PRE5S A KEY
TO PLRY"
4140 FOR I=l TO 5
· ~90 IF FOU:3 THEN [Link] NEN•NEN-1 4150 NEXT I
700 IF FOU•4 THEN POKE NRN,140 4160 IF INKEYS="" THEN GOTO 4100
..ru-a,:.;.-.1~i.'t..':.Wl
::itMi 0 0
RT I ; 4170 CL8
4180 RETURN

SINCLAIR PROGRA.i\1.S Auguu 1984 .,

 EXPRESS DELIVERY ·
ORDER NOW
[Link]
my~No--
~-~-~-~-~-~
SPECTIIUMn ORICIO [Link],n
VIC:HJ
0 A1't>H
0 I
--- --------- COMMOOORE640DRAGONO u.1111
0e ecu O [21
~ I
____

I Counuv
Pos1 Code

L;'eafers lt $t()(;kists tmqui'ries welcome. •~-a

=~
CascedeGames Ltd..
ciscode ~a!.;!.,~,v~~
T~
~BG.~:~
: (04231 504526. _
1
• · I
SP 818'!.,J

Top listings for the BBC B

and the Electron

r:orn
programs
PLUS
reviews and news

on ly 95p
software

Every two month s for

Make sure of your

copy. subscribe toda y
The comp lete sof t ware
comp anion for the
BBC B and Elec tron
••••••••••••••••••••••••••••••••••••••••••••••
I Mail to: ECC Publications Limited: 196-200 Balls Pond Road, London Nl 4AQ
•I
II Yes - I'd like to subscribe to Acom Programs (6 issues - price
I enclose a cheque for£ ___ Please charge my credit card:
£6) II
I Card name Number I
I Name ddress I
I I
I Signature ate I
I N.B. This offer applies to [Link] only. Overseas rates available on request . I
, ••••••••••••••••••••••••••••••••••••••••••••• 1
66 SINCLAIR PROGRMi.S AuguJ11984
 GO
48K Spectrum Available soon for CBM 64

• "! .
. '
..
'f

"-: ,-- l!
.. - ,-- ,-
._A._ "-J --

·'" '°"-~

ACTUAL SCREEN DISPLAYS

The Most Graphical

Arcade Simulation
Ever Produced
AVAILABL£ VllOM SE.U:CT.£0 [Link] OF: llETAll.,£115 CONTACT:

~4Mlffiti§,0141 MICRODEALERUK Ltd

* WHSMITil

e
makro
=bf
Grcenclup
,11DIIIHRAMS
ALS0 AVAILABl..£ AT ALL
USUAL SOFTWARE OUTU:TS . ......
J 1!9e<:
trader
c:f;i!:~
f'

CentreSoft
PCSDISTRIDUTI
Bulldog
ON
I

1_.._Clloq,oall'Of•t --- - --

-~
DISTRl8lJTOJIS AND [Link] ENQULRJES CONTACT f>AULMM :[Link]