P189 189 ARD/ZDF Do 26.12.85 20:54:18
04/09
~o4 ~o4 j5
~o4~oo4o4j5%~{4% j5j?}
o~ o~%?jj5?~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BASIC-Kopfnuß
"GLEISLÄNGENBERECHNUNG"
1000 PRINT : G/TO 1170
1010 PRINT "WIEVIELE VERSCHIEDENE
STUECKE ? ";: INPUT C
1020 PRINT "MAX.LAENGE ? ";: INPUT B
1030 IF A(A) = 0 THEN PRINT
"GEHT NICHT.": GOTO 1170
■■ *0 IF (■ G) § T*E2 IF (■ t? )
= 0 THEN A(F+B(G) ) = - G:E = 1
1050 NEXT F
1060 PRINT A "=";
1070 DIM B(C)
1080 PRINT B(A(A));
1090 NEXT G
1100 INPUT B(D) Fortsetzung >>
■■ U*M tW ß §ü_ß_ß?ß■U*M tW ß §ü_ßU