failat 21
resident rtEZReq pure
resident rtGetString pure
set DD 1
set rtgstext `rtGetString TITLE="Podaj dowolny tekst" DEF="" ALLOWEMPTY`
set ezreq1 `rtEZReq "Wpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
if "$ezreq1" EQ "1"
   rtEZReq >NIL: "Widzisz, jakie to proste" "_Widzë"
   skip show_makeid
EndIf
Lab repeatit1
set ezreq1 `rtEZReq "Powtórzë ponownie!!!*NWpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
If "$ezreq1" NOT EQ "1"
   Skip repeatit1 BACK
EndIf

Lab show_makeid
set rtgstext `rtGetString TITLE="Podaj czteroliterowâ nazwë" DEF="MkID"`
set makeid `MakeID $rtgstext`
IF "$rtgstext" EQ ""
   Skip show_makeid BACK
EndIf
rtEZReq >NIL: "Podaîeô(aô) *"$rtgstext*"*NA ID to 0x$makeid" "_Oh, dziëkujë!"
rtEZReq >NIL: "Drobiazg*N*N(naciônij dowolny klawisz)" VKEY INACTIVE

Lab show_idcmp
set ezreq2 `rtEZReq "Wyciâgnij dyskietkë lub kliknij na OKEJ" "_Okej" DISKREMOVED`
if "$ezreq2" NOT EQ "-1"
   set ezreq3 `rtEZReq "Szkoda, nie masz stacji dysków" "_Aleû Mam!|_Nie mam"`
   If "$ezreq3" EQ "1"
      Skip show_idcmp BACK
   EndIf
   set DD 0
   rtEZReq >NIL: "Przykro mi!" "_Wiem"
EndIf

If "$DD" EQ "1"
   rtEZReq >NIL: "Wîóû dyskietkë z powrotem*N(lub dowolnâ innâ dyskietkë)" DISKINSERTED
EndIf
rtEZReq >NIL: "I to by byîo na tyle!*NWciônij dowolny klawisz" VKEY

Lab Cleanup ; koniec
resident rtEZReq REMOVE
resident rtGetString REMOVE
unset DD
unset ezreq1
unset ezreq2
unset ezreq3
unset RTGSTEXT
