0 REM ********* TEMP4 *****************
1 REM VERSION TEMP 01
2 REM WRITTEN BY W.ELBE
3 REM *********************************
5 PRINT"[147]" : REM BILDSCHIRM LOESCHEN
10 REM --------------------------------
20 REM      HAUPTPROGRAMM
30 REM
35 GOSUB 30000 : REM MASCHINEN-PROG.
40 GOSUB 100 : REM A/D-WANDLER LESEN
50 GOSUB 200 : REM FUNKTIONSW. BERECHN.
60 GOSUB 300 : REM TEMPERATUR  BERECHN.
70 GOSUB 400 : REM AUSGABE BILDSCHIRM
80 GOTO 40
100 REM -------------------------------
110 REM       A/D-WANDLER LESEN
120 REM
122 AX=0:AY=0:BX=0:BY=0
125 FOR I = 1 TO 10
130 :         SYS 850
140 :         AX=AX+PEEK(828)
142 :         AY=AY+PEEK(829)
144 :         BX=BX+PEEK(830)
146 :         BY=BY+PEEK(831)
150 NEXT I
160 :         AX=INT(AX/10)
162 :         AY=INT(AY/10)
164 :         BX=INT(BX/10)
166 :         BY=INT(BY/10)
190 RETURN
200 REM -------------------------------
210 REM    FUNKTIONSWERT BERECHNEN
220 REM
230 :AX=AX/100
231 :AX=0.052*AX^2+1.263*AX-0.217
232 :AX=AX*100
233 :AX=AX*0.707
240 :  BX=BX/100
241 :  BX=0.052*BX^2+1.263*BX-0.217
242 :  BX=BX*100
243 :  BX=BX*0.707
250 :    AY=AY/100
251 :    AY=0.1751*AY^2+0.99*AY-0.06
252 :    AY=AY*100
253 :    AY=AY*0.707
260 :      BY=BY/100
261 :      BY=0.1751*BY^2+0.99*BY-0.06
262 :      BY=BY*100
263 :      BY=BY*0.707
290 RETURN
300 REM -------------------------------
310 REM     TEMPERATUR BERECHNEN
320 REM
330 T1=(3906/LOG(AX*1000/92.9E-3))-273
331 T1=INT(T1*10)/10
340 T2=(3906/LOG(AY*1000/92.9E-3))-273
341 T2=INT(T2*10)/10
350 T3=(3906/LOG(BX*1000/92.9E-3))-273
351 T3=INT(T3*10)/10
360 T4=(3906/LOG(BY*1000/92.9E-3))-273
361 T4=INT(T4*10)/10
390 RETURN
400 REM -------------------------------
410 REM      AUSGABE - BILDSCHIRM
412 REM
420 POKE 214,0 :REM ZEILE
422 POKE 211,0 :REM SPALTE
424 SYS 58640  :REM CURSOR SET
426 PRINT"                                        "
430 POKE 214,0 :REM ZEILE
432 POKE 211,3 :REM SPALTE
434 SYS 58640  :REM CURSOR SET
436 PRINT T1
440 POKE 214,0 :REM ZEILE
442 POKE 211,11:REM SPALTE
444 SYS 58640  :REM CURSOR SET
446 PRINT T2
450 POKE 214,0 :REM ZEILE
452 POKE 211,19:REM SPALTE
454 SYS 58640  :REM CURSOR SET
456 PRINT T3
460 POKE 214,0 :REM ZEILE
462 POKE 211,28:REM SPALTE
464 SYS 58640  :REM CURSOR SET
466 PRINT T4
490 RETURN
30000 REM -----------------------------
30010 REM      UPRO A/D-WANDLER LESEN
30020 REM
30030 FOR I=850 TO 904
30040 READ J
30050 POKE I,J
30060 NEXT I
30100 RETURN
32000 DATA120,169,64,32,112,3,142,60,3,140,61,3,169,128,32,112,3,142,62,3,140
32001 DATA63,3,169,255,141,2,220,88,96,141,0,220,9,192,141,2,220,160,10,162,255
32002 DATA202,208,253,136,208,248,174,25,212,172,26,212,96