TO START_UP FS bועותב 100 TS END TO bועותב :N HT PU SETPOS [0 (- 60)] PD DER :N ST END TO DER :N IF :N < 1 [STOP] [] IF :N < 5 [SETPC 5] [SETPC 7] FD :N / 2 RT 30 DER :N * 2 / 3 LT 30 FD :N / 2 RT 30 DER :N * 2 / 3 IF :N < 5 [SETPC 5] [SETPC 7] PU LT 30 BK :N PD END