��ࠢ���, Valentin!
���, 01 ��� 25 � 01:14, Valentin Kuznetsov -> Nil A:
�� ���p�� �뫨 ᤥ���� ���쪮 ����p���� "��p����� ����"
�뫨 �� ⮫쪮 �����. � �� ����� ��� ������� �� ���᪨� ��������. ����� ⮫����� ��த, ����� �⠢��, ������ �먣�뢠��.
��� �� ���ᨪ�. ������� � ���� ��室���, ��� ��� CP/M. H� ������㬥 ⮦� ࠡ�⠥�.
��� ��室��� ���� � 16-�� ��᪠ �� �������� MOA CP/M.
������ ��室���� 䠩�� - ���-8.
=== ��砫� tarakan.bas ===
10 PRINT CHR$(12)
20 INPUT "������ �� � �� 0 �� 1000";T
30 DIM T$(5),R(5),TR$(5)
40 RANDOMIZE(T)
50 T=T+5
60 DEF FNC$(X,Y)=CHR$(27)+CHR$(X+127)+CHR$(Y+127)
70 TR$(0)="�����":TR$(1)="���䮭�":TR$(2)="����ᠨ�":TR$(3)="���":TR$(4)="�����"
80 KT=0:N=0:C=0:KS=0
90 PRINT CHR$(12);TAB(25);"*������H�� ����*":PRINT STRING$(80,"$")
100 D=1:FOR I=0 TO 4
110 PRINT "����";D;"-";TR$(I)
120 R(I)=7
130 D=D+1:NEXT
140 PRINT:INPUT "����� �� ���";ST:PRINT
150 IF ST<=1000 THEN 170
160 PRINT "�� �뤥ࣨ�����":GOTO 140
170 PRINT TAB(10);"������⢮ �⠢��":PRINT
180 FOR I=0 TO 4
190 PRINT TR$(I);
200 INPUT S(I)
210 NEXT
220 PRINT CHR$(12);TAB(30);"������H�����":PRINT
230 PRINT "����";TAB(76);"�����"
240 FOR I=3 TO 14 STEP 2
250 PRINT FNC$(I,1);STRING$(80,"-")
260 NEXT
270 K=0
280 FOR I=5 TO 13 STEP 2
290 K=K+1
300 PRINT FNC$(I,1);K;" $< :";FNC$(I,75);":"
310 NEXT
320 FOR K=0 TO 4
330 R(K)=R(K)+INT(RND(1)*3)
340 IF R(K)<75 THEN 420
350 IF P(K)=1 THEN 410
360 P(K)=1
370 IF C=0 THEN C=K
380 KT=KT+1
390 T$(N)=TR$(K)
400 N=N+1
410 R(K)=76
420 NEXT
430 K=0
440 FOR I=5 TO 13 STEP 2
450 PRINT FNC$(I,R(K)-4);"...$<"
460 K=K+1
470 NEXT
480 IF KT<5 THEN 320
490 PRINT:PRINT
500 IF S(C)<>0 THEN 530
510 PRINT "�������, �� �� �ந�ࠫ�"
520 GOTO 580
530 FOR I=0 TO 4
540 KS=KS+S(I)
550 NEXT
560 IF KS=S(C) THEN ST=ST+(.1*ST) ELSE ST=INT((KS*ST-(.1*KS*ST))/S(C))
570 PRINT "��� �먣���-";ST;"�����"
580 PRINT FNC$(18,1);"������� ";T$(0);"!!!"
590 PRINT "���� 2 - ";T$(1)
600 PRINT "���� 3 - ";T$(2)
610 PRINT "���� 4 - ";T$(3)
620 PRINT "������ �ਢ������ ";T$(4)
630 PRINT
640 INPUT "�� ࠧ��(d/n)";A$
650 IF A$<>"d" THEN 680
660 ERASE T$,R,TR$,P
670 GOTO 30
680 END
=== ����� tarakan.bas ===
WBR, Jason.
_/(ZX)/_ /*e-mail: jason2000(�� ��誠)yandex.ru*/
/np:/ *silence*
--- GoldED+/W32-MINGW 1.1.5-b20110320
* Origin: ...Altering The Future... (2:5020/4040)
