USEG2.0

@0
S:MOV RIGHT ACC
SUB 4
MOV 1 DOWN
JEZ LEFT
MOV 1 DOWN
JMP S
LEFT:MOV -1 DOWN

@1
S:MOV UP ACC
SAV
SUB 2
JEZ Y
SUB 2
JEZ X
SUB 2
JEZ X
SUB 2
JNZ S
Y:SWP
MOV ACC RIGHT
JMP S
X:SWP
MOV ACC LEFT

@2
S:MOV LEFT ACC
SUB 2
MOV 1 DOWN
JEZ LOW
MOV -1 DOWN
JMP S
LOW:MOV 1 DOWN

@3
MOV UP RIGHT
MOV UP RIGHT

@4
S:JRO ANY
MOV 4 RIGHT#COMM
MOV LEFT DOWN
JMP S
MOV 0 DOWN

@5
S:JRO ANY
MOV 4 LEFT
MOV UP RIGHT
JMP S
MOV 0 RIGHT

@6
MOV LEFT DOWN
##STYLUS

@7
MOV 18 ACC
S:ADD UP
MOV ACC RIGHT
JMP S

@8
MOV LEFT DOWN#X
MOV RIGHT DOWN#Y
MOV 3 DOWN#COL
MOV -1 DOWN

@9
MOV 11 ACC
S:ADD UP
MOV ACC LEFT
JMP S