Requestchoice >ENV:zmienna "Pytanie 1" BODY "Co chciaîbyô dziô zjeôê ?" "Marchewkë" "Krupnik" "Kaszankë" "Schaba" "Jajecznicë"  ;
IF $zmienna EQ "0"                                                                                                                               ;
skip Jajecznica                                                                                                                                  ;
endif                                                                                                                                            ;
if $zmienna EQ "1"                                                                                                                               ;
skip schab                                                                                                                                       ;
endif                                                                                                                                            ;
if $zmienna EQ "2"                                                                                                                               ;
skip kaszana                                                                                                                                     ;
endif                                                                                                                                            ;
if $zmienna EQ "3"                                                                                                                               ;
skip krupnik                                                                                                                                     ;
endif                                                                                                                                            ;
if $zmienna EQ "4"                                                                                                                               ;
skip marchewka                                                                                                                                   ;
endif                                                                                                                                            ;
                                                                                                                                                 ;
LAB marchewka                                                                                                                                    ;
Requestfile >ENV:zmienna2 DH0:S/./././././ NOICONS NEGATIVE "Wypchaj sië" POSITIVE "Ten chcë" SAVEMODE TITLE "Wybierz kolor marchewki"           ;
if $zmienna2 EQ "DH0:S/./././././zielony                                                                                                         ;
skip zielony                                                                                                                                     ;
endif                                                                                                                                            ;
if $zmienna2 EQ "DH0:S/./././././czerwony                                                                                                        ;
skip czerwony                                                                                                                                    ;
endif                                                                                                                                            ;
if $zmienna2 EQ "DH0:S/./././././niebieski                                                                                                       ;
skip niebieski                                                                                                                                   ;
endif                                                                                                                                            ;
if $zmienna2 EQ "DH0:S/./././././ûóîty                                                                                                           ;
skip ûóîty                                                        ;                                                                               ;
endif                                                             ;                                                                               ;
if $zmienna2 EQ "DH0:S/./././././czarny                           ;                                                                               ;
skip czarny                                                       ;                                                                               ;
endif                                                             ;                                                                               ;
if $zmienna2 EQ "DH0:S/./././././biaîy                            ;                                                                               ;
skip biaîy                                                        ;                                                                               ;
endif                                                             ;                                                                       ;
                                                                  ;                                                                               ;
                                                                  ;                                                                               ;
                                                                  ;                                                                               ;
                                                                  ;;                                                                               ;;