BLOAD Loses Colors and/or Shapes; SMARTDrive Outside Windows (81966)


The information in this article applies to:

  • Microsoft Basic Professional Development System (PDS) for MS-DOS and MS OS/2 7.0
  • Microsoft Basic Professional Development System (PDS) for MS-DOS and MS OS/2 7.1
  • Microsoft QuickBASIC 4.5
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$ = ""
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$ = "TEMP": TOTAL! = 38400
  DEF SEG = &HA000
  FOR I = 0 TO 3
      OUT &H3CE, 4
      OUT &H3CF, I
      F$ = FILENAME$ + CHR$(I + 48) + ".GRA"
      BSAVE F$, 0, TOTAL!
  NEXT I
  DEF SEG
  RETURN

BLOAD12: FILENAME$ = "TEMP"
  REM TOTAL! = 38400
  DEF SEG = &HA000
  FOR I = 0 TO 3
      OUT &H3C4, 2
      OUT &H3C5, 2 ^ I
      F$ = FILENAME$ + CHR$(I + 48) + ".GRA"
      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.
Modification Type:MinorLast Reviewed:1/9/2003
Keywords:KB81966
©2002 Microsoft Corporation. All rights reserved.