DataMuseum.dk

top - download

    Length: 1664 (0x680)
    Types: TextFile
    Names: »MC-MOD01.INC«

└─⟦d482c3728⟧ Bits:30005987 Turbo Pascal v2.00A (Jet80)
    └─ ⟦this⟧ »MC-MOD01.INC« 

TextFile

æ.PAå

æ*******************************************************************å
æ*  SOURCE CODE MODULE: MC-MOD01                                   *å
æ*  PURPOSE:            Display grid and initialize all cells      *å
æ*                      in the spread sheet.                       *å
æ*******************************************************************å



procedure Grid;
var I: integer;
    Count: Char;
begin
  HighVideo;
  For Count:='A' to FXMax do
  begin
    GotoXY(XPosÆCountÅ,1);
    Write(Count);
  end;
  GotoXY(1,2);
  for I:=1 to FYMax do writeln(I:2);
  LowVideo;
  if AutoCalc then  Flash(65,'AutoCalc: ON' ,false)
  else Flash(65,'AutoCalc: OFF',false);
  Flash(33,'  Type / for Commands',false);
end;


procedure Init;
var
  I: ScreenIndex;
  J: Integer;
  LastName: stringÆ2Å;
begin
  for I:='A' to FXMAX do
  begin
    for J:=1 to FYMAX do
    begin
      with ScreenÆI,JÅ do
      begin
        CellStatus:=ÆTxtÅ;
        Contents:='';
        Value:=0;
        DEC:=2;              æ Default number of decimals        å
        FW:=10;              æ Default field whith               å
      end;
    end;
  end;
  AutoCalc:=True;
  FX:='A'; FY:=1;            æ First field in upper left corner  å
end;

procedure Clear;
begin
  HighVideo;
  GotoXY(1,24); ClrEol;
  Write('Clear this worksheet? (Y/N) ');
  repeat Read(Kbd,Ch) until Upcase(Ch) in Æ'Y','N'Å;
  Write(Upcase(Ch));
  if UpCase(Ch)='Y' then
  begin
    ClrScr;
    Init;
    Grid;
  end;
end;


«eof»