QNAPREP toy example

 
/DECLARE/ QUEUE A,B; INTEGER nbrepli; REAL foo;

/STATION/ NAME=A; INIT=40; TRANSIT=B; SERVICE= EXP (1.0);

/STATION/ NAME=B; TRANSIT=A; SERVICE= EXP (foo);

/CONTROL/ TMAX=1000.0; OPTION= SIMPAR; ESTIM= REPLI (nbrepli);
ACCURACY=ALL QUEUE;

/EXEC/ BEGIN
  PRINT("nombre de replications?");
  nbrepli:=GET(INTEGER);
  PRINT("service a la file B?");
  foo:=GET(REAL);
  SIMUL;
END;

/END/