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