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 GRID('THIS IS THE X AXIS',100.,0.,0., 1 'THIS IS THE Y AXIS',100.,0.,0.,0) C GET THE CROSSHAIR POSITION CALL SCURSR(CHAR,IX,IY) C MOVE THE CURSER BEFORE WRITING TEXT CALL MVCUR(15.,25.) C PUT TERMINAL IN ALPHA MODE BEFORE DOING FORTRAN WRITES C WE COULD ALSO WRITE USING CALL HTEXT...ETC. CALL ALPHA TYPE 9020,IX,IY TYPE 9000 ACCEPT 9010,CHAR IF(CHAR .NE. 'X')GO TO 10 9000 FORMAT(1X,'TYPE X TO EXIT, C TO CONTINUE ',$) 9010 FORMAT(A) 9020 FORMAT(1X,'ABS CURSOR X,Y =',2(I4)) END