c c This copies plot from screen to Versatek printer/plotter c PARAMETER IBSIZ=264 ! Number of plot bytes BYTE IB(IBSIZ) COMMON /SCRAT/IB COMMON /IOCOM/IUNIT,LUNIT,LREC,IOTYPE TYPE 1000 1000 FORMAT(////////////////////////////) LUNIT = 6 IOTYPE = 1 ! Plot transparent DO 5 j = 1,ibsiz ! Clear buffer 5 IB(J) = 0 CALL SCTEST(ITEST,,,,,,,,IVERT,IHORIZ) TYPE *,ITEST,IVERT,IHORIZ HRES = 512./IHORIZ VRES = 800./IVERT MAX = VRES/HRES + .5 IOFF = IBSIZ/2-IHORIZ/8 ! Byte offset for plot IF(MAX .le. 0) MAX = 1 IF(ITEST .eq. 0)return d CALL ATTACH d10 DO 20 J = 1,100 d20 CALL OUTPUT(IB,IBSIZ) d CALL OWAIT TIM = SECNDS(0.) ! Get old time DO 100 j = IVERT-1,0,-1 ! do all lines CALL GETSC(J,IB(IOFF+1),IBSIZ-IOFF) ! Get input d DO 30 K = 1,max d30 CALL OUTPUT(IB,IBSIZ) ! Start output d CALL OWAIT ! Wait for output 100 CONTINUE d CALL OUTPUT(0,0) ! Perform a form feed TYPE *,SECNDS(TIM) END