TI-74 BASICALC SUBROUTINES
Copyright 1997 by Arnold J. Barzydlo

Perform a GOSUB 1600 for Chord Calculation, GOSUB 2010 for Angle from Chord

1600 PRINT "      Chord Calculator   ":PAUSE .5
1610 PRINT "Calculator must be in Degrees!":PAUSE .5
1620 PRINT "Angle Theta: ";:ACCEPT NULL(0),T1:IF T1>180 THEN T1=360-T1
1630 IF T1>0 THEN T1=T1*((2*PI)/360)
1640 IF T=0 THEN PRINT " Length of Arc: ";:ACCEPT NULL(0),A1
1650 IF T=0 AND A1=0 THEN 1830
1660 PRINT " Circumference: ";:ACCEPT NULL(0),C1
1670 IF C1>0 THEN D=C1/PI:R=D/2:GOTO 1720
1680 IF C1=0 THEN PRINT " Diameter: ";:ACCEPT NULL(0),D
1690 IF D>0 THEN C1=PI*D:R=D/2:GOTO 1720
1700 IF D=0 THEN PRINT " Radius: ";:ACCEPT NULL(0),R:D=2*R:C1=PI*D
1710 IF R=0 THEN 1830
1720 IF T>0 THEN A1=R*T
1730 IF A1>0 THEN T=A1/R
1740 IF T1=0 THEN T1=T/((2*PI)/360)
1750 C2=D*SIN(T1/2)
1760 PRINT " Circumference =";C1:PAUSE
1770 PRINT " Length of Arc =";A1:PAUSE
1780 PRINT " Diameter =";D:PAUSE
1790 PRINT " Angle Theta =";T1;"degrees":PAUSE
1800 PRINT " Radius =";R:PAUSE
1810 PRINT " Chord =";C2:PAUSE
1820 T1=0:T=0:A1=0:C1=0:C2=0:C3=0:D=0:R=0:C3=0:D3=0:R3=0:L3=0:L4=0:S3=0:S4=0
1830 RETURN
1840 PRINT "Circumference: ";:ACCEPT NULL(0),C3
1850 IF C3=0 THEN PRINT "Diameter: ";:ACCEPT NULL(0),D3
1860 IF (C3=0 AND D3=0)THEN PRINT "Radius: ";:ACCEPT NULL(0),R3
1870 IF R3>0 THEN D3=R3*2:C3=D3*PI:GOTO 1900
1880 IF D3>0 THEN R3=D3/2:C3=D3*PI:GOTO 1900
1890 IF C3>0 THEN D3=C3/PI:R3=D3/2
1900 L3=2*(ASIN(C2/D3)):S3=R3*L3
1910 L4=L3*(180/PI):REM convert to degrees
1920 S4=R3*((PI*L3)/180):REM Arc W/L in degrees
1930 PRINT L3;"degrees":PAUSE
1940 PRINT " Arc =";S4:PAUSE
1950 PRINT " Diameter =";D3:PAUSE
1960 PRINT " Radius =";R3:PAUSE
1970 PRINT " Chord =";C2:PAUSE
1980 PRINT " Circumference =";C3:PAUSE
1990 T1=0:T=0:A1=0:C1=0:C2=0:C3=0:D=0:R=0:D3=0:R3=0:L3=0:S3=0:S4=0
2000 RETURN
2010 PRINT "      Angle From Chord":PAUSE 1
2020 INPUT "  Chord: ";C2:GOTO 1840