/* thilev.c */
#include <stdio.h>
#include "ibmint.dlc"
#include "hilevel.c"

main()
{ char line[256]; int x ;
  setcom() ;                              /* Initialize communications.  */
  while(1)                        /* Endless loop. Use CTRL-C to exit.   */
   { rt_puts("type a line of text\n") ;   /* Line message to remote.     */
     rt_gets(line) ;                      /* Line from remote.           */
     puts(line) ;                         /* Line to screen.             */
     rt_puts("type an integer\n") ;       /* Line message to remote.     */
     rt_gets(line) ;                      /* Line from remote.           */
     sscanf(line,"%d",&x) ;               /* Convert to integer.         */
     printf("%d\n",x) ;                   /* Integer to screen.          */
     for( x = 0; x < 11 ; x++)            /* Put out table of            */
      { sprintf(line,"%3d %3d\n",x,x*x) ; /* squares of integers         */
        rt_puts(line) ;                   /* to remote.                  */
      }                                                                /**/
    puts("press a key to continue") ;     /* Message to screen.          */
    while( !kbhit() ) ; getch() ;         /* Wait for keypress.          */
   }
}