|
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