#
# ZX Next SL2 importer 256/320 modes
# A Multipaint internal script
#

LOAD

# error checking

# file length

Q = LENGTH

IF Q<>49280
    ALERT 1
    STOP
ENDIF

# Check if first byte is Ascii 'P' as in PLUS3DOS

READ A
IF A<>$50
    ALERT 1
    STOP
ENDIF

# Otherwise, Don't care for the header

FOR I=0 TO 126
    READ P
NEXT I

# bitmap

FOR Y=0 TO 191
    FOR X=0 TO 255
	    READ P
	    PUTPOINT X,Y,P
    NEXT X
NEXT Y

REFRESH

