DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ C T

⟦adbaf38d9⟧ TextFile

    Length: 3503 (0xdaf)
    Types: TextFile
    Names: »COMPOSE_PS«

Derivation

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦a5bbbb819⟧ 
                └─⟦this⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦eec0a994f⟧ 
                └─⟦this⟧ 

TextFile

%!PS-Adobe-2.0
%%Title: !TOOLS.DOCUMENT_FORMATTER.REV10_7_SPEC.UNITS.COMPOSE'SPEC'V(2)
%%Creator: COMPOSE 10.7.7
%%CreationDate: June 14, 1990 at 7:34:08 PM
%%For: PHIL
%%Pages: (atend)
%%DocumentFonts: (atend)
%%EndComments
/SelectFont {findfont exch dup neg 0 0 3 -1 roll 0 0 MAT astore makefont setfont} bind def
/BeginPage {/State save def /INITIAL-MATRIX matrix currentmatrix def 1 -1 scale 0.5 setlinewidth} bind def
/PositionPage {{-90 rotate pop} {0 exch neg translate} ifelse} bind def
/EndPage {State restore showpage} def
/WS {0 32 4 -1 roll widthshow} bind def
/MX {0 rmoveto} bind def
/LTAB {gsave exch (.) stringwidth pop sub exch {dup 2 div dup 0 rmoveto (.) show 0 rmoveto} repeat pop grestore} bind def
/MAT matrix def
/FINDSCALE {gsave newpath 0 0 moveto (X) false charpath
flattenpath pathbbox /CAPHEIGHT exch def pop pop pop newpath 0 0 moveto
(x) false charpath flattenpath pathbbox /XHEIGHT exch def pop pop pop
grestore XHEIGHT CAPHEIGHT XHEIGHT sub 3 div add CAPHEIGHT div } bind def
/CAP-ENCODING [ StandardEncoding aload pop ] def
8#141 1 8#172 {CAP-ENCODING exch dup 1 string dup 0 4 -1 roll 8#40 sub put cvn put} for
/COPYFONT {dup length dict /TMPDICT exch def {1 index /FID ne {TMPDICT 3 1 roll put} {pop pop} ifelse } forall TMPDICT }bind def
/SYM {save exch /newfont currentfont maxlength dict def currentfont
{exch dup /FID ne {dup /Encoding eq {exch dup length array copy newfont 3 1 roll put}
{exch newfont 3 1 roll put} ifelse } {pop pop} ifelse} forall
newfont /Encoding get 8#377 3 -1 roll put /NEWFONT newfont definefont setfont
(\377) show restore} bind def
%%EndProlog
%%Page: 1 1
BeginPage
792 false PositionPage
72 72 moveto
10 /Times-Roman SelectFont
(procedure Compose \050Document : String := "<CURSOR>"; Device : String := "PostScript"; Options : String := "";) show
72 84 moveto
(Response : String := "<PROFILE>"\051;) show
72 108 moveto
(-- Document is expected to resolve to a single text file that -- contains some combination of plain text and markup) show
72 120 moveto
(commands.) show
72 144 moveto
(-- Device types include "PostScript" and "LinePrinter".) show
72 168 moveto
(-- Options are processed in the order seen.  Any one option should -- appear at most once; subsequent occurrences of) show
72 180 moveto
(that option are -- ignored.  Current options are: -- -- Setup => \050setup argument\051 -- Processes the value as if it were an) show
72 192 moveto
(argument to .  -- -- Text => \050....\051 -- Processes the text as if it were at the beginning of the -- document file.  -- --) show
72 204 moveto
(Include => File_Name -- Reads and processes the supplied file as if it were -- included as the first command in the) show
72 216 moveto
(document.  If not -- a full path name, File_Name is resolved in the current -- context.  -- -- Font_Directory =>) show
72 228 moveto
(Directory_Name -- Names the directory that contains binary font metric files.  -- -- Device_Directory =>) show
72 240 moveto
(Directory_Name -- Names the directory that contains device setup files.  Font -- family and form information will be) show
72 252 moveto
(read from files in -- this directory if the following options are not specified.  -- -- Font_Families => File_Name --) show
72 264 moveto
(Names the file that contains the font family definitions -- for device setup.  -- -- Forms => String -- Names the file) show
72 276 moveto
(that contains forms specifications for -- device setup.) show
EndPage
%%Trailer
%%Pages: 1 1
%%DocumentFonts: Times-Roman