{
{ FORM_A_LARGE_LETTER_ROW
{
{      This procedure will generate 10 large characters if called
{  10 times with row increased by 1 each time.  The first 10
{  characters of the input string will be converted to 10 large
{  characters.
{
{  NOTE: The characters used are determined on the first call
{            when ROW = 1.
{
{      FORM_A_LARGE_LETTER_ROW (INPUT_STRING, ROW, LINE, STATUS)
{
{  INPUT_STRING : (input) This parameter specifies the character
{     string to make large letters from.
{
{  ROW: (input) This parameter specifies the next row within the
{     large letters to use.
{
{  LINE (input) This parameter provides a buffer into which
{     the next row is to be generated.
{
{  STATUS: (output) This parameter returns the status of the request.
{
{       EXAMPLE CALL;
{
{         FOR row := 1 to 10 DO
{           form_a_large_letter_row (input_string, row, line, status);
{           amp$put_next (file_name, ^line,
{             line_length, byte_address, status);
{         FOREND;
{

