主题:求高手转换老BASIC程序
现有程序如下:请高手转成不用GOTO的。
10 b = b + 1: IF b > 3 GOTO 70
IF a(z) + b > 7 GOTO 10
z = z + 1: a(z) = a(z - 1) + b
IF a(z) < 7 THEN b = 0: GOTO 10
FOR i = 1 TO z: PRINT a(i) - a(i - 1); : NEXT
s = s + 1: PRINT "_____"; s
70 z = z - 1: IF z < 0 THEN PRINT s: END
b = a(z + 1) - a(z): GOTO 10
10 b = b + 1: IF b > 3 GOTO 70
IF a(z) + b > 7 GOTO 10
z = z + 1: a(z) = a(z - 1) + b
IF a(z) < 7 THEN b = 0: GOTO 10
FOR i = 1 TO z: PRINT a(i) - a(i - 1); : NEXT
s = s + 1: PRINT "_____"; s
70 z = z - 1: IF z < 0 THEN PRINT s: END
b = a(z + 1) - a(z): GOTO 10