Rune VIII I really need your help

[[e-mail]]

Rune VIII in the old message board you posted a short program you wrote in about 20 lines that allows you to open 256 color BMP files in Screen mode 13, now I really need your help, if you could please alter it so to moke it open up 16 color BMP files in screen 12 I would be REALLY greatfull. if you dont remember the code you used, here it is.

SCREEN 13
DEF SEG

LIN$ = SPACE$(320)
PALET$ = SPACE$(1024)
FILENAME$ = "----YOUR FILE HERE----"

OPEN FILENAME$ FOR BINARY AS #1
GET #1, 55, PALET$

OUT &H3C8, 0

FOR X = 1 TO 1024 STEP 4
ZB = INT((ASC(MID$(PALET$, X , 1)))/4)
ZG = INT((ASC(MID$(PALET$, X + 1,1)))/4)
ZR = INT((ASC(MID$(PALET$, X + 2,1)))/4)

OUT &H3C9, ZR
OUT &H3C9, ZG
OUT &H3C9, ZB

NEXT X
DEF SEG = &HA000

FOR Y = 199 TO 0 STEP -1
     GET #1, , LIN$
     FOR X = 0 TO 319
           OFFSET& = Y * 320 + X
           POKE OFFSET&, ASC(MID$(LIN$, X + 1,1))
     NEXT
NEXT
CLOSE

'PLEASE HELP ME.