.key ""
.bra {
.ket }
assign from{$$}: "" ; aktuelles Verzeichnis merken
resident c:copy   add pure ; einen Diskettenwechsel einsparen
resident c:dir add pure ; noch einen Diskettenwechsel einsparen
resident c:echo add pure
resident c:setenv add pure
failat 21
lab y
lab yes
echo "*Ec            *E[4mDrucker-Installationsprogramm*N*N*E[0mVerfgbare Drucker:*N"
cd "Extras1.3D:devs/printers"
IF error
skip err
ENDIF
dir
echo "*NWelcher Drucker ? (RETURN fr Abbruch drcken) " noline
setenv >NIL: q{$$} ?
IF $q{$$} EQ ""
skip err
ENDIF
echo >>env:q{$$} " to devs:printers"
echo "Nun gewhlten Druckertreiber nach devs:printers kopieren."
copy <env:q{$$} >NIL: ?
IF ERROR
echo "Fehler beim Kopieren. Nochmal versuchen (y/n) ? " noline
skip >NIL: back ?
ELSE
echo "Nun diesen Drucker mit Preferences auswhlen."
ENDIF
lab err
endskip
cd from{$$}:
assign from{$$}:
resident copy remove
resident dir remove
resident echo remove
resident setenv remove
