@0
# JPGROSSMAN'S
# 317/4/54

# REDISCOVERED BY
# LONGINGFORREST

@1
    MOV UP NIL
1:  MOV -4 DOWN
S:  MOV -25 ACC
    ADD UP
    JGZ 123
LO: ADD 20
    JLZ 23
0:  MOV -5 DOWN
    MOV -25 ACC
    ADD UP
    JLZ LO
123:SUB 25
    JLZ 1
23: MOV ACC DOWN
    JMP S

@2


@3


@4
S:  MOV UP ACC
    JLZ LO
HI: SUB 25
    JLZ 2
3:  MOV 3 LAST
    MOV 3 ANY
    JMP S
2:  MOV 2 LAST
    MOV 2 ANY
    MOV UP ACC
    JGZ HI
LO: ADD 5
    MOV ACC LAST
    MOV ACC ANY

@5


@6
    SUB UP
    JEZ EZ
    JGZ NZ
    MOV UP RIGHT
    MOV UP DOWN
EZ: MOV ANY ACC
    MOV ACC DOWN
    MOV -1 RIGHT
    SUB UP
    JEZ EZ
NZ: MOV UP ACC
    MOV -6 RIGHT
    MOV ACC DOWN
    MOV ACC ANY

@7
  MOV LEFT ACC
  MOV ACC LEFT
  SWP
  JMP INC

OUT: MOV ACC ANY
     MOV LEFT ACC
     SWP
     MOV ACC LAST
     SUB ACC

INC: ADD 1
J:  JRO LEFT

@8