N1 M62
N2 M3 S#13 ;ת
N3 #660=#19*#1891  ;Ƕ,
N4 #660=#660/360000
N5 #661=#8000   ;λ
N6 IF (#660 GT #661)GOTO9
N7 #661=#8000
N8 IF (#660 LT #661)GOTO6
N9 GOTO11
N10 #661=#8000
N11 IF (#660 GT #661)GOTO9
N12 M05
N13 M63 ;
N14 M02

