ZXTape! 0Created with Ramsoft MakeTZXcover ~  12 X1:=""5:1:4:6:3:2:5:10  &0:1:1:1: ?#1;9 ;1;" STILL LOADING - LET TAPE RUN " 0,0 "" #0;1,0;9 ;1;" STOP TAPE - PRESS ANY KEY ";0,0;0;"MAR/APR ISSUE  11111000000 APS" d1:0:1 n*i=1:a$=" " x#i=i+1:i=8i=2 i z3,4;a$;4,4;a$;5,4;a$;6,4;a$(6);6,21;a$(7) &.1}L,30:.1}L,35# @16,4;a$;17,4;a$;18,4;a$ &.1}L,40(:.1}L,45- =""120x ,/7:0:0:7:9 : 6#:" Welcome to our sixth issue." @:" This magazine is made up of a number of articles and programs chained together in a manner similar to the 'HORIZONS' tape that came with your computer." J:" The easiest way to use it is to go through the articles in sequence, following the prompts.However, there is a table of contents on the next page, for those who wish to go straight toa particular article or program." T:" Please note that some files load in an unusual fashion, but they all auto-run and tell you when to start and stop the tape." ^ 9000(# h:" SPECTRUM COMPUTING - ISSUE SIX MAR/APR  APS LTD 11111000000 1 GOLDEN SQUARE LONDON W1R 3AB TEL. 01-437 1002 EDITOR IOLO DAVIDSON " r:" CONTENTS - SIDE ONE" |" Editorial next page Forty-Two ""columns"" M-Code Lander ""moonland"" Software Reviews ""reviews1"" Wizard Prang's ""quake"" Indoor Version ""golf""" :" CONTENTS - SIDE TWO"  " Letters from... ""strasbourg"" And... ""cowdenb'th"" More Reviews ""reviews2"" Two Player ""tennis"" Hacker's Hangout ""hack""" ;#1;0,0;" Press P for a printout, or" \#1;8;9 ;" PRESS ANY KEY TO TURN PAGE ":10 :10 :7 ="p"Ŧ="P"::360h R:10 ,5;"FUTURE GETTING NEARER- OFFICIAL":9000(# '" By the time you read this, youwill be hearing the first com- plaints from those whose QuantumLeaps are late arriving, for allindications are that initial or-ders have been very heavy and Sinclair has another success." " This will probably have littleeffect on Spectrum sales, as themachines are in very different markets, but one thing about theQL is very good news for us. TheMicrodrive is going to blossom. Of course, the QL's drives areslightly different from ours,but" "the tape cartridge is the same, which means not only that they are going to be easier to get, but also they are going to have to get cheaper. At the present price they cost the same as a"  9000(# "discount store video cassette, which makes for a ludicrous com-parison. More to the point is that a proper floppy disk can behad for about `2 yet commonly holds four times the data, whichmakes micro-carts ten times as" "expensive by the byte. Ignoring any other advantages of disks, the media could quickly destroy the price differential of the hardware."'" The QL depends wholly on the microdrive, there is no tape" "interface (and there will be no tape magazine). The third party software producers who made sucha success of the Spectrum are not going to put up with expens-ive, single source media which they can't get mass duplicated. You are not likely to buy a "  9000(# "magazine like this one (only a little shorter) that costs `8 are you? So we won't produce it. So if the QL is to be a big success, the price of the micro-carts must come down, they must be easier to get, and be mass" "duplicable. And when it happens,it will happen for us too."'" And now an item for those of you who feel that your editor's notable immodesty is overdue fora skewer."  " Perhaps you noticed the invi- tations in a number of magazinesfor nominations for the British Microcomputing Awards run by VNUand the Sunday Times. Naturally when I saw these I immediately sent off as many coupons as I could get, nominating 'Spectrum Computing' in the 'software " X 9000(# b'"product of the millenia' cate- gory. What I failed to notice was that sending a nomination entered one in a free draw. Yes,that's right. I've won an Oric." l 9000(# '" Our address has changed. All letters, programs, contributionsto-"''5;"Spectrum Computing"'5;"Argus Press Software"'5;"1 Golden Square"'5;"London W1R 3AB" ''" Subscriptions only to-"''5;"Spectrum Computing"'5;"Wolsey House"'5;"Wolsey Road"'5;"Hemel Hempstead"'5;"HP2 4SS" N'" (Editorial material sent to our subs department gets delayedor lost!)"  9000(# &10 ,7;" START THE TAPE " "" #(""9000(# #)V#1;8;9 ;" PRESS ANY KEY TO TURN PAGE ":10 :7:: '"cover"1 A coverS @?????????????߿???x???????????????????????????????????????????0000000000000000000000000000000002222222222222222222222222222220022222200222GGGGGGGGGGGGGGGGGGGGGGGG22200222GGGGGGGGGGGGGGGGGGGGGGGG22200222GGGGGGGGGGGGGGGGGGGGGGGG22200222GGGGGGGGGGGGG222002222220022222222222222222200222222222222222222220022222222222444444442222222222200222222222244,,,,,,4422222222220022222222244,,,,,,,,442222222220 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%% %%%GGGGGGGGGGGGGGGGGGGGGGGG%%% %%%GGGGGGGGGGGGGGGGGGGGGGGG%%% %%%GGGGGGGGGGGGGGGGGGGGGGGG%%% %%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% gcolumns = VUSE LIST 2dd:H\ogi{= a{=  d:H\ogi{= a{=  oo *5:5:a=2:b=7: i=021 -i,8;a;b;1;" STOP THE TAPE " c=a:a=b:b=c:i G#1;1,0;9 ;" PRESS ANY KEY TO TURN PAGE " 23772\ =""7 PfLines from 100 to 600 set up print in DATA statements and call subroutines to do the real work Z&7:7:9 :0: d#a=13 :200:5000 nA21,0;" Compare with this normal text.":4000 x/a=10 :400:5000:4000 .a=3:500:5000:4000 6000p J#1,0,0;"And room for two more down here!":4000 610 ,0;" Q to QUIT or any to read again " ""170 0 7="q"Ŧ="Q":10 ,8;"START THE TAPE":"" 100d U66B,168,"4 2 C O L U M N S",67C,168,a$,68D,168,a$ 630,160,"By Tony Barber and Nigel Harris" @0,147," What a utility! Not only do you get a 42" @0,139,"column screen, but also the ability to put" @0,131,"text anywhere, even across character lines" ?0,123{,"and spaces. Sort of a pixel defined PRINT" j0,115s,"AT command. The bold print of the title atthe top of this page was produced by three" f0,99c,"successive prints out of register by one pixel each time. It is also possible to" Y0,83S,"have 25 lines of print on the main part ofthe screen, instead of 22." "h0,64@," Naturally these advantages are not to behad without a bit of extra effort, but if" ,0,480,"you have a swim through our listing, the multiplicity of REMs should make informa- tive reading. This is a machine code util-ity, but you don't need to know any code to use it, ala Wizard Prang." h0,167," The program works by removing the edge pixels from both sides of each character" i0,151,"and jamming them together. As most of the Spectrum characters do not use the full 8" i0,135,"pixel width, this works very well, but if CAPITALS are used, the crowding shows up." i0,111o," The text to be printed must be placed inthe a$ before the code routine is called." h0,96`,"The a$ can be used over and over again, aswe are doing in this demonstration, using" i0,80P,"data statements to hold the text in the program while the a$ is otherwise engaged." h0,568," The code routine expects to find a startposition in locations 23728-9. These must" h0,40(,"be poked with numbers similar to the coor-dinates for plot commands. The first poke" g0,24,"is for the column number, which should be 0 or a multiple of six if you want print" f0,8,"to wrap round to the next line in an or- derly way. The next poke should be equal" h0,168,"to 176 minus 8 times the desired line num-ber, but different spacings can be used." j0,152,"Wrap-around will space lines to the usual 8 pixels, but a 7 pixel line will allow 25" _0,136,"rather cramped lines on the main part of the screen. Let's have a demo." XEnd of data statements. To SAVE the machine code routine you can either SAVEthe BASIC program with or with- out alterations, or save just the code, which is relocatable. The code is in a REM inline 9001. 'GOSUB 9000' will putthe address in the variable nam-ed 'call'. Then 'SAVE "42" CODE call,185' will save the bytes ontheir own. Because the code is in a REM at the end of the program,alterations to the program will move the code around in memory. A 'GOSUB 9000' should always be used before a USR call to make sure you have the right address. SThis is better than us-ing LINE 1 REMs because it will work with Microdrives. 7#1;" PRESS ANY KEY TO TURN PAGE":0:: Prints 42 column text from DATA statements. Variables x and y determine the start pos-ition for text on screen, and are similar to PLOT variables, x is a cross, y's up. See manual (i=1a:x:y:a$:8000@:i: pDemo of 27 line screen qa=0:y=1680-7:x=6*(a<9 ):a=a+1:a$=a:8000@:a$="Yet another crowded line!":x=40(+2*a:8000@:y: @WPokes print position tothe system variable area, then calls machine code routine A39000(#:23728\,x:23729\,y:call: #(^call=23637U\+256*23638V\+5:: Finds address of code in next line #)GOW_*K\~ `0A T]z &#^#V######8o(#~(#^#V#~(!\444444:\ >2\:\2\z &o)))[6\V"8 #*\>OxG".. '"columns"1 abcx0qaloAyou have a swim through our listing, the multiplicity of REMs should make informa- tive reading. This is a machine code util-ity, but you don't need to know any code to use it, ala Wizard Prang.mreviews1 %%Y' (5:5:0:32767 hRAMTOP HAS TO BE MOVED FOR REVIEWS. USE THE CHAINING RIGHT THROUGH OR UNUSUAL THINGS MAY HAPPEN. G10 ,7;"SOFTWARE REVIEWS"''11 ;1;" LOADING " :10 ;"LET TAPE RUN " "" '"reviews1"1 ,PWrev $[;$!d@>2:[dd[>2:[d:H\ogi{= a{=  >J[J[T[<    THEN PRESS ANY KEY 0# # <@T8@$d\\\\\\%d'd\)dQdQd$\6hOX![!@P!!:8x K SR P ٰ"2":"PWrev""23296","9345" h="d"::"23359" "23308":="" a=h:٧/  "7"::a #/;h;"Page ";a/h - ="s""4":"23296":"20" *x=:x<"4"x>"0"a=(x-"0")*h:"15" (x=-"15" -x="q"h*h 2h d|h,-;"PINBALL WIZARD from CP Software";h;"16K or 48K"::" Press 2 or 3 for pages or Hold S for - Q to Quit": " As I remember it, a box of Crackerjack and a go on the pin-ball machine both cost a nickel and I never got enough of eitherone, (they were big boxes then, too). Now I can glut myself, on Pinball at least, without even" "revealing this long buried weak-ness outside my own home. Bliss! Of course, the table is the wrong shape and not as complex as the mechanical version, but the action is perfect, just likethe McCoy, especially when the ball rattles around the bumpers." " There are also rollovers and other traditional pinball furni-ture, and you get two sets of flippers, ganged together. The plunger gives variable oomph andyou can beat on the side of the TV all you like without ever": , "getting a tilt, if you reckon ithelps your game."'" Software producers don't seem to worry a lot about 16K users, so it's nice to find a good 16K game now and then. Adventures and the more complex arcade num-bers would seem not to be on," 6"but a simple scenario can have lasting entertainment value if you get it right."'" Our review copy came without a cassette insert, which coupledto the abysmal operator skills available to this reviewer meansthat we still don't know what" @"happens when you light up all the letters in SAGITTARIAN. Is there another layout or two hid-den behind some score I will never obtain? Someone had bettertell me, so that I can tell you.": 3"32767":10 ,8;"START THE TAPE":"" PWrev $[23296[ 9345$ [$ O @dIAN. Is the{~~~~~~~~~~~BBBBBBBBBBBBp1pp=`b`bbbb 8 8  <<<<<<<<<<<<<JR<aax~b`bbbb    ?fBRf?__~f~~~b _fB\f_??bbbhbb <<<<<<<<<<<<   s< JT<s<~b~~bf~bb 8BBBBBBBBBBBB 81Bpp<<<<~fffxfbpppp" BppBBBBfff``` ``<< <``  0><<<<0fff|????__,__?f f?__  H>Hfff____??L??_f f_?? H>Hfffssss$~s< <s<<<<  HHffffFpp付 pppBBBBp00<<<~<| }w<<~<w<<<<<߀q2R`q{XffbfX{1p{ffff fff IKR}ff`fݷ=X{ )JRX=ff`f qJgq~ ff|f | { )BR| x p ff|,f p x wIJRw~fffw~0{ .B\0~fffLf< q|<q|7> JR|7>q|7`>fff|7`>o7 ( JT7|;fff~f=>ff_j}2L`j}߾n}ffFfn}w8ߟn`1n`<2:[dd[>2:[d:H\ogi{= a{=  >J[J[T[<    THEN PRESS ANY KEY 0# # <@8d\\\\\\dd\ d,d,d$\a2-JX![!@P!!:8x K SR P ٰ"2":"KNrev""23296","9345" h="d":a=h::"23359":٧/ "23308":="" "7"::a #/;h;"Page ";a/h - ="s"-:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h (;x="q""32767":10 ,8;"START THE TAPE":"" 2h dwh,/;"KNOT in 3D from New Generation";h;" 48K Only"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": " It takes a while to work out just what is going on in this program, and although the demo mode is visually most entertain-ing, it does not promote under- standing because you have no in-dication of the computer's mani-pulation of the controls. Better" "to skip the demo and watch what happens in play without touchingthe keyboard."'" Conceptually, this is a 3D version of a 'surround' type of game. The object is to fly aboutthe mini-cosmos without running into your own cubical trail, the" "green and yellow, or the red andblue 'chasers'. The display is of the cockpit viewscreen type. The controls execute a right- angle turn in the chosen direc- tion. Makes the head whirl.": ," The playing area is warped to fold back on itself in hyper- space, so you never find the edges or know what shape it is, but one dimension can be pinned down. It takes about 5 seconds to cross it in the fast setting." 6" You get fast/medium/slow plus hold/start options and demo. Thepackaging doesn't mention it, but Kempston, AGF, and Mikrogen joysticks are supported, other- wise it's the dreaded cursor keys. Someone soon is going to pinch my idea and supply a joy-" @"stick wired to two plugs which will imitate the cursor keys by using both sockets on the Sin- clair interface two, but until then lets have more user definedcontrol keys. (Idea duly pinchedSee 'Hackers Hangout' -Ed.)": KNrev $[23296[ 9345$ [$ JAIL@dplay is of the cockpit viewscreen type. The c????????????????????B?$????????????$?????B????< xB<< @A"B ?????O P@<0!@"HAP@ !?8x@G@@ ?$@@ ?1(p g!$   6666$,-----,$$$$$  6666$,-----,$$$$$  6666$,-----,$$$$%  6666$$???$$$$$$%-  6666$$???$$$$$%--  6666$$???$$$$%---  6666$$???$$$$6666  6666$$???$$$$6666  6666$$9??$%$$6666  6666$$ ??%)$$6666  6666$$  $$6666  6666$$)---)$$6666  6666$$-----$$6666  6666$$66666$$6666  6666$$66666$$6666             888888888888888888888MIrev $[8 $!d@>2:[dd[>2:[d:H\ogi{= a{=  >J[J[T[<    THEN PRESS ANY KEY 0# # <@T8@c\\\\\\cd\ d*d*d$\6ajJX![!@P!!:8x K SR P ٰ"2":"MIrev""23296","9345" h="d":a=h::"23359":٧/ "23308":="" "7"::a #/;h;"Page ";a/h - ="s"-:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h (;x="q""32767":10 ,8;"START THE TAPE":"" 2h dzh,-;"MISSION IMPOSSIBLE by Silversoft";h;"16K or 48K"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": " Impossible indeed. There are supposed to be 50 screens, but Icouldn't tell you what they looklike, apart from the one in our snap. The four asteroid belts move in different directions, and your lander can't hover, so you just have to dodge." " Your retro rockets will slow you slightly, and must be used for landing or you crash, as youdo if you miss one of the three pads by even a smidgen. On the way back up the rocket button becomes the 'fire' control for" "the laser, and you have no con- trol over your speed of ascent. Kempston, AGF, and Protek joy-sticks are supported, but the keyboard is quite adequate for the three controls. You also geta 'hold' function.": ," This is another 16K game, but the cassette label doesn't let on. In fact, you can't even findthe word 'Spectrum' until you open the box. There is a clue inthe form of an oblique rainbow on the cover. Why the secret? Their other packs are the same." 6" Almost all Silversoft's titleswill run in 16K, in fact. Ownersof unexpanded Spectrums might beinterested, right? This is a public service announcement. They do put a screen photo of each game on the label, though, and we naturally must approve." @" 16K programs often suffer by comparison with the better 48K stuff. The top 32K actually runsfaster for one thing. For a com-pany to specialize in 16K is un-usual, but hardly shameful!": MIrev $[23296[ 9345$ [$ @9dter 48K stuff. The top 32K actually runsfaster fo `@Z<````'@>`````fml?<<<<|~<<<<B>|<~~~~F@BBB@BBBBBBB@BBB@F@BBBJ<@BB|>BBBB~@~<@BB|>J<~B>R@B|@>>>>BNB@B|@RB|<$$$$bBBBD@>BBBBBBD@>bBB@>@$$?$$?@~ffffFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGFEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGFDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFGGGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGFFFFCCCCCCCCCCCCCCCCCCCCCCCGGGCCCCCCCFFFFFFFFFFFFFFFFFFFFFFGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGG_MDrev $[5m$!d@>2:[dd[>2:[d:H\ogi{= a{=  >J[J[T[<    THEN PRESS ANY KEY 0# # <@8(c\\\\\\cc\ cdd$\(aHX![!@P!!:8x K SR P ٰ"2":"MDrev""23296","9345" h="d":a=h::"23359":٧/ "23308":="" "7"::a #/;h;"Page ";a/h - ="s"-:"23296":"20" #x=:x<"4"x>"0"a=(x-"0")*h (:x="q""32599":10 ,8;"START THE TAPE":"" 2h dvh,/;"MELBOURNE DRAW from Melbourne";h;" 48K Only"''" Press 2 or 3 for pages or"'" Hold S for - Q to Quit": " This is Phillip Mitchell's ownhigh-res drawing utility as usedto produce the title pages for PENETRATOR and TERROR-DAKTIL. How sweet of him to make it a- vailable to the competition. We have used it to produce a cartoon as a demonstration of" "its capabilities. Well, just forfun, really."'" DRAW comes with a twenty page manual covering the many facili-ties. There are about 25 editingcommands not counting the cursormotion or tape handling menu." " An eight directional keypad layout is used to move a pixel about the screen, drawing, eras-ing or toggling as it goes. Picka mode, any mode. Attributes canalso be set by cursor or global-ly, and text can be inserted in": ,"any orientation. There are also routines to define UDGs straightfrom the screen and SAVE them orthe screen itself."'" One of the best tricks is the ability to magnify the part of the screen you're working on so that each pixel is the size of a" 6"whole character, making detail work much easier. "'" You can also scroll the screenin 8 directions by pixel or swapit round, left to right. And youget a 'FILL' command, why not? Is there anything missing?" @" I might churlishly complain that there is no easy way to getcircles, but I suppose you couldcreate them in BASIC and LOAD them from tape. A joystick wouldhave been nice too, but this is a professional tool, not a toy!": MDrev $[23296[ 9345$ [$ ;"START THE TAPE":""  rcles, but I suppose you couldcreate them in BASIC and LOAD th@>>>@@@?>>> @@?>>>0@@?ߏ>>>8@?ߏ<@?>@?@>>>???@?<??<~~@~< ~? ?~~b?<?BJ|@8888x8x8D8DB8D88@B@ ?|B?B?J<xD D@DDD?0DDDD DBDD00`B?<uB?RJ<Dx x8DDxx?Dx(x DBDD@~?<BRJ<D@ @DD@?2D@(@ <BDD ??B !?<B?4BD< <x8D<L8D<< <?88 8 ~[?B@?~D<8?? ?80~~O~~B~@|0) },fuel0fuel=0:thrust=0 =sx=sx+.03{u\-.01z# =*thrust*(2**angle/8) 3sy=sy+.01z# =*thrust*(2**angle/8) x=x+sx y=y+sy 30038Vu,30183u 30020Du,30165u 30183u,x 30165u,y fuel=fuel-thrust 20,2;1;fuel;" ";20,9 ;(sx*10 );" ";20,15;(sy*10 );" ";20,21;thrust;" " ,v=300000u 6v=30145u @v=0100d P(x)480y<170y>204sx>.3sy>.2~Lv=30145u:n=811 :300066u,n:v=300000u:v=30300\v:v=300000u:n:n=121:v=30550Vw:0.02{# =,21-n:n:#1;0,0;2;6;1;" CRASH !!!! Press a key ":0:430 b#1;0,0;2;6;1;" ******* SAFE LANDING ******* ":0 bn=018:n,0;1;0;7;" ";:n ""435 G#1;0,0;" Q to QUIT or ANY to play again ":0 ]="Q"Ŧ="q"7:7:9 :32599W:10 ,8;"START THE TAPE":"" '9000(#:"":8060|:100d pj0:0:9 ::0,0;" *** M O O N L A N D E R *** "''" By PETER COOKE" z5,0;"Use the keys "'"9 turn left"'"0 turn right"'"1 increase thrust"'"2 decrease thrust"''"land your L.E.M. on the pad (in yellow)." J20,0;1;" press a key to start ":0: @n0:7:0::n=1921:n,0;1;" ";:n J_0,0:255,0:0,175:-255,0:0,-175 T30,175:70F,-110n,.9ffff:30,70F,.9ffff:60<,30,-1:65A,-60<,-1.3&fff ^|1,160:100d,-130,1.3&fff:70F,90Z,1:40(,0:44,,-60<,1 h;30452v,31:30454v,174:30451v i30401,51:30403,175:30400 r930401v,1:30403v,25:30400v |819,2;1;"fuel hsi vsi thrust" v20,2;1;fuel;" ";20,9 ;sx;" ";20,15;sy;" ";20,21;thrust;" " 30145u 77,21;6;8;1;" "  #(x=2:y=2 #2fuel=2000 #<thrust=0 #Fangle=0 #Psx=0:sy=0 #Z300066u,(angle) #d30151u,(angle) #n30020Du,y #x30165u,y #30038Vu,x #30183u,x % 'o29999/u:9 ;1;10 ,2;" HANG ABOUT - STILL LOADING ":"":23676|\,127: '8"moonland"9998':"m/code"300000u,2768 abc m/code 0u({4 !6> *{\o&)))>???OG>g8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N!6>*{\o&)))>???OG>g8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N!,Q:H\???FB˧F#C"- "x !X0~?@w#~?w# > <~<18180 limit=y$ ''" Controls are:"''" Number keys select club"'" A and S to set direction"''" ENTER when happy, then:"''" A and S to set strength"'" And ENTER to shoot." a''" When on the Green, the club is automatically a putter."''" Press a key to continue." o go=o 4:o:o: d=170+(*319?) 'p=3+(d>229)+(d>429) >ho=(d/2):t=o:he=60<+(*80P):a$="" f=l20:.1}L,-30:c=*8:5+c,(*(ho/8));l;a$(((*4)+l));4+c,(*(ho/8));l;a$(((*4)+l)) f  de=o:l yf=o(ho/16):.2~L,-10 :10 +de,f;" ";9 +de,f;" ";11 +de,f;" ":de=de+(*3)-l:f Ehc=10 +de:hp=(175-he)/8:hc>14hc=14 qf=(ho/16)(ho/8)+l:.2~L,-10 :hc,f;" ";hc-l,f;" ";hc+l,f;" ":hc=hc+(hchp):f  o  rf=-ll:((175-he)/8)+f-l,(ho)/8-l;l;" ";(175-he)/8-l,(ho/8)+f-l;l;" ":f l;ho,he,8  ho,he,l "10 ,o;o;7;"" 'Tf=-ll2:(21-(he/8))+f,(ho/8)-2;6;l;"":f ,2:7 -9h=o2:h,o;" ":h 10o,o;"DIST. ";d;" yds PAR ";p;" HOLE ";hn 6Af=1721:f,o;" ":f ;i17,13 ;"ANGLE";17,l;"WIND SPEED";17,26;"TIME";17,20;"STR." @9o,o:255,o:o,39':-255,o:o,-39' A;o,o:255,o:o,151:-255,o:o,-151 B1200,o:o,39':44,,o:o,39' C194^,o:o,39':152,o:o,39' he=5:a$=" ":aw=*6:aw1=o:ws=(*4)+l:co=o:stage=l:i=o:x="4":y="\":at="`" 9123{,16,12 :20,16,12 7:2 ti=100d a$=" " C="1"st=20+(*5)-2:g=.65&fff:a$="1 wood" B="2"st=17+(*5)-2:g=.73333:a$="3 wood" =="3"st=14+(*3)-l:g=.75@:a$="3 iron" <="4"st=11 +(*3)-l:g=.8L:a$="5 iron" -="5"st=9 :g=.85Y:a$="7 iron" ,="6"st=7:g=.9ffff:a$="9 iron" %="7"st=3:g=o:a$="Putter" 1="8"st=5:g=.95s333:a$="Sand Wedge" K<"9"Ʀ>"0"2,o;2;"CLUB SELECTED ";a$;" ":.5,o ;ti=ti-l:19,27;ti;" ":tiost=o:535 a1=a +a=a+((="s")/10 )-((="a")/10 ) 6123{,16:l;10 *(a1),10 *(a1) 1123{,16:10 *(a),10 *(a) 3=13 a$" "stage=l.5,o:506 3=13 stage=2.5,o:1050 stage=2465 @="x"stage=lo,y:l;l;x,o:x,40(:l;l;o,y-40(: 720,16:l;10 *(aw1),10 *(aw1) 220,16:10 *(aw),10 *(aw) aw1=aw #aw=aw+(((*3))-l)/10 ;ws=ws+((*3)-l)/10 :ws<.5ws=.5 $19,6;2;ws;" "  420 e=e+(="s")-(="a")  e10 e=10 Dstage=lti=ti-l:19,27;ti;" ":tiost=o:535 -19,21;2;7;e;" " f=l502:f $=13 .5,o:531  510 1stage=l2,o;" " o stage=21051 dist=(e*st)/2 ! e=5 $ air=dist*g % x1=x:y1=y ')f=oair:x1=x:y1=y:x=x+(a):y=y+(a) (%*10 dist5644 3f : go=go+l D-(x-ho)8ƽ(y-he)81000 W 415 b1(yp,xp)=33!ū(yp,xp)=102f5655  5633  xs=(yp,xp) xs=33!i=l $xs=102fi=6:5655 xs=32 i=o:dist=dist-l  5622 4:7: stage=2 Pf=1821:f,0;2;" ":f -f=-20202:.1}L,f:f 9o,o:255,o:o,32 :-255,o:o,-32 &7;123{,16,12 10 ,15;o;"" =xb=(5*(ho-x))+92\:yb=(5*(he-y))+124| &g=xb-lxb+l:yb-l,g:yb,g:yb+l,g:g  459  506 :s=e*8  7 " go=go+l $/f=os:xb1=xb:yb1=yb:xb=xb+(a):yb=yb+(a) %4g=xb1-lxb1+l:l;yb1-l,g:l;yb1,g:l;yb1+l,g:g &&g=xb-lxb+l:yb-l,g:yb,g:yb+l,g:g '6((yb-124|))lƺ((xb-92\))l2000 (f 210 ,15;o;"" 3&g=xb-lxb+l:yb-l,g:yb,g:yb+l,g:g 8 1040 Т.2~L,2:.4L,2:.6,2:.2~L,2:.4L,2:.6,2:.2~L,4:.4L,5:.6,6 2:7: " GLENEAGLES" %::"You completed the hole in ";go -"strokes":::"Par for hole ";hn;" is ";p p-go=2b$="eagled" p-go=lb$="birdied" p-go=ob$="parred" )p-go>-l::"You have ";b$;" the hole" :go-p>o::"You have a bogie "+(go-p)+" on this hole"  q(hn)=go:w(hn)=p !::"Press any key to continue"  o %9:o,3;"HOLE";13 ;"PAR";23;"STROKES" *;f=lhn:f,5;f;f,25;q(f);f,15;w(f):f .ct=o:pt=o:f=lhn:t=t+q(f):f:f=lhn:pt=pt+w(f):f:hn+2,0;"Score so far = ";t-pt /hnlimit3000 4 hn=hn+l >021,7;7;"Press to continue" Ho R 200 t=o:pt=o:f=lhn:t=t+q(f):f:f=lhn:pt=pt+w(f):f:19,10 ;"par ";pt;19,20;"total ";t;21,o;l;" ";21,o;" Score ";t-pt;" " o 100d #(D9000(#:f=l5:g=o7:a:(143+f)+g,a:g:f #2Q255,255,195,219,219,195,255,255 #,28,62>,8,8,8 #ZB28,34",65A,65A,65A,34",28,o # '"golf"1 abcol@(#(#imidpt偀 4-exfxwxfxs33<tagxNyx 3(`lY@ispi?RtXw-9 8u]5sb9;ݹbsaٸA5 ironBparred]]Y