C COPYRIGHT (C) 1983 GLENN EVERHART
C PERMISSION IS GIVEN TO ANYONE TO USE, DISTRIBUTE, OR COPY THIS
C PROGRAM FREELY BUT NOT TO SELL IT COMMERICALLY.
C PARAMETERS TO DEFINE DIMENSIONS FOR VIZIKLUGE
C PHYSICAL SHEET DIMENSIONS ARE (RRW,RCL)
C DISPLAY SHEET DIMENSIONS ARE (DRW,DCL)
C RECALL 1ST DIMENSION IS ACROSS TOP, 2ND DIMENSION IS
C  LENGTH DOWN. NOTE TOO THAT RCP AND RRCL ARE TO BE
C COMPUTED AS RRW*RCL AND RCPM27 IS (RRW*RCL -27)
C SINCE THERE ARE 27 ACUMULATORS (A THRU Z AND %).
C BRRCL=(RRCL+7)/8 , I.E., ENOUGH BYTES FOR A BITMAP
C
C *** IMPORTANT CONSTRAINTS ON SETTINGS ***
C
C
C  RRW MUST BE AT LEAST 27 SO THAT THE 27 ACCUMULATORS WILL
C  BE AVAILABLE. (IF IT IS LESS, THE % ACCUMULATOR'S LOCATION
C  WILL NOT BE CORRECT AND WILL SCREW YOU UP UNLESS 2 TYPE ARRAYS
C  ARE DEFINED; THE DATA AREAS FOR THE AC'S ARE SEPARATE
C  BUT THE TYPE ARRAY IS UNIFIED. WHILE YOU MIGHT ABANDON SOME
C  OF THE AC'S WITH NO REAL PENALTY EXCEPT EXPOSING YOUR USERS
C  TO DOUBLE DEFINED AREAS, THE TYPE INFO FOR % IS IN A FIXED
C  LOCATION HARD CODED IN. NORMALLY YOU'LL WANT TO LEAVE IT TO
C  A FLOATING TYPE AND IT MAY NOT FOUL YOU UP (MOST DATA CELLS
C  WILL BE FLOATING TOO), BUT CORRECT OPERATION CANNOT BE GUARANTEED
C  UNLESS RRW (NUMBER OF COLUMNS IN PHYSICAL SHEET) IS 27 OR MORE.)
C
C  RCL MUST BE AT LEAST 2; THE FIRST IS THE ACCUMULATORS AND THE
C  SECOND UP ARE DISPLAY COORDINATES.
C
C  DRW MUST BE LESS THAN OR EQUAL TO RRW AND DCL MUST BE
C  LESS THAN OR EQUAL TO (RCL-1). ALSO MXCOLS MUST BE LESS
C  THAN OR EQUAL TO DRW AND MXROWS MUST BE LESS THAN OR
C  EQUAL TO DCL.
C
C  MPWD IS JUST THE MAX PRINT LINE FOR THE W COMMAND (WRITING
C  PRINT IMAGES OF THE SCREEN OUT). IT MAY BE SET SMALLER THAN
C  132, BUT TO MAKE IT LARGER YOU'LL HAVE TO INCREASE THE SIZE
C  OF PRINT ARRAYS IN DSPSHT ROUTINE WHICH FILLS IN THE SIZES.
C
C IT IS ASSUMED YOUR FORTRAN UNDERSTANDS THESE PARAMETERS ARE
C ALL INTEGER QUANTITIES; CHANGE AS NEEDED IF FORM IS WRONG.
C
C THERE ARE A FEW PARAMETER STATEMENTS IN PROGRAMS TOO. THESE
C HAVE TO DO WITH UVT100 DEFINITIONS AND MAY ALSO BE PULLED
C INTO HERE IF DESIRED.
C
C  PARAMETER RRCL=RRW*RCL. COMPUTE AND FILL IN YOURSELF (FORTRAN
C  AT OUR SITE DOESN'T LET THAT BE AUTOMATIC).
C  RCPM27 IS COMPUTED AS RRCL-27.
C  PARAMETER RCP IS THE SAME VALUE AS RRCL.
C
C *****************************************
	PARAMETER DCL = 21 ! DISPLAY MAX ROWS, COLS.
	PARAMETER DRW = 15 ! DISPLAY MAX ROWS
	PARAMETER MPWD = 132
	PARAMETER RRW = 32 ! NUMBER OF ROWS
	PARAMETER RCL = 40 ! REAL (PHYSICAL) ROWS AND COLUMNS OF SPREADSHEET
	PARAMETER RCP = 1280
	PARAMETER RCPM27 = 1253
	PARAMETER RRCL = 1280
C PARAMETER RRCL=RRW*RCL
C BRRCL=(RRCL+7)/8 , I.E., ENOUGH BYTES FOR A BITMAP
	PARAMETER BRRCL=160
	PARAMETER TMREFN = 1
C MXCOLS AND MXROWS ARE MAX COLS (ACROSS TOP) ON DISPLAY INITIALLY
C AND NUMBER OF INITIALLY DISPLAYED ROWS (ALONG LEFT) DOWN. DRW,DCL
C ARE MAX POSSIBLE DISPLAY COLS, ROWS RESPECTIVELY.
	PARAMETER MXCOLS=7
	PARAMETER MXROWS=20
C LCMDR AND LDSPR ARE COMMAND AND DISPLAY ROWS ON SCREEN. REDEFINE
C TO OTHER NUMBERS FOR LARGER OR SMALLER SCREENS THAN VT100.
	PARAMETER LCMDR=23
	PARAMETER LDSPR=24
C
C JVTINC IS INCREMENT FOR OFFSET DUE TO SCREEN ODDITIES
	PARAMETER JVTINC=0
C SET JVTINC TO 0 FOR VT52