P189 189 ARD/ZDF Fr 03.01.86 21:04:11
05/09
8 2
~o4~oo4o4U5%~{4% U5j?}
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"
;: INPUT A
1160 IF A < 1 OR A > B GOTO 1170
1170 DIM A(B)
1180 A(F) = - A(F): FOR G = 1 TO C
1190 F/R D = 1 TO C
1200 PRINT "LAENGE DES STUECKES NR.!
;D;" ";
1210 IF E GOTO 1090 >>