DataMuseum.dk

top - metrics - download

    Length: 1315 (0x523)
    Types: TextFile
    Names: »FIGUR17.PAS«

└─⟦d4ddf50a0⟧ Bits:30004478 CPI-graf 2.5 til Piccoline/Partner
    └─⟦this⟧ »FIGUR17.PAS« 

TextFile

PROGRAM figur17;
uses cpigraf, cpimenu;
CONST
   mainmenu: ARRAY (.1..3.) OF MenuType =
        ((C:'A';S:'<A> submenu '),
         (C:'B';S:'<B> Information '),
         (C:'X';S:'<X> exit'));

   submenu:  ARRAY (.1..3.) OF MenuType =
        ((C:'1';S:'<1> l▶91◀s real'),
         (C:'2';S:'<2> l▶91◀s integer'),
         (C:'3';S:'<3> l▶91◀s boolean'));

    noline = 4; nowidth = 45;
    inform: ARRAY (.1..noline.) OF STRING(.nowidth.) =
        (' Demonstration af CPI-graf',
         ' ',
         ' Center for P▶91◀dagogik og Informatik',
         ' Denmark');

VAR
  re    : REAL;
  st    : str80;
  int   : INTEGER;
  bool  : BOOLEAN;
  ch    : CHAR;
  resource1, resource2: ResourceType;
  
BEGIN
  GraphicScreen(IBM_high);

  NewResource(resource1,10,10,' Tryk <RETUR> ');
  AddHelp(nowidth, noline, inform,'');
  
  NewResource(resource2,0,0,'Hovedmenu');
  AddMenu(3,mainmenu,'',horizontal);
  AddMenu(3,submenu,'A',vertical);
  AddReal(10,re,'A1');
  AddInteger(10,int,'A2');
  AddBoolean(bool,'A3');
  AddHelp(nowidth,noline, inform, 'B');
  
  re:=1234.5678;
  int:=4321;
  bool:=true;
  
  SelectResource(resource1);
  ResourceDisplay;
  
  GraphMode;
  SelectResource(resource2);
  REPEAT
    ResourceDisplay;
  UNTIL Men_Selec='X';
  TextMode;
end.
«eof»