DataMuseum.dk

top - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »REGN6.PAS«

└─⟦5c8344fa1⟧ Bits:30004223 REGN version 2.1 til ICL Comet
    └─ ⟦this⟧ »REGN6.PAS« 

TextFile

(* INCLUDE FILE REGN6.PAS *)

PROCEDURE MENU;
var
 ud:boolean;
begin
 ud:=false;
 repeat
  write(clrhom);
  gotoxy(21,2);
  writeln(rvson,'              R  E  G  N               ',rvsoff);
  gotoxy(21,6);
  writeln('STOP  ..............................  0');
  gotoxy(21,9);
  writeln('START NYT REGNEARK .................  1');
  gotoxy(21,12);
  writeln('HENT GAMMELT REGNEARK ..............  2');
  gotoxy(21,15);
  writeln('HENT VEJLEDNING ....................  3');
  gotoxy(25,19);
  write('TAST TALLET UD FOR DET ØNSKEDE  ');
  repeat
   ch:=KEY;
  until ch in Æ'0'..'3'Å;
  case ch of
   '0':begin
        slut:=true;
        ud:=true;
       end;
   '1':begin
        ud:=true;
        GRID;
       end;
   '2':begin
        ud:=true;
        write(clrhom);
        LOAD;
       end;
   '3':begin
        HELP(false);
       end;
  end;
 until ud;
end;

æ COMMANDS is activated from the main loop in this program å
æ when the user types a slash (/).                         å

PROCEDURE COMMANDS;
var
 udlin:arrayÆ0..3Å of stringÆ64Å;
 hlinnr:byte;
begin
 hlinnr:=0;
 udlinÆ0Å:='1:  Tilbage    Omregn    Slut    Hent    Gem    Udskrift      ? ';
 udlinÆ1Å:='2:  Tilbage   Nyt ark   Formatændring   Autoregn til/fra      ? ';
 udlinÆ2Å:='3:  Tilbage  Celle rens  Linje (slet/indsæt)  Repeter omregn  ? ';
 udlinÆ3Å:='4:  Tilbage  0-stil formelresultater  Kopier celle  Pos. lås  ? ';
 FLASH(37,' / for flere kommandoer  ',false);
 repeat
  gotoxy(0,23);
  write(clreol,'KOMMANDOER ');
  HIGHLIGHTMSG(udlinÆhlinnrÅ);
  ch:=UPCASE(KEY);
  if ch='/' then hlinnr:=(hlinnr+1) mod 4;
 until ch<>'/';
 FJERNFLASH(37,25);
 case ch of
  'S': begin
        write(rvsoff);
        slut:=true;
      end;
  'C': begin
        RYDCELLE(fx,fy,false);
        NABORYD(fx,fy);
        RECALCULATE(true);
       end;
  'F': FORMAT;
  'G': SAVE;
  'H': LOAD;
  '?': HELP(true);
  'O': RECALCULATE(true);
  'P': begin
        retning:=0;indicator:='*';
        gotoxy(0,0);write(indicator);
       end;
  'A': AUTO;
  'T': UPDATE;
  'N': CLEAR;
  'U': PRINT;
  '0': NULSTIL;
  'R': REPETER;
  'K': KOPIER;
  'L': LINEMOVE;
 end;
 FLASH(37,'  Tast  /  for kommando  ',false);
 if not slut then GOTOCELL(fx,fy);
end;
«eof»