C PLTTST.FTN C KEN DEMERS C UTRC C FEB 1980 C PROGRAM TO SHOW HOW SOME OF THE SFGL70 C CALL WORK. 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) CALL BAUD(IBAUD) C ERASE THE SCREEN 10 CALL ERASE C PLOT AN X & Y GRID WITH LABELS CALL WINDOW('THIS IS THE X AXIS',100.,0.,0., 1 'THIS IS THE Y AXIS',100.,0.,0.,-1) C PLOT A PATTERN DO 20 I=1,50 XARRAY(1) = 0. XARRAY(2) = I * 2 YARRAY(1) = 0. YARRAY(2) = 100. XARRY1(1) = 100. XARRY1(2) = ABS(I*2-101) YARRY1(1) = 0. YARRY1(2) = 100. CALL PLOT(2,XARRAY,YARRAY) CALL PLOT(2,XARRY1,YARRY1) 20 CONTINUE C MOVE THE CURSER BEFORE WRITING TEXT CALL MVCUR(15.,50.) 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