Q33621: "RETURN without GOSUB" When ON ERROR and CHAIN in 4.00b
Article: Q33621 Product(s): See article Version(s): 4.00b 4.50 Operating System(s): MS-DOS Keyword(s): ENDUSER | buglist4.00b buglist4.50 | mspl13_basic Last Modified: 8-DEC-1989 If the following program is compiled in QuickBASIC Version 4.00b or 4.50 or Microsoft BASIC Compiler Version 6.00 or 6.00b and CHAINed to/from another program, the error message "RETURN without GOSUB in line 10 of module" is generated. This problem does not occur when executed inside the QuickBASIC environment or if the two programs are compiled with the same switches or if A.BAS is compiled with /O switch. Microsoft has confirmed this to be a problem in QuickBASIC Versions 4.00b and 4.50 and in Microsoft BASIC Compiler for MS-DOS and OS/2 (buglist6.00, buglist6.00b). This problem has been corrected in Microsoft BASIC Compiler Version 7.00 (fixlist7.00). The following is a code example: ' A.BAS, the CHAINing program: CHAIN "B" ' B.BAS, the CHAINed-to program: ' Will give error message unless A.BAS was compiled with /E or /X. GOSUB sub1 PRINT "It works!" END sub1: PRINT "Here I am!" ON 1 GOSUB sub2 PRINT "I'm back!" 10 RETURN 'Says RETURN without GOSUB here when 'compiled. sub2: PRINT "I'm down here!" RETURN sub3: ON ERROR GOTO OhNo 'Should never get to this line. OhNo: END 'Never gets to this line.
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.