Robootika aruanne
630 'AVA ASUKOHA TUVASTAMINE
631 *AYES 'kuni pole ava tuvastatud, siis keerame käppa
641 IF (B2=0) THEN GOTO *NO 'ja suurendame käpa orientatsiooni
643 P11=P11+POORE 'P11-le liidetakse POORE juurde, et suurendada
ROLL-i
660 MVS P11 'liigub positsiooni p11
661 GOTO *AYES 'ning liigume P11
662 *NO
663 P10.A=P11.A+0.56 'salvestame leitud poordenurga ka P10-s
680 'S7
690 MVS P10 'LIIGUN POSITSIOONI P10
700 P12.A=P10.A 'positsioonis P12 keeratakse käppa nii, et silinder läheks
710 P13.A=P10.A 'pulga otsa
720 MVS P12 'LIIGUN POSITSIOONI P12
730 DLY 0.5 'AJAVIIDE 500MS
740 'S8
750 MVS P13 'LIIGUN POSITSIOONI P13
annaabi.ee 
