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