Network Working Group Robert T. Braden Request for Comments: 390 UCLA/CCM NIC: 11582 September 12, 1972
[Page 1]
[Page 2]
0001 1 FORMAT(' ENTER A') 0002 2 FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3) 0003 3 FORMAT(F10.3) 0004 100 WRITE(6,1) 0005 READ(5,3) A 0006 B=SQRT(A) 0007 WRITE(6,2) A, B 0008 GO TO 100 0009 END 1 FORTRAN IV G LEVEL 20 MAIN DATE=72241
[Page 3]
[ This RFC was put into machine readable form for entry ] [ into the online RFC archives by Marcus Meissner 1/98 ]
[Page 4]