@MSGID: 2:5020/4040@fidonet 67ed77d7
@REPLY: 2:5053/51.401 37ad4f3d
@CHRS: CP866 2
@TZUTC: 0300
                      Здравствуй, Valentin!

Втр, 01 Апр 25 в 01:14, Valentin Kuznetsov -> Nil A:

VK> Из Мик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)
SEEN-BY: 455/19 5010/352 5019/40 5020/77 101 715
730 848 1042 1941 1955 4040
SEEN-BY: 5020/4441 8086 12000 5022/128 5030/1081
1900 5059/37 5060/900
SEEN-BY: 5097/31
@PATH: 5020/4040 12000 4441