'
' Identify windows 95 and Windows 3.1x
' copyright status: Public Domain
'
' By Marc van den Dikkenberg
'
' Visit the Powerbasic Archives,
' http://145.89.78.151/~excel/pb.html
'

Z=INP(&H3F8)

IF BIT(PBVHOST,8)=1 then
   IF Z = 255 THEN
      PRINT "Windows95 is running!"
   ELSE
      PRINT "Windows 3.1x is running!"
   END IF
ELSE
   print "Windows is not running!"
END IF