ࠢ, 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)