home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / MCVARS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  4.9 KB  |  195 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. unit MCVARS;
  5.  
  6. interface
  7.  
  8. uses Crt;
  9.  
  10. {$IFOPT N+}
  11.  
  12. type
  13.   Real = Extended;
  14.  
  15. const
  16.   EXPLIMIT = 11356;
  17.   SQRLIMIT = 1E2466;
  18.   MAXPLACES = 8;
  19.   MAXEXPLEN = 4;
  20.  
  21. {$ELSE}
  22.  
  23. const
  24.   EXPLIMIT = 88;
  25.   SQRLIMIT = 1E18;
  26.   MAXPLACES = 4;
  27.   MAXEXPLEN = 3;
  28.  
  29. {$ENDIF}
  30.  
  31. const
  32.   MSGHEADER = 'MICROCALC - A Turbo Pascal Demonstration Program';
  33.   MSGKEYPRESS = 'Press any key to continue.';
  34.   MSGCOMMAND = 'Press / for the list of commands';
  35.   MSGMEMORY = 'Memory Available:';
  36.   MSGLOMEM = 'Not enough memory to allocate cell.';
  37.   MSGERRORTXT = 'ERROR';
  38.   MSGEMPTY = 'Empty';
  39.   MSGTEXT = 'Text';
  40.   MSGVALUE = 'Value';
  41.   MSGFORMULA = 'Formula';
  42.   MSGAUTOCALC = 'AutoCalc';
  43.   MSGFORMDISPLAY = 'Form';
  44.   MSGFILENAME = 'Enter the file name of the spreadsheet:';
  45.   MSGNAME = 'Turbo Pascal MicroCalc Spreadsheet';
  46.   MSGCOLWIDTH = 'Enter the new column width:';
  47.   MSGNOOPEN = 'Can''t open the file.';
  48.   MSGOVERWRITE = 'The file exists.  Do you want to overwrite it?';
  49.   MSGFILELOMEM = 'Not enough memory for entire spreadsheet.';
  50.   MSGNOMICROCALC = 'That is not a Turbo Pascal MicroCalc spreadsheet.';
  51.   MSGBADREALS = 'The reals in the file are in a different format.';
  52.   MSGNOEXIST = 'The file does not exist.';
  53.   MSGGOTO = 'Enter the cell to go to:';
  54.   MSGBADNUMBER = 'You must enter a number from';
  55.   MSGBADCELL = 'That is not a legal cell.';
  56.   MSGCELL1 = 'Enter the first cell to format:';
  57.   MSGCELL2 = 'Enter the last cell to format:';
  58.   MSGDIFFCOLROW = 'The row or the column must be the same.';
  59.   MSGRIGHTJUST = 'Do you want the cell right-justified?';
  60.   MSGDOLLAR = 'Do you want numbers in a dollar format?';
  61.   MSGCOMMAS = 'Do you want commas in numbers?';
  62.   MSGPLACES = 'How many decimal places should the number be rounded to?';
  63.   MSGCOLUMNS = 'Do you want to print in 132 columns?';
  64.   MSGPRINT = 'Enter the file name to print to, or press ENTER to print on the printer.';
  65.   MSGBORDER = 'Print the border?';
  66.   MSGLOADING = 'Loading...';
  67.   MSGSAVING = 'Saving...';
  68.   MSGSAVESHEET = 'Save current spreadsheet?';
  69.   MSGSTACKERROR = 'Parser stack overflow.';
  70.  
  71.   MNU = 'Spreadsheet, Format, Delete, Goto, Col, Row, Edit, Utility, Auto, Quit';
  72.   COMMAND = 'SFDGCREUAQ';
  73.   SMNU = 'Load, Save, Print, Clear';
  74.   SCOMMAND = 'LSPC';
  75.   CMNU = 'Insert, Delete, Width';
  76.   CCOMMAND = 'IDW';
  77.   RMNU = 'Insert, Delete';
  78.   RCOMMAND = 'ID';
  79.   UMNU = 'Recalc, Formula display, Toggle 43-line mode';
  80.   UCOMMAND = 'RFT';
  81.  
  82.   MAXCOLS = 100;     { Maximum is 702 }
  83.   MAXROWS = 100;
  84.   LEFTMARGIN = 3;
  85.   MINCOLWIDTH = 3;
  86.   MAXCOLWIDTH = 77;
  87.   SCREENCOLS = 26;
  88.   DEFAULTWIDTH = 10;
  89.   DEFAULTFORMAT = $42;
  90.   MAXINPUT = 79;
  91.   TOPMARGIN = 5;
  92.   PARSERSTACKSIZE = 20;
  93.  
  94.   TXTCOLOR = White;
  95.   ERRORCOLOR = 140;  { LightRed + Blink }
  96.   VALUECOLOR = LightCyan;
  97.   FORMULACOLOR = LightMagenta;
  98.   BLANKCOLOR = Black;
  99.   HEADERCOLOR = 79;  { White on Red }
  100.   HIGHLIGHTCOLOR = 31;  { White on Blue }
  101.   HIGHLIGHTERRORCOLOR = 159; { White + Blink on Blue }
  102.   MSGAUTOCALCCOLOR = LightCyan;
  103.   MSGFORMDISPLAYCOLOR = LightMagenta;
  104.   MSGMEMORYCOLOR = LightGreen;
  105.   MSGHEADERCOLOR = LightCyan;
  106.   PROMPTCOLOR = Yellow;
  107.   COMMANDCOLOR = LightCyan;
  108.   LOWCOMMANDCOLOR = White;
  109.   MEMORYCOLOR = LightRed;
  110.   CELLTYPECOLOR = LightGreen;
  111.   CELLCONTENTSCOLOR = Yellow;
  112.  
  113.   HIGHLIGHT = True;
  114.   NOHIGHLIGHT = False;
  115.   UPDATE = True;
  116.   NOUPDATE = False;
  117.   DOFORMAT = True;
  118.   NOFORMAT = False;
  119.   LEFT = 0;
  120.   RIGHT = 1;
  121.   UP = 2;
  122.   DOWN = 3;
  123.   TXT = 0;
  124.   VALUE = 1;
  125.   FORMULA = 2;
  126.   COLADD = 0;
  127.   COLDEL = 1;
  128.   ROWADD = 2;
  129.   ROWDEL = 3;
  130.   OVERWRITE = $80;
  131.   RJUSTIFY = $40;
  132.   COMMAS = $20;
  133.   DOLLAR = $10;
  134.   LETTERS : set of Char = ['A'..'Z', 'a'..'z'];
  135.  
  136.   NULL = #0;
  137.   BS = #8;
  138.   FORMFEED = #12;
  139.   CR = #13;
  140.   ESC = #27;
  141.   HOMEKEY = #199;
  142.   ENDKEY = #207;
  143.   UPKEY = #200;
  144.   DOWNKEY = #208;
  145.   PGUPKEY = #201;
  146.   PGDNKEY = #209;
  147.   LEFTKEY = #203;
  148.   INSKEY = #210;
  149.   RIGHTKEY = #205;
  150.   DELKEY = #211;
  151.   CTRLLEFTKEY = #243;
  152.   CTRLRIGHTKEY = #244;
  153.   F1 = #187;
  154.   F2 = #188;
  155.   F3 = #189;
  156.   F4 = #190;
  157.   F5 = #191;
  158.   F6 = #192;
  159.   F7 = #193;
  160.   F8 = #194;
  161.   F9 = #195;
  162.   F10 = #196;
  163.  
  164. type
  165.   IString = String[MAXINPUT];
  166.   CellRec = record
  167.     Error : Boolean;
  168.     case Attrib : Byte of
  169.       TXT : (T : IString);
  170.       VALUE : (Value : Real);
  171.       FORMULA : (Fvalue : Real;
  172.                  Formula : IString);
  173.   end;
  174.   CellPtr = ^CellRec;
  175.  
  176. var
  177.   Cell : array [1..MAXCOLS, 1..MAXROWS] of CellPtr;
  178.   CurCell : CellPtr;
  179.   Format : array [1..MAXCOLS, 1..MAXROWS] of Byte;
  180.   ColWidth : array [1..MAXCOLS] of Byte;
  181.   ColStart : array [1..SCREENCOLS] of Byte;
  182.   LeftCol, RightCol, TopRow, BottomRow, CurCol, CurRow, LastCol,
  183.     LastRow : Word;
  184.   Changed, FormDisplay, AutoCalc, Stop, ColorCard : Boolean;
  185.   ColorTable : array [0..255] of Byte;
  186.   ScreenRows : Byte;
  187.   OldMode : Word;
  188.   UMenuString : String[80];
  189.   UCommandString : String[3];
  190.  
  191. implementation
  192.  
  193. begin
  194. end.
  195.