Advertisement
GauHelldragon

Untitled

May 2nd, 2013
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. IOX@ 0= IF
  2. 0 EXIT THEN
  3. IOX@ shifter !
  4. 16 1 DO
  5. shifter @ 1 AND 0<> IF
  6. I UNLOOP EXIT THEN
  7. shifter @ 2/ shifter !
  8. LOOP
  9. 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement