Text anzeigen (PDF) - bei DuEPublico

File-Transfer-Protokoll
process FTPSitzung;
fpar volumen Integer;
dcl gesendet Integer,
streamlimit Integer,
rest Integer,
limit Integer,
hilf1 Normal,
hilf2 Normal,
nextstream Real,
ankunft Ankunfttyp,
nextburst real,
sessionbeginn Time,
intensitaet Integer,
aktivitaet Randint,
burstsize Real,
expo Real,
state aktiv /*## awake nextburst ##*/; /* aktiver Datenstrom */
input none;
task u := sample(bursthilf),
expo := 1.0 / burstshapepara,
zw := call potenz(u,expo);
task burstsize := burstlocatepara / zw;
output ftpdata(now, FIX(burstsize));
task gesendet := gesendet + FIX(burstsize);
decision gesendet