
                Computer Science VAX-11 IMP77 Compiler.  Version 8.01

                      Compiled on 10-JUN-1981 at 16:24:26

             Source file: _DRA0:[GRAFIX.EDWIN]TEST4.IMP;1

               1  %include "EDWIN_DIR:SPECS.INC"
           &   1  { EDWIN routine specs added }                   %end %of %list
               2  %begin
               3     ! EDWIN test program 4
               4     ! Program to draw the EDWIN character set on a plotter to check for
               5     ! consistancy of letters, and also demonstrate the character set.
               6  
               7     %const %integer PDF STREAM = 2, GOOD = 1
               8     %integer I, X, Y
               9  
              10  PROMPT ("Device:")  ;  READ (I)  ;  INITIALISE FOR (I)
              11  
              12  NEW FRAME
              13  STORE ON (PDF STREAM)
              14  
              15  MOVE ABS (400, 20)  ;  ! Bottom right corner
              16  
              17  ! The boxes are now drawn to minimise moves.
              18  MOVE REL (-36, 0) %and LINE REL (-36, 0) %for I = 1, 1, 4
              19  LINE REL (0, 720)
              20  MOVE REL (36, 0) %and LINE REL (36, 0) %for I = 1, 1, 4
              21  %for I = 1, 1, 4 %cycle
              22     LINE REL (0, -720 )  ;  LINE REL (-36, 0)
              23     LINE REL (0, 720)  ;  LINE REL (-36, 0)
              24  %repeat
              25  %for I = 1, 1, 6 %cycle
              26     MOVE REL (0, -60)  ;  LINE REL (288, 0)
              27     MOVE REL (0, -60)  ;  LINE REL (-288, 0)
              28  %repeat
              29  
              30  X = 112  ;  Y = 697  ;  MOVE ABS (X, Y)  ;  I = 32
              31  
              32  SET CHAR SIZE (36)
              33  SET CHAR QUALITY (GOOD)
              34  
              35  %cycle; ! To draw the characters
              36     MARKER REL (4, 0, 0)
              37     CHARACTER (I)
              38     I = I + 1  ;  %exit %if I=127
              39     %if X = 364 %start; ! The end of a row
              40         MARKER REL (4, 0, 0)
              41         Y = Y - 60
              42         X = 112
              43     %finish %else X = X + 36
              44     MOVE ABS (X, Y)
              45  %repeat
              46  
              47  TERMINATE EDWIN
              48  %end %of %program
          Code 732 bytes  Glap 48 bytes  Diags 232 bytes   Total size 1012 bytes
              85 statements compiled in  2.96 seconds.  (1722 statements/minute)
