|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3048 (0xbe8)
Types: s3xseg
Names: »SSAMPLE«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SSAMPLE«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SSAMPLE«
*PROCESS MAP
PROGRAM SAMPLE
C ********************************************************************00040000
C * *00040400
C * THIS PROGRAM IS A TEST CASE DESIGNED TO VERIFY THAT THE S/3 *00041200
C * FORTRAN IV COMPILER AND LIBRARY HAVE BEEN PROPERLY INSTALLED IN *00041600
C * YOUR SYSTEM. THE REQUIRED OCL STATEMENTS ARE INCLUDED WITHIN *00041700
C * THE CALLED PROCEEDURES. *00041800
C * *00041900
C * THE PROGRAM GENERATES A TABLE OF BINOMIAL COEFFICIENTS WHICH IS *00056400
C * THEN PRINTED ON THE PRINTER. ALL DATA IS PROGRAM GENERATED. *00066400
C * *00070400
C * *00071000
C * THE OUTPUT SHOULD BE --- *00081000
C * *00083000
C * I----------------------------------------------------------I *00085000
C * I K I *00085400
C * I----I----------------------------------------------------------I *00090200
C * I N I 1 2 3 4 5 6 7 8 9 10 I *00092200
C * I----I----------------------------------------------------------I *00094200
C * I 1 I 1 0 0 0 0 0 0 0 0 0 I *00094600
C * I 2 I 2 1 0 0 0 0 0 0 0 0 I *00095000
C * I 3 I 3 3 1 0 0 0 0 0 0 0 I *00095100
C * I 4 I 4 6 4 1 0 0 0 0 0 0 I *00108800
C * I 5 I 5 10 10 5 1 0 0 0 0 0 I *00118800
C * I 6 I 6 15 20 15 6 1 0 0 0 0 I *00120800
C * I 7 I 7 21 35 35 21 7 1 0 0 0 I *00121200
C * I 8 I 8 28 56 70 56 28 8 1 0 0 I *00121600
C * I 9 I 9 36 84 126 126 84 36 9 1 0 I *00122000
C * I 10 I 10 45 120 210 252 210 120 45 10 1 I *00122400
C * I 11 I 11 55 165 330 462 462 330 165 55 11 I *00122500
C * I 12 I 12 66 220 495 792 924 792 495 220 66 I *00127100
C * I 13 I 13 78 286 715 1287 1716 1716 1287 715 286 I *00129100
C * I 14 I 14 91 364 1001 2002 3003 3432 3003 2002 1001 I *00131100
C * I 15 I 15 105 455 1365 3003 5005 6435 6435 5005 3003 I *00131500
C * I 16 I 16 120 560 1820 4368 8008 11440 12870 11440 8008 I *00131600
C * I 17 I 17 136 680 2380 6188 12376 19448 24310 24310 19448 I *00136200
C * I 18 I 18 153 816 3060 8568 18564 31824 43758 48620 43758 I *00138200
C * I 19 I 19 171 969 3876 11624 27132 50388 75582 92378 92378 I *00140200
C * I 20 I 20 190 1140 4845 15504 38760 77520 125970 167960 184756 I *00140600
C * I----I----------------------------------------------------------I *00140700
C * *00152500
C ********************************************************************00162500
DIMENSION NBYK(20,10) 00164600
INTEGER OUT 00176400
DATA OUT/3/ 6
DO 10 K=1,10 00200000
NBYK(1,K) = K 00250000
10 CONTINUE 00300000
WRITE(OUT,2) 00400006
WRITE(OUT,3) (NBYK(1,K),K=1,10) 00450000
DO 30 N=1,20 00500000
DO 20 K=1,10 00550000
NBYK(N,K) = KBINCO(N,K) 00600000
20 CONTINUE 00650000
WRITE(OUT,4) N,(NBYK(N,K),K=1,10) 00700000
30 CONTINUE 00750000
WRITE(OUT,5) 00800000
STOP 00850000
2 FORMAT('1 S/3 FORTRAN IV SAMPLE TEST CASE'///////1X,'TEST INPUT,00900006
1FOR S/3 SAMPLE PROGRAM'/////) 00910006
3 FORMAT(T7,'I',57('-'),'I'/T7,'I',T35,'K',T65,'I'/T2,'I----I', 00950000
* 57('-'),'I'/T2,'I N I',I2,I4,2I5,3I6,3I7,' I'/T2, 01000000
* 'I----I',57('-'),'I') 01050000
4 FORMAT(' I',I3,' I',I3,I4,2I5,3I6,3I7,' I') 01100000
5 FORMAT(' I----I',57('-'),'I') 01150000
END 01200000