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 ***************************************** C THIS SET OF PARAMETERS IS FOR THE VIRTUAL ARRAY BASED PORTACALC C IN WHICH THE SPREADSHEET ARRAY IS VIRTUAL. ATTEMPT TO MAKE IT REALLY C HUGE TO SHOW IT CAN BE DONE. (ONLY THE BITMAP IS IN PHYSICAL C MEMORY AND VARIES WITH PHYSICAL ARRAY SIZE). C NOTE THAT ALL THESE ENTRIES CAN BE FULLY USED (WOW!) C ANOTHER NOTE: C IF DCL IS LARGER THAN 20, YOU CAN SPECIFY A SCREEN THAT'S LARGER THAN C 20 ROWS LONG. IT WON'T SHOW UP ON A VT100, BUT IT CAN BE PRINTED. C THIS IS STANDARDLY DONE WITH THE VAX VERSIONS. PARAMETER DCL = 20 ! DISPLAY MAX ROWS, COLS.(HERE=LENGTH OF COLS) PARAMETER DRW = 14 !DISPLAY MAX ROWS (ACTUALLY # COLS, LENGTH OF ROWS) PARAMETER MPWD = 132 PARAMETER RRW = 60 ! NUMBER OF COLS PARAMETER RCL = 66 ! REAL (PHYSICAL) ROWS AND COLUMNS OF SPREADSHEET PARAMETER RCP = 3960 C NOTE LIMITATION IS THAT VBLS ARRAY IS (8,RRW,RCL) AND THERE MUST BE C NOT OVER 32767 ELEMENTS IN ANY ARRAY... PARAMETER RCPM27 = 3933 PARAMETER RRCL = 3960 C PARAMETER RRCL=RRW*RCL C BRRCL=(RRCL+7)/8 , I.E., ENOUGH BYTES FOR A BITMAP PARAMETER BRRCL=495 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