home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega CD-ROM 1
/
megacd_rom_1.zip
/
megacd_rom_1
/
MAGAZINE
/
INSIDE_T
/
ITPJUN90.ZIP
/
HELLO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-05-10
|
380b
|
20 lines
PROGRAM Hello;
USES
Graph;
VAR
Driver, Mode : Integer;
BEGIN
Driver := Detect;
InitGraph(Driver,Mode,'');
IF Driver < 0 THEN
BEGIN
WriteLn(GraphErrorMsg(Driver));
Halt(Abs(Driver)) {Return error code}
END;
OutTextXY(0,0,'Hello, world');
OutTextXY(0,20,'Press Enter to continue');
ReadLn;
CloseGraph;
END.