A11104 T3703^

NBSIR 79-1746

|

| Mathematical Modeling and

New Experiments on Durability

of Paper: A Progress Report

Jeffrey T. Fong

Mathematical Analysis Division

Center for Applied Mathematics

National Engineering Laboratory

Ivan K. Fong

Seneca Valley High School

Germantown, Maryland 20767

Elizabeth E. Toth, and Edmond L. Graminski

Polymer Science and Standards Division

Center for Materials Science

National Measurement Laboratory

April 11, 1979

Progress Report Covering the Period

February 1, 1977 - September 30, 1978

Note: This Document has been prepared for the use of the Bureau of Engraving and Printing. Responsibility for its further use

rests with that agency.

Prepared for Bureau of Engraving and Printing

U.S. Department of the Treasury

->hington, D.C. 20401

-GC

100

,U56

79-1746

NBSIR 79-1746

MATHEMATICAL MODELING AND

NEW EXPERIMENTS ON DURABILITY

OF PAPER: A PROGRESS REPORT

Jeffrey T. Fong

Mathematical Analysis Division

Center for Applied Mathematics

National Engineering Laboratory

Ivan K. Fong

Seneca Valley High School

Germantown, Maryland 20767

Elizabeth E. Toth, and Edmond L. Graminski

Polymer Science and Standards Division

Center for Materials Science

National Measurement Laboratory

April 11, 1979

Progress Report Covering the Period

February 1, 1977 - September 30, 1978

Note This Document has been prepared for the use of the Bureau of Engraving and Printing. Responsibility for its further use

rests with that agency.

Prepared for Bureau of Engraving and Printing

U.S. Department of the Treasury

Washington, D.C. 20401

U.S. DEPARTMENT OF COMMERCE, Juanita M. Kreps, Secretary

Jordan J. Baruch, Assistant Secretary for Science and Technology

NATIONAL BUREAU OF STANDARDS, Ernest Ambler, Director
"\
tic

1

2

3

4

5

6

7

8

9

10

11

12

1

3

5

7

9

11

13

15

15

17

19

1

CONTENTS

Executive Summary • • * • iii

Foreword . . iv

Scientific Data and Mathematical .Modeling

Computer as an Intelligent File Manager

Design of a Scientific Data Filing System

NBS Paper Physics Data File - An Example of

System Implementation

Step 1. Conversion of Reports into a Database

Step 2. Search for Source Tape from the Database .

Step 3. Conversion of Report into Data Tape ..

Step 4. Retrieval of Data from Source Tape

A Simple-Minded Cost-Benefit Analysis

Other Work in Progress

Concluding Remarks

References
11

Appendix Page

I NBS Paper Physics Data File - List of Reports .. A.l

II A User's Manual for Accessing the NBS Paper

Physics Data File A. 4

III NBS Paper Physics Data File - List of Words for

Searchable Fields A. 9

IV Hovr to Create a Data File via an NBS Experimental

Data Base System A. 13

V NBS Paper Physics Data File - Sample Output for

Individual Tape A. 17

VI NBS Paper Physics Data Operating System - Listing

of Program in BASIC A. 29

Disclaimer

The publication of the trade names of ecruipments used in this

project implies neither an endorsement nor a disapproval of

these equipments for any purposes as described in this report.
Ill

EXECUTIVE SUMMARY

As a necessary step towards the modeling of the microstructural

changes of paper due to environmental and mechanical loadings, a computer-aided data file for a collection of 47 NBS reports (1953-

1976) is created. Using an in-house experimental database management

system (COLLIN) as implemented on an NBS computer (DEC PDP-10) , a minidatabank for the 47 technical reports is set up with the following

searchable parameters: (a) report number, (b) author's name,

(c) keyword, (d) test sample label, and (e) primary test variable.

Each search will yield a complete record containing all the searchable

information as well as (f) title of report, (g) citation, (h) the

abstract., and (i) the so-called secondary test variable. To obtain

quantitative information from any specific report for some combinations of sample labels and test variables for which experimental data

were reported, a data tape is prepared and implemented for retrieval

on a leased mini-computer graphical system (Tektronix 4051 with

printer 4641 and plotter 4662) . The operating system using the

computer language BASIC is general enough to assist any scientist

or engineer to create a personal data file at a reasonable cost.

It is clearly demonstrated that no prior training in the use of a computer is necessary for the implementation of this project.

During this reporting period, experiments on relating the

quantity of water in the cellulose walls of pulp fibers to the

cross-sectional morphology of fibers in paper were in progress.

A brief discussion of this aspect of work is included in this report.

Keywords

Computer graphics; data base management; data retrieval; durability;

fatigue; interactive system; mathematical modeling; paper; paper fiber;

report retrieval; scientific data.
IV

FOREWORD

For more than twenty-five years, the Bureau of Engraving and

Printing (U.S. Department of Treasury) and the National Bureau of

Standards (U.S. Department of Commerce) collaborated in a unique

research program on the improvement of the durability of the U.S.

currency and stamp papers. A total of about fifty technical reports,

some containing sensitive information, was generated at NBS for

dissemination on a need-to-know basis.

In the spring of 1975, Dr. E. L. Graminski, the project leader

of that NBS paper physics program and a co-author of this report,

requested my assistance in formulating a conceptual and quantitative

predictive model on the degradation mechanisms of currency paper.

The conceptual model was subsequently formulated in an NBS internal

report (NBSIR 76-1062) published in April 1976. An abbreviated

version of that report appeared in a Tappi journal ( Tappi , 60 (1977) , pp. 156-159) in January 1977.

The second phase of Dr. Graminski' s request remains to be

completed. A quantitative predictive model, sometimes known as a mathematical model, cannot be formulated without the availability of

a minimal quantity of well-documented data. In the case of the U.S.

currency and stamp papers, we are fortunate that most of the data

available have been generated at NBS. However, two questions on

the nature of the available data need to be answered first:

Question 1 Are the available data we 11 -documented for a systematic study of the macroscopic and microscopic

phenomena of the fatigue of currency paper?

Question 2 Are the available data appropriate for guiding and

validating the formulation of a predictive model?

Unfortunately, both Dr. Graminski and I came to the conclusion

that the answers to both questions are in the negative. It is not the

purpose of this report to go into the details as to why we reached

that conclusion, but we did arrive at a second conclusion which led

to the initiation of this project, namely, the collection of NBS

Paper Physics Reports can be used to fill partially a mini-databank

for completion at some future date. A collaborative project between

Dr. Graminski 's group and mine was thus initiated in February 1977 with

the specific goal of using a mini-computer system to manage and prepare

the NBS Paper Physics Data File for mathematical modeling.
V

The use of a computer system to manage and retrieve scientific

data has been known since the early 1950's when the second-generation

computers became available. As a matter of fact, NBS has been a leader

in this field through its numerous centers of critically evaluated

data and the 15-year-old Office of Standard Reference Data. Our

primary goal in this project is, therefore, not to show that a database

for paper physics can be established on a reasonably efficient computer

system, but rather to demonstrate that any scientist not necessarily

proficient in computer usage can create a computer-aided data file

for his or her personal use at a reasonable cost. If our work is

favorably received, we may also achieve a secondary goal, i.e., to

show the technical community the benefit of having a rapid and

reliable means of data communication among scientists who choose to

report their findings on computer tapes, disks, or other data-storage

devices

To emphasize the point that a prior knowledge of computer usage

is not a prerequisite, I recruited a high school student (Ivan Fong,

the second author) , and a laboratory technician (Elizabeth Toth, the

third author) to implement the file design on two computer systems.

The computer software and the subsequent completion of the data file

reported here are largely the work of these two authors. In addition

we are most grateful to Mr. Joseph Collica, the developer of the

software COLLIN, and Mrs. Elizabeth Fong, my wife and a computer

scientist, both with the NBS Institute for Computer Sciences and

Technology, for their expert assistance in the successful completion

of this project.

During this reporting period. Dr. E. L. Graminski and his co- workers also carried out some experimental work on predicting the

durability of paper from morphological information on the paper fibers.

A brief discussion of this experimental work which is still in progress

is included in this report under Section 10 entitled "Other Work in

Progress .

Jeffrey T. Fong

February 1979.
».
1

Mathematical Modeling and New Experiments on Durability of Paper:

A Progress Report

J. T. Fong, I. K. Fong, E. E. Toth, and E. L. Graminski

1 . Scientific Data and Mathematical Modeling

* The work reported herein is a continuation of a study on the durability of paper that was last reported in 1976 [1]^. It was shown in

2 that report that the degradation of a large class of paper might be

conceptually attributed to the change in the strength and morpholoay

of microscopic elements such as fibers and fiber-fiber connections when

paper specimens were subjected to repetitive loadinqs under a variety of

environmental conditions. It was proposed that a self-consistent

microscopic degradation model of paper be used to explain the loss

of modulus due to repetitive flexing if the appropriate data on the

microscopic and the macroscopic scales of observations were available

to guide the development of such a model.

Unfortunately, progress on both the strength and the morphology

aspects of this special topic of research lagqed far behind what was anticipated in 1976. For example, Graminski and Kirsch [3,4,5]

reported some progress in measuring the morpholoay of paper through

some semi-automatic fiber-tracing and automatic scanning algorithms.

Much, however, remains to be done to develop the technique to the point

Figure in brackets denotes a reference listed at the end of this report.

2 A shorter version of the report has since appeared in a Tappi journal.

See [2] .
2

where statistically meaningful information could be used to

assist the modeling effort. There was even less progress in the area

of single-fiber strength characterization, and it is not at all

surprising that the totality of scientific data available to push the

modeling effort beyond the initial conceptual stage [1] is still

insufficient today as it was in 1976.

Since paper usage is widespread and paper-making is energyintensive, research on the durability of paper is expected to continue

in spite of the current lack of advances in both experimental and

theoretical work. At a recent symposium on fatigue mechanisms of

metals, polymers, and composites, Fong [6] introduced three microscopic

levels (10 to 10 ^m; 10 ^ to 10 ^m; 10 6 to 10

-4

m) and the concept

of "nested modeling" to launch a systematic approach to fatigue

mechanism research. This implies that there exists a need not only

of data generation as traditionally understood by all material

scientists and engineers, but also of data management to handle the

large volume of the microscopic information so generated. Since the

microstructure of paper is relatively simple (characteristic lengths

-6 -4 varying between 10 and 10 m) , it appeared that the problem of

implementing a computer-assisted data file for modeling the mechanical

behavior of paper is not only feasible, but also most desirable as the logical step prior to a full-scale modeling effort.

The purpose of this report is to document an attempt to solve the

data management aspect of the technical problem i.e., to improve the

durability of paper. Based on a collection of 47 technical reports

issued by the National Bureau of Standards (NBS) to the Bureau of
3

Engraving and Printing (BEP) during a twenty-three year period, a computer-assisted data file, known as the NBS Paper Physics Data File,

is created for retrieval on a mini-computer (Tektronix 4051) in

collaboration with a medium-size computer (DEC-10) both located at

NBS. Following a complete description of the file design and some sample output, a simple-minded cost-benefit analysis is presented to

indicate the usefulness of this small-scale management system for

scientific data.^

2 . Computer as an Intelligent File Manager

The use of a computer to perform either numerical computation or non-numeric information storage and retrieval has been known for a long

time. In the early years of computing, the computation-oriented and the

information-oriented users considered the computer as two separate

tools, namely, it is either a super-calculator or a giant file

system. In the case of a super-calculator, the user manipulates the

data according to precise mathematical rules and stores the numerical

information either on disks or tapes for future uses. In the case of

a giant file system, the user takes advantage of the memory devices

such as disks and magnetic tapes for storage of textual information

in the form of retrievable records. In both cases, the speed and the

memory-size of a computer are crucial in enhancing the Dower

of this labor-saving device.

During this reporting period, experiments on relating the quantity of

water in the cellulose walls of pulp fibers to the cross-sectional

morphology of fibers in paper were in progress. Since there is no significant result worthy of reporting, we choose to include in this

report under Section 10 a brief discussion of this aspect of work

even though the data management aspect and the experimental aspect

of the same technical problem are at this stage largely unconnected.
4

Beginning in the late fifties

4

, the information-oriented users

succeeded in developing "generalized" routines capable of sorting any

file regardless of its data content. Clearly, the price of generalized

processing is a reduction in operating efficiency, but as computer

technology continued to evolve with decreasing price/performance ratios,

the issue of cost tradeoff for adopting or rejecting the so-called

data base management svstem became largely academic during the last

two decades. Computerized data banks using sophisticated data base

management systems are todav commonplace in business, industry,

government, and research organizations^ A different type of question

has evolved: Is the computer intelligent enouqh to be "discreet" about

a certain type of sensitive information and "frugal" about the retention

of essential information by discarding "non-essential" data?

The answer is, of course, no, or, at least, not yet. The fundamental reason lies in the nature of a computer which decomposes any

issue or task into a finite number of sub-elements, and -For every

finite decomposition rule prescribed by a human being it is usually

possible to find a problem in real life that defies a neat classfication. This is particularly true in an information-loaded activity

where the nature of the information is such that it not only changes

rapidly but also is coupled with the way new information is generated.

The mathematical modeling of the degradation of paper to improve its

durability is such an activity because it needs preliminarv test data

and generates new predictions which lead to new experimental programs

and a totally new set of test information. The challenge before us is

4 See, e.g., McGee [7].

5 See, e.g.. Fry and Sibley [8], Fong et al [9], Wetzler [10], and

Darrow and Belilove [11]
5

to endow the data base management svstem with as much analytic capability

as we can think of within a reasonable and appropriate financial framework. During the last few years, we have seen many attempts to meet

this challenge, and depending on the nature of the problem in hand,

the solutions will differ from computer to computer and from problem to

problem. 6 But the overall objectives of these attempts are the same,

i.e., how to make the computer "intelligent" enough to assist the

human user in storing, retrieving, critically evaluating, updating,

analyzing, and to some extent sharing with fellow-users, a compatible

body of information.

The main result of this report is to show that for a reasonable

cost, both in dollars and in time, a scientist can create a data file

with the aid of a small-size computing system to meet almost all of

his/her data needs including the need to analyze, interpret, and

share with others both raw and processed information. It is assumed

in this report that the scientist is mathematicallv literate, but

has had no background in working with a computer as a systems programmer.

3 . Design of a Scientific Data Filing System

A data filing system differs from a data bank in the sense that

the former need not cover all the possible data items in any specialized

field whereas the latter does. A data filing system is, therefore, a more personalized system, and needs only a small-size computer to

house the operating system. On the other hand, a data filing system

should have as much computing power as a scientist can muster with all

6 See, e.g., Ruff et al [12], Vander Molen and Gerstenberg [13],

Wagman et al [14] , and Mendelssohn [15]
6

the desirable output features such as plotting and printing. This

means the small-size computer selected for this purpose should possess

two features: (a) it can compute/ and (b) it can act as a terminal

with access to larger computers via telephone links. Because the

data filing system is designed to be personalized, the small-size

computer should have a screen to permit instant user/computer interaction.

In July 1977, a computer-assisted graphical system with the

appropriate output devices and data communication interface components

was leased from a computer manufacturer on a quarterly basis to

implement this design. The configuration of the system is given

schematically in Fig. 1.

INPUT DEVICES:

Computer (s)

OUTPUT DEVICES:

* indicates the model

no. of a Tektronix

component

Fig. 1 The configuration of a scientific

data filing system.
7

For a given collection of technical reports, we design a scientific data filing system with the following two distinct retrieval

features

(a) Report Retrieval

Most work done in this field relies on retrieval by author

or keywords. For a scientific data filing system, it would be

most desirable to go one step further, i.e. to retrieve one or more reports via sample labels and test variables. This allows

the scientist to correlate information from several reports on

the same sample and test variable.

(b) Data Retrieval

Data desired by the scientist should be retrieved not only

in tabular forms on the printer, but also on report-quality

drawings from the plotter for visual examination. Furthermore,

it is desirable to couple the data storage device with the computer such that further mathematical analysis can be made on the

data to generate new plots.

Both features are needed by the scientist to critically evaluate the

data as a prerequisite for mathematical modeling.

4 . NBS Paper Physics Data File - An Example of System Implementation

With the arrival of the leased Tektronix system in July 1977, we began the actual work of implementing the filing system design by

creating an NBS Paper Physics Data File consisting of 47 reports

7 to the Bureau of Engraving and Printing over a span of 23 years .

7 See Appendix I for a complete listing of the 47 reports.
8

To prove that the task of implementation can be done by a scientist

without a background in systems programming, the second and third

authors (I. Fong, and E. Toth) were recruited to join the project

team with I. Fong handling the data retrieval and E. Toth the report

retrieval features of the filing system. We further enlisted the

assistance of two computer specialists (J. Collica and E. Fong) at

the NBS Institute for Computer Sciences and Technology to activate

g an experimental data base management system known as COLLIN. The

following assignment of responsibility was made:

Task Desiqner Supervisor

(a) Report Retrieval E. Toth E. Graminski

(b) Data Retrieval I . Fong J. Fong

I. Fong was also asked to furnish a list of sample labels and test

variables to E. Toth for implementing the report retrieval feature

of the filing system. The

handling the two tasks are

computer hardware and

as follows:

software for

Task Hardware Software

(a) Report Retrieval Tektronix 4051

Tektronix 4641

Tektronix 4931

Telephone

DEC-10

COLLIN8

(b) Data Retrieval Tektronix 4051

Tektronix tapes

Tektronix 4641

Tektronix 4662

BASIC 9 and

NBS Paper Physics

Data Operating

System (Appendix VI)

For a complete description of COLLIN, see Appendix IV.

9 For a complete description of the Graphic System BASIC language as implemented on the Tektronix 4051, see reference [16].
9

To assist us in estimating the effort spent bv I. Fong and E. Toth

in implementing the filing system, the following schedule was set up

and carried out by both of them during 1977 and 1978:

Name Subtasks in 1977 Subtasks in 1978 Total 10

E. Toth

(half-time)

Step 1 (Feb - July)

Conversion of Reports

into a database.

Step 2 (Aug - Sept)

Search for Source

Tape from database.

3 p.m.

1 p.m.

I . Fong

(full-time)

Step 3 (July - Aug)

Conversion of Report

into Data Tape.

Step 4 (July -Aug)

Retrieval of Data

from Source Tape.

2 p.m.

2 p.m.

Details of each of the four steps outlined in the above table are given in the next four sections.

5 . Step 1. Conversion of Reports into a Database

To convert a collection of technical reports into a database, it

is necessary to characterize the content of each report by a finite

set of descriptors and tables of test data. In addition to the usual

descriptors such as report number, title, author(s), abstract, and

keywords, three new set of descriptors are introduced:

10 The total effort by each person is given in person-months or p.m. as indicated.
10

(a) Sample Labels, to be denoted by Si, P2,

(b) Primary Test Variables, to be denoted bv PI, P2,....

(c) Secondary Test Variables, to be denoted by A, B, etc.

For all practical purposes, all test data can be represented in the

form of either a single measurement for one or more sample labels,

or a series of measurements of the so-called primary test variable

as a funtion of the secondary test variable for some given sample

label. This allows the scientist to locate data point (s) of a similar

test for a class of sample descriptors in several reports for work

conducted over a good number of years. To implement this idea, we

set up three files in the experimental computer facility at NBS:

File

Name

Calling

Code

Searchable

Field

Non-Searchable

^ield

NBSPPF COLL2 NBS Number

Author

Kevwords

Title

Citation

PPFABS COLL3 NBS Number Abstract

PPFVAR COLL6 NBS Number

Sample Label

Primary Test

Secondary Test Var

Var

Following the instructions given in Appendix IV on the use of

the database management system COLLIN, the descriptors for all

47 reports for files NBSPPF and PPFABS , and those for three reports

(NBS Number 4509, 4664, and 4804) for file PP^VAP were entered into

the computer DEC-10 throuqh the Tektronix 4051 in its terminal modei^

As a check of the correctness of the file content, each calling code

A Texas Instrument Silent 700 was also used as a terminal for this

oroiect
11

upon execution will reveal its data definition to remind the user

what are and what are not searchable. For instance, the calling code

COLL 2 yields the following data definition for three searchable fields

and two non-searchable fields:

.EXECUTE COLL 2

LlMK'l L3~DIN'5 [LNKXCT COLLIN Evewrioul

WELCOME TO T>-E COLLIM DATA FA~E TYCTEM

YOU APE ACCEIllU* DATA BATE Mf lPPF MUMPER OF PECO?!'- IN DATA EA'E IS 47 MAX ROrriPLE RECORDS ARE 9*0

DP- POINTER IS 47

DEFINED 5 STORAGE 78

DATA DEFINITION FOLLOW'S MUMPER OF DATA C IELD2 SPACE T AREN BY DATA DEF NAME MBS NUNDEP

ALRHAMIJMERIC> MAME AUTHORALPHANUMERIC*

NAME TITLEALPHANUMERIC*

MAME CITATION

alphanumeric.

MAME KEYWORDS

alphanumeric,

12 CHARACTERS. 1

£0 CHARACTERS* 4 80 CHARACTERS. 2 80 CHARACTERS. 2

20 CHARACTERS. 9

OCCURRENCES, SEARCH

OCCURRENCES, SEARCH

OCCURRENCES, NON SEARCH

OCCURRENCES. NON SEARCH

OCCURRENCES. SEARCH

Due to lack of I. Fong's time to complete the project, the file

PPFVAR is currently complete only for three reports with the remaining

44 reports awaiting further implementation.

6 . Step 2. Search for Source Tape from Database

A user's manual for accessing the NBS Paper Physics Data File

through a terminal has been included in this report as Appendix II.

The aim of each search via any searchable fields^ fsuch as keywords,

sample labels, primary test variables, etc.) is to examine the

output record to see if it is indeed worthwhile to examine a specific

report for data retrieval. This step is entitled "search for source

tape" because we anticipate having each report converted into a tape

1 2 For lists of words for searchable fields, see Appendix III.
12

for retrieval and analysis. The following are sample outputs from

each of the three files established on the NBS computer DEC-10:

(a) A Typical Record in File NBSPPF under C0LL2

• •••ecoor oooo>'ooai

*»i°s nirse*

•AUTHOR •0RTH1NGTQN

•TITLEcrumpling endurance op European currency papers •citation

,MriS PROJECT 0703-20-3830 MATCH J1 # 1950 •KEYWORDS

CURPE-.'CY PAPERS

PHE/T? ST CRUMPLING NU»UER

•IP P£R M EABILITy

(b) A Typical Record in File PPFABS under COLL3

••RECORC 000000033

• N8S NU'PHR

NBS 9650 •ABSTRACI-PaRT I BCVt" H PUL VO-f T-ANt L4TICE3 nfPE EVaLUATFO AS POSSIBLE SIZING MATERIALS

FUR CURRENCY PATE*. ONLY ONE OF THE LAT ICES -AS LESS FLEXIOLE THAN ANIMAL Gl'/E INDICATING T-AT POLYURcTHAMfc mat BE BETTER SIZING MATERIALS

THAN AMJ>'»L GLlMC.EXTi’ACIK’N OF REGfenfo CuRt-ENCY r.ITH METHANOL

INDICATES That The *CC T ao*I OF POLAR materials COES NOT CONTRIBUTE

SIGNIFICANTLY TO TrtF. Lc TER I OR *T ION OF CANTILEVER ST I FFnESS . THE OURABIUI

AND PRINTAPILITY OF REGULAR r.HY-PwjuT CURRENCY PAPER IS IMPROVED AS A PESULT OF INCREASING THE GLYCERIN CONCENTRATION IN THE SIZE BATH,

(c) A Typical Record in File PPFVAR under COLL6

•RECORO 000000003

• HN3 NUHtER

NBS «509 •S-GHOUP 1 1R70GS I970M-CONTROL

I 970«-S-t 10,3X31)

1970V-S-3(C.7-.SI)

1970H-S-S(0.5XS1)

1970M-S-17(3.6XSI)

1970^-3-30(0. 1X31) I970 —SI-TYPE 100 1970 M -S1-1 YF£ 165

•S-CPOL'P 2 I970Y.-CONTROL I970«-SI-Tr?t 100

1 970H-3 I -type 165 0S38-CCNTRCL

063P-PE SIZED oesS-RESIZEu-oLACK R 0996 A -n£l AMI NE-Gl YCE 5000-NFL-CLYCt-GLUE

SOOlA-MELAMINt-

•P-GROUP 1 AdRASION-nEIGHT LOSS

BASIS height BRIGHTNESS

CRU'‘.°L-h IK RERIEABLT ELOuGAT I3N-X-C pPS9

ELON'GAT ICU-X-MACHINE

FCLC ENOuP-CPOSS

FOLD EnOuR-MA CHINE

OIL ( m I 0 ) PENETRATION

•P-GROU? 2 OPACITY SMOOTHNESS

TEAR STS-CHOSS

TEAR ST,R-’‘ACHI\'E TENS STP-DRY-C 6 CSS TENS STR-OEY-i'ACHlNE TENS STP-.^ET-CROSS TENS STREET-MACHINE

THICKNESS

•P- GROUP 3 KATcR FENETHaTION

HATFu RESISTANCE •SECONDARY TEST VARIABLES CRUMPLING

SILICONE COAT ING-X
13

7 . Step 3. Conversion of Report into Data Tape

To convert a report into a data tape, it is necessary to store

all descriptors and tables of test data systematicallv usina an operating system developed specificallv for this project. This

operating system is interactive in nature and a full listing of its

program in BASIC is given in Appendix VI. Each data tape is subdivided into nine segments with each segment containing a specific type

of information as follows:

Segment File No. Length of File Information Content

1 2560 bytes Report Number

Title

Author (s)

Keywords

2 2560 bytes Report Number

Primary Test variables

3 2560 bytes Report Number

Sample Labels

Secondary Test Variables

4 7680 bytes Alphanumeric Codes for

Data Combinations

5 7680 bytes Numeric Codes for

Data Combinations

6 2560 bytes Units of Test Data

7 7680 bytes Primary Test Var. Data

vs. Sample Labels.

8 7680 bytes Primary Test var. Data

for all sample labels

with dependence on secondary test var.

9 open (last file) Secondary Test Var. Data

for sample labels

listed in Segment File 8.
14

Upon activating the NBS Paper Physics Data Operating System (OS)

simply by pressing the AUTO-LOAD key after inserting OS tape into the

Tektronix 4051, the screen will display the following information to

request user's action:

NBS PAPER PHYSICS DATA FILE - JEFFREY FONC AND IVAN FONG* JULY 1978

KEY I INPUT Info Tyr-e I (Title, Authors, Keywords)

OUTPUT Info Type I KEY 2 INPUT Info Type II (Prinary Test Variables) OUTPUT Info Type II KEY 3 INPUT Info Type III (Sanple Labels, Secondary)

OUTPUT Info Type III KEY 4 OUTPUT Info Types I, II. II I, in Matrix Fornat KEY S INPUT Info Type IV (Data Conbination Codes) KEY 6 OUTPUT Info Type IV in Matrix Fornat KEY 7 INPUT Info Type V (Teit Data) KEY 8 OUTPUT Info Type V in Table Fornat KEY 9 PLOT Pnnary Test Variable vs. Sanple Labels KEY 10 PLOT Pnnary vs. Secondary Test Variables

Press User Definable KEY on upper left of Keyboard to activate FUNCTION.

After each report is reduced to a set of tables of test data, the

pressing of special keys 1, 2, 3, 5, and 7 enables the user to

13 convert the report into a data tape without any difficulty. The

operating system is written in a conversational mode such that the

user need not have any knowledge of the intricacies of system

programming in order to create a data tape. Once aqain, because of

the lack of time in converting all the reports into tables of numbers,

only three reports (NBS 4509, NBS 4664, and NBS 4804) have been stored

onto magnetic tapes for retrieval and analysis.

^The pressing of Key 4 is an important intermediate step because it

yields a blank matrix such as the one shown on page A. 19 of Appendix

V to guide the appropriate input of data combination codes and test

data
15

8 . Step 4. Retrieval of Data from Source Tape

Let us assume that a search of the Paper Physics Data File

indicates that NBS Report 4509 should be examined for further data

retrieval. At this point, we should activate the Paper Physics Data

Operating System and the Source Tape for Report 4509 by first pressing

the AUTO-LOAD key and then Key 6 to obtain a data matrix as shown

on pages A. 22 and A. 23 of Appendix V. The representation on these

two pages indicates what data are and what are not available. The

pressing of Key 8 and an appropriate input of data combination codes

will give tables of data as illustrated on pages A. 24 and A. 25 of

Appendix V. The use of Keys 9 and 10 will allow the user to obtain

report-ouality drawings of test data as shown on pages A. 26 and A. 27

of Appendix V.

Because all test data are stored on a source tape in binary

form, they can be retrieved for further mathematical analysis and

graphical representation. For the moment, it suffices to say that

the feasibility of creating an "intelligent" filing system for a specialized body of scientific data has been demonstrated.

9 . A Simple-Minded Cost-Benefit Analysis

It is reasonable to ask at this point whether the benefit of

a computer-aided data filing system exceeds the cost of developing and

maintaining such a system. This question cannot be answered in a precise form because it is difficult to estimate the long-term benefit

of any scientific work. Nevertheless, we believe that our judgment
16

and managerial experience are sufficient to present here a simpleminded analysis based on a number of ad-hoc assumptions. In the first

place, let us assume that the benefit of any scientific work is at

14

least as large as the total cost of producing that work. This means

that the information contained in the 47 reports at approximately

$100K per report, at today's prices, may be worth about $5 million. The

cost of developing the "intelligent" filing system may be broken down

into three categories as follows:

Category of Cost Cost Estimate Remarks

Development

Computer System: $16K Leasing cost for one year.

Programming

$16K15 4.0 p.m. 0 $4K per p.m.

including overhead.

Planning & Supervision: $16K 2.0 p.m. @ $8K per p.m.

including overhead.

$48K (total for development)

Upkeep/Maintenance

Computer System: $10K

Programming

$10K

Supervision $10K

$30K (total for upkeep)

14 This assumption is, of course, not necessarilv valid in view of

isolated cases of poor management and qualitv of scientific research

programs. Nevertheless, on a statistical basis and largely on an act of faith, the society supports research on the premise that the

benefit to societv will be at least as large as the investment.

15This estimate excludes the compensation due I. Fong who joined

this project team as a volunteer worker during the summers of 1977

and 1978. An extra $8K would have to be added to the estimate if

I. Fong were compensated for his 4 months of effort.
17

If the development cost is spread over the next five years, the net

cost of the "intelligent" filing svstem will be approximately $40K

per year for each of the next five years. If we further assume that

the $5 million-information package can be most efficiently extracted

in five years to guide in the development of a mathematical model to

16

improve durability of paper, then the cost-to-benef it ratio may be

crudely estimated as $200K to $5 million or a ratio of 1 to 25.

Alternatively, if the "intelligent" filing system is not used

or even developed, then it is conceivable that the information

contained in the 47 reports will largely lie untouched and unused.

17 The loss to the society would have been close to $5 million . We

have therefore demonstrated the economic justification of the

development of this filing system as a pre-modeling phase of work.

10 . Other Work in Progress

The results from a previous investigation indicated that

appreciable differences in the cross-sectional morpholoqv of fibers

exists between wood and rag pulps [17] . It is possible that these

morphological differences can account for the superior durability of

rag papers. It is generally believed that the eventual crosssectional morphology of fibers in paper is controlled bv the wet

fiber flexibility during the formative stages of papermaking. In

This estimate ignores the extra cost of completing the data-to-tape

conversion work for the remainina 44 reports. The conversion aspect

of the work should now become relatively simple and routine. Hence

we are justified in not factoring the extra cost in this estimate.

17None of the 47 reports in this collection has been available to the

public through the usual channels such as the Superintendent of

Documents, U.S. Government Printing Office, or the National Technical

Information Service (NTIS) , Springfield, Virginia. Even though the

information generated at NBS and reported in that collection has been

of value to the sponsoring aqency, the restricted nature of the 47

reports implies a potential loss of information to the public at

larqe such that the neqative benefit is at least as hiqh as the cost

of generating the information.
18

general the wet fiber flexibility increases as the Quantity of water

in the cellulose walls of pulp fibers increases. Therefore, it is

essential to know the relative quantities of water in swollen rag and

wood pulp fibers.

The total amount of water, contained in the cell walls together

with the water bound to cellulose is known as the fiber saturation

point (FSP) . The FSP of fibers is usually measured by the solute

exclusion principle [18] . A method for measuring FSP was developed

and several determinations were made on wood pulps and on cotton

fibers. The work on this part of the investigation is still in progress.

The interaction of water with cellulose occurs primarily in the

amorphous regions. It would be valuable to know whether the amount of

amorphous material increases during the mechanical treatment of pulps

resulting in greater accommodation of water or whether the greater

accommodation of water results from morphological changes in the

amorphous regions. If the amount of amorphous materials increases then

more cellulose becomes accessible to water and the quantity of bound

water will increase. If the accommodation of more water is through

morphological changes in the accessible regions then the amount of

bound water will remain constant.

Bound water in the presence of excess water, can be determined

calorimetrically by the non-freezing water technique [19, 20, 21].

A method for determining bound water by the non-freezing water

technique was developed for pulp fibers in the presence of excess

water by differential scanning calorimetry (DSC) . The method appears

to be satisfactory as the dispersion between duplicate determinations

is quite low. A number of determinations of bound water in wood pulps

and cotton fibers have been made but the work is incomplete.
19

Due to the incompleteness of this phase of work, it was decided

to postpone reporting the data at this time. The work in progress will

be completed and additional work on fractionated currency stock is

being contemplated. This work will then be reported on in the next

annual report.

11 . Concluding Remarks

The creation of a 47-report Paper Physics Data File and the

implementation of a 3-tape Data Retrieval System clearly demonstrated

the usefulness of an "intelligent" filing system to assist a scientist in meeting his/her data needs. The stage is now set to

complete the data conversion phase for the remaining 44 reports and

to introduce mathematical analysis routines to usher in the next

phase of work, i.e., mathematical modeling. Concurrent with the

development of this work was an attempt by Hilsenrath and Breen [22]

to introduce an interactive system for data retrieval, statistical

and graphical analysis, and data-base management. It would be

interesting and useful to compare the two systems, i.e., the one reported in this document versus the one described in [22] , to

see if certain features overlap and certain others complement.

Undoubtedly, the time has come for scientists to consider the reporting

of their data and the associated interpretations in some standardized

format for either tape or disk storage and retrieval. Such an activity

would hasten the day when results of one scientist could be interpreted

by another at perhaps thousands of kilometers away in a matter of

hours when computers and telephone network become the standard modes

of data communication.
20

12 . References

[1] Fong, J. T., Rehm, R. G., and E. L. Graminski, "A Microdegration Model for Paper," NBSIR 76-1062 , Internal

Report, U.S. National Bureau of Standards, Washington,

DC, April 15, 1976.

[2] Fong, J. T., Rehm, R. G., and E. L. Graminski, "Weibull

Statistics and a Microscopic Degradation Model of Paper,"

Tappi , 60, 156 (1977)

[3] Graminski, E. L. , and Kirsch, R. A., "Image Analysis in Paper

Manufacturing , " Proc. IEEE Computer Society Conf. on Pattern Recognition and Image Processing , RPI, Troy, New

York, June 1977, pp. 137-143.

[4] Kirsch, R. A., "Algorithms for Image Analysis of Wood Pulp

Fibers," NBSIR 78-1442 , Internal Report, U.S. National

Bureau of Standards, Washington, DC, January 1978.

Springfield, Va.: Nat. Tech. Inf. Service (1978).

[5] Graminski, E. L., "Use of Image Analysis for Process Control

in the Paper Industry," Proc. 8th Annual Svmp on Automatic

Imagery Pattern Recognition , NBS , Gaithersburg, Md . , April,

1978, R. A. Kirsch and P. N. Nagel, eds., pp. 55-58.

(Copies available from Electronic Industries Assoc., 2001

Eye St., N.W., Wash., DC 20006, Attn. Mrs. L. Santacroce.)
21

[6] Fong, J. T., "Statistical Aspects of Fatigue at Microscopic,

Specimen, and Component Levels," Fatigue Mechanisms , Proc . ASTM-NBS-NSF Symposium, Kansas City, Mo., May 1978,

J. T. Fong, ed . , ASTM-STP 675 , American Society for Testinq

and Materials (in press)

[7] McGee, W. C., "Generalization: Key to Successful Electronic Data

Processing," J. Assoc. Computing Machinery , 6_, 1 (1959).

[8] Fry, J. P., and Sibley, E. H., "Evolution of Data-Base Management

Systems," Computing Surveys , 8_, 7 (1976).

[9] Fong, E., Collica, J. , and Marron, B., "Six Data Base Management

Systems: Feature Analysis and User Experiences," NBS

Technical Note 887, National Bureau of Standards, Washington,

DC, Nov. 1975. Washington, DC: Sup. of Doc., U.S. Government Printing Office, SD Cat. No. C13. 46:887 (1975).

[10] Wetzler, F. U., "Data Banks for R and D," Research/Development ,

2jM 6) , 54 (1977) .

[11] Darrow, J. W. , and Belilove, J. R. , "The Growth of Databank

Sharing," Harvard Business Review , Nov-Dec 1978, pp. 180-194.

[12] Ruff, P. E., Favor, R. J., and Hyler, W. S., "The Collection,

Generation, and Analysis of MIL-HDBK-5 Allowable Design ’

Data," AFML-TR-72-61, March 1972. Wright-Patterson AFB

,

Ohio: Air Force Materials Laboratory (1972) .
22

[13] Vander Molen, H. J. , and Gerstenberg, H. M. , "The NIRA Computer

Program Package (Photonuclear Data Center)," NBS Technical

Note 903 , National Bureau of Standards, Washington, DC,

Feb. 1976. Washington, DC: Sup. of Doc., U.S. Government

Printing Office, SD Cat. No. C13. 46:903 (1976).

[14] Wagman, D. D. , Schumm, R. H., and Parker, V. B., "A ComputerAssisted Evaluation of the Thermochemical Data of the

Compounds of Thorium," NBSIR 77-1300 , Internal Report,

National Bureau of Standards, Aug. 1977. Springfield, Va

National Tech. Information Service (1977)

[15] Mendelssohn, R. C., "LABSTAT: The Bureau of Labor Statistics

System for Data Storage, Retrieval, and Analysis,"

Smithsonian Science Information Exchange (SSIE) Science

Newsletter , 7J4) , 5 (Feb 1978)

t 16 ] 4051 Graphic System Reference Manual , Jan. 1976. Beaverton,

Oregon: Tektronix, Inc. (1976)

[17] Graminski, E. L., and Toth, E. E., NBSIR 78-1417 , An Evaluation

of Wood Pulp Durability, Feb. 15, 1978, Internal Report of

National Bureau of Standards, Washington, DC.

[18] Scallon, A. M. , Fiber-Water Interactions in Paper-Making , Edited

by Fundamental Research Committee, Technical Division,

The British Paper and Board Industry Federation, Vol. 1,

pp. 9-27 (1978) .
23

[19] Riedel

,

L. , Kaltetechnik, 8, 374 (1946).

[20] Riedel

,

L. , Kaltetechnik , 9, 38 (1947).

[21] Riedel

,

L. , Naturwissenschaften , 43, 514 (1956) .

[22] Hilsenrath

,

J. , and Breen, B . , OMNIDATA

An Interactive System

for Data Retrieval, Statistical and Graphical Analysis,

and Data-Base Management — A User's Manual, NBS Handbook

125 , Sept. 1978. Washington, DC: Sup. of Doc., U.S.

Government Printing office (1978)
-




A . 1

Appendix I

NBS P aper Physics Data ^ile - List of Reports

Wo. Report No. Report Title Author (s) Pate

1 NBS 3191 Crumpling endurance of European

currency paper.

R. B. Hobbs, and

V, Worthington.

Mar, 31, 1954

2 NBS 4367 Improvement of currencv and

stamp papers.

E. B. Randall, Jr. Oct. 14, 1955

3 NBS 4509 Improvement of currency and

stamp papers.

E. B. Randall, Jr, Jan. 27, 1956

4 NBS 4664 Improvement of currency and

stamp papers.

E. B. Randall, Jr. May 4, 1956.

5 NBS 4804 Improvement o f currency and

stamp papers.

E. B. Randall, Jr, Aug. 1, 1956.

6 NBS 4964 Improvement o f currency and

stamp papers.

E. B. Randall, Jr. Dec. 17, 1956

7 NBS 5104 Laboratory evaluation o f experimental

currencv paper and dry-printed

dollar notes from Lot #174.

Hobbs*R. B. ** Jan. 11, 1957

S NBS £202 Investigation of the adhesiveness

of the glue layer o f postage stamps

R. B. Hobbs** Mar. 28, 1957,

9 NBS 5778 Improvement of currency and

stamp papers.

E. B. Randall, Jr. Feb. 12, 1958,

10 NBS 6334 Improvement of currency and

stamp papers.

E. B. Randall, Jr. Mar. 10, 1959,

11 NBS 6540 Improvement of currency and

stamp papers

E. B. Randall, Jr. Sep. 18, 1959,

T -9 KBS 6672 Improvement of currency and

stamp papers.

E. B. Randall, Jr. Feb. 29, 1960,

13 NBS 6932 Improvement of currency and

stamp papers.

E. B. Randall, Jr. Aug. 15, 1960.

14 KBS 6933 Statistical comparison of wear

characteristics of old and new dollar notes.

E. B. Randall, Jr.,

and J. “andel

Aug. 15, 1960.

15 NBS 7089 Improvement of currency and

stamp papers.

W. K. Wilson, and

B. W. Forshee

Feb. 15, 1561.

It NBS 7127 Special technical report: A new

of folding endurance tester. type V, Worthington Apr. 20, 1961.

17 KBS 7198 Evaluation of currency and

stamp papers.

W. K. Wilson, and

B. W. Forshee

Jun. 15, 1961.

ie '.TBS 7416 Evaluation of currencv and

stamp papers.

W. K. Wilson, and

B. W. Forshee.

Jan. 31, 1962.

•15 Special 1 Suggestions for the improvement

of U.S . currency.

W. K. Wilson,

B. W. Forshee, and

L. T. Milliken

May 24, 1962.

20 NBS 7561 Evaluation of currency and

stamp papers.

W. K. Wilson, and

B. w. Forshee.

July 16, 1962.

armumbered report

•• author of report unknown. For retrieval under author's name, tha term "SPECIAL REPORT" is used.

The name R. B. Hobbs appears inside the report as the responsible official on report preparation
A. 2

Appendix I - continued

No. Report No. Report Title

21 NBS 7859 Evaluation of currency

stamp papers. and

22 NBS 8096 Evaluation of currency

stamp papers.

and

23 NBS 8316 Evaluation of currency

stamp papers.

and

24 NBS 8514 Evaluation of currency

stamp papers.

and

25 NBS 8637 Evaluation of currency

stamp papers.

and

26 NBS 8638 Determination of glycerol in

currency paper.

27 NBS 8937 Evaluation of currency

stamp papers.

and

28 NBS 9035 Evaluation of currency

stamp papers.

and

*29 Special 2 Special report: Evaluation of

Gilbert currency paper.

30 NBS 9510 Evaluation of currency

stamp papers.

and

31 NBS 9597 Evaluation of currency

stamp papers.

and

32 NBS 9681 Evaluation of currency

stamp papers. and

33 NBS 9859 Evaluation of currency

stamp papers.

and

34 NBS 10090 Evaluation of currency

stamp papers.

and

35 NBS 10229 Evaluation of currency

stamp papers.

and

36 NBS 10336 Evaluation of currency

stamp papers.

and

37 NBS 10564 Evaluation of currency

stamp papers. and

38 NBS 10465 Evaluation of currency

stamp papers.

and

39 NBS 10802 Evaluation of currencv

stamp papers.

and

40 NBS 10912 Evaluation of currency

stamp papers.

and

Author (s) Date

W. K. Wilson, and Mar. 1, 1963.

B. W. Forshee.

w. K. Wilson, Oct

1, 1963.

B. W. Forshee, and

T. J. Carter.

W. K. Wilson, Mar. 16, 1964

B. W. Forshee, and

T. J. Carter.

E. L. Graminski, July 27, 1964

B. W. Forshee, and

T. J. Carter.

E. L. Graminski, Feb. 15, 1965

B. W. Forshee, and

T. J. Carter.

E. L. Graminski, and Feb. 15, 1965

B. W. Forshee

E. L. Graminski, July 28, 1965

B. W. Forshee, and

T. J. Carter.

E. L. Graminski, Jan. 31, 1966

B. W. Forshee, and

T. J. Carter.

E. L. Graminski, May :15, 1966.

B. W. Forshee, and

M. W. Bottomley

E. L. Graminski, and Mar. 31, 1967

B. W. Forshee.

E. L. Graminski, and July 31, 1967

B. W. Forshee.

E. L. Graminski, and Jan. 31, 1968

B. W. Forshee.

E. L. Graminski, June 28, 1968

B. W. Forshee, and

E. E. Toth.

E. L. Graminski, and Jan. 31, 1969

E. E. Toth.

E. L. Graminski, and Apr. 29, 1970

E. E. Toth.

E. L. Graminski, and Sep. 17, 1970

E. E. Toth.

E. L. Graminski, and Apr. 1, 1971.

E. E. Toth.

E. L. Graminski, and Aug

19, 1971

E. E. Toth.

E. L. Graminski, Peb. 15, 1972

E. E. Toth, and

M. A. Smith.

E. L. Graminski, and Oct. 2, 1972.

E. E. Toth.

*

unnumbered report.
A. 3

Appendix I - continued

wo. ••port No. Report Title Author (s) Dif

41 MBS IB 73-124 Evaluation of currency

stamp papers.

and E. I.. E. E. Graminski

,

Toth.

and Jan. 30, 1973

42 NBSIR 73-274 Evaluation of currency

stamp papers.

and E. L.

E. E. Graminski

,

Toth.

and Aug. 15, 1973

43 NBSIR 74-431 Evaluation of currency

stamp papers.

and E. L.

E. E. Graminski

,

Toth.

and Jan. 2, 1974.

44 NBSIR 74-571 Evaluation of currency

stamp papers.

and E. L. E. E. Graminski

,

Toth.

and Sep. 6, 1974.

45 MBS IP. 75-670 Evaluation of currency

stamp papers.

and E. L. E. E. Graminski

,

Toth , and Feb. 20, 1975

46 NBSIR 75-978 Durability of paper. E. L.

E. E. Graminski

,

Toth.

and Dec. 15, 1975

47 NBSIR 76-1062 A micro-degradation model for paper. J. T. and E

••'or.ri , R . G

. L. Gramin

. Rehm,

ski.

Apr

15, 1976
A. 4

Appendix II

A User's Manual for Accessing the NBS Paper Phvsics Data File

Sample Equipment: Texas Instrument Silent 700

User Action

1 Plug in Terminal near a telephone

2 Set Speed at 30^ Duplex Full , Parity Even , Interface Int , and Line Feed Single/Double

3 Power Key ON.

4 Dial Telephone 840-9202 & wait for sharp tone.

HURRY FOR NEXT STEP !

5 With the sharp tone, place

telephone on slots in the

terminal with the cord end

in the correct slot as marked

HURRY FOR NEXT STEP !

6 Depress Control Key (Marked

CTRL in black at 3rd row extreme left of the keyboard)

and hold while hitting C key

simultaneously.

7 Type LOGIN 444,112

and hit RETURN key.

Remarks

Red Light ON.

Green Light ON, indicating the

terminal is connected with

the host computer at NBS

Institute for Computer Science

& Technology (DEC PDP-10)

A dot appears indicating the

terminal is linked satisfactorily

with the host computer.

Terminal responds with messages

such as:

J£JE 22 NBS-10 PEC 507E NBS 4'ILX TTY30

5CLGHHOC Ho coi/Eo^fe.

At the end of the message, the

request for a password appears:

Password:
Appendix II - continued

- A. 5 -

Step User Action Remarks

8 Type in password

and hit RETURN key.

If the password is acceptable,

the terminal will deliver

message of the day such as:

1054 2©-Hay-77 Fhi

%SCMUK5 Unknown switch IMITIft

PwEt'ENTiv'E Maintenance Tuesdays 8:30-12*30

5 ' 19'77 : If the 'pee space situation doesn't markedly improve soon, I uu,l

START HOOSECLEANINS If HAND! 5^18'77t

The Mas tape r a i •-’E fcpherly listes as down is noh eopt dp up. You HAY USE IT pop PEAPIN-; '.WITH PIUS QUT!>» WITH PCLPT IVE SAFETY

IP HOT CONFIDENCE. The SAME DOES NOT HOI.D TPUE POP WAITIN’!.

At the end of the messages, a dot should re-appear indicating

the terminal is ready for action.

9 Type TTY FILL 2 A dot should appear again.

At this point, the terminal is

and hit RETURN key. readv to link up with three files

established for NBS Paper Physics

Data File. The names and purposes

of the three files are:

File Calling Searchable

Name Code Fields (not)

NBSPPF COLL2 NBS Number

Author

Keywords

(title)

(citation)

PPFABS C0LL3 NBS Number

(abstract)

PPFVAR C0LL6 NBS Number

Sample Label

Primary Test

Variable

(Secondary

Test Var.)

To begin the search, let us use keywords as the searchable

field.
A. 6

Appendix II - continued

Step User Action Remarks

10 Type EXECUTE COLL2 The terminal will respond with:

and hit RETURN key. LINK: LoftDiNO

IXNKXCT COLLIN Ex= CUT JOWl WELCOME TO THE CCLLIN DATA EASE SYSTYfl

YOU RkE ACCESSING- DATA EASE NSS?P/»

HUMBER OF PEC0P0S IN DATA BhSE 13 47

MAX POSSIBLE RECORDS ARE S90

m POINTER IS 47

DATA DEFINITION FOLLOWS

NUMBER OF DATA FIELDS DEFINED 5 SPACE TAKEN BY BmTm DEF STORAGE 73

NAME MBS NUMBER

ALPHANUMERIC. 12 CHARACTERS,

NAME AUTHOR

ALPHANUMERIC. 20 CHARACTERS,

NAME TITLE

ALPHANUMERIC. 80 CHARACTERS,

NAME CITATION

ALPHANUMERIC, SO CHARACTERS,

NAME KEYWORDS

ALPHANUMERIC, 20 CHARACTERS,

1 OCCURRENCES, SEARCH

4 OCCURRENCES, SEARCH

2 OCCURRENCES, NON SEARCH

2 OCCURRENCES, NON SEARCH

? OCCURRENCES. SEARCH

ACCEPTABLE COMMANDS APE: FIND. STORE. PRINT. END. DEF I HE. DELETE-RECOPD. INPUT

OUTPUT. OUTPUT- INDEX. PRINT- INDEX. UPDATE. PROMPT

The last line of the printout is

a request for action, i.e.

TYPE IN FIND STORE PRINT END .'ANY OTHER COMMANDS

11 Type FIND and hit RETURN. The terminal will respond:

ENTER FIELD YOU WISH TO FIND OR ALL

12 Type KEYWORDS and hit RETURN. The terminal will respond:

ENTER ALPHANUMERIC KEYWORDS

At this point, the user should

refer to a list of keywords

(attached at the end of this

manual) and select a specific one from the list for record search.

For example, if one selects

fiber length, then:

13 Type FIBER LENGTH The terminal responds with:

and hit RETURN key. nui.dep cf pecopdc found £ TYPE IN FIND STORE PF IftT END /ANY OTHER COMMANDS
A. 7

continued

Step

14

Appendix II -

User Action Remarks

Type PRINT and RETURN. The terminal responds with:

RECORD 29

MBS NUMBER

SPECIAL Z

AUTHOR

GRAM INSKI FORSHEE

BOTTOMLEY

TITLE

EVALUATION OF GILBERT CURRENCY PAPER CITATION

SPECIAL NBS REPORT TO BUREAU OF NGRAVIMG AND PRINTING WASHINGTON. P. C. MAY 15.1966

KEYWORDS

CURPENCY PAPERS

CURRENCY

FLEXING DURABILITY

RHEOLOGICAL PROP. FIBER LENGTH

PHYSICAL PROPERTIES

LOAD-ELONGATION

RECORD 47 NBS HUMBER

NBSIR76-1 062

AUTHOR

FONG

PFHM GRAM INSKI

etc.

The message will end with:

TYPE IN FIND STORE PRINT EN" qthER COMMANDS

At this point, you may wish to

search for other records within

COLL2 (go back to step 11) or

to change a file. In the latter

case, we must terminate COLL2.
A. 8

Appendix II - continued

Step User Action

15 Type END and RETURN.

16A Type EXECUTE C0LL3 and

RETURN.

Remarks

The terminal will type EXIT, and

a dot will appear.

If one needs abstract.

or 16B Type EXECUTE C0LL6 and

RETURN.

If one needs to search the fields

of Sample Label or Primary Test

Variables. Always refer to the

list of words for each searchable

field (attached at the end of this

manual)

or 16C Type K/F and RETURN. This is to end the search.

The terminal's response is

something like this:

Job 22* Use** C444.112] Lo-ssed orr TTY30 1103 20-M*v-7

W.L riCEF 0115 LLOCKC^

Rumtshc 5.7* fee

If steps 16A or 16B are

taken, go back to step 11.

Or else, continue:

17 Unhook telephone, turn off THE END.

power key
A. 9

Appendix III

NBS Paper Physics Data File - List of Words for

Name of Field: NBS NUMBER

Searchable under

file name: C0LL2 , C0LL3

List of Words: NBS 3 l S

NBS -4367

NBS 4509

NBS 4664

NBS 4804

UBS 4964

NBS 51 04

NBS 52.02

NBS 5778

NBS 6334

NBS 6540

NBS 6672

NBS 6933.

NBS 6933

NBS 7039

NBS 71 £7

NBS 7198

NBS 7416

NBS 7561

NBS 7859

NBS £036

NBS S3 16

NBS 8514

NBS 8637

NBS 863$

NBS 8937

NBS 9035

NBS 9S10

NBS 9597

NBS 9681

NBS 9S59

NBS 10090

NBS 10229

NBS 10336

NBS l 0465

NBS 10564

NBS 10802

NBS 10912

NBSIR 73-124

NBSIR 72-274

NBSIR 74-431

NBSIR 74-571

NBSIR 75-670

NBSIR. 75-978

NBSIR76- l 062

SPECIAL 1

SPECIAL 2

Searchable Fields

AUTHOR

COLL2

BOTTGMLEY

CARTER

FONG

FORSHEE

GRAM INSKI

HOBBS

HANDEL

MILL I KEN

RANDALL

REHM

SMITH

SPECIAL REPORT

TOTH

WILSON

WORTH IMG TOM
A. 10

Appendix III - continued

Name of Field: KEYWORDS

Searchable under

file name: COLL2

List of Words: ABRASION

ACID HYDROLYSIS

ACRYLIC LATEXES

ACRYLIC RESINS

ADDITIVES

Adhesiveness

AGIN©

AIR PERMEABILITY

AHINO ACIDS

BEATING

BINDING AGENT

BRIGHTNESS

CALENDERING

CELLULOSE DEGRAD.

COMMERCIAL PAPERS

CRUMPLING NUMBER

CURRENCY

CURRENCY PAPERS

CYCLING

DEGRADATION

DURABILITY

EDGE-TEAR

ELASTIC RECOVERY

FATTGUE

FIBER LENGTH

FITNESS

FLAT-BED PRESSES

FLEXINGFOLDING

FOLDING END. TESTER

FOLJ) l MG ENDURANCE.

GELATIN

glucose

GLUE

GLUE RESIZINGGLYCEROL

HVDRQXYPRCL I NE

INK

LOAD-ELONGATION

Mrp

MANNITOL

melamine resin

MICRO STRUCTURE

MODELLING

MODIFIED COTTON

HOISTURE

Newsprint

PARCHMENT ‘PAPERS

PHYSICAL PROPERTIES

POLYVINYL ALCOHOL

KJROSITY

POSTAGE STAMPS

PPE/TEST

PRINTING

PULP classification

RADIATION

RAG PULP

RAYON FIBERS

RELEASING FjGENTS

RHEOLOGICAL PROPRIGGING SOARS

ROSIN

SCE PHOTOMICROGRAPHS

SCOTCH SARD

SILICONE OIATINGSOFTcNlNG AGENTS

SOILING . STABILITY

STANDARD DEVIATION

STATISTICAL RNALYSIS

STRESS -STRAIN

SUPERCAUNDERING

SURFACE ORCA

synthetic fibers

Vinyl polymers

VISCOSITY

V&TER PENETRATION

WEAR QUALITIES

WET-PRESSING

WIPING- PAPER

WOOD-PULP PAPERS
Names of Fields:

Searchable under

file name:

List of Words:

A. 11

Appendix III - continued

S -GROUP 1 S -GROUP 2 S -GROUP 3

C0LL6 (Limited to

3 Reports)

(Sample Labels)

197 OGS

1970M-2 . 5%PVA-A

1970M-2 . 5%PVA-B

1970M-5S.PVA-A

197 OM-CONTROL

1970M-JUV SOIL RETAR

197 OM-SCCTCHGARD

1970M-S-l(0.3 ?oSi)

1970M-S-3 (0.7%Si)

1970M-S-5 (0.5%Si)

1970M-S-17 (3.6%Si)

197 OM-S-3 0 (4

l*Si)

1970M-Si-TYPE 104

1970M-Si-TYPE 165

1970W-2 . 5%PVA-A

1970W-2 . 5%PVA-B

197 0W-5%PVA-A

197 OW-CONTROL

1970W-Si-TYPE 104

1 9 7 0VJ- S i -TY PE 165

4838-CONTROL

4838-RESIZED

4 83 8-RESI ZED-SLACK R

4998

4998-AGED 24 HOURS

4998-AGED 48 HOURS

4998-AGED 72 HOURS

4 9 9

8 -MELAMIWE-GLYCE

4 99 8A-MEiJ\MINE-OLYCE

5000

5000-AGED 24 HOURS

5000-AGED 48 HOURS

5000-AGED 72 HOURS

5000-

MEL-GLYCE-GLUE

5001

5001-

AGED 24 HOURS

5001-AGED 43 HOURS

5 0C 1-AGED 72 HOURS

5001-MELAMINE

5 0 0 1 A-MELAMI NE

75 oDACRN/COTTON HDSH

7 5 %NYLON/COTTON HDSH

75 %ORLON/COTTEin HDSH

CONTROL COTTON

DECRYST COTTON-COMTR

DECRYST COTTON-EVAPD

DECRYST COTTON-MELAM

DECRYST COTTON-WASHD

UNTREAT COTTON-CONTR

UNTREAT COTTON-MELAM
A. 12

Appendix III - continued

Names of Fields: P-GROUP 1

P-GROUP 2 P-GROUP 3 Searchable under

file name:

List of Words:

C0LL6 (Limited to

3 Reports)

(Primary Test Variables)

ABRASION-WEIGHT LOSS

BASIS WEIGHT

BRIGHTNESS

BURSTING STRENGTH

CRUMPL-AIR PERMEABLT

ELONGATI ON- % -CROSS

ELONGATI ON- % -MACHINE

EXPANSIVITY/1 5 %CH-RH

FOLD ENDUR-CROSS

FOLD ENDUR-MACHINE

FREENESS

HEAT AGING- %WT LOSS

OIL (CASTOR) PENETRAT

OIL (#10). PENETRATION

OPACITY

% PICKUP-BY WEIGHT

PH-1 HOUR SOAK

PH-4 HOUR SOAK

REFLECTANCE-FELTS IDE

REFLECTANCE-WIRES IDE

SMOOTHNESS

SURFACE GLO-FELTSIDE

SURFACE GLO-NIRESIDE

TEARING STRENGTH

TEAR STR-CROSS

TEAR STR-MACHINE

TENSILE STRENGTH

TENS STR-DRY

TENS STR-DRY-CROSS

TENS STR-DRY-MACHINE

TENS STR-WET

TENS STR-WET-CROSS

TENS STR-WET-MACHINE

THICKNESS

WATER PENETRATION

WATER RESISTANCE
A. 13

Appendix IV

How to Create a Data File via an NBS Experimental Data Base System

Ecruipment used: Digital Equipment Corp DEC-10

00100

00150

00175

00200

00300

00400

00500

00600

00700

00800

00900

01000

01100

01200

01300

0140G

01500

01600

01700

01800

01900

02000

02100

02200

02300

024CO

02500

02600

02700

02800

02900

03000

03100

03200

03300

03400

03500

03600

03700

03800

03900

04000

04100

04200

04300

04400

04500

04600

04700

04800

04900

05000

05100

05200

05300

05400

05500

05600

05700

05800

THE CULLIN DATA BASE SYSTEM

September 23,1 976

The COLLIN Data Base System is a very user-oriented data base

management system for the DEC 10, COLLIN prompts the user for

all aata base functions. These functions Include:

•Data Definition

•Inserting new data records

.Updating data records

.Printing data records

.Deleting data records

.Printing out the index file

The unique characteristic of COLLIN is its ability to prompt

tr.e user for all functions of a data base management system

consequently making COLLIN very easy to use.

The data structures supported are 1 level repeating groups

witn numeric or alphanumeric data fields occurring 1 to 9 times.

An index file is user definable on data fields (numeric 1 to

18 digits, alphanumeric 1 to 20 characters)

to facilitate searching tor records. ». Data field

to support

characters

lengths can be as long as 80 characters, however

an index on a data field requires 20 or fewer

for an alphanumeric field.

A search or index on base records without a individual data base

with the FIND command.

the data field allows

lengthy sequential

records. Only searcn

All fields can be

rapid access to data

search of all • the

fields can be found

printed out.

1. COLLIN COMMANDS

A carriage return is an acceptable response to all commands.

FIND

Finds a particular record, set of records or all records.

Prompts the user first for the liela name and then the value

of that field. Equality matching is supported.

Oniy searcn fields can be entered with the FIND command.

All recoras can oe found with a response of ALL. STORE

Stores a record in the data base

by prompting the user to enter values in each data

field, one value at a time.

CLEAR Is an acceptable response to a STORE prompt and

all occurrences with that data field in the record being

created are cleared.

PRINT

Prints records found with the FIND command.

END

Terminates the data base session.
Lx IV

05900

06000

06100

06200

06300

06400

06500

06600

06700

06800

06900

07000

07100

07200

07300

07400

07500

07600

07700

07800

07900

08000

08100

08200

08300

08400

08500

08600

08700

08800

08900

09000

09100

09200

09300

09400

09420

09423

09426

09429

09432

09435

09438

09441

09444

09447

09450

09453

09456

09459

09462

09465

09468

09600

09700

09800

09900

10000

10100

10200

A. 14

- continued

DEFINE

Prints out tne present data definition and prompts the user

for new data definition fields:

.Name of data definition field (30 or fewer characters)

.Numeric or alphanumeric

.Length of data field--18 or fewer for numeric, 80 or fewer for alphanumeric.

.Number of occurrences within a field within a record,

e.g. number of names within name field within

a record. (1 to 9 occurrences are acceptable).

.Search or non-search field (search numeric 18 or fewer characters, search alphanumeric 20 or fewer

character s )

In the data definition up to 36 fields can be defined using

200 extents ( system parameter for storage).

DELETE-RECORD

Deletes all records found with the KIND criteria. If the

FIND criteria is ALL, the DELETE-RECORD will not delete

all records (for your protection).

PRINT-INDEX

Prints out the values in the index file and the number of

records containing these values. The field name is also

printed. PRINT-INDEX prompts the user for a field name

(must be a search field) or ALL (all search fields).

UPDATE

Updates a record. Prompts the user f (system assigned value for each reccr Fields con be added in the same mar.ne

If *C LEAR is a response to an update

field, all occurrences within that fi

or the

d).

r as w i prompt

cld of

record number

th STORE.

for a particular

the update record are cleared

OUTPUT

Performs the same function as PRINT, however the output

results are written to the mass-storage file OUTPUT in

Place of the terminal,.

In order to have the results printed on the line printer

when you end your data base session, y-ou must enter the

following command in monitor mode:

.PRINT OUTPUT/FILESCOBOL

OUTPUT-INDEX

Performs the same function as PRINT-INDEX however the

output results are written to the mass-storage file OUTPUT.

See the description under OUTPUT in order to have the results

printed on the line printer.

PROMPT

PROMPT allows the user to define which of the data definition

fields will be considered in executing the PRINT, STORE,

and UPDA'IE commands. The user is prompted to chose

from: ALL All fields will be considered

ONLY Considers only the fields that will be input
10300

10400

10500

10600

10700

10800

10900

11000

11100

11200

11300

11400

11500

11600

11700

11800

11900

12000

12100

12200

12300

1 2400

12500

12600

12700

12600

1 2900

13000

13100

132O0

13300

1 3400

1 3500

1 3600

1370C

1 3800

1 3 9 GO

1 40C0

14100

1 4200

14300

1 4400

14500

14600

14700

14600

14900

15000

15100

15200

15210

15300

15400

15500

15600

15700

15800

15900

1 b 0 0 0 16100

A. 15

Appendix IV - continued

and prompts the user for those fields.

Same as CLEAR followed by ON.

ON Turns on a field for consideration.

OFF Turns off a field for consideration,

CLEAR Turns off all fields for further consideration.

After entering ALL or CLEAR, the user is again asked the

orompting question to determine if fields will be turned ON

or 0KF.

2. System Considerations

COLLIN is written completely in COBOL, and is easily modifiable.

The following are the present values. These values can be

expanded

300 data records

3b data fields using 200 extents of storage.

50 record occurrences within each value of the index table.

Setting Up the System

Login under your own number.

note : replace dbname with 6 or fewer characters you chose for

your data base name. The name must be compatible with

DEC 10 file name conventions i.e. no weird characters.

Use upper case. 1 *'

.COPT dbname.CBL=C0LLIN.CBL [444,1 17

.COPT dbname = INDl [444, 117]

.COPT IND.lDA=IUOl. IDA [444, 1171

.SOS dbname. CBL

SXXSdbnames 1 : * (s is the escape character)

(a carriage return is required at the end of the line)

*E.EXECUTE dbname. CBL (initializes the system index tables)

.EXECUTE dbname. REL (runs data base system).

3. Files Created

dbname (index file)

JND.IDA (index data file)

dbname.DAT (data file)

dbname. DEF (data definition file)

dbname. REL (relocatable proyram tile)

OUTPUT (line printer temporary file)

Alter the system is initialized, you can delete the following

files:

dbname. CBL

dbname. QbL

In all cases replace dbname by the data base name you desire.
Appendix IV - continued

A. 16

16200

16300

16400

16S00

16600

16700

16800

16900

17000

17100

17200

17210

17220

17230

17245

17250

17260

17262

17264

17266

1 7268

17270

17272

17274

17276

1 7278

17280

17282

17284

17286

17288

17290

17292

17294

17296

17298

17300

17302

17304

17306

17308

17400

18000

Be sure no other tile in your directory has that name. Check by a

.DIP dbname.*

4.

Running the System

.EXECUTE dbname. REL

5.

Printing the Results from OUTPUT and OUTPUT-INDEX

.PRINT OUTPUT /FILE: COBOL

6.

Backup and Recovery

Lost data is possible without sufficient backup and recovery

techniques. If records have oeen added or modified in the

data base session, and the DEC 10 crasnes during the session,

there is an excelient chance of having an Inconsistency between

index and data files. In order to avoid having to recoup

more than is necessary, the following Dackup proceoures should

be taken whenever your data oase becomes too valuable to loose.

Backup

.COPY S!=dbname

.COPY S2=IND. IDA .COPY S3=doname.l)AT • .COPY S4=doname.DEF

To Recover data base after a crash reverse the backup procedures.

.COPY dbnamesSl

.COPY 1ND.1DA=S2

.COPY dbname . DA7=S3

.COPY dbname. DEF=S4

GOOD LUCK

The above manual is reproduced here by permission of its

author, Mr. Joseph Collica, Systems and Software Division,

Institute for Computer Sciences and Technology, National

Bureau of Standards, Washington, DC 20234.
A. 17

Appendix V

NBS Paper Physics Data File - Sample Output for Individual Tape

Equipment Used: Tektronix 4051 Graphical Svstem.

Tektronix 4662 Plotter.

Tektronix 4641 Printer.

Operating System: NBS Paper Physics Data Operating

System as stored on 3 M-type magnetic

tape cartridge of 300K-bvte capacity.

Individual Tape: NBS Paper Physics Data Tape as stored

on 3M-type magnetic tape cartridge of

300K-byte capacity.

NBS PAPER PHYSICS DATA FILE JEFFREY FONG AND I UAH FONG, JULY 1978

KEY 1 INPUT Info Type I (Title, Authors, Keywords)

OUTPUT Info Type I KEY 2 INPUT Info Type II (Prinary Test Uaricblcs)

OUTPUT Info Type II KCY 3 INPUT Info Type III (Sanple Labels, Secondary)

OUTPUT Info Type III KEY 4 OUTPUT Info Types I, II, III, in Matrix Fornat

KEY 3 INPUT Info Type IU (Data CoNbinaticn Codes)

KEY $ OUTPUT Info Type IU in Matrix Fornat

KCY 7 INPUT Info Type U (Test Data)

KEY 8 OUTPUT Info type U m Table Forwat

KEY 9 PLOT Prinary Test Uariable vs. Sanple Labels

KEY 10 PLOT Prinary vs. Secondary Test Uariables

f'ress User Definable KEY on upper left of Keyboard to activate FUNCTION.

The above is a facsimile of the information

flashed on the screen of the Tektronix 4051

following the pressing of the AUTO-LOAD key

to activate the MBS Paper Physics Data Operating

System. For a complete software listing o f the

Operating System, see Appendix VI.

As of this reporting period, only 3 of the 47 reports in the NBS

Physics Data Pile have been stored on tapes for retrieval.

We have chosen 3 such reports for implementation to illustrate

the capability of this computer-aided svstem. The three reports

are NBS 4509, NBS 4664, and NBS 4804, and their information

content can be seen in the sample output given in this appendix.
Appendix V - continued

A. 18

Sample Output with Key 4 and Tape for Report 45QQ

NBS REPORT number: 4509

NBS REPORT title: IMPROVEMENT OF CURRENCY

NBS REPORT TO BUREAU OF

JANUARY 27 . 1956

AND STAMP

ENGRAVING

PAPERS

S PRINTING

AUTHOR ( S )

EDWIN B. RANDALL » JR.

4 . keywords: currency papers

CURRENCY

MODIFIED COTTON

SILICONE COATING

GLUE RESIZING

ABRASION

SOILING

BRIGHTNESS

WEAR QUALITIES

5. SAMPLE LABELS:

6. PRIMARY TEST VARIABLES:

7. SECONDARY TEST VARIABLES:

s: 1) 1970GS

s: 2) 1 970M-C0NTR0L

s: 3) 1970M-S-1 ( 0 . 3XSi

)

s: 4 > 1970M-S-3(0.7XSi>

s: 5) 1970M-S-5( 0. 5%Si

)

s: 6) 1970M-S-17<3.6XSi>

s: 7) 1970M-S-30 ( 4 . lXSi

)

s: 8) 1970M-Si-TYPE 104

S: 9) 1970M-Si-TYPE 165

SMO) 1970W-C0NTR0L

s:il> 1970W-Si-TYPE 104

S:i2) 1970W-Si-TYPE 165

S:i3> 4838-CONTROL

S:i4) 4838 -RES I ZED

S.*15) 4 838 -RES I ZED-SLACK R S:i6) 4998A-MELAMINE-GLYCE

S:i7> 5000-MEL-GLYCE-GLUE

S:i8) 5001A-MELAMINE

P: 1) ABRASION-WEIGHT LOSS

P: 2) BASIS WEIGHT

PJ 3) BRIGHTNESS

P: 4) CRUMPL-AIR PERMEABLT

P: 5) ELONGATI ON-%-CROSS

PJ 6) ELONGATION-Z-MACHINE

p: 7) FOLD ENDUR-CROSS

P: 8) FOLD ENDUR-MACHINE

PJ 9) OIL(tlO) PENETRATION

p:io> opacity

Pill) SMOOTHNESS

PJ12) TEAR STR-CROSS

p:i3) tear str-machine

p.*14) tens str-dry-cross

P: i5) tens str-dry-machine

p:i6) tens str-uet-cross

PJ17) tens str-wet-machine

p:i8> thickness

p:i9) water penetration

p:20) water resistance

A) NUMBER OF CRUMPLES

B) SILICONE coating

(cont j nued)
A. 19

Appendix V - continued

Sample Output (continued)

PRIMARY TEST VARIABLE

1

( SAMPLESS 1 : SS LABEL

2 : SS 3! SS 4 ! s: **== s: ss =**===

6! SS 7 ; SS 8! SS 9!

P I 1) ABRASION-WEIGHT LOSS 1 till till

PS 2) BASIS WEIGHT 1 1

j

!

j

1 1 S 1

PS 3) BRIGHTNESS 1

11 • j

: 1 III! • Ill

PS 4 ) CRUMPL-AIR FERMEABLT I

1

1 1 i • i ! ! ! 1

PS 5) ELONGATION-Z-CROSS 11

1( ! 1 S 1 ! !

PS 6 ) ELONGAT ION-Z-MACHINE I

• •

• 1

1 ! 1 1 1 1 1 I I

PS 7) FOLD ENDUR-CROSS 1 1

1

• i

• 1 I I • III

PS 8) FOLD ENDUR-MACHINE I

I

! 1 1III! 1 1 I

PS 9) 0 IL ( * 1 0 ) PENETRATION I ;

1

• 1 1 ! ! ! -+- —4 —+

—

—4 +

1 1 11 1 1 1 1 1 1 + 1 11 1 1

• 11 4* PS10) OPACITY I

1

1 1 1 i 1 i s

p: in smoothness

p:i2) tear str-cross

P!13> tear str-machine

f- : 1 4 ) tens str- dry -cross

PS 15) TENS STR-ORY-MACHINE I4_

PS 16) TENS 5TR-UET-CROSS 1}.

F' S 1 7 ) TENS STR-UET-MACHINE 14-

PS 16 ) THICKNESS I4.

PS 19) LATER PENETRATION I4.

PS 20) LATER RESISTANCE I PRIMARY TEST VARIABLE I s: 1 : SS 2 : i s : I ! S

i s : 1 s t 1 1 1

1 : 1

3! s: 4! SS 5! SS 6 ! SS 71 SS 0! SS 91

I S I H ! ! 1970M-Si-TYpC 1AJ

I I ! 1970M-Si-TYFE 104

I i i ! 1970M-S-30C 4 . lZSi )

! i ! 1970M-S- 1 7 ( 3 . 6%S i )

I ! 1970M-S-5 ( 0 • 5%Si

I 1970M-S-3(0.7/£Si

)

I ! I 1970M-S-1 (0.3/SSi ) I I 1970K-CONTROL

1 1970GS

A blank matrix for samples

also appears as output and

S:10 to F:18 versus P:1 to p :20

is not shown here for brevity.
Appendix V - continued

A. 20

Sample Output with Key 4 and Tape for Report 4664

1. NBS REPORT NUMBER S 4664

2. NBS REPORT TITLE: IMPROVEMENT OF CURRENCY AND STAMP PAPERS

NBS REPORT TO BUREAU OF ENGRAVING t PRINTING

MARCH 31 » 1956

3. AUTHOR ( S > • EDWIN B. RANDALL , JR.

4.

keywords: CURRENCY PAPERS

SYNTHETIC FIBERS

COTTON FIBERS

AGING

MOISTURE

ABRASION

SCOTCHGARD

5. SAMPLE LABELS:

6. PRIMARY TEST VARIABLES:

7. SECONDARY TEST VARIABLES:

s: 1) 1970M-JUV SOIL RETAR

S: 2) 1970M-SC0TCHGARD

s: 3) 4998

S: 4) 4998-AGED 24 HOURS

s: 5) 4998-AGED 48 HOURS

S: 6) 4998-AGED 72 HOURS

S: 7) 4998-MELAMINE-GLYCE

s: 8) 5000

s: 9) 5000-AGED 24 HOURS

s:i0> 5000-AGED 48 HOURS

s:u> 5000-AGED 72 HOURS

S:i2> 5000-MEL-GLYCE-GLUE

S:i3> 5001

s:i4) 5001 -AGED 24 HOURS

S:i5) 5001-AGED 48 HOURS

S:i6> 5001-AGED 72 HOURS

S:i7) 5001-MELAMINE

SUB) 75% D AC RN /COT TON HDSH

S:i9) 75%NYL0N/C0TT0N HDSH

S;20) 75%0RL0N/C0TT0N HDSH

S:21> CONTROL COTTON

S122> DECRYST COTTON-CONTR

S123> DECRYST COTTON-EVAPD

S:24) DECRYST COTTON-MELAM

S:25> DECRYST COTTON-WASHD

S:26> UNTREAT COTTON-CONTR

S:27) UNTREAT COTTON-MELAM

P: 1) BASIS WEIGHT

P: 2) BURSTING STRENGTH

P: 3) CRUMPL-AIR PERMEABLT

P: 4) ELONGATION-%-CROSS

P: 5) £LONGATION-%-MACHINE

PI 6) EXFANSIVITY/15%CH-RH

P: 7) FOLD ENDUR-CROSS

PI 8) FOLD ENDUR-MACHINE

P: 9) FREENESS

p:io> heat aging-xwt loss

p:id oil(Castor) fenetrat

P: i2) 0IL<*10> penetration

P: i3) F'H-l HOUR SOAK PU4) F’H-4 hour soak

p:is> tearing strength

p:i6) tear str-cross

PS17) tear str-machine

p:io> tensile strength

p:i9) tens str-dry

p:20> tens str-dry-cross

P:21) tens str-dry-machine

P:22> tens str-wet

P ! 23 ) TENS STR-UET-CROSS

P:24) tens str-wet-machine

p:2S) thickness

P:26) water resistance

A) NUMBER OF CRUMPLES

B) PRYING time

C> HEAT AGING TIME

D > JUVENON-DIPTIME
A. 21

Appendix V - continued

Sample Output with Key 4 and Tape for Report 4804 1.

NBS REPORT NUMBER? 4804

2.

NBS REPORT TITLE? IMPROVEMENT OF CURRENCY AND STAMP PAPERS

NBS REPORT 10 BUREAU OF ENGRAVING & PRINTING

AUGUST 1, 1956

3.

AUTHOR ( S ) ? EDWIN B. RANDALL t JR.

4. KEYWORDS? CURRENCY PAPERS

POLYVINYL ALCOHOL

MELAMINE RESIN

GLYCEROL

GLUE

SOILING

5. SAMPLE LABELS?

6. PRIMARY TEST VARIABLES?

7. SECONDARY TEST VARIABLES?

S? 1) 1 970M-2 . 5ZPVA-A

S? 2) 1970M-2.5XPVA-B

S? 3) 1970M-52PVA-A

S? 4) 1 970 M- CONTROL

S? 5) 1970W-2.5XPVA-A

S? 6) 1970W-2.5XPVA-B

S? 7) 1970W-5XPVA-A

S? 8) 1970W-C0NTR0L

SJ 9) 4998A-MELAMINE-GLYCE

S?10> 5000-MEL-GLYCE-GLUE

S ? 1 1 ) 5001A-MELAMINE

P? 1) FOLD ENDUR-CROSS

P? 2) FOLD ENDUR-MACHINE

P? 3) 0 1 L ( 1 0 ) PENETRATION

P? 4) % PICKUP-BY WEIGHT

P? 5) REFLECTANCE-FELTSIDE

F'? 6) REFLECTANCE-WIRESIDE

P? 7) SURFACE GLO-FELTSIDE

P? B) SURFACE GLO-WIRESIDE

P? 9) TEAR STR-CROSS

P?10> TEAR STR-MACHINE

PJ11) TENS STR-DRY-CROSS

P?12> TENS STR-DRY-MACHINE

F‘ ? 1 3 > TENS STR-WET-CROSS

P ? 1 4 ) TENS STR-WET-MACHINE

P J 15) WATER RESISTANCE

A) TIME IN DRUM

Note? Blank matrices for reports 4664 and 4804 are not shown

for brevitv.
Appendix V - continued

A. 22

Sample Output with Key 6 and Tape for Report 4509

I SAMPLE LABEL # PRIMARY TEST VARIABLE I St 1

PS 1) ABRASION-WEIGHT LOSS I ***

* PS 2) BASIS WEIGHT I

P ! 3) BRIGHTNESS

4) CRUMPL-AIR PERMEABLT I

PS 5) ELONGATI GN-X-CROSS I

PS 6) E LONGAT I ON -X- MACHINE If- PS 7) FOLD ENDUR-CROSS I1

. PS 8) FOLB ENDUR-MACHINE I*- PS 9) 01 L ( *1 0 ) PENETRATION I

PS 10) OPACITY I4 . PS 11) SMOOTHNESS I+ _ PS 12) TEAR STR-CROSS I1

. PS 13) TEAR STR-MACHINE I

PS 14) TENS STR-HRY-CROSS IiSS 2! SS 3! SS 4! SS Si SS 61 SS 7\ SS 81 SS 91 *** : *** ; *** ; *** s *** s *** i i : p p p p p p p p

s : ; : : i : i

i i i i

***

***

***

*** *«*

PS 15) tens str-ory-machine

| PS 16) TENS str-wet-cross I1

_ PS 17) TENS STR-WET-MACHINE I1 _ PS 18) THICKNESS Ip.

PS 19) WATER PENETRATION Ip. P S 20 ) WATER RESISTANCE I

-p- *** i f fI *** i + Pi *** t P PI *** I t f-

: i + rI

I + *-

: **« i =: = ss = = f B 3 ® B £ = 53 c = = r = a a= = 4s = x PRIMARY TEST VARIABLE i s: i: s: 2 : s: 3

i i :

i : i

i : s i : :

i

i

SS 4

i : i + + p 2-B i 4-B I p p 2-B : 4-B ! P P 2-B ! 4-B S p p

I S P P

i t p p 2-B : 4-b : p p 2-B ! 4-B S p p 2-B : 4-b : + P F

: 2-B : 4-b i p p p

: 2-B I 4-B I p p p

i 2-B I 4-B I p p p

i i : p p p

: i i i i i «.III! p p } p p 2-B I 4-B I ^ = S«BB|S38BBa^BCBBB^xeBS=fS: = 3rS^

s: si s: 6

! BS 71 SS 81 3 1 91

1 970M-S1 -TYPE 165

i 1970M-S1 -TYPE 104 1970M-S-30(4. lXSi

)

I 1970M-S-17(3.6XSi>

1970M-S-5(0.52Si)

1970M-S-3(0.7XSi)

i 1970M-S-1 ( 0 . 3XS1

)

1970M-C0NTR0L

I

I 1970GS

Legend :

(continued)

indicates one data point.

2B indicates 2 data points for

the primary test variable

as a function of the

secondary test variable B.
A. 23

Appendix V - continued

Sample Output (continued)

1 SAMPLE LABEL PRIMARY TEST VARIABLE | SS10! s: ii

SS12! ! s : 1 3

SS 14 ! SS 15! SS16! S « 1 7

s:i®

p: 1 ) ABRASION-WEIGHT LOSS 1 *** : 2-a 2-A 2-A ! *** #** : ***

p: 2) BASIS WEIGHT I *** #** : ***

PS 3) BRIGHTNESS : *** *** *** ! *** *** ! ***

-+- +- p p- p- +- p- P- PS 4) CRUMPL-AIR PERMEABLT 1 { ; ! 7-

| 7-A ! 7-A ! 6-A J 6-A ! 6-A

-i- -+-—t- P p- p- + - •p- P- PS 5) ELONGATI ON- % -CROSS I ! l ! ! J ! *** J *** 1 #*#

P- + f- f-—+- p- P- PS 6) ELONGATION-Z-KACHINE 1 ; j ! ! J ! *** J *** : ***

-f-—*-- +- p- F- F- p- PS 7) FOLD ENDUR-CROSS 1 *** ; 3-b : 3-B : *** ; #** J #** ! #** ; **» ! *#*

•p +- -p- PS 8) FOLD ENDUR-MACHINE I *** ; 3-B ! 3-B ! *** ! **# J *** ! #** ! *** ! ##*

t- +- p- p- P- PS 9) OIL ( * 1 0 ) PENETRATION 1 *** ! 3-B ! 3-B ! **# ! *** ! #** ! *** J *** ! ***

•f- -p- F- P- PS 10) OPACITY I ! J : *** i *#* **# i **# ! *** ! He**

-P- -p- •p +- F- p- P- PS 11) SMOOTHNESS 1 : ! J ! ! *** ! #** ! ***

-P- -f- F- p- P- PS 12) TEAR STR-CROSS I *** j 3-B ! 3-B ! **# J **# ! ! *** J *** ! **«

-i- •+- •+- •p- P- PS 13) TEAR STR-MACHINE i *** ! 3-B ! 3-B ! *** J *** : #** i *** ! *** ! ***

•f- pPS 14) TENS STR-DRY-CROSS I *#* ! 3-B ! 3-B ! **# ; #*# ! *** ! *** J *** i ***

1- P +- +- +- p- PS 15) TENS STR-DRY-MACHINE I *** ; 3-B ! 3-B ! *** ! **# ! *** ! #** J *** ! ***

P- +- p- P- PS 16) TENS STR-WET-CROSS 1 *** i 3-B ! 3-B : #** : *** J *** ! *** i **# 1 ***

PS 17) TENS STR-WET-MACHINE I *** I 3-B ! 3-B ! #** i *** ; *** ! *** ; *#* ! ***

p: 18) THICKNESS I \ J ! J ! **# ! *** : ***

p: 19) WATER PENETRATION 1

• 1

: *** ; *** ! *** ! ! !

p: 20) WATER RESISTANCE i *** i 3-B ! 3-B s j

' *** ! *** ! #** PRIMARY TEST VARIABLE 1 s: 10 ! Sill! s : 12ii s: 13! SS 14 ! SS 15

SS 16

S S 17S S 18

5001 A-MELAMINE

I

I

I

I I ! 5000-MEL-GLYCE-GLUE

I I I

! 4998A-MELAMINE-GLYCE

4838-RESI ZED-SLACK R

i 4838-RESIZED

!

I 4838-CONTROL

1970U-Si-TYPE 165

1970U-Si-TYPE 104 1970W-C0NTR0L
Appendix V - continued

A. 24

Sample Output with Key 8 and Tape for Report 4509

(a) Data for P:9 versus all samples marked by asterisk (*):

NBS PAPER PHYSICS DATA FILE - DATA TABLE FOR REPORT * 4509

VARIABLE: 0IL(*10> PENETRATION (secs.)

TEST SAMPLE (SEC, VAR. VALUE) I TEST DATA (secs.)

+

1 970M-C0NTR0L l 123

1 970W-C0NTR0L I 102

4838-CONTROL i 163

4 838- RE SI ZED ! 190

4 838-RES I ZED-SLACK R ! 215

4998A-MELAMINE-GLYCE ! 86

5000 -MEL -GLYCE-GLUE i 280

5001A-MELAMINE I 117

(b) Data for P:9 versus Secondary Variable B for all samples

NBS PAPER PHYSICS DATA FILE - DATA TABLE FOR REPORT * 4509

VARIABLE: 0IL(*10) PENETRATION (secs.)

SECONDARY VARIABLE: SILICONE COATING (%)

TEST SAMPLE (SEC. VAR. VALUE) ! TEST DATA (secs.)

+

1 9 70M -CONTROL ! 123

I 1970M-Si-TYPE 104 (0.5) i 203

1 970M-S i-TYPE 104 (0.7) ! 204

I

I

II 1970M-Si-TYPE 165 (0.3) ! 264

1 970M-S i-TYPE 165 (0.6) i 177

1970M-S1-TYPE 165 (2.5) ! 570

1970M-Si-TYPE 165 (4) ! 600

I 1970U-C0NTR0L ! 102

II 1970tJ-Si-TYPE 104 (0.44) ! 94

1970U-Si-TYPE 104 (0.8) ! 100

1970W-Si-TYPE 104 (1.4) ! 105

I

I

I• 1970U-Si-TYPE 165 (0.4) ! 120

1 970U-S i-TYPE 165 (0.8) ! 135

1 970U-Si -TYPE 165 (1.1) ! 117

I 4838-CONTROL ! 163

4 838-RES I ZED ; 190

4 838- RE S> I ZED- SLACK R ! 215

4998A-MELAM I NE-GLYCE { 86

5000-MEL-GL YCE-GLUE ! 280

5001 A-MELAMINE i H7
A. 25

Appendix V - continued

c) Data for P:4 versus Secondare Variable A for all samples:

NBS PAPER PHYSICS DATA FILE - = DATA TABLE FOR REPORT * 4509

variable: CRUMPL-AIR PERMEABLT (Carson Test Units)

SECONDARY VARIABLE.* NUMBER OF CRUMPLES

TEST SAMPLE (SEC. VAR. VALUE) ! TEST DATA (Carson Test Units)

+ 4838-CONTROL (0)

4838-CONTROL (4)

4838-CONTROL (8)

4838-CONTROL (12)

4838-CONTROL (16)

4838-CONTROL (20)

4838-CONTROL (24)

117.5

179.5

245.8

306.2

367.3

483B-RESIZED (0)

4 838-RES I ZED (4)

4838-RESIZED (8)

4838-RESIZED (12)

4838-RESIZED (16)

4838-RESIZED (20)

4838-RESIZED (24)

1.4

37.7

88.7

144.7

212.3

262.8

314.5

4838-RESIZED-SLACK R (0)

4 838 -RE SI ZED- SLACK R (4)

4 8 38-RE SI ZED- SLACK R (8)

4 838- RES I ZED-SLACK R (12)

4838-RES I ZEEi-SLACK R (16)

4838-RES I ZED- SLACK R (20)

4838-RES I ZED-SLACK R (24)

87.3

144.4

202.6

256.4

314.4

1.1

35

4998A-MELAMINE-6LYCE (0)

4998A-MELAMINE-GLYCE (4)

4998A-MELAMINE-GLYCE (8)

4998A-MELAMINE-GLYCE (12)

4998A-MELAMINE-GLYCE (16)

4998A-MELAMINE-GLYCE (24)

6.03

47.1

97.2

150

200

255

5000-MEL-GLYCE-GLUE (0)

5000-MEL-GLYCE-GLUE (4)

5000-MEL-GLYCE-GLUE (8)

5000-MEL-GLYCE-GLUE (12)

5000-MEL-GLYCE-GLUE (16)

5000-MEL-GLYCE-GLUE (24)

1.16

22.7

55.5

92.6

133

176

5001A-MEL AMINE (0)

5001A-MELAMINE (4)

5001 A-MEL AMINE (8)

5001 A-M EL AMINE (12)

5001A-MELAMINE (16)

5001A-MELAMINE (24)

3.83

34.7

76.5

124

169

214
OILC*10>

PENETRATION

Appendix V - continued

- A. 26

Sample Output with Key 9 and Tape for Report 4509

Plot for P : 9 versus all samples marked with an asterisk (*)

OILC#10> PENETRATION v». TEST SAMPLES

4509

300 _ (secs .

)

250 .

230

153

100

50

0

sF r#' ^

ft* <*# &&
CRUMPL-AIR

PERMEABLT

A. 21

Appendix V - continued

Sample Output with Key 10 and Tape for Report 4509

Plot for ^ : 4 versus Secondarv Variable A for 3 samples:

CRUMPL-AIR PERMEABLT v.. NUMBER OF CRUMPLES

4599

NUMBER OF CRUMPLES
A. 28
A. 2 9

NBS

Appendix VI

Paper Physics Data Operating System

For list of keys. See Appendix V.

Listing of Program in BASIC

To Operate Function Key Menu Display

145

e

9

12

13

1

17

20

21

24

25

28

29

32

33

36

37

40

41

100

110

120

130

140

150

160

170

180

190

200

210

220

230

240

250

260

270

280

290

300

310

320

330

340

350

360

370

380

390

400

410

420

GO TO

F=1

GO TO

CrO

30 TO

F=Z

GO TO

F = 4 GO TO

F = 5 GO TO

F=6

GO TO

F-7

GO TO

F=8

GO TO

F = 9 GO TO

F=10

GO TO

INIT

SET

100

330

330

330

330

330

530

330

330

330

330

KEY

PRINT

PRINT

PR INI PRINT

PRINT

PRINT

PRINT

PRINT

1 NBS PAPER PHYSICS DATA FILE - *5 JEFFREY FONG AND I VAN FONG * JULY 1978 IUHUHHHHH'

KEY

I

KEY

•I•KEY

I

1 INF'UT Info Type I (Title*

OUTPUT Info Type I IHHlIHMfciUH * * 2 INPUT Info Type II (Primary

Info Type II IHHHHHHHH *

(

INPUT Info Type III (Semple

Author?., Keywords )*

Labels, Secondary)*

1 1 i f o

Test Variables)

OUTPUT

3 OUTPUT

PRI ’KEY 4 OUTPUT

PRINT HHUtILlUKEY 5 PRINT * ItllJldldHBHtlKEY PRINT , _IUHHUl!HHtlKEY

PRINT ‘ IHHUUHBtltlKEY

PRI ‘ HtJHHUUKEY 9 PRI ’ IldHUHldldHtlKEY 10

PRINT = = = = = = = = = = = = = = = = ===^== = ^ = =:==== = = PRINT JPress User Definable KEY on upper left of Keyboard to

PRINT 'activate FUNCTION . GGG

FOR Z=1 TO 10000 STEP 0.01

NEXT Z END

"1 FUNCTION KEY Fi' CHOSEN . GG • F OF 350,390,430,470,490,330,570,570,570,570

DO YOU WISH TO (1) STORE,

Type 1 1 1 —mfc'HEi'l.iHHI l *

i Info Types I, II, III, in Matrix Format IHH'J

INPUT Info Type IV (Data Combination Codes)'

6 OUTPUT Info Type IV in Matrix Format"

7 INPUT Info Type V (Test Data)*

8 OUTPUT Info Type V in Table Format IHU")

PLOT Primary Test Variable vs. Sample Labels'

PLOT Primary vs. Secondary Test Variables*

FI

PRINT

GO TO

PRINT

INPUT

F9=F+F1

GO TO 580

PRINT 'DO

INPUT FI F9-F+F1+2

GO TO 580

(2) DISPLAY, OR (3) PRINT

YOU WISH TO (1) STORE, (2) DISPLAY, OR (3) PRINT
Appendix VI continued

430 PRINT ‘DO ' 440 INPUT FI 450 F9=F + F1 + 4 460 GO TO 580

470 F9-F+7

480 GO TO 530

4°0 PRINT ‘ARE

500 INPUT FI 510 F9-FTF 1 +6

520 GO TO 580

530 PRINT * IS

540 INPUT FI 550 F9=F+F 1 +7

560 GO TO 580

570 F9“F+9

580 FIND F9

590 OLD

600 RUN

610 END

To Operate Key 1-A

100 INIT

:l :L0 PRINT *LJ NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE I

• 120 PRINT *JJ ** PLEASE INSERT A DATA TAPE FOR DATA STORAGE *** 130 PRINT * CRETURN3G TO CONTINUE

140 INPUT Z$

150 FIND 0

160 IF TYP ( 0 ) =2 THEN 120

170 IF TYP ( 0 ) <>0 THEN 250

180 MARK 3 , 2500

190 FIND 4 200 MARK 2,7500

210 FIND 6

220 MARK 1,2500

230 FIND 7

240 MARK 3,7500

250 FIND 1 260 PRINT *JJ1. NBS REPORT NUMBER'D*

270 PRINT * *5 280 INPUT N 290 PRINT *_2 . NBS REPORT TITLE JG" 300 PRINT

310 INPUT A*

320 PRINT * •? 330 INPUT B*

340 PRINT * * f 350 INPUT C*

360 PRINT ' _3 . AUTHOR(S>:G*

370 PRINT

380 INPUT D*

390 PRINT * •(

400 INPUT E*

410 WRITE N,A*,B*,C*,D»,E*

420 PRINT * _4KEYWORDS: CTy^e END when done lislindDG*

430 PRINT * 440 INPUT Z*

450 IF Z*=*END* THEN 480

460 WRITE Z*

470 GO TO 430

480 PRINT * ** DATA STORED #*GGG‘

490 PRINT *_ INSERT MASTER TAPE FOR MENU (USE AUTO-LOAD)

500 END
Appendix VI - continued

To Operate Kev 1-B

100 INIT

110 PRINT *1 I J NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE I' 120 PRINT ' PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL * * 130 PRINT * C RE TURN I TO CONTINUEGG

140 INPUT Z$

150 FIND 1 160 IF TYP(O) 03 THEN 120

170 READ C'33:N,A*fDS.CS»D*,E*.Z*

1 GO LET Z 1=32

190 PRINT eZIl'L NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE I* 200 PRINT ezi:

210 PRINT ezi:

220 PRINT ezi:

230 PRINT ezi:*l. NDS REPORT NUMBER: 'fN

240 PRINT ezi:

250 PRINT ezi:'2. NBS REPORT TITLE: ’.A*

260 print ezi : *

f B*

270 PRINT ezi : • •

i Ci

280 PRINT ezi:

290 PRINT ezi:*3. AUT HOR(S>: "» D$

300 PRINT ezi : • • »E*

310 PRINT ezi:

320 print ezi: *4. keywords: *»z*

330 IF T Y P

(

0 ) = 1 THEN 370

340 READ e33IZi

350 PRINT ezi : • s »Z*

36C GO TO 330

370 PRINT * *Z DATA RETRIEVED **GGG"

380 PRINT *_ RETURN 70 MASTER TAPE FOR DATA STORAGE (USE AUTO-LOAD ) 'i 390 END

To Operate Key 1-C

100 INIT

110 PRINT •LJJ NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE I* 120 PRINT PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL » * 130 PRINT CRETURNU TO CONTINUEGG * 140 INPUT Z*

150

160

FIND 1 IF TYP ( 0 ) 03 THEN 12C

170 READ e 33:N»Ai »B*fC$.D*»E*»Z*

180 LET Z1 = 41

190 PRINT ezi : l NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE I 200 PRINT ezi

310 PRINT ezi

220 PRINT ezi

230 PRINT ezi : •

l

. NBS REPORT NUMBER: ' »N 240 PRINT ezi : 250 PRINT ezi :

2 . NBS REPORT TITLE: *;A$

260 PRINT ezi : • »BS

270 PRINT ezi : • »Ci

280 PRINT ezi : 290 PRINT ezi : '3. AUTHOR ( S ) : *

i

D$

300 PRINT ezi : •

* »E« 310 PRINT ezi : 320 PRINT ezi : *4. keywords: a ;z$

330 IF TYP(0)=1 THEN 370

340 read e33:z*

350 PRINT ezi : • • iZ*

360 GO TO 330

370 PRINT • tt DATA RETRIEVED **6GG*

380 PRINT *_ RETURN TO MASTER TAPE FOR DATA STORAGE (USE AUTO-LOAD) ’» 390 END
A. 32

Appendix VI - continued

To Ooerate Kev 2 -A

100 INIT

110 PRINT *LJ

120 PRINT *JJ

130 PRINT

140 INPUT It

150 FIND 2

160 IF TYP (OX

17C GO TO 120

180 KILL 2 190 FIND 2 200 PRINT * JJ1

210 PRINT

220 INPUT N 230 WRITE N 240 PRINT O 250 PRINT

260 INPUT 1%

270 IF Z$ = •END

280 WRITE Z$

290 GO TO 250

300 PRINT a 310 PRINT a 320 END

NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE II* ** PLEASE INSERT THE DATA TAPE FOR DATA STORAGE *** CRETURNJG TO CONTINUE

>2 THEN 180

. NBS REPORT NUMBER ?G*

•

PRIMARY TEST VARIABLES ? [Type END wh?n done listinaTG*

• THEN 300

** DATA STORED **GGG*

INSERT MASTER TAPE FOR MENU (USE AUTO-LOAD) * »

»

To Operate Key 2-B

100 INIT

110 PRINT *LJJ NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE II*

120 PRINT * PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL,*

130 PRINT * CRETURNU TO CONTINUEGG • 140 INPUT Z$

150 FIND 2

160 IF TYP( 0 ) 03 THEN 120

170 READ <?33:N,7$

180 LET Z 1 =32

190 PRI PZIJ'L NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE II*

200 print ezi:

210 PRINT (?Zi:

220 PRINT PZ1?

230 PRINT 0Z1J*1. NBS REPORT NUMBER? *5N

240 PRINT PZ1?

250 PRINT eZl?*2. PRIMARY TEST VARIABLES? *5Z*

260 IF TYP ( 0 ) =1 THEN 300

270 READ P33?Z$

280 PRINT (?Z1?* •> zt

290 GO TO 260

300 PRINT * ** DATA RETRIEVED **GGG * 310 PRINT *_ RETURN TO MASTER TAPE FOR DATA STORAGE (USE AUTO-LOAD)*;

320 END
A. 33

Appendix VI - continued

To Operate Key 2-C

100 INI

110 PRINT ' LJJ NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE II*

120 PRINT * PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL »

* 130 PRINT * [RETURN: TO CONTINUEGG * 140 INPUT Zi

150 FIND 2

140 IF TYP(O) 03 THEN 120

170 READ (?33:N»Z$

180 LET Z 1 = 4

190 PR I PZi:*L NDS PAPER PHYSICS DATA FILE - INFORMATION TYPE II*

200 PRINT ezi:

210 PRINT EZi:

220 PRINT ezi

230 PRINT ezi:*l. NBb REPORT NUMBER 1 *JN

240 print ezi:

250 PRINT eZi:*2. PRIMARY TEST VARIABLES J

* il%

260 IF T Y P ( 0 ) = 1 THEN 300

270 READ £33 :Z*

280 print ezi:* ‘iZi

290 GO TO 260

300 PRINT * ** DATA RETRIEVED **GG3*

310 PRINT *_ RETURN TO MASTER TAPE FOR DATA STORAGE (USE AUTO-LOAD)*;

320 END

To Operate Kev 3 -A

100 INIT

110 PRINT *

I—I NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE HI120 PRINT *JJ ** PLEASE INSERT THE DATA TAPE FOR DATA STORAGE *** 130 PRINT - CRETURNIG TO CONTINUE

140 INPUT Z i 150 FIND 3 160 IF TYP ( 0 ) 02 THEN 180

170 GO TO 120

180 KILL 3

190 FIND 3 200 PRINT -JJl. NBS REPORT NUMBER’G*

210 PRINT * *» 220 INPUT N 230 PRINT * _2 . NUMBER OF COLUMNS FOR MATRIX OUTPUT (CHECK NUMBER OF *; 240 PRINT 'SAMPLE LABELS t _ NO MORE THAN 12 COLUMNS ONLY): ;

250 INPUT M 260 WRITE M 270 PRINT * _3 . SAMPLE LABELS : [Type END when done listinsfIG*

280 PRINT * ’

» 290 INPUT Zi

300 WRITE Zi

310 IF Z5= * END * THEN 330

320 GO TO 280

330 PRINT * _4 • SECONDARY TEST VARIABLES (WITH UNITS): HENBDG*

340 PRINT * *; 350 INPUT Zi

360 IF Z$=*END* THEN 390

370 WRITE Zi

380 GO TO 340

390 PRINT * ** DATA STORED **GGG*»

400 PRINT *_ INSERT MASTER TAPE FOR MENU (USE AUTO-LOAD) 1 ; 410 END
A. 34

Appendix VI - continued

To Operate Key 3-B

100 INIT

110 PRINT •

I I J NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE III*

120 PRINT • PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL.*

130 PRINT ’ C RETURN] TO CONTINUEGG *» 140 INPUT Zt

150 FIND 3

160 IF TYP<0><>3 THEN 120

170 READ @33.N.Z$

180 LET Z 1=32

190 PRI @Zi:*L NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE III*

200 PRINT @Z1J

210 PRINT ezi:

220 PRINT 0Z1S

230 PRINT eZi:*l. NBS REPORT NUMBERS *.N

240 print ezi:

250 PRINT @Zi:*2. SAMPLE LABELS: *»Z*

260 READ @33SZ$

270 IF Zt=‘ END * THEN 300

280 PRINT @Z1 : * i Zt

2°0 GO TO 260

300 print ezi:

310 READ @33 l Zt

320 PRINT @Zlf3. SECONDARY TEST VARIABLES J • iZt

330 IF TYF' ( 0 ) = 1 THEN 370

340 READ @33JZ$

350 PRINT @Z1 : ’ * tZ$

360 GO TO 330

370 PRINT " ** DATA RETRIEVED **GGG*

380 PRINT •_ RETURN TO MASTER TAPE FOR DATA STRUCTURE ( AUTO-LOAD )* 5 390 END

To Operate Ke^ 3-C

100 INIT

110 PRINT *LJJ NBS PAPER PHYSICS DATA FILE - INFORMATION TYPC III*

120 PRINT • PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL.

130 PRINT ’ CRETURND TO CONTINUEGG

140 INPUT Zt

150 FIND 3

160 IF TYP ( 0 ) 03 THEN 120

170 READ @33:NfZ*

180 LET Zl=41

190 PRI @Zi:*L NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE III*

200 PRINT @Z15

210 PRINT @Z1S

220 PRINT ezi:

230 PRINT @Zi:*l. NBS REPORT NUMBER.* *.N

240 PRINT @Zi:

250 PRINT @Zi:*2. SAMPLE LABELS: • iZ%

260 READ 033 :Z$

270 IF Zt= ‘ END * THEN 300

280 PRINT ezi : * • fZt

290 GO TO 260

300 PRINT ezi:

310 READ @33:Z$

320 PRINT ezi: *3. SECONDARY TEST VARIABLES: * iZ*

330 IF TYP ( 0 ) =1 THEN 370

340 READ @33 :Z*

350 PRINT ezi:* iZt

360 GO TO 330

370 PRINT * ** DATA RETRIEVED **GGG*

300 PRINT *_ RETURN TO MASTER TAPE FOR DATA STRUCTURE < AUTO-LOAD ).*

390 END
A. 35

Appendix VI - continued

To Operate Key 4

100 INIT

110 F'RI * L J J NBS PAPER PHYSICS DA i A FILfc - INFO. TYPES I, II, III*

120 PRINT * PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL,*

130 PRINT * [RETURN! TO CONTl'NUEGG *; 14A INPUT Z$

150 FIND 1 160 IF TYP(0)=3 THEN 180

170 GO TO 120

ISO READ @331N,A$,B*,C$,Di,E$,Z$

190 PRI @4 1

i

* L NBS PAPER PHYSICS DATA FILE - INFO. TYPES I, II, III*

200 PRINT @415

210 PRINT @41 : 220 PRINT @ 41 : 230 PRINT @4i : i

NBS REPORT NUMBER! 8

; n 240 PRINT @ 41 : 250 PRINT @ 41 :

2 . NBS REPORT TITLE 1 ; a$

260 PRINT @ 41 :

• *

i B$

270 PRINT @4i :

•

• ;c$

280 PRINT @4i

290 PRINT @4i : *3. AUTHOR ( S )

" ;d$

300 PRINT @ 41 : • * iE$

310 PRINT @4i

320 PRINT @411 *4. KEYWORDS 1

*

} 2

$

330 IF TYP(0)=1 THEN 370

340 READ @33 : z$

350 PRINT @4i : • iZ%

360 GG TP 330

370 PRINT

@ 41 : 380 PRINT @411

390 FIND 3

400 READ @33 1 M , z J 410 Cl = l 420 PRINT @411*5. SAMF-lE LABELS! Si l 430 READ @33 1 Zi

440 IF 2% = * END * THEN 510

450 C1=C1+1

460 PRINT @41 1

* s: •

470 PRINT @411 USING 490 1 Cl

480 PRINT @411*) ] ;zi

490 IMAGE 2D ,

500 GO TO 430

510 PRINT @41

L520 FIND 2

530 READ @33!N1»Z*

540 IF N1 ON THEN 1630

550 C2=l

560 PRINT @41t*6. PRIMARY. TEST VARIABLES J PI 1) * ‘,1% 570 IF TYP<0>=1 THEN 640

580 C2=C2T1

590 READ @33;Z$

600 PRINT @4 i J

* P! *

i 610 PRINT 04 1 ! USING 4901C2

620 PRINT @41 :

)

* iZ%

630 GO TO 570

640 PRINT @41

650 FIND 3 660 READ @331M,Z*

670 FOR 1=1 TO Cl+1

680 READ @33 1Z*

690 NEXT I
Appendix VI - continued

700 C3=

710 GOSUB 1150

720 PRINT 041 J *7. SECONDARY TEST VARIABLES! A) ’»Y*

730 IF TYP(0)=1 THEN 810

740 C3=C3+1

750 READ 033 1 Z$

760 GOSUB 1150

770 X$=CHR ( C3+64

)

780 PRINT 041 !’ ’JX*f

790 PRINT 041!’) "?Y*

800 GO TO 730

810 FOR L=1 TO 6

820 PRINT 041

830 NEXT L 840 PRINT 041 J* NBS PAPER PHYSICS DATA FILE - DATA MATRIX FOR •» 850 PRINT 041! ’REPORT # ’*N

860 PRINT 041!

870 PRINT 041!

880 K=INT (C1/(M+1)

)

890 K1=0

900 PRINT 0411’ <H> SAMPLE LABEL *’ 910 GOSUB 1480

920 PRINT 041!

930 GOSUB 1210

940 FIND 2

950 READ 033 !N2

960 FOR J=1 TO C2

970 READ 033 ! Z$

980 PRINT 041!’ P!’J

990 PRINT 041! USING 490!

1000 GOSUB 1290

1010 NEXT J

1020 GOSUB 1210

1030 GOSUB 1480

1040 PRINT 041!

1050 GOSUB 1560

1060 FOR L=1 TO 4 1070 PRINT 041!

1080 NEXT L 1090 IF K1=K THEN 1120

1100 K1=K1+1

1110 GO TO 900

1120 PRI ’ MARK THOSE BOXES WHICH CORRESPOND TO DATA VALUES*’

1130 PRI ’ RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD ) .’

1140 END

1150 Y=POS

(

2%

*

’ (’1

1160 IF YOO THEN 1190

1170 Y$=Z$

1180 GO TO 1200

1190 Y*=SEG (Z$*1*Y-1>

1200 RETURN

1210 PRINT 041! ’=============================(H)U*===b=»’»

1220 IF M=1 THEN 1270

1230 FOR I=K1*M+1 TO <K1+1)*M

1240 PRINT 041!’=H!=====’»

1250 IF I=C1-1 OR I=(K1+1)*M-1 THEN 1270

1260 NEXT I 1270 PRINT 041 ! ’ =H !

1280 RETURN

1290 PRINT 041! ’ ) ~**Z*»

1300 FOR S=1 TO 21-LEN< Z%

)

1310 PRINT 041!’ ’! 1320 NEXT S

1330 PRINT 041! ’(H) ’{

1340 IF M=1 THEN 1390

1350 FOR I=K1*M+1 TO <K1+1)*M

1360 PRINT 041 i *

• i 1370 IF I=C1-1 OR I=(K1+1)*M-1 THEN 1390

1380 NEXT I 1390 PRINT 041 ! ’

!

1400 IF J=C2 THEN 1470

1410 PRINT 041!’ (H )t) •» 1420 FOR I=K1*M+1 TO (K1+1>*M

1430 PRINT 041!’ -H ! ’I
A. 37

Appendix VI - continued

1440 IF I=C1-1 OR I=<K1+1)*M-1 THEN 1460

1450 NEXT I 1460 print 041 : '-y:

1470 RETURN

1480 PRINT 0411* PRIMARY TEST VARIABLE

1490 FOR I=K1*M+1 TO <K1+1)*M

1500 PRINT 0411 USING 49011

1510 IF I=C1 OR I=(K1+1)*M THEN 1540

1520 PRINT 041

1

! Si *

1530 NEXT I 1540 PRINT 0411 * 1 *

1550 RETURN

1560 IF K1=K THEN 1590

1570 FOR I=<K1+1)*M TO K1*M+1 STEP -1

1580 GO TO 1600

1590 FOR I=C1 TO K1*M+1 STEP -1

1600 FIND 3

1610 READ 0331N1

1620 FOR J=1 TO I 1630 READ 0331Z*

1640 NEXT J 1650 PRINT 041 1 * 1660 IF I=K1*M+1 THEN 1700

1670 FOR H=1 TO I-K1*M-1

1680 PRINT 0411* i *f 1690 NEXT H 1700 PRINT 041 1ZS

1710 NEXT I 1720 RETURN

1730 PRINT * ERROR IN REPORT NUMBER.

1740 GO TO 1130

(d> SI'S

<d) *

PLEASE VERIFYGG. 1

To Operate Key 5-A

100 INIT

110

120

130

140

150

160

170

180

190

200

210

220

230

240

250

PRINT *

I I J NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE IV*

PRINT PLEASE INSERT THE DATA TAPE FOR DATA STORAGE.

PRINT * CRETURND TO CONTINUEGG. *5 INPUT A*

PRINT * KILL EXISTING FILE? CY OR NT 1 '( INPUT AS

IF A$= 1 N * THEN 250

FIND 4 IF T Y P ( 0 ) = 2 THEN 120

MARK 2.7500

FIND 6 MARK 1.2500

FIND 7 MARK 3.7500

K 1 =0

260 P=0

270 FIND 3 280 READ 033 1 M 290 FIND 2 300 READ 033 IN 310 PRINT *1 1 . NBS REPORT NUMBER1G *iN

320 PRINT

330 PRINT *2. DATA COMBINATION C0DES1G TYPE INFORMATION TO BE STORED *1 340 PRINT * ( <4 CHAR.).*

350 READ 033 1ZS

360 FIND 4 370 IF TYP ( 0 ) =0 OR TYP(0)=1 THEN 400

380 READ 033 IBS

390 GO TO 370

400 P=P+1

410 PRINT *_P1 * » 420 PRINT USING 4301P

430 IMAGE 2D.S

440 print • ) • ;zs; *G* 450 FOR J=K1*M+1 TO <Kl+l)*h
A. 38

Appendix VI - continued

460 PRINT ‘is:*;

470 PRINT USING 430JJ

480 PRINT ’

) ’

490 DIM C*<3)

500 INPUT C*

510 IF C*<>" THEN 530

520 C$=‘

530 WRITE C*

1540 NEXT J 550 FIND 2

560 READ G33:N

570 FOR 1=1 TO P 580 READ @33 1 Z*

590 NEXT I 600 IF TYP(0)=1 THEN 620

610 GO TO 310

620 PRINT * END OF FILE? CY OR N31

630 INPUT A*

640 IF A$=‘ Y* THEN 670

650 K1=K1+1

660 GO TO 260

670 PRINT ’ _ ** DATA STORED #*GGG*

680 PRI • RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD) «

“

690 END

To Operate Key 5-B

LOO INIT

110

120

130

140

150

160

170

PRINT *LJJ

PRINT 5 PRINT

INPUT A*

PRINT

INPUT A*

IF A$= * N

NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE IV

PLEASE INSERT THE DATA TAPE FOR DATA STORAGE f

C RETURN! TO CONTINUEGG *

KILL EXISTING FILE? CY OR NT: *f THEN 250

180 FIND 5 190 IF TYP ( 0 ) =2 THEN 120

200 MARK 1» 7500

210 FIND 6

220 MARK If 2500

230 FIND 7 240 MARK 3 f 7500

250 K1=0

260 P=0

270 S=0

280 FIND 2

290 READ @33 IN 300 READ 033JZ*

310 P=P+1

320 IF TYP ( 0 > <>1 THEN 300

330 FIND 3

340 READ @33 1

350 READ 03317.% 360 S=S+1

370 IF Z*<> * END * THEN 350

380 S=S-1

390 GOSUB 670

400 DIM D(PfS)

410 FIND 5

420 FOR 1=1 TO P 430 PRINT

440 PRINT USING 45051

450 IMAGE 2D f

460 PRINT * )G* f 470 FOR J=K1*M+1 TO <K1+1)*M

480 PRINT *IS:*f

490 PRINT USING 450JJ
Appendix VI continued

500 print • > i 510 input d*

520 IF D*<> * * THEN 540

530 D*= , 0*

540 D( I f J) = VAL < D*

)

550 WRITE D < I f J ) 560 NEXT J 570 GOSUB 670

580 NEXT I 590 PRINT * END OF FILE? CY OR NDI * I 600 INPUT A*

610 IF A*= 1 Y * THEN 640

620 K1=K1+1

630 GO TO 420

640 PRINT • ** DATA STORED **GGG*

650 PRI ' RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD).

660 END

670 PRINT *1 1 . NBS REPORT NUMBER.G 'IN 680 PRINT

690 PRINT *2. DATA COMBINATION CODESJG TYPE NUMERIC DATA TO BE STORED

700 PRINT * < <4 CHAR.).’

710 RETURN

To Operate Key 6-A

100 INIT

110 PRINT * L J J NBS PAPER PHYSICS DATA FILE - INFO. TYPES If IV

120 PRINT * PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL.

130 PRINT ‘ CRETURND TO CONTINUECG

140 INPUT Z*

150 FIND 1 160 IF T YP ( 0 ) =3 THEN 180

170 GO TO 120

180 READ 033:NfA*fB*fC*fD*fE*fZ*

190 PRINT @4i:’L NBS PAPER PHYSICS DATA FILE - INFO. TYPES If IV

200 PRINT 041

210 PRINT 041

220 PRINT 041

230 PRINT @4 1

5 1 . NBS REPORT NUMBER: ;n 240 PRINT e4i

250 PRINT 041 J'2. NBS REPORT TITLE: IA*

260 PRINT 04i : • IB*

270 PRINT 04i : • 1C*

280 PRINT @41

290 PRINT 04 i

1 3 . author

(

s )

ID*

300 PRINT 041 :

• IE*

310 PRINT 041 : 320 PRINT 04i : *4. keywords: •

1 z*

330 IF TYP ( 0 ) =1 THEN 370

340 READ 033:Z$

350 PRINT 04i : • 1 iz*

360 GO TO 330

370 PRINT 041 : 380 PRINT 041 ! 390 PRINT 04x

400 FIND 2

410 READ 033:N1 fZ$

420 C2=l

430 IF TYP ( 0 ) =1 THEN 470

440 READ 033:z$

450 C2=C2+

460 GO TO 430
Appendix VI continued

470 FIND 3

480 READ P335H.Z*

490 Cl=l

500 READ 833 JZ*

510 IF Z$= " END * THEN 540

520 C1=C1+1

530 GO TO 500

540 PRINT @41 :• NBS PAPER PHYSICS DATA FILE - DATA MATRIX FOR

550 PRINT @41 J 'REPORT * ' »N 560 PRINT @41

570 PRINT @41

580 K=INT ( Cl/ ( M+l )

590 K1=0

600 PRINT @41

1 <H) SAMPLE LABEL #'

610 GOSIJB 1270

62'"' PRINT @41

630 GOSUB 850

640 FIND 2 650 READ @33:N1

660 FOR J=1 TO C2

670 READ @33 JZ*

680 PRINT @41 PJ'f

690 PRINT @41 J USING 1300:j

700 COSUB 920

710 NEXT J 720 GOSUB 850

730 GOSUB 1270

740 PRINT @41

750 GOSUB 1 36C

760 FOR L= 1 TO 4 770 PRINT @41

780 NEXT L 790 IF K1=K THEN 820

800 K1=K1+1

810 GO TO 600

820 PRI ' MARK THOSE BOXES WHICH CORRESPOND TO DATA VALUES

830 PRI ' RETURN TO MENU VIA OPERATING SYSTEM <UCE AUTO-LOAD)

840 END

850 PRINT @41 5 •======^======;==:= l: ========: ==== (y ) u== -:= _ a: . { 860 FOR I=K1*M+1 TO <N1+1)*M

870 PRINT @4 1 : ' =11 ! ===== *

; 880 IF I-Cl-1 OR I=(K1*1 )*M-1 THEN 900

890 NEXT I 900 PRINT @4 1 J * =8 ! * 910 RETURN

92C PRINT @41 : ' )

" ;zti

930 FOR S=1 TO 21-LEN(Z$)

940 PRINT @41 :• •; 950 NEXT S 960 PRINT 041 J ' vH )

'

970 FIND 4 980 IF J=1 AND K1 =0 THEN 1020

990 FOR 1 = 1 TO Nl*C2*M+( J-l )*M

1000 READ @33 SB*

1010 NEXT I 1020 FOR 1=1 TO M 1030 READ @33:CS>

1040 FOR S=1 TO INT < (5-LEN(C$) )/2)

1050 PRINT @41 : ' '

1060 NEXT S 1070 PRINT 041JC*f

1080 FOR S=1 TO T NT ( (6-LEN(C$) )/2)

1090 PRINT 041 : ' '

1100 NEXT S mo print @41 : • : *

1120 NEXT I
A. 41

Appendix VI - continued

1130 PRINT @41

1140 IF J=C2 THEN 1260

1150 PRINT (?41 : * (H)H

1160 FOR I=K1*M+1 TO <K1+1)*M ' 1170 print 041 : *-u: -

1180 IF I=C1-1 OR I=(K1+1)*M-1 THEN 1200

1190 NEXT I 1200 PRINT 041 : ’-Hi * 1210 FIND 2

1220 READ 033:N1

1230 FOR Jl=l TO J 1240 READ 033 :Z$

1250 NEXT J1

1260 RETURN

1270 PRINT 041 :* PRIMARY TEST VARIABLE <H> Si'i

1280 FOR I=K1*M+1 TO <Kl+l)*h

1290 PRINT 041 J USING 1300:

1300 IMAGE 2D f

1310 IF I=C1 OR I=(K1+1)*M THEN 1340

1320 print 041

s: * f 1320 NtXT I 1340 print 041

•

:

1350 RETURN

1360 IF K 1 =K THEN 1390

1370 FOR 1 = (Kl + 1 ) #M J O Nl*M+l STEP -1

1390 GO TO 1400

1390 FOR I=C1 TO K1*M+1 STEP -1

1400 FIND 3 .1410 READ 033 :h

1420 FOR J=1 TO r 1430 READ 033 :ZT- 1440 NEXT j

1450 PRIN J" 041 :

* (H) ; 1440 IF I=K1*M+1 THEN 1500

1470 FOR H = 1 Tu I-N1*M~1

1490 print 04i :

: •

1490 NEXT H 1500 PI-.INT 041 :Z$

1510 IF I=Kl*M+i THEN 1560

1520 PRINT 041 :<H> '

1530 FOR H= 1 TO I-K1YM-1

1540 print 041 : ! f 1550 NEXT H 1560 PRINT 041

1570 NEXT I 1580 RETURN

To Operate Key 6-B

ICO I NIT

110 PRINT ‘

I I J NBS PAPER PHYSICS DATA FILE. - INFO. TYPES If IV

120 PRINT 3 PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVALf'

130 PRINT * C RE TURN'D TO CONTINUED^.

140 INPUT Z5

150 FIND 1 160 IF :YP:0>=3 THEN 130

1,0 GO TO 1 20

1E0 READ 033:NfA ,SfD«,C£fD*fE*fZ*

190 PRINT 041 :*L NFS PAPER PHYSICS DATA FILE - INFO. TYPES If IV

200 PRINT 041

210 PRINT 04i: ’ 220 PRINT 041
A. 42

Appendix VI - continued

230 PRINT @41?*1. NBS REPORT NUMBER

240 PRINT @41*

250 PRINT @41 } *2. NDS REPORT TITLE?

260 PRINT @41 :

270 PRINT &41i ' 280 PRINT @41?

290 PRINT @41 .*’3. AUTHOR ( S ) ? 300 PRINT @41 J* 310 PRINT @41?

320 PRINT @41 .*'4. KEYWORDS?

330 IF TYP ( 0 ) - 1 THEN 370

•tzt

340 READ @33 ? Z$

350 PRINT @41?* • i 360 GO TO 330

370 PRINT @41?

380 PRINT @41?

390 PRINT @41?

400 FIND 2 410 READ @ 3 3 ? N 1 * Z $

420 02=1

430 IF TYP ( 0 )

1 THEN 470

440 READ @33 ? Zi

450 C2=C2+1

460 GO TO 430

470 FIND 3

480 READ @33?M*Z«

490 Cl=l

500 READ @33 ?Z*

510 IF Z%~- ’ END * THEN 540

520 C1=C1+1

530 GO TO 500

540 DIM D ( C2 * C 1

)

550 FIND 5 560 READ @33 ?D 570 PRINT @41?* NBS PAPER PHYSICS DATA FILE - DATA MATRIX FOR

580 PRINT @41? 'REPORT 1 '5N

590 PRINT @41?

600 PRINT @41?

640 GOSUD 1340

650 PRINT @41?

660 GOSUD 800

670 FIND 2 68C READ @33 ? N1

690 FOR J=1 TO C2

700 READ @ 3 3 2 Z T> 710 print @ 41 ; p;*;

720 PRINT @41? USING 1370?

730 GOSUD 950

740 NEXT J 750 GCiSUD 880

760 GOSUD J. 340

770 PRINT @41?

780 GOSUD 1430

790 FOR L= 1 TO 4 300 PRINT @M?

810 NEXT L 820 IF Ki =K THEN 850

S30 K1=K1+1

840 GO TO 630

850 PRI ' MARK THOSE DOXES WHICH CORRESPOND TO DATA VALUES*

860 PRI ' RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD),'*

610 K=INT (Cl/CM + l ) ) 620 K 1 = 0 630 PRINT @41?' <U> SAMPLE LABEL t

870 END
A. 43

Appendix VI - continued

880 PRINT 541 : •= = = = = = = ==== = = = = =-= = = = = = = = = = = = =( h ) ij= = = .-= = = ; 890 FOR I =K 1 *M+ 1 TO <K1+1)*M

900 print 541 : =h:=====*

910 IF 1=01-1 OR I=(K1+1)*M-1 THEN 930

920 NEXT I 930 PRINT 041 : *=H! 1 940 RETURN

c,uO print P4i : • )

• ;z$;

«,oO FOR S=1 TO 21-LEN<7$)

970 PRINT 541 : *

*

980 NEXT 8

990 PRINT 541 ; * (H; * 5 1000 FIND 5

1010 IF J=1 AND K1 =0 THEN 1050

1020 FOR 1=1 TO K1*C2*M+(J-1)*M

1030 READ 533 IB 1040 NEXT I 1050 FOR 1=1 TO M 1060 READ 533 IC

1070 IF C=0 THEN 1100

1080 C$=STR(C)

1090 GO TO 1110

1100 C$=' * 1110 FOR S=1 TO INT( (5-LEN(C$) )/2)

1120 PRINT 541 : ’

1130 NEXT S

1140 print 541 :c$;

1150 FOR S=1 TO I NT ( (6-LEN(C$) )/2)

1160 PRINT 541 : • •

i 1170 N

,(r XT S 1180 print 541 : • :

1190 NEXT I 1200 PRINT 54.:

1210 IF J=C2 THEN 1330

1220 PRINT 541 :* (H)1J ;

1230 FOR I =K1 *M+ 1 TO (K1+1)*M

1240 PRINT 541 : * - d ! 1

» 1250 IF I=C1-1 OR I=(Kl+l)*h-l THEN 1270

1260 NEXT I 1270 PRINT 541 : '-d: 1 1280 FIND 2

1290 READ 533 INI 1300 FOR Jl=l TO J 1310 READ 533JZ$

1320 NEXT J1

1330 RETURN

1340 PRINT 541 PRIMARY TEST VARIABLE <d) S:*»

1350 FOR I=K1*M+1 TO (K1+1)*M

1360 PRINT 541 : USING 13701 I 1370 IMAGE 2D » S

' 1380 IF I=C1 OR I=(K1+1)*M THEN 1410

1390 PRINT 541 1 *

I SJ *

1400 NEXT I 1410 PRINT 541

1

! 1

5 1420 RETURN

1430 IF K1=K THEN 1460

1440 FOR I=<K1+1)*M TO K1*M+1 STEP -1

1450 GO TO 1470

1460 FOR I=C1 TO K1*M+1 STEP -1

1470 FIND 3

1480 READ 533 1M

1490 FOR J=1 TO I 1500 READ 533JZ*

1510 NEXT J
A. 44

Appendix VI - continued

1520 PRINT 041 J

* (d) * » 1530 IF I=K1*M+1 THEN 1570

1540 FOR H= 1 TO I-K1*M-1

1550 PRINT 041 J

! '

1560 NEXT H 1570 PRINT @41 5 Z

$

1580 IF I=K1*M+1 THEN 1630

1590 PRINT @41 (d) »

1600 FOR H= 1 TO I-K1*M-1

1610 PRINT 041 :

* ! * * 1620 NEXT H 1630 PRINT 04 15 1640 NEXT I 1650 RETURN

To Operate Key 7

100 INIT

110 PRINT * LJJ

120 PRINT

130 PRINT * 140 INPUT A*

150 PRINT * 160 INPUT A*

170 IF A$= * N ‘ THEN 230

180 FIND 6

190 IF TYP< 0) =2 THEN 120

200 MARK 1» 2500

210 FIND 7 220 MARK 3 * 7500

230 K1=0

240 P=0

250 S=0

260 FIND 2

270 READ @33 JN 280 READ 033 JZ*

290 P=P+1

300 IF TYP(0)<>1 THEN 280

310 FIND 3

320 READ 033 5M

330 READ 0331Z*

340 S=S+1

350 IF ZiO'END* THEN 330

360 S=S-1

370 PRINT *L 1. NBS REPORT NUMBER JG ’)N

380 PRINT *_2. TEST VARIABLE UNITSJG TYPE APPROPRIATE UNIT._*

390 FIND 6

400 FOR 1=1 TO P 410 PRINT * P :*(

420 PRINT USING 430JI

430 IMAGE 2DrS

440 PRINT )G •» 450 INPUT V$

460 WRITE V*

470 NEXT I 480 GOSUB 1020

490 DIM D(P»M) »B(P»M)

500 FIND 5

510 IF K1=0 THEN 550

520 FOR 1=1 TO K1

530 READ @33 J

540 NEXT I 550 READ 033 JD

NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE V

PLEASE INSERT THE DATA TAPE FOR DATA STORAGE* * C RETURN 3 TO CONTINUEGG. *

KILL EXISTING FILES? CY OR N3J
A. 4 5

Appendix VI - continued

560 FIND 7 570 GOSUB 1060

580 FOR 1-1 TO M 590 PRINT * S : ’

600 PRINT USING 430:K1*M+I

610 PRINT * >

' } 620 FOR J=1 TO P 630 GO TO SGN ( D( J» I

) -1 ) +2 OF 640,670,730

640 L=- 1 . 0E+300

650 WRITE L 660 GO TO 930

670 PRINT *ip:

680 PRINT USING 430JJ

690 PRINT ‘ )

* t 700 INPUT L 710 WRITE L 720 GO TO 930

730 L=D(J,I)*1. 0E+300

740 WRITE L 750 DELETE K 760 DIM K<D(J»I))»R(D(JfI>>

770 FOR H= 1 TO D(J.I)

780 PRINT ‘IP : *

790 PRINT USING 430*.J

800 PRINT '-' }H, ' )

' » 810 INPUT K ( H

820 PRINT 'KIISECONDARY VALUE.* '}

830 INPUT R ( H

840 NEXT H 850 FIND 8

860 GOSUB 1060

870 WRITE K 880 FIND 9

890 GOSUB 1060

900 WRITE R 910 FIND 7

920 GOSUB 1060

930 NEXT J

940 GOSUB 1020

950 NEXT I 960 IF Kl=INT<S/(h+l>) THEN 990

970 K1=K1+1

980 GO TO 490

990 PRINT * ** DATA STORED **GGG_ '» 1000 PRINT 'RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD).'}

1010 END

1020 PRINT '1 1 . NBS REPORT NUMBER JG '}N

1030 PRINT

1040 PRINT '3. TEST DATA 5 G TYPE DATA VALUE TO BE STORED ' 1050 RETURN

1060 IF TYP ( 0 ) =0 OR TYP<0)=1 THEN 1090

1070 READ 033JZ9

1080 GO TO 1060

1090 RETURN

To Operate Key 8

100 INIT

110 PRINT ' LJJ

120 PRINT ' 130 PRINT ' 140 INPUT A$

150 P=0

160 S=0

170 H=

180 HI =

190 FIND 2 200 READ 033 J N 210 READ 033:Z$

220 P=P+1

230 IF TYP ( 0 ) <>1

240 FIND 3

250 READ 033JM

260 READ 033JZS

270 S=S + 1

NBS PAPER PHYSICS DATA FILE - INFORMATION TYPE V PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL »

CRETURND TO CONTINUEGG

THEN 210
A. 46

Appendix VI - continued

280 IF 2*0’ END THEN 260

290 S = S-1

300 DIM K < 1 000 ) 310 FIND 8

320 IF TYP ( 0 ) =0 OR TYP(0)=1 THEN 360

330 READ @33:K(H)

340 H=H+1

350 GO TO 320

360 PRINT *I 1 « NBS REPORT NUMBER 5 G

1

J

370 PRINT DO YOU WISH TO SEE TEST DATA FOR? <1> A PRIMARY 1 ) 380 PRINT * VARIABLE » OR_II (2) A TEST SAMPLE J *1 390 INPUT A 400 GO TO A OF 1040>410

410 PRINT ENTER SAMPLE CODE NUMBER (1 TO '(SOJ 1I 420 INPUT B 430 FIND 3

440 READ @33 ?M 450 FOR 1=1 TO B 460 READ @33 ? S$

470 NEXT I 480 PRINT SAMPLE CHOSEN? •»S$» , GG*

490 GOSUB 1950

500 PRINT @41? ‘SAMPLE? *»S*

510 PRINT @41?

520 PRINT @41 ?• TEST VARIABLE i TEST DATA (UNITS) 1 530 PRINT @41?* H! 540 DIM D(SrP)

550 FIND 7

560 READ @33 ?D 570 IF B= 1 THEN 640

580 FOR 10=1 TO B-l

590 FOR J0=1 TO P 600 IF D ( 10 > JO ) <1 . 0E+300 THEN 620

610 H1=H1+D<10» J01/1.0E+300

620 NEXT JO

630 NEXT 10

640 FOR 1=1 TO P 650 IF D(B» I )=-l .0E+300 THEN 1020

660 D*=STR(D(B»I>)

670 FIND 2

680 READ @33 ?N 690 FOR J=1 TO I 700 READ @33?P»

710 NEXT J

720 FIND 6

730 FOR J=1 TO I 740 READ @33 1 U$

750 NEXT J 760 IF D ( B » I ) > 1 . 0E+ 30 0 THEN 870

770 PRINT e41?P$f

780 FOR S9= 1 TO 25-LEN(P$)

790 PRINT @41? 1 1

» 800 NEXT S9

810 PRINT @41 ? ' ! 1 »D*f

820 FOR S9= 1 TO 12-LEN<D*>

830 PRINT @41?* *f 840 NEXT S9

850 PRINT @41

1

(

1 fU*f 1

)

1 860 GO TO 1020

870 PRINT @41 ?

| • 880 FOR J=H1 TO Hl+D ( B » I ) /I . 0E+300-1

890 D$=STR<K(J>>

900 PRINT @4i:P$J* (

1

f J-Hl+1 i

*

)

1

f 910 FOR S9=l TO 21-LEN(F'*)

920 print e4i:* ;

930 NEXT S9

940 PRINT @41

1

! • {*

(

950 FOR S9= 1 TO 12-LEN(D»)

960 PRINT @41 ?• 970 NEXT S9
Appendix VI - continued

900 PRINT 041 :

• <

;u$»

)

990 NEXT J

1000 Hl=Hl+D(BrI)/l. 0E+300

1010 PRINT 041 J • ! • 1020 NEXT I 1030 GO TO 1890

1040 PRINT •_ ENTER VARIABLE CODE NUMBER <1 TO *fP»‘>? *» 1050 INPUT B 1060 FIND 2

1070 READ 033?N

1080 FOR 1=1 TO B 1090 READ 033 ? P$

1100 NEXT I 1110 PRINT ‘ VARIABLE CHOSEN? ‘rPifGG*

1120 PRI *_ ENTER SECONDARY VARIABLE CODE LETTER (RETURN IF NONE)? •» 1130 INPUT A$

1140 IF A$ = * ‘ THEN 1250

1150 FIND 3

1160 READ 033JM

1170 FOR 1=1 TO S+ASC( A$)-63

1180 READ 033? V$

1190 NEXT I 1200 PRINT * VARIABLE CHOSEN? * » V$ r *GG“

1210 PRINT SELECT? (1) TABLE WITH SECONDARY VARIABLES*

1220 PRINT * IHUHH ( 2 ) TABLE WITHOUT SECONDARY VARIABLES —> •? 1230 INPUT T1

1240 GO TO 1260

1250 T1 =2

1260 FIND 6

1270 FOR J=1 TO B 1280 READ 033 ? U$

1290 NEXT J

1300 GOSUB 1950

1310 PRINT 041 ? ‘VARIABLE? *5P$»* <*»U*f>*

1320 IF Tl=2 THEN 1340

1330 PRINT 041? ‘SECONDARY VARIABLE? ‘IV$

1340 PRINT 041?

1350 PRINT 041? ‘TEST SAMPLE (SEC. VAR. VALUE) ! TEST DATA CrU*f)‘

1360 PRINT 041?*-' fc!

! ‘ i 1370 PRINT 041?* ‘ 1380 DIM D(S»P)

1390 FIND 7

1400 READ 033 ?D

1410 FOR 1=1 TO S

1420 IF D ( I > B) =-l « 0E+300 THEN 1880

1430 D*=STR(D(IfB))

1440 FIND 3

1450 READ 033?M

1460 FOR J=1 TO I 1470 READ 033?S*

1480 NEXT J

1490 IF D ( I » B ) >1 . 0E+300 THEN 1560

1500 PRINT 041 ?S$I

1510 FOR S9=l TO 31-LEN(S$>

1520 PRINT 041? ‘ *» 1530 NEXT S9

1540 PRINT 041? * ! ‘ 5D$

1550 GO TO 1880

1560 IF Tl=2 THEN 1880

1570 H0=1

1580 DIM R(1000)

1590 FIND 9

1600 IF TYP ( 0 ) =0 OR TYP(0)=1 THEN 1640

1610 READ 033?R(HO)

1620 H0=H0+1

1630 GO TO 1600

1640 IF 1=1 THEN 1710

1650 FOR 10=1 TO 1-1

1660 FOR J0=1 TO P 1670 IF D(IO» J0X1.0E+300 THEN 1690
A. 48

Appendix VI - continued

1680 H1=H1+D< 10* J0)/1 .0E+300

1690 NEXT JO

1700 NEXT 10

1710 IF B=1 THEN 1760

1720 FOR J=1 TO P-1

1730 IF DdrJXl *0E+300 THEN 1750

1740 H1=H1+D(I» JJ/1.0E+300

1750 NEXT J

1760 PRINT 041?* !

1770 FOR J=H1 TO Hl+D< I »B>/1 .0E+300-1

1780 D$=STR(K( J)

1790 R$=STR(R< J)

)

1800 PRINT 041?S$*‘ <

* *R< J) * *

)

* » 1810 FOR S9=l TO 29-LEN<S$)-LEN(R$>

1820 PRINT 041?* •; 1830 NEXT S9

1840 PRINT 041? * i * *D$

1850 NEXT J

1860 Hl=l

1870 PRINT 0415* i* 1880 NEXT I 1890 PRINT •„ REPEAT? (Y OR N)! *1 1900 INPUT R*

1910 IF R$= ‘ Y

* THEN 360

1920 PRINT *** DATA RETRIEVED ***GGG*

1930 PRI ' RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD) .*

1940 END

1950 PRINT 041 ? *L NBS PAPER PHYSICS DATA FILE -M

1960 PRINT 0415* DATA TABLE FOR REPORT # **N

1970 PRINT 0415

1980 PRINT 041

1990 RETURN

To operate Key 9

100

no

120

130

140

150

160

170

180

190

200

210

220

230

240

250

260

270

280

290

300

310

320

330

340

350

360

370

380

390

400

410

420

430

440

450

460

470

480

490

500

510

NBS PAPER PHYSICS DATA FILE - TEST DATA PLOT*

PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL*

[RETURN] TO CONTINUEGG

INIT

PRINT *LJJ

PRINT ' PRINT * INPUT A*

P=0

S=0

FIND 2

READ 033 JN READ 033 JZ*

P=P+1

IF TYP ( 0 ) <>1 THEN 190

FIND 3

READ 033 JM READ 033?Z*

S=S+1

IF Z$<>*END* THEN 240

S=S-1

PRINT *1 NBS REPORT NUMBER* • »N PRINT * SELECT! (1) ENTER PLOT VARIABLE*

PRINT *1(2) ENTER PLOT PARAMETERS-I < 3 > **PLOT ON SCREEN***

PRINT *1(4) **PLOT ON PLOTTER**_I (5) ENDGGI —

INPUT A

GO TO A OF 350*580*660*680*1280

GO TO 290

PRINT * ENTER THE PRIMARY TEST VARIABLE CODE NUMBER? *f INPUT B ON EOF (0) THEN 350

FIND 2

READ 033 JN

FOR 1=1 TO B READ 033 ?P*

NEXT I PRINT * VARIABLE CHOSEN? **P$i*GG*

FIND 6

FOR J=1 TO B READ 033 ?U*

NEXT J

DIM C(S»P) * D ( S

)

H=0

FIND 7

READ 033 ?C
Appendix VI - continued

520 FOR 1=1 TO S

530 D(I)=C(I.B)

540 IF D( I )=-l . 0E+300 OR D ( I ) >1 . 0E+300 THEN 560

550 H=H+

560 NEXT I 570 GO TO 280

580 PRINT * ENTER THE PLOT PARAMETERS tG*

590 PRINT * TEST VARIABLE (Y-AXIS) MINIMUM: "J 600 INPUT Y

610 PRINT * TEST VARIABLE (Y-AXIS) MAXIMUM « }

620 INPUT Y2

630 PRINT * TEST VARIABLE (Y-AXIS) TIC-MARK INTERVAL 1 *J 640 INPUT Y3

650 GO TO 280

660 Zl=32

670 GO TO 690

680 Zl=l

690 page ezi:

700 UINDOU 0, 1.5*H+0.5rYl»Y2

710 VIEWPORT 12> 125*20*85

720 print ezi:

730 print ezi:

740 FOR S9= 1 TO ( 55-LEN ( P$ ) ) /2

750 print ezi:* *» 760 NEXT S9

770 PRINT 5Zi:P*»* vs. TEST SAMPLES*

780 Ni=STR(N)

790 FOR S9=l TO (72-LEN(N») )/2

800 print ezi:* *» 810 NEXT S9

820 PRINT 0Z1JN

830 AXIS 0Zi:O»Y3

840 IF Zl=32 THEN 930

850 HOME 01

860 FOR S9=l TO LEN ( PS ) + ( 27-LEN ( P* ) )/2

870 PRINT 01J *J*»

880 NEXT S9

890 PRINT 01 J * * » 900 PRINT 01 » 25 1 90

910 PRINT 01JP*

920 PRINT 01.25JO

930 FOR I=Y1 TO Y2 STEP Y3

940 MOVE 0ZHOfI

950 PRINT 0Z1 1 “fclHUH* i I 960 NEXT I 970 MOVE 0Z1JO»Y2

980 PRINT 0Z1J* (*fU***>*

990 H1=0

1000 FOR J=1 TO S

1010 IF D( J)=-l .0E+300 OR D( J)>1 .0E+300 THEN 1230

1020 MOVE 0Z1 l 1 .5*Hl+0.5»0

1030 RDRAW 0Z1JO»D(J)

1040 RDRAW 0Z1J1»O

1050 RDRAW 0Z1JO,-D(J)

1060 H1=H1+1

1070 FIND 3

1080 READ 033 1

1090 FOR 1=1 TO J

1100 READ 033JS$

1110 NEXT I 1120 IF Zl=l THEN 1170

1130 IF H1/20INT (Hl/2) THEN 1150

1140 PRINT 0Z1J *J *

1150 PRINT 0Z1 * * JfcIHH* »S*

1160 GO TO 1230

1170 SET DEGREES

1180 PRINT 0Z1 »25*30

1190 FOR S9= 1 TO LEN(S*)+2

1200 PRINT 0Z1 J *H*

1210 NEXT S9

1220 PRINT 0Z1JS4

1230 NEXT J

1240 PRINT 0Z1.251O

1250 IF Zl=l THEN 280

1260 INPUT A*

1270 GO TO 280

1280 PRINT * GG * i 1290 PRI * RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD)*

1300 END
A. 50

Appendix VI - continued

To operate Kev 10

100 INIT

110 PRINT 'LJJ NBS PAPER PHYSICS DATA FILE - TEST DATA PLOT*

120 PRINT • PLEASE INSERT THE DATA TAPE FOR DATA RETRIEVAL*

130 PRINT * [RETURN! TO CONTINUEGG •» 140 INPUT A*

150 P=0

160 3=0

170 FIND 2

100 READ 033 IN 190 READ 033! Z*

200 P=P+1

210 IF TYP< 0) <>1 THEN 190

220 FIND 3

230 READ 033 IN 240 READ 0331Z*

250 5=S+1

260 IF Z$<> ‘ END* THEN 240

270 S=S-1

280 PRINT *1 NBS REPORT NUMBER! * »N 290 PRINT • SELECT! <1> ENTER PLOT VARIABLES*

300 PRINT *1(2) ENTER PLOT PARAMETERS_I ( 3 ) **PLOT ON SCREEN***

310 PRINT ’1(4) **PLOT ON PLOTTER**_X < 5 ) ENDGGI —> *! 320 INPUT A 330 GO TO A OF 350* 1010* 1200* 1220*2010

340 GO TO 290

350 PRINT * ENTER THE PRIMARY TEST VARIABLE CODE NUMBER! *» 360 INPUT B 370 FIND 2

380 READ 033 !N

390 FOR 1=1 TO B

400 READ 033 IP*

410 NEXT I 420 PRINT 'VARIABLE CHOSEN! **P*>'GG*

430 PRINT *_ENTER THE TEST SAMPLE CODE NUMBER! *1 440 INPUT B1

450 FIND 3

460 READ 033!

470 FOR 1=1 TO B1

480 READ 033 IS*

490 NEXT I 500 PRINT 'SAMPLE CHOSEN! '»S*»'GG'

510 PRINT '.ENTER THE SECONDARY TEST VARIABLE CODE LETTER! *» 520 INPUT B*

530 READ 033 ! Z*

540 IF ZtO'END* THEN 530

550 FOR 1=1 TO ASC ( B* ) -64

560 READ 0331V*

570 NEXT I 580 P9=P0S < V* » ' <**1)

590 IF P9O0 THEN 620

600 UI*=V*

610 GO TO 630

620 U* = SEG ( V* * 1 * P9-1

)

630 PRINT 'VARIABLE CHOSEN! 'SUtJ'GG*

640 H=1

650 Hl=l

660 DIM C(S*P) *D( 1000) *R( 1000)

670 FIND 7

680 READ 033 !

690 FIND 8
A . 51

Appendix VI - continued

700 IF TYP ( 0 ) =0 THEN 350

710 IF TYP(0)=1 THEN 750

720 READ 033?D(H)

730 H=H+

740 GO TO 710

750 FIND 9

760 ON EOF (0) THEN 780

770 READ 033 5

780 IF C(Bl»B)<1.0E+300 THEN 350

790 C1=C(B1 rB)/l » 0E+300

800 DIM V(C1),W(C1>

810 IF Bl=l THEN 920

820 FOR 10=1 TO Bl-1

830 FOR J0=1 TO P

840 IF C( I0» J0X1 .0E+300 THEN 860

850 Hl=Hl+C(IOrJO)/l« 0E+300

860 NEXT JO

870 NEXT 10

880 FOR J=1 TO B-l

890 IF C(BltJXl .0E+300 THEN 910

900 Hl=Hl+C(BlfJ)/l .0E+300

910 NEXT J 920 FOR J=H1 TO Hl+Cl-1

930 W( J-Hl+1 )=D( J)

940 V( J-Hl+1 )=R( J)

950 NEXT J

960 FIND 6

970 FOR J=1 TO B 980 READ 033 ?U*

990 NEXT J

1000 GO TO

1010 PRINT

1020 PRINT

1030 INPUT

1040 PRINT

1050 INPUT

1060 PRINT

1070 INPUT

1080 PRINT

1090 INPUT

1100 PRINT

1110 INPUT

1120 PRINT

1130 INPUT

1140 PRINT

1150 PRINT

1160 PRINT

1170 PRINT

1180 INPUT

1190 GO TO

1200 Zl=32

1210 GO TO

1220 Zl=l

1230 page ezi:

1240 WINDOW XI » X2» Y1 » Y2

1250 VIEWPORT 14»105»15»82

1260 print ezi?

1270 print ezi?

1280 FOR S9=l TO ( 67-LEN ( P$ ) -LEN ( W$ ) >/2

1290 print ezi: *

1300 NEXT S9

1310 PRINT 0Z1?P*»* vs. *fW*

1320 N$=STR ( N

)

1330 FOR S9=l TO ( 72-LEN ( N$ ) ) /2

1340 print ezi?* •* 1350 NEXT S9

280

*

ENTER THE PLOT PARAMETERS?G*

* PRIMARY VARIABLE <Y-AXIS) MINIMUM* *i Y1

* PRIMARY VARIABLE (Y-AXIS) MAXIMUM* *5 Y2

’ PRIMARY VARIABLE (Y-AXIS) TIC-MARK INTERVAL? *1 Y3

*_ SECONDARY VARIABLE (X-AXIS) MINIMUM? *J XI

* SECONDARY VARIABLE (X-AXIS) MAXIMUM? *i X2

SECONDARY VARIABLE (X-AXIS) TIC-MARK INTERVAL? • X3

*_ SELECT? (1) LINE PLOT MODE*

* (2) DOT PLOT MODE*

* (3) DASH PLOT MODE*

* (4) POINT-ONLY PLOT MODE —> •» Ml

280

1230
A. 52

Appendix VI - continued

1360 PRINT (?Zi:N

1370 AXIS 0Z1JX3»Y3

1380 PRINT ezi:

1390 PRINT ezi:

1400 PRINT ezi:

1410 FOR S9=l TO ( 72-LEN ( V* ) ) /2

1420 PRINT 0Z1J" *» 1430 NEXT S9

1440 print ezi ;v*

1450 FOR I=X1 TO X2 STEP X3

1460 MOVE 0Z11I»Y1

1470 print ezi^ju*;!

1480 NEXT I 1490 IF Zl=32 THEN 1580

1500 HOME 01

1510 FOR S9=l TO LEN < P* ) + ( 27-LEN<PS > >/2

1520 PRINT 011 'J'J

1530 NEXT S9

1540 PRINT 011’ *» 1550 PRINT 01 » 25 J 90

1560 PRINT 01 IP*

1570 PRINT 01,2510

1580 FOR I=Y1 TO Y2 STEP Y3

1590 MOVE 0Z11X1,I

1600 PRINT 0Z1 1 "HUtlH* » I 1610 NEXT I 1620 MOVE 0ZUXlfY2

1630 PRINT 0Z1J* CfU*?')'

1640 MOVE 0Z1:V(1)fU(1)

1650 FOR J=2 TO Cl+1

1660 SCALE 1,1

1670 RDRAU 0Z1JO»O

1680 RMOVE 0ZUOtl

1690 RDRAU 0Z 11 1,-1

1700 RDRAU 0Z1J-1»-1

1710 RDRAU 0ZU-1f1

1720 RDRAU 0Z1J1,1

1730 RMOVE 0Z1JO,-1

1740 UINDOU XI »X2,Y1»Y2

1750 IF J=C1+1 THEN 1970

1760 GO TO Ml OF 1790» 1810» 1880

1770 MOVE 0ZliV(J>»U(J>

1780 GO TO 1960

1790 DRAU 0Zi:V<J)»U<J)

1800 GO TO 1960

1810 FOR Jl=l TO 10

1820 X9=V< J-l )+Jl*(V< J)-V( J-l) )/10

1830 Y9=U( J-1)+J1*(U< J)-U( J-l) )/10

1840 MOVE 0ZlJX9rY9

1850 RDRAU 0Z1JO»O

1860 NEXT J1

1870 GO TO 1960

1880 FOR Jl=l TO 3

1890 X9=V< J-l )+(2*Jl-l )*(V( J)-V( J-l) )/6

1900 Y9=U< J-l >+<2*Jl—

)*(U( J)-U( J-l) )/6

1910 MOVE 0ZlJX9rY9

1920 X9=X9+(V( J)-V< J-l > )/6

1930 Y9=Y9+ < U ( J ) -U< J-l ) )/6

1940 DRAU 0ZHX9rY9

1950 NEXT J1

1960 NEXT J

1970 PRINT 0Z1 J *• f S*

1980 IF Zl=l THEN 280

1990 INPUT A*

2000 GO TO 280

2010 PRINT ' GG * > 2020 PRI • " RETURN TO MENU VIA OPERATING SYSTEM (USE AUTO-LOAD) *» 2030 END
.

NBS-114A (REV. ».78>

U.S. DEPT. OF COMM.

BIBLIOGRAPHIC DATA

SHEET

1. PUBLICATION OR REPORT NO. NBSIR 79-1746kiv’t. Accession No 3. Recipient's Accession No.

4. TITLE AND SUBTITLE

Mathematical Modeling & New Experiments on Durability

of Paper: A Progress Report

5. Publication Date April 1979

S. Performing Organization Code

7. AUTHOR(S) Jeffrey T. Fong, Ivan K. Fong,

Elizabeth E. Toth and Edmond L. Graminski

&. Performing Organ. Report No.

9. PERFORMING ORGANIZATION NAME AND ADDRESS

NATIONAL BUREAU OF STANDARDS

DEPARTMENT OF COMMERCE

WASHINGTON, DC 20234

18. Project/Task/Worfc Unit No.

11. Contract/Grant No.

12. SPONSORING ORGANIZATION NAME AND COMPLETE ADDRESS (Street, City. State, ZIP)

Bureau of Engraving & Printing

U.S. Dept, of Treasury

Washington, D. C. 20401

13. Type of Report & Period Covered Progress Report

2/1/77 - 9/30/78

1*. Sponsoring Agency Code

15. SUPPLEMENTARY NOTES

Document describes a computer program; SF-185, FIPS Software Summary, is attached.

IS. ABSTRACT A 200-word or leas factual summary of moat significant information. It document includes a significant bibliography or

literature survey, mention it here.) As a necessary step towards the modeling of the microstructural changes of paper

due to environmental and mechanical loadings, a computer-aided data file for a collection of 47 NBS reports (1953-1976) is created. Using an in-house experimental database

management system (COLLIN) as implemented on an NBS computer (DEC PDP-10) , a mini-data

bank for the 47 technical reports is set up with the following searchable parameters:

(a) report number, (b) author's name, (c) keyword, (d) test sample label, and (e) primary test variable. Each search will yield a complete record containing all the searchable information as well as (f) title of report, (g) citation, (h) the abstract, and (i)

the so-called secondary test variable. To obtain quantitative information from any specific report for some combinations of sample labels and test variables for which experimental data were reported, a data tape is prepared and implemented for retrieval on a leased mini-computer graphical system (Tektronix 4051 with printer 4641 and plotter 4662)

The operating system using the computer language BASIC is general enough to assist any

scientist or engineer to create a personal data file at a reasonable cost. It is clear Jjy

demonstrated that no prior training in the use of a computer is necessary for the implementation of this project.

During this reporting period, experiments on relating the quantity of water in the

cellulose walls of pulp fibers to the cross-sectional morphology of fibers in paper were

in progress. A brief discussion of this aspect of work is included in this report.

17. KEY WORDS (six to twelve entries; alphabetical order; capitalize only the lirat letter ol the liret key word unless a proper name;

separated by semicolons)

Computer graphics; data base management; data retrieval; durability; fatigue; interactive system; mathematical modeling; paper; paper fiber; report retrieval; scientific

data.

18. AVAILABILITY f ^l Unlimited

[31 For Official Distribution. Do Not Release to NTIS

13” Order From Sup. of Doc., U.S. Government Printing Office, Washington, DC

20402, SD Stock No. SN003-003-

[X Order From National Technical Information Service (NTlSl, Springfield, VA. 22161

19. SECURITY CLASS

(THIS REPORT)

UNCLASSIFIED

20. SECURITY CLASS

(THIS PAGE)

UNCLASSIFIED

21. NO. OF

PRINTED PAGES

81

22 . Price

USCOMM-DC
.

.