40                ACCEL   40000 1000
50                RMVC   U_A 1
60                DO
70                 FOR   i=1 TO 10
80                  SPEED   U_A i*4000
90                  TIME   100
100                NEXT
110                FOR   i=10 TO 1 STEP -1
120                 SPEED   U_A i*4000
130                 TIME   100
140                NEXT
150               LOOP