home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / FIRST1 < prev    next >
Text File  |  1985-08-08  |  640b  |  17 lines
  1. PROGRAM FIRST_1;            {a simple program to ask for your name}
  2. VAR                         {we'll use a string VARiable for your name}
  3.     YOUR_NAME : STRING;
  4.  
  5. BEGIN
  6.     WRITELN('This is my first program.');
  7.     REPEAT
  8.         WRITE('Please type your name, then <CR>: ');
  9.         READLN(YOUR_NAME);
  10.     UNTIL LENGTH(YOUR_NAME)  >  0;
  11.     IF LENGTH(YOUR_NAME)  <  10 
  12.         THEN WRITELN('What a short name!')
  13.         ELSE WRITELN('What a long name!');
  14.     WRITELN('Hi, ', YOUR_NAME);
  15.     WRITELN('The end of my program.');
  16. END.                        {use 'S' to switch screens here!}
  17.