home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh23c.d64
/
temp4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
98 lines
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