.key file
.bra {
.ket }

;$VER: jpegAGA_WB 1.0 (8.12.94)
;written by Todd C. Reddy and Günther Röhrich

if "{file}" not eq ""
  if exists "{file}"
    jpegAGA "{file}"
    skip end
  endif
endif


if $LANGUAGE eq deutsch
  skip deutsch
endif

requestfile >env:jpegdrawer Title="Please select a drawer" NOICONS DRAWERSONLY
if warn
  delete ENV:jpegdrawer >NIL:
endif
lab continue
  if exists ENV:jpegdrawer
    requestfile >env:jpegfile Title="Please select a JPEG file to view" pattern="#?.jpg" DRAWER $jpegdrawer NOICONS
    if warn
      skip done1
    endif
  else
    requestfile >env:jpegfile Title="Please select a JPEG file to view" pattern="#?.jpg" NOICONS
    if warn
      skip done1
    endif
  endif
  echo Your choice: $jpegfile
  jpegAGA $jpegfile
skip continue back
lab done1
delete env:jpegfile > NIL:
delete env:jpegdrawer >NIL:
skip end


lab deutsch
requestfile >env:jpegdrawer Title="Bitte Verzeichnis auswählen" NOICONS DRAWERSONLY NEGATIVE Abbr.
if warn
  delete ENV:jpegdrawer >NIL:
endif
lab continued
  if exists ENV:jpegdrawer
    requestfile >env:jpegfile Title="Bitte JPEG Datei auswählen" pattern="#?.jpg" DRAWER $jpegdrawer NOICONS NEGATIVE Abbr.
    if warn
      skip done1d
    endif
  else
    requestfile >env:jpegfile Title="Bitte JPEG Datei auswählen" pattern="#?.jpg" NOICONS NEGATIVE Abbr.
    if warn
      skip done1d
    endif
  endif
  echo Ausgewählt: $jpegfile
  jpegAGA $jpegfile
skip continued back
lab done1d
delete env:jpegfile > NIL:
delete env:jpegdrawer >NIL:
lab end