Реферат: Станы холодной прокатки

IF P > Pd OR M > Md OR Nw > Nd THEN h1 = h1 + .001: GOTO 10

PRINT USING "│##│#.##│#.###│#.###│#.###│####│###.##│####.#│##.###│##.##│"; i; Hh0; h0; h1; e; K2c; P / 1000000!; M / 1000000; Nw / 1000000; V

PRINT #1, USING "│##│#.##│#.###│#.###│#.###│####│###.##│####.#│##.###│##.##│"; i; Hh0; h0; h1; e; K2c; P / 1000000!; M / 1000000; Nw / 1000000; V

V = V * h0 / h1: h0 = h1

NEXT

PRINT "└──┴────┴─────┴─────┴─────┴────┴──────┴──────┴──────┴─────┘"

PRINT #1, "└──┴────┴─────┴─────┴─────┴────┴──────┴──────┴──────┴─────┘"

CLOSE 1

PLAY "acd"

END