@0
MOV 19 ACC
SUB RIGHT
MOV ACC DOWN
MOV 1 RIGHT

MOV RIGHT DOWN
JRO DOWN
A:MOV -2 RIGHT
ADD 6
JLZ A
SUB 8
MOV 1 RIGHT
MOV ACC RIGHT

@1
MOV UP LEFT
MOV UP ACC
MOV ACC RIGHT
MOV -9 LAST
MOV ACC ANY
ADD LEFT
MOV ACC LEFT
JMP B
A:MOV -1 RIGHT
SKIP:MOV -5 DOWN
B:JRO LEFT
MOV 1 RIGHT
MOV LEFT DOWN

@2
MOV LEFT ACC
MOV ACC DOWN
MOV ACC DOWN
JRO LEFT
MOV ACC DOWN

@3
## LEGIT SUB 1190

# 20 LENGTH MIN
# 45 LENGTH MAX

#BUILT ON EASONE'S
# 1190/6/39

@4
  JMP J
0: MOV 2 UP
   ADD DOWN
J: SUB 12
  JLZ >

<: SUB 30
>: SUB UP
   ADD 1
  JRO UP

  JGZ 0!
   MOV 1 UP

@5
MOV UP ACC
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
JRO UP

@6
MOV ANY DOWN

@7
# SAVES CYCLES BY
# SKIPING FORWARD
# IF INPUT RESULTS
# IN A BLACK LINE
# GOING OFF THE
# THE SCREEN

# IT ENDS IT EARLY
# AND SKIPS ON 4
# 0S SAVING
# 8 CYCLES PER
# BLACK LINE GOING
# OFF SCREEN

@8
MOV  19 RIGHT
MOV -30 ANY

@9
J:JLZ L # CHANGE
   MOV -1 RIGHT
   MOV 0 ANY
   MOV ACC RIGHT
  JMP S

D: ADD 360
   MOV LEFT NIL
   NOP
S: SUB 265
  JMP J

L: ADD LEFT
   JRO LEFT
   JMP D

@10
MOV ANY DOWN

@11
# IT DOESN'T DO
# THE SKIPING FOR
# ANY BLACK LINE
# OFF SCREEN CAUSE
# SOME CASES THERE
# IS NOT ENOGUH
# TIME SO THERE IS
# A CHECK FOR IF
# WE HAVE THE TIME
# TO SKIP