if "%1" == "" quit
if not exist "%1" quit
set x="%@filename[%1]"
set out="%@filename[%1].prg"
set oux="%@filename[%1].exo.prg"
gosub fixcol
gosub genkv
cbmcombine %x,$6000 koalaview.prg -o %out >nul
del /zqe koalaview.prg >NUL
exomizer sfx $8711 -n -q -o %oux %out
::call crushbat %out $8711
if x%2 == xd del /zqe %out>NUL
quit

:genkv
text>koalaview.asm
scrpos  = $7f40
scr     = $5c00
colpos  = $8328
col     = $d800
bkgcol  = $8710
        *= $8711
        sei
        lda #$00
        sta $d011
        sta $d020
        ldx #$00
copy    lda scrpos     ,x
        sta scr        ,x
        lda scrpos+$100,x
        sta scr   +$100,x
        lda scrpos+$200,x
        sta scr   +$200,x
        lda scrpos+$300,x
        sta scr   +$300,x
        lda colpos     ,x
        sta col        ,x
        lda colpos+$100,x
        sta col   +$100,x
        lda colpos+$200,x
        sta col   +$200,x
        lda colpos+$300,x
        sta col   +$300,x
        dex
        bne copy
        lda bkgcol
        sta $d021
        lda #$2e
        sta $d012
        lda #$78
        sta $d018
        lda #$02
        sta $dd00
        lda #$d8
        sta $d016
        lda #$3b
        sta $d011
kmain   lda $dc01
        and $dc00
        and #$10
        bne kmain
        cli
        beq exit
exit    sta $c6
        jsr $fda3
        jsr $e5a0
        lda $0286
        ldx #$00
cram    sta col        ,x
        sta col+$0100  ,x
        sta col+$0200  ,x
        sta col+$0300  ,x
        dex
        bne cram
        rts
endtext
dasm koalaview.asm -okoalaview.prg -v2>nul
del /zqe koalaview.asm>NUL
return

:fixcol
set ouf="%@filename[%1].col"
:: extract color tables + screencolor (1001 bytes)
c:\unx\dd if="%@filename[%1]" of=%ouf bs=1 skip=9002 >nul
:: AND $0f every byte
andfile %ouf 0f >nul
move /ZQE DECRYPT.000  %ouf

:repatch
c:\unx\dd if=%ouf of="%@filename[%1]" bs=1 seek=9002 >nul
del /zqe %ouf
unset ouf
return