masaakiNakamura

Nisoku hokou 4 servo

Sep 19th, 2020 (edited)
1,193
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 @ARUN:'ニソクホコウ
  2. 11 ' ABCD:モクテキイチ
  3. 12 ' EFGH:ゲンザイイチ
  4. 13 ' OPQR:ショキイチ
  5. 14 ' STUV:イドウハンイ
  6. 20 O=160:P=210:Q=180:R=150
  7. 40 S=30:T=30:U=30:V=30
  8. 50 A=O:B=P:C=Q:D=R
  9. 60 E=A:F=B:G=C:H=D
  10. 100 GOSUB @HOME
  11. 110 A=O-S:C=Q-U:GOSUB @MOVE
  12. 120 B=P-T:D=R-V:GOSUB @MOVE
  13. 130 A=O+S:C=Q+U:GOSUB @MOVE
  14. 140 B=P+T:D=R+V:GOSUB @MOVE
  15. 150 A=O-S:C=Q-U:GOSUB @MOVE
  16. 160 B=P-T:D=R-V:GOSUB @MOVE
  17. 170 A=O+S:C=Q+U:GOSUB @MOVE
  18. 180 B=P+T:D=R+V:GOSUB @MOVE
  19. 900 GOSUB @HOME
  20. 910 END
  21. 2000 @HOME:A=O:B=P:C=Q:D=R
  22. 2010 @MOVE
  23. 2030 FOR I=1 to 20
  24. 2040  PWM 2,(A-E)*I/20+E
  25. 2050  PWM 3,(B-F)*I/20+F
  26. 2060  PWM 4,(C-G)*I/20+G
  27. 2070  PWM 5,(D-H)*I/20+H
  28. 2090  WAIT 2
  29. 2100 NEXT
  30. 2105 WAIT 20
  31. 2110 E=A:F=B:G=C:H=D
  32. 2120 RETURN
  33.  
  34.  
RAW Paste Data