PROGRAM LAYAR;
USES CRT;
VAR
x : CHAR;
BEGIN
CLRSCR;
GOTOXY(35,10);
WRITELN('STMIK DUMAI’);
WRITE(tunggu sebentar...!!');
DELAY(5000);
INSLINE;
GOTOXY(35,11);WRITELN('Top Banget Dech ...');
GOTOXY(01,13);WRITELN('Tekan Enter !');
DELAY(1000);
GOTOXY(15,12);
DELLINE;
READ(x);
END.
Hasilnya adalah :
STMIK DUMAI
Top Banget Dech ...
tunggu sebentar...!
Tekan Enter !