@0
   MOV -3 ACC
   MOV RIGHT DOWN
   ADD RIGHT
>: MOV 3 DOWN
   SUB 1
   JGZ >
   MOV 1 DOWN

@1
   SUB UP
   JGZ >
   MOV UP RIGHT
   JMP .
>: SUB UP
   MOV ACC RIGHT
   NEG
   MOV UP LEFT
   MOV UP LEFT
   MOV ACC RIGHT
   JMP ^
.: MOV UP LEFT
   MOV UP LEFT
^: MOV 1 ACC

@2
   MOV LEFT DOWN
.: SUB LEFT
   JGZ >
   ADD 1
   MOV ACC DOWN
   SUB 2
<: ADD 1
   JLZ <
>: MOV 0 DOWN
   JEZ .
   ADD 2
&: SUB 1
   JGZ &
# IN=0: 0 STALL DX
# 180: -DX STALL 0

@3
   MOV 3 DOWN

# SUPPLY THE INK

@4
   MOV -94 ACC
   ADD UP
   JLZ &
   SUB 179
&: JRO UP
   ADD 5
   MOV ACC RIGHT
   MOV ACC RIGHT
   JLZ &

# IN= 90:(-4)* 1 1
# IN=270:(-3)* 2 2

@5
   MOV RIGHT DOWN
   MOV DOWN RIGHT
   JMP &
   SUB 2
   ADD 1
   MOV ACC RIGHT
   MOV -3 RIGHT
&: JRO LEFT
   SUB 2
   ADD 1
   MOV ACC RIGHT
   MOV -4 RIGHT
   JMP &

@6
   MOV -1 ACC
   ADD UP
   MOV ACC LEFT
   SUB 4
>: SUB 1
   JGZ >
   MOV LEFT ACC
   JRO 2
   ADD UP
   MOV -1 RIGHT
   MOV ACC RIGHT
   MOV LEFT RIGHT
*: JRO LEFT

# * JUMPS -3 OR -4

@7
   MOV ANY DOWN

# LEFT PROVIDES:
# -1
# X COORD
# Y COORD
# STALLING WAITING
# FOR "ADD UP"
# CONTROLS LENGTH

@8
   MOV UP ACC
   MOV ACC UP
   SUB 4
>: JGZ >
   ADD 5!
   MOV -1 RIGHT
   MOV ACC RIGHT
   MOV 0 RIGHT
   MOV 0 RIGHT
   MOV 0 RIGHT
   MOV 0 RIGHT

# INITIAL SEGMENTS
# OF LENGTH 4 OR 5
# NEED COVERUP

@9
   MOV LAST DOWN
   MOV LAST DOWN
   MOV ANY DOWN

## 744/11/88
# BIGGIEMAC42
# SEPT 15 2024

# MIN UNLESS THERE
# CAN BE VIABLE
# PRECOG OF LATER
# STRIPES TO SAVE
# COORD DRAWING

@10
   MOV UP LEFT