home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / readk < prev    next >
Encoding:
Text File  |  1995-01-04  |  1.0 KB  |  41 lines
  1.  
  2. lab start
  3. requestchoice >env:cho "ReadK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Select Action" "MULTIVIEW" "AMIGA GUIDE" "MORE" "ABORT" "BYE"
  4.    IF $cho eq "0"
  5.       skip done
  6.    endif
  7.    If $cho eq "1"
  8.       if exists sys:utilities/multiview
  9.       else
  10.       echo "MULTIVIEW NOT IN SYS:UTILITIES DIRECTORY"
  11.       SKIP HERE
  12.       endif
  13.       requestfile >env:file title="Click On File To Read"
  14.       sys:utilities/multiview $file
  15.    endif
  16.    If $cho eq "3"
  17.       requestfile >env:file title="Click On File To Read"
  18.       if exists sys:utilities/more $file
  19.       else
  20.       echo "MORE NOT IN SYS:UTILITIES DIRECTORY"
  21.       SKIP HERE
  22.       endif
  23.       sys:utilities/more $file
  24.    endif
  25.     If $cho eq "2"
  26.       IF EXISTS SYS:Utilities/AMIGAGUIDE
  27.       requestfile >env:file title="Click On File To Read"
  28.       SYS:UTILITIES/AMIGAGUIDE $FILE
  29.       ELSE
  30.       ECHO "AMIGA GUIDE NOT IN SYS:UTILITIES DIRECTORY"
  31.       ENDIF
  32.    endif
  33.     IF $CHO EQ "4"
  34.     ENDIF
  35.  
  36. LAB HERE
  37. skip start back
  38. lab done
  39. unset $file
  40. unset $choice
  41.