100  REM TRIG.BS5  ====== PRINT OUT TRIG VALUES.  
110  PRINT 
120  PRINT " THIS PROG. PRINTS A SINE & COSINE TABLE"
130  PRINT 
140  INPUT " START AT WHAT DEGREE (0-359)===> "S
150  PRINT 
160  INPUT " END AT WHAT DEGREE (1-360)===> "E
170  PRINT 
180  IF S<0 THEN S=0
190  IF S>359 THEN S=359
200  IF E<=1 THEN E=1
210  IF E>360 THEN E=360
220  PRINT " START = ";S," END = ";E
230  PRINT 
240  IF S>E THEN PRINT " *** START > END ***"
250  IF S>E THEN 100
260  INPUT " INCREMENT BETWEEN DEGREES OF ? (1-10)===> "I
270  PRINT 
280  IF I>(E-S) THEN I=(E-S)
290  IF I<1 THEN I=1
300  IF I>10 THEN I=10
310  PRINT 
320  PRINT " TABLE INCREMENTING BY ";I
330  PRINT 
340  FOR X=S TO E STEP I
360     LET Z=X*(.0174532)
370     PRINT " SINE ";X;" = ";SIN(Z),TAB(30);"COSINE ";X;" = ";COS(Z)
380  NEXT X
390  END