'===========================================================================
' Subject: Detect QB version                  Date: 09-15-02 (  :  )       
'  Author: Antoni Gual                        Code: QB, Qbasic, PDS        
'  Origin: agual@eic.ictnet.es              Packet: MISC.ABC
'===========================================================================
DECLARE FUNCTION qbversion% ()
CLS
SELECT CASE qbversion
CASE 1: PRINT "QBasic 1.0/1.1"
CASE 2: PRINT "QBasic 4.0/4.5"
CASE 3: PRINT "PDS    7.0/7.1"
CASE ELSE: PRINT "What happened?"
END SELECT
END
errorhandler: errata% = ERR: RESUME NEXT

FUNCTION qbversion%
'returns QuickBasic-QBasic version
'Antoni Gual   agual@eic.ictnet.es
'Values returned: 1.- Qbasic
'                 2.- QB  4.0-4.5
'                 3.- PDS 7.0-7.1
'----------------------------------
SHARED errata%
ON ERROR GOTO errorhandler
ver% = 2
a& = FRE(-4)
IF errata% THEN
  ver% = 3
ELSE
  a$ = COMMAND$
  IF errata% = 73 THEN
    ver% = 1
  END IF
END IF
qbversion% = ver%
ON ERROR GOTO 0
END FUNCTION