home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / visible.arj / SECOND1 < prev    next >
Text File  |  1985-08-08  |  512b  |  22 lines
  1. PROGRAM SECOND1; {an example of simple input and output; also, cursor control}
  2. VAR
  3.   NAME  : STRING;
  4.   COUNT : INTEGER;
  5.  
  6. BEGIN
  7.   CURSOR(0,0); 
  8.   WRITELN('upper left');
  9.   CURSOR(30,0); 
  10.   WRITELN('upper right');
  11.   CURSOR(0,24); 
  12.   WRITELN('lower left');
  13.   CURSOR(30,24); 
  14.   WRITELN('lower right');
  15.  
  16.   CURSOR(0,10);
  17.   WRITE("What's your name? ");
  18.   READLN(NAME);
  19.   FOR COUNT := 1 TO 5 DO
  20.     WRITELN('Hi, ',   NAME,    '!');
  21.   END.
  22.