home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progpas
/
visible.arj
/
FIRST1
< prev
next >
Wrap
Text File
|
1985-08-08
|
640b
|
17 lines
PROGRAM FIRST_1; {a simple program to ask for your name}
VAR {we'll use a string VARiable for your name}
YOUR_NAME : STRING;
BEGIN
WRITELN('This is my first program.');
REPEAT
WRITE('Please type your name, then <CR>: ');
READLN(YOUR_NAME);
UNTIL LENGTH(YOUR_NAME) > 0;
IF LENGTH(YOUR_NAME) < 10
THEN WRITELN('What a short name!')
ELSE WRITELN('What a long name!');
WRITELN('Hi, ', YOUR_NAME);
WRITELN('The end of my program.');
END. {use 'S' to switch screens here!}