38 lines
633 B
Text
38 lines
633 B
Text
10 LET HALVE=320
|
|
20 LET DOUBLE=340
|
|
30 LET EVEN=360
|
|
40 DIM L(20)
|
|
50 DIM R(20)
|
|
60 INPUT L(1)
|
|
70 INPUT R(1)
|
|
80 LET I=1
|
|
90 PRINT L(1),R(1)
|
|
100 IF L(I)=1 THEN GOTO 200
|
|
110 LET I=I+1
|
|
120 IF I>20 THEN STOP
|
|
130 LET X=L(I-1)
|
|
140 GOSUB HALVE
|
|
150 LET L(I)=Y
|
|
160 LET X=R(I-1)
|
|
170 GOSUB DOUBLE
|
|
180 LET R(I)=Y
|
|
190 GOTO 90
|
|
200 FOR K=1 TO I
|
|
210 LET X=L(K)
|
|
220 GOSUB EVEN
|
|
230 IF NOT Y THEN GOTO 260
|
|
240 LET R(K)=0
|
|
250 PRINT AT K-1,16;" "
|
|
260 NEXT K
|
|
270 LET A=0
|
|
280 FOR K=1 TO I
|
|
290 LET A=A+R(K)
|
|
300 NEXT K
|
|
310 GOTO 380
|
|
320 LET Y=INT (X/2)
|
|
330 RETURN
|
|
340 LET Y=X*2
|
|
350 RETURN
|
|
360 LET Y=X/2=INT (X/2)
|
|
370 RETURN
|
|
380 PRINT AT I+1,16;A
|