Falsches Beispiel in QB-Ratgeber für AUFRUF-INTERRUPT

' Note:  To use CALL INTERRUPT, you must load the Quick library QB.LIB
'        with QuickBasic. The program also uses the QB.BI header file.

' Include header file for INT86OLD, etc.
REM $INCLUDE: 'QB.BI'  ' Added REM to correct "Expected: Statement" error

DIM INARY%(7), OUTARY%(7)         'Define input and output
              'arrays for INT86.
'
' Define register-array indices to
' make program easier to understand.
CONST AX = 0, BX = 1, CX = 2, DX = 3, bp = 4, si = 5, di = 6, FL = 7
'
INARY%(AX) = &H3C00               'DOS function to create a file.
INARY%(CX) = 0                    'DOS attribute for created file.
a$ = "NAME.TXT" + CHR$(0)   ' Added this line and modified next line to
INARY%(DX) = SADD(a$)      ' correct "Expected: Variable" error.
              'Pointer to file-name string
              'with zero byte termination.

CALL INT86OLD(&H21, INARY%(), OUTARY%())
              'Perform the creation.
'
INARY%(BX) = OUTARY%(AX)          'Move created file handle for write.
INARY%(AX) = &H4000               'DOS function to write to file.
TEXT$ = "hello, world" + CHR$(13) + CHR$(10)
              'Define text to write to file.
INARY%(CX) = LEN(TEXT$)           'Get length of text string.
INARY%(DX) = SADD(TEXT$)          'Get address of text string.
CALL INT86OLD(&H21, INARY%(), OUTARY%())
              'Perform the write.
'
INARY%(AX) = &H3E00               'DOS function to close a file.
CALL INT86OLD(&H21, INARY%(), OUTARY%())
              'Perform the close.
				

'This example uses the Interrupt routine to determine the current
'drive and the amount of free space remaining on the drive.

'Note: To use the Interrupt routine, you must load the Quick library
'QB.QLB using the /L switch when you begin QB. The following include
'file must also be present.

'$INCLUDE: 'QB.BI'

'Define registers.
DIM regs AS RegType

'Get current drive info; set up input and do system call.
regs.ax = &H1900
CALL INTERRUPT(&H21, regs, regs)

'Convert drive info to readable form.
Drive$ = CHR$((regs.ax AND &HFF) + 65) + ":"

'Get disk free space; set up input values and do system call.
regs.ax = &H3600
regs.dx = ASC(UCASE$(Drive$)) - 64
CALL INTERRUPT(&H21, regs, regs)

'Decipher the results.
SectorsInCluster = regs.ax
BytesInSector = regs.cx
IF regs.dx >= 0 THEN
   ClustersInDrive = regs.dx
ELSE
   ClustersInDrive = regs.dx + 65536
END IF
IF regs.bx >= 0 THEN
   ClustersAvailable = regs.bx
ELSE
   ClustersAvailable = regx.bx + 65536
END IF
Freespace = ClustersAvailable * SectorsInCluster * BytesInSector

'Report results.
CLS
PRINT "Drive "; Drive$; " has a total of";
PRINT USING "###,###,###"; Freespace;
PRINT " bytes remaining free."