LDX #$00
STA $0010
PETLJA:
LDA #$01
STA $040F
STA $0410
LDA #$10
STA $040F
STA $0410
LDA #$01
STA $040E
STA $0411
LDA #$10
STA $040E
STA $0411
LDA #$01
STA $040D
STA $0412
LDA #$10
STA $040D
STA $0412
LDA #$01
STA $040C
STA $0413
LDA #$10
STA $040C
STA $0413
LDA #$01
STA $040B
STA $0414
LDA #$10
STA $040B
STA $0414
LDA #$01
STA $040A
STA $0415
LDA #$10
STA $040A
STA $0415
LDA #$01
STA $03EA
STA $03F5
LDA #$10
STA $03EA
STA $03F5
LDA #$01
STA $03CA
STA $03D5

INX
CPY #$10
BNE PETLJA

------------------------

LDA #$ef
STA $00
LDA #$03
STA $01

;purple boi
LDA #$f0
STA $02
LDA #$03
STA $03

;initial draw
LDX #$0

LDA #$05
STA ($00,X)

LDA #$04
STA ($02,X)

;xos
LDY #$0f
LOOPX:
;greeen
LDA #$00
STA ($00,X)
SEC
LDA $00
SBC #$01
STA $00
LDA #$05
STA ($00,X)

;purplii
LDA #$00
STA ($02,X)
CLC
LDA $02
ADC #$01
STA $02
LDA #$04
STA ($02,X)

LDX #$40
SLOWX:
NOP
DEX
BNE SLOWX

DEY
BNE LOOPX

;yos
LDY #$0f
LOOPY:
;greeen
LDA #$00
STA ($00,X)
CLC
LDA $00
ADC #$20
STA $00

BCC ENDG
LDA $01
CLC
ADC #$01
STA $01
ENDG:

LDA #$05
STA ($00,X)

;purplii
LDA #$00
STA ($02,X)

SEC
LDA $02
SBC #$20
STA $02

BCS ENDP
LDA $03
SEC
SBC #$01
STA $03
ENDP:

LDA #$04
STA ($02,X)

LDX #$40
SLOWY:
NOP
DEX
BNE SLOWY

DEY
BNE LOOPY

;additional greeen
LDA #$00
STA ($00,X)
CLC
LDA $00
ADC #$20
STA $00

LDA #$05
STA ($00,X)

-----------------

LDX #$0F
CL:
  LDA #$01
  STA $0400, X
  

  INX
  LDA #$00
  STA $0400, X
  DEX
  
 
  DEX
  BPL CL

LDX #$00
LEFT_TO_RIGHT:
  LDA #$01
  STA $0400, X

  DEX
  LDA #$00
  STA $0400, X
  INX

  INX
  CPX #$1F
  BNE LEFT_TO_RIGHT

RC:
  LDA #$01
  STA $0400, X

  INX
  LDA #$00
  STA $0400, X
  DEX

  DEX
  CPX #$0E 
  BNE RC


LDA #$0F
STA $20
LDA #$04
STA $21

LDX #$10

LDY #$00

LDA #$01
STA ($20), Y

LDA $20
SBC #$20
STA $20

LDA $21
SBC #$00
STA $21

CU:
  LDA #$01
  STA ($20), Y

  
  LDA $20
  ADC #$1F
  STA $20

  LDA $21
  ADC #$00
  STA $21

  LDA #$00
  STA ($20), Y

 
  LDA $20
  SBC #$1F
  STA $20
  LDA $21
  SBC #$00
  STA $21

  
  LDA $20
  SBC #$20
  STA $20

 
  LDA $21
  SBC #$00
  STA $21

  DEX
  CPX #$00
  BNE CU

CLC

UD:
  LDA #$01
  STA ($20), Y

  
  LDA $20
  SBC #$1F
  STA $20

  LDA $21
  SBC #$00
  STA $21

  LDA #$00
  STA ($20), Y


  LDA $20
  ADC #$1F
  STA $20
  LDA $21
  ADC #$00
  STA $21

  LDA $20
  ADC #$20
  STA $20


  LDA $21
  ADC #$00
  STA $21

  INX
  CPX #$20
  BNE UD

LDA #$01
STA ($20), Y

LDA $20
SBC #$20
STA $20

LDA $21
SBC #$00
STA $21

DC:
  LDA #$01
  STA ($20), Y

  
  LDA $20
  ADC #$1F
  STA $20

  LDA $21
  ADC #$00
  STA $21

  LDA #$00
  STA ($20), Y

  
  LDA $20
  SBC #$1F
  STA $20
  LDA $21
  SBC #$00
  STA $21

  LDA $20
  SBC #$20
  STA $20

  LDA $21
  SBC #$00
  STA $21

  DEX
  CPX #$11 
  BNE DC

LDA #$00
STA ($20), Y

LOOP:
  LDX #$0F
  JSR CL
  LDX #$00
  JSR LEFT_TO_RIGHT
  JSR RC

  LDA #$0F
  STA $20
  LDA #$04
  STA $21

  CLC
  LDA #$01
  STA ($20), Y

  LDA $20
  SBC #$20
  STA $20

  LDA $21
  SBC #$00
  STA $21

  JSR CU
  CLC
  JSR UD

  LDA #$01
  STA ($20), Y

  LDA $20
  SBC #$20
  STA $20

  LDA $21
  SBC #$00
  STA $21

  JSR DC

  LDA #$00
  STA ($20), Y

  CPY #$05
  BEQ LOOP
  ---------------------