Microsoft KB Archive/81966

= BLOAD Loses Colors and/or Shapes; SMARTDrive Outside Windows =

Article ID: 81966

Article Last Modified on 11/21/2006

-

APPLIES TO


 * Microsoft BASIC Professional Development System 7.0
 * Microsoft BASIC Professional Development System 7.1
 * Microsoft QuickBasic 4.5 for MS-DOS

-



This article was previously published under Q81966



SYMPTOMS
The BLOAD statement may, under certain circumstances, appear to lose color information and/or part of the screen when a file is BLOADed a second time.

This information applies to Microsoft Basic PDS versions 7.0 and 7.1, Microsoft QuickBasic version 4.5, and Microsoft SMARTDrive.



MORE INFORMATION
This problem is caused by using SMARTDrive outside of Windows. Using SMARTDrive within an MS-DOS session under Windows corrects the problem.

To resolve the problem, do one of the following::


 * Make sure that you don't BLOAD the same file twice
 * Run the program that uses BLOAD within a Windows MS-DOS session
 * Remove SMARTDrive
 * BLOAD it to a memory array and then move it to the screen

Program to Reproduce Problem
SCREEN 12 CLS

GOSUB BSAVE12 ; PLEASE COMMENT OUT THIS LINE OUNCE THE ; FILES ARE CREATED SO THAT YOU ONLY BLOAD IT

GOSUB BLOAD12 DO A$ = INKEY$ LOOP WHILE A$ = &quot;&quot; END

BSAVE12: FOR CX = 25 TO 62*5 STEP 40 CIRCLE (CX, CY), 25, C: PAINT (CX, CY), C, C    C = C + 1: CY = CY + 31 NEXT FILENAME$ = &quot;TEMP&quot;: TOTAL! = 38400 DEF SEG = &HA000 FOR I = 0 TO 3 OUT &H3CE, 4 OUT &H3CF, I     F$ = FILENAME$ + CHR$(I + 48) + &quot;.GRA&quot; BSAVE F$, 0, TOTAL! NEXT I DEF SEG RETURN

BLOAD12: FILENAME$ = &quot;TEMP&quot; REM TOTAL! = 38400 DEF SEG = &HA000 FOR I = 0 TO 3 OUT &H3C4, 2 OUT &H3C5, 2 ^ I     F$ = FILENAME$ + CHR$(I + 48) + &quot;.GRA&quot; BLOAD F$, 0 NEXT I DEF SEG RETURN



STATUS
Microsoft has confirmed this to be a bug in SMARTDrive and the BLOAD statement. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

Additional query words: QuickBas missing corrupted screen Basic PDS SMARTDRV 4.50 7.00 7.10 buglist4.50 buglist7.00 buglist7.10

Keywords: KB81966

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.