PROGRAM SECOND1; {an example of simple input and output; also, cursor control}
VAR
  NAME  : STRING;
  COUNT : INTEGER;

BEGIN
  CURSOR(0,0); 
  WRITELN('upper left');
  CURSOR(30,0); 
  WRITELN('upper right');
  CURSOR(0,24); 
  WRITELN('lower left');
  CURSOR(30,24); 
  WRITELN('lower right');

  CURSOR(0,10);
  WRITE("What's your name? ");
  READLN(NAME);
  FOR COUNT := 1 TO 5 DO
    WRITELN('Hi, ',   NAME,    '!');
  END.