Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                       ◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example uses the BLOAD statement to retrieve and display a drawing of
'a magenta cube inside a box. The BSAVE statement programming example
'shows how the drawing was created and saved on disk.
 
'Note: To run this program, you must first create the file MAGCUBE.GRH
'using the BSAVE statement programming example.
 
DIM Cube(1 TO 675)
'Set the screen mode. The mode should be the same as the
'mode used to create the original drawing.
SCREEN 1
'Set segment to the array Cube's segment and load
'the graphic file into Cube.
DEF SEG = VARSEG(Cube(1))
BLOAD "MAGCUBE.GRH", VARPTR(Cube(1))
DEF SEG               'Restore default BASIC segment.
'Put the drawing on the screen.
PUT (80, 10), Cube