10 REM ÈÃÐÎÂÀß ÏÐÎÃÐÀÌÌÀ "ÏÅÐÅÕÂÀÒ×ÈÊ" 
15 REM ÂÅÐÑÈß ÄËß "ÐÀÄÈÎ-86ÐÊ" 
20 REM ÑÕÅÌÀ ÓÏÐÀÂËÅÍÈß ÏÎÄÊËÞ×ÀÅÒÑß Ê ÌËÀÄØÅÌÓ 
25 REM ÐÀÇÐßÄÓ ÏÎÐÒÀ Ñ ÌÈÊÐÎÑÕÅÌÛ D14 
30 CLS: CUR 15,12:ÐRINÒ"ÏÅÐÅÕÂÀÒ×ÈÊ"
40 DATA 229,197,1,1,255,33,3,160,54,155,43,4,126 
50 DATA 161,194,11,40,35,54,152,43,113,120,193,225,201 
60 FOR I=10240 TO 10265; READ C: POKE I,C: NEXT I 
70 A=0.045;B=75 
80 V*2
90 U=0.7*V 
100 XM=127;YM=49 
110 K=10 
120 N=0
130 FOR I=1 TO K: CLS 
140 XI=INT(RND(1)*XM) 
150 YI=INT(RND(1)*YM) 
160 YT=INT(RND(1)*YM) 
170 FOR XT=0 TO XM 
180 PLOT XT,YT,1 
190 F=A*USR(10240)-B) 
200 XI=XI+R*COS(F) 
210 YI=YI*U*SIN(F) 
220 IF XI>XM THEN XI=0 
230 IF XI<0 THEN XI=XM 
240 IF YI>YM THEN YI=0 
250 IF YI<O THEN YI=YM 
260 PLOT XI,YI,1
270 IF ABS(XI-XT)<2 AND ABS(YI-YT)<2 THEN 300 
280 NEXT XT 
290 GOTO 320 
300 N=N+1 
310 GOSUB 400 
320 NEXT I
330 PRINT "ÓÍÈ×ÒÎÆÅÍÎ";N;"ÖÅËÅÉ ÈÇ"; I-1 
340 PRINT "ÍÀÆÌÈÒÅ ËÞÁÓÞ ÊËÀÂÈØÓ" 
350 Z=USR (-2045) 
360 GOTO 120 
400 FOR J=1 TO 25 
410 FI=6.28*RND(1) 
420 E=20*RND(1) 
430 X=XT+E*C0S(FI) 
440 Y=YT+E*SIN(FI) 
450 IF X<0 THEN X=0 
460 IF X>XM THEN X=XM 
470 IF Y<0 THEN Y=0 
480 IF Y>YM THEN Y=YM 
490 PLOT XT ,YT ,1: LINE X,Y 
500 NEXT J
510 RETURN