START-OF-SELECTION.
* Mein KVA
CREATE OBJECT gr_mein_kva.
* Bohnenschleife
* 7.150 Bohnen sind in wie viel Kilogramm Kaffee?
DO 7000 TIMES.
* Bohne anlegen
CREATE OBJECT gr_golden_bean.
* Bohne bergeben
gr_mein_kva->bohne_nachfuellen(
ir_bohne = gr_golden_bean ).
ENDDO.