1 REM PC-FORTH (C) RVS 1984 - FEHLERBEWERTUNG 2 O=&C6+256*PEEK &7863:DIM I$(0)*80,O$(0)*26 3 DIM M1(2),M2(2),MT(2),MA(2),NV(2),ME(2),G1(2),G2(2) 4 DIM NR$(2)*16,NK$(2)*16,ES$(2)*16,VF(2),MF(2),F(2,32):CO=0 5 GOTO "C 20 IF LLPRINT I$(0) 21 RETURN 22 IF LLPRINT LEFT$ (O$(0),24);:IF ASC INKEY$ =0POKE S,13,6 23 IF L AND MID$ (O$(0),25,1)<>"~"LPRINT 24 RETURN 25 "L"L=L=0:I$(0)="":GOTO "H 30 "C"CALL O,S:GOTO 38 31 "F"CALL O+4,S:GOTO 38 33 CURSOR 0:INPUT "";I$(0):GOSUB 20:GOTO 39 34 CLS :GOTO 33 35 CALL O+6,S:IF PEEK SPRINT CHR$ PEEK S;:GOTO 35 37 GOTO "H 38 WAIT 0:CLS :PRINT "~";O$(0);:GOSUB 22 39 "H"CALL O+6,S:GOTO PEEK S 40 GOTO G 170 "~def 171 "leer 172 "Zeile ~def 174 "~neu 177 "voll 187 "nur in :Def 188 "~compilierbar 189 "passt nicht 190 "Strukturfehler 191 "2LET J=0 5100 USING :FOR I=0TO J 5110 LPRINT " Kanal :";I+1 5120 IF AN=3THEN LPRINT " Kanal : 2":LPRINT " mit Diversity":LPRINT 5130 CLS :PRINT "Leitung : ";NR$(I) 5140 CURSOR 10:INPUT NR$(I) 5150 CLS :PRINT "Nummer : ";NK$(I) 5160 CURSOR 10:INPUT NK$(I) 5170 LPRINT "Leitungnummer :";TAB 20;NR$(I) 5180 LPRINT TAB 20;NK$(I) 5190 CLS :INPUT "Endst.Sender : ";ES$(I) 5200 LPRINT "Endstellen-Sender : ";ES$(I) 5210 LPRINT "Datum der Init. : ";DA$ 5280 CLS :VF(I)=1:INPUT "Verduennungsf. : ";VF(I) 5290 LPRINT "Verduennungsfaktor:";VF(I) 5300 CLS :MF(I)=1:INPUT "Multiplexf. : ";MF(I) 5310 LPRINT "Multiplexfaktor :";MF(I) 5320 G1(I)=64*MF(I)/VF(I):G2(I)=4*MF(I)/VF(I):ð¶3:NEXT I 5330 IF AN<3THEN 5360 5340 G1(1)=G1(0):G2(1)=G2(0):VF(1)=VF(0):MF(1)=MF(0) 5345 NR$(1)=NR$(0):NK$(1)=NK$(0):ES$(1)=ES$(0) 5350 G1(2)=G1(0):G2(2)=G2(0):VF(2)=VF(0):MF(2)=MF(0):NR$(2)=NR$(0) 5355 NR$(2)=NR$(0):NK$(2)=NK$(0):ES$(2)=ES$(0) 5360 CLS :WAIT 0:PRINT "Start: ENTER druecken":WAIT 5370 A$=INKEY$ :IF A$<>CHR$ (13)THEN 5370 5380 CLS :RETURN 20000 COLOR CO:LPRINT :LPRINT "Auswertung des letzten Tages :":LPRINT :GOSUB 50000 20020 FOR I=0TO AN-1:GOSUB 25000:NEXT I:LPRINT 20030 CO=CO+1:IF CO=4LET CO=0 20040 LPRINT "------------------------------------":LPRINT :RETURN 21000 COLOR CO:LPRINT :LPRINT "Gesamtauswertung :":LPRINT :GOSUB 50000 21020 FOR I=0TO AN-1:GOSUB 25000:GOSUB 30000:NEXT I:LPRINT 21030 CO=CO+1:IF CO=4LET CO=0 21040 LPRINT "------------------------------------":LPRINT :RETURN 22000 COLOR CO:LPRINT "Abbruch der Messungen :":GOTO 50000 23000 LPRINT "Start der Messungen :":GOTO 50000 24000 LPRINT "Messungen gestoppt :":GOTO 50000 24500 LPRINT "Messungen fortgesetzt :":GOTO 50000 25000 REM WERTE -I- AUSGEBEN 25010 USING :IF I<2THEN LPRINT "Kanal :";TAB (19);I+1 25020 IF I=2THEN LPRINT "Diversity :" 25030 IF M2(I)*60>MA(I)LET M2(I)=MA(I)/60 25040 LPRINT "Leitungsnummer :";TAB (20);NR$(I):USING "####.####" 25050 LPRINT TAB 20;NK$(I) 25060 LPRINT "Endstellen-Sender : ";ES$(I) 25070 LPRINT "Messort : ";MO$:LPRINT 25080 IF (ME(I)=0)AND (NV(I)=0)THEN LPRINT "Keine Bitfehler festgestellt":LF 2:RETURN 25100 LPRINT USING "########";"MT = ";MT(I); 25110 LPRINT :LPRINT USING "########";"ES = ";ME(I); 25120 LPRINT USING "####.####";" (";ME(I)*100/MA(I);" % )"; 25130 LPRINT :LPRINT USING "########";"NAS = ";NV(I); 25140 LPRINT USING "####.####";" (";NV(I)*100/MT(I);" % )"; 25150 LPRINT :LPRINT USING "########";"MA = ";MA(I); 25160 LPRINT USING "####.####";" (";MA(I)*100/MT(I);" % )"; 25170 LPRINT :LPRINT USING "########";"SES = ";M1(I); 25180 IF MA(I)<>0LPRINT USING "####.####";" (";M1(I)*100/MA(I);" % )"; 25190 LPRINT :LPRINT USING "########";"DM = ";M2(I); 25200 IF MA(I)<>0LPRINT USING "####.####";" (";M2(I)*100/MA(I)*60;" % )"; 25210 LPRINT :LPRINT :RETURN 30000 REM VERTEILUNG 30005 IF (ME(I)=0)AND (NV(I)=0)THEN RETURN 30010 LPRINT " VERTEILUNG:" 30020 GRAPH: CSIZE 1:COLOR CO 30030 GOSUB "KOOR":C=0:SU=0 30040 FOR J=32TO 0STEP -1:B=J*6+7:SU=SU+F(I,J):A=SU:IF A=0THEN 30060 30050 A=10+(LOG (A/MT(I))+6)*40:IF A<1LET A=1 30060 ð·(B,-C)-(B,-A)-(B-6,-A):C=A 30070 NEXT J 30080 GRAPH:CSIZE 1:LF 2:USING :LF 4:CLS :RETURN 30090 "KOOR":ROTATE 1:GLCURSOR (15,-35):SORGN:USING 30100 LINE(-8,0)-(192,0),0:ROTATE 1 30110 FOR K=0TO 9:GLCURSOR(K*20-3,34) 30120 LPRINT "10^";K:LINE(K*20,3)-(K*20,0) 30130 NEXT K:GLCURSOR(194,34):LPRINT "BFI/s" 30140 GLCURSOR(-6,0):SORGN:LINE(0,0)-(0,-250) 30150 USING "##":FOR K=-4TO 2:GLCURSOR(-9,-K*40-155):LPRINT "10^";K 30160 LINE(-2,-K*40-170)-(1,-K*40-170):NEXT K 30170 GLCURSOR(-9,-270):LPRINT "P%":USING :RETURN 50000 TI$=RIGHT$ ("0"+STR$ (INT (TIME *10000)),10):IF LEFT$ (TI$,2)="01"AND MO=12LET JA=JA+1 50010 DA$=MID$ (TI$,3,2)+"."+MID$ (TI$,1,2)+"."+RIGHT$ (STR$ (JA),2) 50020 ST$=MID$ (TI$,5,2)+"."+MID$ (TI$,7,2)+"."+MID$ (TI$,9,2) 50030 LPRINT "Datum:";DA$;" Zeit:";ST$:LPRINT 50040 MO=INT (TIME /10000):RETURN