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