from EDWIN include Specs
begin

   ! EDWIN test program 3
   ! Program to check software characters,
   ! It checks both the size and rotation of the characters.

   const integer PDF STREAM = 1
   integer I, Q

   PROMPT ("Device: ")
   READ (I)
   INITIALISE FOR (I)
   PROMPT ("Char Quality: ")
   READ (Q)
   NEW FRAME

   OPEN OUTPUT (PDF STREAM, "TEST3.PDF")
   STORE ON (PDF STREAM)

   SET CHAR QUALITY (Q)

   for I = 0,1,7 cycle
        MOVE ABS (511, 500)
        SET CHAR ROT (I*45)
        SET CHAR SIZE (12)
        TEXT ("CHAR at 12 OK")
        SET CHAR SIZE (24)
        TEXT ("CHAR at 24 OK")
   repeat

TERMINATE EDWIN

end of program