home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
PP002.ZIP
/
EX3.PRG
< prev
next >
Wrap
Text File
|
1991-04-11
|
181b
|
16 lines
Program EX3;
var
a : byte;
begin
A := 65;
While (A <= 90) do
begin
Write(A);
Emit(32,32,32,32,A,13,10);
A := A + 1;
end;
emit(13,10);
end.
.