@0 @1 MOV RIGHT ACC S:SUB 1 JGZ S MOV DOWN,NIL @2 SUB 7 ADD UP JLZ T2 JEZ T3 T1: MOV 3 LEFT MOV 13 LEFT JMP TA T3: MOV 4 LEFT MOV 15 LEFT JMP TA T2: MOV 1 LEFT MOV 5 LEFT TA:MOV 12 LEFT MOV 7 LEFT JRO 0 @3 @4 # T1 7,13,12 999 # T2 4,5,12,7,999 # T3 8,15,999 # T1 38 # T2 1 # T3 7 @5 MOV 0 ANY @6 MOV ANY,DOWN @7 MOV 1 LEFT @8 @9 @10 MOV LAST,DOWN MOV ANY,DOWN