aidanozo

Untitled

Dec 6th, 2024
10
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .PROGRAM pal()
  2.         PARAMETER HAND.TIME = 0.5
  3.         SPEED 100 ALWAYS
  4.         m = 10
  5.         h = 10
  6.         dx = 10
  7.         dy = 10
  8.         MOVE safe
  9.         OPEN
  10.         BREAK
  11.         FOR i = 0 TO m-2
  12.             SET pick = SHIFT(p1 BY 0,0,h*(m-1-i))
  13.             x = dx*(i MOD 3)
  14.             y = dy*INT(i/3)
  15.             z = 0
  16.             SET place = SHIFT(p2 BY x,y,z)
  17.             CALL p_p(pick, place)
  18.         END
  19.  
  20.         SET pick = SHIFT(p1 BY 0,0,0)
  21.         x = dx
  22.         y = dy
  23.         z = h
  24.         SET place = SHIFT(p2 BY x,y,z)
  25.         CALL p_p(pick, place)
  26.         MOVE safe
  27. .END
Add Comment
Please, Sign In to add comment