INITIAL X$nr_pasari_vandute,0
INITIAL X$nr_pasari_maxim,0
INITIAL X$nr_oua,0

solicitare VARIABLE RN1@81+20
pasari_de_clocit VARIABLE 3000-S$pasari-X$nr_oua
pasari STORAGE 3000

nivel_initial EQU 3000

GENERATE ,,,1,4
ENTER pasari,nivel_initial
TERMINATE

GENERATE 2,1
ASSIGN 1,V$solicitare
TEST G S$pasari,0,noBirds
TEST G S$pasari,p1,notEnoughBirds
SAVEVALUE nr_pasari_vandute+,p1
SAVEVALUE nr_pasari_maxim+,p1
LEAVE pasari,p1
TERMINATE

noBirds SAVEVALUE nr_pasari_maxim+,p1
TERMINATE

notEnoughBirds SAVEVALUE nr_pasari_maxim+,p1
SAVEVALUE nr_pasari_vandute+,S$pasari
LEAVE pasari,S$pasari
TERMINATE

GENERATE 24
ASSIGN 1,V$pasari_de_clocit
SAVEVALUE nr_oua+,V$pasari_de_clocit
ADVANCE 672
ENTER pasari,p1
SAVEVALUE nr_oua-,p1
TERMINATE

GENERATE 8760
TERMINATE 1