lab start
requestchoice >env:cho "ReadK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Select Action" "MULTIVIEW" "AMIGA GUIDE" "MORE" "ABORT" "BYE"
   IF $cho eq "0"
      skip done
   endif
   If $cho eq "1"
      if exists sys:utilities/multiview
      else
      echo "MULTIVIEW NOT IN SYS:UTILITIES DIRECTORY"
      SKIP HERE
      endif
      requestfile >env:file title="Click On File To Read"
      sys:utilities/multiview $file
   endif
   If $cho eq "3"
      requestfile >env:file title="Click On File To Read"
      if exists sys:utilities/more $file
      else
      echo "MORE NOT IN SYS:UTILITIES DIRECTORY"
      SKIP HERE
      endif
      sys:utilities/more $file
   endif
    If $cho eq "2"
      IF EXISTS SYS:Utilities/AMIGAGUIDE
      requestfile >env:file title="Click On File To Read"
      SYS:UTILITIES/AMIGAGUIDE $FILE
      ELSE
      ECHO "AMIGA GUIDE NOT IN SYS:UTILITIES DIRECTORY"
      ENDIF
   endif
    IF $CHO EQ "4"
    ENDIF

LAB HERE
skip start back
lab done
unset $file
unset $choice