C PLTTST.FTN C KEN DEMERS C UTRC C FEB 1980 C PROGRAM TO SHOW HOW SOME OF THE SFGL70 C CALLS WORK. C ARRAYS TO STORE PLOTTING DATA REAL*4 XARRAY(100),YARRAY(100) REAL*4 XARRY1(100),YARRY1(100) BYTE CHAR C LET USER TELL US WHAT BAUD RATE WE'RE RUNNING AT TYPE 7000 ACCEPT 7010,IBAUD 7000 FORMAT(1X,'BAUD RATE? ',$) 7010 FORMAT(I) C TELL SFGL70 WHAT BAUD WE'RE RUNNING CALL BAUD(IBAUD) C ERASE THE SCREEN 10 CALL ERASE C PLOT AN X & Y GRID WITH LABELS CALL GRID('THIS IS THE X AXIS',100.,0.,0., 1 'THIS IS THE Y AXIS',100.,0.,0.,0) C MAKE UP SOME DATA TO BE PLOTTED DO 20 I=1,50 XARRAY(1) = 0. XARRAY(2) = I*2 YARRAY(1) = 0. YARRAY(2) = 100. XARRY1(1) = 100. XARRY1(2) = IABS(I*2-101) YARRY1(1) = 0. YARRY1(2) = 100. C PLOT THE DATA CALL PLOT(2,XARRAY,YARRAY) CALL PLOT(2,XARRY1,YARRY1) 20 CONTINUE C MOVE THE CURSER BEFORE WRITING TEXT CALL MVCUR(29.,21.) C PUT TERMINAL IN ALPHA MODE BEFORE DOING FORTRAN WRITES C WE COULD ALSO WRITE USING CALL HTEXT...ETC. CALL ALPHA TYPE 9000 ACCEPT 9010,CHAR 9000 FORMAT(1X,'TYPE X TO EXIT, C TO CONTINUE ',$) 9010 FORMAT(A) IF(CHAR .NE. 'X')GO TO 10 END