Category : Printer + Display Graphics
Archive   : MAC2GIF2.ZIP
Filename : VGABLD.BAS

' $STATIC
ON ERROR GOTO HelpScrn
DIM CPal%(777)
DACseg% = VARSEG(CPal%(1))
DACptr% = VARPTR(CPal%(1))
c$ = COMMAND$
IF c$ = "" THEN GOSUB HelpScrn
SCREEN 13
DEF SEG = DACseg%
BLOAD c$ + ".plt", DACptr%
DEF SEG
CALL WritePAL(DACseg%, DACptr%)

DEF SEG = &HA000
BLOAD c$ + ".bld", 0
DEF SEG

a$ = INPUT$(1)
END
HelpScrn:
SCREEN 11
CLS : BEEP
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "³ VGABLoaD Copr. (c) 1988 ³"
PRINT "³ Lawrence Gozum & Marvin Gozum ³"
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
PRINT "QuickBASIC 4.0 (c) 1982-87 Microsoft (R) Corp."
PRINT
PRINT " Syntax: VGABLOAD [filename] "
PRINT
PRINT " DO NOT INCLUDE EXTENSION !"
PRINT " Screen has extension .BLD for BLoaD."
PRINT " Palette has extension .PLT for PaLeTte."
PRINT
PRINT " Press any key to continue."
a$ = INPUT$(1)
END