home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 2 / MEGACD_ROM2.cdr / graphics / pscript / manual.ps < prev    next >
Encoding:
Text File  |  1992-06-29  |  17.8 KB  |  608 lines
  1.  ________________________________________________________________
  2.  
  3.  Message: 2295023, 598 lines
  4.  Posted: 11:29am EDT, Fri Sep 11/87, imported: 4:20pm EDT, Fri Sep 11/87
  5.  Subject: Re: on-line PS summary?
  6.  To: Info-postscript, roy%alanine.phri.uucp@uunet.uu.net,
  7.      info-postscript@sushi.stanford.edu, info-postscript@rocky.stanford.edu
  8.  From: mp1w+%andrew.cmu.edu@po2.andrew.cmu.edu
  9.  
  10.  Here is the psman.ps file.  It only uses Time-Bold and Times-Italic so every
  11.  printer should be able to handle it.
  12.  
  13.  --------cut here---------
  14.  % **********************************************************************
  15.  %                       --  S I D E   A  --
  16.  % **********************************************************************
  17.  
  18.  
  19.      % ********************* PAGE #1  ***************************
  20.  
  21.  
  22.  % *******************************************************************
  23.  
  24.  gsave
  25.  30 20 translate
  26.  90 rotate
  27.  newpath
  28.  0 0 moveto
  29.  235 0 lineto
  30.  1 setlinewidth
  31.  stroke
  32.  /Times-Bold findfont 11 scalefont setfont
  33.  3 3 moveto
  34.  (1) show
  35.  
  36.  /Times-Italic findfont 7.5 scalefont setfont
  37.  138 3 moveto
  38.  (PostScript Reference Manual) show
  39.  
  40.  % *********************************************************************
  41.  
  42.  grestore
  43.  gsave
  44.  
  45.  30 20 translate
  46.  90 rotate
  47.  0 0 moveto
  48.  
  49.  /ln ╗show /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9
  50.  sub 0 exch moveto║ def
  51.  
  52.  /tab ╗show /Times-Roman findfont 7 scalefont setfont currentpoint exch pop 85
  53.  exch moveto║ def
  54.  
  55.  /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9 sub 0 exch
  56.  moveto
  57.  
  58.  
  59.  % ********************   LIST OF  COMMANDS    *************************
  60.  
  61.  
  62.  (abs) tab ( num  >>  |num| )ln
  63.  (add) tab (num1 num2  >>  [(num1+num2[)) ln
  64.  (aload) tab (array  >>  elem1..elem2.. array)ln
  65.  (anchorsearch) tab ( string seek  >>  found: spost smatch true)ln
  66.  ( ) tab            (                             not found: string false)ln
  67.  (and) tab ( a b  >>  aANDb  [(bitwise if a,b are integers[))ln
  68.  (arc) tab (x y r ang1 ang2  >>  --)ln
  69.  (arcn) tab (x y r ang1 ang2  >>  --)ln
  70.  (arcto) tab (x1 y1 x2 y2 r  >>  xt1 yt1 xt2 yt2)ln
  71.  (array) tab (int  >>  arry-of-size-int)ln
  72.  (ashow) tab (ax ay string  >>  --)ln
  73.  (astore) tab (elem1..elem2.. arry-size  >>  arry[▌elem1..elem2[¿)ln
  74.  (atan) tab (a b  >>  angle-whose-tang-is-(a/b))ln
  75.  (awidthshow) tab (ax ay string  >>  --)ln
  76.  (begin) tab (dict  >>  --)ln
  77.  (bitshift)tab (int shift  >>  int-shifted [(right: +, left: -[))ln
  78.  (bytesavailable) tab (file  >>  int [(-1 if cannot be determ[))ln
  79.  (cachestatus) tab (--  >>  bsize bmax msize mmax csize cmax maxbits)ln
  80.  (ceiling) tab (number  >>  least-integ-grtr-than-or-eq-to)ln
  81.  (charpath) tab (string strokepath-bool  >>  --)ln
  82.  (clear) tab (a..b..c..  >>  ....)ln
  83.  (cleartomark) tab (mark a..b..c..  >>  --)ln
  84.  (clip) tab (--  >>  --)ln
  85.  (clippath) tab (--  >>  --)ln
  86.  (closefile) tab ( file  >>  --)ln
  87.  (closepath) tab (--  >>  --)ln
  88.  (concat) tab (matrix  >>  --)ln
  89.  (concatmatrix) tab (mtrx1 mtrx2 mtrx3  >>  mtrx3  [(=mtrx1*mtrx2[))ln
  90.  (copy) tab (a..b..c.. int  >>  a..b..c.. a..b..c.. [(top -int- elem[))ln
  91.  (copypage) tab (--  >>  --)ln
  92.  (cos) tab (a  >>  cosine[(a[))ln
  93.  (count) tab (a..b..c..  >>  a..b..c..count)ln
  94.  (countdictstack) tab (--  >>  count)ln
  95.  (countexecstack) tab (--  >>  count)ln
  96.  (counttomark) tab (mark a..b..c..  >>  mark a..b..c..count)ln
  97.  (currentdash) tab (--  >>  array offset)ln
  98.  (currentdict) tab  (--  >>  dict)ln
  99.  (currentfile) tab (--  >>  file)ln
  100.  (currentflat) tab (--  >>  number)ln
  101.  (currentfont) tab (--  >>  font-dict)ln
  102.  (currentgray) tab (--  >>  number)ln
  103.  (currenthsbcolor) tab (--  >>  hue satur bright)ln
  104.  (currentlinecap) tab (--  >>  integer)ln
  105.  (currentlinejoin) tab (--  >>  integer)ln
  106.  (currentlinewidth) tab (--  >>  number)ln
  107.  (currentmatrix) tab (matrix  >>  CTM-matrix)ln
  108.  
  109.  
  110.  % *****************************************************************
  111.  
  112.  % **********              PAGE #2                   **************
  113.  
  114.  % *****************************************************************
  115.  grestore
  116.  gsave
  117.  30 280 translate
  118.  90 rotate
  119.  newpath
  120.  0 0 moveto
  121.  235 0 lineto
  122.  1 setlinewidth
  123.  stroke
  124.  /Times-Bold findfont 11 scalefont setfont
  125.  3 3 moveto
  126.  (2) show
  127.  
  128.  /Times-Italic findfont 7.5 scalefont setfont
  129.  138 3 moveto
  130.  (PostScript Reference Manual) show
  131.  
  132.  % *********************************************************************
  133.  
  134.  grestore
  135.  gsave
  136.  
  137.  30 280 translate
  138.  90 rotate
  139.  0 0 moveto
  140.  % **********************************************************************
  141.  
  142.  /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9 sub 0 exch
  143.  moveto
  144.  
  145.  % ********************************************************************
  146.  
  147.  (curentmiterlimit) tab (--  >>  number)ln
  148.  (currentpoint) tab (--  >>  x y)ln
  149.  (currentrgbcolor) tab (--  >>  red green blue)ln
  150.  (currentscreen) tab (--  >>  freq rot spot-funct)ln
  151.  (currenttransfer) tab (--  >>  gray-tansf-funct)ln
  152.  (curveto) tab (x0 y0 x1 y1 x2 y2  >>  --)ln
  153.  (cvi) tab (num  >>  integ or strng  >>  int)ln
  154.  (cvlit) tab (a  >>  literal [(not-exec[))ln
  155.  (cvn) tab (string  >>  name)ln
  156.  (cvr) tab (num  >>  real)ln
  157.  (cvrs) tab (num base string  >>  substring)ln
  158.  (cvs) tab (a string  >>  substring)ln
  159.  (cvx) tab (a  >>  executable)ln
  160.  (def) tab (key value  >>  --)ln
  161.  (defaultmatrix) tab (matrix  >>  def-matrix)ln
  162.  (definefont) tab (key dict  >>  font-dict)ln
  163.  (dict) tab (int  >>  dict [(maximum-capacity: int[))ln
  164.  (dictstack) tab (array  >>  subarray)ln
  165.  (div) tab (num1 num2  >>  [(num1/num2[))ln
  166.  (dtransform) tab (xd yd  >>  xdt ydt)ln
  167.  ( ) tab          (or  xd yd matrix  >>  xdt ydt)ln
  168.  (dup) tab        (a  >>  a a)ln
  169.  (echo) tab (bool  >>  --)ln
  170.  (end) tab (--  >>  --)ln
  171.  (eoclip) tab (--  >>  --)ln
  172.  (eofill) tab (--  >>  --)ln
  173.  (eq) tab (a b  >>  bool  [(true if a=b)ln
  174.  (erasepage)  tab  (--  >>  --)ln
  175.  (exch) tab (a b  >>  b a)ln
  176.  (exec) tab (a  >>  --)ln
  177.  (execstack) tab (array  >>  subarray)ln
  178.  (executeonly) tab (arry  >>  exec-only-arry [(or string[))ln
  179.  (exit) tab (--  >>  --)ln
  180.  (exp) tab (num1 num2  >>  num1-to-the-num2-pwr)ln
  181.  (false) tab (--  >>  false)ln
  182.  (file) tab (string1 string2  >>  file [(str2: r, w[))ln
  183.  (fill) tab (--  >>  --)ln
  184.  (findfont) tab (key  >>  font-dict)ln
  185.  (flattenpath) tab (--  >>  --)ln
  186.  (floor) tab (number  >>  greatest-int-less-than-or-eq-to)ln
  187.  (flush) tab (--  >>  --)ln
  188.  (flushfile) tab (file  >>  --)ln
  189.  (for) tab (init incr limit proc  >>  --)ln
  190.  (forall) tab (array proc  >>  elem1..elem2.. [(& executes proc[))ln
  191.  (framedevice) tab ( mtrx wid height proc  >>  --)ln
  192.  (ge) tab (num1 num2  >>  bool [(true if num1>=num2[))ln
  193.  
  194.  
  195.  % *****************************************************************
  196.  
  197.  % **********              PAGE #3                   **************
  198.  
  199.  % *****************************************************************
  200.  grestore
  201.  gsave
  202.  30 540 translate
  203.  90 rotate
  204.  newpath
  205.  0 0 moveto
  206.  235 0 lineto
  207.  1 setlinewidth
  208.  stroke
  209.  /Times-Bold findfont 11 scalefont setfont
  210.  3 3 moveto
  211.  (3) show
  212.  
  213.  /Times-Italic findfont 7.5 scalefont setfont
  214.  138 3 moveto
  215.  (PostScript Reference Manual) show
  216.  
  217.  % *********************************************************************
  218.  
  219.  grestore
  220.  gsave
  221.  
  222.  30 540 translate
  223.  90 rotate
  224.  0 0 moveto
  225.  % **********************************************************************
  226.  
  227.  /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9 sub 0 exch
  228.  moveto
  229.   % **********************************************************************
  230.  (get) tab (array index  >>  element)ln
  231.  (getinterval) tab (arry beg len  >>  subarry)ln
  232.  (grestore) tab (--  >>  --)ln
  233.  (grestoreall) tab (--  >>  --)ln
  234.  (gsave) tab (--  tab  --)ln
  235.  (gt) tab (num1 num2  >>  bool  [(true if num1>num2[))ln
  236.  (identmatrix) tab (matrix  >>  id-transf-mtrx)ln
  237.  (idiv) tab (int1 int2  >>  int-part-of[(int1/int2[))ln
  238.  (idtransform) tab (xdt ydt  >>  xd yd  [(xdt ydt mtrx  >>  xd yd[))ln
  239.  (if) tab (bool proc  >>  --)ln
  240.  (ifelse) tab (bool proc1 proc2  >>  --)ln
  241.  (image) tab (scan-len scan-lns bits/pixl mtrx proc  >>  --)ln
  242.  (imagemask) tab (scan-len scan-lns invrt mtrx proc  >>  --)ln
  243.  (index) tab (a1..a2..a3...ak t  >>  a1..a2..a3..ak a[(k-t[))ln
  244.  (initclip) tab (--  >>  --)ln
  245.  (initgraphics) tab (--  >>  --)ln
  246.  (initmatrix) tab (--  >>  --)ln
  247.  (invertmatrix) tab (mtrx1 mtrx  >>  mtrx [(contents-of-mtrx1-inverted[))ln
  248.  (itransform) tab (xt yt  >>  x y [(xt yt mtrx >>  x y[))ln
  249.  (known) tab (dict key  >>  bool)ln
  250.  (kshow) tab (proc strinng  >>  --)ln
  251.  (le) tab (num1 num2  >>  bool  [(true if num1<=num2[))ln
  252.  (length) tab (array  >>  length-of-arry)ln
  253.  (lineto) tab (x y  >>  --)ln
  254.  (ln) tab (num  >>  natural-logar-of-num)ln
  255.  (load) tab (key  >>  value)ln
  256.  (log) tab (num  >>  common-logar-of-num)ln
  257.  (loop) tab (proc  >>  --)ln
  258.  (lt) tab (num1 num2  >> bool [(true if num1<num2[))ln
  259.  (makefont) tab (font-dict matrix  >>  transformed-font-dict)ln
  260.  (mark) tab (--  >>  mark)ln
  261.  (matrix) tab (--  >>  matrix)ln
  262.  (maxlength) tab (dict  >>  int)ln
  263.  (mod) tab (int1 int2  >>  int1MODint2)ln
  264.  (moveto) tab (x y  >>  --)ln
  265.  (mul) tab (num1 num2  >>  num1*num2)ln
  266.  (ne) tab (num1 num2  >>  bool  [(false if num1=num2[))ln
  267.  (neg) tab (num  >>  -num)ln
  268.  (newpath) tab (--  >>  --)ln
  269.  (not) tab (a  >>  NOTa  [(bitwise if a is integer[))ln
  270.  (null) tab (--  >>  null)ln
  271.  (nulldevice) tab (--  >>  --)ln
  272.  (or) tab (a b  >>  aORb  [(bitwise if a,b are integers[))ln
  273.  (pathbbox) tab (--  >>  lo-left-x lo-le-y upr-rgt-x upr-rgt-y)ln
  274.  (pathforall) tab (mveto-proc lneto-proc crveto-proc clsepth-proc  >>  --)ln
  275.  (pop) tab (a  >>  --)ln
  276.  
  277.  
  278.  showpage
  279.  
  280.   % **********************************************************************
  281.   %                      END OF SIDE A
  282.   % **********************************************************************
  283.  
  284.  
  285.  
  286.   %  ********************************************************************
  287.   %                      --   S I D E   B  --
  288.   %  ********************************************************************
  289.  
  290.  
  291.  
  292.   %  ******************************************************************
  293.   %                       C O V E R    P A G E 
  294.   %  ******************************************************************
  295.  
  296.  
  297.  
  298.  /box ╗newpath
  299.               0 0 moveto
  300.               240 0 lineto
  301.               240 100 lineto
  302.               0 100 lineto
  303.               closepath
  304.                            ║def
  305.  /hor ╗newpath
  306.               0 0 moveto
  307.                750 0 lineto
  308.                             ║ def
  309.  
  310.  
  311.  
  312.  /ver ╗ newpath 
  313.                  0 0 moveto
  314.                  0 950 lineto
  315.                               ║ def
  316.  
  317.  
  318.  
  319.  gsave
  320.  440 530 translate 
  321.  90 rotate
  322.  .4 setlinewidth 
  323.    1 1 100        ╗ hor stroke
  324.  
  325.                    0 5 translate ║  for
  326.  
  327.  grestore
  328.  gsave
  329.  440 530 translate
  330.  90 rotate
  331.  .4 setlinewidth
  332.  1 1 80         ╗ ver stroke
  333.  
  334.                  5 0 translate ║ for
  335.  
  336.   %   ***********************************************************
  337.  
  338.  grestore
  339.  gsave
  340.  420 540 translate
  341.  90 rotate
  342.  box .75 setgray fill
  343.  grestore 
  344.  gsave
  345.  390 550 translate
  346.  90 rotate
  347.  /Times-Bold findfont ▌45 0 0 90 0 0¿ makefont setfont
  348.  0 0 moveto
  349.  (PostScript)show
  350.  grestore
  351.  gsave
  352.  
  353.  350 755 translate
  354.  90 rotate
  355.  /Times-Bold findfont ▌9 0 0 18 0 0¿ makefont setfont
  356.  0 0 moveto
  357.  (TM) show
  358.  grestore
  359.  gsave
  360.  410 550 translate
  361.  90 rotate
  362.  /Times-Bold findfont ▌12 0 0 14 0 0¿ makefont setfont
  363.  0 0 moveto
  364.  (Reference Manual)show
  365.  grestore
  366.  gsave
  367.  
  368.  140 530 translate
  369.  90 rotate
  370.  /Helvetica-Bold findfont ▌40 0 30 sin 30 cos div 90 mul 90 0 0¿ makefont
  371.  setfont
  372.  .15 setgray
  373.  0 0 moveto
  374.  (ULowell) show
  375.  grestore
  376.  gsave
  377.  165 565 translate
  378.  90 rotate
  379.  /Helvetica findfont ▌15 0 -30 sin -30 cos div 30 mul 30 0 0¿ makefont setfont
  380.  0 0 moveto
  381.  .10 setgray
  382.  (CS Department) show
  383.  
  384.  % *****************************************************************
  385.  
  386.  % **********              PAGE #4                   **************
  387.  
  388.  % *****************************************************************
  389.  grestore
  390.  gsave
  391.  30 20 translate
  392.  90 rotate
  393.  
  394.  newpath
  395.  0 0 moveto
  396.  235 0 lineto
  397.  1 setlinewidth
  398.  stroke
  399.  
  400.  /Times-Bold findfont 11 scalefont setfont
  401.  3 3 moveto
  402.  (4) show
  403.  
  404.  /Times-Italic findfont 7.5 scalefont setfont
  405.  138 3 moveto
  406.  (PostScript Reference Manual) show
  407.  
  408.  % *********************************************************************
  409.  
  410.  grestore
  411.  gsave
  412.  
  413.  30 20 translate
  414.  90 rotate
  415.  0 0 moveto
  416.  % **********************************************************************
  417.  
  418.  /ln ╗show /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9
  419.  sub 0 exch moveto║ def
  420.  
  421.  /tab ╗show /Times-Roman findfont 7 scalefont setfont currentpoint exch pop 85
  422.  exch moveto║ def
  423.  
  424.  /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9 sub 0 exch
  425.  moveto
  426.  
  427.   % **********************************************************************
  428.  
  429.  (print) tab (string  >>  --)ln
  430.  (prompt) tab (--  >>  --)ln
  431.  (pstack) tab (a..b..c..  >>  --)ln
  432.  (put) tab (array index value  >>  --)ln
  433.  (putinterval) tab (arry1 beg arry2  >>  arry1)ln
  434.  (quit) tab (--  >>  --)ln
  435.  (rand) tab (--  >>  int)ln
  436.  (rcheck) tab (array  >>  bool [(true if readable[))ln
  437.  (rcurveto) tab (dx0 dy0 dx1 dy1 dx2 dy2  >>  --)ln
  438.  (read) tab (file  >>  byte bool [(false if EOF[))ln
  439.  (readhexstring) tab (file string  >>  substring bool)ln
  440.  (readline) tab (file string  >>  substring bool)ln
  441.  (readonly) tab (array  >>  ReadOnly-array)ln
  442.  (readstring) tab (file string  >>  substr bool [(false if EOF[))ln
  443.  (repeat) tab (count proc  >>  --)ln
  444.  (restore) tab (save-objct  >>  --)ln
  445.  (reversepath) tab (--  >>  --)ln
  446.  (rlineto) tab (dx dy  >>  --)ln
  447.  (rmoveto) tab (dx dy  >>  --)ln
  448.  (roll) tab (a..b..c.. N R  >>  a..b..c.. [(top N elems rolled by R[))ln
  449.  (rotate) tab (angle  >>  --   [(or, angle mtrx >> mtrx[))ln
  450.  (round) tab (num  >>  num-rounded)ln
  451.  (rrand) tab (--  >>  current-random-nr-seed-state)ln
  452.  (run) tab (string  >>  --)ln
  453.  (save) tab (--  >>  save-object)ln
  454.  (scale) tab (sx sy  >>  --   or  sx sy mtrx  >>  mtrx)ln
  455.  (scalefont) tab (font-dict number  >>  transformed-font-dict)ln
  456.  (search) tab (string )ln
  457.  (setcachedevice) tab (wx wy llx lly urx ury  >>  --)ln
  458.  (setcachelimit) tab (maxbytes  >>  --)ln
  459.  (setcharwidth) tab (wx wy  >>  --)ln
  460.  (setdash) tab (array offset  >>  --)ln
  461.  (setflat) tab (num  >>  --)ln
  462.  (setfont) tab (font-dict  >>  --)ln
  463.  (setgray) tab (num  >>  --)ln
  464.  (sethsbcolor) tab (hue satur bright  >>  --)ln
  465.  (setlinecap) tab (integer  >>  --)ln
  466.  (setlinejoin) tab (integer  >>  --)ln
  467.  (setlinewidth) tab (num  >>  --)ln
  468.  (setmatrix) tab (matrix  >>  --)ln
  469.  (setmiterlimit) tab (num  >>  --)ln
  470.  (setrgbcolor) tab (red green blue  >>  --)ln
  471.  (setscreen) tab (freq rotation spot-function  >>  --)ln
  472.  (settransfer) tab (gray-transfer-funct  >>  --)ln
  473.  (show) tab (string  >>  --)ln
  474.  (showpage) tab (--  >>  --)ln
  475.  
  476.  
  477.  
  478.  % *****************************************************************
  479.  
  480.  % **********              PAGE #5                   **************
  481.  
  482.  % *****************************************************************
  483.  grestore
  484.  gsave
  485.  30 280 translate
  486.  90 rotate
  487.  newpath
  488.  0 0 moveto
  489.  235 0 lineto
  490.  1 setlinewidth
  491.  stroke
  492.  /Times-Bold findfont 11 scalefont setfont
  493.  3 3 moveto
  494.  (5) show
  495.  
  496.  /Times-Italic findfont 7.5 scalefont setfont
  497.  138 3 moveto
  498.  (PostScript Reference Manual) show
  499.  
  500.  % *********************************************************************
  501.  
  502.  grestore
  503.  gsave
  504.  
  505.  30 280 translate
  506.  90 rotate
  507.  0 0 moveto
  508.  % **********************************************************************
  509.  
  510.  /Times-Bold findfont 7 scalefont setfont currentpoint exch pop 9 sub 0 exch
  511.  moveto
  512.  
  513.  
  514.   % **********************************************************************
  515.  (sin) tab (num  >>  sine[(num[))ln
  516.  (sqrt) tab (num  >>  square-root-of-num)ln
  517.  (srand) tab (int  >>  --)ln
  518.  (stack) tab (a..b..c..  >>  a..b..c..)ln
  519.  (start) tab (--  >>  --)ln
  520.  (status) tab (file  >>  bool [(true if open[))ln
  521.  (stop) tab (--  >>  --)ln
  522.  (stopped) tab (a  >>  bool [(false if a was terminated normaly[))ln
  523.  (store) tab (key value  >>  --)ln
  524.  (string) tab (int  >>  string)ln
  525.  (stringwidth) tab (string  >>  wx wy)ln
  526.  (stroke) tab (--  >>  --)ln
  527.  (strokepath) tab (--  >>  --)ln
  528.  (sub) tab (num1 num2  >>  num1-num2)ln
  529.  (systemdict) tab (--  >>  system-dict)ln
  530.  (token) tab (file  >>  bool [(true if found[))ln
  531.  (token) tab (string  >>  if found: s-post token true)ln
  532.  ( ) tab     (                    not found: false)ln
  533.  (transform) tab (x y  >>  xt xy  or  x y mtrx >> xt yt)ln
  534.  (translate) tab (tx ty  >>  --  or  tx ty mtrx >> mtrx)ln
  535.  (true) tab (--  >>  true)ln
  536.  (truncate) tab (num  >>  num-truncated)ln
  537.  (type) tab (a  >>  type-name-of-a)ln
  538.  (userdict) tab (--  >>  user-dict)ln
  539.  (usertime) tab (--  >>  time-in-msecs)ln
  540.  (version) tab (--  >>  soft-&-hard-version-string)ln
  541.  (vmstatus) tab (--  >>  level-of-save bytes-used total-bytes-avail)ln
  542.  (wcheck) tab (array  >>  bool [(if writeable: true[))ln
  543.  (where) tab (key  >>  if found: dict true)ln
  544.  ( ) tab (            not found: false)ln
  545.  (widthshow) tab (dx dy char-code string  >>  --)ln
  546.  (write) tab (file byte  >>  --)ln
  547.  (writehexstring) tab (file strig  >>  --)ln
  548.  (writestring) tab (file string  >>  --)ln
  549.  (xcheck) tab (a  >>  bool [(true if a is executable[))ln
  550.  (xor) tab (a b  >>  aXORb [(bitwise if a,b are integers[))ln
  551.  (=) tab (a..b..c..  >>  --)ln
  552.  (==) tab (a..b..c..  >>  --)ln
  553.  
  554.  % ************************************************************************
  555.  
  556.  grestore
  557.  gsave
  558.  
  559.  newpath 
  560.          450 0 moveto
  561.          450 900 lineto
  562.          .5 setlinewidth
  563.  stroke
  564.  
  565.  /Helvetica-Bold findfont 7 scalefont setfont
  566.  470 350 moveto
  567.  90 rotate
  568.  (CUT ALONG THIS LINE)show
  569.  
  570.  grestore
  571.  gsave
  572.  
  573.  newpath
  574.          453 530 moveto
  575.          950 530 lineto
  576.  .5 setlinewidth
  577.  stroke
  578.  
  579.  newpath
  580.           453 260 moveto
  581.           950 260 lineto
  582.  .5 setlinewidth
  583.  stroke
  584.  
  585.  /Helvetica-Bold findfont 7 scalefont setfont
  586.  460 540 moveto
  587.  (FOLD ALONG THIS LINE) show
  588.  
  589.  grestore
  590.  gsave
  591.  
  592.  /Helvetica-Bold findfont 7 scalefont setfont
  593.  460 270 moveto
  594.  (FOLD ALONG THIS LINE) show
  595.  
  596.  
  597.  showpage
  598.  
  599.   % **********************************************************************
  600.   %                        END OF SIDE B 
  601.   % **********************************************************************
  602.  
  603.  
  604.  
  605.  
  606.  
  607.  
  608.