SUBROUTINE SETCPI(LUN,CPI) C C Routine to set the character width on an LA120 to the specified C spacing. The input parameters are: C C LUN - Logical unit number of the LA120 (usually spooled file) C CPI - Character inch spacing, legal values are: C C 5 - for 5 char/inch C 6 - for 6 char/inch C 7 - for 6.6 char/inch C 8 - for 8.25 char/inch C 10 - for 10 char/inch C 12 - for 12 char/inch C 13 - for 13.2 char/inch C 16 - for 16.5 char/inch C C If illegal, default is 16.5 char/inch C C The 4 byte escape sequence is sent to the LUN in a regular write C statement (LUN is generally a file to be spooled). The escape sequence C used is described in the LA120 USER GUIDE. C IMPLICIT INTEGER (A-Z) BYTE SEQ(4) DATA SEQ/"33,'[','1','w'/ C GO TO (16,16,16,16,5,6,7,8,16,10,16,12,13,16,16,16),CPI C GO TO 16 5 SEQ(3) = '5' GO TO 20 6 SEQ(3) = '6' GO TO 20 7 SEQ(3) = '7' GO TO 20 8 SEQ(3) = '8' GO TO 20 10 SEQ(3) = '1' GO TO 20 12 SEQ(3) = '2' GO TO 20 13 SEQ(3) = '3' GO TO 20 16 SEQ(3) = '4' C C Send the escape sequence out C 20 WRITE (LUN,21) SEQ 21 FORMAT (1X,4A1) C RETURN END