'===========================================================================
' Subject: PALETTE STUFF                     Date: 10/10/93 (00:00)       
' Author:  Steve Demo                        Code: QB, QBasic, PDS        
' Keys:    PALETTE,STUFF                   Packet: GRAPHICS.ABC
'===========================================================================
DEFINT A-Z
DECLARE SUB SetPalette ()
SCREEN 13
FOR x = 0 TO 255
 LINE (x + 20, 10)-(x + 20, 180), x
NEXT x
LOCATE 1, 12: PRINT "Press any Key": a$ = INPUT$(1)
LOCATE 1, 10: PRINT SPACE$(18)
FOR j = 1 TO 6
 PALETTE: SOUND 30000, 14
 SetPalette
 SOUND 30000, 14
NEXT j
SetPalette
DO UNTIL LEN(INKEY$)
 LOCATE 1, 10: PRINT "Now that's Simple"
 LOCATE 24, 10: PRINT SPACE$(18); : SOUND 30000, 4
 LOCATE 1, 10: PRINT SPACE$(18)
 LOCATE 24, 10: PRINT "Now that's Simple"; : SOUND 30000, 4
LOOP
SCREEN 0: WIDTH 80

'This program was created by PAL2CODE (c) 1993 SRD SoftWare
SUB SetPalette
REDIM F(768)
F$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb": GOSUB MKPLT
F$ = "+++...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3": GOSUB MKPLT
F$ = "##8##=##?&&B**E--H11K55N88Q<<T@@XDDZII]NN_SSbYY3+": GOSUB MKPLT
F$ = "#8-#=/#B2#G4#L6#Q9#V;#\>#\B*]F2^K:_OA`TIaXQb]Y33#": GOSUB MKPLT
F$ = "66#99#<<#??#BB#EE#HH#LL#OO#RR#UU#XX#[[#^^#bb##8%#": GOSUB MKPLT
F$ = ":(#<,#?/#A3#C7#F:#H>#KB#ME#OI#RM#TP#WT#YX#\\YbYRb": GOSUB MKPLT
F$ = "QJbJG^GDZDAWA>S>;O;8L85H52E2/A/,=,):)&6&$3#YbbQbb": GOSUB MKPLT
F$ = "JbbE__A\\=ZZ:VV7RR5NN2JJ0FF-BB*>>(::%66#33Y^bQ[bJ": GOSUB MKPLT
F$ = "XbBUb:Rb3Ob+Mb#Jb#F\#BV#>P#:J#6D#3?#/9#,3YYbQRbJJ": GOSUB MKPLT
F$ = "bEE_@@\<<Y88V55R33N11J..F,,B**>'':%%6##3/@$2B#5D#": GOSUB MKPLT
F$ = "8F#;H#>J#AL#DN#GP#JR#MT#PV#SX#VZ#Y\#]_#bYb`S`^N^\": GOSUB MKPLT
F$ = "H\ZCZX=XV8VT3UP0QL.MH+ID(EA&A<%<7$73#3-+&1-'5/):2": GOSUB MKPLT
F$ = "+;3+=4,?5-@6-B7.D8/E9/G:0I;1J<1L=2N>3O?3Q@4SA5UB6": GOSUB MKPLT
F$ = "VD8WF;XH>YJAZMD[OG\QJ]SM^VP_XS`ZVb]ZZ##X)#W0#U6#T": GOSUB MKPLT
F$ = ";#S@#RF#PJ#ON#CN#6M#*M##L(#K3#K?#KH#FL#>M#5M#-N6#": GOSUB MKPLT
F$ = "Q>#QD#QL#QQ#NQ#FQ#@Q#9Q#1R#+R##bbb": GOSUB MKPLT
  DEF SEG = &HA000
      FOR Colors = 1 TO 768     'convert this to load a PAL file
        OUT &H3C9, F(Colors)    'from disk eg. GET #1,,a$
      NEXT Colors               'F=ASC(A$) ect...
  ERASE F
  DEF SEG
EXIT SUB

MKPLT:
    j = j + 1
    FOR jj = 1 TO LEN(F$)
       count = count + 1
       F(count) = (ASC(MID$(F$, jj, 1)) - 35)
    NEXT jj
RETURN
END SUB