JRT Pascal  User's Guide                         NOT FOR SALE   -174-



      C.  Block letters


           An  external  procedure  named  LETTERS  is provided to generate
      large block letters. These letters are 9 lines high and from 4 to  10
      columns  wide.   The  external procedure generates an entire row at a
      time of letters for use as report headers, program identifiers,  etc.
      The output line may be up to 220 columns wide.

           The  upper  case  letters, numbers, and dash may be input to the
      external procedure.  Unsupported characters are converted to  spaces.
      Lower case characters are converted to upper case.

           The  output from letters is placed in a buffer which is an array
      of strings.  This must be defined exactly as shown.  The  declaration
      for LETTERS is:

            TYPE
            BUFFER = ARRAY [1..9] OF STRING[220];

            PROCEDURE LETTERS (INPUT_STRING : STRING;
                               SLANT : CHAR;
                               VAR B : BUFFER ); EXTERN;


           The  input_string  is  the line of characters to be converted to
      block letter format.  The slant character provides for  'streamlined'
      characters by slanting to the left or right.  Slant may be 'L' or 'R'
      or  '  ',  for no slant.  The output buffer B refers to a variable of
      type buffer in the user's program.   Note  that  B  is  a  referenced
      parameter.




























      Copy compliments of Merle Schnick          APPENDIX C:  Block letters


      JRT Pascal  User's Guide                         NOT FOR SALE   -175-



           This  sample  program  will print out the word 'PASCAL' in block
      letters:

            PROGRAM BLOCKS;

            TYPE
            BUFFER = ARRAY [1..9] OF STRING[220];

            VAR
            I : INTEGER;
            BLOCKS_BUFR : BUFFER;

            PROCEDURE LETTERS ( INPUT_STRING : STRING;
                                SLANT : CHAR;
                                VAR B : BUFFER ); EXTERN;


            BEGIN
            LETTERS('PASCAL','R',BLOCKS_BUFR);
            SYSTEM(LIST);
            FOR I:=1 TO 9 DO WRITELN( BLOCKS_BUFR[I] );
            END.





































      Copy compliments of Merle Schnick          APPENDIX C:  Block letters

            SYSTEM(LIST);
            FOR I:=1 TO 9 DO WRITELN( B