P189 189 ARD/ZDF Do 26.12.85 20:54:12
05/09
~o4 ~o4 j5
~o4~oo4o4j5%~{4% j5j?}
o~%o~%jj5~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BASIC-Kopfnuß
"GLEISLÄNGENBERECHNUNG"
1110 FOR F = B TO 1 STEP - 1: IF A(F)
> = 0 THEN 1150
1120 E = 0
1130 A(B(D)) = - D
1140 A = A - B(A(A))
1150 PRINT : PRINT "GEWUENSCHTE LAENGE"
■■ U*M tW ß §ü_ß_ß?ß■U*M tW ß §ü_ßU
1160 IF A < 1 OR A > B GOTO 1170
1170 DIM AXB)
1180 A(F) = - A(F): FOR G = 1 TO C
1190 FOR D = 1 TO C
1200 PRINT "LAENGE DES STUECKES NR."
;D;" ";
1210 IF E GOTO 1090 >>
■■ *U2utt (■ t? § *U2utt (■ t? *U