@0 S: MOV RIGHT ACC JNZ NZ EZ: MOV -999 DOWN JMP S NZ: MOV ACC DOWN @1 MOV UP ANY @2 # ORGINATED BY # JPGROSSMAN # REDISCOVERED BY # LONGINGFORREST @3 MOV ANY ACC JLZ B A: ADD ANY JGZ A B: MOV ACC DOWN @4 MOV 6 RIGHT NZ: MOV ACC LEFT S: MOV UP ACC JNZ NZ EZ: MOV -999 LEFT JMP S @5 MOV ANY DOWN @6 MOV 7 LEFT @7 MOV 999 ACC ADD UP MOV ACC RIGHT @8 MOV LEFT DOWN MOV 1 RIGHT @9 A: JRO ANY MOV ACC ANY SUB ACC B: JRO ANY MOV ACC ANY JMP A MOV -5 ACC ADD 1 @10