1 REM 810309
2 REM ins{nd av G|sta Helgesson FRITSLA
3 ; CHR$(12)
4 ; "      ** S@F@RIANS **  FORMEL **"
5 ; "         * ARBETSTEMPERARUR *"
6 ; "         ____________________"
7 ; "(Data f|r kol-,kolmangan-,mikrolegerade  samt l}glegerade st}l)"
8 ; CUR(10,8);"ANGE ST]LBETECKNING";
9 ; CUR(11,8);"(Ex:SIS-1311)"
10 ; CUR(10,27); : INPUT S$
11 ; CUR(11,0)SPACE$(40)
12 ; CUR(10,0)SPACE$(40)
13 FOR X%=1% TO 8%
14 READ A$
15 ONERRORGOTO 35 : ; CUR(10,12)"HUR M]NGA "A$; : INPUT N(X%)
16 ; CUR(10,24)SPACE$(16)
17 DATA (% C ),(% Ni),(% Si),(% Mn),(% P ),(% S ),(% Cr),(% Mo)
18 NEXT X%
19 ; CUR(10,12)SPACE$(28)
20 L=N(3)+N(4)+N(5)+N(6)+N(7)+N(8)
21 ; CUR(10,9)"ANGE GODSTJOCKLEK I MM ";
22 INPUT T
23 C=N(1)
24 N=N(2)
25 G%=350*(C+((L-.5*N)/10))*((1+.005*T)-.25)
26 ; CUR(10,0)SPACE$(40)
27 IF G%+25<60 GOTO 32
28 ; CUR(12,12);"MATERIALET "S$
29 ; CUR(14,12);"SKALL F\RV[RMAS TILL "
30 ; CUR(16,11);G%+25" GRADER."
31 GOTO 38
32 ; CUR(12,12);"MATERIALET "S$
33 ; CUR(14,12);"BEH\VER EJ F\RV[RMAS."
34 GOTO 38
35 ; CUR(10,12)SPACE$(40)
36 ; CUR(10,12);"ENDAST SIFFROR ?" : FOR I=1 TO 2000 : NEXT I
37 ; CUR(10,12)SPACE$(20) : GOTO 15
38 END