$~9.

9S

..._
--........-....__....

- ..... ...
-...__
--
- . .... __

-- --
------
- -
·­
....... ­
VII

PROGRAMS
---. ...... ..... ---.

-. ·-....
--­ -~------
----­ -- -...
·
-
----....
ll.W. BROWN

BASIC
SOFTWARE
LIBRARY

VOLUME VII

PROFESSIONAL

PROGRAMS
THIS BASIC SOFTWARE LIBRARY IS MADE AVAIL
ABLE, FREE OF RESTRICTIONS AND ROYALTIES
TO SCHOOLS, COLLEGES, UNIVERSITIES, INDI­
VIDUALS, HOBBYIST & BUSINESS CONCERNS FOR
USE ON THEIR OWN COMPUTERS AND OR COMPUT­
ING SYSTEMS. REPRODUCTION IN ANY PART OR
FORM OF THIS ENTIRE LIBRARY IS STRICTLY
FORBIDDEN. USE OF ANY PART OR FORM OF THIS
ENTIRE LIBRARY FOR COMMERCIAL USE OF ANY
KIND IS STRICTLY FORBIDDEN WITHOUT THE EX
PRESSED WRITTEN PERMISSION OF SCIENTIFIC
RESEARCH.

lST. PRINTING - - SEPTEMBER 1977

COPYRIGHT UNDER UCC 1977 BY:

SCIENTIFIC RESEARCH INST.
P.O. BOX 490099

KEY BISCAYNE, FLA 33149

ii
 I NT R0 DUCT I 0 N

The p1r.Ogltllm6 pJr.uented heJr.e a1r.e .6e.t out 601t .the. .lndlvi.dual. who luL6 a 4pe.c.l6.lc.
~

need .ln mind. Be.c.au6e. a. de:tail.e.d d.iAc.u.64.lon 06 .thue. p!t.Og!rmnli would Jtequ.i.Jr.e. a
te.x.t 4e.v~ :ti.mu the p1r.uent .6.i.ze 06 .thh; UbJLJVr..y .lt ho.Ji been omltte.d. lndl­
v.ld.ua.l& who have ct .6pec-l6.(.c Jr.equbr.ement w.ill have :to be a.t leA.l>t k.nowtedgea.ble.
.ln the. a.Jr.ea .the pJWg1ta.m .l4 wJU..:tten a.bout; .le: S:ta.t.U.tlca.J.. p!t.Oglrmnli Jte.quilte the.
u.&e.Jr. :to be 6am.l.Utvr. wLth :the. .tWn6 me.an, meclla.n, etc. TfU.6 .l4 beca.u.6e. the. plr.0­

gll.aJn!; Me. W!Lltten bt .the veJUt.a.c.u.la.lt o6 .th.Wt. .6 u.b j e.c:t matte.Jr.. W.l.th .th.l4 know­
le.dg e. a.lone, no pMgJtamming ex.pe.M.enc.e on .the paJtt 06 .the u.6e.Jr. .l4 1te.quilted .ln
oJtdeJr. :to u.6e any 06 :thue pJtOgJtaJrll> ht mo.6.t .6tJ.6:t.e.m.6. Onc.e .lt .l4 de.teJrm.lne.d t;Jux;t
a. pall:tlc.ui.aJt pJWglW.m may be u&e.6u.l :the u.6eJL meJr.ely :t.ypu .&t a. c.opy 06 .the. BASIC
.6ou.Jr.ce. code exac.t.l.Jj d.6 Lt appe.aJUi .ln .the pJWgJta.m l.i.4.tlng. Then 6oUow the. .ln­
.6.:tlr.uctlon.6 601t lt:UJtYling :the pJr.ogJta.m d.6 ptc.uen:t.ed .ln the 1n4:tJu.Lc;tion po4tlon 06
.the Wltli:.e u.p, .immecUa.tei.y p1r.ecec:Ung :the pJWgJtam. All.io .i..nci.u.de.d .ln .the WILU.e. up.s
Me .6.ta.:i:eme.n:t.J) .that appeaJt .ln .the .6oUJr..c.e code which may po.6.6.lbly need :to be.
c.hanged :to Jr.wt .ln :the Melt 1 .6 compute.It .6Y.6:t.em; .i.e: RNV .6.ta.-teme.nt.6 may have. :to be.

changed :to FRANV .ln o!tde.Jr. :t.o c.omp..U.e .ln c.eJt;ta,in .6 t:J.6te.m.6 •

Due to the numerous copyright infringements incurred on our

earlier volumes, until further notice we are offering a $200
REWARD for information leading to the arrest and conviction
of anyone reproducing or distributing copies of our software
and/or books or tapes without the EXPRESSED written authori­
zation of SCIENTIFIC RESEARCH INSTRUMENTS COMPANY, INC.

iii
iv

 TABLE OF CONTENTS

VOLUME ONE
Preface
Part 1 ­ Business & Personal Bookkeeping Programs
NAME DESCRIPTION

Bond Computes price and interest for bond purchases.

Building Analyzes the cost of building design proposals.
Compound Computes effective compound interest rates.
Cyclic Determines seasonal coefficients for two cycles.
Decision 1 Makes a lease/buy decision for you.
Decision 2 Makes a decision on whether to buy a component or make it.
Depreciation Calculates depreciation by 4 different methods.
Efficient Cal. the most efficient assignment of resources and/or personnel.
Flow Predicts your yearly cash flow.
Installment Performs monthly installment accounting.
Interest Computes interest accruals, monthly.
Investments Computes annual rates of return on investments.
Mortgage Makes a comparison of mortgage terms.
Optimize Optimizes the layout for a plant, shop, office, etc.
Order Determines your economic order quantity for inventory items.
Pert Tree Performs an analysis of a pert network.

Rate Computes true annual interest rates.

Return 1 Computes lessor•s rate of return for uncertain assets.

Return 2 Computes a lessor 1 s rate of return after taxes.

Schedule Schedules N jobs in a shop with M machines.

Part 2 ­ Games & Pictures

NAME DESCRIPTION

Animals Four Teach the computer all about animals.

Astronaut Land your .spaceship on another planet.
Bagel Advanced number game, numbers may be algebraic, few clues.
Bio Cycle Calculate your Bio-Life Cycle and plan your days.
Cannons An advanced war game with big guns.
Checkers Plays a regulation game of checkers.
Craps A dice game with hard way odds.
Dogfight Air fight w/missiles; betweeen a phantom and a mig.
Golf Plays any number of holes; inc. obstacle course.
Judy Have a rap session with Judy via your computer.
Line Up Simple number game, all you have to do is unscramble them.
Pony Authentic horse race, any number of players.
Roulette Gamblers delight, plays Las Vegas rules.
Sky Diver Sky dive on another planet
Tank A war game between two tanks.
Teach Me Teach the computer to learn new things.

v
 TABLE OF CONTENTS
VOLUME ONE (CONT,)
PICTURES
NAME DESCRIPTION
Introduction
A. Newman He's absolutely MADI MADI MADI
J. F. K. Our 35th. president.
Linus Loveable "Peanuts" character, w/blanket.
Ms. Santa A modern miss to put a twinkle in your eye.

Nixon Former "United States" president.

Noel Noel Christmas or anytime this is a beautiful creation.

Nude A true work of art for anyone's gallery.

Peace A message for all seasons.

Policeman True and blue, he's the law.

Santa's Sleigh In banner form, perfect for decorating the mantle.

Snoopy That paragon of Dogdom even plays football.

Virgin A picture you can read as well as see.

TABLE OF CONTENTS
VOLUME TWO
Part 3 ­ Math & Engineering Programs
NAME DESCRIPTION
Beam Evaluates and selects steel beam sizes.

Conv. Calculates convolutions.

F i1 ter Calculates low pass filter components.

Fit Performs interpolations by spline fits.

integration 1 Uses Gaussion Quadrature to do integration.

I nteg rat ion 2 Integrates a function by spline fits.

Intensity Cale. and plots RF or Acoustic intensities.

Lola Cale. Long. and Lat. from interstellar fix

or distance.
Macro Simulates a language compiler.

Max. Min. Cale. the max. & min. values of funct. over a spec. interval.

Nava id Cale. position from altitude and azimuth of celestial bodies.

Optical Calculates Blackbody energies, w/filter look-up tables.

Planet Calculates Sun and Moon positions, hourly.

PSD Calculates Power Spectral Densities and FFT's.

Rand 1 Generates random numbers between 0 and 1.

Rand 2 Generates random integers between (X) and (Y).

Solve Solves polynomials by "Bairstows Method".

Sphere Tri an Solves any spherical triangle.

Stars Locates 50 stars (celestial).

Track Cale. course and distance and incremental vectors.

Triangle Solves for all parts of any triangle.

Variable Finds all variables in Basic programs.

Vector Cale. final position; given start and motion vectors

vi
 TABLE OF CONTENTS
VOLUME TWO (CONT,)

Part 4 ­ Plotting & Statistics Programs

NAME DESCRIPTION

Binomial Calculates binomial probability distributions.

Chi-Sq. Applies the Chi-Square test to samples.
Coef f Cale. coefficients of fourier series to apprx. a function.
Confidence 1 Calculates confidence limits on linear regressions.
Confidence 2 Calculates confidence limits for a sample mean.
Correlations Performs auto and cross correlations with plots.
Curve Fits 6 different curves by the least squares method.
Differences Calculates difference of means in non-equal variances.
Dua 1 P1ot Plots two functions on the same sheet.
Exp-Distri Calculates exponential distributions for a sample.
Least Squares Performs least squares fit by linear, exp., or power function.
Pai red Compares 2 groups of data using the rank test.
Plot Plots 6 equations on the same sheet.
Plotpts Plots data points on standard teletypes.
Polynomial Fit Performs least squares polynomial fit.
Regression Performs multiple linear fit with or without transformations.
Stat 1 Finds the mean, variance and standard deviation.
Stat 2 Computes various stat. measures for a variable.
T-Distribution Calculates normal and T-distributions.
Unpaired Compares 2 groups of unpaired data.
Variance 1 Performs one way analysis of variances.
Variance 2 Analyzes a variance table of one way random design.
xv Plots functions of X and Y.

APPENDIX A- BASIC STATEMENT DEFINITIONS

TABLE OF CONTENTS
VOLUME THREE
Part 5 ­ Advanced Business Programs
NAME DESCRIPTION
Bi 11 i ng Performs posting and billing of accounts.
Inventory Maintains data for inventory records.
Payro 11 Computes payrolls with full set of deductions.
Risk Performs a risk analysis on capital investments.
Schedule 2 Performs the most effi. scheduling of men or resources to loca.
Shipping Solves the problem of scheduling and assignments.
Stocks Computes the value of stocks.
Switch Calculates the effects of a bond switch.

vii
 TABLE OF CONTENTS

VOLUME FOUR
General Purpose Programs
NAME DESCRIPTION
Bingo
An age old favorite. 11 89, C23, D4, E13, F21, BINGO!

Bonds
Computes the yields for a bond for different periods.

Bu11
If you ever dreamed of being a Matador, here's your chance.

Enterprise
Take charge of the Enterprise while Capt. Kirk is on leave.

Footba 11
Authentic NFL version of this well known sport.

Fundis 1
Calculates long-term predictions of funds.

Funds 2
Plots the results of Funds 1.

Go-Moku
Ancient Chinese game of chance.

Jack
Plays Blackjack, Las Vegas style.

Life
Life is truly a battle for survival, a real challenger!

loans
Calculates annuities, loans and mortgages.

Mazes
Generates unique maze puzzles for you to solve.

Poker
Five card draw - for up to 5 players.

Popul
Performs population projections for defined areas.

Profits
Determines the profitability of a firms various depts.

Qubic
3-Dimensional Tic-Tac-Toe.

Rates
Cale. the effective annual interest rate for stated interest.

Retire
Calculates your Civil Service Retirement benefits.

Savings
Computes savings plan profiles.

SBA
Calculates repayment schedules for SBA loans.

Tic-Tac-Toe
An all time favorite for young and old alike.

TABLE oF CONTENTS
VOLUME FIVE
Experimenter's Programs

NAME DESCRIPTION
Andy Cap Draws this famous cartoon character.
Baseba 11 Plays a full 9 innings of baseball.
Compare Compares two groups of data.
Conf id 10 Determines the confidence limits for a normal population.
Descrip Provides a description of uni-variant data.
Differ Computes the diff. of the means for data of equal variance.
Engine Calculates the otto cycle of engines.
Fourier This program evaluates fourier series.
Horse Draws a picture of a horse.
Integers Computes integers as the sum of other integers.
logic Determines conclusions from logic statements.
Playboy Draws the playboy symbol.
Primes Factors numbers into their primes.
Probal Cale. Chi-Sq. and probabilities from 2X2 data sets.

viii
 TABLE OF CONTENTS

VOLUME FIVE (CONT.)

Experimenter's Programs
NAME DESCRIPTION
Quadrac Solves quadratic equations

Red Baron Draws a picture of the Infamous Red Baron.

Regression 2 Calculates linear regressions.

Road Runner "Beep! Beepl 11 Draws a picture of the Road Runner.

Roulette Computerized "Wheel of Fortune", plays roulette.

Santa Old Saint Nick appears as jolly as ever.

Stat 10 Calculates quantities for two groups of paired data.

Stat 11 Computes sample statistics.

Steel Calculates steel beam capacities.

Top Computes cost for surfacing a road or driveway, etc.

Vary Performs an analysis of a vari. table; one-way random design.

Xmas Generates a "SINGING" Christmas card.

APPENDIX B - STATEMENT CONVERSION ALGORITHMS

TABLE oF CONTENTS

VOLUME SIX

A Complete Business System

NAME DESCRIPTION
Ledger Maintains ALL Company accounts and generates ALL financial

reports. Includes routines for: Pyrl, Inv, Depr, A/R, A/P,

Balance Sheets and Prof it & Loss statements, etc.

ACBS rev:80 Users Manual - A Proprietary Package

TABLE OF CONTENTS
VOLUME SEVEN PAGE
Professional Programs
NAME DESCRIPTION
Chess Designed to challenge the average player, fairly comprehensive. 1105
Great fun for all, offers a unique opportunity for beginners in
need of an opponent.
Medbi 1 For Doctors and Dentists alike, a complete patient billing 1117
system which also permits the maintaining of a patient history
record.
Wdproc Wordprocessing for lawyers, publishers, writers etc. Write, 1135
store and change from rough draft to final copy in a variety
of formats.

ix
 TABLE OF CONTENTS

VOLUME SEVEN (CONT,) PAGE

Professional Programs
NAME
Utility 1171

Licensing Agreement 1188

x
 PREFACE

The information contained in these pages represents the culmination of a

very large project. That of compiling a versatile and complete Software
Library that will be of use to a large number of diverse individuals. The
programs prese.nted here when combined in a system will represent a very
powerful library bank. Such a work as this has been attempted in the past
in such areas as cook books, electronic source books, mathematical tables
and even computer games. But to date such a collection as this has yet to
be offered to the average individual to use as he chooses. The word 11 at­
temped11 was used as no work is ever considered complete by everyone regar
dless of its thoroughness.

The programs presented here were chosen for their uniqueness and general
usefulness. There should be at least one program included that will be of
use to every type of individual whether they have access to a computer or
not. Computers are a wonderful and very useful tool. Through this Library
I hope to interest more people into becoming involved with computers. The
Library is written so th~t little or no computer programming experience
is required to invoke any of the programs. The programs that are present­
ed here are all written in the computer language called BASIC. Each pro­
gram has been successfully run on a G.E. 635 computer. The entire source
code is presented as well as a short narrative page which defines the pro
gram, tells who might be interested in using it, a brief set of instruc­
tions or how to get them and then any 1imitations in the program are no­
ted. In the limitations section the storage length in K Bytes is given so
the prospective user will know how much memory to allow for the program.
Where possible the amount of memory space required for full execution is
given for the programs, this space is independent of the space already oc
cupied by your BASIC compiler.

The programs are broken down into five sections or parts. Each part deals
with a specific type of program. Part 1 contains business type programs.
These programs will be of interest to individuals who have businesses,
play the stock market, balance their own checkbooks, do installment buy­
ing, figure taxes, etc. There are a total of 20 programs in this section.
Part 2 is the lighter side of the Library as it contains 16 games and 12
picture programs. No computer library is complete without some fun. Among
the games presented in this section is one called Checkers. The game is
rather long but it is virtually machine independent as it doesn't use over
lay techniques or use files. Most of the other games included here are as
exciting as this version of Checkers. Each was chosen so as not to mimic
others that the reader may have seen. The pictures are as unusual in their
own way as are the games. Most of the pictures are spread over several pa
ges, this was done not only so the reader will need to run the program to
see the details of a particular picture but also in the hopes of getting
as many of these programs into use as possible. As the picture programs
are very simple it is an easy place for the novice to start learning about
programming.

Part 3 is comprised of Math and Engineering programs. Some of these programs

will be of use to high school students, professional people, sailors, engi­
neers, astronomers, airplane pilots, etc. Most of these programs are very

xi
technical but they can perform every day calculations quickly and easily
and they are extremely simple to use. There are 23 general usage programs
presented In this section.
Part 4 is made up of Plotting and Statistical Analysis programs. These
programs can be readily utilized by a number of peop1e in widely differ­
ent disciplines from fishermen to statisticians. The data gathered may
be from a poll, a census, a test sample or even the number of fish cau­
ght on various days. The stat programs wi11 be of invaluable aid to any­
one who gathers data of any kind. The plotting routines wi11 be of use
to most of the people who use the stat programs or programs in Parts 1
and 3. The plotting is done on any standard teletype or terminal and
does not require a special plotter or plotting terminal. There are a tot
at of five direct plotting programs and 18 stat programs in this section.

All of the programs presented here may be run by simply typing the source
code as listed, exactly as it is, Into your computer. Now before the pro­
gram wi11 run it will have to be converted into machine code. This is done
automatically and requires no forethought except to make certain the oper­
ating system you are working in is BASIC. In the larger computer systems
you are asked what system you want to this type BASIC; the smaller sys
terns only have BASIC, in these you are O.K.
Immediately following Part 4 is Appendix A. Here, a11 of the Basic State­
ments used throughout these pages are defined. Each statement is explained
sufficiently we11 to enable one unfamiliar with this subset to modify any
necessary statements so that the program or programs will compile and exe­
cute with the Basic compiler or interpreter available with their particu­
lar computer. Most of the Basic compilers available today, that require
more then 10K Bytes of storage, will execute a11 of the programs presented
in these volumes with the possible exception of a few of the games and the
program "Variable". Multiple line statements are not used in most of the
programs and only a few programs use string manipulations extensively. A
few of the programs may require more on line storage then is available on
some of the small micro computer systems; these longer programs will not
be executable due to the limited amount of memory. However most of the
programs will execute in 10K Bytes of memory or less, thereby making most
of the programs in this Library executable in virtually any Basic speaking
computer without any required modifications.
Volume I II is comprised of ADVANCED BUSINESS programs, part 5. This volume
as well as subsequent volumes are intended to make this Library complete
and useful to all individuals.
Each of these programs are written in a subset of the Dartmouth language.
The specific subset is that which was used by General Electric on their
635 systems. These programs have operated without problem on a variety of
small and 1arge machines even several of the new micro computers. The pro
grams that use string manipulations may require slight modifications be­
fore fully executing on some systems. These programs are mainly found in
Part 2 - Games.

xii
All of the progrJms In this Library were written or edited by the author.
All of the programs edited by hfm were given for Inclusion, "swapped" fo.r
traded, or made public:. A few of the original authors of the "swaps" are
r.ot known, for this I apologize. The others, unless specifically mentioned
In the text, are presented here. In addition I would f fke to thank the fol
lowing for their cooperation in making this work possible.

ACKNOWLEDGMENTS

M Y W I F E MA R Y A N D M Y F A M I L Y

DONALD ALVAREZ G E T I ME S H A R I N G
D A V E BEET LE B I L L J 0 NE S
MORTON BERGER GE0 RGE L0 NG
C0 P Y CAT I NC TOM ROSE

A R T W0 R K C 0 U R T E S Y 0 F ME L I S S A

E D I T I N G A N D P R 0 G R A MM I N G S U P P 0 R T

P R0 V I DE D BY J 0 H N S WA I N

xiii
xiv

PROFESSIONAL

PROGRAMS

u
.
~CHESS:
:::i::
~ This version of chess is written in Basic and should run in most extended
~ Basics with little or no modification in systems with 12K of free memory.
~ The program plays a beginner's game but with some effort on your part, it
can be made to do better.
-
u
:::; There appears to be a quirk in the subroutine in line 4330, for the program
~doesn't always know when it's in check so it doesn't defend against the
11 11

~ danger. The flag indicating check is Cl located in line 3355 and it is set
~ from the value Cl in line 5170, which doesn't always get set through the con­
• ditioned test in line 5140 and so on.
"'
~Unlike the brute force approach as used in our Checker game; Volume I, this
~ Chess game takes full advantage of using subroutines to keep track of the
5: entire board thus using a minimum amount of memory. This approach however
~ has two drawbacks: First - it is very difficult to locate bugs within the
~ program and Second - the running time becomes excessive. While our Checker
@s game takes a lot of memory in order to be executed, it can make its moves
u in about a minute or less under most conditions, whereas the Chess game re­
8 quires 3 minutes for the first move and progressively more time per move as
=> the game progresses. · ·
I would like to have feedback in the way of letters, as to your suggestions
for a better version of Chess. Any patches you find that cure the check
11 11

problem as well as any other problems you may find would be appreciated.
You should include in your letter your name, complete address and phone num­
bers at Which you can be reached. If there is sufficient interest, we will
compile a newer version of Chess and mail out a copy of the source code to
those whose letters we have on file. If you have a version of your own that
you would like to share and we find it meets the requirements expressed in
the poll better than our versions, we will include it in our mailing. Be
sure to include information about the program variables and/or program opera­
tion is it isn't clearly defined within the program.
Following the program listing are the first three moves of a game to illustr­
ate proper program operation. For those not familiar with Basic, there are
appendices at the end of Volume II and V that define most of the statements
used thr~ughout the program.

1105

CHESS VER. 1 - 1 ­

100 REM CHESS PROGRAM WRITTEN IN BASIC

115 PRINT
130 PRINT
145 PRINT
160 PRINT "THIS PROGRAM PLAYS A CHESS GAME+" c:
('"')
175 PRINT "BUT IT WILL NOT RECONIZE CAPTURES 'EN PASSE' AND" ('"')

190 PRINT "IT WILL NOT ACCEPT CASTLING. IT DRAWS THE UPDATED" ('"')

205 PRINT "BOARD AFTER EACH PLAY. IT WILL TAKE ABOUT 3 TO 4 MINUTES T~
220 PRINT "MAKE A MOVE' SO BE PATIENT. THE LEVEL OF DIFFICULTY" -<
:::0
......
235 PRINT "IS A BEGINNER. GOOD LUCK++• • •• • G')
::c
250 PRINT -I
265 PRINT "UCC COPYRIGHT - 1977 , BY SCIENTIFIC RESEARCH •
280 PRINT
295 PRINT
310 DIM AC9,9),V(9,150),W(9,9)
325 FOR I=l TO 8 U)
('"')

340 ZB=-1 ......

l"T1
:z
355 READ J -I
370 A(8,I>=-J ,,............

385 A<7v!)=-1 ('"')

400 A(2,I>=1 :::0

415 A(l,I>=J l"T1
(/')
l"T1
430 NEXT I ):::>
:::0
445 FOR I=l TO 6 ('"')

460 READ U<I> ::c

475 NEXT I ......
:z
490 FOR I=l TO 4 .

('"')

505 FOR J=l TO 8

520 WCI1J)=W(I,J>+I
535 W<9-I,J>=WC9-I,J>+I
550 W(J,I>=W(J,I>+I
565 WCJ,9-I>=W(J,9-I>+I
580 NEXT J
595 NEXT I
610 PRINT "WHAT COLOR DO YOU WANT TO BE <WHITE OR BLACK> "~
625 INPUT ZS
640 F=-1
655 IF MID$CZ$,1,1>="W" THEN 700
670 IF MID$CZ$11,1)= 0 B" THEN 805
685 GOTO 610
700 F=-F
715 REH F IS MINUS IF COMPUTER IS BLACK
730 Ml=O
745 GOSUB 970
760 GOSUB 4330
775 GOSUB 1375
790 GOSUB 1975
805 M1=0
820 Z8=Z8+1
835 GOSUB 970
850 GOSUB 4330
865 C1=C2
880 F=-F
895 M2=M1
910 GOSUB 4330
925 GOSUB 3310
940 GOSUB 1975
955 GOTO 700

1106
CHESS VER. 1 - 2 ­

970 REM THIS SUB GENERATES THE BOARD

985 PRINT
1000 PRINT
1015 GOSUB 1210
1030 PRINT c=
1045 FOR I=8 TO 1 STEP -1 ('")
('")
1060 PRINT TAB<15>;I;" I a~ ('")
1075 FOR J=1 TO 8 C)
-0
1090 ZS="BKBQBBBNBRBP WPWRWNWBWQWKa -<
;:c
1105 Z7=ABS<A<I,J>*2+13) 1-t
er>
1120 A$=MIDS<zs,z7,2> :::r:
~
1135 PRINT A$; 0 l n; ._.
1150 NEXT J l.O
......
1165 PRINT ......
1180 GOSUB 1210
1195 GOTO 1270 V>
('")
1210 FOR I2=1 TO 41 1-t
IT1
1225 PRINT TAB<21)~"-"; :z
~
1240 NEXT I2 1-t
.,,
1255 RETURN 1-t
('")
1270 PRINT ;:c
1285 NEXT I IT1
V>
1300 PRINT IT1
~
1315 PRINT TABC20)~ ;:c
1330 PRINT B A B c D E F G ~n
1345 PRINT 1-t
:z
1360 RETURN
1375 REM THIS IS THE INPUT SECTION
.
('")

1390 GOSUB 5650

1405 IF I0<>2 THEN 5785
1420 IF ZB>O THEN 1480
1435 PRINT "ENTER YOUR MOVE IN TWO PARTS"
1450 PRINT 0 A STANDARD WHITE OPENING WOULD BE FROM D2"
1465 PRINT TOO: D4
0
H

1480 PRINT 0 NOW ENTER THE SQUARE YOU ARE MOVING FROM a;
1495 Z8=1
1510 INPUT I$
1525 GOSUB 1900
1540 F1=T1
1555 IF F1>99 THEN 1660
1570 PRINT syou ARE GOING TOOi "P
1585 INPUT IS
1600 GOSUB 1900
1615 IF AC2,4)=0 THEN 1645
1630 GOTO 1660
1645 VC8v10)=0
1660 FOR I=l TO M1
1675 IF Fl=VCOvI> THEN 1735
1690 NEXT I
1705 GOSUB 1945
1720 GOTO 1375
1735 IF VC8vI><>9 THEN 1765
1750 GOTO 1690
1765 J=l
1780 IF F1>99 THEN RETURN
1795 IF T1=V(J,I> AND V(8,I><>9 THEN 1930
1810 J=J+l
1825 IF J(9 AND VCJ,I><>O THEN 1795

1107
CHESS VER. 1 - 3 ­

1840 I=I+1
1855 IF V(O,I>=F1 THEN 1765
1870 GOSUB 1945
1885 GOTO 1480
1900 IF LENCIS><>2 THEN 1945 c:
('")
1915 T1=10*ASC<It>+VALCRIGHT$(!$,1))-640 ('")
1930 RETURN ('")
C>
1945 PRINT 1 ILLEGAL MOVE - TRY AGAIN n '"O
-<
1960 RETURN ::0
1975 REM THIS SUB SETS UP THE NEW BOARD AFTER ;ACH MOVE
:c
1990 IF F1>99 THEN 2230 ~
2005 Z2=F1
2020 GOSUB 4090
2035 I=Z3
2050 Z4=F1
2065 GOSUB 4150
2080 J=Z5
2095 Z2=T1
2110 GOSUB 4090
2125 I3=Z3
2140 Z4=T1
2155 GOSUB 4150
2170 I5=Z5
2185 ACI3,I5>=A<I,J>
2200 ACI,J)=O
1-1
2215 RETURN :2:
2230 IF F1=100 THEN 2320 .
("")

2245 GOSUB 4285

2260 ACivl)=O
2275 A<I,2)=6
2290 ACI,3>=2
2305 RETURN
2320 GOSUB 4285
2335 ACI,8>=0
2350 A(I,7)=6
2365 ACI,6>=2
2380 RETURN
2395 IF X<><4.5-2+5*F> THEN 2935
2410 REM THIS SUB CHECKS FOR THE QUEEN
2425 GOSUB 5260
2440 GOTO 5425
2455 REM THIS SUB CHECKS FOR THE KING
2470 D2=X
2485 Dl=Y
2500 FOR X=D2-1 TO D2t1
2515 FOR Y=Dl-1 TO D1+1
2530 GOSUB 4630
2545 GOSUB 4930
2560 NEXT Y
2575 NEXT X
2590 RETURN
2605 REM THIS SUB CHECKS FOR THE KNIGHT
2620 D2=X
2635 Dl=Y
2650 FOR X=D2-2 TO D2t2 STEP 4
2665 FOR Y=Dl-1 TO D1+1 STEP 2
2680 GOSUB 4630
2695 GOSUB 4930

1108
CHESS VEr.C: • l ... 4 -·

271.0 NEXT Y
2725 NEXT X
2740 FOR X=D2-l TO D2+1 STEP 2
2755 FOR Y=D1-2 TO Dit2 STEP 4
2770 GOSUB 4630 c::
2785 GOSUB 49;30 n
n
2800 NEXT Y n
2815 NEXT X
0

20:rn F~ETUF~N "-<

2845 REM THIS SUB CHECKS FOR PAWNS8

2860 GOSUB 4525 :c
-I
2875 IF ACX+F,Y>=O THEN 3130 .......

2a<Jo IF X<><4.5-2.5*F> THEN 2935 ID

........

2905 GOSUB 4525 ........

292() IF ACX+F*2vY>=O THEN 3190

29:~5 FOR D2=-1 TO 1 STEP 2
2950 C5=Y+D2
29c15 GOSUB 419~5
2980 IF C6=0 THEN 3100
2<795 G0!3UB 452~i
:3010 C3=9
3025 C7=ACX+FvY+D2)
3040 IF SGNCC7><>F THEN 3250
3055 VCS1vM1>=XtFt10*<Y+D2>
:3070 VC8,M1>=C:~
:3085 GOSUB 4~i25 ......
z
3100
3115
NEXT D2
F~ETURN
.
n

313() VC1vM1>=XtF+Y*10
:H45 VC2vM1>=0
:'5160 VC8vM1 >=8
:H 75 GOTO 2890
3190 VC1,M1>=X+F*2+Y*10
:3205 V C€ h M:L) =8
3220 VC2vM1>=0
;32:~5 GOTO 2935
3250 IF C7<>0 THEN 3280
3265 ·Garo 3055
;·52so c3=C7
~~29~5 GOTO 3055
3310 REM THIS SUB IS WHERE THE COMPUTER MAKES ITS MOVE
3325 GOSUB 5650
3340 IF I0<>2 THEN 5785
3355 IF Ci=i THEN 3385
3370 GOTO 3445
;5385 PRINT
3400 PRINT s IN CHECK "
3415 PRINT
3430 REM
3445 FOR I=M2+1 TO Ml
3460 FOR J=i TO 7
;3475 Z2=VCJvI>
:3490 GOSUB 4090
:3505 Xi =Z3
3520 Z4=Z2
3535 GOSUB 4150
3550 Yi=Z5
3565 Z2=VCOvI>

1109
CHESS VER. 1
3580 GOSUB 4090

3610 Z4::::Z2
:~625 GOSUB 41~'i0
:·564() S3::::Z5 c
365~5 IF X:L::::O THEN 4015 g
~56 7() IF V(8?l)::::9 THEN 4015 n
~5685 L=W<X11Y1>+U<ABSCACX1,Y1>>>*3 ~
;3700 REM WC ) GIVES THE SQUARE PRIORITY~
:37:1.~i REM UC ) GIVES THE PIECE VALUE 8
:3730 Fem K=1 TO M2 ::c
-I
T74~5 FOR G=l TO 7
:·5760 IF VCG,K)::::V(J,I) THEN 3850
:3775 IF V(G,K><>O THEN 3805
3790 GOTO 3820
3805 NEXT G VI
n
3820 NEXT K rr1
1-1

~~8~7)5 GOTO 3910 :z

-I
3850 IF V(8,K><>8 THEN 3880 ,, 1-1

:3865 GOTO 3775 n

1-1

3880 L=L-2*U<ABSCACS2,S3))) ;c
39<]l5 GOTO 3775 rr1
VI
3910 L.=L..+1000 rr1
):::>
3925 IF L.>M5 THEN 3955 ;c
n
3940 GOTO 4000 ::i::

395~5 M5==L.
1-1
:z
3970 M6=I .
n
398~5 M7= ..J
4000 NEXT J
40:l:'.) NEXT I
40~50 M5==0
404:'.'i F:L=V(O,M6)
4060 T:L=VCM7,M6)
40n'i RETUrm
4090 REM THIS SUB DEFINES THE ROW
4:L05 Z6=INT<Z2/10)
4120 Z3=Z2-10*Z6
4:L35RETUFrn
4150 REM THIS SUB DEFINES THE COLUME
4165 Z5=INT<Z4/10>
4:L80 RETUF~N
4195 IF C5>8 THEN 4255
421.0 IF C~'i·:::l THEN 4255
4225 C6="• 1
4240 f~ETUF~N
42~i~) C6==0
4270 F~ETURN
42El~)I==4. 5t3. 5*F
4;300 A(I, 5) ::::()
4315 RETURN
4330 REM THIS SUB CHECKS FOR MEN ON THE BOARD
4345 C2=0
4360 FOR X1=1 TO 8
4375 FOH Y1=1 TO 8
4390 X=X1
4405 Y==Y1
4420 IF SGN(A(X,Y))::::F THEN 4480
4435 NEXT Yl

1110
CHESS VER• 1 - 6 ­
4450 NEXT X1
4465 F~ETURN
4480 X3==ABS (A ( X, Y) )
4495 ON X3 GOSUB 2845,5260,2605r5425,2410,2455
4~510 GOTO 4435 c
("')
4~525 IF V(1,M1><>0 THEN 4555 n
4540 GOTO 4585 ("')
0
4555 M1::::M:t.+1 -0
-<
4570 V(1,MU==O ::::0
1-4
4585 V(O,MU==X+Y*10 en
:c
4600 81==1 -i
4615 F~ETUF~N .....
\.0
46:30 IF V(l,Ml><>O THEN 4690
4645 V<OvM1>==D2+D1*10 "'
"'
4660 S1=1 (./')
4675 RETURN ("')
1-4
4690 M1=M1+1 IT1
:z
4'705 V<lrMU=O -i
4'720 GOTO 4645 .,.,
1-4

1-4
4'73!'.'i GOSUB 4525 ("')

4n50 M~~=x ::::0

IT1
47~'>5 M4:::y (./')
IT1
4780 X==X+D2 );::.
::::0
4795 Y==Y+IH ("')
:c
481<> GOSUB 4930 1-4
4825 IF C3=0 THEN 4780 :z
4840 X=M:~ .
("')

4855 Y==M4
4870 IF C3=99 THEN 4900
488!'.'i RETURN
4900 C5=0
4915 RETURN
4930 C3=99
4945 C5=X
4960 GOSUB 41.95
4975 C7=C6
4990 C5=Y
5005 GOSUB 41.95
~.)020 C8==C6
5035 C9=C7*C8
5050 IF C9=0 THEN 5245
5065 IF SGN<A<X,Y>>=F THEN 5095
5080 GOTO 5125
5095 C3=9
5110 GOTO 5185
5125 C3=A<XvY)
5140 IF C3=6*F THEN 5170
5155 GOTO 5185
5170 C2=1
5185 V(S1,M1>=10*Y+X
~5200 81=81+1
5215 V<S1vM1>=0
5230 V(8,M1>=C3
5245 RETURN
5260 REM THIS SUB CHECKS FOR ROOKS
52'75 D2=0
5290 D1=1
5305 GOSUB 4735

1111
CHESS VER. 1 - 7 -­

5320 Di=-1
5335 GOSUB 473~5
:5350 D2==1
53l1~5 D1=0
5380 GOSUB 4735 c("")
5;395 [12::::--1 ("")

541() GOTO 4735 ("")

0
5425 REM THIS SUB CHECKS FOR BISHOPS "C
5440 D2=1 -<
;;o
5455 D1=1 ......
Ci)
~i4 70 GO SUB 4525 :x:
-I
5485 GOSUB 4735
~3~500 D2=--1
~5515 GOSUB 4525
:55~50 GOSUB 4735
Ul
~1545 D1=--l ("")

5560 GOSUB 4525 ~

5575 GOSUB 4735 ~
5590 D2=1 ;
5605 GOSUB 4525 8
5620 GOTO 4735 ;;o
5635 DATA 2,3,4,5,6,4,3,2,10,50,30,33,9~,1000
5650 IO=O ~
5665 FOR I9==1 TO 8 ~
5680 FOR I8=1 TO 8 :x:
5695 IF ABS<A<I9,I8>>=6 THEN 5755 ~
5710 NEXT I8 P
~i725 NEXT I9
~i7 40 RETURN
5755 IO=IO+i
!5770 GOTO 5710
:':i785 F'FnNT
5800 PRINT 1
THANK YOU FOR THE GAME. I NEEDED THE PRACTICE ••• ••
n

:5815 t='l~INT
~1830 END

1112
THIS PROGRAM PLAYS A CHESS GAME.
BUT IT WILL NOT RECONIZE CAPTURES 'EN PASSE' AND
IT WILL NOT ACCEPT CASTLING. IT DRAWS lHE UPDATED
BOARD AFTER EACH PLAY. IT WILL TAKE ABOUT 3 TO 4 MINUTES TO
MAKE A MOVEv SO BE PATIENT. THE LEVEL OF DIF~ICULTY
IS A BEGINNER. GOOD LUCK... ••
UCC COPYl:~IGHT ···· :1.9'7'7 v BY SCIENTIFIC· F~Ef:!EAF~CH

WHAT COLOR DO YOU WANl TO BE <WHITE OR BLACK> 1 WHITE

B I BR I BN I BB I BQ I BK I BB I BN I BR I
'7 I BP I BP I BP I BP I BP I BP I BP I BP I
(~) I I I

~=.:; I I

4
"?.
") I I I

::.~ I WP I WP I WP I WP I WP I WP I WP I WP I
:t I WR I WN I WB I WQ I WK I WB I WN I WR I

u
. A c ...
I..
.,
(:1 H
z
1-1
I~ TEI:~ YD Ur~ MCJVE IN Tl.iJ() P(.~l:~T~)
i~ l3TANI:IAl:~D WHITE OPEN I NG WCJUL.D BE Fl:~DM D2
·ffio; D4
i'WW ENTEF~ Tl·IE ~;;QUAl:~E YDLJ f.~F~E MDV I NG FF~DM '!' D2
ffiu AF~E GOING TOD t 'i' D4 -
u
1-1
LL.
1-1
I-
z
LLI
1-1
u
B I BR I BN I BB I BQ I BK I BB I BN I BR I
(/)

"7 I BP I BP I BP I BP I BP I BP I BP I BP I

"'"'
0\
..-4
6 I I I I J I I I T
.I.

I­
:c ~:=; I I 1 I I I
~
1-1
0::
>­ 4 I I I I WP I I I
c...
0
u ~3 I I J I J I :r I
u
u
::::> '")
"'··· I WP I WP I WP I I WP I WP I WP I WP I
:I. I WR I WN I WB I WQ I WK I WB I WN 1 WR 1

... .,
A c D I.. (:1 H
1113
 8 I BR I BN I BB 1 BQ I BK I BB I BN I BR I

I BP I BP I BP I I BP I BP I BP I BP I
I I I I I 1 1 I

1::·
,,} I I I BP I I I I I

I I I I WP I 1 I

"X
-.) 1 I I I I I I I I

I WP I WP I WP I I WP I WP I WP I WP I

1 I WR I WN I WB I WQ I WK I WB I WN 1 WR I

., ..
(
·' I.. H

NOW ENTER THE SQUARE YOU ARE MOVING FROM ? Fi

YOU f.1F<E GCJING TOO: . ,, B~:.'i
ILLEGAL MCJVE - lRY AGAIN
-
NOW ENTER THE SQUARE YOU ARE MOVING FROM 1 D1
YOU ARE GOING TOO: ? D3

f':> 1 BR I BN I BB I BQ I BK I BB I BN I BR I

7 I BP I BP I BP I I BP 1 BP I BP I BP I
6 I I I I I I 1 I
a::·
I I I I BF' I I I
.
t;,.)
•••.I

z
1-f
4 I I I I l.JP I I I I I
::i::
u "J.
,,) I I :r. I l,JQ I J I 'I'
.I. I
0::::
c:(
LJJ
(/)
LJJ
")
~:.. I WP I WP I WF' I I WP I WP I WP I WP l
0::::
u :I. I ~JF~ I WN I l.iJB I I WK I WB I WN I WR I
1-f
LI...
1-f
I-
z ...
LJJ
1-f c: :0 I. l·I
u
(/)

""
""
O'I
.-I

I­
::i::
<.!:l
1-f
0::::
>­
c..
0
u
u
u
::::>

1114

 8 I BR I BN I BB I BQ I BK I BB I BN I BR I

I BP I BP I BP I
l
•.) I I I I I

~=.:; I I I I

4 I I I I I I

I I I I WQ I I I I I

I ~,JP I liJP I WP I I WP I WP I WP I WP I
l .I: WF~ I WN I f.,JB I I WK I WB 1 WN 1 WR 1

., ...
(
·' I,. H

NOW ENTER THE SQUARE- YOU ARE MOVING FROM ? DE3

11... 1... EGAL MOVE ···· TF~Y 1{:10AIN~· e.rror
YOU AF~E GD ING TUD ~ '!' :0.4'i1!.'.'i Ru 13: re11<0~·.es
- the. 1'
ILLEGAL MOVE - TRY AGAIN
NOW ENTER THE SQUARE YUU ARE MOVING FROM ? D3
YOU ARE GOING TOO: ? B5

fl I BR I BN I BB I BU I BK I BB I BN I BR I
u
. ?
z
......
:c (:) I I I I I BF' I I I I
u
0:::
c::C !::;
lJJ .1: I WI] 1 I I I I
(/)
lJJ
0:::
4 I I I I l.JF' I I I I
u
......
LL.
...... :·~ I I I I I I I
I-
z
lJJ
...... ::.~ I liJP I WP I WP I I WP I WP I WP I WP I
u
(/)

:I. I WR I WN I WB I I WK I WB I WN I WR I
......
......
CTI
.,
I··­..
.-t
(,, H
I­
:c
~
......
0:::
>­
0..
0
u
u
u
::::::>

1115

1116

u
.

~ MEDBIL:
:::c:
~ This program is designed to alleviate some of the costly and troublesow.a
~ chores that seem to abound when keeping track of numerous patient records.
~ The program version presented here will allow a doctor to review the
history file of any patient, previously stored in the data base, as well
~ as permitting a quick check to be made of the payment history for each
l.J..
1-1 of these patients, plus several other features. This version does not
~ include a routine for preparing insurance forms nor does it allow immediate
:::!
u
invoicing of patients. Those persons interested in a more comprehensive
(/') version; MBP rev: 25, should complete a copy of our software licensing
1 agreement included at the end of this volume and return it with an order
.-... or contact us directly to obtain more information. This program can be
:;;
.-I
easily adapted for use by either or both doctors and dentists .
1­
rB With the number of Basics in use today it almost impossible to write a
:::;;: program that can be immediately executed in every system without making
~ any changes to the program. It may be necessary to change the file call
8 statements used in this program to those that will be accepted by your
u Basic. Listed below are the five (5) file statements used throughout
g this program:
NAME "file name" AS "new name"
OPEN 11
I/0 11 , X, "file name"
CLOSE #X
INPUT #X, Variable List
PRINT #X, Variable List
Other than the file call conversions, any other conversions that might
be required should be of a very minor nature for most Basics. Should
you wish to convert this program and are unfamiliar with the statements
used, there are appendices in the back of Volume II and Volume V that
define the statements and give specific system conversions. Medbil
should execute in most systems having disk extended Basic with at least
12K Bytes of free user memory.
Immediately following the source code listing for the program are sample
printouts of the various reports that can be generated. At the end of
these report printouts is the source code listing for the "Med" file.
This is the creation file for your data base which must be built before
you can run MEDBIL. This data file should contain all the patient
information that you would like the computer to keep track of for your
office.

1117

Before you start entering data there are a few things you should keep i1t
mind, in order to conserve disk storage space. First - you are buildin~
a data base which is dynamic~ this then excludes the use of any kind ofn
tape storage system. Second - you will need disk storage space twice ~
that required for your data base so that you will be able to update the;§
file with new patient data. Third - be brief in the patient history de~
scription as this uses up memory very rapidly. =i
......
To make all this a little clearer, let's look at a typical case. To se~
up the file with the name and address of your patient, takes about fift~1
(50) characters. To describe each visit will require about thirty (30)
characters; see the billing report, and approximately fifty (50) char- 2i
acters would be used per line of patient history. Now suppose a patien§
has besn in five times and you have logged three lines of patient histor;y
per visit, plus an initial line describing the patient's allergies. To,,
recap all this we have 50 characters for the name and address, 150 char8
acters for the visits (5 visits x 30 xhar.), and 800 characters for the:::o
patient's history (5 visits x 3 lines per visit x 50 char. per line) [::l
which is only about a quarter of a page when printed out. Conservative};
estimated the above example totals out to one thousand bytes of informa~on
or lK per patient. ...
z
In addition to the patient information stored on the disk your Basic ana'
the source code for MEDBIL must also be kept on the same disk which
gives you an overhead of around 30K. If you have a disk which can hold
250K Bytes of information then you will be able to store information for
about 110 patients. If you only have BOK on a disk you will only be
able to store information for around 25 patients, so be brief. A number
of doctors have gotten around this by assigning or reserving blocks of
patient numbers to each disk. Then, when a patient arrives for his
visit the diskette containing his or her patient number is placed in the
computer. This procedure would be required each time a patient whose
number was not on the diskette in the computer was seen by the doctor.
While this method may not sound very attractive its really very easy to
slip a diskette in and out of the computer and the number of times this
would have to be done could be minimized by the care with which patients
are assigned to each diskette.

1118

 I. 0 0 1..:: L L P1 I·< ,:; 0 0

110 V$="$$lltltt,.tt"
I1E:.F:O:C-:l D
l.1..I 1..0 :'i·l DO
i..<J,0 I\!::. h ri I I :::; .I. ~:; r H:::: Mi::: l..i I c (l :.. p ,~>, T I [ NT t1 / F< F' F~ CJ GF: (~ M
c:
I. ~'.'.i 0 l?FM F Ci F< I: UL i. i"i DIi I F i: Cti T I Cl [\l ~::; L~ I ~;; T Tl· I[ F' ::;: Cl Dr:: 1::i M ('")
J60 F(E f"l THIS PRUGRAM IS WRlf fEN IN BASIC ('")

('")
:170 r.;:EM CDPYF:ICJllT · BY ~:;cIENTIFIC F.:EGE{:1F.:CH 0
t t:io h'.i:: h 11.JF: l l i"E:.N 0 y P(iUE.f;: t:ii::.·1.J!AN -0
-<
l ?() !:::::M r l I:::: r:· DL I. u~.l J. N c I..) f'.:1 r: t (.:~ DL F :::; ;:o
......
F:E:.M t·! :.::::Nl.li"'i:CI ;:;: ui:: l.:J..i:::!TUi.. ·:LF~:) en
::i::
-I
. :.: J Ci h:L/-'i 1.1'.j.::.:l·\Ci>u:<: 01:·,"i"E
i·:i::.M N ::::J 'i [(1 :II: ~
F<.E:i'i [:J; ::::l'YEh nr::::;cF<IF'TJCJN (Jt CHC:-1F\(.:1CTEF.:S DF: LESG F'i..Et1'.3[):::::
. .·.'.4U h'.E::M (:1 :::: F't1 I J: E::i·l i 1:~1CCUUNT :jl:
250 REM Nt =CUSTOMER NAME C20 CHARACTERS DR LESS> (/)

,.::60 F'.E:.M : \ :!; ::::(, U'.:l I UME F: ;:; r 1·::1::·1.: r (l :uu1::c ;:;;:;:;
('")
......
!Tl
::.;;'?O i:::ct··i ~::: :¥ :;::C 1. !~;;; T ClMFl~ CI TY & r::: Tr~• TF r.·:·1D:OF:EE:r:; z
:.?flO i:;:Li'-1 h :::. .i. ( :H: UF· F't1 l J E· N f~:l l·'i.::1 . : f~E t.:UF~:O) -I
......
.,,
·~ ;_;i 0 F.: F j·.-j (d'· :::: l.HYr [ n F !) :i:;;; :r T ......
('")
. \ (! u i< I: M : / :! I . . .·: ./ J / ./ ? ::;,
.::'\!() ;.;i::M r: . . :if: i)!- L:·i!P1!•:t!E'.::; nir:: Lt1C!·I Pif.'1 ..i JFNT ;:o
!Tl
(/)
.3 . . .' 0 :..:i: 1''i 1:· ::: 1.) .:. '.)I I CHP1F;:UE'.:; !Tl
);::.
:330 F:E M iJ . ::: CUMUI. t1TT ,~~1MCJ!.JNT Pi!iTD
1) [
;:o
. :\A 0 ::.; i.: 1"1 U:: ::: .(Ip, ! i en: L. ti:::n F' rY·n··E: N I ('")
::i::
L: ><. t J ::~·~ ./ ::~ :! /" '/ ~.::i ......
.... F P1 f L1:: N f :3 H J: '.::) T Di:;: Y F: E CD1::: :CJ z('")

430 REM *******************************************************

A5 0 s:;:: :::: 0

4<':;0 1.·1: j'/~ ::::s 13 I ii!:: ~::.nl...E:.::; 1,/:1>: PEF(Cl:~N 1 ,:~,ui::

Ui.:.;

490 PF'. 1. r·J r

:::;oo 1 1-<: : rJ ;

. '.'!! 1.0 r:·1:.; l j\)f

'.'~.?O 1·;:.· .I i\J I

:.::i:.30 p~;:JNT "

'540 1·1::.i:H l
550 FF\ INT
F' F< IN r
1;:· l. { ..
·.•! (..• ,}

570 PRlNT "TYPE TN TODAYS DATEv AS: 5/21/76 ";

:::;uo I NF'U"J o·:j;

'.'7)0 OPEN II I II ~· :I. !I II MEI! ..

·:·:·; () 0 .I. NF' U f :II: J Y N J

t;:LO FCJF;: J::::::t ID N:L
-:'.·> ;.;~ 0 T NI :• U.'!. :II: l Y r.:i Y N11; !' F;: ~1; yl.J y:l-{ y ,J
-----030 - TF D :::T• n:.n:N 670
640 FDR JJ=l TU B

660 NEXI J.1

7;70---:rr J ::::(i THEN 7.l.O

680 FUR I2=1·TO J

1119
 l i:_) () i\J E.:=< 1'. ·1: -~-/

,..:':~~u 1 .t (jSF

/ . :.:. 0 I ·r:: I ;".i l

.'::'.)(~ l·'I< .:. N .i

//(! F·l\'U.JT "TllF: Fni I Clt1HNG u; (1 !...I'.:n CJF F::::r:·nFa'.:; Tl·i1Yl' THI~:; p::::uc-mt1M"

/Do 1:-i:n i\i r Bt.1.i i Li... n::: N::;::t1 r ::. ., 1u LllCJu;:;i:: c1rn: i trF 1. I L Nl.H-HJCF' ~JHFi··! r1~:;!\.Eii., ;,

·79() F'f< T j\j T

HOO Pn LNf '' F' 1-< .L i"~ r Mi'°'1 J L. I. 1\i Li L. t1 .0 1:: L. :;:::
11
:J l (i F· F~ I U r 11
F' P l N"i F' ti T TE: NT B I L. I ~:; "

u~ .)o r:·h:s1..~ r " 1 • r1 r L F. i\i i n / !·< i:c: i:: ,::· u r~ r "

:J :~; 0 F" r< I N I " h:YT TF N 'f i i r:: ;: T CJ F("( "

;Jl{.(l F'!'.'. i. j'.j i II t1i-'.1.1t; ·: i:: r·tlf:; EN r i:~E'~UFdib 11

U'..'.iU F'h'.JO; " "

'··' '.:·) r ii F' j :· r.: u(IJU'.\ M"

.8} 0 f" r:: T;.; T " l""f 11 I CI I i::: i:~ F' Ci :::: T i...J lJ UL D y· Cl U L I f< F. TC! F< UN ; " ;;

H UU L f\' I ' I J i i ··

·r
I
... j'.;;·:: {' I H ;:;- ,.,
.? ~.:~~ 0

/\:

J i F\ .. i .'I.'
I Iii: i·•
i .. ! ()

F' fi r u r

i. I'.
,., ... {;. i .
I H
,
I"·! ..:·:;. j 0 1.)
,..
r· ,
r !"-.···· '"
.., ....
'! T HL'f-1 :1 0 00

j i' :'i.'. :::::....... I HI::. i\! L.~:·'. i:S {_:i

i. r·.. F::::: ... THE l"J ... i s)o

' ) •!

\,) ~.

.I F l·\ :::: <'.} THE j\I ::.:~~ /) B()

.,. r:·
.L
:": .... 1,.;·
;'l.,···· I ')' HE'N :·:) ;.? ~~~o

99C>. GDTfJ 80C

.
1

.i.000 i:::[M ·r111::;; UUD UFi\lEF;:tll'E:::;; filE i"it'1:LI :JNU I. .!Uf

u
-
z
:c
u
0:::
LO.LO PF\INT

J 0 ~.) 0 ;::· R 1 N r !; r H L'.3 T:::; r HE. ti (; l. L I j\i ( :1 I. .I. b T F( DuT :r j') F

1 0 J 0 F' r:: 1 N i
"

=:(
LJ.J

J. () 4 () p F< I. N r " I.ii ! lr: N yuI.I H(·1 l.J I:. i H[ L. t-1 B E : '.::) :. N p L (:·, c [ l (pF (:1 ? ~;
tn 1050 Il\!F'UT Z'.''

LJ.J
0::: J ()(, 0 '/ 1 :::::=,

--
u
LL.
1-
1(:?0 FUP J':::::i ·ru /.I.

:!.<)fl 0 F' 1:;: I !-...! f

1090 Nl::.:XT (

-
z
LJ.J I. I 00 LE I /::::,:'.;
(..)
( /) 11l0 r·nR I=i TO Nl
1. :1 ? o r:· r< .1. N r 'f ti D < z 1 iJ t;
J :i. :3 0 i:"F:JNT T i:~1E-: ( :Z) ~ N~h
J.l.1+0 F'l·::JNT ft1D ( Z:) !l F;:·:1;

:!. :I. 5 0 F' F~ 1 N f T i'~i H ( Z ) i; :::; ·:1;

1­ l. :i .:"'.; C F' I< J N l'

-
:c
'"C!J -.!. J '?U F'F{J NT

0::: .I. :I. 0 0 r:· F< l N T

>-
0..
0
. 1190 NEXT T
u L.~:.'.' (~I () F'F~ I N'i

(..)
(..)
1;.lj 0 r·r<J.NT

::::> l.~-:.;.::o 1:.F~1N·r

--- ·-- ---1730- PRINT "END OF THE -MlHl...ING l... If:i"T' il<~iO~il<X< .. ­
:l. '..:~ 4 0 P r< I N T

- :I. :.~:~:rn GCJTD 73D

:l.::~60 F:EM THI~:; ~:)U:fl DENEF(r.~TED THE Bil...l..ING L.If'.)T =II:'..:;

1120
 " '") -~ !~
t ,.·..... \.' nJ::::O
}3 ...... ::::0
{; .:~:::: (!
.I. .i;.() 0 F( i'.:: j··,.i ·: H:: 1::L.11:::i"''it1 I !Jr I iiE BJl..i : •f<Ud HW .LS ,::1b rO/.. L.1.:Jl.jb i.
F:El,·'i PAGE ONF PRJNTS THE MATLING ADDRESS
13?0 1::~1:::h
:l.J30 F([i": ii L \' U i. ) N r ::;:
J ,:;.:i) !~'.[ i"1 \,;I .i ~.; i :. : i'-·i ::: I·~ i·l t1i"i I:
I. 3 !.'5 0 j( [ i'I n·i !··~!:: E .i t1I1J1l<E ~:)~:::
I...:~ 6 ::.; I·< L h L.ilY ::;T(iiC

'I. ,5 70 1:~i::M

I :·~; :;:· ') !'( F: i"'1

'L . ~ :) () i ' :: : :-··1 .~ I (1 : i:
L.:; I 0 F~Eh
I 4 .? <I h: 1::. i"'i
i ·:: . :'iO F:i:.i·..i
!. ,:; ./iO F'l::'i'i

.L 4 ,,.! o r< i:: h I D r :::1 1. 1·': i·'\ n:. JN r 1::· (i !. u '"' ~i; x>< x ,. >< .x:

I.A(.() i:~Ci"i Lt:::iJT. (lF filL i r:1::3Y 1-'/,Yi''ll::N f ·:::.:.,... ::.'Jl?::'i

"! l~ ')' 0 i:;~ E j·.,.., I f) 'i c:'i i (, i"..l 0 l .i i\j ·;, I; l I:::· ···· >:< >l·:: >l< *~ ** * *
·:!~ X :x: )( ,, )( :)( *** *::{ : -;{ *
~~.::

i '.'.. 00 F'I< l NI

:::':i'J'j l·'l\i,i\;r "!ill~) ur::nr:::~(iTF::::;) !HE. F'F:JN'ITND LiF 'fHC fl'll..'... U"

I. :::.) () F' F·: r N'f " l1j ! l E N r i IE "( () F< !:: .L j\i i::· 1... (~ cE r yF·' i:: ,.:., / :; ,, ;:;

J'.':i30 :;:NPUT Z

.:. ·:.=, ".'.• ".; F Cl I< .I :::: :i. 'i U Z

0
L~.~:t (::i C·1: · h J r··~ 11

(..) :I. '.570 i\![ l~T T

z
.......
1 '.' ,u u 1 E r .,:· '"' 1 :J
I '..":9•.· r:: p Er...i a I !r !·' .:. ~-' !! j··.·J r::~ :o n
I ,..;,(.." . .I HF'U f :Ji: :L :1 i"·i .i
F :J ;.~ J :::: L T 0 i"-1 i
I L. f / :;::· :::: (:, !:'.'
LE':T ;?'.:::::."i
I. NF'U i :II: I !I ,~:·, p i')·:j; 1''•rl•
~J .::;. :p !1 lJ

I./' j 0 !.. l::.i Z:I ::::4

i. / . '0 FLIP 1;:)::::J )"CJ l.l

.!. / .:~~ t.: PF;~ I i\i ""!

I /40 NL.\ I I:.:S

·1 ?;';iO I~:; TCJ Sl<IP DDl.1.IN TO THE '.'.)T1'.)TEME:NT SECTION OF THE BIL.L.

J/60 l.)'::::6:5
1.770 PRINT TABCZ7);D$
:I 7 DC I:. F·: I N 'i

J /9() F"OF~ I J :::: J TD E:

J800 INPUT tlY E$ ,N

·• ('\·' ,,
L 1:l J ~.! l ~~::::~3

:I. D::?O

1121
 ~830 PRINT A$ ,N
1840 B2=B7tS *p

1.8!50 NE/T ·11

L:3 6 (; F:' F< i. N l

1870 PRINT "TOTAL. AMOUNT PAID

.L B D0 F' r< I N T ll :0 C::-1 T E () F L () f) r F:· () y· ME j\j T

1. B?<l n:3,,,,D?*~:;s
1?i.O PF;;TNT

1930 B2=INf(,5~JOO*B2)/100
J (? 4 o F' r: 1 N I 11
r o·;- r::) L uuN r :u uE
(:1 M
II·"
~·

1950 PRINT USING vs;B2;

J 9'.70 LET ~/~:,:;:::: J 0 ,r:

J. () U1..) r: (i :::: J /) :::: J I 1..1 Z 5

2050 JF J =O THEN 2090

.? o6 .:_;, i:: o1:~ I / ,,,. .L ru J

:.·.'. 0 '? 0 r·
I t'! uT :II: I. !" .) ~r:

«.?080 NE!<l l/

2090 NE:x:T I

:? :I. () 0 / ·::: J. "-'

2110 FOR I7=1 TO l

• 21::.. :0

-
u
z NEXT I7

PF< :r i'«l II Ei'"~II UF THE DILL PF:J.NTJNf::;

PF:IH'l'
r·1:;:JNT
~:;FUUCNCE,"

CL.O~:;i::

----u -:T: '}CJ. f([}·j

THIS f:;;J..JB l-IENEF'.(iTES TH[ CUST" t1/F: l~:r:::Pmn :!1:3
~ 2200 LET B1=0

~ 2210 LET B2=0

z L,E 1 f:.::)::::O

LL.I
G ::? ~~~ :3 o PF~ I NT
(/')
. .:~ ::.~~ 4 0

~Tcii'.T PFGNT··· n· F'P1TIENT

::;.~ :::.~ (] 0
P ri'. I NT

·22-?"<) ·PH :t: NT

~ 2280 PRlNf II ACC# "y" A/R $ LS DATE"r" CUST NAME"
-~- 229-0 F''RINT
~ 2300 OPEN "1",1,"MED"
--~- :,:.:,:'d 0--:rnrur :n:r;-N1-- ·-- ­
8 2320 FOR I=l TO Ni
u--2'3:3 0 - INPUT =JI' I , f.) , N!f; ~· R~; ~· u

~ ;,::'340 1 NPUT =II= 1 :1 ,.J

2350 IF B =O THEN 2490

2360 FOR 11=1 TO B

1122
 2370 INPUT ti, E$ vN'"'vA!li' ·,r:;·· ,p
),500 ·1 :;)::::~;; *F'
::.:.~3? o r:~ ' " T :.:~ *< .1. +rn~>
2400 12=lNJ<.~tl00*12)/100
::.,!4:1.0 X)J::::B3+·i··~:.::

.·:,~ 4 ~:.=.i 0 B::? :::: I:·: : :.) .;. i. .:

t.'~ _.:.} (:; i l·\: r j\! i r:-1
(} I
...
!'
!I

:::.:.4 ./ (.1 LE:: T f: J :::: 0

1

,.:~ A:::;: 1.) U[1 l (J ~::'. ~.:·, 0 0

;490 PRINT A ,·~ oo.oo•,•$ oo.oo•,ut - ;•
::.,: ~.'.1 CH.) .IT J :::: (! "f ! i E:. N >: '."i A 0
2510 FOR I7=1 TU J
:..~'. '.'.'i 2 0
LN i::· U f :ii: .i . . •..: :i..

:.;.'.'.'530 NEXT ] ./

: . .i'.'',.40 NL\ ·1 I.

2~';::.:;o PF~ :I i\! T

": u r ti1... r··(~YME::rn:::;

!1 ..
y

2590 PRINT USING V$;B2

2600 PRlNl "TOTAL ACCOUNTS/REL. - ·~

2610 PR.lNT USING V$tB.l.~B2

F'F'.IN'l

PRINT "ACCOUNTS/REC. DUE .... !I

..•. lt .•.

PRlNT USING Vt;B1,

;.~~bl~()
2650 PRINT "
::.:.~6i:-:)o
************************"
CL.CjBL
0

~ ::;.'.o:":l?O GU'i'U /..:10

1--1 °? b :;::: 0 i:~ f:: t'1 F' (~1 T' l E:, j··..J···: i'·i 1' b YU F~ ··(

:C ~...:: 6 c; 0 L.. E:T H .I ::::(i

(..)
0:::
cC LE r :H:,,::::: . J
Ll.J )?JO I [-i I·:3:::0
(./')
Ll.J
0:::.
F' I··~ JN f
i 'F~ .1: NT
,;..: /-4 (l F· F< JM r '·.I. UF'l.JT
1-1 2 ?~7j(.) INPUT N?
1­
z F·F;:INT
Ll.J
1-1
(..)
?//O LET U·:J;::::I)·:J;
(./')
::. .l /:JO F'hi.NT

y u~1;

2900 IF B

1123
 ---- ·)<>lT6 f:'cm -- :i: :1. :::::C-ru B
:::.~ i) :::;: 0 I HF' UT :JI: :L Y E ~J;

~ ::..~930 NEXT 1 :/.

1-1 ~.:.~ 9 4 0 :I: F N)' <.."P.1 TI·I 1::. N 3 0 ~) O

5 2 9 ~'.) 0 P 1~~ J j\fT A

c::: ::? </ /> o I"' F< .I. N i'

---~ . . ~2<l /' (f ·1::; i:;:' Ti\J t

LLJ '·:.'\, n
0:: '1 1"• ··)
';) \.. /"'I'.,.·
., \ , , I'•!I)'I II

":) i:·) 9
u ..... J . 'i') 1::i F~'. ,J, •• 1\~1 "'f

~ 3000 lF J =O IHEN
1-1 3010 FOF: I'?:::::I. TD ,J

~ J 0 :) 0 J NF' U I :jj: J Y ..J ~J;

- -- -~ ":! {)''7 ..... ].' 1::· 1"-- 1'? >('

(._) "·''' ~)~_. . <
< I
"f HEN 30'.::io

V> 3040 1>J<:LN'f . J:J;

NE/f .i/

JF N/::::J':1

NE.>< T f

1:. r< .r ;-.~ r " E N:o (JF " yN~'' y " H r GT o F: Y F TL. E "
Pi:;; 1 N r 11
t>..1 Hc H yuu ti F: E r< E ,::i :u \' r CJ r· i:;: occ E:' ri r/ F' c r::-1 .i. 11
;.

INi:·uT ND
Pf-< J 1,1 I

INF'U l Y~/;
Ci .. C::~:;L

l F "'( ~/;::::II Y[b II T HLi~ ::..· :600

I r~ Y ·~; ,,,, " Y " T11 EN ::> 6 Do

F'F( l: N 'f

r:'F(INT

J;.._'.'.()() F' F< .I. N I

3.:.~~ :I. 0 GO fCJ )'JO

. :::;:.!:~::o F<E:h ·;·11.i~:~ i:h IHC UF'IJtiflNU UF::C1./UN

;:· UI'<'J :::: :I T Cl D

.J;.~!·f.l·O F'F<li"-IT

.':) ~..~: !~.~i 0

Y 1
HCX
ui::· [
N " .L II !> J !' II MED II
-----?:-;(f()-('.Ji'''ETf --rr ff'' -;:z-;- 1r\3 RH rr -­ t:
3 .::.~ r: o .L NP u r 'ii' :1. !·' N1.
:.;:;:~9() PFIINT II
TYF'E J'~ () .. IF YCJU 1'.:iF<E (.iDDINC! l'.1 NEl..11 Pr=1T IENT" ·
:,::>:.:) () () i::·f~INT II
TYF'L ,{:·, .... j IF YOU ARE UPDATING AN OLD PAlIENl"
"33:i. 0 Pf\INT .. TYT'E j:';f ...''):. .... IF YOU 1t.\F~F FJNJ.:::;!-IE:O"

:.:~ ~~) ::~~ 0 INPUT D

3330 IF D<O THEN 3290

3340 IF D>2 THEN 3290

3350 IF D=1 THEN 3390

3360 IF D=O THEN 3'?80

.3370 CLO~!E

3;:~BO GOTO 7;·30

3390 PF~JNT

3400 PRINT "TYPE IN IHE PATIENT ACCOUNT NUMBER 11

;

,34:1.0 INPUT 1t.\

3420 PRINT #2,N:I.

3430 FOR I=:/. TO N1

1124
 3440 fNPUl #1vA1,NS,RSvS$,LJvU$,B,J

3450 lF A=A1 THEN 3600

J 46o r·F~ :i N r ~1, :,:~ , 1'.:i :1. , N11; ;; 11

,
11
:~ F( ·:1; ? 11 !'
11
:; (;) 11; ;; 11
,
11
~ u , u11; ;; 11
, " ;: B , ,J
3470 IF B=O THEN 3520

3480 FOR 12=1 TO B

3490 INPUf t:l.vESvNvA$vSvP

:·:~ ~5 0 () F. F< ], N") :ii:::.~ v i::: ':I> y II ~· II !) N p 1'.:i ':I> v II ' II ? s y F'
;~;!'5 ·1. 0 NC.l<T I'..?

;'; !:'.i ;.:>, \} I. i::· •.J :::: 0 T I ·I I::: N ~5 ~'.'i? 0

3530 FOR 13=1 18 J

.3~'540 I: NF'UT :II: :I. v ,J11;

3 !'.'i ~::i () I· · i::: I NT :ii: 2 P •.J 11;

J570 NEXI I: CLOSE

.5~80 KILL "MED": NAME "SCRM" AS "MED"

GU l Ci. j:::.'.f:>O

~.~.:'.;()() El:::: L: -:· .I.

::').~)] 0 PR!NT "HUW MANY LINES ARE YOU GOING ro ADD TO THE HISTORY ";

Ii··lPU"! L.t

J(:;J() r·F( 1 N T :ii: :..~ , (.:i :1 , N ·:i> ;; " , 11 ? r:: 11; ? , " ? :::; 11; ? " !' " ;; u , u11> ;;
11 11
,
11
v B , •.J +1... .1.

~36·4() r cm :i ~'.'i '"' 1 -r D B :1.

_._.:) (; ~.::.. (; T Nr·i. J"j :IJ: l ' [ 11; !I N ' A':I> ~· :;:) ' r:·

.";/){:iO F' F~'. .i NT :II: ::;.> ' F: ':I> y II l' II y N l' (1 !Ii !I " ' II ii ~:; y F'

.3(~» .lO Nl::. >< r I !.'1

.j6:::Jo e1;: 1 N I 11 r YP E r N r HE ·· · cHc ., =II: , Li Es c • , c H1~ i::: GEs , & PA y MEN T " ;

.J6':tO INF'U"f NvA!l>v!:;,r·

'"("'"'jt\ .·.
.. :1 / ~.!\.! PRINI 12,ns;•,";NvA$; ,";s,p
11

3 /.:. () l'F\ .I. N l

• :3 / ~.:.'.'. () r·F( J n T 11 i::: Nr E r~ T 1· 1E " ; 1.. :1. 9 " 1.. :i: NE ::; Dr: H :i: ::; T oF( Y No w "
u i::· Cl i:;: J / :::: :I TD I... :i.
z:
..... ·:) ..?40 I. NPU I (:)!!>

P R I r·~ ;· :I!: ~.~ ,, G!!>

NL XT J?

uo·1 u 3:'.'i?O

PF<lNl

u ,::,/··PO r:·i:-:.1.NT 1.N !HE l'(:1TIENT :ij:, Nif.iMEv 1~1l!DF<ESSv CITY/ST{iTE/ZIP 11

.....
LL.
INF'Ul'

..... J810 ~RlNT #2,NJ t!: PRINT "HOW MANY !..INES ARE YUU ENTERING IN THE HISTOR

1­
z: Y ";tJ:NPUT ,J
.....
UJ
u J d ::2 0 F' I-< J NT
V> 3GJO F'F( Ii'~ f rYPE 11
- CHARGE Iv DESC., CHARGE AMT., PAYMENT 11

• 3 o4 o J t-i r· u r
"' ju ~·.'1 0 p h: I N. i :II:::.. : ' ).) ·:1; ~ " y II ~ 1'~ l' (.~ !j; ;/ II ' II y ~:; ' p
"'
~ 3860 PRlNJ rYPE IN THE ";J; 11 11
LINES OF HISTORY "
I­
3870 FOR 19=.I. 10 J
~ 3UUO l NPU r l\!I;
0:: . :'.: U·:? 0
F' R.I NI :II:;;.~ , I·\ !I>
~ :3(100 NLXT I 9
8 3910 FUR J8=1 TD Nl
u J?20 [NPLJT tlvAvN$vR$,55,1..J,U$vBvJ
g 3 9 3 0 F' F~ l N T :II; 2 ' (., ' N ·:1; ii II !I II ; 1:~ !I> Ji " ' II ; (;;!I; ; II ' II j) u ' l..I !I> ; II ' II ; B' J
.:)9 40 .I. r· fl::::() I HEN :.:$ ?')0

1125

u
.
-
z:

:c
u
c::::
.:~11;? ~; J ()
..:)•:)h 0
I UF:
I N F' l J I
I/::::) ·1u .H

:JI: 1 !' i:: '/: !·' N !' ti ·:J; Y ::;; !·' F'

c( ~.~:; <) / (.) I ' I~ I N I :I': ~·:'. !! [. 11; ;; II !·' II y N ~· p, ·:1; y II !I II ;,; u l' F'
LL!
(/) J9HU 1\![;{'j [)
LL!
c:::: .. ~)? (_) () IF ..J::::() "f HCN 4040

--
u
LI..

I-
z:
"·:·{. ::) C· t\ I ' ;. · T·~:. :::: l r U ,J
:'}() .I. 0 I N; · . i f :J/: :I :i ..J</;
:l 0 ,,~~ () r:·i:uN r :i::.:: !' .1:i;

u-
LL!

( /)
40 ';:" (_)
.·:·~:.
~.}

() ..:·::. 0
l} 0 :::; (i
1\I[\:
NE;:<
I,/ U::'.)[
r
J. 6
.I U

l~ () ,~·) () ,, 11 1 ''ME fl''

........
........ :·~ (! 0 i' .I (1 :".·j i::. " .;:: (. i ·. i " (1 ~:; 11
jvj [ I I 11

Q)
~
. :'{. () ~::: ::..:i
I­ JCt i. t.:i \;:;; ~:-~ .s ()
·:·.;.1•. ) i:_;:i,:,:i 1.

:c
-
u:;
c::::
>­
CL
0
/I
'"\"
/1
"V
I 00 h: I::. i'i : H i:: E j\1 fl
I. I (J I:: i"-l fl

u
u
u
:::>

1126
 UCC - CUPYRIGHf BY • SCIENTIFIC RESEARCH - 1977

THIS IS THE MEDICAL RECORDS AND PATIENT BILLING PROGRAM

TYPE IN lODAYS DATEv AS: 5/21/76 ? 7/23/77

THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM

WlLL GENERAfE. 10 CHOUSE ONE TYPE IT'S NUMBER WHEN ASKED.

1 - PRIN'f MAILING LAB~LS

.... pj:~ .I. N'l i::·,'.~ r .L l:::N r B .I. Ll...i:;

~.~
?i ... i::· f.1 T .I. EN T AI F~ F~ E:: i::· UF( T

(.)
zd
. 4 ... F'1f.ifJENl' l·ll:!:lTDF(Y .

:::·
- UPDAIE PArIENT RECORDS
........ ,\,

\,,I . . Lr: Jj::· 1:·kD(·Ji:(l1H

:I:
~,111~.:1·1 i:~::::i::·oi:~ ·r 1A1ou 1...D You L :i: l\E TD F~UN: ? 1 ·
LI.I
V)
LI.I
c::::
·: LV n
- J ~; i HE M1~1 .1. 1. .. i ND 1... I

[....IH~N YUt.1 Hr:':1 1) [ THE L.(~I{EI...!:; IN F'l...1;:1CE TYPE 1f.i '? i '!'
~:; T F~ ouT :i: NE
L

-
:z:
LI.I
(.)
V)

.....
,......
°'
.-I
3 ?:l.16

1-s,{~,M [...)1'.~I... T EF~n

::x:9927 W. CHERRY ST.

c.!:l Y'
~.rJi.·1
A '~ ...
I... "(' J". I'I l")I"..: ,...::. 1·11.I •
") I I ";/' .
·'"·:. : . ,;)6

>­
§

(.)

gPH4~'.'i6D6
JL : ~EM .I. NG TCl N

193q SHERWOOD AVE.

BALTIMORE MD. 21134

:::; 1 :3 .7 (:)
MAF~Y ,.JCJHNf:>ClN 1127
i::· CJ I! () x 4 () ~.'i
 BALTIMORE MD. 21134

C HCJW ,:\f::: D i;;·T .;-------·------ - ---- --- ------------ ·-- - --- ------- -- - - ----- - --- -·- -- ---------------­

-- ·---- -- . ­
L. SMITH
i\!(ii-~(. '(
J637 WEDGEWOOD AVE.
BALllMORE MD. 21135

1111: 1::u1. l.. UWINU IS r::i 1...I'.:lT CJF i:::[PDF::r:;;; THif:·1T TH:Li;; PF;:DGf~f.:·,M
i..n L.L GEr-.!EJUYrE ,. T Cl Cl IOCH:JE:: DNE TYPE: IT'~; N!fr'illEf~ [,JHEN {iSl{[[I {•

:I. .... ·r:· Fd i-.(1 h ,:~, f1.:. Jl-..!c-1 t:. h Ii ELD-. ­

2 - PRINT PATIENf BILLS

PAtltNT A/R REPORT

J'.'t1·r1ENl HIEl"IUF:Y
UF'Iit1 TE F·,:)1 TI ENT RF.CIJRD~;- ­

i:;; E F' IJ l :.: I 1,,.,1 u u L. :0 "{ u u L 11-.:, E TCJ i:~ u N t T L

GENERAllH fHE PRINfING UF THE BILLS

1-­
:c
(,!)
......
~ 3/1..1.6'
g; - nr.:1i"'i v.lf'.':11...Tl:::F:b
u \:l?27 l,J. CHE::F~f~Y ~:;T.
8 E{1:~L.TIMDF;:i:;: MD. ::::.:1.:1.36
::::>

----·-----·-·------------·-----------·---- - - - ·

3 ./ ::~.~ ./ / (~) :I. :::.~ DFFICE: \)lfaIT !j; :I. ~'5

-- -·- ---g>·L ;:.ri' <:) :1.2 CTFFICE \.JISIT !f; :I.5
l ..... :•·,1·••1•'" T' ,""\I"'" I I 'l' ... \ •1· ""-"
TOTAL AMOUNt PAID :::: 11> 46""""
DATE OF LAST PAYMENT .... '+/:I. 2/'7.7

TOTAL AMOUNT DUE ************ ***************

1934 SHERWOOD AVE.

BALflMORE MD. 21134

7/23/?
OFFICE VISIT !f, 1. s
~1; :·5~5

fOTAL AMOUNT PAID .... ·;j; :I. ~5

DATE OF LAST PAYMENT
TfJT1~1L. P1MDUNT DUE

(..)
.
z:
I-<

:c /(3.1.9.~::
~ JOHN K, MASSEY
w 3421 HOWARD ST,
~ Di:':1LTIMOF~E Mii., 2:1.130
0::::
u
I-<
W­
I-<
1­
:z:
w
I-< l'/23/'7?
u
(/)

.!..::.! OFFICE l)JSIT

:i. ·.i --- . - ~ . i:~i:::NciVEti 1;Jr~ii:fr
:I. ::.~ OFFICE VI~:>IT

l­
·ro~r1L. (.'.1MUUNT f'(.~ ID :::: :1; :3 1~)

:or.~E: ()F l... r~GT PtrYMENT ···· :.313/T?

>­
''" ··. Oe....i:
1 c~nL t1MOUNl DUE ....
u
u
::::>

93216
Nf".1NCY 1.... SM I TH
:1.637 WEDGEWOOD ~VE; 11:29
 .·- . -· ·- 712.3'177"- -·· -­

··-----CJ F(:• :r c E -o I sTr---------------!Jf--:rs-·-- -··---------­

:I. :L./2::.i/76 0FF ICE VISIT $ 15

::~:/)/7 7 tiFJ:'.°ICE: V:t!:;T'I ~Ii -·:1.~_:;·-

TOTAL AMOUNf PAID ::: ~J; 3!.'.'i

DATE OF LASr PAYME~T 3/:J.:'.'i//7

************ $10.00 ***************

END iJ F ·r HE DI L!. F' F< Ii~ I Ii) C1 ~;; [ iJ UENCE •

.......

.....
LL.
..... F'RINI MtiJ.l . . TNC; l.. t1BFl..:3
1­
z 2 PRINT PA1JEN1 BJ.LLS

LLI
..... :.:S F-' f.:1 T I L NT (1 / F;: F;: E. F' DF< r

u l.l ··· P .-~·1 r 1 !::. NT I·I l. :::; T CJ F< Y

V>
5 UPUAIE PAflENT RECORDS

........ (~·j

r-.....
°'
tiJM1i::1-1 I< I:: I:· l ) f< l
1­
::c:
(.!)
.....
vJ U U !. D Y 0 !. .1 L J I< E T CJ r:: U N S 'l' 3

-
e:::

>­ .

c..·
0
. R E p-CJ R T
u
. t.>

nCC=ll= P1~1YMENTS

37116 $ 20 $ 40 4/12/77 SAM WALTERS

------·irs<:i n .~-;------T-J ~::;--····--- ~1; --..,1. ------ 4/:1./11-· ·ro1.:rn.~17rnrmrrnrr-- ··-·----···----­
51376 $ 00.00 $ 00.00 PAID UP MARY JOHNSON
ni :I. s.i 2 ~1; . 2 ::'.i ·:J; 30 3 / :{/ '? 7 .. JD HN I< • "i'-ff1Si:; E '/"
93216 $ 10 $ 35 3./15/77 NANCY L. SMITH
 'DTr~I... F'(.;YMENTt> 11; :I. ~:.~ 0 • 0 0
-- ~1;2 nr:<ro_________ --- --- -- -------------­
\CCOUNT~:;/f~EC. DUE 11;9(). 00

· - · - · -·---·-->- -·-·-·· - ---- ·-· -· --------------·----------··-----~------·----~·----~-'--~-------

fHE FOL.LOWING IS A LIST OF REPORTS THAT THIS PROGRAM

JILL GENERATE. TO CHOOSE ONE TYP£ IT'S NUMBER WHEN ASRED.­

--·· -FitCNT Hf.d: L INTf l: 1f.iB ----- ------------ -------- -- ---------·---- . ·- --------------------­
CL~r

2 - PRINT PATIENT BILLS

3 PATIENl A/R REPORT
4 PATIENT HISTORY
5 - UPDATE PATIENT RECORDS
6 BTDP r:·i:~OGF~1~M

IHlCH R~PURl WOULD YUU LIKE TO RUN: 1 4

1.N::·u r IHE PAllENT'S ACCOUNT I 1 37116

- -··----·-·· "-··· ------ ~ -- ·- ­

. 3/'U.6 ­

u
.
- Z­
'""4

M:.L.E::F~GJ:ES :::: nuL.Fr:~ l~ F·i:::NICil...l...IN *AGE ~37 *HT ::5····:1.0 *WT :1.73
1W1~ 0T
c:C \,,)I U"[ 0 ·1··1·
_ .,,,),. 7
,.)/ /(,) .~, - 1~1~v1~1~ ...... \ 7 7 1 ·7·
00 qr1
A• • 1 1~1~\ I <:h.}1 d~ 1 ••·1·1~ ....! 1-11.:.~.6,r·.lA~(~.-,1-11=.:
l"i
..·
11~1::· <:'"'.I:'•\.·1..
,11,:1:··'•)l.. · Y;d....
1::· x·1 :::: ·r1::· I ... 'Y'I 1:"\ful,,~ ('' y (', L ·1· · - 1::·... ,.)
"""!'!
1 i::· (")~'") M('·' 1="1::·
n.1 \ ..,,.)<:'"l" <~ I......
{> 'I' t')l~ .... J ·1· I1<:;
'"
mCOND VISIT 9/76 - EYES WATERING. NO FEVER. BP 80/125
1·~1:··
d 1:~-"·)e· ('' l""I' .,\.l. 1•::....r·I 1::·. .M.1::·. .·1· 1:"\ ..·1· 1~~I :II: .j ~ ., I r·1 1:·\· 1::·•.,,.))
-.. ill'!!.. (;' -·­
.
I ? 7·
J '\ ...

,_. l'I~ 1f"I~ \,,<, • ,,)

c· 11...:: f.·1-~ • 1·'!1l• J 1:: 1::· ... 1J 1::-1::·
... ' •. L· 1..11::·
_
.~ ·1· N A· N.1·•1
('.' ·1.._ 1==· f.·1..
.. .. .
r·1• ..·1· ',,):" !''" 1-,.. .,l
I 1=· ('J
.

. 1=·"1..
t
I ESCRIBED - COMPAZINE AND RES1

.t::: ,.•',1 / ' ..../ •1· '" ..1-.J ••·1· r.·"I 1·\.. 1-..
'·tn -\I"1,... " f.·1''·I'!1 .\J M(-I ....J, ,... •·AJ r·J ,·1.· ,;)
J;;, i"J Y'
... ,,)

(" ("_, ('.) ··f· 1 f'•... ("J. 1'"\"· ·1·

I 1-·" 1·::... v1···::. 1:"r\
07 \:)
\

n • n7 I J,r< 1·•..• <·l'1 '.')1 .·1. :-z

Cl <>

l~:EbCF< 1 BE:U ... 1...DMUT IL• EMP J F< IN :11::3 f.:1ND 1:~EGT
Vl
END CJF ~:;,,~M vJ,~~I... TEI:<~:; l·I J UTClF<Y FI LE

1-t!::ILN '(Dl.J r.11:~E Hi:: AD'y' - TCl f'FWCE::E:l:i 'fYPl'. r.~

:I. '!' 1..
°'
......
1­
::r:
c..!J
'""4
0:::
>­
0..

u
u
u
::>

1131

 -· - ··- ·---- __.____ - -··- .. -····--------- --- ... ---- ----------· ---·-··---------·---- ------­
...!'..LfL
"" -

~JDUL.D YOU l...Il'\E ·ro F<E 1.,.JIE~J ,~:it'-lCJTHEJ'.( PtiTIENT'f:) HISTCJF~Y (YE~:; 01:~ NCJ)"i'

----- - - r fHE PAllENT'S

INr ACCOUNf t ? 78192 ·- -------···- ---·-----------·--·--- --
. ----- - ---·--·--·---·-----···---- ---··-- ---·-~ ______ _______________
._

HJ:!:lTOF'.Y 7/~:.~:.3/7?

?D .L ')} JOHN I\., Mt1nbE Y

Hl~'.)TCJF<Y

til...l..ERl:!.LLE E:Ul...Ft1 * t1CJE ::~::.i. *BP 90/13'.':.i ;{{HT ~:i·.. <_;l >'f. !.<.IT J~:'iB
J//6 FJRSl VISIT FEVER 101.8 • BP 85/130. (EtLS POOR
r· i <[ E; c:;; .I. )::: E :u I E r h'. (1 c yLL. .L NE :? :5 0 MG
. REMOVED WART ON BACK UF LEFT INDEX rINGER.
u UL::.i t1 iu c ri1. 't, f·-W ti 1Hrt IA :r F::i::: rn i:;: Ei"HJ 1,.ii::: ~Ji'.:iF(l'.
;,::: / / ? F· 1::: I,) Ei::; i. u L ., '.<:'. <· I_{j'.'.• H'.:.'i / l~rn • j::'j::J::L. G I I... I... r::if-.n.1 HM1 l..l E{:1li {:-; c l"I E
H f'.°i i:l L 11 I. i.. I.. s • F' i< [ b c I~ [ X:l E:. .l.l r E i i:;; ,,:1 c y c 1. I N[ t1 N:0 E MF' I r< J: N :IJ: ~-!; .,
CND Ur: . :i JHN t<.. • i"-'i ti b S E '( I· I I B T 0 F: Y F' J L. E
j,lliF(I
.. ... , './1)11
I ... ~:-•;·r:·
11,, ...... r;-1::-::1Y1'·'
I ... I Tf'l
.. i::or·rir·ri::-n
I \ ......- ......... 'l\/F'F
I I ... (.':I •!,. ·_L
'i'' .

u
.
···-z

......

''I l..1! 11::-- i'iid ·1· h\I Fi

Z' 1·:. l. ..·1 L 11.......·...
1
... ·1· -...c~
". I·:·:1 I••• .J' ·...o::; ·1· '" 1::·
f) 1i:;•, ... c: · 1· 1-1 f::-I ..1. 'l" 1··'I .·1,· c·
1::· 1::..i...l j'.'.." .,. . ,,J -.J 1::· /'.\" l..)• t':',') 1:··\J·:·:11V1

t.d 1 l:;i: uENE r:: (:j r [ <· r 0 c I I0 CJ :::; E ()NE ·r yI;. F ]. T . ~;;; i'~ uj'-'j El [ F( l.·.I HE N (:·1 '.:; I'\ F fl .,
u
(/)

I .I PRINi MAILING LADELS

"- . .! F' i:.: J: NT i::· ti 'f .I. LNT

El I I .L;:)

r--.. .,.
°' .4:) PAllLNT AIR REPORT
r-i p (:1 T 1 i:: j\I r H :i.:::; (' CHn..
!:i: ~·; UPDATE PATIENT RECORDS
86 nTor· r:· i:;: ot ; F< 1~1 H
0:::
>­
1.i.111&.:il I? L F' Cl F·: l ~J Cl UI .. I.I y· CJ l J I... I I·\ E T CJ F( UN ;;

1132

 :1.0 F<EM MED FILE

20 PF~ I NT

30 PF<INT
40 PRINT " THIS PROGRAM WILL BUILD YOUR DATA BASE FOR YOU"
NT

!50 r·1:< I
60 OPEN "O",l•"MED"

70 PRINT "HOW MANY PATIENTS DO YOLJ WANT TO PUT IN YOUR DATA BASE ";

:::JO INF'UT N:I.

9 0 P1:< I N'I :II: :I. , N :L

:L () 0 P 1:~ I NT
110 PRINl "TYPE IN THE FOLLOWING INFORMATION FOR EACH PATIENT"
120 PF(INT
130 PRINT "PATIENT 1, NAME, ADDRESS, CITY/STATE/ZIP, I OF VISITS BEING F
NTEF(ED II

140 PRINT "PLUS THE NUMBER OF HISTORY LINES YOU ARE GOING TO ENTER "
1:'50 Pf(INT
160 FOR I=:L ro Nl
170 INPUT Av N$, RS, S$v Bv J
180 PRINT 11, AvN$;",";R$;",";st;•,";B,J
'1.90 F'f(INT
200 IF B=O THEN 290
210 PRINT "TYPE IN THE VISIT INFORMATION AS FOLLOWS: "
::;~ ::.~ 0 F' f( I NT
~30 PRINT "DATEv CHARGE t, DESC., $CHARGES, S PAYMENT "
~~~.i:~() Pf(INT
-250 FOR I2=1 TD B
5::,~<~>0 1 NPUT [!I;, N :i r.:11;, S, P
~270 PRINT 11v ES;","0NvA$P"v"Os,p
~200 NE::XT I:;~
~290 IF J=O THEN 380
PF( I NT
PRINl' "INPUT THE PATIENT HISTORY HERE. BE SURE TO ENTER"

PRINT "THE NUMBER OF LINES YOU SPECIFIED ABOVE ••• ••

~ I +
r:.F<'. INT
FCJf( J3::::J. TD J

INPUT ,,l)I;

PF~ I NT :II: :I. , ,.J~I;

NEXT 1::~

i::·r~ 1 NT

NE:xr I

PF~ .I: NT

Pl·~INT

PF;: INT

PRINT "ALL FINISHED "

F'F~ I NT

END

1133

1134

(..)
.
~W~P~:
::i::
(..)
~ This program is designed to allow owners of micro-computers the capability
~ of rearranging text material and then printing it out in a variety of for•
~ mats. While this version is not quite as comprehensive as our WWP rev:30
(..) program, it should easily run on most systems with disk extended Basic and
~ 15K Bytes of free user memory for execution .
......
I-
Q There are a few statements appearing in this program that may not be in the
t:; version of Basic you are using. The first is the Console statement, if your
(/) Basic doesn't have this command then just remove it everywhere it appeats in
1 the program, no other conversion is necessary. Line Input and Instr are two
:::::: more statements that may not be in the version of Basic you are using. The
~ Instr statement may be replaced by a conversion subroutine using the MID$
1- statement, if necessary. A typical conversion for the Instr statement would
a be similar to the subroutine used on line 4075 on page 243 of Volume I. Here
::;;: Fl is set equal to one (1) and the SST statement would be replaced by the MID$
f;: statement; see appendix B, page 925: Volume V.
C>
(..)
(..) This program offers nine major modes of operation with a number of submode
~ operations. Individuals requiring a considerably more comprehensive version,
should complete a copy of our software licensing agreement included at the
end of this volume and return it with an order or contact us directly to ob­
tain more details.
Following the source code listing for WRDPRO are a series of sample runs
which illustrate the usefulness and versatility of the routines contained
within this program. It should be noted that this version of WRDPRO rev:l
can only utilize text files that fit entirely into the working memory of
the system being used. Therefore, if your Basic requires 20K and you only
have SOK Bytes of total memory, then the largest text file you could build
and use would only be 15K Bytes long; this would be equivalent to approxi­
mately four standard size, single spaced, typed pages of text. While this
program does limit the size of your text files to the size of your working
memory, it does not limit the number of files you may have, making it quite
easy for you to have several files representing seperate portions of the
total text material.

1135

WRD PROC 8/11/1977 - 1 ­

100 PRINT CHRSC26>f "WORD PROCESSING TEXT EDITOR REV. 1.1•

110 PRINT UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH"IPRINTIPRINT
1

120 REM WORD PROCESSING TEXT EDITOR

130 REM WRITTEN BY JOHN W. SWAIN
140 REM COPYRIGHT BY SCIENTIFIC RESEARCH 1977 c::
("")
150 REM THE FOLLOWING VARIABLES CONTROL CONSOLE PORT ASSIGNMENTS ("")
160 REM Cl=CRT PORT ASSIGNMENT
170 REM P1=SWITCH SETTING FOR CRT PORT
180 REM C2=PRINTER PORT ASSIGNMENT
190 REM P2=SWITCH SETTING FOR PRINTER PORT
200 REM SET UP GLOBAL CONSTANTS AND EQUATES
210 DEFINT A-Z:CLEAR 3000:DEFFNZSCYS>=CHRS<ASCCY$)AND 95) ~
220 LINEINPUT"ENTER TODAY'S DATE <MM/DD/YY OR SEPT. 26, 1977>? u;z9s ~
230 PRINTCHR$C26) ~
240 ON ERROR GOTO 3420 'SET UP ERROR TRAPS
250 C1=18:P1=1 (./')
("")

260 C2=16:P2=0

270 CLOSEIPRINT "WORD PROCESSING TEXT EDITOR REV. 1+1"

280 PRINT"UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH•:PRINTIPRINT ,,.......

.......

290 PRINT "THE FOLLOWING FUNCTIONS AVAILABLE AREl"IPRINT ("")

300 PRINTv" 1 - BUILD THE TEXT OR LETTERu ~

310 PRINT," 2 - CREATE THE NAME AND ADDRESS FILEu ~
320 PRINT,• 3 - EDIT THE NAME AND ADDRESS FILEu ~
330 PRINTv" 4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND YOU USEu ~
340 PRINTv" THE EDITOR IN BASIC)• ~
.......

350 PRINT," 5 - PRINT A COPY OF THE TEXT· :;;::::

360
370
PRINT," 6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME •
PRINTv" AND ADDRESS FILE+ SALUTATION ENTERED FOR EACH LETTER
("")
0
.
380 PRINT,• 7 - PRINT LETTERS FROM NAME AND ADDRESS FILE•
390 PRINT," 8 - GLOBAL SEARCH AND REPLACE•
400 PRINT,a 9 - PRINT MAILING LABELS•
410 PRINTv"10 - ENDs
420 PRINT:INPUT"WHICH WOULD YOU LIKE TO no•;F91IF F9<1 OR F9>10 THEN 270
430 PRINTCHR$(26>:0NF9GOTO 470,760,1090,1560,1690,1940,2270,2750,3020
440 REM END ROUTINE
450 CLOSE:PRINT EXITING TEXT EDITOR":CLEAR 2001END
0

460 REM TEXT CREATION ROUTINE

470 LN=10001PRINT"TEXT CREATION ROUTINE FOR LETTERS AND COPY"
480 GOSUB3390:IF Z=O THEN 480
490 PRINT"OUTPUT ;:GOSUB3360:IF Z=O THEN 490
0

500 GOSUB3220 'CHECK FOR EXISTING FILE

510 OPEN°0"Y1,FZ$vDR
520 GOSUB 3180 'SET UP HEADER OF FILE
530 PRINT:PRINTIPRINT"FILE HEADER LABEL= ·~MIDSCA$,INSTRCA$,• •)) 1

540 PRINT 0 ===== BEGIN TEXT ENTRY =====•

550 PRINT:PRINT
560 LINEINPUT A$1IF A$="END" THEN 630
570 IF LEFT$CA$v1)="?" THEN 590
580 A1$=A$IA$=STRS<LN>+•• "+ASIPRINTi1,A$1LN=LNt101GOTO 560
590 IF AS=u?• THEN PRINTIPRINTA1$1GOTO 560
600 T=VAL<MIDSCA$v2>>:IFT<10RT>132THENPRINT·TAB INCORRECT·:GOTO 560
610 TS="":FOR I=l TO T:TS=TS+• :NEXT
1

620 PRINTTS;:LINEINPUTAS:AS=TS+ASSGOT0580
630 GOSUB6501CONSOLE C1vP1:CLOSE:PRINT•EXITING CREATION ROUTINE•
640 GOTO 730
650 CLOSE:INPUT"DO YOU WANT A LISTING OF THE FILE•;z1s
660 IF LEFT$CZ1$,1)="Nu THEN RETURN
670 OPEN•r•,1,Fzs,DRIINPUT"DO YOU WANT LINE NUMBERS LISTED•;z1s

1136
WRD PROC 8/11/1977 - 2 ­

680 INPUT"HIT (CR) WHEN READY";zzs:coNSOLE c2, P21PRINT

690 IF EOF<1> THEN RETURN

700 LINEINPUTl1,A$

710 IF LEFT$CZ1$,1)="YuTHEN PRINTASELSEPRINTMIDSCAS,INSTRCAS,• •>+1>

720 GOTO 690 c::

730 PRINT"NUMBER OF RECORDS WRITTEN= u;cLN-1000)/10 ("')

("')
740 GOTO 270
750 REM CREATE NAME AND ADDRESS FILE
760 LN=10001PRINTaCREATION ROUTINE FOR NAME AND ADDRESS FILE•
770 GOSUB3390:IF Z=O THEN 770
780 PRINT"OUTPUT ";:GOSUB3360:IF Z=O THEN 780
790 GOSUB3220 'CHECK FOR EXISTING FILE
800 OPEN"oa,1,FZS,DR
810 GOSUB 3180 'SET UP HEADER OF FILE
820 PRINT:PRINTIPRINT"FILE HEADER LABEL= u;MID$(A$,INSTR(A$,a'u)) I
830 GOSUB 8401GOTO 1010 (,/)
("')
840 PRINT 0 ===== BEGIN TEXT ENTRY =====" ......
850 PRINT:PRINT ~
860 LINEINPUT ASIIF At<> 0 END" THEN GOSUB 870:GOTO 860 ELSE RETURN ~
870 IF LEFTS<AS,1>="Tu THEN 900 ~
880 IF F>8 THEN GOSUB 1030:F=OIRETURN ("')
890 A1$=ASIF=Ft11ATS<F>=A$1RETURN ~
900 IF AS="?" THENPRINTIPRINTA1$1RETURN ~
910 A$=MIDSCA$,2)1GOSUB 9201GOT0960 ~
920 IF LENCAS><1 OR LENCA$))26 THEN 990 %
930 FORI=1TOLENCAS>:MID$CA$,I,1>=FNZ$CMID$(A$1I,1>>ITS=MIDSCA$,I,1~
940 IF TS=> A" AND TS<="Z" THEN NEXT ELSE 990
0
~
950 RETURN .
960 TS=AS:LINEINPUT"SALUTATIONT a;A$IF=FtllAT$(F)= T"tTSt"-s+A$
1

970 FOR I=l TO FIPRINTl1,MIDSCSTR$(LN),2)t"' u+ATSCI>ILN=LNtlO:NEXT

980 F=OIPRINTIPRINT"===== NEXT ENTRY ===== 1RETURN
0

990 PRINT"GROUP CODES MUST CONSIST OF 1 TO 26 UPPER CASE LETTERS ONLYn

1000 LINEINPUT"PLEASE ENTER THE CORRECT GROUP CODECS>T ;As:GOT0920
0

1010 GOSUB650:CONSOLE Cl,PltCLOSE:PRINT"EXITING CREATION ROUTINE•

1020 GOT0730
1030 PRINTCHRS<26>:"THE LAST 10 LINES ENTEREDf 1PRINT
0

1040 FOR J=l TO FIPRINTATS<J>INEXT

1050 PRINTIPRINT"DON'T CONTAIN AN END OF ENTRY MARKER <T>."
1060 PRINT START THIS ENTRY OVER AT THE FIRST LINE•
0

1070 RETURN
1080 REM NAME AND ADDRESS FILE EDITOR ROUTINE
1090 PRINT"EDITOR FOR NAME AND ADDRESS FILE"IPRINT:PRINT
1100 GOSUB 33901IF Z=O THEN 1090
1110 PRINT"OUTPUT ;:GOSUB 33601FPS=FZSIIFZ=OTHEN1110
0

1120 PRINT"INPUT ;1GOSUB33601LN=10001IF Z=O THEN 1120

0

1130 OPEN"I",2vFZS,DR
1140 OPEN•o•,1,· •• xyz •• ",DR
1150 GOSUB31901LINEINPUTl2,Z1$ 'WRITE UPDATED HEADER TO FILE
1160 PRINTCHRS<26>1F=11GOSUB14601IF F=O THEN GOTO 1510
1170 PRINT"THIS SECTION OFFERS 6 MODES OF OPERATION."IPRINT
1180 PRINT, 1 - ADD A LINE AFTER LINE SPECIFIED•
0

1190 PRINr,•2 - DELETE LINE SPECIFIED"

1200 PRINT,"3 - REPLACE LINE SPECIFIED 0

1210 PRINT,"4 - DELETE THIS ENTRY"

1220 PRINT,"5 - GET NEXT ENTRY"
1230 PRINT,"6 - END•
1240 PRINT:PRINTIPRINTTABC12);mLINE NO. CONTENTs•:PRINT
1250 PRINTTABC16);m1 •;ATSC1>;SPCC4);"(GROUP CODES)"

1137
Wf~D PFWC 8/11/1977 ... 3 -·

1.260 FORJ=2 TO FIPRINTTAB<15);J;SPCC5);ATS<J>:NEXTIPRINTIPRINT

1270 INPUT•WHICH FUNCTION"~F91IF F9<10R F9>6 THEN 1170
1280 IFF9<4THENINPUT LINE NUMBER•;Fa ELSE 1300
0

:l.290 IF F8<1 OR <F8+1>10 AND F9=1> OR F8>F THEN 1280

1300 ON F9 GOTO 1380,1360,1340,:J.160,1330 c
1310 GOSUB 1440 g
:J.320 F=1:GOSUB1460:IFF<1THENGOT01510ELSEGOSUB1440:GOT01320 n
1330 GOSUB 14401GOT01160 ~
l.340 PRINT"REPLACEMENT LINE FOR;"Fa;s1•;:LINEINPUTATS<F8> ~
:L 3~50 IF F8<>1THEN 1170 ELSE A$=ATS<l.>IGOSUB 9201ATS<1>=ASIGOT01170 8
1360 IF F8=>2THEN F=F-1:FORI=F8 TO FIATS<I>=ATS<I+1>1NEXT ~
1370 GOTO 1170 ~
1380 IFFB<FTHENLINEINPUT"NEW LINErr • ;A$1F=Ft1 IFORI=FTOF8t1STEP-1ELSE111-a
1390 ATS<I>=AT$CI-1>1NEXTIAT$CF8+1>=ASIGOTO 1170 ~
1400 INPUT"DO YOU WISH TO ADD ANY ADDITIONAL ENTRIEs·;z1s (/)
1410 IF LEFTSCZ1$,1)="Y" THEN GOSUB 840 n
.......

142() CLOSE:IF FP$=FZ$ THEN KILLFZ$,DR rr1

1430 NAME" •• XYZ •• • ASFPS, DR: FZ$:::FP$ I GOSUB650: CONSOLEC1 'Pl: CLOSE: GOTO 27<R

1440 AT$(F)=H?a+AT$(1)t•-u+AT$(F)IFOR I=2 TO F ~

145() PRINTl1,MID$CSTRS<LN),2)t"' •+ATS<I>ILN=LN+101NEXTtRETURN 8

1460 IFEOF <;;.~ >THENF=:::O: RETURNELSELINE:CNPUT:fl:2, AS: A~>=MID$ (A$, INSTR< AS,"'•> BC>

1470 IF LEFT$CA$,1)="?" THEN Fl=INSTR<A$,"-") ELSE 1500 ~

1480 AT$(1)=MID$(A$,2,F1-2>:F=F+11AT$CF>=MIDSCA$,F1t1) ~

1490 RETURN ~

1!'.'iOO F=Ft11AT$CF>=A$IGOTO 1460 ~

1510 INPUT"ARE THE CHANGES CORRECTs;z1s ~

:1.520 IFLEFTS<Z1$v1)=•N"THENPRINTuABORTING JOB' NO FILES CHANGED" p

1530 IFLEFTS<Z1$,1)=•N•THENCLOSEIGOT0270

:1.540 GOTO 1400

:L 5~i0 REM SET-UP FOR EDITING USING BASIC

~.560 PRINT"EDITOR ROUTINE FOR TEXT FILES"

:l.570 PRINT"THIS SECTION WILL SET UP THE FILE FOR EDITING USING THE a

:J.~)80 PRINT"EDITOR WHICH IS BUILT INTO BASic.•tPRINTtPRINT

1590 Z=llINPUT"FILE NAME TO EDITU~FZS:GOSUB3370:IFZ=OTHEN1590

1600 Z=l:INPUT"DRIVE NUMBER";DRIGOSUB34001IFZ=O THEN 1600

:J.610 INPUT·Do YOU WISH A LIST OF THE FILE BEFORE EDITINGn;z1s

1620 :CF LEFTS<Z1$,1):::•y• THEN OPEN •r•,1,Fzs,DRELSE 1670

1630 INPUT.HIT <CR> WHEN READY";zzs:CONSOLE c2,p2

:1.640 IF EOF<l>THEN 167()

:1.650 LINEINPUTi1,A$1PRINTA$

1660 GOTO :t640

:1.670 CONSOLE c1,r1:LOAD FZS,DR

l. 680 REM PRINT COPY OF TEXT

:l.6<;>o PRINT.THIS SECTION PRINTS A COPY OF THE TEXT·
:t.700 GOSUB33901GOSUB 1880:GOSUB1850:INPUT"NUMBER OF COPIES";Nc
:I. 710 INPUT"LINE UP PAPER AND HIT <CR) WHEN READv•;zzs:CONSOLE c2,p2
1720 NT=LN:IFNC>OTHENGOSUB18201NC=NC-1:GOTO 1740
:l.7:'50 CONSOLEC1,P11PRINT"EXITING COPY PRINT-OLJT•:GOT0270
1.740 IFLEFT$EZ2$,1)=•N•THEN IF NC<1THEN 1720 ELSECONSOLE C1vP1:GOT01710
:L750 IF NT=OTHEN 1720 ELSE IF NT>O THEN PRINTINT=NT-1:GOTO 1750
1760 NC=NC+1SCONSOLE C1,P11PRINT:PRINT
17'70 PRINT"YOUR DOCUMENT IS TOO LONG FOR THE FORM SIZE SELECTED+"
:L780 INPUT" DO YOU WANT TO CONTINUE PRINTING·;zzs
1790 IF LEFTS<ZZ$,1)= Y THEN GOSUB 18601GOTO 1710
8 8

1800 INPUT"DO YOU WANT TO RESTART";zzs

18:LO IF LEFT$CZZ$,1)=•yu THEN 1700 ELSE 1730
1820 OPEN•:ca,1,FZSvDRSGOSUB 1920
1830 IF EOF<l> THEN CLOSE 1:RETURN

1138
 B/11/19'77 - 4 ­
1840 LINEINPUTl1vAS:PRINTMIDS<ASvINSTRCA$,• •>+2>:NT=NT-llGOTO 1830
1

:L 850 INPUT"CONTINUOUS FORMss;z2s:IF LEFT$(Z2SP1)="N" THEN RETURN

1860 INPUT•NUMBER OF LINES PER PAGE•;LN
1870 F~ETLmN
1880 PRINT"INPUT TEXT "~:GOSUB3360:IF Z=O THEN 1880
:I. {3<,i>O OPEN•r•,1,Fzs,DR:GOSUB1920:CLOSE 1
190() PRINTMID$(A$,INSTRCA$,"'")t1>:INPUT•rs THIS THE CORRECT
1910 IF LEFT$CZ1Sv1>="N"THEN 1880 ELSE RETURN
1920 LINEINPUTl1vAS:IF LEN<AS>>O THEN RETURN ELSE 1920
l930 REM PRINT LETTERS WITH SALUTATION ENTER FROM KEYBOARD + ENV.
1940 PRINT.PRINT LETTERS WITHOUT NAME AND ADDRESS FILE.•:PRINTIPRINT
:L <;>5() GOSUB3390:GOSUB 1880
:1. 96() GOSUB 21101GOSUB2250
19'70 INPUT"LINE UP PAPER AND HIT CCR> WHEN READY"fZZS:CONSOLE C2rP2
:L <;>80 PRINTTABCT1>~ZBS:PRINTIPRINTTES:PRINTZ5SIPRINTIPRINT
V'>
1990 GOSUB 18201CONSOLE C1vP1 . .....
("')

2000 INPUT"DO YOU WANT TO PRINT AN ENVELOPE fZZ$

0
l"l1
2010 IF LEFTSCZZ$,1)="Yu THEN GOSUB 2060 ~
2020 INPUT"ANOJHER LETTER";ZZSIIF LEFT$CZZ$,1)= 9 N8 THEN 2100 ~
2030 INPUT"SAME DOCUMENT"fZZSIIF LEFTS<ZZ$,1)= 0 N8 THEN GOSUB 1880 ~
2040 INPUT"SAME NAME AND ADDREss•fZZSIIF LEFT$CZZ$,1)="N" THEN 1960 ~
2050 GOTO 1970 ~
2060 PFUNT: INPUT. PLACE ENVELOPE IN PRINTEr~ AND HIT (CR) WHEN F~EADY.; z~
2070 CONSOLE c2,p2:PRINTTABC35)~1FORI=1TO LENCTES>-2 ~
208() PRINTMIDSCTE$,I,1>;:rF ASC<MID$CTES,I>>=10 THEN PRINTTAB(35); %
2090 NEXTIFORI=l TO 51PRINT:NEXTICONSOLE C1,P11RETURN ~
2100 PRINT"EXITING LETTER PRINTING ROUTINEn:GOTO 270 P
2110 PRINT:PRINT
2120 PRINT"ENTER EACH LINE OF THE NAME AND ADDRESS AS IT WILL APPEAR ON•
2130 PRINT"THE LETTER. AFTER THE LAST LINE HAS BEEN ENTERED, TYPE A a
2140 PRINT"'?' AND HIT CCR>.u:TE$=""
2150 LINEINPUTASIIF LEFTSCA$v1>="?" THEN 2180
2160 IF LENCTES+AS>>250 THEN PRINT"NAME/ADDRESS TOO LONG"IGOTO 2110
2170 TE$=TE$+AS+CHRSC13>+CHRSC10)1GOTO 2150
2180 IF LENCTE$)(3 THENPRINT"NAME AND ADDRESS TOO SHORTu:GOTO 2110
2190 PRINT:PRINTILINEINPUT"INPUT DATE CCR> USES DATE ENTERED? u;zes
2200 IF Z8S="" THEN Z8S=Z9$
2210 INPUT"NUMBER OF SPACES TO INDENT DATE (CR) USES LAST ENTRY•;z7s
2220 IF Z7S="" THEN Z7S=Z6$ ELSE Z6$=Z7$1T1=VALCZ7$)
2230 IF Tl<O OR T1>132 THEN 2210
2240 F~ETUF~N
2250 LINEINPUT"SALUTATION1 •;z5s1RETURN
2260 REM PRINT LETTERS FROM NAME AND ADDRESS FILE
2270 PRINT"PRINT LETTERS FROM NAME AND ADDRESS FILE"
2280 GOSUB 3390 'GET DRIVE NUMBER
2290 GOSUB 18801FXS=FZ$ 'GET TEXT NAME AND SAVE TEMP
2300 GOSUB 26901FZS=FXS 'GET NAME AND ADDRESS AND RESTORE TEMP
2310 GOSUB 1850 'GET CONTINOUS FORMS ANSWERS
2320 GOSUB 2190 'GET DATE QUESTIONS
2330 GCS=""INC=OILINEINPUT"GROUP CODES TO PRINT? ";ASIGOSUB 2610
2340 IF LEFTSCZZSvl)="N" THEN 2330
235() INPUT"LINE UP PAPER AND HIT <CR) WHEN READY fZZ$1CONSOLE c2,p2
0

2360 OPEN"Ia,2,FYSvDRIGOSUB2730
2370 II=11NT=LNIGOSUB 25301IF II<l THEN 2480 ELSE PRINTTAB<T1>;zas
2380 PRINTIFORI=2 TO II-11PRINTTESCI>INEXTIPRINTIPRINTTESCII>
2390 PRINTIPRINTINT=NT-CII+6>
2400 GOSUB 18201NC=NC+11IFLEFT$CZ2Sv1>=•N" THEN CONSOLEC1vP11GOT02350
2410 IF NT=O THEN 2370 ELSE IF NT>O THEN PRINTINT=NT-11GOTO 2410

1139
t..IRD Pli:DC 8/l l/1 <"JT7 - 5 -··

2420 NC=NC-llCONSOLE C1,P11PRINT:PRINT

2430 PRINT"YOUR DOCUMENT IS LONGER THAN THE FORM SIZE SELECTED.•
2440 INPUT"DO YOUU WANT TO CONTINUE PRINTING·;zzs
2450 IF LEFT$CZZSv1>="Y" THEN GOSUB 1860:GOT02350
2460 INPUT"DO YOU WANT TO RESTART";zzs
2470 IF LEFTS<ZZ$v1>="Y" THEN CLOSEIGOT02290
2480 CONSOLE C1,P1:CLOSEIPRINT 0 ENDING LETTER PRINT OUT ROUTINE•
2490 PRINT 0 NUMBER OF LETTERS PRINTED= ·~NC
2500 INPUT"DO YOU WISH TO PRINT MAILING LABELs•;zzs
2~HO IF LEFTS<ZZ$,1)="N" THEN 270
25~~0 CLOSE:GOTO 3070
25~rn IF EOFC2> THEN II=OIRETURN ELSE LINEINPUTl2,A$
2~540 A$=MIDS<A$vINSTRCA$,"'")f2)
2550 IF LEFT$CASv1)="?" THEN J=INSTRCA$v 8 - 0 ) ELSE 2600
2560 TE$Cl>=MID$CASv2vJ-2>1II=II+11TES<II>=MID$(A$,J+1>
2570 IF GCS="ALL" THEN RETURN ~
2~)80 FOF~ I:::: :l. TO 1...EN ( GC$) :IF I NSTF~ <TE$ <1. > v MIDS< GC$ d d) ) >O THEN RETUFm
2590 NEXTI:II=11GOTO 2530 ~
2600 II=II+l:TES<II>=ASIGOTO 2530 ~
2610 IF LEN<AS><l THEN ZZS="N"IRETURN 8
2620 IFAS="Al...L"THENPRINT"YOU HAVE SELECTED ALL OF THE FILE"ELSE 264~
2630 GC$="ALL":GOTO 2680 ~
2640 PRINT:PRINT 0 YOU HAVE SELECTED THE FOLLOWING GROUP CODES:· ~
2650 PRINTIPRINTTABC10>:FORI=1TO LENCA$>:TS=MID$(A$viv1) ~
2660 IF T$<"A" OR T$>"Z" THEN 2670 ELSE PRINT" ";Ts;:GC$=GC$+T$ ~
2670 NEXT ~
2680 PRINT:PRINTSINPUT"IS THIS CORRECT";zzs:RETURN p
2690 PRINT"NAME/ADDRESS •;:GOSUB3360:IF Z=O THEN 2690
2700 FYS=FZS:OPEN"I"Y2vFY$,DRIGOSUB2730tCLOSE 2
2710 PRINTMID$(A$vINSTR<ASv"'">+1>:INPUTuzs THIS THE CORRECT FILE·;z1s
2720 IF LEFTSCZ1Sv1>="N"THEN 2690 ELSE RETURN
2730 LINEINPUTl2vAS:IF LENCAS>>O THEN RETURN ELSE 2730
2740 REM GLOBAL SEARCH AND REPLACEMENT ROUTINE FOR WORD PROCESSOR
2750 PRINT"GLOBAL SEARCH AND REPLACE ROUTINEu:PRINT
2760 PRINT"WHEN CHOOSING SEARCH STRINGv BE SURE TO PICK ONE WHICH 0
2770 PRINT"IS UNIQUE TO THE ITEM YOU WANT CHANGED OR YOU MAY CHANGE 0
2780 PRINT"AN ITEM THAT YOU DIDN'T MEAN TO CHANGE+"
2790 PRINT"THIS SECTION WILL PRINT OUT THE CHANGED REPORT AS IT MAKESu
2800 PRINT"THE CHANGES"
2810 GOSLJB 33901IF Z=O THEN 2810
2820 PRINT"OUTPUT •;:GOSUB 33601FP$=FZ$:IFZ=OTHEN2820
2830 PRINT"INPUT •;:GOSUB33601LN=10001IF Z=O THEN 2830
2840 OPEN"I"v2vFZSvDR
2850 OPEN"O"vl•"••XYZ •• "vDR
2860 GOSUB3190:LINEINPUT12vZ1$ 'WRITE UPDATED HEADER TO FILE
2870 LINEINPUT"SEARCH STRING? •;z2$
2880 LINEINPUT"REPLACEMENT STRING? "PZ3S:PRINT:PRINT
2890 INPUT 0 READY PRINTER AND HIT <CR) TO CONTINUE";z1s
2900 PRINT"A MOMENT PLEASE":NR=OICONSOLE C2,P2
2910 IF EOF<2> THEN CLOSEtGOT02960
2920 LINEINPUTl2vA$:FORI=1TOLEN<AS>:IFMID$(A$,I,LEN<Z2$))(>Z2STHEN2940
2930 B$=LEFT$(A$yI-1>:CS=MID$(A$vI+LEN<Z2$))1A$=BS+Z3$+CS:NR=NR+1
2940 NEXTI
2950 PRINTl1,A$1PRINTASIGOT02910
2960 CONSOLE ClvPi:PRINT"NUMBER OF RECORDS FOUND AND REPLACED = n~NR
2970 INPUT 0 ARE THE CHANGES CORREcr·;z1s
2980 IFLEFTS<Z1SY1)= 0 N"THEN~RINT"ABORTING JOB' NO FILES CHANGED"IGOT0270
2990 IF FPS=FZS THEN KILLFZSvDR

1140
WRD PROC 8/11/1977 - 6 ­
3000 NAME· •• xyz •• "AS FPS,DR:GOTO 270

3010 REM PRINT MAILING LABELS

3020 PRINT"PRINT MAILING LABELS"

3030 GOSUB3390 'DRIVE NUMBER

3040 GOSUB 2690 'GET NAME AND ADDRESSS FILE NAME c

3050 GC$=""1LINEINPUTnGROUP CODES TO PRINT? •;A$1GOSUB 2610 g

3060 IF LEFTSczzs,1>= N• THEN 3050

0
n

3070 INPUT 0 LINE UP LABELS AND HIT CCR) WHEN READY·;zzs:coNSOLE c2,p2 ~

3080 NC=O:PRINT ~

3090 FORI=1T081FORJ=1T0201PRINT•x ~:NEXTJIPRINTINEXTIICONSOLE c1,p1

0
~

3100 INPUT" IS THE LINE UP CORRECT•;zzt:IF LEFT$CZZ$,1)=•N• THEN 3070~

3110 CONSOLE C2,P210PEN"I",2vFYS,DRIGOSUB2730 ~

3120 II=11GOSUB 25301IF II<1 THEN 3160 ~

3130 PRINT:FORI=2 TO II-11PRINTTE$CI>INEXT ~

3140 FORI=II-1 TO BIPRINTINEXT

3150 NC=NCt11GOTO 3120 ~

3160 CONSOLE C1vP11PRINTaEND OF MAILING LABEL ROUTINE• ~

3170 PRINT"NUMBER OF LABELS PRINTED= ";NC:GOTO 270 ~

3180 AS=STRSCLN>+"' "+"FILE NAME 0 tFZS+• CREATION DATEI •+Z9$1GOT0321~

3190 AS=STRSCLN>+"' "+°FILE NAME "+FPS+u REVISION OF: +FZ$0

8

3200 AS=ASt" DATE REVISED: "+Z9SIGOT03210 :::0

fT1
3210 PRINTl1,ASILN=LNt101RETURN c.n

3220 OPEN"I",lvFZSvDR:CLOSEIPRINT"FILE ALREADY EXISTS USING THAT NAME~

3230 GOSUB3340 ~

3240 INPUT"DO YOU WISH TO RENAME OR REPLACE THE EXISTING FILE";z1s ~

3250 IFLEFT$CZ1Sv1>="N"THENPRINT•NEW OUTPUT "f IGOSUB33601IFZ=OTHEN325~

3260 IF LEFT$CZ1$,1)="N" THEN RETURN P

3270 INPUT 9 WHICH CREN OR REP>"•Z1$

3280 IF LEFT$CZ1$,3)()nREN" THEN IF LEFTSCZ1$,J)()"REPn THEN 3270

3290 IF LEFTSCZ1$,3)="REP" THEN RETURN

3300 PRINT"CHANGE NAME FROM •;Fzs;• To•;:INPUTFPS

3310 Z=11GOSUB3370tIF Z=O THEN 3300

3320 NAME FZS AS FPS,DR

3330 RETURN

3340 PRINT"THE FILES AVAILABLE ON THIS DISC ARE:u:PRINTIFILES DRIPRlNI

3350 RETURN

3360 INPUT"FILE NAME•;Fzs:Z=1

3370 IF LENCFZS><1 OR LENCFZ$))8 THEN PRINTnILLEGAL FILE NAME":Z=O

3380 RETURN

3390 INPUT"DRIVE NUMBER";DR:Z=1

3400 IF DR<O OR DR>15 THENPRINT"ILLEGAL DRIVE NUMBER":Z=O

3410 RETURN

3420 IF ERR=56 THEN CLOSE:PRINT"MOUNTING DRIVE •;DR:MOUNT DRIRESUME

3430 IF ERR<>53 THEN 3540

3440 IF F9=1 THEN RESUME 510

3450 IFF9=4 THEN GOSUB 3340:RESUME 1590

3460 IF F9=8 THEN GOSUB 3340:CLOSE:RESUME 2830

3470 IF F9=3 THEN GOSUB 3340:CLOSE:RESUME 1120

3480 IF F9=2 THEN RESUME 800

3490 IF F9=5 THEN GOSUB 3340:CLOSE 11RESUME 1700

3500 IF F9=6 THEN GOSUB 33401CLOSE 11RESUME 1950

3510 IF F9=7 AND ERL=1890 THEN GOSUB33401CLOSE l:RESUME 2290

3520 IF F9=7 AND ERL=2700 THEN GOSUB 33401CLOSE 21RESUME 2300

3530 IF F9=10 AND ERL=2700 THEN GOSUB 33401CLOSE 21RESUME 3040

3540 IF ERR=58 THENPRINT"OUTPUT FILE ALREADY EXISTS :GOSUB3560:RESUM~

3550 ON ERROR GOTO 0

3560 GOSUB 3340:INPUT"DO YOU WISH TO REPLACE THE FILE·;z2s

3570 IF LEFTS<Z2S,1>="Yu THEN KILLFPS,DRSRETURN

1141
WRD PROC 8/11/1977 - 7 ­
3580 LINEINPUT 1 NEW OUTPUT FILE NAME? •;FPS
3590 IFLENCFP$)(10RLENCFP$))8THENPRINT•ILLEGAL FILE NAME•:GOT03580
3600 RETURN
c:
("")
("")
("")
C>
'"C
-<
:;o
......
en
:c
-I

(/)
("")
......
rr1
:z
-I
......
.,,
......
("")

:;o
rr1
(/)
rr1
>
~
:c
......
:z
.

("")

1142
WORD PROCESSING TEXT EDITOR REV. 1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH U'l

ENTER TODAY'S DATE CMM/DD/YY OR SEPT. 26v 1977>? AUG. :l.2d . 1977
_;:;;;=- RUB: ~
re lf4o lie~
;j
WORD PROCESSING TEXT EDITOR REV. 1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ­
.,,
('")

::::0
JT1
U'l
JT1
THE FOLLOWING FUNCTIONS AVAILABLE ARE: :t=>
~
1 - BUILD THE TEXT OR LETTER
2 - CREATE THE NAME AND ADDRESS FILE
3 - ED(T THE NAME AND ADDRESS FILE
-.
::c
; ;z
n

4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND YOU USE
THE EDITOR IN BASIC
c:·
PRINT A COPY OF THE TEXT
'6·' - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 ·- END
WHICH WOULD YOU LIKE TO DO? 1

1143
 c:
TEXT CREATION ROUTINE FOR LETTERS AND COPY (""")
(""")
:01:;:1vE NUMBEFS'r :I. (""")
OUTPUT i:: I LE NAM'i::? l... ETTEl:;::I. 0
-0
-<
;::o
,_,
Ci>
FILE HEADER LABEL = ' FILE NAME LETTERl CREATION DATE: AUG. 12, 1977 :c
-I
===== BEGIN TEXT ENTRY =====
_/ Zftdt&11T C' Sf4t:e$ error
'!'~ / Rua: v-01011es O
WE Hf1VE F~EVIEWED YCJUF;: PF~OPOSED PL.ANS DkFOF( THE IN~:>TAl...l...ATIDN OF YO!Jft
MODEi... 3309 COMUPACK AND WHILE WE ARE IN GENERAi... AGREEMENT WITH YOUR ~
OFFERf WE SPECIFICALLY QUESTION THE FOLL.OWING TERMS AND CONDITIONS. ~
,_,
.,.,
SECTION C-2 THE CLIENT SHALi... SUPPLY ADDITIONAi... POWER LINES 1-1
(""")

;::o
IO SUPPORT TEMPORARY ELECTRICAi... LOAD CONDITIONS l'T1
(./')
l'T1
'!':1.4 J::o
IN EXCESS OF NORMAL REQUIREMENTS. ;::o
(""")
:c
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 1-1
::z
'!'ll.
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
.
(""")

EXTEND THE COMPLETION TERM BY A LENGTH OF TIME

-
'r:l.4
DESIGNATED BY THE CONTRACTOR.

WE FEl...I... THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
RECONSIDER THESE TERMS, PL.EASE REPLY BY SEPTEMBER 1 r OR WE
Wil...I... CONSIDER YOUR OFFFER WITHDRAWN.

s TNCF1:si:::t.x xowrn,

-
'?4~5
error Jet.Ats: LECJNA!:sn FSDGEFSt)

f'tti-1ove.s N
~.MANAGE!:( OF PU!:(CHASING
-
END

1144
 c::
(""')
(""')
DO YOU WANT A LISTING OF THE Fil... E'!'_L
DO YOU WANT LINE NUMBEF~S LISTED'i ..J:L 1 (""')
0
-0
HIT <Cl:~) WHEN READY'!'_ -<
;o
1-1

FILE NAME LETTER1 CREATION DATEI AUG. 12, 1977 en

:r:
WE HAVE REVIEWED YOUI:;: PROPOSED PL.ANS FOR THE INSTAL.LAT:CCJN OF YOUR-I
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR ~
OFFERv WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS+ ~

SECTION C... ....

';) THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES

TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS

IN EXCESS OF NORMAL REQUIREMENTS+

SECTION R.... ~'i CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL

EXTEND THE COMPLETION TERM BY A LENGTH OF TIME

DESIGNATED BY THE CONTRACTOR.

WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO

1-1
:z
RECONSIDER THESE TERMS? PLEASE REPLY BY SEPTEMBER 1, OR WE
WILL CONSIDER YOUR OFFFER WITHDRAWN. .
(""')

SINCERELY YOURS,

L.EONAFW FWGEFrn
MANAGER OF PURCHASING
EXITING CREATION ROUTINE
NUMBER OF RECORDS WRITTEN - 29
WORD PROCESSING TEXT EDITOR REV. 1+1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

THE FOLLOWING FUNCTIONS AVAILABLE ARE:

1 - BUILD THE TEXT OR LETTER
2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT NAME AND ADDRESS FILE
THE
4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND YOU USE
THE EDITOR IN BASIC)
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE+ SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
:I. O .... END
WHICH WOULD YOU LIKE TO DO? 2

1145

CREATION ROUTINE FOR NAME AND ADDRESS FILE

:ORIVE NUMBEl:~'?_L
OUTPUT FILE NAME? NAME c
("")
("")

FILE HEADER LABEL = ' FILE NAME NAME CREATION DATE: AUG. 12v 197~
===== BkGIN TEXT ENTRY ===== -<
;;c
1-1
!j)
:::i:
-I
=..J.QHN W. SWAIN
.J2.2.} TOPANGO PLACE
CROFTON, MD. 21114
'?ACGI\
SALUTATION? DEAR JOHN, (./)
("")
1-1
IT1
===== NEXT ENTRY ===== :z
-I
THE COMPT_UTRAN CORPORATION .,.,
1-1

:f.~7i s. MAIN ST. 1-1

("")
FRANKLINv NEW YORK :l.:L388 ;;c
'i'Jl...MN IT1
(./)
SALUTATION? GENTLEMEN: IT1
);:.
;;c
("")
===== NEXT ENTRY ===== :::i:

SCIENTIFIC RESEARCH INST. 1-1

:z
1717_2 FARMINGTON CT. ("")

CROFTON, MD. 21114

'?ilQ.

SALUTATION? GENTLEMEN:

===== NEXT ENTRY =====

END

DO YOU WANT A LISTING OF THE FILE? Y

DD YOU WANT LINE NUMBE:J~S LISTED? ..:J_

HIT ( CFO WHEN F~ EADY~·_

1000' FILE NAME NAME CREATION DATE: AUG. 12v 1977

10~0' JOHN W. SWAIN

1020' 1923 TOPANGO PLACE

1030' CROFTON, MD. 21114

1040' ?ACGK-DEAR JOHNv

1050' THE COMPUTRAN CORPORATION

1060' 15 S. MAIN ST.

1070' FRANKl...INv NEW YORK 11388

:1. OBO
I 'i' ,JLMN····GENTl...EMEN:

1090' SCIENTIFIC RESEARCH INST.

1100' 1712 FARMINGTON CT.

1110' CROFTON, MD. 21114

1120' ?CLQ-GENTl...EMEN:

EXITING CREATION ROUTINE

NUMBER OF RECORDS WRITTEN - 13

WORD PROCESSING TEXT EDITOR REV. 1+1

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

1146
 c
("')
("')

THE FOLLOWING FUNCTIONS AVAILABLE AREi ("')

0
'"t:l

1 - BUILD THE TEXT OR LETTER

2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
­
-<
;:o
Ci)
::r::
-f
4 .... EDIT THE TEXT FILE <NOH::: PF<OGRAM EXITS AND YOU w:>E
THE EDITOR IN BASIC> ~
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME ~
AND AIHlm~ss FILE. SALUTATION ENTEF~ED FOR EACH LETgJ:R
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE ~
8 - GLOBAL SEARCH AND REPLACE ~
9 - PRINT MAILING LABELS ~
10 - END n

WHICH WOULD YOU LIKE TO DO? 3

EDITOR FOR NAME AND ADDRESS FILE
1-1

DF~IVE ..1..
NUMBEI:~·~
.z
("')

OUTPUT FILE NAME? NAME

INPUT FILE NAME? NAME
THIS SECTION OFFERS 6 MODES OF OPERATION+
1 - ADD A LINE AFTER LINE SPECIFIED
2 - DELETE LINE SPECIFIED
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 ···· END

LINE ND. CONTENTS

1 ACGK <GROUP CDDES>
....
'')
JOHN W. SWAIN
3 1923 TOPANGD PLACE
4 CRDFTON, MD+ 21114
5 DEAR ,JOHN,

WHICH FUNCTION? 1

1147

 c::
LINE NUMI!EF~'P ..2_ ("")
("")
NEW LINE? PRESIDENT _OF SWAIN ELECTRONICS ("")
THIS SECTION OFFERS 6 MODES OF OPERATION. 0
"......-<
;;t:J
1 - ADD A LINE AFTER LINE SPECIFIED Ci)
2 - DELETE LINE SPECIFIED :c
-I
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 -· END (/)
("")
......
IT!
z
LINE NO. CONTENTS -I
,,......
1. ACGK ( GFWUP CODES) ::=:;
2 JOHN W. SWAIN ::t:J
3 PRESIDENT OF SWAIN ELECTRONicm
4 1.923 TOPANGO PLACE ~
5 CROFTON, MD. 21.1.14 ~
6 DEAR JOHN, :c
......

WHICH FUNCTION? 3

.z
("")

LINE NUMF.!EFn' _i_

REPLACEMENT LINE FORP 4 ?1923 TOPANGO PL.

THIS SECTION OFFERS 6 MODES OF OPERATION.

1 - ADD A LINE AFTER LINE SPECIFIED

2 - DELETE LINE SPECIFIED
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 ···· END

LINE NO. CONTENTS

ACGK <GROUP CODES)
2 JOHN W+ SWAIN
3 PRESIDENT OF SWAIN ELECTRONICS
4 1.923 TOPANGCI PL+
CROFTON, MD. 2111.4
DEAR ..JOHN,

WHICH FUNCTION? 2

1148

LINE NUMBEr.;:? 2

THIS SECTION OFFERS 6 MODES OF OPERATION.

1 - ADD A LINE AFTER LINE SPECIFIED

2 - DELETE LINE SPECIFIED
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 ···· END (./')
("")
.......

rri
z
-I
LINE NO. CONTENTS ..,,
.......

.......
("")
:L ACGK <GROUP CODES>
....
'')
PRESIDENT OF SWAIN ELECTRONIC~
3 1923 TOPANGO PL+ ~
4 CROFTON, MD. 21114 ~
.... DEAR JOHN, Q
'·' .......

z
("")

WHICH FUNCTION? _L

1...INE NUM:E1EW? .2...

REPLACEMENT LINE FOR; 2 ?SWAIN ELECTRONIN_cs

THIS SECTION OFFERS 6 MODES OF OPERATION+

1 - ADD A LINE AFTER LINE SPECIFIED

2 - DELETE LINE SPECIFIED
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 .... END

LINE NO. CONTENTS

ACGK <GROUP CODES>

SWAIN ELECTRONICS
~5 1923 TOPANGO PL+
4 CROFTON, MD+ 21114
DEAF~ JOHN,

WHICH FUNCTION'? ~'i

1149
THIS SECTION
OFFERS 6 MODES OF OPERATION+
1 - ADD A LINE AFTER LINE SPECIFIEDc
2 -DELETE LINE SPECIFIED g
3 -REPLACE LINE SPECIFIED Cl
0
4 -DELETE THIS ENTRY ""C
5 -GET NEXT ENTRY -<
;:o
6 .... END 1-4
G')
:c
-I

LINE NO. CONTENH>

1 JLMN <GROUP CODES>
THE COMPUTRAN CORPORATION ~
3 1!'.'i !:>. MAIN ST. 1-4
rr1
4 FRANKLIN, NEW YORK 11388~
GENTLEMEN: .,.,
1-4

1-4
Cl
;:o
rr1
(/)
rr1
)::>
;:o
THIS SECTION OFFERS 6 MODES OF OPERATION.
Cl
:c
1 - ADD A LINE AFTER LINE SPECIFIED~
2 - DELETE LINE SPECIFIED P
3 - REPLACE LINE SPECIFIED
4 - DELETE THIS ENTRY
5 - GET NEXT ENTRY
6 .... END

LINE NO. CONTENTS

1 CLQ <GROUP CODES>
2 SCIENTIFIC RESEARCH INST.
J 1712 FARMINGTON CT.
4 CROFTON, MD. 21114
5 GENTLEMEN:

WHICH FUNCT I ON'r _Q_

Al:;:E THE CHANGES CCJHF~ECT'r ..J....
DO YOU WISH TO ADD ANY ADDITIONAL ENTFnES? ..L
===== BEGIN TEXT ENTRY =====

SIMPLEX TIME RECORDER CO.

25 s. LINCOLN ST.

GARDNER _, MA. 01440

'rL
SALUTATION? DEAR SIR!
_
-··-··-· ........ NEXT
................ ENTF~Y
__ ............

....................
,

-
END

1150
OD YOU WANT A LISTING OF THE FILE'!' ..:J_
DD YOU WANT LINE NUMBEI:~~; L.ISTED'~..JL
HIT <CFO WHEN m:.ADY?_
FILE NAME NAME REVISION OF: NAME DATE REVISEDI AUG. 12r 1977

SWAIN ELECTRONICS

1923 TOP(.~NGCJ PL..

CROFTONv MD. 21114

?ACGK-DEAR JOHNv

THE COMPUTRAN CORPORATION

l'"i ~;.MAIN GT.

FRANKLIN, NEW YORK 11388

?JLMN-GENTLEMEN:

SCIENTIFIC RESEARCH INST.

1712 FARMINGTON CT.

CROFTON, MD. 21114 (/)

?CL.O··.. GENTL.EMEN: ("')

1-1
SIMPLEX TIME RECORDER CO. fTI
:z
25 S. LINCOLN ST. --l
GARDNER, MA. 01440 .,,
1-1

1-1
'i':Z:··DEAR Sii:~: ("')

WORD PROCESSING TEXT EDITOR REV+ 1.1 :;::o

fTI
UCC -- COPYF~IGHT :1.97? BY ~lCIENTIFIC REBEARCH (/)
fTI
J>
:;::o
("')
:i::
THE FOLLOWING FUNCTIONS AVAILABLE ARE: 1-1
:z
:I. - BUILD THE TEXT OR LETTER p
2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
4 - EDIT THE TEXT FILE <NOTES PROGRAM EXITB AND YOU USE
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESB FILE. SALUTATION ENTERED FOR EACH LETTER
? - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL. SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 .... END

WHICH WOULD YOU LIKE ra DO? 5

THIS SECTION PRINTS A COPY OF THE TEXT
:OF: l VE NUMBEF~? _L
INPUT TEXT FILE NAME? LETTER:!.
FILE NAME LETTER:!. CREATION DATE: AUG. 12Y :1.977
IS THIS THE CORRECT FILE? y
CONT I NUDU~) FDF~M~:;? .1i_ ­
NUMBEF: OF CCJF' IE~l'P 2

LINE UP P~~PEF~ AND HIT ( c1:~ > WHEN F~EADY'!'_

1151
 WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS+
SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS c:
IN EXCESS OF NORMAL REQUIREMENTS. CJ
CJ
CJ
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF o
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILi
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME ­
DESIGNATED BY THE CONTRACTOR+ -I
~
WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES+ IF YOU WISH TO
RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1, OR WE
WILL CONSIDER YOUR OFFFER WITHDRAWN+
-
<.n
CJ
[Tl

,,-
SI NCEF<EL Y YOURS, z
-I

-
CJ
::0
[Tl
<.n
LEONARD ROGERS m
MANAGEF~ OF PUF~CHAS I~

-
LINE UP PAPER AND HIT <CR> WHEN READYT :c

.z
CJ

1152
 WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.
SECTION ( '-··
' .-.;':>.. THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES c::
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS ("")
("")
IN EXCESS OF NORMAL REQUIREMENTS. ("")
0
SECTION F~-- ~'i CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF "<
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WIL~
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME ~
DESIGNATED BY THE CONTRACTOR.
Sf'·
WE FE.b,1... THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
RECONSIDER THESE TERMSv PLEASE REPLY BY SEPTEMBER 1, OR WE (./)
("")
.......

WILL CONSIDER YOUR OFFFER ,.,_ WITHDRAWN. (Tl

:z
sp. -I
SINCERELY YOURS, .,,
.......

.......

("")

:::0
(Tl
(./)
(Tl
)::>
LEONARD ROGERS ~
MANAGER OF PURCHASim:7
.......

:z
.

("")

THE FOLLOWING FUNCTIONS AVAILABLE AREi

1 - BUILD THE TEXT OR LETTER
2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND YOU USE
THE EDITOR IN BASIC)
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
:I. 0 .... END

WHICH WOULD YOU LIKE TO DO? 8

GLOBAL SEARCH AND REPLACE ROUTINE
WHEN CHOOSING SEARCH STRINGP BE SURE TO PICK ONE WHICH
IS UNIQUE TO THE ITEM YOU WANT CHANGED OR YOU MAY CHANGE
AN ITEM THAT YOU DIDN'T MEAN TO CHANGE,
'THIS SECTION WILL PRINT OUT THE CHANGED REPORT AS IT MAKES
THE CHANGE::S
Dl=<IVE NUME!EW!' _L
OUTPUT FILE NAME? LETTERl
INPUT FILE NAME? LETTERl
SEAF~CH STF~ING'r FFF
REPLACEMENT ~lTl:~ING'!' ...[L

READY PRINTER AND HIT <CR> TO CONTINUE?

1-:i MDMENT Pl... EASE

1010' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y
OUli:
1020' MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
1030' OFFER' WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.
1040'

1050' SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES

1060 I TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS ("')

0
1070' IN EXCESS OF NORMAL REQUIREMENTS. '"'O

:L080' -<
:::0
1090' SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF ~
:L100' APP1:wvAl...S cm OTHER DELAYS CAUSED BY THE CLIENT WIL!i
U.10' EXTEND THE COMPLETION TERM BY A LENGTH OF TIME ~
l:t.:W' DESIGNATED BY THE CONTRACTOR+ ~
""-J
u.:3o'
1140' WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
(/)
1150' ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO ("')
1-1
1160' RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1, OR WE rr1
1170' WILL CONSIDER YOUR OFFER WITHDRAWN. :z
-I
1 :tfJ() I .,,
1-1

1-1
:1.1. 9() I SINCERELY YOURS, ("')
:l 20() I :::0
rr1
:1.210' (/)
rr1
:L220 I )::>
1. 230 I
:::0
("')

:I. 240 I LEONARD ROGERS %

:L2~:iO' MANAGER OF PURCHAS:QIG
NUMBER OF RECORDS FOUND AND REPLACED ~ 1 .
("')

ARE THE CHANGES CORRECT? Y

WORD PROCESSING TEXT EDITOR REV+ 1.1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

THE FOLLOWING FUNCTIONS AVAILABLE AREi

1 - BUILD THE TEXT OR LETTER
2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
4 - EDIT THE TEXT FILE CNOTEI PROGRAM EXITS AND YOU USE
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 ·· END

WHICH WOULD YOU LIKE TO DO!' -1_

EDITOR ROUTINE FOR TEXT FILES
THIS SECTION WILL SET UP THE FILE FOR EDITING USING THE
EDITOR WHICH IS BUILT INTO BASIC.

FILE NAME TO EDIT? LETTERl

DHIVE NUME1E1n 1
DO YOU WISH ATI~n OF THE FILE BEFOHE EIHTING'r ..:L
HIT (CF~) WHEN F~EADY"f _

1154

 1000' FILE NAME LETTERl REVISION OFt LETTER1 DATE REVISED! AUG, 12, 197
7
1010' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y
DUI~
1020' MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
1030' OFFERv WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.
1040'
1050' SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES c
1060' TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS ("")
("")

:L070 I IN EXCESS OF NORMAL REQUIREMENTS. ("")

1080' 0

""O
1090' SECTIDN F~ ..·~i CHANGES IN WDRK PERFORMANCE REQUIRED BY LACK OF ~
:J.100 I APPFWVALS m~ OTHEF~ DELAYS CAUSED BY THE CLIENT WIL~
1 :L:I. 0 I EXTEND THE COMPLETION TERM BY A LENGTH DF TIME ~

1120' DESIGNATED BY THE CDNTRACTOR. ~

t..O
1130 I -.....J
-.....J
1140' WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
U. 50' ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
(/)
:L:L 60' RECONSIDER THESE TERMSv PLEASE REPLY BY SEPTEMBER iv OR WE
1170' WILL CDNSIDER YOUR OFFER WITHDRAWN. .....
("")

iTI
LI.BO I :z
-I
1190, SINCERELY YOURSv .....
.,,
1200' .....
("")

1210' :::0
rrl
1220' (/)

12;30 I iT1

)>
:1.240' LEONAl~D l=WGERS ~
12~50 I MANAGE!~ (JF PURCHASI'.ffG
OK .....
:z
EDIT:L140 .
("")

:l.:L 4 0 I WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN

LIST
1000 ' FILE NAME LETTER1 REVISION OF: LETTER1 DATE REVISED: AUG. 12, 197
7
1010 ' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y
DUI~
1020 ' MDDEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
1030 ' OFFER? WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.
1040 I

1050 SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES
I

1060 I TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS

1070 I IN EXCESS OF NORMAL REQUIREMENTS.
lOBO I

1090 I SECTION F~····~5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF

l 100 I APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
:I. :I. :I. 0 I EXTEND THE COMPLETION TERM BY A LENGTH OF TIME
:I. :I. 20 ' DESIGNATED BY THE CONTRACTOR.
:I. :t.30 I
U.40 I WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
:I. :L50 I ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO
:I. 160 I RECONSIDER THESE TERMS? PL.EASE REPLY BY SEPTEMBER lr OR WE
:L:I. "70 I WILL CONSIDER YOUR ClFFER WITHDRAWN.
:I. :I.(;!() I
:1.1. 90 I SINCERELY YOURS,
:1.200 I
:1.210 I

1220 I

1230 I

1240 I LEONAF~D RDGEr~t=>

:I. 2~50 I MANAGER OF PURCHASING

SAVE"LETTER1"Y1?A 1155
RUN• WFW PFWC
WORD PROCESSING TEXT EDITOR REV. 1+1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
e rrD,. ~« s:
ENTER TODAY'S DATE <MM/DD/YY OR SEPT+ 26,
r-- re111011~s
1977>1 AUG.1/12, 1977
.1

WORD PROCESSING TEXT EDITOR REV. 1.1

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

THE FOLLOWING FUNCTIONS AVAILABLE ARE:

1 - BUILD THE TEXT OR LETTER
2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND YOU USE
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 ... END

WHICH WOULD YOU LIKE TO ncn .JL

c
(""')
THIS SECTION PRINTS A COPY OF THE TEXT (""')

:OR I VE NUMX~EF~? ..J... (""')

0
INPUT TEXT FILE NAME? LETTERl -c
FILE NAME LETTER1 REVISION OF: LETTER! DATE REVISED: AUG+ :12, 197~
IS THIS THE CORRECT FILE? Y Ci)
::c:
CONT I NU DUB FOFrnS'P ..::f...... - -I
NUMBEF~ OF L. INES PEF< PAGE?~
NUMJ:IEF~ DF CDPIE!H ....L
I... I NE UP PAPER AND HIT <CR) WHEN f<EADY'P _

.......

z
(""')

1156
 WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR
OFFERv WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.
SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS
IN EXCESS OF NORMAL REQUIREMENTS.
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME
DESIGNATED BY THE CONTRACTOR.
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
RECONSIDER THESE TERMSr PLEASE REPLY BY SEPTEMBER 1, OR WE
WILL CONSIDER YOUR OFFER WITHDRAWN.
SINCERELY YOURS,

c
("'")
("'")

LEONARD ROGERS n
MANAGEF~OF PURCHASIN~
-<
:::0
.......

Ci)
:c
-I

......
z
("'")

1157
 c::
WORD PROCESSING TEXT EDITOR REV. 1.1 ('"")
('"")
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ('"")
0
-0

THE FOLLOWING FUNCTIONS AVAILABLE ARE:

1 - BUILD THE TEXT OR LETTER
-
-<
;;o
ID
:c
-I
I-'
2 - CREATE THE NAME AND ADDRESS FILE ~
3 - EDIT THE NAME AND ADDRESS FILE ~
4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND 'YOU USE
THE EDITOR IN BASIC> ~ ('"")
5 - PRINT A COPY OF THE TEXT -ITI
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME z
AND ADDRESS FILE. SALUTATION ENTERED FOR EAC~LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE ­ ('"")
8 - GLOBAL SEARCH AND REPLACE
9 ··- Pl=~INT M(.~ILING LABELS fg
10 - END ~
);::.
;;o
('"")
WHICH WOULD YOU LIKE TO DOT 6
-
:c

.z
( '"")

PRINT LETTERS WITHOUT NAME AND ADDRESS FILE.

DR I VE NLJMBEW!' -1...

INPUT TEXT FILE NAME? LETTER

FILE NAME LETTER CREATION DATE: 10/9/1977

IS THIS THE COF~r.::ECT FILE!'_JL

INPUT TEXT FILE NAME? LETTER1

FILE NAME LETTER1 REVISION OF: LETTER1 DATE REVISEDI AUG. 12, 1977

:rn THIS THE ccrnRECT FILE!'_r_

ENTER EACH LINE OF THE NAME AND ADDRESS AS IT WILL APPEAR ON

THE LETTER. AFTER THE LAST LINE HAS BEEN ENTERED, TYPE A
'1' AND HIT <CR>.
COMPUTER RESEARCH
82!:i6 ESSEX ST.
BOSTON, MA. 01256
....__
'j>

INPUT DATE <CF~> USES DATE ENTEF~EIH _

NUMBEF< OF SPACES TO INDENT DATE <CR> USES L.MlT ENTF<Y'~ ..2.i_

SALUTATION? DEAR SIRI

LINE UP PAPER AND HIT <CFn WHEN F~EADY!'_

1158
 AUG. :I. 2 Y :I. 9'7'7 c::
("')
("')

("')
COMPUTER RESEARCH 0
-0
H256 ESSEX ST. -<
;;:o
BOSTONv MA, 01256 ......
Ci)
::i:
-I
~
\0
-...J
-...J
WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOU~
MODEL 3309 COMLJPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR ~
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS. ~
fT1
z
SECTION c; .... ~.~ THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES -I
......
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS
.,,
......
IN EXCESS OF NORMAL REQUIREMENTS. ("')

;;:o
fT1
~
'.:lECTI ON f~ .... ~:i CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF fT1
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL )';:>
;;:o
("")
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME ::i:
DESIGNATED BY THE CONTRACTOR. ......
z
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN .
("")

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO

RECONSIDER THESE TERMSv PLEASE REPLY BY SEPTEMBER 1, OR WE
WI L.I... CONS I DEi=~ YOU!=< OFFER WI THDl=i:AWN.
SINCERELY YOURS,

LEONARD FWGERS
MANAGER OF PURCHASING
DO YOU WMH TO PFnNT AN ENVELOPE? Y
PL.ACE ENVELOPE IN PRINTER AND HIT <CR> WHEN READY?
COMPUTER RESEARCH
82!'.'i6 ESSEX ST.
BOSTON, MA. 01256

t1NOTHEl:O: LETTEF~'!' .J:L

EXITING LETTER PRINTING ROUTINE

1159
WORD PROCESSING TEXT EDITOR REV. 1+1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
c:
("")
THE FOLLOWING FUNCTIONS AVAILABLE AREi ("")

("")

1 - BUILD THE TEXT OR LETTER ~

2 - CREATE THE NAME AND ADDRESS FILE ~
3 - EDIT THE NAME AND ADDRESS FILE 8
4 .... ED IT THE TEXT FI LE (NOTE t PFWGRAM EX I TS AND YOU tif.>E
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETtER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE ~
8 - GLOBAL SEARCH AND REPLACE ~
9 - PRINT MAILING LABELS ~
10 - END ~
1-1
("")

WHICH WOULD YOU LIKE TO DO? 7 ::0

rri
V>
rri
PRINT LETTERS FROM NAME AND ADDRESS FILE J::o
::0
:01~ I VE NUMBEF~'l' :I. ("")

INPUT TEXT FICE NAME'i' LETTE1:~:1. ::c

FILE NAME LETTERl REVISION OF: LETTER1 DATE REVISED: AUG. 12, 1977~
IS THIS THE CORRECT FILE'!' Y n
NAME/ADDRES~l FILE NAME'? NAM'i::l......--------- /3/f'f) F'/Le N!tME ~r-ror •
THE FILES AVAILABLE ON THIS DISC ARE:
MWPMENU MWPl MWP2 MWP5 MWP8 MWP4 MWP6
MWP7 MWP9 WPTE NAME LETTER1 ADDRESS ADDRESS1
TEMP LETTEF~
NAME/ADDRESS FILE NAME? NAME 1
FILE NAME NAME REVISION OFl NAME DATE REVISED: AUG. 12, :1.977
IS THIS THE CORRECT FILE? Y
CONTINUOLJi:; FOF~MS? .L -
NUMBER OF LINES PER PAGE? 66
-

INPUT DATE (CF~) USES DATE ENTERED'r _

NUMBER OF SPACES TCl INDENT DATE <c1:0 USEfl LAST ENTRY?~

Gl~OUP CODES TCJ Pl:~INT'? JiL

YOU HAVE SELECTED THE FOLLOWING GROUP CCJDES:

G L
IS TH :CB COF~HECT '!' _:j_

l.. :CNE UP PAPEF~ AND HIT (CFO WHEN F<EADY'r_

1160

 c::
("")
("")

("")
0
-0
-<
;::o
.......

G')
:r:
-I

SWAIN ELECTRONICS

l 92~5 TDPANGO PL..

CROFTON, MD. 21114 (./)

("")
.......
rr1
DEAR ,JOHN v z
-I
.......

""T1
.......

WE HAVE REVIEWED YOUR PROPOSED PL.ANS FOR THE INSTALLATION O~ YOUR

MODEL. 3;·509 CCIMUPACK AND WHILE WE Al~E IN GENEF~AL Am<:EEMENT WITH Yat.m
DFFEF~v WE SPECIFICALLY CWESTION THE FDLl...DWING TERMS AND CONDITIOl4lJ.
)::>
;::o
SECTION C... ':)
.~. THE CLIENT SHALL. SUPPLY ADDITIONAL PCIWER LINES ("")
:r:
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS .......
z("")
IN EXCESS OF NORMAL REQUIREMENTS. .
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME
DESIGNATED BY THE CONTRACTOR.
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
RECONSIDER THESE TERMSv PLEASE REPLY BY SEPTEMBER 1, OR WE
WILi... CONSIDER YOUR OFFER WITHDRAWN.
SINCERELY YCIURS,

LEONARD ROGERS
MANAGER OF PURCHASING

1161

 c
('")
('")

('")
0
-0
-<
;o
1-1

AUG. 12v 1977 "'

:c
-I

THE COMPUTRAN CORPORATION

15 S. MAIN ST.
FRANKLINv NEW YORK 1:1.388
(./')
('")
GENTLEMENt 1-1
rr1
:z
-I
.,,
1-1

WE HAVE F~EVIEWED YOUF~ PFrnPOSED PL.ANS FOF~ THE INSTALLATION OF YQqR

MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR~
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.~
rr1
);::.
SECTION .... THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES
( '.~.-:>
' ~
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS :c
IN EXCESS OF NORMAL REQUIREMENTS+ 1-1
:z
.
('")

SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME
DESIGNATED BY THE CONTRACTOR+
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES+ IF YOU WISH TO
RECONSIDER THESE TERMSv PLEASE REPLY BY SEPTEMBER 1v OR WE
WILL CONSIDER YOUR OFFER WITHDRAWN.
SINCERELY YOURS,

LEONAFW ROGERS
MANAGER OF PURCHASING

1162
 c::
('"')
('"')

('"')
0
-0
AUG .. 12,, 1977 -<
;;:o
.......
Ci)
SCIENTIFIC RESEARCH INST. :c
-I
1712 FARMINGTON CT.
CROFTON,, MD. 21114
GENTLEMEN:
(/)
('"')
.......

!Tl
WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION O~YOUR
MODEL. 3;309 COMUPACK AND WHILE WE AF~E IN GENERAL. AGREEMENT WITH YQ:1.JR
OFFE:J~,, WE ~>PECIFICALLY CWESTION THE FOL.LOWING TEF~MS AND CONIHTIO~.

SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES

TO SUPPORT TEMPORARY ELECTRICAL LOAn CONDITIONS
IN EXCESS OF NORMAL REQUIREMENTS.
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF ~
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WIL~
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME
DESIGNATED BY THE CONTRACTOR.
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES+ IF YOU WISH TO
RECONSIDER THESE TERMS,, PLEASE REPLY BY SEPTEMBER 1,, OR WE
WILL CONSIDER YOUR OFFER WITHDRAWN.
SINCEF~EL Y YOURS,

LEONARD F<OGEF<S
MANAGER OF PURCHASING

1163
 c::
C"'>
C"'>
C"'>
0
"'C
-<

ENDING LETTER PRINT OUT ROUTINE a

NUMBER OF LETTERS PRINTED = 3 ~

DO YOU WISH TO PRINT MAILING LABELS? Y ~

L:CNE UP LAEll::t.S AND HIT (CFO WHEN F~EAffi ~

.....

xxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxx (I')

xxxxxxxxxxxxxxxxxxxx .....
C"'>

xxxxxxxxxxxxxxxxxxxx l'T1
:z
xxxxxxxxxxxxxxxxxxxx ~
.....
xxxxxxxxxxxxxxxxxxxx .....
'"l'1

xxxxxxxxxxxxxxxxxxxx C"'>

xxxxxxxxxxxxxxxxxxxx :::0
l'T1
(I')
IS THE LINE UP CORF~ECT? ..::J_ l'T1
)>
~
SWAIN ELECTRONICS :c
:I. <12:·5 TOPANGO PL.+ .....
:z
CROFTONv MD+ 21114 .
C"'>

THE COMPUTRAN CORPORATION

:1.5 S. MAIN ST+
FRANKLINY NEW YORK 11388

SCIENTIFIC RESEARCH INST.

1712 FARMINGTON CT+
CROFTON, MD. 21114

END OF MAILING LABEL ROUTINE

NUMBER OF LABELS PRINTED = 3
WORD PROCESSING TEXT EDITOR REV. 1+1
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

1164
 c::
("')
("')

("')
0
-0
-<
THE FOLLOWING FUNCTIONS AVAILABLE ARE: a
en
:r:
1 - BUILD THE TEXT OR LETTER ~
2 - CREATE THE NAME AND ADDRESS FILE ~
3 - EDIT THE NAME AND ADDRESS FILE ~
~
4 - EDIT THE TEXT FILE <NOTE: PROGRAM EXITS AND vo4 USE
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT ~
>-I
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME m
:z
AND ADDRESS FIL.I:.. SAL.UTAT HIN [NTERED FOF~ EACH u;;j"TER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE ~
>-I
8 - GLOBAL SEARCH AND REPLACE n
9 -· PF<INT Mi!HLING LABELS :::o
m
10 - END ~
m
):::.>

WHICH WOULD YOU LIKE TO DO? 7 ~

:r:
>-I
PRINT LETTERS FROM NAME AND ADDRESS FILE z
:OF<IVE NUMBEF~? _1_

("')
.
INPUT TEXT FILE NAME? LETTER1

FILE NAME LETTER1 REVISION OF: LETTER1 DATE REVISED: AUG. 12, 1977
IS THIS THE CORRECT FILE? Y
NAME/ADDREt>B FILE NAME? NA'ME:
FILE NAME NAME REVISION OFI NAME DATE REVISED: AUG. 12, 1977
IS THI~3 THE COFi:Fi:ECT Fil... E? _j_
CONTINUOUt) FOfi:MS'!' _:[_
NUMBER OF LINES PER PAGE? 66

INPUT DATE <CR> USES DATE ENTERED? AUG. 25,

NUMBEJi: DF SPACES TO INDENT Dr~TE <Cf~) USEt) LAST ENH·:Y'? 24
01::.:ouP CODE!3 TO Pfi:INT? ..l:L
YOU HAVE SELECTED THE FOLLOWING GROUP CODES:
M

IS THIS CDFrnECT'f ..J_

L.:CNE UP PAPEFi: AND HIT <CFn WHEN Fi:EADY'~-

1165

 c
("")
("")

("")
0
""C
-<
;:o
AUG. 2~i? 1 977 .....
Ci')
::c:
-i
THE COMPUTRAN CORPORATION
l.::=i S. MAIN ST.
FRANKLIN, NEW YORK :L :L 3El8

GENTLEMEN: (./)
("")
.....
l'T1
:z
-i
WE HAVE RE-VIEWED YOUli: PROPOSED PLANS FOR THE INfHALLATION OF YCWF~
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR8
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS+;:o
l'T1
(./)
SECTION THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES l'T1
):::>
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS ;:o
("")
IN EXCESS OF NORMAL REQUIREMENTS. ::c:
.....
:z
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL
.
("")

EXTEND THE COMPLETION TERM BY A LENGTH OF TIME

DESIGNATED BY THE CONTRACTOR.
WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO
RECONSIDER THESE TERMS? PLEASE REPLY BY SEPTEMBER :L, OR WE
WILL CONSIDER YOUR OFFER WITHDRAWN+
SINCERELY YOURS,

LEONARD RCJGEF~S
MANAGER OF PURCHASING

1166
 c(""")
(""")

(""")
0
-0
-<
::::0
......
G>
:::i::
-l
......
t.O
........
........

ENDING LETTER PRINT OUT ROUTINE

NUMBER OF LETTERS PRINTED ~ 1 l/)

(""")
DO YOU WISH TO PFnNT MAILING LABELS? J;L ......
rri
WORD PROCESSING TEXT EDITOR REV. 1.1 z
-l
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ......
..,,
......
(""")

:::0
THE FOLLOWING FUNCTIONS AVAILABLE AREi rri
l/)
rri
1 - BUILD THE TEXT OR LETTER >
::::0
(""")
2 - CREATE THE NAME AND ADDRESS FILE :::i::
3 - EDIT THE NAME AND ADDRESS FILE ......
4 - EDIT THE TEXT FILE <NOTES PROGRAM EXITS AND Ya5u USE
THE EDITOR IN BASIC>
5 - PRINT A COPY OF THE TEXT
6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME
AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 ··- END
WHICH WOULD YOU LIKE TO DOT 9
-
PIUNT MfHL..ING LAB E~LS ... .,..
'R Ii 6: re.'44ove s: 3
~·-- - - - - - e ,.,.. ..,,

-
DRIVE NUMBEW1' :I.

NAME/ADDRESS FILE NAME? NAM3_ .

FILE NAME NAME REVISION OFI NAME DATE REVISEDI AUG. :1.2, 1977
:rn THIS THE CORRECT FILE? ..::f._
GROUP CODES TO PRINT? ALL
YOU HAVE SELECTED ALL OF THE FILE

IS THIS COFmECT1 ..:L

LINE UP LABEl...f:l AND HIT <CFO WHEN FffADY'?_

1167
 <=
(""')
xxxxxxxxxxxxxxxxxxxx (""')
xxxxxxxxxxxxxxxxxxxx 8
xxxxxxxxxxxxxxxxxxxx ~
xxxxxxxxxxxxxxxxxxxx ~
xxxxxxxxxxxxxxxxxxxx ~
xxxxxxxxxxxxxxxxxxxx ~
xxxxxxxxxxxxxxxxxxxx ::c;
xxxxxxxxxxxxxxxxxxxx ~
IS THE LINE UP CCJRRECT'l'..1_ 1
U'>
SWAIN ELECTRCJNICS (""')
......
:L923 TOPANGCJ PL. ITI
z
~
CROFTONv MD. 2:L114 ......
..,.,
......
(""')

;;o
ITI
U'>
ITI
);::.
;;o
(""')
:::c
THE COMPUTRAN CCJRPCJRATICJN ......
:L5 S. MAIN ST. z
(""')
FRANKLINv NEW YORK :L :L ~~BB •

SCIENTIFIC RESEARCH INST.

1712 FARMINGTCJN CT.
CROFTON' MD. 21114

SIMPLEX TIME RECORDER CO.

25 S. LINCOLN ST.
GARDNER, MA. 01440

END CJF MAILING LABEL RCJUTINE

NUMBER OF LABELS PRINTED = 4

1168

 c:::
(")
(")
WORD PROCESSING TEXT EDITOR REV. 1.1 (")
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 0
-0

THE FOLLOWING FUNCTIONS AVAILABLE ARE: -

-<
;::o
en
:c
-I

1 - BUILD THE TEXT OR LETTER

2 - CREATE THE NAME AND ADDRESS FILE
3 - EDIT THE NAME AND ADDRESS FILE
4 ·-· EDIT THE TEXT FILE <NOTE: PROGHAM EXITS AND~YOU USE
THE EDITOR IN BASIC> ,_
rr1
5 - PRINT A COPY OF THE TEXT ~
6 ··- PRINT A COPY OF THE LETTE•( liHTHOUT THE NAME ,_
AND ADDRESS FILE. SALUTATION ENTERED FOR EAC~ (")
LETTER
7 - PRINT LETTERS FROM NAME AND ADDRESS FILE
8 - GLOBAL SEARCH AND REPLACE
9 - PRINT MAILING LABELS
10 ···· END
WHICH WOULD YOU LIKE TO DO? 10 .......
z
EXITING TEXT EDITOR
.
(")

01-\

1169
1170

UTILITY:
This utility program is designed to enable the user to manipulate disk
files. The program responds to seventeen (17) different commands and
is fully instructional. For a detailed listing of all the available
instructions, just list the program. Utility will require lOK Bytes
of free user RAM for storing the source code and should execute within
14K Bytes in most systems with disk extended Basic.
While most Basics are very similar there usually are a few minor dif­
ferences, so you may find it necessary to convert the file calls used
in this program to those recognized and accepted by your Basic. As
an example: the Sine Input statement used in this program, if not re­
cognized by your version of Basic, may be replaced with the Input state­
ment, however this means you can not use commas or colons in the inputed
statements. When making conversions it is always wise to check the ef­
fect, as simple statement substitutions does not always mean that data
will be handled in the exact same way.

1171

UTILITY
REV 5.1 - 1 ­
100
REM WRITTEN BY JOHN W+ SWAIN
110
PRINTCHR$C26);aDISC UTILITY PROGRAM REV. 5.1•
120
INPUT"DO YOU WANT INSTRUCTIONsa;Qs
130
IF LEFT$CQ$~1>="Y" THEN GOSUB 2720 c::
140
CLEAR O:X=FRE<0>-1500:IF X<O THEN CLEAR 600:GOTO 170
("")
("")
150
IF X>24000 THEN CLEAR x ELSE CLEAR 2oo:END ("")
160
Z1$=CHR$<255>+CHR$(255>tCHRSC255)tCHR$(255) C>
"'O
170
DIMASC255) -<
~
180
DIMT2<15)1GOSUB 3490 ......
G)
190
CLOSE:PRINT"UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH~

200
ON ERROR GOTO 3450ZPRINT"COMMAND?";:LINEINPUTB$

210
IFB$=""THENCLEAR 200ZEND

220
IF L.EN<BS>>3 THEN C$=RIGHT$CB$vLENCB$)-3) ELSE CS=BS

230
BS=LEFT$CB$f3)

240
IFBS="DAT"THEN1630

250
IFB$="COP"THENZX=OtZY=76SGOTO 2220

260
IFB$="FLS"THEN ZX=61ZY=76:GOTO 2220

270
IFBS="BAS"THEN ZX=OIZY=51GOTO 2220

280
IFBS="END"THEN CLEAR 2001END

290
IFBS="LIS"THEN F=O:FB=O:GOT01750

300
IFBS="PAG"THEN1850

310
IFB$="DIR"THENF=-1:GOTO 1200

320
IFBS="SRT"THEN F=O:GOTO 1200

330
IFB$="HEX"THEN2460

340
IF BS="MEM" THEN 3300 ......
:z

350

360

IFB$="MNT THEN 2640

0
.("")

IF BS="UNL"THEN 2680

370
IF BS="IMS" THEN F=-l:GOTO 1750

380
IF BS="LLI" THEN F=OIFB=-1:GOTO 1750

390
IF BS="LPA" THEN 3530

400
IFBS<>"CPF"THENPRINT" COMMAND ERROR•:GOT0190

410
PRINT"THIS SECTION COPIES ONLY ASCII SEQUENTIAL FILES OR RANDOM F

ILES."

420
PRINT"IT WILL NOT COPY COMPRESSED BINARY PROGRAM FILES."

430
INPUT"INPUT FILE NAME"~IS

440
INPUT"INPUT DRIVE NUMBER";Il

450
INPUT"OUTPUT FILE NAME";os

460
INPUT"OUTPUT DRIVE NUMBER";r2

470
IF LENCIS><B THEN FOR I=LEN<IS>tl TO 8 ELSE 490

480
I$=I$+" "INEXT I

490
CS=STRS<Il>

500
GOSUB 3920

510
FOR S=O TO 31

520
AS=DSKISC17*S AND 31)

530
AS=LEFTSCAS,135)

540
A$=RIGHTSCA$,128)

550
FOR TT=O TO 7

560
B$=LEFT$(A$,(TT+1>*16)

570
B$=RIGHT$(B$,16>

580
N$=LEFTSCB$,8)

590
IF NS=IS TH~N Z=ASCCRIGHTSCB$v6>>:GOTO 650

600
IF ASC<NS>=255 THEN 630

610
NEXT TT

620
NEXT S

630
PRINT"FILE NAME "fIS;" NOT FOUND. CHECK FILE NAME"

640
GOTO 190

650
IF Z<>2 THEN 930

660
NT=O:PRINT"COPYING ASCII SEQUENTIAL FILE •;rs

1172

UTILITY
F<EV 5. :L .... 2 ....

670 Nf~:::::t
680 OPEN°I"v1,I$,I1
690 OPEN• 0 • v ~~ v ()$ v I 2
70() IF EOF<1> THEN GDTD 7!50 c:
7:1.0 LINEINPUT 11v A$ ("')
("')
720 PRINT:ll:2v A$ ("')
730 NF<==NR+1 0
-c
740 GOTO 700 -<
;:c
750 CLOSE ......
er>
760 OPEN"I"v1vI$vI1 :c
-I
770 DPEN "I"v2v0$vI2
780 IF EOF(:J.) THEN 890
79() L..INEINPUT :Jl:1 vA$
800 LINEINPUT 12v BS
8:1.0 IF AS::::BS THEN 780 (./)
("')
820 NT==NT+1 .......

IT1
8~50 PRINT"RECORDS DO NOT MATCH• ~
840
~~I~~~~a~~E~A~t~~E~G~~~E:~ ABORTIN~
0
850 COPY"
8f.>0 CLOSE
B70 KILL D$vI2
880 GOTO :I. 90
B90 CLOSE
900 PRINT"DONE"

9:1.0 PRINT"NLJMBEF< OF 1:~ECOF<Df:> COPIED == ·~R

920 GOTO 190 p

9~rn NT=O
940 PRINT"COPYING RANDOM FILE ";I$
nm Nf~:::l
<160 OPEN •1:;:• d v I$vl:I.
970 OPEN "R 0 v2v0$vI2
9BO FIELD 11v128 AS AS
990 FIELD 12v 128 AS BS
:I. 0()0 Nl:;:=:I.
:I. 0 :I. 0 FOR I==l TO L..OF<:I.>
:1.020 GET :JI::!. v I
1030 L..SET B~;==AS
1040 PUT :ft:2 v I
:I. O~:'iO Nr.;:==NFH:I.
1060 NEXT I
10?0 FIELD 11v128 AS CS
:LOBO FIELD 12v 128 AS DS
:t 090 FOFU ::: 1 TO L..ClF <:I. )
:1.100 GET:ft:i v I
11:LO GET:ll:2, I
1120 IF CS<>DS THEN 1150
U.30 NEXT I
1140 GOTO 900
1150 PRINT"RECORDS DO NOT MATCHU
:L160 NT==NT+l
1170 IF NT<5 THEN 980
:I. :1.80 CLDSE
U.90 GOTO 850
:1.200 Gm:nrn 3920
12:1.0 I NT I GOSLJB
PF~ ;:~490
1220 I NT" DI F~ECHH~Y
PF~ DISK"~AIPRINTIPRINT
:L 230 PFHNT"NAMEu; a "~"TYPE";" TRK SCT 0 v
:1.240 PFHNT NAME•;11 0
"P"TYPE";" TRK SCT"IPRINTII=O

1173
UTILITY 1:~1:::v 5. :1. ... :3 . .
1. 2~50 F OF:S::::()T 0:3 :!.

:J. 260 A$=DSKI$C17*SAND3l)

1270 AS=LEFTSCAS,135)

:I. 280 A$=RIGHT$(ASY128)

1290 FOi:~ TT=::() TO 7

:L300 BS=LEFT$CA$,CTT+1>*16>

1310 B$=RIGHTSCB$v16)

1320 N$=L..EFT$ <X:iiJ; Y El)

1:·no B$=::R I GHn; ( B$ v f:l)

:I. ;54() X=ASCCBS):BS=RIGHT$(B$~7>:Y=ASCCB$)

:L 3~.:io B$=RIGHT$(B$,6):Z=ASC(B$)

:l :360 IFASC<NS)=OTHEN:l.420

1 :~7() IFASCCNS>=255THEN1440

:L 3f:l0 RS="S"IIFZ<>2THENRS="R"

1;39() IF F THENPRINTNSP" •;Rs•" n;y,:GOTO 1410 (/')

("")

:I. 400 AS<I>=NSt" "tRS+" "tSTRS<X>+" "HlTF~S <Y > : I":: J: +:I. ......
IT1
14:1.0 IF POSC0>>45 THEN PRINT :z
-i
1.42()
:1.430
NEXT TT
NEXTS
,,............
:1.440 IF F OR I=OTHENPRINT:PRINT"AMOUNT OF FREE SPACE =0 Y I:rSl'\F <A) :~OTO :L
9() IT1
(/')

l 4~50 IF I=1 THEN 1510 IT1

);::.
:1.460 SW"::() :::0
("")
:I. 470 FOF~ ,.J::::() TO I ·..·2 :c

1480 IF AS<J>>ASCJt1> THEN SWAP AS(J),ASCJ+l>:SW=-1 ......

:z
1.490 NEXT J
1 ~mo IF SW THEN 1460
.
("")

:I. :7i 1 O FOR J=O TO I-1 STEP 2

:l.~520 PRINT A$(J),A$CJ+1>
:1.530 NEXT ,J
1~.:i4 0 PRINT:PRINT"AMOUNT OF FREE SPACE ="•DSKF<A>:GOT0190
:I. ~.)!':°)0 IFT2<A><>-1THEN1590
1 ~)6() IFCINPC8>AND64)=0THENT2CA)=OIGOT01590
:I. ~'.'i70 WAIT8v292:0UT992
1.~if:lO GCJTOl~jf.>()
1~7i90 IFT2<A>=TTHENRETURN
16()() D=11IFT2<A>>TTHEND=2
:L610 WAIT8v2v210UT9vDIT2<A>=T2<A>-2*<D-1.5>
1620 GOTO :L ~:; 90
1630 INPUT"TRACK";T:IF T<O THEN 190 ELSE INPUT"SECTOR";S
:1.640 GOSUB17:1.0IGOSUB:l.550
:L 6~.iO AS=DSKIS<S>SFORI=OTOLEN<AS>-1
:L660 T1S=OCT$CASC<RIGHTSCA$vLENCAS>-I>>>
:L670 T2$=LEFT$(" OOO"v5-LENCT1$))tT1S:PRINTT2$;" u p•
16BO IF I MOD 8=7 THEN PRINT
1690 NEXT I I PFUNT
1700 GOTO :I. 630
l710 A"::VAL <C~;)
:L 720 IFA<OORA>:l.5THENPRINT"ERROR":GOT0190
l730 OUT8, :L 2B I Olfrf.-J, A
:L 740 F~ETUHN
1750 GOSUB1710!GOSUB 3490

1760 C$=RIGHT$CC$vLENCCS>-1+<A>9))

17'70 IFASC<CS><>&054THENPRINT"ERROR"IGOT0190

17fJO C$=RIGHT$CC$vl..ENCC$)-1)

1790 OPEN" I " , :1. , cii; !PA

1800 IFEOF<1>THENCLOSE1tGOT0190

181.0 L..INEINPLJT:U::I. vAi!;

1174

UTILITY
F~EV ~). 1 .... 4 ­

1820
IF A$= 9 " THEN 1800

18~50 IF F THEN PRINTZ1$;A$ ELSE IF FB THEN LPRINTA$ ELSE PRINTA$

:t.840
GOTO 1800

185()
GOSUB 1710tGOSUB 3490
c::
1860
Q$="":INPUT"COMMENTS <<15 CHARACTERS)"fQ$
("")

187()
INPUT"NUMBER OF PRINT POSITIONS - SHOULD BE
BETWEEN 72 AND 13 ,.,••f)"
" "4 ,
('"")
p 0
1El80
INPUT"IS THIS A LISTING OF A PROGRAM OR FILE ( P OR F > " vZ!I"> ~
1890
C$=RIGHT$CC$,LENCC$>-1>:IF ASC<CS><>&054THEN PRINT" El~R(m": GOTO:L 90 en ~
1900
C$=RIGHT$(C$vLENCC$)-1)
:c
-I
1 <no
T1==0!P1==1

1 920
OPEN "I"vlvCSvA

1930
GOSUB 21c>0

1940
CC==6:IF EOF<l> THEN 2200

19~50 LINEINPUTl1,A$
~
1960
IF AS="" THEN 1940
8fTI
1 970
IF Tl=65 THEN GOSUB 2:1.40
~
19t:io
IF z~;:: "F" AND LEN< A$) <==PP THEN
:;~ 120
....

199()
IF Z$="F" AND LENCAS>>PP THEN
FOR I=1 TO
LENCAS> ELSE 2030 ~

("")

2000
PRINTMID$CA$viv1>P:CC=CCt11IF
CC=PP THEN
PRINT!Tl=T1+11CC=6:ELSE ::::0
2020
rr1
~
20:LO
IF T1=65 THEN GOSUB 2140:PRINT" ";
fTI
:;r::.
2020
NEXTIIPRINTIT1=T1t11IF T1=65 THEN GOSUB 21401GOTO 1940 ELSE 1940
~
20:30
FOR I=l TO 6tIF MID$CA$viv1><>" " THEN NEXT I :c
2040
BS=LEFT$CA$vI>IA$=MIDS(A$vI)IIF LENCB$))5 THEN 2060 .......
:z
20!':i0
FOR I=LEN<BS> TO 518$=" "tBSINEXT I
2060
PRINTBs;:IF LENCA$>+LENCBS><=PP THEN 2120

("")
.
2070
FOR I=l TO LENCA$)1PRINTMID$(A$vivl);:cc=CC+1

2080
IF CC=PP THEN PRINTIPRINT" 0
;1T1==T1+1:cc=61ELSE 2100

2090
IF T1=65 THEN GOSUB 21401PRINT" ";

2100
NEXT I!PRINTIT1=Tlt11IF
T1=65 THEN GOSUB 2140

2110
GOTO 1940

212()
PRINT AS:T1=T1t1

2130
GOTO 1940

2140
IF EOF<l> THEN 2200

21 !50
PRINT:PRINT:PRINT

2:L60
PRINT;"---":PRINT:PRINT

217()
PFUNTU;;: "

2180
PFnNT

2:L 90
T1=7:P1=P1+1:RETURN

2200
FOR J=Tl TO 671PRINT:NEXT J!PRINT"---•:PRINT!PRINT

2210
GOTO :L90
2220
GOSUB1710:B==A
2230
INPUTuDO YOU WISH A LIST OF REWITE AND REREAD ERRORS";Q$

2240
Q$=LEFTS(Q$~1>
2250
C$=RIGHT$<CSvLEN<CS>-1+<A>9>>

2260
IFASC<CS><>&054THENPRINT"ERROR":GOT0190

2270
C$=RIGHT$CC$,LEN<CS>-1>:GOSUB1710:C=A

2280
PRINThFROM •;e;n TO •;c;

2290
INPUTA$JIFASCCAS><>ASCC 9 Y">THEN190

2300
FOR T=ZX TO ZY

2310
OUT8v128:0UT8vC

2320
A=C:GOSUB1550:0UT8v128:0UT8vBIA=B:GOSUB1550

2330
FORS=OT031

2340
OUT8v128:0UT8vBIB$=DSKI$(S)

2350
FS==DSKIS<S>IIFFS=BSTHEN2370 ELSEIFQS="N" THEN 2340

2360
PRINT"RE-READ DISC 1•;9~n TRACK 1•;y;u SECTOR 1°;s:GOTO 2340

2370
OUT 8v12810UT 8vC

1175

UTILITY REV 5+1 - 5 ­

2380 DSKO$B$YS:CS=DSKIS<S>:IFCS=BSTHEN2400 ELSE IFQS=•N" THEN2330
2390 PRINT 1 REWRITE DISC 1•;c;• TRACK t"fT;• SECTOR t•;s:GOTO 2330
2400 NEXTS
2410 GOSUB 2450
2420 NEXTT
2430 PRINT"DONE•
2440 GOT0190
2450 PRINTT;IRETURN
2460 INPUT"TRACK";T:IF T<O THEN 190 ELSE INPUT·SECTOR";ss
2470 ZS="O"
2480 FOR J=l TO LEN<SS>
2490 IF MIDSCS$,J,1)="-" GOTO 2510
2500 NEXT: Sl=VALCSS>: 82=811 GOTO 2520
2510 S1=VAL<LEFT$CS$pJ-1>>: S2=VALCMIDSCSS,J+1))
2520 PRINT " 0 1 2 3 4 5 6 7 8 9 A B c D E F" (/)
(""")
2530 FOR S=Sl TO 82 .......

JTI
2540 GOSLJB1550 ~
2550 A$=DSKIS<S>: TS="": K=O ....

2560 FOR I=O TO 135 8"Tl

2570 C%=ASC<MID$CAS¥It111)J tIFC%<=15THENZ1$=ZS+HEX$CC%)ELSEZ1$=HEXS<C%~
) JTI
(/)
2580 IF<IMOD16)=0 THENPRINT:PRINT K~tK~K+1 JTI
~
2590 PRINTUSING"\\"iZ1$;tPR!NT' •; ~
(""")
2600 NEXT :i:
2610 NEXT .......

::z
2620
2630
PRINT:PRINT
GOTO 190
.
(""")

2640 GOSUB 1710

2650 GOSUB 3490
2660 MOUNT A
2670 GOT0190
2680 GOSUB 1710
2690 GOSUB 3490
2700 UNLOAD A
2710 GOTO 190
2720 PRINl"THE LIST OF POSSIBLE COMMANDS ARE AS FOLLOWS:"
2730 PRINT"'DAT' DATA OFF OF DISC IN OCTAL"

2740 PRINT"'COP' COPIES WHOLE DISC"

2750 PRINT"'FLS' COPIES ONLY THE FILES <TRACKS

6-76>"
2760 PRINT"'BAS' COPIES ONLi BASIC CTRACKS 0-5)"

2770 PRINT"'END' ENDS PROGRAM"

2780 PRINT"'LIS' LISTS ASCII SAVED FILES <NO PAGING)"

2790 PRINT"'PAG' LISTS ASCII SAVED FILE WITH PAGING•

2800 PRINT 9 'DIR' LISTS THE DIRECTORY WITH HEADINGS•

2810 PRINTu'SRT' PRINTS SORTED DIRECTORY WITH HEADINGS"

2820 PRINT"'HEX' PRIN"IS DAlA OFF OF DISC IN HEX"

2830 PRINT"'CPF' COPIES DATA FILES"

2840 PRINT"'MEM' RUNS MEMOR( rEST BETWEEN TWO LIMITS SET+"

2850 PRINT 'MNT' MOUNTS DISC NUMBER SPECIFIED"

1

2860 PRINT"'UNL' UNLOADS DISC NUMBER SPECIFIED"

2870 PRINT"'IMS' USED TO PUNCH TAPE IN IMSAI BASIC FORMAT"
2880 PRINTw'LLI' SAME AS 'LIS' EXCEPT USES LINE PRINTER"
2890 PRINT 8 'LPA' SAME AS 'PAG' EXCEPT USES LINE PRINTER"
2900 PRINTIPRINT"THE COMMAND STRUCTt:RE IS AS FOLLOWS FOR THE FOLLOWING
2910 PRINT"COMMANDS:
2920 PRINT, 8 DAT"
2930 PRINT,"DIR"
1176
UTILITY REV 5+1 - 6 ­

2940 PRINTv"SRT"
2950 PRINT,"HEX 0
2960 PRINT, 0 MNTu
2970 PRINT,"UNL" c=
2980 PRINT:PRINT"XXXY WHERE 'XXX' IS THE COMMAND AND 'Y' IS THE g
DRIVE NUMBER 0 ("")
2990 PRINTIPRINT"FOR THE FOLLOWING COMMANDS, THE COMMAND STRUCTURE IS ~
AS FOLLOWS:• -<
3000 PRINT, COP"
1 ,....
:::0
Ci)
3010 PRINTv"FLS" ~
3020 PRINTv"BAS 0
3030 PRINT
3040 PRINT"XXXYvZ WHERE 'XXX' IS THE COMMAND, 'Y' IS THE FROM"
3050 PRINTS DRIVE NUMBER, AND 'Z' IS THE DESTINATIONa
3060 PRINT 1
DRIVE NUMBER" ,.....
("")
V)

3070 PRINT IT1

3080 PRINT"FOR THE FOLLOWING COMMANDS, THE COMMAND STRUCTURE IS AS FOL~
LOWS" .,,,....
,....

3090 PRINTv"LIS 0
("")
3100 PRINT,"PAG" :::0
3110 PRINT,"IMS 0 IT1
V)
3120 PRINTv"LLI" IT1
~
3130 PRINTv"LPA"
3140 PRINT:PRINTuxxxv,zzzzzz WHERE 'XXX' IS THE COMMAND, 'Y' IS TH~
,.....
E DRIVE NUMBER• ::z
3150 PRINT" AND 'ZZZZZZ' IS THE FILE NAME TD BE PP
RINTED+"
3160 PRINT!PRINT•FoR THE FOLLOWING COMMANDS THE STRUCTURE IS AS FOLLOW
s:n
3170 PRINTIPRINTv"ENDu

3180 PRINT, MEM"

3190 PRINT,"CPF"

3200 PRINT 0 WHERE 'XXX' IS THE COMMAND"

3210 PRINTIPRINTu Cl> IF THE FOLLOWING COMMANDS: 'DAT'v 'COP','FL

S, ,
3220 PRINT" 'BAS', 'HEX', OR 'CNV' ARE USED, YOU MUST FIRST•
3230 PRINT" UNLOAD CUNL> AND THEN MOUNT CMNT> THE DRIVE YOU"
3240 PRINTD WANT USE THE FOLLOWING COMMANDS ON 'LIS', 'PAG',u
3250 PRINT" 'DIR'v OR 'SRT' OR YOU WILL GET A DISC I/O ERROR.
D

3260 PRINT" <2> THEN COMMANDS 'LIS', 'IMS', AND 'PAG' WORK •
3270 PRINT" ONLY ON ASCII SEQUENTIAL FILES."
3280 PRINT
3290 RETURN
3300 PRINT"MEMORY TEST ROUTINE•
3310 INPUT "UPPER LIMIT TO TESTu;up
3320 INPUT LOWER LIMIT TO START";Lo
0

3330 J=O
3340 FOR I=LO TO UP
3350 POKE I,J
3360 NEXT I
3370 FOR I=LO TO UP
3380 K=PEEKCI>
3390 IF J<>K THEN PRINT" MEMORY LOCATION °;I;" IS BAD"ELSE 3410
3400 PRINTJ;"WAS WRITTEN, AND •;K;nwAs READ"
3410 NEXT I
3420 IF J=O THEN J=J+l ELSE J=J*2
3430 IF J>129 THEN PRINT•DONE":GOTO 190
1177

UTILITY F~EV ~i •1 ·- 7 ­
3440 GOTO 3340
3450 IF ERR=53 THEN PRINT"FILE NOT FOUND•:RESUME 190
3460 IF ERR=56 THEN PRINT•DISC l"~A~· NOT MOUNTED•:RESUME 190
347() IF ERR=60 THEN PRINT"DISC l"~A~" ALREADY MOUNTED":RESUME 190
3480 ON EF~FWF~ GOTO 0 c::
n
349() FOR Y=O TO 1~5 n
3500 T2(Y)=-1 n
0
3510 NEXT Y "'O

~5!'.'i~.~()
:3~i30
3540
F~ETUfrn
GOSUB 17101GOSUB 3490
Q$="":INPUT"COMMENTS <<15 CHARACTERS>"~QS
-
-<
::::0
(j)
:c
-I
35~5() INPUT"NUMBER OF PRINT POSITIONS - SHOULD BE BETWEEN 72 AND 132u;p~
p ~
3:'.'i60INPUTAIS THIS A LISTING OF A PROGRAM OR FILE <P OR F>·•zs I
:3~57() C$=RIGHT$(C$,LEN<CS>-1>tIF ASC<CS><>&054THEN PRINT"ERROR":GOT0190~
~5~7i80 CS=RIGHTSCCS.LEN<CS)-1) D
3~i9() Ti==OtP:l::::l ~
3600 OPEN u1•,1,cs,A ~
361() GOSLJB 3850 ~
:~620 CC=6:IF EOF<:L> THEN 3890 n
~5630 LINEINPUTl1,A$ ~
364() IF AS="" THEN 3620 ~
:~ 6~.rn IF T1=65 THEN GOSUB 3830 ~
:~660 IF ZS=uFa AND LEN<AS><=PP THEN 3810 g
~5670 IF ZS="F" AND LEN<AS>>PP THEN FOR I=l TO LEN<AS> ELSE 3720 ­
~5c>80 LPRINTMIDS<ASvI•l>~:cc=CC+i:IF CC=PP THEN LPRINT:T1=T1+1:CC=6tELS~
E 3700 .
3690 IF T1=65 THEN GOSUB 3830:LPRINT 8
n;
3700 NEXTI:LPRINTIT1=T1t1tIF T1=65 THEN GOSUB 3830
~371 O GOTO 3620
3720 FOR I=l TO 61IF MIDS<ASviv1><>" " THEN NEXT I
3730 B$=LEFTSCA$,J)IAS=MIDS<AS,I>:IF LENCBS>>5 THEN 3750
3740 FOR I=LENCB$) TO 5:BS=" "+BSINEXT I
3750 LPRINTBS;:IF LEN<AS>+LEN<BS><=PP THEN 3810
3760 FOR I=1 TO LENCAS>:LPRINTMIDS<As,r,1>;:cc=cc+1
3770 IF CC=PP THEN LPRINTILPRINT" "~:T1=T1+1tCC=61ELSE 3790
3780 IF T1=65 THEN GOSUB 3830:LPRINT" n;
3790 NEXT IILPRINTIT1=T1t11IF T1=65 THEN GOSUB 3830
~'800 GOTO 3620
3810 LPRINT A$1Tl=T1+1
~rn20 GOTO :3620
3830 IF EOF(i) THEN 3890
3840 LPRINTtLPRINT:LPRINT
3850 LPRINT;u ___ a:LPRINTILPRINT
3860 LPRINTC$P 9 0
;Q$;TABC35); 0 - 0 ;p1;"-"
:3870 l... PF~ I NT
3880 T1=71P1=P1t11RETURN
3890 FOR J*Tl TO 67!LPRINTSNEXT J:LPRINT"---"tLPRINTSLPRINT
3900 FOR J=1 TO 251LPRINTINEXT J
:~910 GOTO :L 90
3920 GOSUB1710:0PEN"O"vi'"•••••+RR",A
3930 PRINTl1vltCLOSE1:KILL• •••••• RR 0 ,AIRETURN

1178
 RUN"UTILITY"
DISC UTILITY PROGRAM REV. 5.1 (""')
DO YOU WANT INSTRUCTIONS? Y 0
THE LJST OF POSSIBLE COMMANDS ARE AS FOLLOWS:~
'DAT' DATA OFF OF DISC IN OCTAL
'COP' COPIES WHOLE DISC
'FLS' COPIES ONLY THE FILES <TRACKS 6-76)
;;o
G'>-
:::c:

-I

'BAS' COPIES ONLY BASIC <TRACKS 0-5)

'END' ENDS PROGRAM

'LIS' LISTS ASCII SAVED FILES <NO PAGING)

'PAG' LISTS ASCII SAVED FILE WITH PAGING ~

'Dil=i:' LISTS 'P·!' .. DIF~ECTOl=i:Y WITH HEADINGS ~

'SRT' PRINTS SORTED DIRECTORY WITH HEADINGS ~

'HEX' PRINTS DATA OFF OF DISC IN HEX ~

'CPF' COPIES DATA FILES ~

'MEM' RUNS MEMORY TEST BETWEEN TWO LIMITS SET~

'MNT' MOUNTS DISC NUMBER SPECIFIED ~

'UNL' UNLOADS DISC NUMBER SPECIFIED ~

'IMS' Ut>ED TD PUNCH TAPE IN IMSAI BASIC FCJl:~MA'~

'LLI' SAME AS 'LIS' EXCEPT USES LINE PRINTER £

'LPA' SAME AS 'PAG' EXCEPT USES LINE PRINTER z­

(""')

THE COMMAND STRUCTURE IS AS FOLLOWS FOR THE FdLLOWING

COMMANDS:
DAT
DI F~
SFH
HEX
MNT
UNI...
XXXY WHERE 'XXX' IS THE COMMAND AND 'Y' IS THE DRIVE NUMBER
FOR THE FOLLOWING COMMANDSv THE COMMAND STRUCTURE IS AS FOLLOWS:
COP

FU>

BAS

XXXYvZ WHERE 'XXX' IS THE COMMANDv 'Y' IS THE FROM

DRIVE NUMBERv AND 'Z' IS THE DESTINATION
DF~ I VE NUMBEl=i:

FOR THE FOLLOWING COMMANDS, THE COMMAND STRUCTURE IS AS FOLLOWS

I... :cs
PAG

IMS

LLI

LPA

XXXYvZZZZZZ WHERE 'XXX' IS THE COMMAND, 'Y' IS THE DRIVE NUMBFR

AND 'ZZZZZZ' IS THE FILE NAME TO BE PRINTED.

1179

FDR THE FOLLOWING COMMANDS THE f:lTRLJCTUl:~E U3 Af:) FDLLDW!3:

END

MEM

CPF

WHERE 1 XXX 1 IS THE COMMAND

c::
( 1) IF THE FClLl...CIW ING CClMMANDSt DAT v C(JF' v FL..!3 v I I I I I I
('")
('")

I BAS I HEX
, I Of~ 'CNV' AF~E USE:I'.I, YOU Ml.Jf.l'f FIR!H
I, ('")

UNLOAD <UNL) AND THEN MOUNT <MNT) THE Im IVE YOU 0

-0
WANT USE THE FOLLOWING COMMANDS ON 'LIS', PAG v I I
-<
;;:c
'DIF~', OF~ SFH 01::: YOU WILL GET A DISC J: /(J ERFWF~.
THEN COMMANDS 'LIS'v
I I m
::c:
(2) I MS AND 'F'AG' WDFU\
I I ' -I
ONLY ON ASCII SEC~UENTIAI... FIL.ES. I-"
l.O
-.....J
ucc - COPYF~ I GHT 1.977 F.lY SCIENTIFIC HEf.lEAF~CH
-.....J

COMMAND? (./)
('")
.....
rrt
z
DATO -I
Tl:;:ACK'f () .,,
.......

.....
SEC TOI:~'!' c:· ;.;) ('")
20() 000 l34 0 () () 0 () () 0 00 00 0 000 ;;:c
rrt
000 000 0 () 0 0 () () 000 000 000 000 (./)
rrJ
000 000 000 00 0 000 ()()() 0()() 0 ()() ::t:>
;;:c
00() 000 000 000 000 000 000 000 ('")
::i::
000 000 000 000 000 000 000 000
000 000 000 000 000 000 000 000
.....
z
00() 000 000 0 () ()
0()()
()() 0 000 000 000 .
("')

000 000 000 000 000 ()()() 000

000 000 000 0 ()() 000 () 0 () 0 0 () ()()()
00() 000 000 000 000 000 000 000

000 000 000 000 00 () 000 000 0 0 ()

000 000 000 000 00 0 000 000 000

000 000 000 000 000 000 000 000

000 000 000 000 000 000 000 000

000 000 000 0 () () 000 000 ()() () 000

000 000 000 000 000 () 0 () 000 000

00() 000 000 3·77 () () () 000 000 000

00 ()

TF~ACK"!' 1
SECT OF~'!' :3:1.
201 000 :l.34 :1.20 ;·5 () ~;~ ::.~1 ~~ 03~.) 173
245 157 :1.74 24::.~ :3U. 376 074 302
2~~5 03~) :I. 7:1 2~55 1 ~57 :1.74 252 31:L
r)r.:+c:­
376 062 ;302 :~·42 o3r7i :I. 7;3 .........J .. .I 057

157 174 :~~:;:~ 057 3 :1.:1. :I. 7~) 057 243

0!57 1.57 :1.74 ()~)'7 :~ 4::.~ 0!7i7 3 u. 053

327 :uo 317 054 00:1. 2~:;4 () 3~.) 305

36>6 ~.~~;7 0612 214 012 1.06 31.5 :~22

0:;~4 :132 30:1 0 j, 3 2~.)7 U. 7 ;327 332

~5:l 5 03!:'i 315 322 024 332 330 035

:L:L 7 327 :332 ~H6 0~55 315 32=~ 024

.....
3?? 3:l6 035 02:1. 377 035 325 026

00~~ :176 045 310 0:;~4 :~76 044 310

024 ~576 041. ::~:1.0 026 010 376 04~~

3:1.0 :I. 70 326 :I.() 1 ;346 :L '77 :I. ~57 026

000 :~4!7i 04:1. 3~'i4 0:1.2 0~3:1. :1.26 34l

05:3 :3:1. :1. 1.'72 377 O!:'i2 0 0 () 000 () 0 ()

0 ()()
TFrnCK'~ -:I.

1180
 c:
("")
("")

("")

.. _ .,.,
0
ucc COPYRIGHT 197"7 BY SCIENTIFIC F~ESEARCH -<
COMMAND'rHEXO ....;;cm
Tli:ACK? 0 :::r:
-I
SECTOR'r 5 1--'
() 1 2 3 4 i::·
-.I 6 7 8 9 A B c D E F \0
-...J
-...J

0 80 0() 5C 00 00 00 ()() 00 00 00 ()() 00 00 00 00 00

1 00 00 00 00 00 00 ()() 00 ()() 00 0() 00 ()0 ()() ()() 00 (./')

:~ 0() 00 00 00 00 00 ()() 00 00 ()() ()() 00 ()() 00 00 ()() ....

("")

(Tl
3 00 00 00 00 00 00 00 00 00 00 ()() 00 ()() 00 00 00 :z
4 00 00 00 00 00 00 00 00 00 00 ()() 00 ()() 00 00 00 ....-I
.,,
I:'
;J 00 00 ()() ()() 00 00 00 00 00 00 00 00 00 00 00 ()() ....
("")
6 ()() 00 00 00 00 00 00 00 00 00 ()0 ()() 00 0() 00 00 ;;c
7 00 00 00 00 00 00 00 00 00 00 ()() 00 ()() 00 00 00 (Tl
(/)
8 00 00 00 FF 00 ()() 00 00 (Tl
)::>
;;c
("")
ucc - COPYRIGHT :1.977 BY SCIENTIFIC F~ESEARCH :::r:
CDMMAND'rl-IEXO ....
:z
TRACK? :I.
SECTOR'!' 24
.("")

0 :I. ~~ 3 4 5 6 7 8 9 A B c D E F

() 81 ()() !5C 28 41 E3 EB r""

: .. .1 2A E6 OA E7 C2 DF 14 Di
:L E 1 C5 [15 CD 04 40 E1 11 06 OB en 04 40 E1 C9 06
,'').... FF I)? 78 FE AF 3~~~ C9 OA 3E 01 32 C7 OA c:3 Ei6 :L :0
~5 32 C? OA 44 41) OB OB OB OB OB 3A C9 ,, .._
OA B7 r·:> ~5A
4 :1.4 19 EB 2A E8 OA E7 1A 02 13 03 (":> , ""·· 60 43 14 OB
,,/ 6«; 22 Ef.l OA E 1.
I:'
7E FE ~!(; co D? c:3 21 :L 4 F!:'i EB 19
6 EB 4E 06 0() 09 09 23 06 D~?. FA 73 14 78 CD 38 27
? CD 3El 27 C5 80 14 OE 04 CD 2E 27 B8 r·:> '73 1.4 OD .,.~.

8 C''>
.:.. 75 l4 FF 74 00 ()() ()()

1181
 c:
("")

ucc - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ("")

("")
COMMANDTMNT1 C)

•
DISC 1 ALREADY MOUNTED
ucc - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
-0
-<
;:;o
......
Cj')
COMMAND?UNL1 :I:
ucc - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH -I
.......

COMMAND?MNT1 l.O
ucc - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
'-I
-.....!
COMMANDTSRTO
(/)
("")
DIRECTORY DISK 0 ......
rii
:z
-I
......
.,,
NAME TYPE TRK SCT NAME TYPE TRK SCT ......
("")
;:;o
A/P s 36 8 A/P PROG ~
w 76 24 rii
(/)
A/Pl s 37 8 A/R ~
J 36 16 rii
~
AIR PROG J~ 42 24 A/R1 J~ 37 16 ;:;o
ACBD s 67 0 ACBS ~
J 48 24
("")
:I:
ACBS1 ~
~

73 16 CHES w~
30 24 ......
:z
CHESS
CHK NUM
s
s
28
33
8
16
CHK
CHK PROG
r~
~
J
37
58
0
16
.
("")

CHKl J~
35 0 COE FF r~ 57 24
CURVE s 54 24 DATA COPY ~
w 57 16
DTEMP s. 34 8 EIN PROG s 47 8
EINV s 35 16 EINV1 ~
J 38 16
EPl s 46 0 FILSTRUC s 68 16
FIN PROG s 52 0 HELP r~ 50 16
LEASTSQU s 72 24 MBP s 32 8
MED s 27 24 MEDFILE ~
J 26 0
MENU r~ 57 0 ME:.R PROG s ~~
JJ 8
MINLEDGR r~ 46 24 MINV ~
J 38 24
MINV1 s 38 8 MISC s 33 0
MISCl s 36 0 MWP1 s 25 8
MWP2 s 22 8 MWP4 s 21 8
MWP5 ~
~ 23 0 MWP6 s 20 16
MWP7 s 19 8 MWP8 s 24 0
MWP9 s 18 8 MWPMENU r~ 26 8
PAY s 34 16 PAY PROG s 60 0
PAY2 s 39 24 PIP3 s 71 0
TEMP11 s 30 16 TEXTEDIT s 9 24
UTILITY s 17 8 WPTE s 53 24
AMOUNT OF FREE SPACE - 7

1182

 c::
("')

("')

ucc --
COF'YfnGHT :1.977 BY SCIENTIFIC RESEARCH ("')

COMMANXnDIRO 0
-0

:Oil=~ECTOHY DISK 0 -
:;:o

:c
-I
-<
CJ)

......
NAME TYPE TRK SGT NAME TYPE TRI< SCT ......
\.0
......
PIF'3 s 71 () l...EASTSCW (."
,,) ?2 24
s
­
Vl
ACBS1 73 16 A/P F'ROG (."
,,) ?6 24 ("')
FILSTRUC s 68 16 ACBD s 67 () rrt

-,,­
PAY Pl:;:OG s 60 0 CHK F'FWG (''
,:) t'.58 16 z
-I
MENU s 57 () DATACOF'Y s 57 16
COE FF s 57 24 MEF~ F'FWG s 1::- c:·
,J "'"} 8 ("')
CURVE s 54 24 FIN F'FWG C'
~> ~52 () :;:o
HELP s 5() 16 ACBS s 4~l 24 rrt
Vl
EIN Pl:;:OG s 47 8 EF'1 s 46 () rrt
)::>
MINLEDGF~ s 46 24 A/F~ pr.;:oG s 4':>... 24 ("'):;:o

s
-.
PAY2 ~3 39 24 TEMPl.1 30 16 :c
MINV:I. E> 38 8 EINV1 s 38 1. 6 z
MINV s 38 24 PAY C'
;:)
::~4 :L 6 ("')
r~/F' :I. s 37 8 A/IU ("
;:> 3? :L 6
MISC:I. s 36 () A/P s 36 8
A/R s 36 16 CHl\l. (''
;:> 3~) 0
EINV s 35 :1.6 CHK s 37 ()
DTEMP s 34 8 CHK NUM s 33 16
MISC (."
,,) 3;3 () WPTE s ::'i3 24
MBP s ::~ ::.~ B CHES ("
,:> :30 24
CHESS s 2B 8 MED s 27 24
MEDFILE ~3 26 () MWPMENU s 26 8
MWF':I. s '")c:·
~.....J 8 MWF'8 C'
,,) 24 0
MWP;'.'i s. ~~:~ () MWP2 s :~~.~ 8
TEXTEJ) IT s 9 24 MWP4 f:) 21 8
UTILITY C'
~> 17 8 MWF't°> s 20 16
MWP7 s :1.9 8 MWF'9 s Hl 8

AMOUNT OF FF~EE SPACE -· 7

ucc ·- COPYRIGHT :1.977 BY SCIENTIFIC RESEAF~CH
COMMAND?PAGO,lJTILITY
COMMENTS ( <:1.5 CHAl~ACTERS) '"t l~EV 5. :I.
Nl.JMBEF~ OF PFUNT POSITIONS ·- SHOULD BE BETWEEN 72 AND :1.32? 72
I!3 THIS A LISTING OF A PfWGl:\'.AM OH FILE <P OR F) 'r p

1183
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
COMMAND?BAS0,1
DO YOU WISH A LIST OF REWITE AND REREAD ERRORS? Y
FROM 0 TO 1 T Y
0 1 2 3 4 5 DONE
c::
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ("")
("")
COMMANDTLISO,A/P ("")
11 C>
-0
SUBURBAN TRUST,165, 25 23618.71 1 295.72 0 -<
:;o
LAFAYETTE ELEC.,190, 18 2383.12 4 87.63 0 ......
G')
ALLIED ELECTRONICS,185, 5 11871+16 4 347+25 0 ::x:
-I
FORD CREDIT,110, 2 3119.81 2 187.5 0
CHEMICAL BANK,115, 30 912.67 2 67.21 0
CASH EXPENDITURE,10, 0 117.25 4 117.25 0
AGING - 30 DAYs,30, 0 5 4 0 0
AGING - 45 DAYs,45, 0 0 4 0 0 (/)
("")
AGING - 60 DAYS,60, 0 0 4 0 0 ......
rr1
AGING - 90 DAYs,90, 0 0 4 0 0 ::z
-I
AGING - OVER 90,99, 0 7+5 4 0 0
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
,,............
("")
COMMANDTPAGO,A/P
:;o
COMMENTS C<15 CHARACTERS>? AS OF 7/21/1977 rr1
(/)
NUMBER OF PRINT POSITIONS - SHOULD BE BETWEEN 72 AND 132? 72 rr1
~
IS THIS A LISTING OF A PROGRAM OR FILE CP OR F>T F
~
::x:
......
::z
A/P AS OF 7/21/1977 - 1 ­
.("")

11
SUBURBAN TRUST,165, 25 23618.71 1 295+72 0
LAFAYETTE ELEC.,190, 18 2383.12 4 87.63 0
ALLIED ELECTRONICS,185, 5 11871+16 4 347.25 0
FORD CREDIT,1101 2 3119.81 2 187+5 0
CHEMICAL BANK,115, 30 912.67 2 67+21 0
CASH EXPENDITURE,10, 0 117.25 4 117.25 O
AGING - 30 DAYs,30, 0 5 4 0 0
AGING - 45 DAYs,45, 0 0 4 0 0
AGING - 60 DAYS,60, 0 0 4 0 0
AGING - 90 DAYs,90, 0 0 4 0 0
AGING - OVER 90199v 0 7,5 4 0 0

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH

COMMANDTCPF
THIS SECTION COPIES ONLY ASCII SEQUENTIAL FILES OR RANDOM FILES.
IT WILL NOT COPY COMPRESSED BINARY PROGRAM FILES.
INPUT FILE NAME? A/P
INPUT DRIVE NUMBER? 0
OUTPUT FILE NAME? A/P11
OUTPUT DRIVE NUMBER? 0
COPYING ASCII SEQUENTIAL FILE A/P
DONE
NUMBER OF RECORDS COPIED - 13
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH
COMMAND?END

1184

1185

 N0 N- P R0 F I T

SOFTWARE LICENSING

AGREEMENT

1187

 SCIENTIFIC RESEARCH

NON.PR.Om USE LICENSE AGREEMENT

FOR SOFTWARE PRODUCTS

THIS AGREEMENT is entered into by and between SCIENTIFIC

RESEARCH, located at 1712 Farmington Court, Crofton, Maryland 21114
and
Licensee (Dealer, Distributor or Contractee) hereinafter referred to as
"lJCENSEE".

Name~~~---~

Address~--~--~--~--------~-----~-
City_ _ _ _ _._ __ State_ _ _,_ ___ Zip _ _ __
CountY---~~-~---~-~----~----~~-~
under the following terms and conditions:
1. lJCENSE
Scientific Research agrees to grant and licensee agrees to accept a nonex­
clusive license to use and to sublicense to customers, limited to the provi­
sions of Exhibit "B' ', others to use the programs listed on Exhibit "A'',
both attached hereto and incorporated herein by reference, subject to terms
and conditions contained herein. Licensee shall pay Scientific Research
within five (5) days of the date of receipt of the licensed software the sum of
Fifteen Thousand Dollars ($15,000.00) as a partial consideration for said
license and the limited right to sublicense in addition to other payments pro­
vided herein.
2. TERM
This agreement and the license and right to grant sublicenses hereunder
shall be effective for a period of one (1) year from the date on which it is ac­
cepted by Scientific Research, and will automatically be renewed for addi­
tional one (1) year periods thereafter, pursuant to the terms of SCHEDULE
"A", unless terminated according to Paragraph 8 hereof or upon written
notice from either party to the other given no less than ninety (90) days
prior to the expiration of any such one (1) year period. Any sublicenses
granted ~uring the term hereof shall continue indefinitely irrespective of the
termination of this agreement, unless a sublicensee is in violation of the
obligations contained in Paragraph 5.3 of this agreement of Schedule "A"
or Exhibit "B", in which case said sublicense shall immediately terminate
and licensee shall notify said sublicensee of such termination.
3. MATERIALS
Scientific Research shall furnish one (1) each of the following items per
Data Processing System purchased by licensee under contract:
3.1 Machine readable programs of the licensed software identified in
Exhibit "A".
3.2 Reference manual for the licensed software, if available as of the
date hereof.
3.3 Updated versions of Items 3.1 and 3.2 when released by Scientific
Research, fo:r a period of one (1) year from the initial date of this
agreement.
4. TITLE
4.1 Title and full ownership rights to the software licensed hereunder
shall remain with Scientific Research, or its licensor, where
applicable.
4.2 Licensee shall not assign or otherwise transfer its rights in the
licensed software except by sublicense provided herein, and any such
attempted transfer is void and has no effect.

1188
5. USAGE CONDITIONS
5.1 Licensee shall not disclose or distribute in printed or machine read­
able form any source programs which are part of the licensed soft­
ware without prior written approval of Scientific Research.
5. 2 Licensee has a license and the right to sublicense the object code or a
portion of same during the term hereof for use by the sublicensee in
conjunction with the sale or use of a Scientific Research Data
Processing System in accordance with the provision-of Exhibit B
attached hereto.
5.3 The software distributed under this agreement is the sole property
of Scientific Research and is not to be reproduced in any manner
(except as required by the licensee in granting sublicenses hereunder),
and this fact will be indicated on any copies thereof distributed.
5.4 Sublicensees shall agree to the sublicense agreement attached
hereto as Exhibit B, and licensee will use reasonable efforts to
insure that sublicensees do not reproduce all or any portion of the
licensed software in any manner whatsoever. Licensor may, in its future
sublicense agreements, require more restrictive copying rights than
those specified in Exhibit B. However, licensee may not remove any
of the requirements or restrictions set forth in Exhibit B without
the prior express written consent of Scientific Research. In the event
that licensee discovers any violation of Exhibit B by any sub­
licensee, licensee must report such violation to Scientific Research
within twenty-four (24) hours and use licensee's best efforts to cause
the sublicensee to cease his violations. If the violation continues,
licensee must terminate the sublicense for default.
5.5 Licensee may modify any Licensed Program in machine readable
form and/or merge it into other program material to form an up­
dated work for its own use, provided that the modified program be
submitted to Scientific Research for use as they see fit without
restrictions and that, upon discontinuance of the license for such
Licensed Program, the Licensed Program will be completely re­
moved from the updated work and treated as if permission to
modify and/or merge had never been granted.
5.6 The licensee will not ask for or expect assistance from Scientific Re­
search in installing or in modifying the licensed software. The
licensee is solely responsible for the installation and maintenance of
the licensed software at his or his customer's site.
5.7 In the event that this license is terminated in accordance with the
terms contained herein when there are valid sublicenses in effect, each
and every such sublicense shall automatically be assigned to
Scientific Research and licensee shall notify each sublicensee of said
assignment. In the event that Scientific Research's rights have been
obtained by license from a third party and its license is terminated
by the third party, this license shall continue as to such licensed and sub­
licensed programs owned by the third party and Scientific Research's
rights hereunder as to such programs shall inure to the benefit of said
third party. This license agreement for any other programs shall con­
tinue unaffected.
6. LIMITATIONS OF LIABILITY
6.1 Licensee agrees that Scientific Research's liability hereunder for
damages, regardless of the nature of the action, shall not exceed the
charges paid by the Licensee for the particular Licensed Program(s).
Licensee further agrees that Scientific Research will not be liable

1189
 ·,for any lost profits, or for any claim or demand against Licensee by the
sublicensee/customer or any other party. IN NO' EVENT WILL
EITHER PARTY BE LIABLE FOR CONSEQUENTIAL DAMAGES
EVEN IF THE PARTY HAS BEEN ADVISED OF THE POSSIBUJTY
OF suc:a DAMAGES.
6. 2 Licensee shall indemnify and hold Scientific Research harmless for
any and all claims arising from licensee's or its sublicensee's use of
licensed software.
7. WARRANTY
7.1 Scientific Research warrants to the Licensee that each Licensed
Program will conform to program specifications when shipped to
the Licensee. · Scfontific Research agrees, at no charge to the
Licensee, to use its best efforts to correct any Program error
found in the Licensed Program for a period of ninety (90) days from
the date of initial delivery of the programs listed in Exhibit A.
Scientific Research does not guarantee, represent or warrant that
errors will be corrected.
7.1 THIS EXPRESSED WARRANTY IS IN LIEU OF ALL OTHER
CONDITIONS AND WARRANTIES EXPRESSED OR IMPLIED
(INCLUDING THE IMPLIED CONDITIONS OR WARRANTY OF
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PUR­
POSE) AND OF ALL OTHER OBLIGATIONS OR LIABILITIES
FOR BREACH OF THIS WARRANTY ON SCIENTIFIC RE­
SEARCH'S PART. IT NEITHER ASSUMES NOR AUTHORIZES
ANY OTHER PERSON TO ASSUME FOR SCIENTIFIC RE­
SEARCH ANY LIABILITIES IN CONNECTION WITH THE USE
OF SAID LICENSED SOFTWARE.
8. TERMINATION .
In the event that licensee shall at any time neglect, fail or refuse to com­
ply with the terms of this agreement, Scientific Research may terminate this
agreement by serving upon licensee a notice of termination for default un­
less licensee shall cure the condition of ~efault within ten (10) days after
receipt of said notice.
9. TAXES
Licensee shall promptly pay any taxes arising out of or under this agree­
ment except for those taxes levied upon the net income or personal property
of Scientific Research or its licensors.
10. ASSIGNMENT
This license is personal to the signed Licensee and the Licensee shall not as­
sign this license or any interest therein or any rights hereunder except as
provided herein, without the prior written consent of Scientific Research.
11. MERGER
This agreement constitutes the entire agreement between the parties
concerning the subject matter hereof and merges all prior agreements and
negotiations, both written and oral, of the parties.
12. CONTROLLING LAW
This agreement shall be governed by, subject to and construed accord­
ing to the laws of the State of Maryland and may not be modified except by
a writing signed by each party.
13. ADDITIONAL TERMS
Additional terms and conditions appearing on Schedule A are herewith
included and incorporated in this agreement.

1190

 IN WITNESS WHEREOF, the parties hereto have executed this

Agreement as of the date and year written below.

ACCEPTED: AGREED:

SCIENTIFIC RESEARCH LICENSEE (Dealer, Distributor or Contractee)

BY~~~~~~~~~~~- By----------­
T i t l e - - - - - - - - - - - Title - - - - - - - - - ­
Date----------­

SCHEDULE II A"

ADDITIONAL TERMS:
14. YEARLY RENEWAL
In addition to the term of the license as set out in Paragraph 2, the
licensee will in addition tender a nominal yearly fee of $150.00, or a one
time charge of $15,000.00 as set out in EXHIBIT "A", to be paid on or
before January 15 of each year to Scientific Research. This renewal fee is re­
quired annually to keep the license agreement in effect. Failure to timely
remit the renewal fee by the stipulated date will automatically terminate this
license as set out in Paragraph 8 and 5.7 and any other applicable sections
included in this agreement. Renewal of a terminated license, from above
reasons, shall cost $1,000.00 and is conditional to reacceptance by Scientific
Research.

EXHIBIT"A"
The products listed below are hereby licensed under the terms of the
attached Agreement.
PRODUCTS INCLUDED IN THIS AGREEMENT:
Name: Basic Software Library
Volumes: VII only
Programs covered: MEDBILL, and WRDPRO

FEES for Non-Profit licensing and sublicensing.

$15,000.00 one time fee per computer, the software is used on, or
$150.00 per year due by January 15 of every year. Each customer or user of
the software licensed by this agreement must notify Scientific Research in
writing, as to the number of copies that the customer or user has and the
whereabouts of each copy. Failure to notify Scientific Research of this in­
formation immediately subjects the customer or user to the $15,000.00 price
for each copy of the software set out in EXHIBIT "A" they have.

1191

 Software Sublicemm
Licensee/Dealer/Sublicensor shall be referred to as "sublicensor".

llVlPORTAl'<JT: These software progTarns listed iJ1 EXIBBIT "A" are copy­
righted by Scientific Research by a licensor of Scientific Research. Sci­
entific Research has licensed--------------~-----------------­
-------------------·--·--··-·-----·-·-----·-- (Sublicensor)
to grant limited licenses under such copyrights for personal and non-profit use.
All programs are licensed only on the condition that the customer agrees to
the following license. READ THIS LICENSE C.AREFULLY. If you do not
agree to the terms contained in this License, contact Sublicensor imr11ediately.
If you do agTee, execute the agreement in the space below and return one
executed copy to the sublicensor, and one executed copy to 1712 Farmington
Court, Crofton, Maryland 21114.
Sublicensor agTees to grant and the Customer agrees to accept on the
following terrr1s and conditions a nontransferable and non-exclusive license, for
non-profit usage, to use and copy the software program(s) (Licensed Programs)
herein delivered with this Agreement.
LICENSE
Each license granted under this Agreement authorizes the Customer to
use the Licensed Program in any machine readable form on any single
Scientific Research Data Processing System (referred to as System). A
separate license is required for each system on which the Licensed Program
will be used. PJl use by individuals or firms as service bureau software or
for inclusion on any time sharing system where the software may be used by
or for other than the licensee is strictly forbidden. Such use requires the exe­
cution of the "FOR-PROFIT" Licensing AgTeement.
This Agreement and any of the licenses, program or materials to which it
applies may not be assigned, sublicensed or otherwise transferred. No right
to print or copy, in whole or in part, the Licensed Programs is granted
except as hereinafter expressly provided.
PERMISSION TO COPY OR MODIF'Y LICENSED PROGRAMS
The Customer shall not copy, in whole or in part, any Licensed Programs
which are provided by Sublicensor in printed form under this agreement.
Any Licensed Programs which are provided by Sublicensor in machine
readable form may be copied, in whole or in part, in machine readable form
in sufficient number for use by the Customer with the designated System,
for back-up purposes, or for archive purposes, provided, however, than no
more that two (2) copies will be in existence under any license at any one
time without the prior written consent from Sublicensor. The Customer(s)
agrees to maintain appropriate records of the number and location of all
such copies of Licensed Programs. The original, and any copy of the
Licensed Programs, in whole or in part including any modifications made,
which are made by the Customer shall be the property of Scientific
Research or its licensors.
The Customer agrees not to remove and where applicable to reproduce
and include Scientific Research's and its licensor's copyright notices on all
copies reproduced, in whole or in part, in any form, including partial copies
and modifications of Licensed Program made hereunder.
PROTECTION AND SECURITY
The Customer agrees not to provide or otherwise make available any
Licensed Program including, but not limited to program listings, object code
and source code, in any form, to any person other than Customer's or
Sublicensor's employees. Customer's failure to protect the property rights of
Scientific Research will subject the customer or the holder of the software or
both to an agreed u.po:n amount, a liquidated damage fee of $75,000.00 for each
copy of the software, set out in EXHIBIT "A", the custom.er/user/holder has or
has had or made.
1192
DISCONTINUANCE
If Customer is in violation of any of the terms of this Agreement,
SublicenRor will terminate this license upon thirty (30) days written notice
unless Customer has corrected such deficiency within the said thirty (30) day
period.
In the event Sublicensor's license from Scientific Research shall
terminate at any time during the duration of this sublicense, this sublicense
shall continue in full force and effect and Sublicensor hereby assigns said
Sublicense to Scientific Research, who shall succeed to all the rights and
obligations of this sublicense agreement in place of Sublicensor.
Within one (1) month after the date of discontinuance of this license, the
Customer will furnish Sublicensor a certificate certifying that through his
best effort, and to the best of his knowledge, the original and all copies, in
whole or in part, in any form, of the Licensed Programs received from
Sublicensor or made in connection with such license have been destroyed,
except that, upon prior written authorization from Sublicensor.

DISCLAIMER OR WARRANTY
SCIENTIFIC RESEARCH AND SUBLICENSOR MAKE NO WAR­
RANTIES WITH RESPECT TO THE LICENSED PROGRAMS, AND
SPECIFICALLY DISCLAIM ALL WARRANTIES, EXPRESS OR IM­
PLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR­
RANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU­
LAR PURPOSE.
IN NO EVENT WILL SCIENTIFIC RESEARCH OR SUBLICENSOR
BE LIABLE FOR CONSEQUENTIAL DAMAGES EVEN IF SCIENTIFIC
RESEARCH OR SUBLICENSOR HA VE BEEN ADVISED OF THE POSSI­
BILITY OF SUCH DAMAGE.
GENERAL
If any of the provisions of this Agreement are finally declared invalid
under any applicable statute or rule of law, this agreement shall be ter­
minated unless Scientific Research consents in writing to the continuation of
this agreement with the invalid provisions deleted.
This is the complete exclusive statement of the agreement between the
parties, which supersedes all proposals, oral or written, and all other com­
munications between the parties relating to the subject matter of this
Agreement and the provisions of SCHEDULE "A".
CUSTOMER/SIGNER SUBLICENSOR/DEALER
By ---~---------By - - - - - - - - - - - ­

Title ----·--------Title - - - - - - - - - - ­
Company ---·------ Company - - - - - - - - ­

Designated System:-------- D a t e : - - - - - - - - -
Loeation:

1193
 SCIENTIFIC RESEARCH

NONPROm USE LICENSE AGREEMENT

FOR SOFTWARE PRODUCTS

THIS AGREEMENT is entered into by and between SCIENTIFIC

RESEARCH, located at 1712 Farmington Court, Crofton, Maryland 21114
and
Licensee (Dealer, Distributor or Contractee) hereinafter referred to as
"LICENSEE".

Name _ _ _ _ _ _ _·~---~~·
Address_ _ _·---·---~---~"---~------~
City_ _ _ _ _ _ __ State________ Zip _ _ _ _ __

CountY----------~---~-----------~
under the following terms and conditions:
1. LICENSE
Scientific Research agrees to grant and licensee agrees to accept a nonex­
clusive license to use and to sublicense to customers, limited to the provi­
sions of Exhibit "B", others to use the programs listed on Exhibit "A",
both attached hereto and incorporated herein by reference, subject to terms
and conditions contained herein. Licensee shall pay Scientific Research
within five (5) days of the date of receipt of the licensed software the sum of
Fifteen Thousand Dollars ($15,000.00) as a partial consideration for said
license and the limited right to sublicense in addition to other payments pro­
vided herein.
2. TERM
This agreement and the license and right to grant sublicenses hereunder
shall be effective for a period of one (l) year from the date on which it is ac­
cepted by Scientific Research, and will automatically be renewed for addi­
tional one (1) year periods thereafter, pursuant to the terms of SCHEDULE
''A'', unless terminated according to Paragraph 8 hereof or upon written
notice from either party to the other given no less than ninety (90) days
prior to the expiration of any such one (I) year period. Any sublicenses
granted during the term hereof shall continue indefinitely irrespective of the
termination of this agreement, unless a sublicensee is in violation of the
obligations contained in Paragraph 5.3 of this agreement of Schedule "A"
or Exhibit "B", in which case said sublicense shall immediately terminate
and licensee shall notify said sublicensee of such termination.
3. MATERIALS
Scientific Research shall furnish one (1) each of the following items per
Data Processing System purchased by licensee under contract:
3.1 Machine readable programs of the licensed software identified in
Exhibit "A".
3.2 Reference manual for the licensed software, if available as of the
date hereof.
3.3 Updated versions of Items 3.1 and 3.2 when released by Scientific
Research, for a period of one (1) year from the initial date of this
agreement.
4. TITLE
4.1 Title and full ownership rights to the software licensed hereunder
shall remain with Scientific Research, or its licensor, where
applicable.
4.2 Licensee shall not assign or otherwise transfer its rights in the
licensed software except by sublicense provided herein, and any such
attempted transfer is void and has no effect.

1194
15. USAGE CONDITIONS
6.1 Licensee shall not disclose or dilltribute in printed or machine read·
able form any source programs which are part of the licensed soft·
ware without prior written approval of Scientific Research.
5. 2 Licensee has a license and the right to sublicense the object cede or a
portion of same during the term hereof for use by the sublicensee in
conjunction with the sale or use of a Scientific Researck Data
Processing System in accordance with the provision-of Exhibit B
attached hereto.
5.3 The software distributed under this agreement is the sole property
of Scientific Research and is not to be reproduced in any manner
(except as required by the licensee in granting sublicenses hereunder),
and this fact will be indicated on any copies thereof distributed.
5.4 Sublicensees s.hall agree to the sublicense agreement attached
hereto as Exhibit B, and licensee will use reasonable efforts to
insure that sublicensees do not reproduce all or any portion of the
licensed software in any manner whatsoever. Licensor may, in its future
sublicense agreements, require more restrictive copying rights than
those specified in Exhibit B. However, licensee may not remove any
of the requirements or restrictions set forth in Exhibit B without
the prior express written consent of Scientific Research. In the event
that licensee discovers any violation of Exhibit B by any sub­
licensee, licensee must report such violation to Scientific Research
within twenty-four (24) hours and use licensee's best efforts to cause
the sublicensee to cease his violations. If the violation continues,
licensee must terminate the sublicense for default.
5.5 Licensee may modify any Licensed Program in machine readable
form and/or merge it into other program material to form an up­
dated work for its own use, provided that the modified program be
submitted to Scientific Research for use as they see fit without
restrictions and that, upon discontinuance of the license for such
Licensed Program, the Licensed Program will be completely re­
moved from the updated work and treated as if permission to
modify and/or merge had never been granted.
5.6 The licensee will not ask for or expect assistance from Scientific Re­
search in installing or in modifying the licensed software. The
licensee is solely responsible for the installation and maintenance of
the licensed software at his or his customer's site.
5. 7 In the event that this license is terminated in accordance with the
terms contained herein when there are valid sublicenses in effect, each
and every such sublicense shall automatically be assigned to
Scientific Research and licensee shall notify each sublicensee of said
assignment. In the event that Scientific Research's rights have been
obtained by license from a third party and its license is terminated
by the third party, this license shall continue as to such licensed and sub­
licensed programs owned by the third party and Scientific Research's
rights hereunder as to such programs shall inure to the benefit of said
third party. This license agreement for any other programs shall con­
tinue unaffected.
6. LIMITATIONS OF LIABILITY
6.1 Licensee agrees that Scientific Research's liability hereunder for
damages, regardless of the nature of the action, shall not exceed the
charges paid by the Licensee for the particular Licensed Program(s).
Licensee further agrees that Scientific Research will not be liable

1195
 for any lost profits, or for any or demand against Licensee by the
sublicensee/ customer or any other party. IN NO EVENT WILL
EITHER PARTY BE LIABLE FOR CONSEQUENTIAL DAMAGES
EVEN IF THE P .ARTY HAS BEEN ADVISED 01', POSSIBILlTY
OF SUCH DAl\IIAGES.
6.2 shall indemnify hold Scientific harmless for
any all claims arising or its subLfoensee's use of
licensed software.
7. WARRANTY
7.1 Scientific Research warrants to the Licensee that each Licensed
Program will conform to program specific&.ti.ons when shipped to
the Licensee, Scientific H.esearch agrees, at no charge to the
Licensee, to use i.ts best efforts to correct any Program error
found in the Licensed Program for a period of ninety (90) days from
the date of initial delivery of the programs listed in Exhibit A.
Scientific Research does not guarantee, represent or warrant that
errors will be corrected.
7.1 THIS EXPRESSED WARRANTY IS IN LIEU OF ALL OTHER
CONDITIONS AND WARRANTIES EXPRESSED OR IMPLIED
(INCLUDING THE IMPLIED CONDITIONS OR WARRANTY OF
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PUR­
POSE) AND OF ALL OTHER OBLIGATIONS OR LIABILITIES
FOR BHEACH OF THIS WARRANTY ON SCIENTIFIC RE­
SEARCH'S PART. IT NEITHER ASSUMES NOR AUTHORIZES
ANY OTHER PERSON TO ASSUME FOR SCIENTIFIC RE­
SEARCH ANY LIABILITIES IN CONNECTION WITH THE USE
OF SAID LICENSED SOFTWARE.
8. TERMINATION
In the event that licensee shall at any time neglect, fail or refuse to com­
ply with the terms of this agreement, Scientific Research may terminate this
agreement by serving upon licensee a notice of termination for default un­
less licensee shall cure the condition of default within ten (10) days after
receipt of said notice.
9. TAXES
Licensee shall promptly pay any taxes arising out of or under this agree­
ment except for those taxes levied upon the net income or personal property
of Scientific Research or its licensors.
10. ASSIGNMENT
This license is personal to the signed Licensee and the Licensee shall not as­
sign this license or any interest therein o:r any rights hereunder except as
provided herein, without the prior written consent of Scientific Research.
11. MERGER
This agreement constitutes the entire agreement between the parties
concerning the subject matter hereof and merges all prior agreements and
negotiations, both written and oral, of the parties.
12. CONTROLLING LAW
This agreement shall be governed by, subject to and construed accord­
ing to the laws of the State of Maryland and may not be modified except by
a writing signed by each party.
13. ADDITIONAL TERMS
Additional terms and conditions appaaring on Schedule A are herewith
included and incorporated in this agreement.

1196
 IN WITNESS WHEREOF, the parties hereto have executed this
Agreement as of the date and year written below.

ACCEPTED: AGREED:

SCIENTIFIC RESEARCH LICENSEE (Dealer, Distributor or Contractee)

By-----------­
Title _ _ _ _ _ _ _ _ _ _ __
Title - - - - - - - - - - ­
Date _ _ _ _ _ _ _ _ _ _ __
Date----------­

SCHEDULE "A"

ADDITIONAL TERMS:
14. YEARLY RENEW AL
In addition to the term of the license as set out in Paragraph 2, the
licensee will in addition tender a nominal yearly fee of $150.00, or a one
time charge of $15,000.00 as set out in EXHIBIT "A", to be paid on or
before January 15 of each year to Scientific Research. This renewal fee is re­
quired annually to keep the license agreement in effect. Failure to timely
remit the renewal fee by the stipulated date will automatically terminate this
license as set out in Paragraph 8 and 5.7 and any other applicable sections
included in this agreement. Renewal of a terminated license, from above
reasons, shall cost $1,000.00 and is conditional to reacceptance by Scientific
Research.

EXillBIT"A"

The products listed below are hereby licensed under the terms of the
attached Agreement.

PRODUCTS INCLUDED IN THIS AGREEMENT:

Name: Basic Software Library
Volumes: VII only
Programs covered: MEDBILL, and WRDPRO

FEES for Non-Profit licensing and sublicensing.

$15,000.00 one time fee per computer, the software is used on, or
$150.00 per year due by January 15 of every year. Each customer or user of
the software licensed by this agreement must notify Scientific Research in
writing, as to the number of copies that the customer or user has and the
whereabouts of each copy. Failure to notify Scientific Research of this in­
formation immediately subjects the customer or user to the $15,000.00 price
for each copy of the software set out in EXHIBIT "A" they have.

1197
 EXHIBIT"B"

Software Sublicense Agreement for NON-PROFIT Usage

Licensee /Dealer /Sublicensor shall be referred to as "sublicensor".

IMPORTANT: These software programs listed in EXIIlBIT "A" are copy­

righted by Scientific Research and/or by a licensor of Scientific Research. Sci­
entific Research has licensed _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
(Sublicensor)
to grant limited licenses under such copyrights for personal and non-profit use.
All programs are licensed only on the condition that the customer agrees to
the following license. READ THIS LICENSE CAREFULLY. If you do not
agree to the terms contained in this License, contact Sublicensor immediately.
If you do agree, execute the agreement in the space below and return one
executed copy to the sublicensor, and one executed copy to 1712 Farmington
Court, Crofton, Maryland 21114.
Sublicensor agrees to grant and the Customer agrees to accept on the
following terms and conditions a nontransferable and non-exclusive license, for
non-profit usage, to use and copy the software program(s) (Licensed Programs)

herein delivered with this Agreement.

LICENSE

Each license granted under this Agreement authorizes the Customer to

use the Licensed Program in any machine readable form on any single
Scientific Research Data Processing System (referred to as System). A
separate license is required for each system on which the Licensed Program
will be used. All use by individuals or firms as service bureau software or
for inclusion on any time sharing system where the software may be used by
or for other than the licensee is strictly forbidden. Such use requires the exe­
cution of the "FOR-PROFIT' Licensing Agreement.
This Agreement and any of the licenses, program or materials to which it
applies may not be assigned, sublicensed or otherwise transferred. No right
to print or copy, in whole or in part, the Licensed Programs is granted
except as hereinafter expressly provided.
PERMISSION TO COPY OR MODIFY LICENSED PROGRAMS
The Customer shall not copy, in whole or in part, any Licensed Programs
which are provided by Sublicensor in printed form under this agreement.
Any Licensed Programs which are provided by Sublicensor in machine
readable form may be copied, in whole or in part, in machine readable form
in sufficient number for use by the Customer with the designated System,
for back-up purposes, or for archive purposes, provided, however, than no
more that two (2) copies will be in existence under any license at any one
time without the prior written consent from Sublicensor. The Customer(s)
agrees to maintain appropriate records of the number and location of all
such copies of Licensed Programs. The original, and any copy of the
Licensed Programs, in whole or in part including any modifications made,
which are made by the Customer shall be the property of Scientific
Research or its licensors.
The Customer agrees not to remove and where applicable to reproduce
and include Scientific Research's and its licensor's copyright notices on all
copies reproduced, in whole or in part, in any form, including partial copies
and modifications of Licensed Program made hereunder.
PROTECTION AND SECURITY
The Customer agrees not to provide or otherwise make available any
Licensed Program including, but not limited to program listings, object code
and source code, in any form, to any person other than Customer's or
Sublicensor's employees. Customer's failure to protect the property rights of
Scientific Research will subject the customer or the holder of the software or
both to an agreed upon amount, a liquidated damage fee of $75,000.00 for each
copy of the software, set out in EXIIlBIT "A", the customer/user/holder has or
has had or made. 1198
DISCONTINUANCE
If Customer is in violation of any of the terms of this Agreement,
Sublicensor will terminate this license upon thirty (30) days written notice
unless Customer has corrected such deficiency within the said thirty (30) day
period.
In the event Sublicensor's license from Scientific Research shall
terminate at any time during the duration of this sublicense, this sublicense
shall continue in full force and effect and Sublicensor hereby assigns said
Sublicense to Scientific Research, who shall succeed to all the rights and
obligations of this sublicense agreement in place of Sublicensor.
Within one (1) month after the date of discontinuance of this license, the
Customer will furnish Sublicensor a certificate certifying that through his
best effort, and to the best of his knowledge, the original and all copies, in
whole or in part, in any form, of the Licensed Programs received from
Sublicensor or made in connection with such license have been destroyed,
except that, upon prior written authorization from Sublicensor. ·

DISCLAIMER OR WARRANTY
SCIENTIFIC RESEARCH AND SUBLICENSOR MAKE NO WAR­
RANTIES WITH RESPECT TO THE LICENSED PROGRAMS, AND
SPECIFICALLY DISCLAIM ALL WARRANTIES, EXPRESS OR IM­
PLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR­
RANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU­
LAR PURPOSE.
IN NO EVENT WILL SCIENTIFIC RESEARCH OR SUBLICENSOR
BE LIABLE FOR CONSEQUENTIAL DAMAGES EVEN IF SCIENTIFIC
RESEARCH OR SUBLICENSOR HAVE BEEN ADVISED OF THE POSSI­
BILITY OF SUCH DAMAGE.
GENERAL
If any of the provisions of this Agreement are finally declared invalid
under any applicable statute or rule of law, this agreement shall be ter­
minated unless Scientific Research consents in writing to the continuation of
this agreement with the invalid provisions deleted.
This is the complete exclusive statement of the agreement between the
parties, which supersedes all proposals, oral or written, and all other com­
munications between the parties relating to the subject matter of this
Agreement and the provisions of SCHEDULE "A".
CUSTOMER/SIGNER SUBLICENSOR!DEALER
By ---------~By - - - - - - - - - - - ­

Title ------------Title - - - - - - - - - - ­
Company ----------Company - - - - - - - - ­

Designated System: - - - - - - - - - - Date: - - - - - - - - ­

Location:

1199
1200

1201

 RELIABLE COMPUTER SOFTWARE

FOR YO UR DOWN TO EA RTH TASKS

SCIENTIFIC RESEARCH INST. Key Biscayne, Florida BAS IC SOFTWARE LIBRARY