Compucolor.org – Virtual Media

Listing of file='SINCOS.BAS;01' on disk='vmedia/utility-sector.ccvf'

15 PLOT 12:PLOT 29,17
20 P= 3.14159
25 PRINT "DEGREES",,"RADIANS",,"SINE",,"COSINE"
30 FOR X= 0TO 90
34 PLOT 29,22
40 Y= X* (P/ 180)
60 PRINT X,Y;TAB( 32);SIN (Y);TAB( 48);COS (Y)
70 NEXT X
80 FOR E= 0TO 1500
87 NEXT E
90 LOAD "MENU":RUN