===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-18-93 (14:26)             Number: 140
From: AARON LAPIKAS                Refer#: NONE
  To: JIM COYLE                     Recvd: NO  
Subj: GIF Format /2                  Conf: (35) Quick Basi
---------------------------------------------------------------------------
 > I would like to see this...

Here you go.  I only spent about ten minutes on it, so it may not be that effici
ent:

--------------------------------------------------------------------------
'GIFLOAD.BAS - BCData Programming Inc.
'Released into Public Domain on May 17, 1993

DECLARE SUB ChangePalette (Filename$, ScreenMode%)
DECLARE SUB DisplayGra (Filename$, ScreenMode%)

DEFINT A-Z
CLS

PRINT "GRALOAD version 1.0"
PRINT "BCData Programming Inc - 1993"
PRINT

INPUT "GRA File to view : ", F$
LOCATE 4, 20: PRINT UCASE$(F$): LET F$ = UCASE$(F$)

INPUT "Screen mode      : ", ScreenMode
PRINT

IF ScreenMode < 12 OR ScreenMode > 13 THEN
  BEEP: PRINT "Screen mode invalid!"
  END
END IF

OPEN F$ FOR BINARY AS 1
  IF LOF(1) = 0 THEN
    CLOSE
    KILL F$

    BEEP: PRINT "File not found!"
    END
  END IF
CLOSE #1

LET Filename$ = LEFT$(F$, LEN(F$) - 4)

OPEN Filename$ + ".MAP" FOR BINARY AS 1
  IF LOF(1) = 0 THEN
    CLOSE
    KILL Filename$ + ".MAP"

    BEEP: PRINT "Color map not found!"
    END
  END IF
CLOSE #1

ChangePalette Filename$, ScreenMode
DisplayGra Filename$, ScreenMode

END

SUB ChangePalette (Filename$, ScreenMode)

DIM Pal(255) AS LONG
OPEN Filename$ + ".MAP" FOR BINARY AS 1

FOR X = 0 TO 255
  GET #1, , Pal(X)
NEXT X

SCREEN ScreenMode

PALETTE USING Pal(0)
CLOSE #1

END SUB

SUB DisplayGra (Filename$, ScreenMode)

SCREEN ScreenMode

IF ScreenMode = 13 THEN
  BLOAD Filename$ + ".GRA"
ELSE
  FOR X = 0 TO 3
    OUT &H3C4, 2
    OUT &H3C5, 2 ^ X
    BLOAD Filename$ + ".BP" + CHR$(49 + X)
  NEXT X
END IF

END SUB

--------------------------------------------------------------------------
Let me know if you have any questions/comments.

Aaron

--- FMail 0.90
 * Origin: BCData Programming Inc - Sharon, PA (1:2601/506.1)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20