Stran 41

8.8.1.3 HEkranski del -

di. splošni podatki za ekran
di krmil jenje ekrana
mai klici ekrana

sdatoteka "kadr librekran.libi ooo oo
O1 parametri.

OS izpis pic x(40),

OS tekst Bič Y9O);

05 ittvpis.

io. tznak piečex.
88 vredu value "8",
88 nazaj value "4",
88 ven value "4H!,
88 da Value Sd". tp";
88 ne value "n" "N",
05 Gerr pic 3993

OS scrallo pig<x.
05 jErFtice 'pim xk;

890 vnos value "d".
OS o wdatm pic x(6).,
OS o wniume pic s?(15) comp-3.
O5 uwndep pire
OSG kontrola.

10 —£51ler. picen(S)a

10 tipka PES RENAŠ

10, fritler pic: xio?
datoteka zg krmiljenje "kadr librprograml.lib"-
01 WTDIS.
OS WO1 PIC X(40) VALUE "2401<NE MOREŠ NAPREJ — KLIČI ERC!' 301 ".
OS WO2 PIC X(40) VALUE "0101%£...SREGNO!...' po2?,
oš WMO3 PIC X(40) VALUE "O101fxLB-GBLA' HOO4U,
OS WO4 PIC X(40) VALUE "OZZSHAZURIRANJE VIRTERJA' ooB"
OS wO5 pic x (40) value "OSO1 1.Virtualni naslov A Mo ni
OS wO6 pic x(40) value "O601 2.Fizična oznaka vrat : ' ZOB.
OS wOF pic x(40) value "OBO1 4.Tip terminala dusi Ol;
O5 WO8B PIC X(40) VALUE "0901 5.Sifra poslovne enote : ' 201".
uklici "kadr librgekran.lib"-----------o----------
gwrt section l.
gwrtx.

if ierr < zero move wadislindx) to izpis

else move wadislierr) to izpis.

call "xekran" using parametri.
ia: x 2:go to gwrtx.
ir x 9% stop run.

gurte. exit.