Nisoku hokou 4 servo

10 @ARUN:'ﾆｿｸﾎｺｳ
11 ' ABCD:ﾓｸﾃｷｲﾁ
12 ' EFGH:ｹﾞﾝｻﾞｲｲﾁ
13 ' OPQR:ｼｮｷｲﾁ
14 ' STUV:ｲﾄﾞｳﾊﾝｲ
20 O=160:P=210:Q=180:R=150
40 S=30:T=30:U=30:V=30
50 A=O:B=P:C=Q:D=R
60 E=A:F=B:G=C:H=D
100 GOSUB @HOME
110 A=O-S:C=Q-U:GOSUB @MOVE
120 B=P-T:D=R-V:GOSUB @MOVE
130 A=O+S:C=Q+U:GOSUB @MOVE
140 B=P+T:D=R+V:GOSUB @MOVE
150 A=O-S:C=Q-U:GOSUB @MOVE
160 B=P-T:D=R-V:GOSUB @MOVE
170 A=O+S:C=Q+U:GOSUB @MOVE
180 B=P+T:D=R+V:GOSUB @MOVE
900 GOSUB @HOME
910 END
2000 @HOME:A=O:B=P:C=Q:D=R
2010 @MOVE
2030 FOR I=1 to 20
2040  PWM 2,(A-E)*I/20+E
2050  PWM 3,(B-F)*I/20+F
2060  PWM 4,(C-G)*I/20+G
2070  PWM 5,(D-H)*I/20+H
2090  WAIT 2
2100 NEXT
2105 WAIT 20
2110 E=A:F=B:G=C:H=D
2120 RETURN