%!PS
%% $VER: postscript_init.ps 39.1 (31.12.92)
%%BeginProlog

/AmigaDict 70 dict def AmigaDict begin

%---------
% Device Specific routines
%---------

% Paper Trays
/letter {} def
/legal  {} def
/a4 {} def
/custom {} def

% Manual Paper Feed
/manual {} def

% Graphic Screen Types
/line_scr  { {pop} setscreen } def
/dot_scr   { 20 currentscreen 4 -2 roll pop 3 1 roll setscreen } bind def
/vert_scr  { 40  0 line_scr } def
/horiz_scr { 40 90 line_scr } def
/diag_scr  { 40 45 line_scr } def

%---------
% General functions
%---------

% underline show string
/U
{
    gsave 0 -3 rmoveto
    dup stringwidth pop
    dup 0 rlineto neg 0 rlineto stroke
    grestore
} bind def

% Backspace a string
/BS { stringwidth pop neg 0 rmoveto } bind def

% Shadow show string
/SS
{
    dup
    gsave false charpath .5 setlinewidth stroke grestore
    stringwidth pop 0 rmoveto
} bind def

% Show
/S {show} bind def

% Move
/M {moveto} bind def

/YM {currentpoint pop exch moveto} bind def

%% Define the ReEncoding Procudure
/reencodedict 5 dict def
/ReEncode
{
    reencodedict begin
    /newencoding exch def
    /newfontname exch def
    /basefontname exch def

    /basefontdict basefontname findfont def

    /newfont basefontdict maxlength dict def

    basefontdict
    { exch dup dup /FID ne exch /Encoding ne and
        { exch newfont 3 1 roll put }
        { pop pop }
        ifelse
    } forall
    newfont /FontName newfontname put
    newfont /Encoding newencoding put
    newfontname newfont definefont pop
    end
} def

%% Define the ISO encoding Vector
/ISO
[
 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.no