|
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: 884 (0x374)
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«
└─⟦9e9beee51⟧
└─⟦this⟧
%!StarLines Demo
/inch {72 mul} bind def
/showoff
{dup 0 1 2 index length 1 sub
{gsave
1 getinterval dup true charpath
gsave 0.85 setgray fill grestore
2 setlinewidth stroke
grestore stringwidth rmoveto dup} for
pop pop} def
/center {8.5 inch 2 index stringwidth pop sub 2 div exch moveto} def
/trunc {dup stringwidth pop 7 inch gt
{0 1 index length 1 sub getinterval trunc} if} def
/Times-BoldItalic findfont 4.5 inch scalefont setfont
gsave
0.5 inch 7.5 inch moveto
7.5 inch USER stringwidth pop div 1 scale USER showoff
grestore
/Times-Roman findfont 16 scalefont setfont
DATE 7.15 inch center show
/Times-Roman findfont 36 scalefont setfont
FILES trunc 6.5 inch center show
%1 inch 7 inch moveto FILES show
%1 inch 8 inch moveto DATE show
%1 inch 5 inch moveto MACHINE show
%1 inch 4 inch moveto FORM show
showpag