paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 00:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* necessary $I- added

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-18 18:34:28 +00:00
parent f6bcd5c791
commit 298925a7f5
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/os2/tests/divetry.pas
View File

@ -1,9 +1,20 @@
{****************************************************************************
$Id$
DIVE example code
Copyright (c) 1999-2000 by Karoly Balogh (aka Charlie/INQ)
****************************************************************************}
{$ASMMODE INTEL} {$ASMMODE INTEL}
{ lame code, but who cares? :) please don't laugh it out. :) } { lame code, but who cares? :) please don't laugh it out. :) }
Program DiveTry; Program DiveTry;
{$I-}
Uses Os2Def,PMWin,DIVE,DOSCalls; Uses Os2Def,PMWin,DIVE,DOSCalls;
{ * main program * } { * main program * }
@ -179,3 +190,11 @@ Begin
WinDestroyMsgQueue(MsgQue); WinDestroyMsgQueue(MsgQue);
WinTerminate(Anchor); WinTerminate(Anchor);
End. End.
{
$Log$
Revision 1.2 2000-06-18 18:34:28 hajny
* necessary $I- added
}