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