K=0
1 INPUT N
WHILE N=99999
K=K+K
WEND
2 WRITE(6,*) K
STOP
END

>>1をFORTRANで要約するとこんな感じ?