DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦3d44057a2⟧ TextFile

    Length: 1086 (0x43e)
    Types: TextFile
    Names: »FIGUR5.PAS«

Derivation

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

TextFile

PROGRAM figur5;
uses cpigraf;
VAR
  i: INTEGER;
  Vindue1, Vindue2: Wnd_Id;

PROCEDURE rndskr(no: Wnd_Id);
BEGIN
  SelectViewport(no);
  ClearViewport;
  DrawFrame;
  FOR i:=0 TO 1000 DO Plot(random*2000,random*2000);
END;

BEGIN
  GraphicScreen(IBM_high);

(*-----------------------------------------------------------------------------
F▶9b◀rste vindue defineres mht farve, overskrift og skalering
-----------------------------------------------------------------------------*)
  NewViewport(Vindue1,0,200,0,100);
  SetViewportColor(Vindue1,black,white);
  SetViewportHeader(Vindue1,'Vindue nr 1');
  SetWindow(Vindue1,0,2000,0,2000);
  
(*-----------------------------------------------------------------------------
Andet vindue defineres mht overskrift og skalering
-----------------------------------------------------------------------------*)
  NewViewport(Vindue2,400,600,100,200);
  SetViewportHeader(Vindue2,'Vindue nr 2');
  SetWindow(Vindue2,0,2000,0,2000);

  GraphMode;
  rndskr(Vindue1);
  rndskr(Vindue2);
  readchar;
  TextMode;
END.«eof»