
                   Computer Science IMP77 Compiler.  Version 6.02

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

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

             1  %include "EDWIN_DIR:SPECS.INC"
             &  { EDWIN routine specs added }                   %end %of %list
             2  %begin
             3  
             4     ! EDWIN test program 3
             5     ! Program to check software characters,
             6     ! It checks both the size and rotation of the characters.
             7  
             8     %const %integer GOOD = 1
             9     %const %integer PDF STREAM = 1
            10     %integer I
            11  
            12     PROMPT ("Device: ")
            13     READ (I)
            14     INITIALISE FOR (I)
            15     NEW FRAME
            16  
            17     OPEN OUTPUT (PDF STREAM, "TEST3.PDF")
            18     STORE ON (PDF STREAM)
            19  
            20     SET CHAR QUALITY (GOOD)
            21  
            22     %for I = 0,1,3 %cycle
            23          MOVE ABS (511, 500)
            24          SET CHAR ROT (I*90)
            25          SET CHAR SIZE (12)
            26          TEXT ("CHAR at 12 OK")
            27          SET CHAR SIZE (24)
            28          TEXT ("CHAR at 24 OK")
            29     %repeat
            30  
            31  TERMINATE EDWIN
            32  
            33  %end %of %program

          Code 292 bytes  Glap 88 bytes  Diags 138 bytes   Total size 518 bytes
              62 statements compiled in  3.10 seconds.  (1200 statements/minute)
