	DEVICE ZXSPECTRUM128

WORMBUF  EQU #C16F
WORMCOL  EQU #2D
RAMKCOL   EQU #13

     ORG #C000-1
STARTFORSNA
     EI ;это делает игру на 1 байт длинее

;в HL - начало области атрибутов.

     LD HL,#5800

;закрасили верхнюю линию цветом края игрового поля.

     LD B,#20
     LD A,RAMKCOL
     LD (HL),A
     INC HL
     DJNZ $-2

     LD B,22
SUDA
     LD (HL),A
     INC HL
     LD C,#1E
     LD (HL),0
     INC HL
     DEC C
     JR NZ,$-4
     LD (HL),A
     INC HL
     DJNZ SUDA

     LD B,#20
     LD (HL),A
     INC HL
     DJNZ $-2

     RET

     SAVESNA "test.sna",STARTFORSNA

