Directory of image this file is from
This file as a plain text file

      SUBROUTINE RECOVR
      COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY,
     1 TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX,TRFACY,
     2 TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6,KMOFLG(8),KPAD2,
     3 KBAUDR,KGNFLG,KGRAFL,KHOMEY,KKMODE,KHORSZ,KVERSZ,KTBLSZ,
     4 KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY,
     5 KMOVEF,KPCHAR(5),KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON,
     6 KINLFT,KOTLFT,KUNIT
C * REMOVE MOVE FLAG
      KMOVEF=0
C * SAVE THE MODE
      MODE=KKMODE+1
C * SAVE THE Y-CO-ORDINATE
      IY=KBEAMY
C * CLEAR ALL OTHER MODES
      CALL ALFMOD
C * MOVE TO SCREEN LOCATION
      CALL MOVABS(KBEAMX,IY)
C * PLACE IN THE PROPER MODE
      IF(MODE .LT. 1)MODE=1
      IF(MODE .GT. 5)MODE=5
      GO TO (100,200,120,200,200),MODE
100   CALL ALFMOD
      GO TO 200
120   CALL PNTMOD
200   RETURN
      END