home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
insidetp
/
1990_06
/
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.