10 DIM A$(50),S(2,50) 11 I=0 12 PRINT "фпюопе чтенс" 13 GOSUB 170 14 S0=0 15 GOSUB 180 16 T0=0 20 IF I=50 THEN GOTO 10 30 I=I+1 31 PRINT I;"-пе ъбдбойе (RETURN-чуе)"; 32 INPUT A$(I) 33 IF A$(I)=" " THEN GOTO 100 40 PRINT "об лблпе чтенс объобюеоп"; 41 GOSUB 170 42 S(1,I)=S 43 GOSUB 180 44 IF S(1,I)>S THEN GOTO 50 45 ? "рпъдоп." 46 GOTO 40 50 INPUT S 51 S(2,I)=S(1,I)+60*S 52 IF I=1 THEN GOTO 20 60 FOR J=1 TO I-1 70 IF S(1,I)>=S(2,J) OR S(2,I)<=S(1,J) THEN GOTO 90 80 PRINT "об ьфп чтенс хце объобюеоп - ";A$(J) 81 GOTO 40 90 NEXT J 91 GOTO 20 100 P=0 101 FOR J=2 TO I 102 IF S(1,J-1)<=S(1,J) THEN 115 103 FOR K=1 TO 2 104 S=S(K,J-1) 105 S(K,J-1)=S(K,J) 106 S(K,J)=S 107 NEXT K 108 A$=A$(J-1) 109 A$(J-1)=A$(J) 110 A$(J)=A$ 111 P=1 115 NEXT J 116 IF P=1 THEN GOTO 10 120 FOR J=1 TO I 121 REM PRINT HEX(03) 122 PRINT 123 FOR K= 1 TO 2 124 PRINT INT(S(K,J)/3600);"юбу.";S(K,J)/60-60*INT(S(K,J)/3600);"нйо."; 125 IF K=2 THEN GOTO 130 126 PRINT STRING$( 1,LEN (A$(J)));" -"; 130 NEXT K 140 GOSUB 180 141 PRINT "чтенс "; 142 PRINT USING "##.",H;M;S-3600*H-60*M 143 IF ABS(S(1,J)-S)>=5 AND ABS(S(2,J)-S)>=5 THEN GOTO 150 144 REM PRINT HEX(07) 150 IF S23 OR M>59 THEN GOTO 170 172 S=3600*H+60*M 173 RETURN 180 INPUT T 181 S=S0+(T0-T)/2000 182 H=INT(S/3600) 183 M=INT(S/60-60*H) 184 RETURN