From 871c0defb122effeb905b802fdc5a8d84af2aff0 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Thu, 7 Nov 1996 21:45:34 +0100
Subject: [PATCH] Added files as of 7 Nov 1996.

---
 METEX/METEX.BAS | 128 ++++++++++++++++++++++++++++++++++++++++++++++++
 METEX/METEX.DAT |   1 +
 2 files changed, 129 insertions(+)
 create mode 100644 METEX/METEX.BAS
 create mode 100644 METEX/METEX.DAT

diff --git a/METEX/METEX.BAS b/METEX/METEX.BAS
new file mode 100644
index 0000000..1922f82
--- /dev/null
+++ b/METEX/METEX.BAS
@@ -0,0 +1,128 @@
+10 KEY OFF
+20 CLS
+30 OPEN "COM1:1200,N,7,2,RS,CD,DS,CD"AS #2
+40 A$="D"
+50 PRINT #2,A$;
+60 INPU$=INPUT$(14,#2)
+65 IF INKEY$="" THEN 70 ELSE CLS:END
+70 WERT$=LEFT$(INPU$,9)+" "+RIGHT$(INPU$,5)
+80 LOCATE 1,1
+90 L=0
+100 COLOR 15
+110 PRINT WERT$
+120 IF MID$(INPU$,3,1)="-" THEN LOCATE 3,1:COLOR 9:PRINT"- NEGATIV"
+130 IF MID$(INPU$,3,1)=" " THEN LOCATE 3,1:COLOR 12:PRINT"+ POSITIV"
+140 LOCATE 4,1
+150 COLOR 10
+160 IF MID$(INPU$,10,4)=" V  " THEN PRINT"Spannung        Volt":GOTO 330
+170 IF MID$(INPU$,10,4)="mV  " AND LEFT$(INPU$,2)="  " THEN PRINT"DIODENTEST MilliVolt":GOTO 330
+180 IF MID$(INPU$,10,4)="mV  " THEN PRINT"Spannung   MilliVolt":GOTO 330
+190 IF MID$(INPU$,10,4)=" Ohm" THEN PRINT"Widerstand       Ohm":GOTO 330
+200 IF MID$(INPU$,10,4)="MOhm" THEN PRINT"Widerstand    MegOhm":GOTO 330
+210 IF MID$(INPU$,10,4)="kOhm" THEN PRINT"Widerstand   KiloOhm":GOTO 330
+220 IF MID$(INPU$,10,4)="mA  " THEN PRINT"Strom    MilliAmpere":GOTO 330
+230 IF MID$(INPU$,10,4)=" A  " THEN PRINT"Strom         Ampere":GOTO 330
+240 IF MID$(INPU$,4,5)="READY" THEN PRINT"LOGIKTEST           ":L=1:GOTO 330
+250 IF MID$(INPU$,6,2)="Lo" THEN PRINT"LOGIKTEST           ":L=2:GOTO 330
+260 IF MID$(INPU$,6,2)="Hi" THEN PRINT"LOGIKTEST           ":L=3:GOTO 330
+270 IF MID$(INPU$,4,5)="FLOAT" THEN PRINT"LOGIKTEST           ":L=4:GOTO 330
+280 IF MID$(INPU$,10,4)="    " THEN PRINT"Transistortest   hFE":GOTO 330
+290 IF MID$(INPU$,10,4)="kHz " THEN PRINT"Frequenz  ŸKiloHertz":GOTO 330
+300 IF MID$(INPU$,10,4)="uF  " THEN PRINT"Kapazit„t    æ Farad":GOTO 330
+310 IF MID$(INPU$,10,4)="nF  " THEN PRINT"Kapazit„t  NanoFarad":GOTO 330
+320 IF MID$(INPU$,10,4)="pF  " THEN PRINT"Kapazit„t  PicoFarad"
+330 COLOR 14
+340 IF TYP$="D" THEN GOTO 360
+350 IF LEFT$(INPU$,2)="DC" THEN GOSUB 520
+360 IF TYP$="A" THEN GOTO 500
+370 IF LEFT$(INPU$,2)="AC" THEN GOSUB 600
+380 IF TYP$="0" THEN GOTO 400
+390 IF LEFT$(INPU$,2)="  " THEN GOSUB 1180
+400 IF LO=0 THEN GOTO 420
+410 IF L=0 THEN GOSUB 780:TYP$="D"
+420 IF LO=1 THEN GOTO 440
+430 IF L=1 THEN GOSUB 680
+440 IF LO=2 THEN GOTO 460
+450 IF L=2 THEN GOSUB 870
+460 IF LO=3 THEN SOUND 3000,10:GOTO 480
+470 IF L=3 THEN GOSUB 970
+480 IF LO=4 THEN GOTO 500
+490 IF L=4 THEN GOSUB 1080
+500 CLOSE #2
+510 GOTO 30
+520 LOCATE 7,1
+530 TYP$="D"
+540 PRINT"ÜÜÜÜÜÜ  ÜÜÜÜÜ"
+550 PRINT" Û   Û  Û    "
+560 PRINT" Û   Û  Û    "
+570 PRINT" Û   Û  Û    "
+580 PRINT"ßßßßßß  ßßßßß"
+590 RETURN
+600 LOCATE 7,1
+610 TYP$="A"
+620 PRINT"  ÜÜ    ÜÜÜÜÜ"
+630 PRINT" Û  Û   Û    "
+640 PRINT"ÛÜÜÜÜÛ  Û    "
+650 PRINT"Û    Û  Û    "
+660 PRINT"ß    ß  ßßßßß"
+670 RETURN
+680 REM LOGIKTEST
+690 LOCATE 7,1
+700 COLOR 10
+710 LO=1
+720 PRINT"ÜÜÜÜÜ ÜÜÜÜÜ   ÜÜ   ÜÜÜÜÜÜ Ü    Ü"
+730 PRINT"Û   Û Û      Û  Û   Û   Û  Û  Û"
+740 PRINT"ÛÜÜÜÛ ÛÜÜÜ  ÛÜÜÜÜÛ  Û   Û   ÛÛ"
+750 PRINT"Û  Û  Û     Û    Û  Û   Û   ÛÛ"
+760 PRINT"ß   ß ßßßßß ß    ß ßßßßßß   ßß"
+770 RETURN
+780 REM DELETE
+790 LOCATE 7,1
+800 LO=0
+810 PRINT"                                "
+820 PRINT"                                "
+830 PRINT"                                "
+840 PRINT"                                "
+850 PRINT"                                "
+860 RETURN
+870 REM LOGIKTEST LO
+880 LOCATE 7,1
+890 COLOR 10
+900 LO=2
+910 PRINT"Ü     ÜÜÜÜÜ Ü           Ü       "
+920 PRINT"Û     Û   Û  Û         Û        "
+930 PRINT"Û     Û   Û   Û   Û   Û         "
+940 PRINT"Û     Û   Û    Û Û Û Û          "
+950 PRINT"ßßßßß ßßßßß     ß   ß           "
+960 RETURN
+970 REM LOGIKTEST HI
+980 SOUND 3000,10
+990 LOCATE 7,1
+1000 COLOR 12
+1010 LO=3
+1020 PRINT"Ü   Ü Ü ÜÜÜÜÜ Ü   Ü             "
+1030 PRINT"Û   Û Û Û     Û   Û             "
+1040 PRINT"ÛÜÜÜÛ Û Û  ÜÜ ÛÜÜÜÛ             "
+1050 PRINT"Û   Û Û Û   Û Û   Û             "
+1060 PRINT"ß   ß ß ßßßßß ß   ß             "
+1070 RETURN
+1080 REM LOGIKTEST FLOAT
+1090 LOCATE 7,1
+1100 COLOR 11
+1110 LO=4
+1120 PRINT"ÜÜÜÜÜ Ü     ÜÜÜÜÜ   ÜÜ   ÜÜÜÜÜ "
+1130 PRINT"Û     Û     Û   Û  Û  Û    Û   "
+1140 PRINT"ÛÜÜÜ  Û     Û   Û ÛÜÜÜÜÛ   Û   "
+1150 PRINT"Û     Û     Û   Û Û    Û   Û   "
+1160 PRINT"ß     ßßßßß ßßßßß ß    ß   ß   "
+1170 RETURN
+1180 REM DELETE ALL
+1190 LOCATE 7,1
+1200 TYP$="0"
+1210 PRINT"                                "
+1220 PRINT"                                "
+1230 PRINT"                                "
+1240 PRINT"                                "
+1250 PRINT"                                "
+1260 RETURN
+
\ No newline at end of file
diff --git a/METEX/METEX.DAT b/METEX/METEX.DAT
new file mode 100644
index 0000000..152f9ed
--- /dev/null
+++ b/METEX/METEX.DAT
@@ -0,0 +1 @@
+
\ No newline at end of file