.ENABLE SUBSTITUTION .ASK ANS Do you want TT: (default is KB:) .IFT ANS .SETS DEV "TT" .IFF ANS .SETS DEV "KB" .ASK FULL Do you want the full error display .SETS SWITCH "" .IFT FULL .SETS SWITCH "/FULL" .DISABLE DISPLAY .ENABLE QUIET .10: PAC 'DEV':'SWITCH' .ASK [:2S] ANS Type ^Z to exit .iff ANS .EXIT .GOTO 10