22 lines
415 B
Text
22 lines
415 B
Text
x% = 17
|
|
y% = 34
|
|
|
|
REPEAT
|
|
IF NOT FNeven(x%) THEN
|
|
p% += y%
|
|
PRINT x%, y%
|
|
ELSE
|
|
PRINT x%, " ---"
|
|
ENDIF
|
|
x% = FNhalve(x%)
|
|
y% = FNdouble(y%)
|
|
UNTIL x% = 0
|
|
PRINT " " , " ==="
|
|
PRINT " " , p%
|
|
END
|
|
|
|
DEF FNdouble(A%) = A% * 2
|
|
|
|
DEF FNhalve(A%) = A% DIV 2
|
|
|
|
DEF FNeven(A%) = ((A% AND 1) = 0)
|