ÁÎÒÛ
8000 for n%=1 to 3
 ÑÒÀËÊÅÐ
8001 if bot%(n%)=1 th gs 8050
 ÑÎËÄÀÒ
8002 if bot%(n%)=2 th gs 8100
8010 next n%
8011 ret



 ÑÒÀËÊÅÐ
8050 if delo%(n%)=3 or gizn%(n%)<20 th gt 8100 ÏÎÂÅÄÅÍÈÅ ÑÎËÄÀÒÀ
8060 gs 3000 ÑÒÎËÊ ÁÎÒ Ñ ÎÁÜÅÊ
8061 gs 2800 ÑÒÎËÊ Ñ ÀÍÎÌÀË

 ÈÇÌÅÍÅÍÈÅ ÍÀÏÐÀÂËÅÍ ÁÎÒÎÂ
8082 if delo%(n%)=0 th nap%(n%)=nap%(n%)+1:if nap%(n%)=4 th nap%(n%)=0
8083 if rand(0,100)<5 th delo%(n%)=0:nap%(n%)=nap%(n%)+1:if nap%(n%)=4 th nap%(n%)=0
8084 if rand(0,100)<5 th delo%(n%)=0:nap%(n%)=nap%(n%)-1:if nap%(n%)=-1 th nap%(n%)=3

8085 if delo%(n%)=0 th gt 8090

 ÄÂÈÆÅÍÈÅ ÁÎÒÎÂ
8086 if nap%(n%)=0 th y%(n%)=y%(n%)-skor%
8087 if nap%(n%)=2 th y%(n%)=y%(n%)+skor%
8088 if nap%(n%)=1 th x%(n%)=x%(n%)+skor%
8089 if nap%(n%)=3 th x%(n%)=x%(n%)-skor%

8090 gs 1100 ÀÍÈÌÀÖÈß ÁÎÒÎÂ
8091 sm str$(51+n%),x%(n%),y%(n%):sm str$(55+n%),x%(n%),y%(n%)+20
8099 ret



 ÑÎËÄÀÒ
8100 gs 2800 ÑÒÎËÊ Ñ ÀÍÎÌÀË
8101 if delo%(n%)=3 th gizn%(n%)=gizn%(n%)-5:gt 8145
8102 gs 3000 ÑÒÎËÊ ÁÎÒ Ñ ÎÁÜÅÊ
8103 if gizn%(n%)<0 th gt 8145

 ÏÐÎÂÅÐÊÀ ÀÒÀÊÈ
8104 if gizn%(1)+gizn%(2)+gizn%(3)<60 th gt 8106
8105 if bot%(n%)=2 th if x%(n%)>x%+68 or y%-68>y%(n%) or y%(n%)>y%+68 or x%-68>x%(n%) th delo%(n%)=0:gt 8145

 ËÈÍÈß ÎÃÍß
8106 if x%(n%)=x% th if y%<y%(n%) th if y%+88>y%(n%) th if nap%(n%)=0 th delo%(n%)=2:gt 8140
8107 if x%(n%)=x% th if y%>y%(n%) th if y%-88<y%(n%) th if nap%(n%)=2 th delo%(n%)=2:gt 8140
8108 if y%(n%)=y% th if x%<x%(n%) th if x%+88>x%(n%) th if nap%(n%)=3 th delo%(n%)=2:gt 8140
8109 if y%(n%)=y% th if x%>x%(n%) th if x%-88<x%(n%) th if nap%(n%)=1 th delo%(n%)=2:gt 8140
 
 ÏÎÂÎÐÎÒ ÍÀ ËÈÍÈÞ ÎÃÍß
8110 if x%(n%)=x% th if y%<y%(n%) th if nap%(n%)<>0 th nap%(n%)=0:delo%(n%)=0:gt 8145
8111 if x%(n%)=x% th if y%>y%(n%) th if nap%(n%)<>2 th nap%(n%)=2:delo%(n%)=0:gt 8145
8112 if y%(n%)=y% th if x%<x%(n%) th if nap%(n%)<>3 th nap%(n%)=3:delo%(n%)=0:gt 8145
8113 if y%(n%)=y% th if x%>x%(n%) th if nap%(n%)<>1 th nap%(n%)=1:delo%(n%)=0:gt 8145

 ÈÇÌÅÍ ÍÀÏÐÀÂ ÏÐÈ ÑÒÎËÊ
8114 if delo%(n%)=0 th if nap%(n%)=0 or nap%(n%)=2 th if x%(n%)<x% th nap%(n%)=1:gt 8145
8115 if delo%(n%)=0 th if nap%(n%)=0 or nap%(n%)=2 th if x%(n%)>x% th nap%(n%)=3:gt 8145
8116 if delo%(n%)=0 th if nap%(n%)=1 or nap%(n%)=3 th if y%(n%)<y% th nap%(n%)=2:gt 8145
8117 if delo%(n%)=0 th if nap%(n%)=1 or nap%(n%)=3 th if y%(n%)>y% th nap%(n%)=0:gt 8145

 ÏÐÀÂÈËÜÍÎÅ ÍÀÏÐÀÂËÅÍÈÅ
8118 if nap%(n%)=2 th if y%(n%)>y% th nap%(n%)=0:delo%(n%)=0:gt 8145
8119 if nap%(n%)=0 th if y%(n%)<y% th nap%(n%)=2:delo%(n%)=0:gt 8145
8120 if nap%(n%)=1 th if x%(n%)>x% th nap%(n%)=3:delo%(n%)=0:gt 8145
8121 if nap%(n%)=3 th if x%(n%)<x% th nap%(n%)=1:delo%(n%)=0:gt 8145
 
 ÄÂÈÆÅÍÈÅ ÁÎÒÀ
8129 if delo%(n%)<>1 th gt 8140
8130 if nap%(n%)=0 th y%(n%)=y%(n%)-skor%
8131 if nap%(n%)=2 th y%(n%)=y%(n%)+skor%
8132 if nap%(n%)=1 th x%(n%)=x%(n%)+skor%
8133 if nap%(n%)=3 th x%(n%)=x%(n%)-skor%

 ÏÎÏÀÄÀÍÈÅ Â ÏÅÐÑÀ
8140 if delo%(n%)=2 th if rand(0,100)>90 th delo%=3:gizn%=gizn%-5:if gizn%<0 th delo%=4

 ÂÛÂÎÄ ÁÎÒÀ
8145 if gizn%(n%)<0 th delo%(n%)=4
8147 gs 1100 ÀÍÈÌÀÖÈß ÁÎÒÎÂ
8149 delo%(n%)=0:ret