home *** CD-ROM | disk | FTP | other *** search
/ Mechanisms: The Technology Series / MECHS.iso / acorn / _genlib / resources / action / printall
Encoding:
Text File  |  1990-11-05  |  197 b   |  9 lines
  1. SET Page TO 0
  2. WHILE Page <= LASTPAGE
  3.    PRINT WHOLE OF PAGE Page PORTRAIT RETAINING SHAPE COPIES 1 
  4.    IF Page <> PAGE THEN
  5.       TELL PAGE Page TO CLOSE
  6.    ENDIF
  7.    SET Page TO Page + 1
  8. ENDWHILE 
  9.