masaakiNakamura

Nisoku hokou 4 servo

Sep 19th, 2020 (edited)
1,709
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×