10  DIM A$[255]
20  IF  ERROR  THEN 320
30  PRINT LIN(1);"This program will print out a table of Sines, Cosines,"
40  PRINT "and Tangents for 0 to 90 degrees.  This may take a while"
50  PRINT "to print out.  Are you sure you want to do this? ";
60  LINPUT A$
61  PRINT 
62  A$=UOS$(A$)
63  IF A$[1,1]#"Y" THEN 320
70  PRINT " A         COS A            SIN A            TAN A"
80  I=B=C=0
90  A=1
100  PRINT  USING 110;I,A,B,C
110  IMAGE  DD,2(5X,1D.10D),5X,2D.10D
120  A=(2-(3.14159/180)**2)/2
130  B=SQR(1-A**2)
140  C=B/A
150  I=1
160  PRINT  USING 110;I,A,B,C
170  A1=A
180  B1=B
190  FOR I=2 TO 90
200  C=A*A1-B*B1
210  S=B*A1+A*B1
220  IF C=0 THEN 240
230  GOTO 250
240  PRINT  USING 310;I,C,S
250  T=S/C
260  PRINT  USING 110;I,C,S,T
270  B1=S
280  IF I <> 45 THEN 300
290  PRINT LIN(5)" A         COS A            SIN A            TAN A"
300  NEXT I
310  IMAGE DD,2(5X,D.5DE),13X," UNDEFINED"
320  CHAIN R,"*HELP"
330  SYSTEM X,"BYE"
340  END 
