10 REM********************************* 20 REM* * 30 REM* NEWEA2 * 40 REM* * 50 REM* VON HANS HABERL * 60 REM* * 70 REM********************************* 100 REM STEUERZEICHEN: 101 REM "[147]" = SHIFT + CLR/HOME 102 REM "" = CRSR DOWN 103 REM "[145]" = CRSR UP 104 REM "[157]" = CRSR BACK 105 REM "" = CTRL + 9 106 REM "[146]" = CTRL + 0 107 REM "[159]" = CTRL + 4 108 REM "[158]" = CTRL + 8 109 REM "[150]" = COMdRORE + 3 110 REM "[155]" = COMdRORE + 8 130 d6,6:PRINT"[147][155]":d1,0,40,23,81,7:d0,1,38,25,81,7:d3,3,34,19,32 150 PRINTd(11,9)"AC-NETZWERKANALYSE":PRINTd(12,15)"VON HANS HABERL" 160 dt1,"GOTO300"+CHR$(13) 170 DIMI,J,R,S,F,U,V,X,Y,P,Q,K,N,M,O,C,L,J1,J2,KF 180 DIMX1,X2,Y1,Y2,XF,XS,YF,YS,TL,TP,T0,Z,D,E,W,C$,X$,N$,L%,Q%,I% 190 DIMR(20,21),S(20,21),M%(20,21),K(20),Y(2,20,20),F(9,20),U(9,20),W(9,20) 200 DIMI(90),J(90),B(90),A(90),X(2,3,5),N(10),P(11) 210 DIMC$(9),D$(9),E$(9),K$(9),B$(9) 220 TL=10/LOG(10):TP=180/(null):T0=2*(null):FORI=0TO9:READC$(I),D$(I),E$(I):NEXTI 230 DATAF,KNOTEN ,ANZAHL DER ,A,WIDERSTAENDE,R,D,KAPAZITAETEN,C 240 DATAO,INDUKTIVITAETEN,L,N,TRANSISTOREN,C B E,E,Y-VIERPOLE,1 1' 2 2' 250 DATAL,OP'S,+ - A,S,FREQUENZ,FREQUENZFILE,0,0,R,0,0,W 280 I=0:d :GETC$:I=I+1:d)C$<>""ORI=300:PRINT"[147]":GOSUB500 300 CLOSE2:CLOSE4:CLOSE15 400 d::PRINT">";:GOSUB5010 410 FORC=0TO7:IFC$<>C$(C)THENNEXTC:GOSUB500:d6 420 PRINT:ONC+1GOSUB1000,1000,1500,2000,3000,3300,4050,4000:d6 500 PRINT"MENUE:":PRINT"N=NETZWERK EINGEBEN":PRINT"E=ELEMENTE EINGEBEN" 510 PRINT"F="D$(7)"GANG":PRINT"A=AUSGABE":PRINT"D=DIAGRAMM" 520 PRINT"L=DATEN LADEN":PRINT"S=DATEN SPEICHERN":RETURN 1000 C$="":GOSUB5650:GOSUB5700:IFQ=0THENP=0:RETURN 1010 I=Q:IFC<1ANDU<9THENPRINTD$(7)"EN VON ";:GOSUB5700 1020 dF:IFQ>0ANDF(Q,0)>0THENFORJ=0TOF(Q,0)+1:F(I,J)=F(Q,J):NEXTJ 1030 dF:IFC=0THENPRINT"OHNE AENDERUNG ?";:GOSUB5010 1040 Q=I:L=0:INPUT"NOTIZ";K$(Q):IFC<1THENW(Q,0)=C:IFC$<>"J"THENL=1 1080 GOSUB1400:IFP<3ORC<0THENRETURN 1100 C=1:d::PRINT"FILE#[146] , N[146]ORMIERUNG ODER D[146]RUCKER?"; 1110 GOSUB5010:J=ASC(C$)-48:L=0 1120 IFC$="N"THENGOSUB1300:d6 1130 IFC$="D"THENGOSUB7200:d6 1140 d5 IFJ<1ORJ>9:d5 IFF(J,0)=0 1150 GOSUB1200:d6:RETURN 1200 GOSUB5900:P=1:L=1:d :F=F(Q,P):IFF(J,L)F(Q,0)ORL>F(J,0) 1280 PRINTTAB(10)"[159]FILE"Q"[155]FILE"J:RETURN 1300 INPUT"BEZUGSFREQUENZ";F:INPUT"DB-WERT";S:FORI=1TOF(Q,0) 1310 IFF=F(Q,I)THENR=S-U(Q,I):FORI=1TOF(Q,0):U(Q,I)=U(Q,I)+R:NEXTI 1320 dF:GOSUB1400:RETURN 1330 NEXTI:RETURN 1400 GOSUB5900:FORP=1TO20 1410 IFF(Q,P)=0ANDC=0THENL=1 1420 IFL=1THENPRINTF(Q,P);:INPUTF(Q,P):PRINT"[145][145]" 1430 IFF(Q,P)>0THENONC+2GOSUB6000,4400,4700:NEXTP 1440 F(Q,0)=P-1:RETURN 1500 GOSUB5750:Q=P:IFQ=0THENRETURN 1600 GOSUB1700:FORI=1TOQ:FORJ=1TOF(P(I),0):X1=X2:Y1=Y2 1610 X2=LOG(F(P(I),J))*XF+XS:Y2=U(P(I),J)*YF+YS 1620 IFJ>1THENdX1,Y1,X2,Y2,1:dX1+1,Y1,X2+1,Y2,1 1630 NEXTJ:IFQ>1THENd X2-18,Y2-6,P(I)+48,1,1 1640 NEXTI:GOSUB5050:dg:PRINT"AUSGABE AUF DRUCKER ?";:GOSUB5010 1650 IFC$="J"THENGOSUB7300 1660 RETURN 1700 X1=F(P(1),1):X2=X1+1:Y2=U(P(1),1):Y1=Y2-1 1710 FORI=1TOQ:P=P(I):R=F(P,F(P,0)):S=F(P,1):IFR>X2THENX2=R 1720 IFSY2THENY2=R:dG:IFRY2 1800 IFX2/X1>1.1THENGOSUB1820:dG:GOSUB1860 1810 RETURN 1820 S=LOG(X2/X1)/10:V=X2-X1:X=X1 1830 d :R=10^INT(LOG(X*V/(X+V))/LOG(10)):X=R*INT(X/R+1):GOSUB1900 1840 X=X*EXP(S):d)X>X2:RETURN 1860 S=(X2-X1)/6:R=10^INT(LOG(S)/LOG(10)+.2):S=R*INT(S/R+1) 1870 I=0:d :I=I+1:X=S*INT(X1/S+I):GOSUB1900:d)X>X2:RETURN 1900 U=X:d::d5 IFU<1000:U=U/1000:d6:C$=RIGHT$(STR$(U),5) 1910 U=LOG(X)*XF+XS:doU-4-4*LEN(C$),193,C$,1,1,8:dU,0,U,191,1:RETURN 2000 C=-1:GOSUB1000:GOSUB5000:IFC$="J"ORP<2THENRETURN 2010 L%=P-1:C=6:GOSUB5660:IFU>0THENP(10)=P(1):dG:P(10)=9-INT(Q/9) 2020 d :PRINT"OPTIMIERUNG VON MAX. 4 ELEMENTEN" 2030 P=1:d :PRINTP".ELEMENT "B$(P);:INPUTB$(P):GOSUB6050:d)P>4 2040 GOSUB5000:d)C$<>"J":P(0)=9-P:IFP=9THENRETURN 2050 P(9)=Q:P=P(10):F(P,0)=L%:W(P,0)=1:K$(P)="IST":Z=1:Q%=10:PRINT"X=ABBRUCH" 2100 d::L=2:Q=P(Q%):FORP=1TOL%:F(Q,P)=F(P(9),P):GOSUB4400:d5 IFR=0 2110 W(Q,P)=U(Q,P)-U(P(Q%-1),P):NEXTP 2130 FORJ=10TOQ%:U=-R:R=0:FORP=1TOL%:R=R+W(P(Q%),P)*W(P(J),P)/W(P(9),P)^2 2140 NEXTP,J:IFQ%=11THENS=(1+ATN(U/R/6)/3)^2:GOSUB3500:Q%=10:d6:Z=0:RETURN 2150 PRINT:PRINT"ZYKLUS"Z"FEHLER:"R:FORP=1TOP(0):PRINTB$(P),B(P(P)); 2160 IFLEN(B$(P))>4THENPRINTB(P(P+4)):dG:PRINT 2170 NEXTP:GETC$ 2180 IFC$="X"ORR<1THENPRINT"ABBRUCH?";:GOSUB5010:d5 IFC$="J"ORC$="X" 2200 Q%=11:I%=dR(Z,P(0))+1:Z=Z+1:S=1.1:D=B(P(I%)):E=B(P(I%+4)):GOSUB3500 2210 d6:Z=0:RETURN 3000 J=J1:FORI=1TO5:P(I)=N(I):NEXTI:d :PRINT""E$(0);D$(0)"(OHNE 0)",N; 3010 INPUTN:FORI=1TO6:PRINTE$(0);D$(I)TAB(30)N(I);:INPUTN(I):N(I)=ABS(N(I)) 3020 NEXTI:GOSUB5000:GOSUB5600 3030 d)J1<91ANDN>0ANDN<21ANDN(6)<6ANDC$<>"J" 3040 M=1:J=J+J1:FORI=1TO5:P=M+P(I)*(1+INT(I/4)):M=M+N(I)*(1+INT(I/4)) 3050 IFP>MTHENFORK=MTOJ:GOSUB5620:NEXTK 3060 IFP0THENPRINT""D$(I)" AN "D$(0) 3080 dF:FORJ=1TON(I):ONIGOSUB5100,5100,5100,5150,5200,5150:GOSUB5250:NEXTJ 3090 NEXTI:d :PRINT"AUSGANGS"D$(0),N(9);:INPUTN(9) 3100 d)N(9)>0ANDN(9)<=N 3110 GOSUB5000:d)C$<>"J":PRINT 3300 d :K=0:J(0)=1:FORI=1TO6:IFN(I)>0ORI=1THENPRINT:PRINTD$(I)" "E$(I) 3310 dF:FORJ=SGN(I-1)TON(I):ONIGOSUB5300,5300,5300,5350,5450,5400 3320 dF:K=K+1+INT(I/4):NEXTJ 3330 NEXTI:GOSUB5000:d)C$<>"J" 3500 IFZ>0THENB(P(I%))=D*S:B(P(I%+4))=E*S^SGN(49-P(I%+4)) 3600 GOSUB6200:U=-1:M=N+1:FORI=1TON:FORJ=1TOM:M%(I,J)=0:NEXTJ,I 3610 K=1:J2=1:FORL=0TO2:FORI=1TON:FORJ=1TON:Y(L,I,J)=0:NEXTJ,I 3620 J2=J2+N(L+1):d::d5 IFK=J2:I=I(K):J=J(K):GOSUB5800:K=K+1 3630 d6:NEXTL:Y(0,1,1)=Y(0,1,1)+1/B(0):M%(1,M)=U 3650 J2=J2+2*N(4):d::d5 IFK=J2:L=0:S=ABS(B(K))/.026:R=S*5E-4:P=I(K+1):O=I(K) 3660 I=P:J=O:GOSUB5820:J=J(K):R=S:GOSUB5820:O=J:R=S/A(K):GOSUB5820 3670 L=1:R=S/T0/B(K+1):GOSUB5820:I=I(K):P=I:R=R*5E-4:GOSUB5820:K=K+2:d6 3700 S=1:J2=J2+2*N(5):d::d5 IFK=J2:I=I(K):J=J(K):P=I:O=J:KF=0:GOSUB5850 3710 I=I(K+1):J=J(K+1):KF=1:GOSUB5850:P=I:O=J:KF=3:GOSUB5850 3720 I=I(K):J=J(K):KF=2:GOSUB5850:S=S+1:K=K+2:d6 3750 J2=J2+2*N(6):d::d5 IFK=J2:L=I(K+1):FORI=0TO2:FORJ=1TON:Y(I,L,J)=0 3760 NEXTJ,I:Y(0,L,L)=1:M%(L,L)=U:M%(L,I(K))=U:M%(L,J(K))=U 3770 A(K)=T0*B(K+1)/B(K):K=K+2:d6:J2=J2-2*N(6) 3780 FORI=1TON:M%(I,0)=I:NEXTI 3790 P=N(9):IFPSTHENS=R:Q=K 3850 IFVPTHENGOSUB6300 3870 IFF=0THEN3910 3880 FORI=P+1TON-1 3890 IFM%(I,P)THENFORJ=I+1TON:M%(I,J)=M%(I,J)ORM%(P,J):M%(J,I)=M%(I,J):NEXTJ 3900 NEXTI 3910 NEXTP 3920 FORI=1TON:M%(I,M)=M%(I,M)ORM%(I-1,M):K(M%(I,0))=I:NEXTI:GOSUB6250 3930 IFZ>0THENRETURN 3950 PRINT"AUSGABE AUF DRUCKER?";:GOSUB5010:IFC$="J"THENGOSUB7000 3960 RETURN 4000 F=0:OPEN15,8,15:PRINT"SCHALTUNG SPEICHERN ?";:GOSUB5010 4010 IFC$="J"ANDN*J1>0THENGOSUB4100 4020 PRINT:IFF=0THENPRINTE$(7)"S SPEICHERN ?";:GOSUB5010:IFC$="J"THENGOSUB4300 4030 CLOSE2:CLOSE15:RETURN 4050 OPEN15,8,15:GOSUB5500 4060 IFF=0THENINPUT#2,C$:IFRIGHT$(C$,5)="NEWEA"THENONVAL(C$)GOSUB4110,4300 4070 CLOSE15:CLOSE2:RETURN 4100 GOSUB5500:IFF>0THENRETURN:dG:PRINT#2,"1NEWEA":INPUT"NOTIZ";N$ 4110 PRINT:IFC=7THENPRINT#2,CHR$(34)+N$+CHR$(34):dG:INPUT#2,N$:PRINTN$ 4120 N(0)=N:FORI=0TO9:IFC=7THENPRINT#2,N(I):dG:INPUT#2,N(I) 4130 NEXTI:N=N(0):GOSUB5600:FORI=0TOJ1 4140 IFC=7THENPRINT#2,I(I):PRINT#2,J(I):PRINT#2,B(I):PRINT#2,A(I):dG:INPUT#2,I(I),J(I),B(I),A(I) 4150 NEXTI:IFN(5)=0THEN4190 4160 FORK=1TON(5):FORI=0TO2:FORJ=0TO3 4170 IFC=7THENPRINT#2,X(I,J,K):dG:INPUT#2,X(I,J,K) 4180 NEXTJ:NEXTI:NEXTK 4190 GOSUB5550:CLOSE2:IFF=0ANDC=6THENGOSUB3300 4200 RETURN 4300 ONC-5GOSUB5660,5750:IFP=0ORC+U=16THENRETURN 4310 IFC=7THENGOSUB5500:IFF=0THENPRINT#2,"2NEWEA":PRINT#2,P:dG:IFF>0THENRETURN 4330 IFC=6THENINPUT#2,P:IFP>UTHENPRINT"NUR"U"VON"P:P=U 4340 FORI=1TOP:Q=P(I) 4345 IFC=6THENINPUT#2,K$(Q):PRINTQ;K$(Q):dG:PRINT#2,CHR$(34)+K$(Q)+CHR$(34) 4350 J=0:d :IFC=6THENINPUT#2,F(Q,J),U(Q,J),W(Q,J) 4360 IFC=7THENPRINT#2,F(Q,J):PRINT#2,U(Q,J):PRINT#2,W(Q,J) 4370 J=J+1:d)J>F(Q,0):F(Q,J)=0:NEXTI:GOSUB5550:RETURN 4400 GOSUB6200:S=T0*F(Q,P):IFS=0ORN=0THENGOSUB6400:RETURN 4410 FORI=1TON:U=K(I):FORJ=1TON:V=K(J):S(U,V)=Y(1,I,J)*S-Y(2,I,J)/S 4420 R(U,V)=Y(0,I,J):NEXTJ:S(I,M)=0:R(I,M)=0:NEXTI:R(K(1),M)=1/B(0) 4450 K=J2:d::d5 IFK=J2+2*N(6):I=K(I(K+1)):IFI=0THEN4490 4460 R=1+S*S/A(K)^2:U=B(K)/R:V=U*S/A(K) 4470 J=K(I(K)):R(I,J)=R(I,J)-U:S(I,J)=S(I,J)+V 4480 J=K(J(K)):R(I,J)=R(I,J)+U:S(I,J)=S(I,J)-V 4490 K=K+2:d6 4500 FORK=1TON-1:U=R(K,K):V=S(K,K):F=U*U+V*V 4510 IFF=0THENGOSUB6400:RETURN 4550 FORI=K+1TON:IFNOTM%(I,K)THEN4600 4560 X=R(I,K):Y=S(I,K):R=(X*U+Y*V)/F:S=(Y*U-X*V)/F:FORJ=K+1TOM 4580 IFM%(I,J)THEN:X=R(K,J):Y=S(K,J):R(I,J)=R(I,J)-R*X+S*Y:S(I,J)=S(I,J)-S*X-R*Y 4590 NEXTJ 4600 NEXTI,K:U=R(N,N):V=S(N,N):F=U*U+V*V:IFF=0THENGOSUB6400:RETURN 4610 X=R(N,M):Y=S(N,M):R=(X*X+Y*Y)/F 4620 GOSUB6250:IFR=0THENPRINT"UA=0":P=P-1:L=1:RETURN 4630 U(Q,P)=TL*LOG(R):IFL=2THENRETURN 4640 R=X*U+Y*V:S=Y*U-X*V 4650 IFS=0THENW(Q,P)=(1-SGN(R))*90:dG:W(Q,P)=90*SGN(S)-TP*ATN(R/S) 4700 X=F(Q,P):PRINTX;:PRINTSPC(12-LEN(STR$(X)));:X=U(Q,P):GOSUB5950 4710 X=W(Q,P):PRINTSPC(7):GOSUB5950 4720 PRINT:IFL=0ORP<2THENRETURN 4750 F=F(Q,P):U=U(Q,P):V=W(Q,P):FORJ=PTO2STEP-1 4760 IFF(Q,J-1)>FTHENF(Q,J)=F(Q,J-1):U(Q,J)=U(Q,J-1):W(Q,J)=W(Q,J-1):NEXTJ 4770 F(Q,J)=F:U(Q,J)=U:W(Q,J)=V:RETURN 5000 PRINT"KORREKTUR? "; 5010 d7,20:PRINT"[158] [155]";:GOSUB5050:PRINT"[157] [157]"C$:di:RETURN 5050 POKE198,0:WAIT198,1:GETC$:RETURN 5100 PRINT" "E$(I);J,I(K);J(K);:INPUTI(K),J(K):RETURN 5150 PRINT" "LEFT$(D$(I),I-3);J,E$(I);I(K);J(K);I(K+1); 5160 INPUTI(K),J(K),I(K+1):J(K+1)=0:RETURN 5200 d :PRINT" VP"J,E$(I):PRINTI(K);J(K);I(K+1);J(K+1); 5210 INPUTI(K),J(K),I(K+1),J(K+1):d)J(K+1)<=N:RETURN 5250 FORQ=KTOK+I/4 5260 IFI(Q)<0ORJ(Q)<0ORN0:RETURN 5350 d :GOSUB6550:INPUTA(K),B(K),B(K+1):d)B(K+1)>0ANDA(K)>0:RETURN 5400 d :GOSUB6600:INPUTB(K),B(K+1):d)B(K+1)>0:RETURN 5450 GOSUB6650:FORL=0TO3:GOSUB6660 5460 INPUTX(0,L,J),X(1,L,J),X(2,L,J):NEXTL:RETURN 5500 d :PRINT:INPUT"FILENAME ($=DIRECTORY)";N$:IFN$="$"THENPRINT:dJ"$:*=S" 5510 PRINT:GOSUB5550:IFF>0THENRETURN 5520 d)N$<>"$":OPEN2,8,2,N$+",S,"+E$(C+2) 5550 df1:INPUT#15,F,C$,R,S:IFF>0THENPRINTF;C$;R;S 5560 RETURN 5600 J1=N(1)+N(2)+N(3)+2*(N(4)+N(5)+N(6)):RETURN 5620 Q=K+P-M:I(K)=I(Q):J(K)=J(Q):B(K)=B(Q):A(K)=A(Q):RETURN 5650 PRINT"":PRINTE$(7)"BELEGUNG:" 5660 U=0:FORI=1TO9:K=F(I,0):IFK=0THENU=U+1:P(U)=I 5670 IFK>0ANDC<>6THENPRINTI":"K$(I):PRINT" "K"FREQ :"F(I,1)"-"F(I,K) 5680 NEXTI:PRINT:P=U:RETURN 5700 d :d :PRINTE$(7)" (1-9)"Q;:INPUTQ 5710 d)Q>=0ANDQ<=9:d)F(Q,0)>0ORC<1ORQ=0:RETURN 5750 GOSUB5650:d :FORI=1TO9-U:PRINTI".";:Q=P(I):GOSUB5700:P(I)=Q 5760 IFQ>0THENNEXTI 5770 P=I-1:GOSUB5000:d)C$<>"J":RETURN 5800 P=I:O=J:IFL=1THENR=B(K):dG:R=1/B(K) 5820 IFI=JORP=OTHENRETURN 5830 Y(L,P,I)=Y(L,P,I)+R:Y(L,O,J)=Y(L,O,J)+R:M%(P,I)=U:M%(O,J)=U 5840 Y(L,P,J)=Y(L,P,J)-R:Y(L,O,I)=Y(L,O,I)-R:M%(P,J)=U:M%(O,I)=U:RETURN 5850 FORL=0TO2:R=X(L,KF,S):IFR<>0THENGOSUB5820 5860 NEXTL:RETURN 5900 PRINT:PRINTD$(7);SPC(5)"BETRAG (DB) "; 5910 IFW(Q,0)=0THENPRINT"PHASE (GRAD)":dG:PRINT"TOLERANZ(DB)" 5920 RETURN 5950 X$=STR$(SGN(X)*INT(ABS(X)*1E3+.5)) 5960 d::d5 IFLEN(X$)>4:X$=d[("0",X$,1):d6 5970 X$=d[(".",X$,LEN(X$)-3):d,"####.###",X$:RETURN 6000 PRINTdU(" ",10)"[145]":PRINTF(Q,P)TAB(8):X=U(Q,P):GOSUB5950:INPUTU(Q,P) 6010 d :PRINT"[145]"TAB(23):X=W(Q,P):GOSUB5950 6020 INPUTW(Q,P):d)W(Q,P)>0:GOSUB4750:RETURN 6050 R=1:C$=B$(P):L=LEN(C$):IFC$="0"THENP=10-P:RETURN 6060 FORI=1TO3:FORJ=RTOR+2:IFMID$(C$,J,1)<>E$(I)THENNEXTJ,I:RETURN 6070 K=VAL(RIGHT$(C$,L-J)):IFKN(I)THENRETURN 6080 FORJ=1TOI:K=K+N(J):NEXTJ:K=K-N(I):P(P+4)=K:IFR=1THEN6120 6100 FORI=3TO4:N$=MID$(C$,I,1) 6110 IFN$="*"THENP(P+4)=K+50:dG:IFN$<>"/"THENNEXTI:RETURN 6120 IFR=1THENP(P)=K:R=4:IFL>4THEN6060:dG:P=P+1:RETURN 6200 PRINT"[150]*** BUSY ***[155]":RETURN 6250 PRINT"[145]"dU(" ",14)"[145]":RETURN 6300 FORI=1TON:R=M%(I,P):M%(I,P)=M%(I,Q):M%(I,Q)=R:NEXTI 6310 FORJ=0TOM:R=M%(P,J):M%(P,J)=M%(Q,J):M%(Q,J)=R:NEXTJ:RETURN 6350 R=U:FORJ=1TON:R=R-M%(K,J):NEXTJ:RETURN 6400 GOSUB6250:R=0:PRINT"NICHT LOESBAR":P=P-1:L=1:RETURN 6500 PRINT" "E$(I);J"("I(K);J(K)")",B(K);:RETURN 6550 PRINT" T"J"("I(K);J(K);I(K+1)") B0,IC,FT":PRINTA(K);B(K);B(K+1);:RETURN 6600 PRINT" OP"J"("I(K);J(K);I(K+1)") V0,FT":PRINTB(K);B(K+1);:RETURN 6650 PRINT" VP"J"("I(K);J(K);I(K+1);J(K+1)") 1/R C 1/L":RETURN 6660 PRINT" Y"11+8*INT(L/2)+L;X(0,L,J);X(1,L,J);X(2,L,J);:RETURN 6700 GOSUB6650:FORL=0TO3:GOSUB6660:PRINT:NEXTL:RETURN 7000 INPUT"NOTIZ";N$:GOSUB7400:PRINT" "N$ 7020 K=0:FORI=1TO6:IFN(I)>0ORI=1THENPRINT:PRINTD$(I)" "E$(I) 7030 dF:FORJ=SGN(I-1)TON(I):ONIGOSUB6500,6500,6500,6550,6700,6600 7040 dF:PRINT:K=K+1+INT(I/4):NEXTJ 7050 NEXTI:PRINT:PRINT"AUSGANGSKNOTEN:",N(9):PRINT#4:CLOSE4:RETURN 7100 GOSUB7400:PRINT"OPTIMIERUNGSVERLAUF":PRINT#4:CLOSE4:RETURN 7200 GOSUB7400:PRINT" "K$(Q):GOSUB1400:PRINT#4:CLOSE4:RETURN 7300 GOSUB7400:FORI=1TOQ:IFQ>1THENPRINT" "P(I); 7310 PRINT" "K$(P(I)):NEXTI:PRINT:PRINT#4:CLOSE4:dw:RETURN 7400 OPEN4,4:CMD4:PRINT:PRINTCHR$(14)"AC-NETZWERKANALYSE"CHR$(15) 7410 PRINT:RETURN