Òàáëèöà 4.
10 REM ÈÃÐÎÂÀß ÏÐÎÃÐÀÌÌÀ "ÎÕÎÒÀ ÍÀ ËÈÑ"                
20 REM ÂÅÐÑÈß ÄËß "ÐÀÄÈÎ-86ÐÊ" 
30 PRINT: PRINT TAB (15);"ÎÕÎÒÀ ÍÀ ËÈÑ": PRINT: PRINT 
40 CLEAR (100)
80 INPUT"CKOËÜKO ËÈÑ ÑÏÐßÒÀÒÜ"; NF 
90 N=NF: NM=9: GOSUB 1500 
100 IF E THEN 80 
110 DIM XF(NF),YF(NF),F(NF) 
120 FOR I=1 TO NF 
130 XF(I)=INT(RND(1)*50) 
140 YF(I)=INT(RND(1)*20) 
130 IF XF(I)=0 AND YF(I)=0 THEN 130 
160 IF I=1 THEN FF=1: GOTO 200 
170 FOR J=l TO I-1
180 IF XF(I)=XF(J) AND YF(I)=YF(J) THEN 130 
190 NEXT J
200 F(I)=0: PRINT TAB(5);"ËÈCA-"; CHR$(48+I); "- ÃÎÒÎÂÀ." 
210 NEXT I
220 IF NF=1 THEN 270
230 INPUT"CKOËÜKO ËÈÑ ÂÛ ÁÓÄÅÒÅ ÈÑÊÀÒÜ";FF 
240 N=FF; NM=NF: GOSUB 1300 
250 IF E THEN 230 
260 H=0: M=0: S=0 
265 P=0: XH=0: YH=0 
270 CLS: CUR 0,0 
280 FOR I=1 TO 20 
290 PRINT:PRINT TAB(10); 
300 FOR J=l TO 30 
310 PRINT". ";: NEXT J,I 
320 PRINT: PRINT: PRINT: PRINT 
330 CUR 4,4: PRINT"CTAPT>";CHR$(9) 
340 HM=10
350 PRINT: PRINT"OTC×ET ÂÐÅÌÅÍÈ ÍÀ×ÍÅÒÑß ÏÎÑËÅ ÍÀÆÀÒÈß ËÞÁÎÉ ÊËÀÂÈØÈ" 
360 B=USR(-2045): A=0 
370 CUR 0 ,3: PRINT "ÂÐÅÌß I" 
380 IF H>0 THEN PRINT H; "×ÀÑ"; 
390 PRINT M;"MÈH";S;"CEK"
400 IF H>HH THEN PRINT"K ÑÎÆÀËÅÍÈÞ, BAØE ÂÐÅÌß ÈÑÒÅÊËÎ. ": GOTO 730 
410 IF S=0 THEN GOSUB 2000 
420 IF A=0 THEN 300
430 IP A=80 THEN PRINT "ÏÎÈÑÊ ÏÐÅÊÐÀÙÅÍ .": GOTO 730 
440 DX=0: DY=0: A$=CHR$(A) 
450 CUR 0,2; PRINT SPC(60);"" 
460 IF A$="C" THEN DY=1 
470 IF À$="Þ" THEN DY=-1 
480 IF A$="B" THEN DX=1 
490 IF A$="3" THEN DX=-1 
500 CUR 10+XH,4+YH: PRINT"." 
510 XH=XH+DX: YH=YH+DY
520 IF XH>-1 AND XH<50 AND YH>-1 AND YH<20 THEN 390 
530 P=P+1
540 CUR 35,3: PRINT"ØTPAÔHÛÅ Î×ÊÈ: ";P 
550 PRINT"ÇA ÂÛÕÎÄ ÈÇ ÏËÎÙÀÄÊÈ ÂÛ" 
560 IF P>2 THEN PRINT" ÄÈÑÊÂÀËÈÔÈÖÈÐÎÂÀÍÛ": GOTO 730 
570 PRINT" ÂÎÇÂÐÀÙÅÍÛ ÍÀ ÑÒÀÐÒ." 
580 XH=0:YH=0:DX=0:DY=0 
390 CUR 10+XH,4+YH: PRINT CHR$(9) 
600 D=O
610 FOR I=1 TO NF
620 IF F(I)-1 THEN D=D+1: GOTO 670 
630 IF XF(I)<>XH OR YF(I)<>YH THEN 670 
640 IF (DX OR DY)<>0 AND RND(1)<0.3 THEN 670 
650 CUR 0,2:ÐRINÒ"ÍÀÉÄÅÍÀ ËÈÑÀ-";ÑÍR$(48+I) 
660 F(I)=1: D=D+1: DX=0: DY=0 
670 NEXT I 
680 IF D>FF-1 THEN PRINT"ÏOÈCK ÇÀÊÎÍ×ÅÍ, ÏÎÇÄÐÀÂËßÞ! ": GOTO 730
690 S=S+10: IF S>59 THEN S=0: H=H+1
700 IF M>59 THEN M=0: H=H+1 
705 A=0: FOR Z=1 TO 50 
710 A1=USR(-2021): IF A1<255 THEN A=A1 
720 NEXT Z: GOTO 370 
730 PRINT
740 PRINT"HA ÑÒÀÐÒ ÏÐÈÃËÀØÀÅÒÑß ÑËÅÄÓÞÙÈÉ Ó×ÀÑÒÍÈÊ."
750 GÎÒÎ 120
1500 Å=Î: Ò$="* ÍÓÆÍÎ ÂÛËÎ ÂÂÅÑÒÈ" 
1510 IF N<>INT(N) THEN E=1: T$="T$+" ÖÅËÎÅ" 
1520 IF N<0 THEN E=1: T$=T$+" ÏÎËÎÆÈÒÅËÜÍÎÅ"
1530 T$=T$+" ×ÈÑËÎ"
1540 IF N=0 OR N>NM THEN E=1: T$=T$+" ÎÒ 1 ÄO"+STR$(NM) 
1550 IF E THEN PRINT T$;".": PRINT "ÏÎÂÒÎÐÈÒÅ, "; 
1560 RETURN 
2000 FOR I=1 TO NF 
2010 IF F(I)=0 THEN 2050 
2020 CUR 10+XF(I),4+YF(I): PRINT CHR$(48*I) 
2030 C$=CHR$(127) 
2040 GÎÒÎ 2110 
2050 XX=XF(I)-XH 
2060 YY=YF(I)-YH
2070 IF ABS(XX)>ABS(YY) THEN 2100 
2080 Ñ$="Þ": IF YY>0 THEN C$="Ñ" 
2090 GÎÒÎ 2110
2100 C$="Ç": IF XX>0 THEN C$="Â" 
2110 CUR 0,22-I: PRINT"ËÈCA-";CHR$(48+I):" ";C$ 
2120 NEXT I 
2130 RETURN