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

      SUBROUTINE RESET
      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
      KEYCON=1
      TRFACX=1.
      TRFACY=1.
      KBEAMX=0
      KHOMEY=3068/KFACTR
      KBEAMY=KHOMEY
      KMINSX=0
      KMAXSX=4096/KFACTR
      KMINSY=0
      KMAXSY=3120/KFACTR
      KHORSZ=56
      KLINE=0
      KZAXIS=0
      KLMRGN=0
      KRMRGN=4040/KFACTR
      KSIZEF=1
      KTBLSZ=10
      KVERSZ=88
      TMINVX=0.
      TMAXVX=4095./FLOAT(KFACTR)
      TMINVY=0.
      TMAXVY=3120./FLOAT(KFACTR)
      TRCOSF=1.
      TRSINF=0.
      TRSCAL=1.
C * MOVE TO THE HOME POSITION
C * SET 4014 ENHANCED FOR SOLID LINES
      IF(KTERM .GE. 3)CALL CWSEND
C * PLACE 4014 IN LARGE CHARACTER SIZE
      IF(KTERM .GE. 2)CALL HRSIZ(1)
C * PLACE THE TERMINAL IN A/N MODE
      CALL ALFMOD
      RETURN
      END