@0


@1
 MOV -1  ACC
 SAV
 MOV UP  ACC
DIV: JLZ OUT
 SUB 27
 SWP
 ADD 1
 SWP
 JMP DIV
OUT: SWP
 MOV ACC DOWN

@2


@3


@4
 MOV UP  ACC
 MOV ACC DOWN
 MOV ACC RIGHT

@5
 MOV LEFT DOWN

@6
 MOV UP  ACC
 MOV ACC DOWN
 MOV ACC RIGHT

@7
RST: MOV UP ACC
 SAV
CMP: SWP
 SAV
 SUB LEFT
 JNZ OUT
 MOV UP    NIL
 MOV RIGHT NIL
 MOV 1     RIGHT
 JMP CMP
OUT: SWP
 MOV RIGHT DOWN
 MOV -999  RIGHT
 MOV ACC  DOWN

@8
RUN: MOV ACC LEFT
 ADD LEFT
 JLZ CLR
 JMP RUN
CLR: MOV 1   ACC