Kolač ke VR ae

j
1
E
|
1
i
1

KGEB računeiniski sistemi dela PE —

Utrano f6e-l0

subroutine inputlstevsteketo

Faderoasram INFUT prebere do 100 znakov s terminala KLUN OS),
Kot prvi parameter vrne stevila prebranih znakav, drugi
parameter pa Je naslov, kjer se zacne tekst.

integer stev

bute teksti 1003

read (0,10) stev,teket
return

format Ca>100a19)

end

subroutine outputistev;tekesto

Fodprosram OUTFUT izpise do 100 znakov na terminal £ LUN 50),
Frvi parameter je stevilo znakov, ki jih zelimo izpisati, drugi
Parameter pa Je naslov, kjer se zacne teket,

integer stev

bute tekstl 14100)

type 10, (teokst(i), imi,stev)
return

format (1h$,100a1)

end

subroutine dinintecjo

Fodprosram ININT prebere s terminala (LUN ii)
celo stevilo,

accept x,1
return
end

t

subhproutine outintijo)

Fodprosram OUTINT napise na terminal (LUN 5)
celo stevilo,

tupe %,1
return
emi