5 lines
90 B
Forth
5 lines
90 B
Forth
X = 1
|
|
10 X = X*BASE
|
|
Y = X + 1
|
|
D = Y - X
|
|
IF (D .EQ. 1) GO TO 10
|