ZXTape! 0Created with Ramsoft MakeTZXgolf introM d60:0:0::"picture":ink=1 i9 ,23;" 1983";12 ,7;"STOP THE TAPE":20,4;"PRESS ANY KEY TO CONTINUE" j6:227,154:3+3*ink;6,11 :231,149:3+3*ink;9 ,6:232,143:3+3*ink;11 ,-1:232,136:3+3*ink;7,-8 k5=""2:ink=0+(ink=0):106j n1:1:5::1000:a$="THIS IS A GAME OF GOLF FOR TWO PLAYERS, ALTHOUGH ONE PERSON CAN PLAY BY TAKING THE PART OF BOTH PLAYERS." o 9500% pA$="THE GAME HAS BEEN DESIGNED TO BE AS REALISTIC AS POSSIBLE AND FEATURES TREES, THE DREADED ROUGH AND BUNKERS, AS WELL AS AN UNPREDICTABLE WIND, WHICH RANGES FROM A GENTLE BREEZE ON A GOOD DAY TO A HOWLING GALE." qf9500%:A$="^^WHEN YOU HAVE ENTERED THE PLAYERS' INITIALS (3 LETTERS), AND THE NUMBER OF HOLES THAT YOU WISH TO PLAY (UP TO 9) AN AERIAL VIEW OF THE FIRST FAIRWAY WILL APPEAR, WITH THE TEE ON THE LEFT REPRESENTED BY A CAPITAL ""T"". THE BALL IS THE SMALL DARK CIRCLE JUST TO THE RIGHT OF THE TEE, AND THE GREEN IS ON THE RIGHT HAND SIDE OF THE SCREEN." r 9500% s+A$="THE FAIRWAY IS THE LIGHT GREEN AREA." t 9500% uA$="^BEFORE YOU START YOU SHOULD HAVE A LOOK AT THE WIND STRENGTH AND DIRECTION .^THE STRENGTH VARIES FROM 0 (CALM) TO 7 (GALE), AND WILL AFFECT BOTH THE DISTANCE THE BALL TRAVELS AND THE DIRECTION THAT IT TRAVELS IN." v 9500% wA$="^^^^YOU WILL FIRST BE ASKED TO SELECT A CLUB. YOU HAVE A CHOICE OF IRONS 1 - 9, OR WOODS 1 AND 3 (FOR NON - GOLFERS, A WOOD HITS THE BALL FURTHER THAN AN IRON, AND A LOW NUMBER CLUB HITS THE BALL FURTHER THAN A HIGH NUMBER.)" x 9500% y1A$="YOU THEN HAVE TO CHOOSE A DIRECTION. IF YOU ARE NOT FAMILIAR WITH COMPASS HEADINGS USE THE GUIDE ON THE CASSETTE COVER.^^TO GO NORTH (TOWARDS THE TOP OF THE SCREEN) ENTER 0, TO GO EAST (RIGHT) ENTER 90, AND SO ON. ANY NUMBER IN BETWEEN THOSE SHOWN ON THE GUIDE MAY BE ENTERED FOR GREATER ACCURACY." z 9500% {OA$="^ON YOUR WAY TO THE GREEN YOU MAY ENCOUNTER THE FOLLOWING HAZARDS......." | 9500% }XA$="^^ROUGH^IF YOUR BALL LANDS IN THE ROUGH (DARK GREEN) YOU WILL HAVE TO TAKE GREAT CARE IN HITTING IT OUT. AS IN THE REAL GAME, THE BALL MAY NOT GO QUITE WHERE YOU EXPECT IT TO! IT SOMETIMES PAYS TO PLAY CAUTIOUSLY AND JUST MAKE SURE THAT YOU GET THE BALL BACK ON THE FAIRWAY WITH A GENTLE SHOT. ALTERNATIVELY, YOU MAY BE MORE ADVENTUROUS!" ~ 9500% A$="BUNKERS^THE BUNKERS HAVE A SIMILAR EFFECT ON THE BALL AS THE ROUGH.^TREES^IF THE BALL LANDS IN A TREE IT WILL BOUNCE OUT RANDOMLY. YOU MAY BE LUCKY AND BOUNCE ONTO THE GREEN OR YOU MAY BE UNLUCKY AND BOUNCE INTO THE ROUGH OR A BUNKER. NO STROKE PENALTY IS INCURRED." 9500% A$="^OUT OF BOUNDS^LANDING OUT OF BOUNDS RESULTS IN A ONE STROKE PENALTY AND THE BALL BEING RETURNED TO WHERE IT WAS BEFORE YOU HIT IT.^^TO AVOID CONFUSION, THE BALL OF THE PERSON WHOSE TURN IT IS TO PLAY ALWAYS SHOWS AS DARK INSTEAD OF THE NORMAL WHITE." 9500% A$="^^WHEN BOTH BALLS ARE ON THE GREEN A CLOSE UP VIEW WILL APPEAR. YOU THEN ENTER THE DISTANCE YOU WANT THE BALL TO TRAVEL (A SCALE WILL BE SHOWN), AND THE DIRECTION AS BEFORE.^^GOOD LUCK!!^^^^" 9500% E4:0::11 ,10 ;"START TAPE":"golf" M10 ,2;"DO YOU REQUIRE INSTRUCTIONS?";12 ,13 ;"(Y/N)" ="y"Ŧ="Y": ="n"Ŧ="N"150  1000 % %le=2:ri=2:bo=6:ta=32 :" ";ta:j=1:n=j̱a$:23689\bo20,0;" PRESS ANY KEY TO CONTINUE":j: %4po=ta-le-ri:z=jle:" ";:z:n+po>a$9550N% %&#a$(n+po)" "po=po-j:9510&% %+8z=nn+po:a$(z)"^"1:a$(z);:z:ta:n=z-j:n %09600%:n=z:n: %N/z=ṉa$:a$(z)"^"1:a$(z);:z:ta: %S 9600% %Xn=z:n %ta:" ";ta: 'V2.0 Zpicture P gw!B @ |<D~".66")*".0015"+*(biǰ".66")*".0008":wd=*tw* p$xw=ws*(wd-/tw):yw=ws*(wd-/tw) r"115" sn=jth+fo:c$,s$:c$ uN x"WD15*ZOWDjůh$<"49"ůh$>"57""160" no=h$:"5000" 5ei:ei:n=jtw:px,x(n):py,y(n):"";:mc=bal:n "9000":"9020" -tw,tn+tn;"";n$(p);" TO PLAY":cm,tn+tn "WOOD OR IRON? (W/I) ";h$ h$="w"h$="W""8000" h$="i"h$="I""8100" "210" C"ENTER DIRECTION";d$:n=j̱d$:d$(n)<"48"ůd$(n)>"57""240" n d$=""240 "245":o,v,w,xe,ye B("90"-d$)*/"180",o,o,*".001"-".0005",*".001"-".0005" ;(a(p),b(p))="34"ū(a(p),b(p))="50"xe=tn*xe:ye=tn*ye (tw,tn+tn;"";tt:xp=z:yp=z:mc=so n=d/tnd+cm*dd/tn j:px,x(p)+(n-d/tn)*v+xe*(n-d/tn)*(n-d/tn)+xw*(n-d/tn)*(n-d/tn):py,y(p)+(n-d/tn)*w+ye*(n-d/tn)*(n-d/tn)+yw*(n-d/tn)*(n-d/tn):"":mc=bal 6xp=x(p)+n*v+xe*n*n+xw*n*n:yp=y(p)+n*w+ye*n*n+yw*n*n  6xp>250xp150yp<24"9500" ,px,xp:py,yp:"";:mc=bal:cm,j/fv*n:n z:x(p)=xp:y(p)=yp s(p)=s(p)+j:t(p)=t(p)+j Opx,x(p):py,y(p):"":mc=bal:a(p)=((175-y(p))/ei):b(p)=(x(p)/ei)  Ztw,tn+tn;"";32 :(a(p),b(p))=39'x(p)>fgx(p)rg"1500" "I(a(p),b(p))=39'tw,tn+tn;"ROUGH":n=tn+tnz-j:cm,n:n $1(a(p),b(p))=103gtw,tn+tn;"FAIRWAY" &w(a(p),b(p))=557tw,tn+tn;"BUNKER":n=tn+tnz-j:.005y# =,n:.005y# =,n+fo:.005y# =,n+6:n *(a(p),b(p))=th+fotw,tn+tn;"HIT TREE":n=jfv*tn:cm,n:n:xp=x(p)+(*41))-tn-tn:yp=y(p)+(*41))-tn-tn:n=jfv*tn:cm,fv*tn-n:n:"300" +"1000":"200" ,kxp"250"yp<"24"yp>"150"x(p)=x(p)-d*v-xe*d^tw-xw*d^tw:y(p)=y(p)-d*w-ye*d^tw-yw*d^tw:"9500" 1x(p)=xp:y(p)=yp:"285" ^ "1000" h"200" Sn=jtw:a(n)=(("175"-y(n))/ei):b(n)=(x(n)/ei):n:(a(p),b(p))=th+fo"8500" .bl=zp=jtw:(a(p),b(p))=th+fo"8500":n "1100":"9000" "9200":cm/tw,th*tn ="21","17";"";tt:"21",tw*tn;"";n$(p);" TO PLAY" ="DISTANCE?";d$:n=j̱d$:d$(n)<"48"ůd$(n)>"57""407" n d$="""407" A"DIRECTION?";e$:n=j̱e$:e$(n)<"48"ůe$(n)>"57"410 n e$="""410" 1d=th*d$:o=("90"-e$)*/"180":v=o:w=o:j Dx(p)+d*v>"250"x(p)+d*v"145"y(p)+d*wl(j)p=tw: p=j: L9p=jtw:l(p)=(((tn+fv-b(p))^tw+(tn+tw-a(p))^tw)):p Vl(tw)>l(j)p=tw: Xp=j: bl=j"6000"  p=j+(p=j) An=jth+fo:n;tw,tn+tn;"ON GREEN":װ".05",n:n:bl=j:"299" hz:bl=z:n=fvei+ei:n,tn+tw;" ";tn+tn:n:n=fv+fo*(g-e)fv+fo*(g-e)+th:n,tn+tw+fo*(i-f);" ":n tn+tw,tn+fv;"" ln=jtw:x(n)="123"-fo*(xf-x(n)):y(n)="75"+fo*(y(n)-yf):ei:px,x(n):py,y(n):"":mc=bal:n:"9200" "400" 1da="31800"+(h-j)*"73":z::t(j)zn,(da+fo*n-tn-fv);"";(da+fo*n-tn-fo) 3(da+fo*n-tn-th)>zn,(da+fo*n-tn-th);"" 0(da+fo*n-tn-tw)>zn,(da+fo*n-tn-tw);" "  n:"110" J"5010":t(j),t(tw),bl,ph,fg,bg,lg,rg,x(j),y(j),xf,yf,a,b,c,d,e,f,g,i,le z,z,z,(da+"57"),(da+"58"),(da+"59"),(da+"60"),(da+"61"),(da+"62"),(da+"63"),(da+"64"),(da+"65"),(da+"66"),(da+"67"),(da+"68"),(da+"69"),(da+"70"),(da+"71"),(da+"72"),(da+"73"),tw*((xf-x(j))^tw+(yf-y(j))^tw) 8n=ee+tw:n,f;" ":n:g,i;" ";a,b;"";c,d;"T" (x(tw)=x(j):y(tw)=y(j):a(j)=a:b(j)=b "200" pn=jfo:c=jth+fo scm,th/tw*c*n utw*n-tw,tn+tw-n;c;" ";tw*n-j,12 -n;" ";tw*n,12 -n;" " vc:n zj::"9200"  "2000" @4"WHICH WOOD?(1 or 3) ";w$:w$"1"w$"3""8000" B "21","26";"";w$;"-WOOD" Ew$="1"d="125":"240" Gw$="3"d="115":"240" J "8000" @"WHICH IRON(1 to 9) ";i$ :i$<"49"ůi$>"57"űi$>j"8100"  "21","26";"";i$;"-IRON" d="48.1"+"61.9"/i$ ?i$>th+th"PITCH OR CHIP?(P/C)";p$:p$="c"p$="C"d=".3"*d "HARD OR SOFT?(H/S)";j$ j$="s"j$="S"d=".6"*d "240" !4h"500"+tw*(t(p)=j)+tw*(t(p)=ph-th)+tn*(t(p)=ph-tw)+"20"*(t(p)=ph-j)+"40"*(t(p)=ph)+"50"*(t(p)=ph+j) !ftw,j;"";tt !kp(p)=p(p)+t(p)-ph !}h=nobl=j"9000":tn+j,tn+j;"GAME OVER":j,z:j,th+fo:tw,tn+tw:tn+th,fv;"ANY KEY TO PLAY AGAIN":z:"60" !Mbl=j"9000":h=h+j:"11",fo;"PRESS ANY KEY TO CONTINUE":z:"5000" !bl=j:"402" #(^px,x(p):py,y(p):"";:mc=bal:z,z;"";tt:z,z;n$(j);":";s(j);"18";n$(tw);":";s(tw) #*2pos=th+fo:n=jtw:p(n)zz,pos;p(n);" OVER" #,p(n)=zz,pos;"LEVEL" #-pos="25":n #2M"21",z;"HOLE:";h;"21",ei;le;" yds";"21","17";"PAR:";ph;"";tt: #?<~~<golf {K\ {{{ { {{{ {"!,͵B0  w_+Ih    @'|0 oc*x           (o"x     (@'k0     @'0          7Po4?x   0g:po,:x