FORTRAN RUN F70SAMPL $NO MULTIPLY DIVIDE F71SAMPL $OBJECT MACHINE SIZE # 15999 $REAL SIZE # 9 $INTEGER SIZE # 3 C RONALD MAK, JULY 14, 1970 ---MR. SERAPHIN C C FRENCH-ENGLISH TRANSLATOR #2 FOR THE 1401 C WRITTEN IN HONOR OF BASTILLE DAY C C LA MARSEILLAISE C INTEGER FCOUNT,ACOUNT,F,A,FSUM,ASUM DIMENSION FRENCH%49),ANGLO%49),FSONG%7),ASONG%7),FFMT%9),AFMT%9) DIMENSION SPEC%11),FCOUNT%49),ACOUNT%49),FMT%2) COMMON FMT,L DATA FFMT%1),AFMT%1)/1H%,1H%/ READ %1,1) SPEC 1 FORMAT %9A3,2A4) READ %1,2) %FCOUNT%I),FRENCH%I),ACOUNT%I),ANGLO%I),I#1,49) 2 FORMAT %2%8X,I2,1X,A10,19X)) WRITE %3,3) FRENCH 3 FORMAT %61X,11HVOCABULAIRE//%6X,8A15/)) WRITE %3,4) 4 FORMAT %1H1,58X,15HLA MARSEILLAISE/) DO 11 J#1,14 REWIND 4 DO 16 M#5,9 CALL FORM2%FFMT%M),4H ,1,0) 16 CALL FORM2%AFMT%M),4H ,1,0) READ %1,6) N,%FSONG%I),I#1,N) 6 FORMAT %I1,9X,7A10) FSUM#200 ASUM#200 DO 10 K#1,N DO 8 L#1,49 IF %FSONG%K)&2.0.EQ.FRENCH%L)&2.0) GO TO 9 8 CONTINUE 9 F#FCOUNT%L) A#ACOUNT%L) CALL FORM1%FSONG%K),F) CALL FORM1%ANGLO%L),A) FSUM#FSUM-F ASUM#ASUM-A CALL FORM2%FFMT%K&1),SPEC%F),1,FSUM) 10 CALL FORM2%AFMT%K&1),SPEC%A),1,ASUM) CALL FORM2%FFMT%N&2),777.,2,FSUM) CALL FORM2%AFMT%N&2),777.,2,ASUM) REWIND 4 READ %4,13) %FSONG%I),ASONG%I),I#1,N) 13 FORMAT %1X,A10,189X) REWIND 4 WRITE %4,FFMT) %FSONG%I),I#1,N) WRITE %4,AFMT) %ASONG%I),I#1,N) REWIND 4 READ %4,14) FSONG,ASONG 14 FORMAT %7A8,144X) 11 WRITE %3,15) FSONG,ASONG 15 FORMAT %2%10X,7A8)) STOP END FORTRAN RUN F70SAMPL $NO MULTIPLY DIVIDE F71SAMPL $OBJECT MACHINE SIZE # 15999 $REAL SIZE # 9 $INTEGER SIZE # 3 SUBROUTINE FORM1%WORD,N) DIMENSION FMT%2) COMMON FMT,L REWIND 5 NF#12-N IF %L.EQ.1 .OR. L.EQ.2) NF#10 NB#190-NF WRITE %5,1) NF,NB 1 FORMAT %1H%,I3,6HX,A10,,I4,2HX),184X) BACKSPACE 5 READ %5,2) FMT 2 FORMAT %2A9,182X) WRITE %4,FMT) WORD RETURN END FORTRAN RUN $NO MULTIPLY DIVIDE $OBJECT MACHINE SIZE # 15999 $REAL SIZE # 9 $INTEGER SIZE # 3 SUBROUTINE FORM2%FORM,SPEC,N,K) DIMENSION FMT%2) COMMON FMT REWIND 5 GO TO %1,3),N 1 WRITE %5,2) SPEC 2 FORMAT %A4,196X) BACKSPACE 5 READ %5,2) FORM RETURN 3 WRITE %5,4) K 4 FORMAT %I4,2HX),194X) BACKSPACE 5 READ %5,5) FORM 5 FORMAT %A6,194X) RETURN END WORK1 ASGN TAPE UNIT 1 WORK2 ASGN TAPE UNIT 2 LOADER RUN $TAPE SUBROUTINE $NO NAME MAP $EXECUTION A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11, 01 . 01 . 01 , 01 , 08 ABREUVE 09 DRENCHES 07 ALLONS 10 LET US GO 06 ARMES 05 ARMS 07 ARRIVE 08 ARRIVED 04 AUX 07 TO THE 11 BATAILLONS 11 BATTALIONS 05 BRAS 05 ARMS 10 CAMPAGNES 07 FIELDS 04 CES 06 THESE 09 CITOYENS 09 CITIZENS 10 COMPAGNES 11 COMPANIONS 07 CONTRE 08 AGAINST 05 DANS 03 IN 03 DE 03 OF 08 EGORGER 11 TO BUTCHER 08 ENFANTS 09 CHILDREN 09 ENTENDEZ 05 HEAR 04 EST 03 IS 09 ETENDARD 05 FLAG 08 FEROCES 10 FEROCIOUS 05 FILS 05 SONS 07 FORMEZ 05 FORM 07 GLOIRE 06 GLORY 04 ILS 05 THEY 06 IMPUR 07 IMPURE 05 JOUR 04 DAY 07 JUSQUE 06 RIGHT 03 L* 04 THE 03 LA 04 THE 03 LE 04 THE 04 LES 04 THE 05 LEVE 07 RAISED 09 MARCHONS 08 FORWARD 06 MUGIR 05 ROAR 04 NOS 04 OUR 05 NOUS 03 US 07 PATRIE 07 NATION 04 QU* 05 THAT 05 SANG 06 BLOOD 09 SANGLANT 07 BLOODY 08 SILLONS 08 FURROWS 08 SOLDATS 09 SOLDIERS 09 TYRANNIE 08 TYRANNY 03 UN 02 A 09 VIENNENT 05 COME 04 VOS 05 YOUR 06 -VOUS 07 DO YOU 7 ALLONS , ENFANTS DE LA PATRIE , 7 LE JOUR DE GLOIRE EST ARRIVE , 7 CONTRE NOUS , DE LA TYRANNIE , 6 L* ETENDARD SANGLANT EST LEVE , 6 L* ETENDARD SANGLANT EST LEVE . 7 ENTENDEZ -VOUS , DANS LES CAMPAGNES , 5 MUGIR CES FEROCES SOLDATS . 7 ILS VIENNENT JUSQUE DANS NOS BRAS , 7 EGORGER NOS FILS , NOS COMPAGNES . 5 AUX ARMES , CITOYENS , 4 FORMEZ VOS BATAILLONS. 4 MARCHONS , MARCHONS , 4 QU* UN SANG IMPUR 4 ABREUVE NOS SILLONS . FORTRAN INIT