|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1542 (0x606)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦4330b3565⟧
└─⟦this⟧
%%Prolog LPrint Plain Text Printer
/buf 256 string def
/INCH {72 mul} bind def
/xdf {exch def} def
/FONT % size spacing font mode FONT --
{/MD xdf exch dup 2 div /hsiz xdf /size xdf
findfont exch scalefont /font xdf} def
/LINE {size mul neg} bind def
/DASH
{gsave
[2 4] 0 setdash 0 setlinewidth
1 2 h size div neg
{LINE 1.5 sub newpath dup 0 exch moveto w exch lineto stroke} for
grestore} bind def
/BORDER
{neg 5 sub /h xdf size add /w xdf
hsiz neg 0 translate
FILE length 0 ne {0 2 moveto FILE show} if
NUMBER {buf cvs dup stringwidth pop w exch sub 2 moveto show} {pop} ifelse
DATE length 0 ne {0 h 1 LINE add moveto DATE show} if
newpath 0 -1 moveto 0 h lineto w h lineto w -1 lineto closepath clip
OUTLINES {stroke} {newpath} ifelse
hsiz 0 translate
RULES {DASH} if
} bind def
/SETNARROW {0 FONT} bind def
/SETWIDE {1 FONT} bind def
/SETTWOUP {2 FONT} bind def
/SETTWOWIDE {3 FONT} bind def
/BeginPage
{/State save def font setfont
[{ 0.5 INCH 10.5 INCH translate}
{90 rotate 0.5 INCH -0.5 INCH translate}
{90 rotate 0.33 INCH -0.833 INCH translate 2 3 div dup scale}
{ 1.25 INCH 16.125 INCH translate 2 3 div dup scale}] MD get exec
} def
/EndPage {showpage State restore} def
/LINES % #lines page# 0/1 LINES --
{gsave
8.0 mul INCH [{pop} dup {0 translate} {0 exch neg translate}] MD get exec
7.5 INCH 10.0 INCH MD 2 mod 1 eq {exch} if BORDER
-1 1 {0 exch LINE moveto currentfile buf readline pop show} for
grestore
} bind de