@0
   MOV UP   ACC
S: MOV ACC  DOWN
   MOV ACC  DOWN
   MOV UP   ACC
   MOV ACC  LEFT
   ADD ACC
   ADD LEFT
   ADD 1  # IN*3+1
   MOV ACC  DOWN
   MOV ACC  RIGHT
   MOV UP   ACC
   JNZ N
1: MOV 1    RIGHT
N: MOV 2    RIGHT
   JNZ S

@1
S: JRO LEFT
# 1ST CHAR IS 0
1: MOV 1    DOWN
3: MOV 4    DOWN

    JRO LEFT

# 2ND CHAR IS 0
+1: MOV -999 DOWN
    JMP S

# NO 0
    MOV 23 DOWN

@2
S:JRO RIGHT#IN*3+1
0: MOV  3 DOWN
   MOV -1 RIGHT
   JMP S
1: MOV  7 DOWN
   MOV  7 RIGHT
   JMP S
2: MOV  7 DOWN
   MOV  4 RIGHT
   JMP S
3: MOV  4 DOWN
   MOV  7 RIGHT
   JMP S
4: MOV  1  DOWN
   MOV  7  RIGHT

@3
S: MOV UP  ACC
   ADD ACC
   ADD UP
   ADD 1  # IN*3+1
   MOV ACC  LEFT
   MOV LEFT ACC
   MOV UP   LEFT
   MOV 0    DOWN
   MOV 0    DOWN
   MOV ACC  DOWN
   MOV LEFT ACC
   JLZ NEW # LINE
   MOV ACC  DOWN
   JMP S
NEW: MOV -99 DOWN

@4
   MOV ACC RIGHT
   SUB UP
   JGZ 1
   ADD 29
   JRO UP
# NEW LINE
1: MOV 0   ACC
   MOV -2  RIGHT
   JRO UP
# NEXT CHAR
4: MOV 1   RIGHT
S: MOV ACC RIGHT

@5
MOV ACC  DOWN # Y
SUB LAST
MOV 0    DOWN
# BLACK GAP
MOV -1   DOWN
MOV LAST DOWN # X
MOV ACC  DOWN # Y
ADD 1
NOP
MOV 0    DOWN
MOV -1   DOWN

MOV ANY  DOWN # X

@6
S: JRO ANY
1: MOV 3 RIGHT
   MOV 3 RIGHT
   JMP T
4: MOV 0 RIGHT
   MOV 3 RIGHT
   JMP T
7: MOV 3 RIGHT
   MOV 0 RIGHT
T: JRO LAST
   MOV 3 RIGHT
   MOV 3 RIGHT
3: JMP S
   MOV 0 RIGHT
   MOV 3 RIGHT

@7
MOV ANY DOWN

@8
MOV UP LEFT

## 2 ANY METHOD

# FILLS 2 CHAR AT
# A TIME

# BASED OFF A
# 622/9/86
# BY SHADOWCLUSTER