;demo.rtEZRequest

LAB MAIN
rtEZrequest "rtEZRequest" "Would you like to see a picture?\nSelect the Viewer:" "Multiview|VT|Another|Cancel"
SET Result $RC
if $result eq 1
sys:utilities/multiview demo.pic
endif

if $result eq 2
 run >nil: VT demo.pic
endif

if $result eq 3
 rtGetString "Viewer Select" "Please enter the name of your viewer.\nInclude the Path if necessary" TO ENV:name
 SET Result $RC

  IF $Result EQ 1
    $name demo.pic
  ELSE
    skip back main
  ENDIF

endif


execute demo.version

Quit