.Key NOREQ/S
.Bra {
.Ket }
; TrapFax printer flipper

if "$TFaxPrinter" EQ "Fax"
  sys:prefs/printer from env:trapfax/printer.prefs use
  sys:prefs/printergfx from env:trapfax/printergfx.prefs use
  setenv TFaxPrinter Standard
else
  if not exists env:sys/printer.prefs
    sys:prefs/printer use
  endif
  if not exists env:sys/printergfx.prefs
    sys:prefs/printergfx use
  endif
  Copy Env:Sys/Printer(%|Gfx).prefs Env:TrapFax QUIET
  sys:prefs/printer from sys:prefs/presets/Fax-Printer.pre use
  sys:prefs/printergfx from sys:prefs/presets/Fax-PrinterGfx.pre use
  setenv TFaxPrinter Fax
endif

IF NOT "{NOREQ}" EQ "NOREQ"
  if exists c:RequestChoice
    requestchoice >NIL: "TFaxPrinter" "Printing is now directed to the*N$TFaxPrinter printer driver." "OK"
  else
    echo "Printing is now directed to the $TFaxPrinter printer driver."
  endif
ENDIF