Software for the Dragon 32 : Best of PCW

207 Pages·1983·9.601 MB·English

by  Personal Computer World, Jane Bird (ed)

BESTOFPCW
BEST OF
PERSONAL
COMPUTER WORLD
SOFTWARFEO RT HE
DRAGON32
BESOTF
PERSONACLO MPUTEWRO RLD
SOFTWAFROERT HE
DRAGON32
Personal
CompJ!ter
CENTURY
CentuCryo mmunications
London
Copyright © Personal Computer World and
Century Publishing Co. Ltd
All rights reserved
First published in Great Britain in 1983 by
Century Communications Ltd ( a subsidiary of Century
Publishing Co. Ltd), 76 Old Compton Stree\ London Wl V SPA
ISBN O 7126 0265 8
Printed in Great Britain in 1983 by Garden City Press Limited,
Letchworth, Hertfordshire SG6 1 JS.
CONTENTS
Introduction 9
Patience 10
Golf 19
Quadrangle 27
Virus 36
Planets 41
TargPerta ctice 43
Wire 46
Cheese 52
Catchfour 58
Battleships 61
Duckshoot 68
Tarot 74
Dragtornke 89
FighPtielro t 105
CarIdn dex 112
Zombies 118
AircrLaafntd er 124
Blaster 134
Stockmarket 141
Domaionft hDej inn1 50
Truth 166
RacCeh ase 180
Graphics 184
Convoy 186
World 191
HinatnsdT ips 196
Acknowledgements
We would like to say a special thank you to our hard-working
referees Bob Cypher and Colston John Davy for their conscient­
ious checking and debugging of programs. It has cost much
midnight oil, maybe even a few premature grey hairs, and the
high standard of this book owes much to their perseverance.
Thank you also to Patrick Lynn for the inspired illustrations.
INTRODUCTION
The Information Revolution is all about getting the information you
want when you want it. How many times have you wished that you
had all of PCW s programs and Dragon hints in one volume?
For over five years PCW has been collecting the best in
programs and programming tips for every micro. Now we've
selected the finest of these and tailor-made the programs to run
on your Dragon computer.
Each program was redesigned by a Dragon expert to make full
use of colour, sound and the other facilities of your machine. All
the programs have been closely vetted by one of PCWs exper­
ienced team of referees to ensure that they are as bug-free as
possible.
For a pinch of spice we've added all the best readers' tips and
programming hints, providing you with a unique compendium of
the Best of PCW for your machine.
Of course one day we'll be inviting you to dial up this information
but for the time being enjoy a good, old-fashioned book!
Jane Bird, editor
Personal Computer World
GENERAL DESCRIPTION
This is a normal game of patience with the added difference that
you cannot cheat'
Full instructions are included in the listing of the program
DETAILED DESCRIPTION
Linesl0-25 Credits in rem statements.
50-100 Sets up variables, strings and arrays ready to
shuffle pack.
140-210 Shuffles pack.
215-280 Displays cards.
380 Waits for a key to be pressed, and loads AS with the
result.
390-410 Checks to see if a deal, card from pack or the end
of game is required.
420-460 Loads X with the row number and Y with the row
where the selected card will go.
480 Displays at a convenient place, (@346), the row
selected.
490 Waits for a key to be pressed, and loads BS with the
result.
500 Checks to see if the foundation sequence is required.
510-930 Loads with the row number from which the card
10
is to be taken, and checks that the move is legal
940-1020 Isolates error, then displays the illegal move form
I0 30-I 060 Sets up cursor move for positioning of card.
1100-1250 Tells you whether you've won or lost. Stores the
amount of wins in poke location (4000), and lost games in
poke location (4 00 I). Also checks to see if you want
another game.
1260-1380 Deals card from pack, and displays how many
cards are left.
1390-1700 Displays instructions.
1710-1810 Checks for win.
1/o REM******STILTON PATIENCE****
**
20 REM*******BY R,W,STILL******
25 REM <CONVERTED DMC)
40 POKE 4000,0:POKE 4001,0:GOTO
1400
50 CLSl:RESTORE:CLEAR 1000
60 PRINT" I'M SHUFFLING THE
PACK"
70 PRINT"
8/o DIM F$112),P$152),S$14),N$113
) ,A$17,20)
90 FOR N=1 TO 7:TPIN)=N:BPIN)=N:
NEXT N:L=1:A=RNDI-TIMER):P=0
100 WS=0:LS=0
140 REM*****SHUFFLE PACK*****
150 FOR I=1 TO 4:READ S$1I):NEXT
I:FOR I=1 TO 13:READ N$1I):NEXT
I
160 DATA H,A,*,C,A,2,3,4,5,6,7,8
,9,T,J,Q,K
170 CA$="ACAHA*AA2C2H2*2A3C3H3*3
A4C4H4*4"5C5H5*5'6C6H6*6'7C7H7*7
180 CA$=CA$+"8C8H8*8'9C9H9*9'TCT
HT*T"JCJHJ*J"QCQHQ*Q'KCKHK*K'"
190 C=52:FOR I=1 TO 52:A=RNDIC):
P$(I)=MID$ICA$,2*A-1,2)
11
200 L$=LEFT$CCA$1 CA-1l*2l:R$=RIG
HT$CCA$1 CLENCCA$)/2-Al*2l:CA$=L$
+R$:C=C-1:NEXT I
210 REM*****PRESENT LAYOUT*****
215 CLS1:PRINT@0,"R1 R2 R3 R4 R
5 R6 R7";
220 FOR I=1 TO 7:FOR J=1 TO
230 Z1=CI-1l*3+(Jl*32:IF J=BPCI)
THEN PRINT@Z1,P$CL);:A$CI1J)=P$
CL) :L=L+1:NEXT J:NEXT I:GOTO 250
240 PRINT@Z1,CHR$C175)+CHR$(175)
; :A$CI,J)=P$CLl:L=L+1:NEXT J:NEX
T I
250 REM
280 FOR I=29 TO 52:DE$=DE$+P$(I)
:NEXT I
320 REM***MAIN LOOP - FIRST INPU
T***
330 IF D$<>"" THEN 360
340 FOR I=1 TO 7:IF BPCI)}1 THEN
I=8:NEXT:GOTO 360
350 NEXT I:GOTO 1720
360 PI=0:X=0:Y=0:T=0:TT=0:PRINT@
8*32+24,"FROM ";
380 A$=INKEY$:IF A$="" THEN 380
390 IF A$="D" THEN 1270
400 IF A$="E" THEN 1110
410 IF A$="P" THEN PI=1:GOTO 480
420 REM SET UP X AND Y
430 IF A$>"7" OR A$<"1" THEN 460
440 T=VAL(A$):X=T:Y=BP<X)
450 IF Y=0 THEN 330
460 IF T=0 THEN 380
470 REM SECOND INPUT
480 PRINT A$; :PRINT@10*32+26,"TO
'
490 B$=!NKEY$:IF B$="" THEN 490
500 IF B$="F" THEN TT=8:GOTO 520
510 TT=VAL(B$>
520 IF TT=0 THEN 490
530 IF TT=T THEN 490
540 PRINT@12*32+26,B$;
12