.k D   ;; $VER: Unpack_GFXManager V.1.2  ©1996 T.Treder
   ;;  This Script is COPYRIGHTED by T.Treder

failat 21
resident >nil: SYS:System/Format pure
resident >nil: C:Assign pure
resident >nil: C:MakeDir pure
set TA " Auf welchem Medium soll entpackt werden ?"
set TB " Sie benötigen ca. 2 MB Speicherplatz für"
set TC " das Entpacken auf HD oder 3 Disketten !"
set TD " Bitte Pfad angeben:"
set TE " Ihre Wahl:"
set TF " Entpacke Datei:"
set TG " Entpackvorgang beendet !"
if exists :Liesmich
  c:type :liesmich
  wait 2
  ask "*n  » Bitte die Return-Taste drücken ! «"
  echo "*ec"
endif
c:avail >nil: flush
if exists C:requestchoice
  c:requestchoice >env:MM "GFXManager Unpack" "*n$TA *n$TB*n$TC*n" " Disk |  HD  "
else
  echo "*ec*n$TA*n$TB*n$TC*n"
  ask " *e[1m{N/Return = Disk | Y = HD}*e[0m : "
  if warn
    setenv MM "0"
  else
    setenv MM "1"
  endif
endif
assign >nil: GDI: ""
if $MM eq "1"
  set TH " Legen Sie bitte eine leere Disk in Laufwerk"
  set TI " DF0 ein und drücken danach die Return-Taste !"
  set TJ " Der Name der Diskette ist"
  set TK "GFXManager_Install"
  set TL " Schnell-Formatieren !"
  alias form "format >nil: drive df0: name $TK_[] noicons"
  echo "*ec*n$TE Disk*n*n$TH*n$TI*n$TJ $TK_1" noline
  form 1
  if warn
    echo "*nTL " noline
    form 1 quick
    if warn
      skip
    endif
  endif
  set file GFXMan_A.exe
  echo "*ec*n$TF $file ... "
  GDI:$file -d$TK_1:
  makedir >nil: $TK_1:GMData
  echo "*ec*n$TE Disk*n*n$TH*n$TI*n$TJ $TK_2" noline
  form 2
  if warn
    echo "*nTL " noline
    form 2 quick
    if warn
      skip
    endif
  endif
  set file GFXMan_B.exe
  echo "*ec*n$TF $file ... "
  GDI:$file -d$TK_2:
  set file GFXMan_C.exe
  echo "*ec*n$TF $file ... "
  GDI:$file -d$TK_2:
  echo "*ec*n$TE Disk*n*n$TH*n$TI*n$TJ $TK_3" noline
  form 3
  if warn
    echo "*nTL " noline
    form 3 quick
    if warn
      skip
    endif
  endif
  set file GFXMan_D.exe
  echo "*ec*n$TF $file ... "
  GDI:$file -d$TK_3:
  echo "*ec*n$TG"
  unalias form
else
  if exists C:requestfile
    c:requestfile >env:PA "SYS:" title "$TD" drawersonly
    if warn
      skip
    endif
  else
    cd sys:
    echo "*ec*n$TD " noline
    echo >env:PB ?
    echo >env:PA "$PB" first 37 len 165 noline
    c:dir >nil: "$PA" opt d
    if warn
      makedir >nil: "$PA"
      if warn
        skip
      endif
    endif
  endif
  if $PA eq "Ram Disk:"
    setenv PA "RAM:"
  endif
  echo "*ec*n$TE HD = "$PA
  cd $PA
  makedir >nil: GFXManager_Install
  cd GFXManager_Install
  assign >nil: GMI: ""
  makedir >nil: GMI:GMData
  set file GFXMan_A.exe
  echo "*n$TF $file ... " noline
  GDI:$file -dGMI:
  set file GFXMan_B.exe
  echo "ok*n$TF $file ... " noline
  GDI:$file -dGMI:
  set file GFXMan_C.exe
  echo "ok*n$TF $file ... " noline
  GDI:$file -dGMI:
  set file GFXMan_D.exe
  echo "ok*n$TF $file ... " noline
  GDI:$file -dGMI:
  echo "ok*n Kopiere Piktogramm ..." noline
  c:copy >nil: GMI:Docs.info /GFXManager_Install.info
  c:delete >nil: GMI:Disk.info
  cd >env:PA
  echo "*ec*n$TG*n*nSie finden den GFXManager im Verzeichnis:*n» $PA «"
  wait 3
  assign >nil: GMI: remove
endif
endskip
assign >nil: GDI: remove
resident Format remove
resident >nil: Assign remove
resident >nil: MakeDir remove
unsetenv MM
unsetenv PA
unsetenv PB