@0 @1 MOV UP,RIGHT #X,W MOV UP,DOWN #Y,H @2 MOV LEFT,DOWN#X,W @3 @4 MOV UP,ACC#Y SAV MOV UP,ACC#H L:SWP MOV ACC,DOWN#Y ADD 1 SWP SUB 1#H JEZ E MOV -4,RIGHT JMP L E:MOV -100,RIGHT @5 S:MOV UP,ACC#X SAV MOV 6,ACC SUB UP#W X:SWP MOV ACC,DOWN#X SWP MOV ACC,DOWN#DW JRO LEFT @6 @7 @8 MOV UP,RIGHT @9 MOV UP,DOWN#X MOV LEFT,DOWN#Y JRO UP#DW MOV 3,DOWN MOV 3,DOWN MOV 3,DOWN MOV 3,DOWN MOV 3,DOWN MOV -1,DOWN @10