100 REM   **************************
110 REM   *                        *
120 REM   *     C/R-MESSGERAET     *
130 REM   *                        *
140 REM   *                        *
150 REM   *  VON  UWE GERLACH      *
160 REM   *       BRUEHLSTR. 23    *
170 REM   *                        *
180 REM   *       6440 BEBRA 1     *
190 REM   *                        *
200 REM   *                        *
210 REM   *       APRIL 1985       *
220 REM   *                        *
230 REM   **************************
250 :
1000 POKE53280,0: POKE53281,0: REM FARBE
1010 PRINT "[147][215]IDERSTANDS-  UND  [203]APAZITAETSMESSGERAET[152]";CHR$(14):PRINT:PRINT
1400 PRINT"":PRINT:PRINT:PRINT:PRINT,," [203]APAZITAETSMESSUNG"
1420 B=0
1430 PRINT:PRINT:PRINT,," [194]ITTE DEN [211]CHALTER"
1440 PRINT,,"  AM [205]ESSZUSATZ IN"
1450 PRINT,,"    [211]TELLUNG '[195]'"
1460 PRINT,,"      BRINGEN !"
1490 GOTO 8110
1500 PRINT"":PRINT:PRINT:PRINT:PRINT,," [215]IDERSTANDSMESSUNG"
1520 B=2
1530 PRINT:PRINT:PRINT,," [194]ITTE DEN [211]CHALTER"
1540 PRINT,,"  AM [205]ESSZUSATZ IN"
1550 PRINT,,"    [211]TELLUNG '[210]'"
1590 GOTO 1460
1592 :
1999 REM*********************
2000 REM  ANZEIGE UND MENUE
2001 REM*********************
2010 POKE211,21: POKE214,17: SYS 58732: REM  KURSORPOSITIONIERUNG
2020 PRINT"";W$;"[152]": REM AKTUELLER WERT
2030 GOSUB 9030
2998 :
2999 REM*******************************
3000 REM  I/O-BAUSTEIN INITIALISIEREN
3001 REM*******************************
3010 H=0
3060 IF B=1 THEN H=5: REM FUER > 500NF
3100 POKE 56590,193: REM KONTROLLREG. A
3110 POKE 56591,121: REM KONTROLLREG. B
3200 POKE 56580,0:   REM TIMER A LOW
3210 POKE 56581,H:   REM TIMER A HIGH
3220 POKE 56582,255: REM TIMER B LOW
3230 POKE 56583,255: REM TIMER B HIGH
3240 :
3300 POKE 56577,0: REM IMPULS AUSLOESEN
3998 :
3999 REM*******************************
4000 REM  WARTEN AUF FLAG-INTERRUPT-BIT
4001 REM*******************************
4040 IF (PEEK(56589) AND 16)>0 THEN 4090
4050 GOSUB 9030: GOTO 4040: REM  MENUE
4090 IF B=2 THEN 7000: REM WIDERSTDMSG.
4998 :
4999 REM**********************
5000 REM  KAPAZITAETSMESSUNG
5001 REM**********************
5020 W=(65535-(PEEK(56582)+PEEK(56583)*256))*1.02E-6/(.7*39000)
5030 IF W=0 AND B=0 THEN B=1: GOTO 3000
5035 IF W<3E-10 AND B=1 THEN B=0: GOTO 3000
5050 IF B=1 THEN 6000: REM MESSBEREICH
5070 IF W<1E-9 THEN W$=LEFT$(STR$(W*1E12)+"      ",6)+" [208]IKOFARAD ": GOTO 2000
5080 IF W<1E-6 THEN W$=LEFT$(STR$(W*1E9)+"       ",6)+" [206]ANOFARAD ": GOTO 2000
6000 W=(65535-(PEEK(56582)+PEEK(56583)*256))*5*256*1.02E-6/(.7*39000)
6010 W$=LEFT$(STR$(W*1E6)+"      ",6)+" [205]IKROFARAD"
6020 FOR I=0 TO W*1E6:GOSUB 9030: NEXT I
6050 GOTO 2000
6998 :
6999 REM**********************
7000 REM  WIDERSTANDSMESSUNG
7001 REM**********************
7050 W=(65535-(PEEK(56582)+PEEK(56583)*256))*1.02E-6/(.7*220E-9)
7070 W$="  "+LEFT$(STR$(INT(W))+"      ",7)+" [207]HM    "
7100 GOTO2000
7998 :
7999 REM********************
8000 REM  MESSWERTSPEICHER
8001 REM********************
8050 GET A$: IF A$="" THEN 8050
8060 IF VAL(A$)<0 OR VAL(A$)>9 THEN 8110
8070 W$(VAL(A$))=W$
8110 POKE 211,0: POKE 214,2: SYS 58732: REM  KURSORPOSITIONIERUNG
8120 FOR I=0 TO 9
8130 : PRINT I; W$(I): PRINT
8140 NEXT I
8210 PRINT "[211]PEICHERN  [204]OESCHEN  [215]IDERSTANDSMESSUNG"
8220 PRINT "[203]APAZITAETSMESSUNG [201]MPULSAUSLOESEN [209]UIT"
8490 GOTO 2000
8498 :
8499 REM**************************
8500 REM  LOESCHEN DER SPEICHER:
8501 REM**************************
8510 FOR I=0 TO 9: W$(I)="                 ": NEXT I
8520 GOTO 8110
8998 :
9000 REM****************
9010 REM   HAUPTMENUE
9020 REM****************
9030 GET A$
9040 IF A$="S" THEN 8000
9050 IF A$="L" THEN 8500
9060 IF A$="Q" THEN PRINT"[147]": END
9070 IF A$="K" OR A$="C" THEN 1400
9080 IF A$="W" OR A$="R" THEN 1500
9090 IF A$="I" THEN 2000
9095 RETURN