Added METEX2.BAS, BALK.BAS and font.

METEX/BALK.BAS

@@ -0,0 +1,43 @@
+5 FONT$="STANDARD.FON"
+10 KEY OFF
+20 CLS
+30 COLOR 15
+40 COMM$="D:\DOS\UTIL\FONTS\LOADFONT <"+FONT$
+50 SHELL COMM$
+60 OPEN "COM1:1200,N,7,2,RS,CD,DS,CD"AS #2
+70 INIT$="D"
+80 PRINT#2,INIT$
+90 IN$=INPUT$ (14, #2)
+100 COLOR 15
+110 PRINT IN$
+120 PRINT
+130 INPUT"Geben Sie einen Mindestwert ein ! >",MIN
+140 INPUT"Geben Sie einen Maximalwert ein ! >",MAX
+150 PRINT"Danke!"
+160 PRINT"W„hlen Sie eine Anzeigemethode !"
+170 PRINT"1 f<>r Horizont.(max.80 Einheiten) -->";CHR$(243);CHR$(243);"  ";CHR$(242)
+180 PRINT"2 f<>r Vertikal (max.22 Einheiten) ------>";CHR$(242)
+190 INPUT"Geben Sie eine Zahl ein  >",METH
+200 IF METH<1 OR METH>2 THEN GOTO 190
+210 INPUT "Geben Sie die Anzahl der Einheiten an >",BALK
+220 IF BALK<1 THEN 210
+230 IF BALK>22 AND METH=2 THEN 210
+240 IF BALK>80 AND METH=1 THEN 210
+250 REM Fertig mit Eingaben, nun folgen Taten
+260 CLS
+270 LOCATE 1,1:PRINT#2,INIT$:PRINT INPUT$ (14, #2)
+280 DIFF=MAX-MIN
+290 DIG=DIFF/BALK
+300 X=24:IF METH=2 THEN Y=40 ELSE Y=1
+310 FOR Z=1 TO BALK
+320 IF Z<=BALK/2 THEN COLOR 2
+325 IF Z>((BALK/2)/1.5)+(BALK/2) THEN COLOR 4
+326 IF Z>BALK/2 AND Z<=((BALK/2)/1.5)+(BALK/2) THEN COLOR 6
+330 LOCATE X,Y:IF METH=2 THEN PRINT CHR$(242);CHR$(242); ELSE PRINT CHR$(243);
+340 IF METH=2 THEN X=X-1 ELSE Y=Y+1
+350 NEXT Z
+360 LOCATE 1,1:COLOR 15:PRINT#2,INIT$:WERT$=INPUT$ (14,#2)
+370 WERT=VAL(MID$(WERT$,3,7))
+380 XBALK=(WERT/(MAX-MIN))*BALK
+390 IF XBALK<1 OR XBALK>BALK THEN LOCATE 23,1:COLOR 15:PRINT"OVERLOAD" ELSE PRINT"              "
+

METEX/METEX2.BAS

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