#
# ZX Next SL2 exporter 256
# PLUS3DOS header and no palette
# A Multipaint internal script
#

XREM "PLUS3DOS header"

# can be fixed, no need for counting checksum

XBYTE $50,$4C,$55,$53,$33,$44,$4F,$53
XBYTE $1A,$01,$00,$80,$C0,$00,$00,$05
XBYTE $00,$c0,$00,$00,$00,$80,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00

XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00

XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00

XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$00
XBYTE $00,$00,$00,$00,$00,$00,$00,$FD

XREM "bitmap"

# detect 32 or 40 size

H=PEEK 5

IF H=32
    FOR Y=0 TO 191
	    FOR X=0 TO 255
		    P=GETPOINT X,Y
		    XBYTE P
	    NEXT X
    NEXT Y
ENDIF
IF H=40
	FOR X=0 TO 319
        FOR Y=0 TO 255
		    P=GETPOINT X,Y
		    XBYTE P
        NEXT Y
	NEXT X
ENDIF


# Write to file (bytes)

RECENT "in_specnxsl2.txt"

SAVE
