9 lines
167 B
Text
9 lines
167 B
Text
1 DO i = 1, 1E20 ! "forever"
|
|
a = INT( RAN(10, 10) )
|
|
WRITE(name) a
|
|
IF( a == 10) GOTO 10
|
|
b = INT( RAN(10, 10) )
|
|
WRITE(name) b
|
|
ENDDO
|
|
10
|
|
END
|