|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 848 (0x350)
Types: TextFile
Names: »FIGUR3.PAS«
└─⟦d4ddf50a0⟧ Bits:30004478 CPI-graf 2.5 til Piccoline/Partner
└─⟦this⟧ »FIGUR3.PAS«
PROGRAM figur3;
uses cpigraf;
VAR
vindue :Wnd_Id;
PROCEDURE skrivnoget;
VAR i: INTEGER;
BEGIN
selectviewport(vindue);
FOR i:=0 TO 8 DO WriteText(0,i,'Grafik- og tekstvindue');
END;
BEGIN
GraphicScreen(IBM_high);
(*-----------------------------------------------------------------------------
Definition af et vindue som best▶86◀r af linier i grafik og teksttilstand
-----------------------------------------------------------------------------*)
NewTextViewport(vindue,20,45,8,18);
SetViewportHeader(vindue,'Vindue');
setpalette(2,redtxt+lighttxt,bluetxt);
settextviewportcolor(vindue,2);
setviewporttype(vindue,(.wwriteframe,WNONHIDE.));
GraphMode;
skrivnoget;
ReadChar;
HideViewport(vindue);
TextMode;
skrivnoget;
ReadChar;
CloseViewport(vindue);
END.
«eof»