10 'PROGRAMM "TEMPMESS" ZUR MESSUNG VON TEMPERATUREN
20 'AUTOR: S.BOHNSACK / F. MATSCHINSKE
30 'DEKLARATIONSTEIL------------------------------------
40 ' VAR:  A=BCD-WERT AUF60095           B=BCD-WERT AUF60096
50 '       C=BCD-WERT AUF60097           D=DEZIMALWERT
60 '       Y=MOMENTANWERT DER Y-KOORD.
70 ' ADR:60029 - 60094 (ADU-PROGRAMM)
80 'HAUPTPROGRAMM---------------------------------------
90 CLS
100  GOSUB 160:'UP PIO-INITIALISIERUNG
110  GOSUB 210:'UP KOORDINATENSYSTEM ZEICHNEN
120  GOSUB 240:'UP MC-PROGRAMM ZUR AD-WANDLUNG EINTRAGEN
130  GOSUB 360:'UP MESSGROESSE EINLESEN, PRUEFEN UND WANDELN
140  GOSUB 490:'UP KURVE ZEICHNEN, MOMENTANWERT ANZEIGEN
150  GOSUB 570:'UP DIALOGFENSTER LOESCHEN
160 ' UP-PIO-INITIALISIERUNG----------------------------
170 OUT &H62,207
180 OUT &H62,255
190 OUT &H60,0
200 RETURN
210 'UP LADEN KOORDINATENSYSTEM-------------------------
220 SCREEN2:CLS:RESTORE:OPEN"GRP:"AS#1:BLOAD"TEMPMESS.SCR",S
230 RETURN
240 'UP C520-ANALOG-DIGITAL-WANDLUNG EINTRAGEN----------
250 FOR  I=0  TO  63
260   READ  X
270   POKE 60029!+I,X
280 NEXT  I
290 DATA  217,8,219,96,71,230,48,254
300 DATA  0,32,247,219,96,184,32,242,33,191,234,120,230,15
310 DATA  119,35,219,96,71,230,48,254,32,32,247
320 DATA  219,96,184,32,242,120,230,15,119,35,219,96
330 DATA  71,230,48,254,16,32,247,219,96,184,32,242,120,230,15
340 DATA  119,8,217,201
350 RETURN
360 'UP MESSGROESSE EINLESEN, PRUEFEN UND WANDELN-------
370 'MESSGROESSE EINLESEN
380 M=60095!
390 DEFUSR=60029!: QW=USR(1)
400 A=PEEK (M)
410 C=PEEK (M+1)
420 B=PEEK (M+2)
430 'KONTROLLE MESSBEREICHSUEBER- UND -UNTERSCHREITUNGEN
440 IF  A>=4 THEN390
450 IF  A<=0 THEN390
460 'UMWANDLUNG BCD- IN DEZIMALZAHLEN-------------------
470 D=A*10+B+C*.1
480 RETURN
490 'UP MESSEN, KURVE ZEICHNEN, MOMENTANWERT NUMERISCH ANZEIGEN
500 GOSUB360:D=D*10:D1=D-200:Y=20+D1:Y0=Y
510 FORT=30TO318:GOSUB360:D=D*10:D1=D-200:Y=20+D1
520 IFY<21THENY=20
530 IFY>183THENY=183
540 LINE(T,Y0)-(T+1,Y),3:LINE(245,187)-STEP(40,7),0,BF
550 PSET(245,185),3:PRESET(245,187):PRINT#1,D/10:Y0=Y:NEXT
560 RETURN
570 'UP LOESCHEN DIALOGFENSTER -------------------------
580 LINE(33,186)-STEP(283,10),0,BF
590 PSET(35,185),3:PRESET(35,187)
600 PRINT#1,"(1) WIEDERHOLUNG       (2) ENDE"
610 I$=INKEY$:IFI$=""THEN610
620 I=VAL(I$):IFI<1ORI>2THEN610
630 ONIGOTO640,650
640 CLOSE#1:GOTO480
650 CLOSE#1:END
NDE"
610 I$=INKEY$:IFI