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