ID#:              C00390I303300 
                                         RSIC#               CCC 390
TRANSMITTED ON 1 DS/HD DISKETTE          CODE PKG NAME:      FOCUS
                                         COMPUTER:           IBM 3033
    PAGE 1 OF 2                          PACKAGED:           10/03/80
                                         MOST RECENT UPDATE:
                                         DOWNLOADED TO DISKETTE: 08/92
************************************************************************
DESCRIPTION                                      MODE    Number of bytes
************************************************************************
1.  README.RSI - RSIC information                ASCII          624
2.  FOCUS.EXE - compressed file containing       BINARY      272574
    the list below. To decompress, place
    diskette in drive and type FOCUS.

************************************************************************
                                         MODE      LOGICAL    DCB
DESCRIPTION                                        RECORDS PARAMETERS
************************************************************************

F01 FOCUS SOURCE FORTRAN IV              ASCII      2197  FB 3120  80
F02 ETOF SORCE FORTRAN IV                  |        2229   |   |   |
F03 ADX SOURCE FORTRAN IV                  |        1834   |   |   |
F04 ENDF/B RETRIEVAL ROUTINES FORTRAN IV   |        1729   |   |   |
F05 ICLOCK SOURCE ASSEMBLER LANGUAGE       |          92   |   |   |
F06 DATUM SOURCE ASSEMBLER LANGUAGE        |          77   |   |   |
F07 XEDIT SOURCE FORTRAN IV                |         307   |   |   |
F08 RIGEL SOURCE FORTRAN IV                |        2003   |   |   |
F09 SPHERE GEOM MODULE FORTRAN IV          |         178   |   |   |
F10 SLAB GEOM MODULE FORTRAN IV            |         254   |   |   |
F11 CYLINDER GEOM MODULE FORTRAN IV        |         440   |   |   |
F12 GENERAL GEOM MODULE FORTRAN IV         |        1127   |   |   |
F13 AND/IAND SOURCE ASSEMBLER LANGUAGE     |          19   |   |   |
F14 LOC SOURCE ASSEMBLER LANGUAGE          |           6   |   |   |
F15 IAND/AND SOURCE ASSEMBLER LANGUAGE     |          19   |   |   |
F16 IOR/OR SOURCE ASSEMBLER LANGUAGE       |          19   |   |   |
F17 IXCOR/XCOR SOURCE ASSEMBLER LANGUAGE   |          19   |   |   |
F18 ICOMPL/COMPL SOURCE ASSEMBLER LANGUAGE |          18   |   |   |
F19 RANDOM NUMBER MODULES ASSEMBLER LANG.  |         485   |   |   |
F20 RMIDSQ RANDOM NUMBER GEN.              |          52   |   |   |
F21 USER ROUTINES FOR SAMPLE PROB1         |         154   |   |   |
    FORTRAN IV
F22 USER ROUTINES FOR SAMPLE PROB2         |          57   |   |   |
    FORTRAN IV
F23 USER ROUTINES FOR SAMPLE PROB3         |         108   |   |   |
F24 ENDF/B FILE FOR SAMPLE PROB            |         127   |   |   |
F25 ADX SAMPLE INPUT                       |           8   |   |   |
F26 RIGEL SAMPLE INPUT                     |           9   |   |   |
F27 ENDF/B WITH ADJOINT DATA FOR SP        |         385   |   |   |
F28 ETOF SAMPLE INPUT PROB1                |           5   |   |   |
F29 ETOF SAMPLE INPUT PROB2                |          13   |   |   |
F30 FOCUS SAMPLE INPUT PROB1               |          30   |   |   |
F31 FOCUS SAMPLE INPUT PROB2               |          30   |   |   |
F32 FOCUS SAMPLE INPUT PROB3               |          30   |   |   |
F33 ADX CARD OUTPUT (LOG UNIT 21)          |          34   |   |   |
F34 ADX CARD OUTPUT (LOG UNIT 22)          |          35   |   |   |
F35 ADX CARD OUTPUT (LOG UNIT 23)          |         211   |   |   |
F36 ADX PRINTED OUTPUT                     |          57   | 2394 133
F37 RIGEL PRINTED OUTPUT                   |          50   |   |   |
F38 ETOF PRINTED OUTPUT PROB1              |          37   |   |   |
F39 ETOF PRINTED OUTPUT PROB2              |          58   |   |   |

                                         RSIC#               CCC 390
TRANSMITTED ON 1 DS/HD DISKETTE          CODE PKG NAME:      FOCUS
                                         COMPUTER:           IBM 3033
      PAGE 2 OF 2                        PACKAGED:           10/03/80
                                         MOST RECENT UPDATE:
************************************************************************
                                         MODE      LOGICAL    DCB
DESCRIPTION                                        RECORDS PARAMETERS
************************************************************************

F40 XEDIT PRINTED OUTPUT PROB1           ASCII       138  FB 2394 133
F41 XEDIT PRINTED OUTPUT PROB2             |         346   |   |   |
F42 FOCUS PRINTED OUTPUT PROB1             |         353   |   |   |
F43 FOCUS PRINTED OUTPUT PROB2             |         254   |   |   |
F44 FOCUS PRINTED OUTPUT PROB3             |         400   |   |   |
F45 FOCUS JCL & INFORMATION                |         500   | 3120  80
                                                  ******
                                        TOTAL      16533


IT IS PRESUMED THAT ETOF (OF FOCUS) WILL READ ENDF/B-IV DATA.

Enclosed is the output edit which lists the first few records of each
file and the total number of records for each file.
************************************************************************