home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / ITPJUN90.ZIP / HELLO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-05-10  |  380 b   |  20 lines
  1. PROGRAM Hello;
  2. USES
  3.    Graph;
  4. VAR
  5.    Driver, Mode : Integer;
  6. BEGIN
  7.    Driver := Detect;
  8.    InitGraph(Driver,Mode,'');
  9.    IF Driver < 0 THEN
  10.       BEGIN
  11.         WriteLn(GraphErrorMsg(Driver));
  12.         Halt(Abs(Driver)) {Return error code}
  13.       END;
  14.    OutTextXY(0,0,'Hello, world');
  15.    OutTextXY(0,20,'Press Enter to continue');
  16.    ReadLn;
  17.    CloseGraph;
  18. END.
  19.  
  20.