1 Rem хцпю "охрнм" бепяхъ 1.1  32Йа
  10 Cls:Print  Tab(15);"охрнм":Print :Print 
  20 Input "бш гмюере опюбхкю хцпш (дю/мер)";R$
  30 If LEFT$(R$,1)="H" Then GoSub 1000
  40 IO=12288
  60 U1=IO:GoSub 800
  70 AO=I:A1=AO+1
  80 U=25:D=26:L=8:R=24
  90 SO=30658::CM=64:CN=78:RM=25
 100 CM=CM-1:RM=RM-1
 110 DX=1:DY=0
 120 X=Int(CM/2):Y=Int(RM/2)
 130 Poke A1,X:Poke A1+1,Y
 140 N=0:AN=A1
 150 Print  "мюфлхре врн-мхасдэ"
 160 A=Usr(-2045):Cls:Cur 0,0
 170 XT=Int(RND(1)*CM)
 180 YT=Int(RND(1)*RM)
 190 If Peek (SO+XT+CN*YT)>32 Then 170
 200 Poke SO+XT+CN*YT,127
 210 ZN=SO+Peek(AN)+CN*Peek(AN+1)
 220 Poke ZN,79
 230 N=N+1
 240 Poke AO,N
 250 AN=A1+2*N
 260 A=Usr(-2021)
 270 If A=255 Then 320
 280 If A=U Then DX=0:DY=-1
 290 If A=D Then DX=0:DY=1
 300 If A=L Then DX=-1:DY=0
 310 If A=R Then DX=1:DY=0
 320 X=X+DX
 330 If X>CM Then X=0:Goto 350
 340 If X<0 Then X=CM
 350 Poke AN,X
 360 Y=Y+DY
 370 If Y>RM Then Y=0:Goto 390
 380 If Y<0 Then Y=RM
 390 Poke AN+1,Y
 400 ZN=SO+Peek(AN)+CN*Peek(AN+1)
 410 If Peek(ZN)>32 Then 460
 420 Poke ZN,79
 430 Poke SO+Peek(A1)+CN*Peek(A1+1),32
 440 A=Usr(U1)
 450 Goto 260
 460 If Peek(ZN)<>79 Then 170
 470 Cur 0,2:Print  "бюь пегскэрюр : ";N-1
 490 Goto 140
 620 Data 229,213,197,58,30,0,71,33,31,0,84,93
 630 Data 19,19,26,119,35,19,26,119,35,19,5,194
 640 Data 14,0,193,209,225,201,4,8,24,999
 800 I=IO
 810 Read X:Poke I,X:I=I+1
 820 If X<>201 Then 810
 830 Read L:If L>255 Then Return
 840 LL=IO+L:LH=LL+1
 850 LA=Peek(LL)+256*Peek(LH)+IO
 860 Poke LH,Int(LA/256)
 870 Poke LL,LA-Peek(LH)*256
 880 Goto 830
1000 Print:Print Tab(5)
1010 Print"он щйпюмс онкгюер охрнм - жеонвйю асйб 'н' "
1020 Print"мюфхлюъ йкюбхьх сопюбкемхъ йспянпнл бш лнфере мюопю - "
1030 Print"бхрэ ецн ббепу, бмхг, мюопюбн хкх мюкебн. яберъыхияъ"
1040 Print"опълнсцнкэмхй - щрн йпнкхй. опнцкнрхб ецн, охрнм сдкх- "
1050 Print"мхряъ мю ндмс асйбс х опнднкфхр нунрс гю якедсйыхл. "
1060 Print"     онлмхре, охрнм ме лнфер оепеонкгрх вепег яеаъ хкх-"
1070 Print"онбепмсрэ мюгюд. б щрнл яксвюе хцпю опейпюыюеряъ." 
1080 Print	
1090 Return