PiDP-8/I Software

Artifact 563fbd105d524390ae8234cfeffb3d48961ce70f:

• File examples/pep001-f4.ft — part of check-in [1dde81a5e4] at 2017-12-07 18:15:36 on branch trunk — Added FORTRAN II and FORTRAN IV versions of PEP001, correpsonding to the versions described in the current version of the PEP001.FT wiki article. (user: tangent size: 149) [more...]

0000: 20 20 20 20 20 20 44 4f 20 31 30 20 49 20 3d 20        DO 10 I = 
0010: 33 2c 20 39 39 39 0a 31 30 20 20 20 20 49 46 20  3, 999.10    IF 
0020: 28 4d 4f 44 28 49 2c 20 33 29 20 2e 45 51 2e 20  (MOD(I, 3) .EQ. 
0030: 30 20 2e 4f 52 2e 20 4d 4f 44 28 49 2c 20 35 29  0 .OR. MOD(I, 5)
0040: 20 2e 45 51 2e 20 30 29 20 49 54 4f 54 41 4c 20   .EQ. 0) ITOTAL 
0050: 3d 20 49 54 4f 54 41 4c 20 2b 20 49 0a 20 20 20  = ITOTAL + I.   
0060: 20 20 20 57 52 49 54 45 20 28 34 2c 32 30 29 20     WRITE (4,20) 
0070: 49 54 4f 54 41 4c 0a 32 30 20 20 20 20 46 4f 52  ITOTAL.20    FOR
0080: 4d 41 54 20 28 27 20 54 4f 54 41 4c 3a 20 27 2c  MAT (' TOTAL: ',
0090: 20 49 36 29 0a                                    I6).