$CPU 8086 ' make compatible with XT systems $LIB ALL OFF ' turn off all PowerBASIC libraries $ERROR ALL OFF ' turn off all PowerBASIC error checking $OPTIMIZE SIZE ' optimize for smaller code $COMPILE UNIT ' compile to a UNIT (.PBU) '$COMPILE EXE ' compile to a UNIT (.PBU) DEFINT A-Z ' Required for all numeric functions, forces PB to not ' include floating point in UNIT (makes it smaller) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB5" '/*------------------------------------------------------------------*/ FUNCTION ISWIN95 () PUBLIC AS INTEGER !MOV AX, &h1600 !INT &h2F !CMP AL, 4 !JZ IsWin95_Win95 IsWin95=0 EXIT FUNCTION IsWin95_Win95: IsWin95=1 END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' IF ISWIN95 > 0 THEN PRINT "RUNNING UNDER WINDOWS 95!" ' IF ISWIN95 = 0 THEN PRINT "NOT Running Under Windows 95!" ' Y$ = GETKEY '/*------------------------------------------------------------------*/