'****************************************************************************
'
'   Erh”hen der verfgbaren (gleichzeitig offenen) Handles in PowerBASIC 3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

MaxFiles% = 30                           ' entspricht FILES = 30
PBFiles MaxFiles%                        ' anpassen der verfgbaren Files

FOR i% = 1 TO MaxFiles%                  ' Testen der verfgbaren Files
    PRINT "™ffne File:  PBFILES." + STR$(i%)
    OPEN "PBFILES." + STR$(i%) FOR BINARY AS i%
    PUT$ i%, "Testdatei" + STR$(i%) + " fr PBFILES, bitte l”schen!"
NEXT i%
FOR i% = 1 TO MaxFiles%                  ' und wieder schliessen
    CLOSE i%
NEXT i%

SUB PBFiles(BYVAL MoreFiles%)
        x& = SETMEM(-255)                ' sollte Ausreichen fr alle F„lle
        ! mov ah, &h67                   ; Anzahl der verfgbaren Handles
        ! mov bx, MoreFiles%             ; festlegen
        ! add bx, 6                      ; die Standard-Handles fr PB
        ! int &h21
        ! jnc PBFiles_Ok
        PRINT "Fehler beim Einrichten der verfgbaren Handles!!"
        PBFiles_Ok:
END SUB