Q69160: "Subscript Out of Range," Graphics GET with LONG Integer

Article: Q69160
Product(s): See article
Version(s): 6.00 6.00b 7.00 7.10 | 6.00 6.00b 7.00 7.10
Operating System(s): MS-DOS | OS/2
Keyword(s): ENDUSER | b_quickbas buglist6.00 buglist6.00b buglist7.00 buglist7.10 | mspl13_basic
Last Modified: 14-FEB-1991

If the graphics GET statement is used in a subprogram with a LONG
integer array and if the starting index of the array is not the first
element, a "Subscript out of Range" error will be generated if the
program is compiled with BC /D. If the program is compiled without the
/D option, BC.EXE will give an "Illegal function call" error.

This problem does not occur in the QBX.EXE or QB.EXE environment.

Microsoft has confirmed this to be a problem with Microsoft QuickBASIC
versions 4.00, 4.00b, and 4.50 for MS-DOS; Microsoft BASIC compiler
versions 6.00 and 6.00b for MS-DOS and MS OS/2; and Microsoft BASIC
Professional Development System (PDS) versions 7.00 and 7.10 for
MS-DOS and MS OS/2. We are researching this problem and will post new
information here as it becomes available.

The program below demonstrates the problem. Compile and link as
follows:

   BC /D SAMPLE;
   LINK SAMPLE;

When the program is run, it will draw a circle and then print
"Subscript out of Range in line 7 of module SAMPLE."

To work around this problem, either place the array in COMMON SHARED
or use a local array instead of one that is passed as a parameter. It
is also possible to uses SINGLE precision numbers instead of LONG
integers.

Code Sample: SAMPLE.BAS
-----------------------

DECLARE SUB test (array() AS LONG)
1 DIM array(1000) AS LONG
2 SCREEN 1
3 CIRCLE (50, 50), 50
4 CALL test(array())
5 CLS
6 PUT (100, 100), array(4)

SUB test (array() AS LONG)
7  GET (50, 50)-(100, 100), array(4)
END SUB

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1986-2002.