File: WERTE.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1
(Source file text)
C EINLESEPROGRAMM I=1 75 WRITE(4,77) 77 FORMAT(/1X,' DATENNR (FORMAT(X,I3)),0 = DATENENDE',T70,$) READ(4,70) IEND 70 FORMAT(I3) IF (IEND) 61,51,61 61 WRITE(4,71) 71 FORMAT(/1X,'T =',T8,$) READ(4,72) T 72 FORMAT(E16.9) WRITE(4,76) 76 FORMAT(/1X,'R= ',T8,$) READ(4,72) R WRITE(5,73) I,T,R 73 FORMAT(1X,I5,2E16.9) I=I+1 GOTO 75 51 I=0 T=1. R=1. WRITE(5,73) I,T,R END