ZXTape! 0Created with Ramsoft MakeTZXpitcalc v 6:6:0: 7:1;"LOADING" L6:6:"pc":7:0:23689\,23:"PITCALC"  0pc @@<B<||><<@<@BBDbBB8<8hBBB@B@BBBR@B DD TB@B@@@B~BJN| DD B<@ 8 <<@<| 6O)=(a^2+b^2-2*a*b*C) *$s(AIڢ,B~Up,c )=c/A*B 4r(d=d/1d)=d/180* >Kd(ar333,b^z,cgaG)=((a^2+b^2-c^2)/2/a/b)  3 BEARING PITCALC 'DAB=0:DBC=0:DAC=0 &b=0:mode=0:xtp=0 6:6:0 :m$  2 (lx=224:ly=160:9000(# pb=1tax=16:tay=152:tbx=104h:tby=136:tcx=232:tcy=144:1040 Ytax=16:tay=128:tbx=104h:tby=144:tcx=232:tcy=120x px=96`:py=32  0  9100# $tax-1,tay:9200# '0:3,0;"A" )tbx,tby:9200# +7b=10:2,13 ;"B":1070. , 0:1,13 ;"B" .tcx,tcy:9200# 1 0:3,30;"C" 80:px,py:9300T$ B$18,13 ;"Point to plot" GDAB>01120` L1;4,7;"*" V2"ENTER DISTANCE A TO B =";i$:i$=""1110V Wni$(1)="s"mode=1:5000:xtp=17:10 ,8;q$:200:1950 X#9350$:t=11110V ^ DAB=i$ `$4,7-(i$/2);DAB bmode=17:3,0;ftp;3,30;ttp;1,13 ;stp:b=12,13 ;stp:6:1,13 ;" " e"6:DBC>01150~ j 1;4,20;"*" t2"ENTER DISTANCE B TO C =";i$:i$=""1140t x#9350$:t=11140t | DBC=i$ ~%4,20-(i$/2);DBC DAC>01190 b=11163 +tax,tay:1;tcx-tax-4,tcy-tay mode=11175  1;7,17;"*" 2"ENTER DISTANCE A TO C =";i$:i$=""1170 #9350$:t=11170  DAC=i$ MDAB+DBC>DAC-.000001m7DAB+DBCts-.0001sQXfs+ss02135W >(0:1;4,4;"*" H3" ENTER DISTANCE A TO B= ";i$:i$=""2120H J\i$(1)="s"mode=2:5000:xtp=1:10 ,8;q$:2000 M#9350$:t=12120H R DAB=i$ W%4,4-(i$)/2;DAB Xmode=22:7:3,0;ftp;1,9 ;stp;1,23;ttp;8,31;ltp:0:6 YDBC>02165u \ 1;3,16;"*" f3" ENTER DISTANCE B TO C= ";i$:i$=""2150f k#9350$:t=12150f p DBC=i$ u&3,16-(i$)/2;DBC wDCD>02195 z 1;6,26;"*" 3" ENTER DISTANCE C TO D= ";i$:i$=""2180 #9350$:t=12180  DCD=i$ &6,26-(i$)/2;DCD mode=22221 DAC>02252 H12 ,125}:167,16:1;6,10 ;"*" 3" ENTER DISTANCE A TO C= ";i$:i$=""2210 #9350$:t=12210  DAC=i$ LDAB+DBC>DAC-.000001m7DAB+DBC02305 I88X,150:150,-60<:1;6,18;"*" 3" ENTER DISTANCE B TO D= ";i$:i$=""2265 #9350$:t=12265  DBD=i$ LDBC+DCD>DBD-.000001m7DBC+DCDDAC-.000001m7DAB+DBCDBD-.000001m7DBC+DCD7:19,5;"MORE TO FOLLOW SHORTLY":6 iss=DBD:ts=DAD nZ$=D$ pHDAB+DBD>DAD-.00001p'ŬFDAB+DBDDAD-.00001p'ŬFDAC+DCDDBD-.00001p'ŬFDBC+DCD:0;111o,-62>:1;-182,0  1;14,8;"*" 1"ENTER DISTANCE A TO B ";i$:i$=""3100 #9350$:t=13100 DAB=i$ !-14,8;" ";14,7;DAB &!1;14,18;"*" 01"ENTER DISTANCE B TO C ";i$:i$=""31200 2#9350$:t=131200 4 DBC=i$ 5/14,18;" ";14,17;DBC :!1;19,15;"*" D1"ENTER DISTANCE C TO A ";i$:i$=""3140D F#9350$:t=13140D H DAC=i$ I/19,15;" ";19,13 ;DAC NHDAB+DACDBCDAB+DBCDACDAC+DBCDAB:8,9 ;q$:3710~ start calcs 9800H& 9850z& 0:4:0 :o$:2:9000(# 0 'x=116:3,x;"":x 0x=114:2+x,16;"":x 1x=116:17,17-x;"":x 0x=114:18-x,1;"":x 5,4;"DISTANCES" 7,4;DAB 11 ,4;DBC *15,4;DAC '7:8,21;"DIAMETER" ;diameter<110 ,20;diameter:3475 310 ,25-(diameter)/2;diameter 80:4:7:200,95_,45- 200,95_,480 y 0 ~K19,1;"PRESS ""R"" TO FIND NEW DIAMETER";21,4;j$ ="r"3000 ="m"100d ""3710~  3710~   triangles 1:1:7 :p$ (lx=224:ly=160:9000(# 2,11 ;"CHOICES" &1;3,11 ;"" 56,0;"PRESS TO FIND AN ANGLE WHEN THE" 27,1;"""A"" THREE SIDES ARE KNOWN" 610 ,0;"PRESS TO FIND THE 3RD SIDE WHEN" /11 ,1;"""B"" TWO SIDES AND THE" .12 ,7;"INCLUDED ANGLE ARE KNOWN" 515,0;"PRESS TO FIND OTHER SIDES WHEN"  516,1;"""C"" TWO ANGLES AND ONE SIDE"  17,7;"ARE KNOWN" +20,0;"PRESS TO RETURN MENU" 21,1;"""M""" "=""4130" -="a"4200h 6="b"4600 ;="c"4700\ @="m"100d E 4130" hto use cos rule mversion=1 r:p$:9000(# |O16,60<:72H,90Z:135,-90Z:-207,0 version=34290 1;8,6;"*" -" ENTER FIRST SIDE ";i$:i$=""4240 #9350$:t=14240  side1=i$ -8,6;" ";8,5;side1 version=24290  1;8,19;"*" ." ENTER SECOND SIDE ";i$:i$=""4270 #9350$:t=14270  side2=i$ /8,19;" ";8,18;side2 !1;14,11 ;"*" -" ENTER THIRD SIDE ";i$:i$=""4300 #9350$:t=14300  side3=i$ 14,11 ;side3 version=24630 version=34725u 0 start calcs 5!DAB=side2:DAC=side1:DBC=side3 7HDAB+DBCDACDBC+DACDABDAC+DABDBC:8,9 ;q$:4540 :9800H&:ar1=angler ? 9500% D 9550N% Nad1=angled:am1=anglem X(13 ,3;ad1;"deg ";am1;"min" b.DAB=side3:DBC=side2:9800H&:ar2=angler l9500%:9550N% vad2=angled:am2=anglem 76,9 ;ad2;"deg";7,9 ;am2;"min" .DAB=side1:DAC=side3:9800H&:ar3=angler 9500%:9550N% ad3=angled:am3=anglem )13 ,16;ad3;"deg ";am3;"min" q15,0;ar1;16,0;u$;4,5;ar2;u$;15,22;ar3;16,22;u$ I19,1;"PRESS ""R"" TO ENTER NEW SIDES";21,3;j$ =""4545 #="r"version=34700\ #="r"version=24600 ="r"4200h ="m"100d  4545 use cos rule version2 0:3:7 version=2  4210r  1;13 ,4;"*"  21,15;"Deg.Min" *(" ENTER ANGLE ";i$:i$=""4650* 4#9350$:t=14650* >E$=i$:9400$:A$=E$ Ht=14650* RA$1804650* W21,15;" " Y 4800 \use sine rule version3 a7:7:0 fversion=3 p 4210r u 1;13 ,4;"*" z21,15;"Deg.Min" (" ENTER ANGLE ";i$:i$=""4670> #9350$:t=14725u E$=i$:9400$:A$=E$ %t=1ŰA$1804725u 13 ,3;A$  4800 !1;13 ,23;"*" (" ENTER ANGLE ";i$:i$=""4752 #9350$:t=14752 A$1804752 1E$=i$:9400$:B$=E$:t=14752 413 ,20;B$;21,15;" "  angledm=B$ 0anglepc=angledm+((angledm-angledm)/.6) angler=anglepc*/180  sar=angler .far+sarȧ:8,8;q$:4540 tar=-far-sar side1=s(tar,sar,side3) 8,5;side1 side2=s(tar,far,side3) 8,18;side2 !DAB=side1:DBC=side2:DAC=side3  44000  start calcs  angledm=A$ 0anglepc=angledm+((angledm-angledm)/.6) angler=anglepc*/180 )version=3far=angler:4750 DAB=side1:DAC=side3  9860&  side2=DBC 8,18;DBC  44000 $D19,3;"PRESS R TO ENTER NEW DATA";21,4;q$ .=""4910. 8="r"4600 B="m"100d L 4910. ~ INPUT SPECIFIC SPS *i$3a(1,2)=0 /i$(3)<491ůi$(3)>579 E7:14,28;"SP";15,27;"MODE":6 ftp=i$(3) +"ENTER 2ND SP NO. ";i$:i$=""5020 i$>15020 'i$<491ůi$>5795020  stp=i$ +"ENTER 3RD SP NO. ";i$:i$=""5030 i$>15030 'i$<491ůi$>5795030  ttp=i$ mode=15050 +"ENTER 4TH SP NO. ";i$:i$=""5040 i$>15040 'i$<491ůi$>5795040  ltp=i$ Vf=a(9 ,ftp):s=a(9 ,stp):t=a(9 ,ttp):mode=2l=a(9 ,ltp) fsstftxtp=1: *mode=2lflsltxtp=1: JDAB=a(f,s):DBC=a(s,t):DAC=a(f,t):mode=2DCD=a(t,l):DBD=a(s,l)  i$=DAB  yorn=a(s,f) %yorn=0b=0:5200P 'yorn=255b=1:5200P  x=18 Uyorna(8,x)yorn>0c(x)=1:yorn=yorn-a(8,x):x:5160( c(x)=0:x 2 b=c(t-s) Pmode=11010 U yorn=a(t,s) Z%yorn=0c=0:5300 d'yorn=255c=1:5300 nx=18 xUyorna(8,x)yorn>0yorn=yorn-a(8,x):c(x)=1:x:5260 c(x)=0:x  c=c(l-t)  pDATA FOR SPECIFIC SITE ua(9 ,9 ) zx=19 y=19 a(x,y) y x yes or no calc  c(8) I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 I0,0,0,0,0,0,0,0,0 N128,64@,32 ,16,8,4,2,1,0 I0,0,0,0,0,0,0,0,0 ": , @co-ordinate conversion E1:5:0 Jversion=0 T:l$ ^(lx=224:ly=160:9000(# c 1 e11 ,0;"+";11 ,13 ;"+";11 ,16;"+";11 ,24;"+";11 ,31;"+";3,31;"+";3,24;"+";3,16;"+" h0:8,84T:95_,0:136,84T:557,0:200,84T:47/,0:252,88X:0,557:1 j51;2,8;"*";5,20;"*" mk2,1;"""A""";12 ,3;"BASELINE";2,18;"""B""";12 ,23;"GRID" ri14,2;"Version ""A""";16,0;"for distances";17,0;"from a baseline" tk14,19;"Version ""B""";16,17;"for distances";17,17;"from grid pegs" w10 ,24:114r,0:0,140:1,0:0,-140:126~,0:0,-1:-241,0 y+20,7;"CHOOSE ""A"" OR ""B""" z01;21,7;"" |Pxb=8:yb=88X:xe=63?:ye=151:d=1:spacing=4 ~ 9040P# 6xb=106j:yb=88X:xe=72H:ye=153  9040P# 7xb=133:yb=88X:xe=164:ye=127  9040P# 8xb=247:yb=146:xe=168:ye=132  9040P# =""8080 $="a"version=1:8100 ="b"8600! ="m"100d  8080  version 1  bs=0 :l$  0 (lx=224:ly=160:9000(#  1 %2,7;"BASELINE VERSION" .17,2;"+";17,29;"+" K25,35#:206,0:0,1:-206,0 18,12 ;"BASELINE" )7:4,23;"*":5 bs>08225! !1;16,15;"*" 4"ENTER LENGTH OF BASELINE ";i$:i$=""8200 9350$ t=18200 bs=i$ a$=i$ !'16,(15-(i$/2));a$ #'24,40(:159,95_ & 1;9 ,15;"*" 0/" ENTER DISTANCE ";i$:i$=""82400 5 9350$ :t=182400 ?fd=i$ Ab$=i$ D&9 ,(15-(i$/2));fd I(232,40(:-42*,95_ N!1;10 ,26;"*" S/" ENTER DISTANCE ";i$:i$=""8275S X 9350$ ]t=18275S bsd=i$ dc$=i$ g'10 ,(26-(i$/2));sd lffd+sd/285004! 9lefta>/27:4,0;"*":5 /17,15;"+";17,30;"+" R239,40(:-230,95_:119w,40(:-110n,95_ 18,19;"BASELINE" L124|,40(:0,110n:1,0:0,-110n c7:4,36$:0,99c:-4,-4:4,4:4,-4 50,40(:4,-4:4,4 ]8,140:116t,0:-4,4:4,-4:-4,-4 B12 ,144:-4,-4:4,-4:0 S16,(23-(a$/2));a$;11 ,17;c$;13 ,10 ;b$ y$=ycoord I7:0:11 ,0;y$;12 ,0;"""Y"" CO-ORD" +xcoord=s(/2,(/2)-lefta,fd) x$=xcoord N7:4,(9 -(x$/2));x$;5,4;"""X"" CO-ORD" *8900":5:1:8110  M17,2;"+";17,28;"+";1;4,20;"*" K20,40(:0,110n:1,0:0,-110n L228,40(:0,110n:1,0:0,-110n g7:24,140:135,0:-4,4:4,-4:-4,-4 928,144:-4,-4:4,-4 !]164,135:0,-98b:-4,4:4,-4:4,4 !8160,131:4,4:4,-4 ! (0:18,10 ;"BASELINE" !r16,(14-(a$/2));a$;13 ,(7-(b$/2));b$;13 ,(26-(c$/2));c$ !+xcoord=s(/2,(/2)-lefta,fd) ! x$=xcoord !O24,40(:135,95_:223,40(:-557,95_ !O7:4,(11 -(x$/2));x$;5,6;"""X"" CO-ORD" ! ycoord=s(/2,lefta,fd) !" y$=ycoord !%I10 ,(21-(y$/2));y$;11 ,16;"""Y"" CO-ORD" !'*8900":5:1:8110 !4M17,0;"+";17,15;"+";1;4,31;"*" !9L124|,40(:0,110n:1,0:0,-110n !>N8,40(:239,95_:126~,40(:121y,95_ !C18,5;"BASELINE" !Hq13 ,(9 -(b$/2));b$;16,(8-(a$/2));a$;12 ,(21-(c$/2));c$ !Mh7:128,140:119w,0:-4,4:4,-4:-4,-4 !R:132,144:-4,-4:4,-4 !W^251,135:0,-98b:4,4:-4,-4:-4,4 !\A247,131:4,4:4,-4:0 !a-xcoord=s(/2,(/2)-righta,sd) !c x$=xcoord !f ycoord=s(/2,lefta,fd) !h y$=ycoord !pP7:4,(23-(x$/2));x$;5,18;"""X"" CO-ORD" !u=10 ,32 -y$;y$;11 ,22;"""Y"" CO-ORD" !w*8900":5:1:8110 !----Version B---- !yy=116:18-y,0;r$;18-y,3;r$:y:2,0;"LEFT";2,16;"RIGHT" !+20,7;"CHOOSE ""L"" OR ""R""" !K0:4,143:0,-60<:108l,0:1 !11 ,0;"+";11 ,6;"+";11 ,14;"+";3,0;"+";3,6;"+";3,14;"+" !912 ,5;"GRID";1;5,10 ;"*" !Qxb=8:yb=148:xe=79O:ye=132:d=1:spacing=4 ! 9040P# !Rxb=113q:yb=88X:xe=86V:ye=130:d=1:spacing=4 ! 9040P# !7xb=133:yb=88X:xe=164:ye=127 ! 9040P# !8xb=247:yb=146:xe=168:ye=132 ! 9040P# !=""8650! !="l"8660! !="r"8800`" !="m"100d ! 8650! ! verB "LEFT" !gx=0:gy=0 !!3:6:0::l$ !:2:lx=224:ly=160:9000(#:0 !!2,8;"GRID VERSION" !0,36$:255,0:0,1:-255,0:20,37%:0,110n:1,0:0,-110n !l17,2;"+";17,29;"+";3,2;"+":7:6,22;"*":6 !gy>08715 " !1;9 ,2;"*" "4"ENTER GRID MEASUREMENT ";i$:i$=""8705" " 9350$ "t=18705" "gy=i$:g$=i$ " 9 ,2;g$ " gx>08740$" "!1;17,15;"*" "4"ENTER GRID MEASUREMENT ";i$:i$=""8725" " 9350$ "t=18725" "gx=i$:a$=i$ "$%17,15-(a$/2);a$ ")I24,147:151,-19:1;4,11 ;"*" ".5"ENTER POLAR MEASUREMENT ";i$:i$=""8750." "0 9350$ "3t=18750." "5fd=i$:b$=i$ "8$4,11 -(b$/2);b$ "=H234,40(:-502,79O:1;9 ,24;"*" "B5"ENTER POLAR MEASUREMENT ";i$:i$=""8770B" "D 9350$ "Et=18770B" "Gsd=i$:c$=i$ "I9 ,24;c$ "JXY=c(gx,gy,/2) "L]fd+sd08830~" "t 1;9 ,29;"*" "v4"ENTER GRID MEASUREMENT ";i$:i$=""8822v" "x 9350$ "zt=18822v" "|'d$=i$:gy=i$:gy=08822v" "~9 ,30-d$;d$ "gx>08842" "!1;17,15;"*" "4"ENTER GRID MEASUREMENT ";i$:i$=""8834" " 9350$ "t=18834" "'a$=i$:gx=i$:gx=08834" "%17,15-(a$/2);a$ "(80P,128:152,20 " 1;4,20;"*" "5"ENTER POLAR MEASUREMENT ";i$:i$=""8848" " 9350$ "t=18848" "fd=i$:b$=i$ "$4,20-(b$/2);b$ "E20,40(:513,79O:1;9 ,7;"*" "5"ENTER POLAR MEASUREMENT ";i$:i$=""8860" " 9350$ "t=18860" "sd=i$:c$=i$ "#9 ,7-(c$/2);c$ "XY=c(gx,gy,/2) "fd+sd7t=1: $n=1̱i$ $.i$(n)<45-ůi$(n)>579t=1: $i$(n)=47/t=1: $0i$(n)="."p=p+1:p2t=1: $n $ $bearing check $t=0:t$=".00" $2E$360hƺE$=E$E$=E$:E$="E$+t$": $;E$(E$-1)=46.E$=((E$-E$)/10 +E$) $4E$>360.0014 ŰE$-E$0.591KƧt=1 $E$-E$4t=1 $Dt=117,17;q$:100d:17,17;r$ $ %convert radians to angles% %&anglepc=angler*180/ %N3convert and check angle% to nearest angle deg.min %XKanglepc<(anglepc+.001wn)angled=anglepc+1:anglem=0: %bangled=anglepc %l$anglem=(anglepc-anglepc)*60< %qB2*anglem(2*anglem)+1anglem=anglem+1 %v:2*anglem<(2*anglem)+1anglem=anglem %x9anglem=60<angled=angled+1:anglem=00 %{ %ask for nearer or further %=""9600% %="y"ans=1: %="n"ans=0: %="m"100d % 9600% %convert bearings to radians %7fr=(X$+X$((X$-1)̱X$)/60<)*/180 %7sr=(Y$+Y$((Y$-1)̱Y$)/60<)*/180 %7tr=(Z$+Z$((Z$-1)̱Z$)/60<)*/180 % get angles %atol=.001wn %frsraa=sr-fr %fr>sraa=sr+2*-fr %aatrab=tr+2*-sr %ab1.5@*9750& %testdad=1 %calcs %tot=2*-aa-ab-topa %.righta=((fs*tot*ab)/(ss*aa+fs*ab*tot)) %3lefta=tot-righta:abp=-aa-lefta:pba=-ab-righta %X=(fs*abp)/aa %Y=(ss*pba)/ab &Z=(ss*righta)/ab &  &|7:11 ,3;"PITCALC CANNOT CALCULATE A";13 ,3;"RESULT FROM THESE BEARINGS":6:t=1 & M6:19,2;"PRESS R TO PLOT NEW POINT";21,3;j$ &%=""9765%& &'#="r"testdad=12020 &* ="r" &/="m"100d &9 9765%& &Hget angle using cos rule &RAangler=((DBC^2+DAC^2-DAB^2)/2/DAC/DBC) &\ &zdiameter from angle &diameter=DAB/angler: &get third side from cos rule &>DBC=((DAB^2)+(DAC^2)-(2*DAB*DAC*angler)) & z estdaar333b^zagaGbodtaabhbcc` tttfstorp$r333^zgaGopUM9Ҧ~2W2W town~2X~2Xo&{c&ight9S֬eft8rvbh*bB I$z&4cbtlcngb<{rngb{]n@a,ZSngc}LwpngcFdeaUb60cI88aab!Hdt쾈a7 cT4k dxb)c@&2dcvxt30vxJvxjOСvx4mb0.*n_oT p6erMD44.00K --------------------------------A10.00B20.00I30T.00E30.00C30.00X10.00Y20.00Z30.00 @ +MA THREE BEARING PITCALCNB FOUR BEARING PITCALCOC RING DITCH CALCULATIONSPD TRIANGLE CALCULATIONSLE CO-ORDINATE CONVERSIONJPRESS "M" TO RETURN MENUQ INVALID DATAR URadians