DataMuseum.dk

top - download

    Length: 1538 (0x602)
    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« 
        └─⟦b19a3b5ff⟧ 
            └─⟦this⟧ 

TextFile

%!LPrint Image Printer Prefix
/State save def
/EndPage {showpage State restore} bind def
/one 1 string def
/str 129 string def
/four 4 string def
/INCH {72 mul} bind def
/LANDSCAPE {8.5 INCH 0 INCH translate 90 rotate} bind def
/ptn {str cvs show} bind def
/ptx {( x ) show} bind def
/TITLE {0 -12 moveto show
        {( [) show wd ptn ptx ht ptn ptx dp ptn
        (, ) show bt ptn ( bytes]) show} if} bind def
/DISTORT false def
/BOX {newpath
       w wp sub 2 div h hp sub 2 div moveto
       0 hp rlineto wp 0 rlineto 0 hp neg rlineto
      closepath stroke} bind def
/RHEX {readhexstring pop dup length bt add /bt exch def} bind def
/PROC
 {/len currentfile one RHEX 0 get def
    len 128 ge
    {/chr currentfile one RHEX 0 get def
     /len 256 len sub def
     0 1 len {str exch chr put} for
     str 0 len 1 add getinterval
    }
    {currentfile str 0 len 1 add getinterval RHEX}
    ifelse
 } bind def
/GET4 {currentfile four RHEX
       dup 3 get exch dup 2 get exch dup 1 get exch 0 get
       256 mul add 256 mul add 256 mul add} bind def
/SHOWIMAGE
 {
  /as exch def
  /h  exch def
  /w  exch def
  /bt 0 def
  /wd GET4 def
  /ht GET4 def
  /dp GET4 def
  /ax GET4 def
  /ay GET4 def
  /sp GET4 def
  as 0 eq {/as ay ax div def} if
  /hp h def
  /wp DISTORT {w} {hp ht as mul div wd mul} ifelse def
  wp w gt {/hp w wp div hp mul def /wp w def} if
  gsave
   w wp sub 2 div h hp sub 2 div translate
   wp hp scale
   wd ht dp [wd 0 0 ht neg 0 ht] {PROC} image
  grestore
 } bind def
/Times-Bold findfont 10 scalefont setfon