100 IFQ=0THENQ=1:LOAD"MA.MESSLABOR",8,1
110 DATA0,1,2,3,4,5,6,7,8,9,"[193]","[194]","[195]","[196]","[197]","[198]"
120 DIM A$(15),M(15),N(15),O(15)
130 PRINTCHR$(8):PRINTCHR$(14):POKE650,128
140 POKE 49281,0
150 FORI=0TO15:READA$(I):M(I)=1:N(I)=0:NEXT
160 WE=49285
170 :
180 REM * START HAUPTPROGRAMM *
190 GOSUB1240:FL=0:GOSUB1280
200 IFPEEK(49280)=0THENIFZ$="[133]"THENZ$=""
210 IFZ$="[133]"THENGOSUB1390:Z$="":GOTO190
220 IFZ$="[137]"THEN1160:REM * GRUNDEICHEN
230 IFZ$="[139]"THEN1860:REM * SPEICHERN
240 IFZ$="[138]"THEN2030:REM * LADEN
250 :
260 REM * MESSLOOP *
270 SYS49152+3:FL=1
280 C1=PEEK(49289)
290 C2=PEEK(49290)
300 C3=PEEK(49291)
310 TZ=C1*(C2+C3*256):REM *TAKT- ZYCLEN/SEKUNDE
320 MO=PEEK(49282):REM *NR. STECKPLATZ
330 KE=PEEK(49283):REM *MODULKENNUNG
340 GETZ$:IFZ$="[137]"THEN1160
350 MW=PEEK(WE)+PEEK(WE+1)*256+PEEK(WE+2)*65536+PEEK(WE+3)*(2^22):REM *MESSWERT
360 PRINT"[155]";:FORI=1TOMO:PRINT:NEXT
370 IF PEEK(49280)=0THEN200:REM *KEIN MODUL AKTIV
380 ON KE GOTO420,500,560,640,690,200,200,750,800,820
390 GOTO200
400 :
410 REM *1 =  LUFTFEUCHTE *
420 IFM(MO)=1THENO(MO)=15000:M(MO)=3800
430 A=O(MO)-MW:A=(A/M(MO))*100:A=INT(A*10)/10
440 IFA<0THEN850
450 IFA>=100THENA=100
460 PRINT"[155]"TAB(14)A
470 GOTO200
480 :
490 REM *2 =  STROM *
500 IFMW<=10THEN850
510 IFMW>=4096THEN860
520 Z=(MW/4096*5):Z=Z/2:A=Z*M(MO):GOSUB980
530 GOTO200
540 :
550 REM *3 =  TEMPERATUR *
560 IFMW<=10THEN850
570 IFMW>=4096THEN860
580 A=((MW/4096*5)-(2.25+M(MO)))*100
590 A=A+.05:A=INT(A*10)/10
600 PRINTTAB(14)A
610 GOTO200
620 :
630 REM *4 =  FREQUENZ *
640 IFMW<1THEN850
650 A=MW:GOSUB980
660 GOTO200
670 :
680 REM *5 =  SPANNUNG *
690 IFMW<=10THEN850
700 IFMW>=4096THEN860
710 A=MW/4096*5:GOSUB980
720 GOTO200
730 :
740 REM *8 =  WIDERSTAND *
750 IF MW<1THEN850
760 Z=(MW/TZ)/(.7*220E-9):A=Z*M(MO):GOSUB980
770 GOTO200
780 :
790 REM *9 =  KAPAZITAET *
800 IF MW<1THEN850
810 Z=(MW/TZ)/(.7*39000):A=Z*M(MO):GOSUB980
820 GOTO200
830 :
840 REM * UEBER- UND UNTERLAUF *
850 PRINTTAB(14)" ------":GOTO200
860 PRINTTAB(14)" ++++++":GOTO200
870 :
880 REM * FEHLBEDIENUNG *
890 POKE53280,2:PRINT"[147][150] MODUL MUSS GRUNDJUSTIERT WERDEN"
900 PRINT"-------------- <[198]7> -------------"
910 POKE198,0:WAIT198,1:GET Z$:IFZ$<>"[136]"THEN910
920 RETURN
930 :
940 POKE53280,2:PRINT"[150][198]ALSCHE [205]ODULDATEN GELADEN ?"
950 N(MO)=0:M(MO)=1:O(MO)=0:GOTO900
960 :
970 REM * ZAHLENFORMATIERUNG *
980 IFA<.000000001THENF=-12:F$="P":GOTO1050
990 IFA<.000001THENF=-9:F$="N":GOTO1050
1000 IFA<.001THENF=-6:F$="U":GOTO1050
1010 IFA<1THENF=-3:F$="M":GOTO1050
1020 IFA<1000THENF=0:F$="":GOTO1050
1030 IFA<1000000THENF=3:F$="[203]":GOTO1050
1040 IFA<1000000000THENF=6:F$="[205]"
1050 A=A/(10^F)
1060 A=A+.0005:A=INT(A*1000)/1000
1070 T=14:A$=STR$(A)
1080 A$=STR$(A):FORI=1TOLEN(A$)
1090 IFMID$(A$,I,1)="."THENT=T-I+4
1100 NEXT
1110 PRINTTAB(T)A;TAB(22)""F$"[155]"
1120 RETURN
1130 :
1140 :
1150 REM * GRUNDEICHUNG *
1160 POKE49281,1:GOSUB1230:GOSUB1330
1170 SYS49152+3
1180 GETZ$:IFZ$="[136]"THENPOKE49281,0:GOTO190
1190 GOTO1170
1200 :
1210 :
1220 REM * INITIALISIEREN *
1230 SYS49152:PRINT"[151] [150]  64ER [205]ESSPLATZ                [197]ICHEN[146]":GOTO1250
1240 SYS49152:PRINT"[151] [158]  64ER [205]ESSPLATZ                [205]ESSEN[146]"
1250 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1260 PRINT"[159]";:FORI=1TO15:PRINTA$(I):NEXT
1270 RETURN
1280 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1290 PRINT"[158][198]1 = [197]ICHEN 1 [215]ERT [198]2 = [199]RUNDEICHUNG"
1300 PRINT"[198]4 = [204]ADEN         [198]6 = [211]PEICHERN"
1310 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1320 RETURN
1330 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1340 PRINT"[158][198]7 = ZURUECK ZUR [205]ESSUNG"
1350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1360 RETURN
1370 :
1380 REM * EINZELWERT EICHEN *
1390 IFKE=5THEN890:REM *VOLT    *
1400 IFN(MO)=0THEN1420:REM *NEUE EICHUNG
1410 IFN(MO)<>KETHEN940:REM *DATEN FALSCH
1420 IFKE=1THEN1510:REM *FEUCHTE*
1430 PRINT"[145]>"
1440 PRINT"[154]"
1450 A1=A:PRINT"[201][211][212]"A1:INPUT"[145][211][207][204][204]";A1
1460 IFKE=3THEN1710:REM * TEMPERATUR
1470 IFKE=4THEN1750:REM *FREQUENZ*
1480 M(MO)=A1/Z*(10^F):N(MO)=KE:RETURN
1490 :
1500 REM *  FEUCHTEEICHUNG  *
1510 SYS49152:POKE49281,1:POKE252,8:POKE253,6
1520 PRINT"[147][158]1. [203]ONDENSATOR MIT 156.9 P[198] EINSTECKEN"
1530 PRINT"         DANACH <[210][197][212][213][210][206]>"
1540 POKE49282,MO-1:SYS49152+3:POKE252,8:POKE253,6
1550 GET Z$:IFZ$=CHR$(13)THEN1580
1560 IFZ$="[136]"THENPOKE49281,0:RETURN
1570 GOTO1540
1580 T1=PEEK(WE)+PEEK(WE+1)*256+PEEK(WE+2)*65536+PEEK(WE+3)*(2^22)
1590 SYS49152:POKE252,8:POKE253,6
1600 PRINT"[147]2. [203]ONDENSATOR MIT 112.7 P[198] EINSTECKEN"
1610 PRINT"         DANACH <[210][197][212][213][210][206]>"
1620 POKE49282,MO-1:SYS49152+3:POKE252,8:POKE253,6
1630 GET Z$:IFZ$=CHR$(13)THEN1660
1640 IFZ$="[136]"THENPOKE49281,0:RETURN
1650 GOTO1620
1660 T2=PEEK(WE)+PEEK(WE+1)*256+PEEK(WE+2)*65536+PEEK(WE+3)*(2^22)
1670 M(MO)=T2-T1:N(MO)=KE:O(MO)=T2:POKE49281,0:RETURN
1680 PRINT"[147]T2-T1     T2"T1,T2:FORI=0TO15:PRINTM(I),O(I):NEXT
1690 :
1700 REM * TEMPERATUREICHUNG *
1710 M(MO)=((MW/4096*5)-2.25)-(A1/100):PRINTM(MO):RETURN
1720 A=((MW/4096*5)-(2.25+M(MO)))*100
1730 :
1740 REM * FREQUENZEICHUNG *
1750 A=((A1*(10^F)/MW))*TZ:PRINTC1;C2;C3
1760 A=A-(C1*9)
1770 B=A/C1:IFB>65535THENC1=C1+1:B=B+9:GOTO1770
1780 IFB<32767THENC1=C1-1:B=B-9:GOTO1770
1790 C3=INT(B/256):C2=B-(C3*256):PRINTC1;C2;C3
1800 POKE49289,C1:POKE49290,C2:POKE49291,C3:RETURN
1810 :
1820 :
1830 REM * SPEICHERN *
1840 REM FORMAT M(0-15) O(0-15) N(0-15)                 C1 C2 C3
1850 :
1860 POKE53280,15
1870 PRINT"[147][158][196]ATEN SPEICHERN! NUR '$' = DIRECTORY"
1880 INPUT"FILENAME";N$
1890 IFN$=""THENZ$="":GOTO190
1900 IFN$="$"THENN$="":SYS49152+6:GOTO1880
1910 N$=N$+",S,W"
1920 OPEN1,8,2,N$
1930 FORI=0TO15:PRINT#1,STR$(M(I)):NEXT
1940 FORI=0TO15:PRINT#1,STR$(O(I)):NEXT
1950 FORI=0TO15:PRINT#1,STR$(N(I)):NEXT
1960 PRINT#1,STR$(C1)
1970 PRINT#1,STR$(C2)
1980 PRINT#1,STR$(C3)
1990 CLOSE1:Z$="":GOTO190
2000 :
2010 REM * LADEN *
2020 :
2030 POKE53280,11
2040 PRINT"[147][158][196]ATEN LADEN!     NUR '$' = DIRECTORY"
2050 INPUT"FILENAME";N$
2060 IFN$=""THENZ$="":GOTO190
2070 IFN$="$"THENN$="":SYS49152+6:GOTO2050
2080 N$=N$+",S,R"
2090 OPEN1,8,2,N$
2100 FORI=0TO15:INPUT#1,A$:M(I)=VAL(A$):NEXT
2110 FORI=0TO15:INPUT#1,A$:O(I)=VAL(A$):NEXT
2120 FORI=0TO15:INPUT#1,A$:N(I)=VAL(A$):NEXT
2130 INPUT#1,A$:C1=VAL(A$)
2140 INPUT#1,A$:C2=VAL(A$)
2150 INPUT#1,A$:C3=VAL(A$)
2155 IFC1=0THEN2200
2156 IFC1>255THEN2200
2157 IFST<>64THEN2200
2160 POKE49289,C1:POKE49290,C2:POKE49291,C3
2170 CLOSE1:Z$="":GOTO190
2180 :
2190 REM LADEFEHLER
2200 POKE53280,2:POKE53281,2:PRINT"[147][158][204]ADEFEHLER":POKE198,0:WAIT198,1:GOTO2220
2220 CLOSE1:Z$="":GOTO190