************ Program for CASIO FX-880P *************
CLEAR:CLS:MODE4:SETN:a$="[anykey]:":i$=CHR$(228):k$=a$+"Back ":t$=a$+"None ": p$=">Peg #":o$=CHR$(240):c$="Position of " v$=CHR$(230):m$=CHR$(135):e$=CHR$(132):d$=CHR$(238):q$=" m"+CHR$(146): b$=">Line ":h$=">Sta #":GOTO900 CLS:BEEP1:RETURN n$=INPUT$(1):CLS:BEEP:RETURN CLS:LOCATE0,1:PRINTH$;:RETURN BEEP:LOCATE5,0:PRINT" ( 26 ) 40 BEEP:LOCATE0,0:PRINT" ( 30 ) 105 R$=">1:Continue "+a$+"End ":GOTO45 R$=">1:N&E "+a$+"Azimuth " LOCATE0,0:PRINTR$;:K$=INPUT$(1):GOSUB40:RETURN R$="#Station" LOCATE0,0:PRINTR$;:INPUT" = ",a:GOSUB40:RETURN R$=">Sta BW." LOCATE0,0:PRINTR$;:INPUT" (N)= ",x:GOSUB40 LOCATE0,0:PRINTR$;:INPUT" (E)= ",y:GOSUB40:RETURN GOSUB20:R$=c$+"X" X$="N":IF x<0 THEN X$="S" Y$="E":IF y<0 THEN Y$="W" LOCATE0,1:PRINTX$;ABS(x);:LOCATE16,1:PRINTY$;ABS(y);:GOTO120 LOCATE0,1:PRINT"Lat:";X;:LOCATE16,1:PRINT"Dep:";Y;:GOTO120 ";:RETURN ";:RETURN
LOCATE0,1:PRINT"Az:";DMS$(a);:LOCATE18,1:PRINT"Dis:";d; LOCATE0,0:PRINTR$;:GOSUB25:RETURN R$=RIGHT$(STR$(G),LEN(STR$(G))-1):RETURN z=FRACa*100:a=DEG(INTa,INTz,FRACz*100):RETURN IF a>540 THEN a=a-540:RETURN IF a>l80 THEN a=a-180:RETURN a=a+180:RETURN X=ROUND(REC(d*M,a),w):Y=ROUND(Y,w):RETURN X=ROUND(POL(x,y)/M,w):IF Y<0 THEN Y=Y+360 RETURN R$="1:UTM "+a$+"Normal ":GOSUB45 IF K$="1"GOTO630 IF Y=1 THEN M=1:GOTO240 R$="1:Chain "+a$+"Meter ":GOSUB45:M=1:IF K$="1" THEN u=4:U=5:GOTO250 u=3:U=4 w=-U:m=ROUND(M^2,-6):t=-6:RETURN R$="H.avg (h)":GOSUB50:h=a:IF a<-100 OR a>1E4 GOTO255 R$="Scale factor (k)":GOSUB50:IF a<.9 OR a>1.1 GOTO261 r=ROUND(r/(r+h),-6):M=ROUND(r*a,-6):GOTO240 LOCATE0,l:PRINT"Hz";I$;">";DMS$(a);:LOCATE19,1:PRINT"Dis";d;:GOTO120 IF r<0 THEN r=r+360 RETURN IF r>180 THEN r=360-r
RETURN DIM A(Q),B(Q),D(Q),N(Q),E(Q),X(Q),Y(Q):RETURN N(N+1)=N(1):E(N+1)=E(1):RETURN R$=h$+"1":GOSUB60:A=x:B=y:RETURN R$=h$+"2":GOSUB60:C=x:D=y x=C-A:y=D-B:GOSUB190:L=X:G=Y:a=Y:GOSUB150:H=a:RETURN a=SQR(b^2+c^2-2*b*c*COSX):RETURN X=ACS((b^2+c^2-a^2)/(2*b*c)):RETURN Q=a+1:N=a:GOSUB300 FOR I=1 TO N:G=I:GOSUB130:R$=">Sta #"+R$:GOSUB60:N(I)=x:E(I)=y:NEXT I:RETURN s=(a+b+c)/2:B=s*(s-a)*(s-b)*(s-c):A=ROUND(SQRB,t):RETURN LOCATE0,0:PRINTR$;:INPUT" (a) = ",a:GOSUB40:IF a<=0 GOTO390 a=a*M:RETURN LOCATE0,0:PRINTR$;:INPUT" (b) = ",b:GOSUB40:IF b<=0 GOTO400 b=b*M:RETURN LOCATE0,0:PRINTR$;:INPUT" (c) = ",c:GOSUB40:IF c<=0 GOTO410 c=c*M:RETURN LOCATE0,0:PRINTR$;:INPUT" (h) = ",h:GOSUB40:IF h<=0 GOTO420 h=h*M:RETURN SETF5:LOCATE0,0:PRINT"Area";R$;" =";ABS(A);:GOSUB25:RETURN R$="(Y)Reduce-N&E "+a$+"None ":GOSUB45:IF K$<>"Y" THEN RETURN R$="Reduct of":GOSUB60:Cn=x:Ce=y FOR I=1 TO N:N(I)=N(I)-Cn:E(I)=E(I)-Ce:NEXT I:RETURN
LOCATE0,0:PRINTR$;a;:GOSUB25:GOSUB40:RETURN W=0: R$="Fix area":GOSUB50:IF a<=0 GOTO500 IF U=5 THEN a=INTa+FRACa*2.5 W=a/m:RETURN x=A-C:y=B-D:GOSUB190:RETURN IF a=90 OR a=270 THEN a=0 RETURN Q=ABS((C*P+O*I+H*F+E*D-D*O-P*H-I*E-F*C)/(m*2)):T=T+Q:RETURN R$="UTM 0:User "+a$+"Standard ":GOSUB45:IF K$="0" GOTO650 r=6358211.105:GOTO260 R$="On Latitude":GOSUB50:IF a<0 OR a>80 GOTO650 b=6377276.345:e=6.637846E-3 r=b*SQR(l-e)/(1-e*SINa^2):GOTO260 IF S=1 THEN R$="PC sta" IF S=2 THEN R$="PI sta" IF S=3 THEN R$="PT sta" GOSUB30:GOSUB50:I=a IF S=2 AND I-T<0 GOTO730 IF S=3 AND I-l<0 GOTO730 IF I<0 GOTO730 RETURN GOSUB20:PRINT" 1:Position 2:Direct 3:Areas K$=INPUT$(1):K=VAL(K$):BEEP ON K GOTO 1000,2800,3200,5000,5300,999 4:Problem 5:Curve 6:Quit ";:

970 980

GOTO900 CLS:R$="By Phrompatt Junkrajang.(1998)":FOR I=1 TO 30 LOCATE0+I,0: PRINTMID$(R$,I,1);:NEXT I R$="Good Bye !":FOR I=1 TO 9:LOCATE11+I,1:PRINTm$; LOCATE11+I,1:PRINTMID$(R$,I,1);:NEXT I FOR I=1 TO 300:NEXT I ** Line 950 - 980 Line 950 ** /
BEEP1:CLEAR:CLS:SETN:GOTO#0 CLS R$="1:Traverse 2:0ffset 3:0nline4:Reference 5:X-Section 6:Back ":GOSUB45:K=VAL(K$)

ON K GOTO 1050,1900,1900,1900,2100,900 GOTO1010 H$="[Traverse]":GOSUB30 R$="1:Close 2:Open "+k$:GOSUB45:KS=VAL(K$):ON KS GOTO1100,1100 GOTO1000 H$="[Close Traverse]":IF KS=2 THEN H$="[Open Traverse]" GOSUB30:GOSUB210 GOSUB48:IF KS=1 AND a>2 THEN LS=2:GOTO1130 IF KS=2 AND a>0 GOTO1130 GOTO1110 IF a>99 GOTO1110 Q=a+1:N=a:GOSUB300:SETFu:G=N:GOSUB130:i$=R$:IF KS=1 GOTO1170
K$="2":GOSUB44:LS=VAL(K$):IF LS<>1 THEN LS=2:GOTO1170 GOSUB58:P=x:O=y GOSUB310:N(0)=x:E(0)=y IF KS=2 AND LS=1 GOTO1220 j$="BW.":IF KS=1 THEN j$="2" R$=">Az 1"+v$+j$:GOSUB50:GOSUB140:A(0)=a IF KS=1 GOTO1270 R$=h$+i$:GOSUB60:C=x:F=y IF LS=1 GOTO1240 R$=">Az "+i$+v$+"FW.":GOSUB50:GOSUB140:B=a:GOTO1280 R$=">Sta FW.":GOSUB60:L=x:K=y x=P-N(0):y=O-E(0):GOSUB190:A(0)=Y x=L-C:y=K-F:GOSUB190:B=Y:j=X:GOTO1280 C=N(0):F=E(0):N(N)=C:E(N)=F X1=C-N(0):Y1=F-E(0):TM=0:TD=0:TA=0 FOR I=1 TO N:G=I:GOSUB130:i$=R$:G=I+1:GOSUB130:j$=R$ p$=">Ang #" R$=p$+j$:IF KS=2 THEN R$=p$+i$:GOTO1320 IF I=N THEN R$=p$+"1" GOSUB50:GOSUB140:A(I)=a:TA=TA+a IF KS=2 AND I=N GOTO1360 p$=">Dis ":R$=p$+i$+v$+j$:IF KS=1 AND I=N THEN R$=p$+i$+v$+"1" GOSUB50:TD=TD+a:D(I)=a
NEXT I IF KS=1 GOTO1400 IF B<A(0) THEN B=B+360 S=B-A(0)+(N-1)*180:a=A(0):GOSUB150:A(0)=a:GOTO1410 S=(N-2)*180 R=S-TA:Z=R/N:B(0)=A(0):GOSUB20 G=M:GOSUB130:IF M=1 THEN R$="1.00000" LOCATE0,l:PRINTe$;"Dis";TD;:LOCATE19,1:PRINT"Er";DMS$(R); LOCATE0,0:PRINTe$''Ang";DMS$(TA);:LOCATE19,0:PRINT"Coff ";R$;:GOSUB25:GOSUB30 IF R=0 GOTO1560 R$="Adj by 0:User "+a$+"Auto ":GOSUB45 FOR I=1 TO N:IF K$<>"0"GOTO1550 G=I:GOSUB130:i$=R$:G=I+l:GOSUB130:j$=R$:p$="Hz>" R$=p$+j$:IF KS=2 THEN R$=p$+i$:GOTO1530 IF I=N THEN R$=p$+"1" LOCATE0,0:PRINT R$;DMS$(A(I));:LOCATE20,0:PRINT"Adj(";CHR$(34);:INPUT") ",a: GOTO40 Z=DEG(0,0,a) A(I)=A(I)+Z:NEXT I:H=0:V=0:GOSUB20 FOR I=1 TO N:a=A(I-1)+A(I):GOSUB150:A(I)=a G=I:GOSUB130:i$=R$:G=I+1:GOSUB130:j$=R$ R$=b$+i$+v$+j$:IF KS=1 AND I=N THEN R$=b$+i$+v$+"1" IF KS=2 AND I=N TlIEN R$=b$+i$+v$+"FW." G=I-1:IF KS=2 THEN G=I

a=A(G):d=D(I)*M:IF KS=2 AND I=N GOTO1620 GOSUB110:d=D(I):GOSUB180:GOSUB105:N(I)=X:E(I)=Y:H=H+Y:V=V+X:GOTO1630 GOSUB30:LOCATE0,0:PRINTR$;" Az:";DMS$(a);:GOSUB25 NEXT I IF KS=1 GOTO1645 LOCATE3,1:PRINTe$;"comp ";V;:LOCATE0,0:PRINT"Lat:";e$;"fix ";X1; LOCATEl9,0:PRINT"Er>";X1-V;:GOSUB25 LOCATE3,1:PRINTe$;"comp ";H;:LOCATE0,0:PRINT"Dep:";e$;"fix ";Y1; LOCATEl9,0:PRINT"Er>";Y1-H;:GOSUB25:GOSUB30:GOTO1650 GOSUB30:LOCATE0,0:PRINTe$;"Lat ";V;:LOCATE16,0:PRINTe$;"Dep ";H;:GOSUB25 IF H=Y1 AND V=X1 THEN AC=1E8:X=0:GOTO1665 x=X1-V:y=Yl-H:GOSUBl90:V=x:H=y:AC=INT(INT(TD/X)/100)*100 G=AC:GOSUB130 GOSUB30:LOCATE0,0:PRINT"Acc 1:";R$;:LOCATE18,0:PRINT"Ec";X;:GOSUB25 IF AC=1E8 GOTO1780 IF KS=2 THEN N=N-1 v=0:h=0:FOR I=1 TO N:IF I=N THEN X=V-v:Y=H-h:GOTO1720 X=ROUND((D(I)*V/TD),w):Y=ROUND((D(I)*H/TD),w):v=v+X:h=h+Y G=I+1:IF KS=2 THEN G=I IF KS=1 AND I=N THEN G=1 GOSUB130:D$="#"+R$+m$+d$+"E:":L$="#"+R$+m$+d$+"N:" LOCATE0,1:PRINTD$;E(I);:SETN:LOCATE20,1:PRINT"Cr:";Y*10^u;:SETFu LOCATE0,0:PRINTL$;N(I);:SETN:LOCATE20,0:PRINT"Cr:";X*10^u;:GOSUB25:SETFu
N(I)=N(I)+X:E(I)=E(I)+Y:NEXT I FOR I=1 TO N:N(I)=N(I)+N(I-1):E(I)=E(I)+E(I-1) G=I+1:IF KS=1 AND I=N THEN G=1 GOSUB130:R$=c$+R$:x=N(I):y=E(I):GOSUB80 NEXT I:GOTO10 H$="[Offset]":IF K=3 THEN H$="[Online]" IF K=4 THEN H$="[Reference]" GOSUB30:GOSUB210:GOSUB44:P=0:IF K$="1" THEN P=1 R$="Sta A":IF K=4 THEN R$=">ins" SETFu:GOSUB60:N=x:E=y:IF P=1 GOTO1930 R$=">Az A"+v$+"B":IF K=4 THEN R$=">Az BW"+v$+"ins" GOSUB50:GOSUB140:Z=a:IF K=4 THEN GOSUB160:Z=a GOTO1940 IF K=4 THEN GOSUB58:GOTO1937 R$="Sta B":GOSUB60 x=x-N:y=y-E:GOSUBl90:Z-Y IF K=3 OR K=4 GOTO1950 R$="Offset> 1:Left "+a$+"Right ":GOSUB45:O=2:IF K$="1" THEN O=1 L$="Dis ":R$=L$+"A"+v$+"Q":IF K=3 THEN R$=L$+"A"+v$+"P" IF K=4 THEN R$="Ang BW<ins>P":GOSUB50:GOSUB140:R=a:R$=L$+"ins"+v$+"P":GOSUB50:d=a:GOTO1965 GOSUB50:H=a:IF K=3 THEN d=H:a=Z:GOTO1995 R$=L$+"Q"+v$+"P":GOSUB50:V=a d=H:a=Z:GOSUB20:GOSUB180:x=N+X:y=E+Y:R$=c$+"Q":GOSUB80
R=ATN(V/H):a=Z-R:IF O=2 GOTO1965 GOTO1970 a=Z+R IF a<0 THEN a=a+360:GOTO1990 IF a>360 THEN a=a-360 IF K=4 GOTO1995 d=POL(H,V) GOSUB20:GOSUB180:x=N+X:y=E+Y:R$=c$+"P":d=d*M:IF K=3 OR K=4 THEN GOSUB110:GOSUB105 GOSUB80:GOSUB30:GOSUB43:IF K$="1" GOTO1940 GOTO1000 H$="[X-Section]":GOSUB30:GOSUB210:SETFu H$="[X-Section]":GOSUB30:R$="1:Resec 2:Inter "+k$:GOSUB45:P=VAL(K$) H$="[Resection]":IF P=2 THEN H$="[Intersection]" ON P GOTO2150,2600 GOTO1000 GOSUB30 R$="1:Az"+v$+"X 2:Hz"+v$+"X 3:X on BL 4:Beck ":GOSUB45:K=VAL(K$):IF K=3 GOTO 2400 IF K=4 GOTO2110 GOSUB310:GOSUB320 R$="Az 1"+v$+"X":IF K=2 THEN R$="Ang X<1>2" GOSUB50:GOSUB140:E=a R$="Az 2"+v$+"X":IF K=2 THEN R$="Ang 1<2>X" GOSUB50:GOSUB140:F=a

IF K=2 THEN L=X:G=P:GOTO2972 IF K=3 GOTO3120 r=P-G:GOSUB280 a=r:R$=b$+"1"+v$+"X":T$="1":GOSUB270 GOSUB30:GOSUB43:IF K$="l"GOTO3040 GOTO10 IF G<=180 GOTO3128 h$=CHR$(227):r=P-G:GOSUB280:IF r>90 THEN r=360-r:h$=CHR$(229) GOTO3130 h$=CHR$(229):r=P-G:GOSUB280:IF r>90 THEN r=360-r:h$=CHR$(227) V-d*SINr:H=d*COSr:R$=c$+"P" LOCATE16,0:PRINT"(X";Y$;"1)";H;:LOCATE16,1:PRINT"(X";h$;"P)";V;:GOSUB120 GOSUB30:GOSUB43:IF K$="1"GOTO3040 GOTO10 H$="[Areas]":GOSUB30:GOSUB210:SETFu H$="[Areas]" GOSUB30:R$="1:Find 2:Fixed "+k$:GOSUB45:K=VAL(K$):ON K GOTO3250,3250 GOTO10 R$="1:N&E 2:Triangle "+k$:GOSUB45:J=VAL(K$):ON J GOTO3270,3270 GOTO3210 H$="[Find area]":IF K=2 THEN H$="[Fixed area]" IF K=1 AND J=2 GOTO3600 IF K=2 AND J=1 GOTO3950
IF K=2 AND J=2 GOTO3950 GOSUB30:R$="1:N"+o$+"E 2:E+W "+k$:GOSUB45:L=VAL(K$) ON L GOTO3330,3330 GOTO3250 GOSUB48:IF a<3 GOTO3330 GOSUB360:GOSUB305:T=0:R=0:GOSUB450 R$="(Y)Product "+t$:GOSUB45:IF K$<>"Y" THEN K$="N" GOSUB20 FOR I=1 TO N:Y=I+1:IF I=N THEN Y=1 IF L=1 GOTO3380 P=N(Y)-N(I):H=E(Y)+E(I):O=ROUND(H*P,t) IF O<0 THEN R=R+O:GOTO3385 T=T+O:GOTO3385 O=ROUND(N(I)*E(Y),t):P=ROUND(-(E(I)*N(Y)),t):T=T+O:R=R+P SETF5:TF K$="N"GOTO3450 G=I:GOSUB130:i$=R$:G=Y:GOSUB130:j$=R$:IF L=2 GOTO3420 F$="[N"+i$+o$+"E"+j$+"]":B$="[E"+i$+o$+"N"+j$+"]" LOCATE2,1:PRINTF$;:LOCATEl7,1:PRINTB$; LOCATE1,0:PRINTO;:LOCATE16,0:PRINTP;:GOSUB25:GOTO3450 : F$=b$+i$+v$+j$ LOCATE0,l:PRINTF$;:LOCATE14,1:PRINT"[N";o$;"E]";O;:SETFu LOCATE0,0:PRINT"[N-S]";P;:LOCATE14,0:PRINT"[E+W]";H;:GOSUB25 NEXT I:SETF5
LOCATE6,1:PRINTe$;"[-]";ABS(R);:LOCATE6,0:PRINTe$;"[+]";T;:GOSUB25 A=ABS(T+R)/2:SETN LOCATE9,1:PRINT"(Area)";A;:SETF5:LOCATE2,0:PRINT"(Double area)";ABS(T+R);:GOSUB25:SETFu I=1600:IF U=5 THEN A=A*I A=A/m:A=A/I r=INTA:S=FRACA*4:n=INTS:v=ROUND(FRACS,-5)*100 IF v=100 THEN v=0:n=n+1 IF n=>4 THEN o=INT(n/4):n=n-o*4:r=r+o G=r:GOSUB130:A$=R$:G=n:GOSUB130:B$=R$:G=v:GOSUB130:C$=R$ IF v=0 THEN C$="00.00" G=ROUND(A*T,w):GOSUB130:M$=R$:V$="-" LOCATE7,1:PRINT"Or = ";M$;q$;:LOCATE5,0:PRINT"Area = ";A$;V$;B$;V$;C$;" Rai";:GOSUB25 GOTO10 GOSUB30:I=1:T=0:S=0 R$="Y:detail "+t$:GOSUB45:O$=K$:IF O$<>"Y" THEN O$="N" G=G+1:GOSUB130:R$=">Tri #"+R$ GOSUB390:GOSUB400:GOSUB410 GOSUB380:T=T+A:GOSUB20:IF O$="N":GOTO3650 LOCATE1,1:PRINT"c>";c;:LOCATEl6,1:PRINT":2s>";2*s; LOCATE1,0:PRINT"a>";a;:LOCATE16,0:PRINT": b>";b;:GOSUB25 LOCATE0,1:PRINT"s-b>";s-b;:LOCATE16,1:PRINT":s-c>";s-c; LOCATE2,0:PRINT"s>";s;:LOCATE16,0:PRINT":s-a>";s-a;:GOSUB25:GOSUB30:SETN LOCATE0,0:PRINTR$;" (";o$;")";B;:GOSUB25

r=AX-Pl:GOSUB280:GOSUB290:i=180-r a=A3:GOSU8160:r=P2-a:GOSUB280:GOSUB290:j=180-r a=i:GOSUB590:i=a:a=j:GOSUB590:j=a IF i=0 AND j=0 THEN b=Z:h=S/Z:GOTO4284 IF j=0 THEN jj=0:GOTO4420 jj=1/TANj IF i=0 THEN ii=0:GOTO4440 ii=1/TANi b=SQR(Z^2-2*S*(jj+ii)):h=2*S/(b+Z):GOTO4278 GOSUB30:i$="1":T=0:j$="2":G=2:P=0 R$=b$+"1"+v$+j$:GOSUB390 E=a:G=G+1:GOSUB130:k$=R$ R$=b$+j$+v$+k$:GOSUB400:D=b R$=b$+k$+v$+i$:GOSUB410:C=c TF a+b<=c OR b+c<=a OR c+a<=b GOTO4500 GOSUB380:T=T+A:P=P+1:IF L=1 OR L=2 GOTO4650 IF W>0 GOTO4585 GOSUB500 IF W<=T GOTO4600 j$=k$:a=c:GOTO4530 GOSUB20:S=T-W:a=E:b=D:c=C:GOSUB355:h=2*S/c Q=ROUND(h/SINX,w):P=b-Q:b=Q:GOSUB350:O=ROUND(a,w):X$="X)" GOSUB30:LOCATE0,0:PRINT"(1"+v$+X$;O;:LOCATE16,0:PRINT"("+j$+v$+X$;P;
LOCATE16,1:PRINT"("+k$+v$+X$;Q;:GOSUB25 GOTO10 IF P=2 GOTO4670 j$=k$:a=c:A1=E:B1=D:C1=C:GOTO4530 D1=D:E1=C:a=C1:b=Bl:c=A1:GOSUB355:H=X:J=180-H:V2=H:BS=A1 a=D1:b=E1:c=C1:GOSUB355:I=X:I$="l":J$="2":o=0 a=B1:b=C1:c=Al:GOSUB355:I=I+X:V=64:K=180-I:V1=I o=o+1:GOSUB500:IF L=2 GOTO4900 R=0:a=J:GOSUBS90:IF a=0 GOTO4730 R=1/TANJ T=0:a=K:GOSUB590:IF a=0 GOTO4750 T=1/TANK Y=SQR(A1^2+2*W*(R+T)):h=2*W/(Y+Al) IF J=90 THEN P=h:GOTO4780 P=h/SINJ IF K=90 THEN Q=h:GOTO4800 Q=h/SINK X=H:b=P:c=A1:GOSUB350:p=a X=I:b=Q:GOSUB350:q=a:D$="(":Y$=")" V=V+1:P$=CHR$(V):V=V+1:Q$=CHR$(V):GOSUB30 R$=D$+J$+v$+P$+Y$:LOCATE0,0:PRINTR$;P; R$=D$+I$+v$+Q$+Y$:LOCATE16,0:PRINTR$;Q; R$=D$+P$+v$+Q$+Y$:LOCATE16,1:PRINTR$;Y;:GOSUB25:GOSUB30

4950 49S5030 5040

R$=D$+J$+v$+Q$+Y$:LOCATE0,0:PRINTR$;q; R$=D$+I$+v$+P$+Y$:LOCATE16,0:PRINTR$;p;:GOSUB25:GOSUB30 GOSUB43:IF K$="1" THEN A1=Y:I$=Q$:J$=P$:GOTO4700 GOTO10 IF o=>2 GOTO4950 R=H:S=90-H:IF H>90 THEN R=H-90:S=180-R-I:GOTO4920 v=A1/SINR:F=A1*COSR:O=F*v/2:A1=v:GOTO4930 F=A1*SINR/SINS:v=A1*SINI/SINS:a=A1:b=F:c=v:GOSUB380:O=A:A1=v t=I-S:IF V2>90 THEN t=180-S W=W-O:I=t H=90:I=t:IF o=1 THEN H=V2 Y=SOR(A1^2-2*W/TANI):h=2*W/(A1+Y):P=h IF o=1 THEN I=V1:A1=BS Q=h/SINS:IF I<90 THEN Q=h/SINI IF o>1 GOTO4800 IF V2<90 THEN P=P+F IF V2>90 THEN Q=Q+F GOTO4800 H$="[Triangle problem] ":GOSUB30:GOSUB210:SETFu:S$="Angle of " A$=S$+"A":B$=S$+"B":C$=S$+"C":D$="Dis " R$=" 1:abc 2:bcA 3:abA 4:cAB 5:aAB 6:bC,Ar "+k$:GOSUB45:K=VAL(K$):GOSUB30 ON K GOTO5050,5050,5060,5050,5060,5070 GOTO10

R$=D$+"AB":GOSUB410:F=c:IF K=2 GOTO5070 IF K=4 GOTO5110 R$=D$+"BC":GOSUB390:D=a:IF K=5 GOTO5110 R$=D$+"CA":GOSUB400:E=b:IF K=2 OR K=3 GOTO5110 IF K=6 GOTO5160 GOSUB355:A=X a=F:b=D:c=E:GOSUB355:C=X B=180-A-C:GOTO5200 R$=A$:GOSUB50:GOSUB140:A=a X=A:IF K=4 OR K=5 GOTO5130 IF K=3 THEN B=ASN(E*SINA/D):GOTO5140 GOSUB350:D=a:a=E:b=D:c=F:GOSUB355:B=X:C=180-A-B:GOTO5200 R$=B$:GOSUB50:GOSUB140:B=a C=180-A-B:IF K=3 THEN F=D*SINC/SINA:GOTO5200 IF K=5 THEN O=D/SINA:F=O*SINC:E=O*SINB:GOTO5200 O=F/SINC:E=O*SINB:D=O*SI~A:GOTO5200 R$=C$:GOSUB50:GOSUB140:C=a R$="Area":GOSUB50:S=a/m D=2*S/(E*SINC):X=C:b=E:c=D:GOSUB350:F=a a=D:b=E:c=F:GOSUB355:A=X:B=180-A-C GOSUB20:Y=F*SINA:X=E*SINC:Z=D*SINB O=D*COSB:P=F*COSA:Q=E*COSC LOCATE0,1:PRINT"(XA)";X;:LOCATE15,1:PRINT"(XC)";Q;
LOCATE0,0:PRINT"(AB)";D;:LOCATE15,0:PRINT"Hz:A";DMS$(A);:GOSUB25 LOCATE0,1:PRINT"(YB)";Y;:LOCATE15,1:PRINT"(YA)";P; LOCATE0,0:PRINT"(BC)";E;:LOCATE15,0:PRINT"Hz:B";DMS$(B);:GOSUB25 LOCATE0,1:PRINT"(ZC)";Z;:LOCATE15,1:PRINT"(ZB)";O; LOCATE0,0:PRINT"(CA)";F;:LOCATE15,0:PRINT"Hz:C",DMS$(C);:GOSUB25 GOSUB30:GOSUB43:IF K$="1" GOTO5000 GOTO10 H$="[Cicular curve] ":GOSUB30:Y=1:GOSUB210:SETFu R$="Start on 1:PC 2:PI 3:PT 4:Back":GOSUB45:S=VAL(K$) ON S GOTO5340,5340~5340,10 GOTO5310 GOSUB700:K=0:A=0:T=0:R=0:L=0:l=0:N=0 CLS:LOCATE0,1:PRINT"<1:";d$;"><2:T><3:R><4:Lc><5:LC><6:M>"; LOCATE0,0:PRINT"Get> ";:W$=INPUT$(1):BEEP:K=K+1 IF W$="1" THEN LOCATE1,1:PRINTm$;:LOCATE5,0:PRINTd$;:INPUT" = ",A: GOSUB35:GOTO5450 IF W$="2" THEN LOCATE6,1:PRINTm$;:LOCATE5,0:INPUT"Tangent = ",T: GOSUB35:GOTO5450 IF W$="3" THEN LOCATE11,1:PRINTm$;:LOCATE5,0:INPUT"Radius = ",R: GOSUB35:GOTO5450 IF W$="4" THEN LOCATE16,1:PRINTm$;:LOCATE5,0:INPUT"Curve lenght = ",l: GOSUB35:GOTO5450 IF W$="5" THEN LOCATE22,1:PRINTm$;:LOCATE5,0:TNPUT"Chord lenght = ",L: GOSUB35:GOTO5450 IF W$="6" THEN LOCATE28,1:PRINTm$;:LOCATE5,0:INPUT"MiddJe ordinate = ",N: GOSUB35:GOTO5450 K=K-1:GOTO5370 IF W$="1" AND A<=0 THEN LOCATE1,1:PRINT"1";:K=K-1:GOTO5370 IF W$="2" AND T<=0 THEN LOCATE6,1:PRINT"2";:K=K-1:GOTO5370
IF W$="3" AND R<=0 THEN LOCATE11,1:PRINT"3";:K=K-l:GOTO5370 IF W$="4" AND l<=0 THEN LOCATE16,1:PRINT"4";:K=K-l:GOTO5370 IF W$="5" AND L<=0 THEN LOCATE22,1:PRINT"5";:K=K-1:GOTO5370 IF W$="6" AND Lc=0 THEN LOCATE28,1:PRINT"6";:K=K-1:GOTO5370 K=K+1:IF K>2 GOTO5530 GOTO5370 a=A:GOSUB140:b=a/2:d=18E3/PI:e=180/PI:GOSUB30 IF a>0 AND T>0 THEN R=T/TANb:GOTO5680 IF a>0 AND R>0 GOTO5680 IF a>0 AND l>0 THEN R=l*e/a:GOTO5680 IF a>0 AND L>0 THEN R=L/(2*SINb):GOTO5680 IF a>0 AND N>0 THEN R=N/(1-COSb):GOTO5680 IF T>0 AND R>0 THEN a=2*ATN(T/R):GOTO5680 IF T>0 AND L>0 THEN a=2*ACS(L/(2*T)):R=L/(2*SIN(a/2)):GOTO5680 IF R>0 AND l>0 THEN a=L*e/R:GOTO5680 IF R>0 AND L>0 THEN a=2*ASN(L/R):GOTO5680 IF R>0 AND N>0 THEN a=2*ACS(1-(N/R)):GOTO5680 IF L>0 AND N>0 THEN a=4*ATN(2*N/L):R=L/(2*SIN(a/2)):GOTO5680 GOSUB30:R$="* please input new data again *": GOSUB45:GOTO5340 D=INT(d/R):R=ROUND(M*d/D,w):l=ROUND(M*100*a/D,w) B=a/2:T=ROUND(R*TANB,w):L=ROUND(2*R*SINB,w) E=ROUND(T*TAN(a/4),w):N=ROUND(R*(1-COSB),w):k=.005 P0=I:IF S=2 THEN P0=I-T

IF S=3 THEN P0=I-l a=25:R$="arc 0:User "+a$+"Standard ":GOSUB45:IF K$="0" THEN GOSUB40:R$="arc":GOSUB50 a=a*M:P1=P0+T:P2=P0+l:Q=(INT(INTP0/a)+1)*a:b=Q-P0:H=P0+b Q=INT(INTP2/a)*a:c=P2-Q:J=P2-c:D0=ROUND(k*a*D,w) D1=ROUND(k*b*D,w):D2=ROUND(k*c*D,w):F=((J-H)/a)+2 GOSUB20 LOCATE0,1:PRINT"R :";R;:LOCATE16,1:PRINT"Lc:";l; LOCATE0,0:PRINTd$;" :";DMS$(B*2);:LOCATE16,0:PRINT"LC:";L;:GOSUB25 LOCATE0,1:PRINT"T :";T;:LOCATE16,1:PRINT"E :";E; LOCATE0,0:PRINT"D :";DMS$(D);:LOCATE16,0:PRINT"M :";N;;GOSUB25 LOCATE1,1:PRINT"PC stat PI stat PT sta."; LOCATE0,0:PRINTP0;:LOCATE11,0:PRINTP1;:LOCATE22,0:PRINTP2;:LOCATE30,1:GOSUB25 C0=ROUND(2*R*SIND0,w):C1=ROUND(2*R*SIND1,w):C2=ROUND(2*R*SIND2,w) LOCATE0,1:PRINT"d :";DMS$(W);:LOCATE17,1:PRINT"c :";C0;:LOCATE11,0:PRINT"a :";a;:GOSUB25 LOCATE0,l:PRINT"d1:";DMS$(D1);:LOCATE17,1:PRINT"c1:";C1;:LOCATE11,0:PRINT"a1:";b;: GOSUB25 LOCATE0,1:PRINT"d2:";DMS$(D2);:LOCATE17,1:PRINT"c2:";C2;:LOCATE11,0:PRINT"a2:";c;: GOSUB25 H$="[Lay-out]":GOSUB30:V=0:G=P0 R$="Curve on 1:LT "+a$+"RT ":GOSUB45:X=1:IF K$="1" THEN X=2 FOR I=1 TO F:A=a:B=D0:C=C0 IF I=1 THEN A=b:B=D1:C=C1 IF I=F THEN A=c:B=D2:C=C2 G=G+A:V=V+B:Z=V:IF X=2 THEN Z=360-V LOCATE14,1:PRINT"Sub chord";C;
LOCATE0,0:PRINT"Sta";G;:LOCATE15,0:PRINT"Hz:";DMS$(Z);:GOSUB25:GOSUB30 NEXT I GOTO10