1 VAR KEUZE
RECALL KEUZE 1 = IF 5 INK ELSE 7 INK
1 1 LOCATE "Biefstuk frites." .S
RECALL KEUZE 2 = IF 5 INK ELSE 7 INK
1 2 LOCATE "Auf Wiederschnitzel mit pommes frites." .S
RECALL KEUZE 3 = IF 5 INK ELSE 7 INK
1 3 LOCATE "Einde." .S
INKEY$ VAR CH$
"1" RECALL CH$ = IF 1 VAR KEUZE cls 110 GOTO
"2" RECALL CH$ = IF 2 VAR KEUZE cls 110 GOTO
"3" RECALL CH$ = IF STOP

cls 110 GOTO
