Latest amendment on 5 February 2012
V. Kouba
E P I Z O O -
SOFTWARE PACKAGE FOR ANIMAL POPULATION HEALTH ANALYSES AND DISEASE
CONTROL PROGRAMMING
APPLICABLE IN ALL MS WINDOWS VERSIONS (UP TO
Historically first software in
the world for anti-epizootic activities at all levels applicable also in human
epidemiology
EPIZOO SOFTWARE KNOW-HOW
ATTACHED
(containing more than 20
thousand command lines)
The EPIZOO software was developed as the
follow-up of the author’s Doctor of Science (DrSc.) thesis “Principy metodologie soustavy kvantitativních ukazatelů zdravosti a
nemocnosti animální populace určených pro epizootologickou analýzu“ (Comprehensive
system of quantitative methods for animal population health/disease analyses) defended at
the
The EPIZOO
software was developed specifically for the analyses of animal population
health and control of diseases, including those transmissible to man. The other
purpose is to facilitate animal population health programming, mainly the
control of communicable diseases. The package, covering large spectrum of
veterinary practice problems, represents an integral and complex system of
methods and indicators. It is useful for diagnosis results evaluation,
health/disease problems solution, research, studies, modelling, simulating, education and training in epizootiology,
veterinary epidemiology, veterinary public health and population medicine. The
methods for action-oriented population analyses for adequate decision-making
have the priority. Particular attention has been given also to the methods
related to national and international trade such as disease risk assessment and
management (through testing, diseases reduction and eradication).
The overwhelming majority of the EPIZOO
methods are applicable for any animal kingdom species (domestic, wild,
vertebrate, invertebrate, etc.) health-related states and events, for any
population disease (infectious and
non-infectious), anywhere and at any time.
First version was written in Spanish
containing mainly analytic methods described in the author’s textbook
“Epizootiología general” published in 1987. Following versions were written
only in English, initially used for education and training purposes. In
1993 the World Health Organization (WHO)
in
Examples:
Weekly Epidemiological Record, World Health
Organisation, 1993, 68, page 349: “Veterinary public health – Computer software
package: “ A computer software package, EPIZOO, has
been developed specifically for analysis of information on animal health and
diseases, including those transmissible to man. The software package includes
indicators to analyse data on morbidity and mortality, geographical
distribution, animal population characteristics, and dynamics of epizootics. It
helps to prepare for investigations of animal population health and disease, to
analyse diagnosis and consequences of illness, to design animal health
programmes, to estimate costs and evaluate programmes. It also include some
sampling and other simple and practical statistical techniques. It is written to facilitate information
management for problem-solving, modelling, simulation studies and training in
veterinary epidemiology and for action-oriented epidemiological analyses and
decision-making. The EPIZOO version 2.4 fits onto 1.4 megabyte diskette and can
be used on IBM compatible personal computers with MS-DOS operating system. The software package, which was developed by
Professor V. Kouba (P.B. 516, 17000
World Health
Organisation website for Communicable diseases surveillance and Response www.who.int/csr
- Utilities with following text : “ A
computer software package, EPIZOO, has been developed specifically for analysis
of information on animal health and diseases, including those transmissible to
man. The software package includes indicators to analyse data on morbidity and
mortality, geographical distribution, animal population characteristics, and
dynamics of epizootics. It helps to prepare for investigations of animal
population health and disease, to analyse diagnosis and consequences of
illness, to design animal health programmes, to estimate costs and evaluate
programmes. It also include some sampling and other simple and practical
statistical techniques.” (The web address was changed in March 2005).
Only during first nine
months, i.e. up to 6 October 1994, the WHO HQs sent on request the EPIZOO
diskettes to 73 institutes in 46 countries *). During next years there were
sent further hundreds of the EPIZOO software. Afterwards the mass distribution
was realized through the WHO websites.
*) England (17), USA (12), Italy (9), Germany (9), Spain (5), France
(5), Netherlands (5), New Zealand (5), Israel (3), Australia (3), Sweden (3),
Switzerland (3), Canada (3), Tunis (2), Denmark (2), Uganda (2), Greece (2),
Iran (2), Argentina (2), Bahamas, Zimbabwe, Slovenia, Turkey, Mozambique,
Belize, Ireland, Latvia, Taiwan, Cyprus, Thailand, Nepal, Hungary, Austria,
Hong-Kong, United Arab Emirates, Belgium, South Africa, Bolivia, Malaysia,
Mexico, India, Maroc, Uruguay, Malta and Trinidad.
Diskettes with
EPIZOO software were also distributed with personal instruction of the author
to all European Chief Veterinary Officers attending Regional Conference of the Office International
of Epizootics held in Prague, Czechoslovakia in September 1998.
World
Health Organisation also published a particular paper
V. Kouba (1995) : „EPIZOO: software for veterinary epidemiology training and problem
solving”. Bulletin of the World Health Organisation, Volume 73, No. 1,
77-83
and included this software among the
“Utilities” of the Division of Emerging and other Communicable Diseases
Surveillance and Control (EMC) and later of the Division of Communicable
Disease Surveillance and Response (CSR).
International
Office of Epizootics (OIE) also published
papers on this software:
- V. Kouba: „EPIZOO - software package of selected
methods for animal population health analysis and programming (ver. 2.5a)”. Rev.
sci. tech. Off. Int. Epiz., 1994, 13 (3),637-650
- V. Kouba: “Computerized
methods for animal health risk assessment using the EPIZOO 2.6 program”. Rev. sci. tech. Office
International des Epizooties, 1997, 16 (3), 793-799.
The EPIZOO version 4.0 (May 2003) package
of 1389 Kbytes (it fits onto one 1.4 megabyte diskette without compression)
with 25 thousand command lines includes also a sub-software called EPIZMETH. It contains
explanatory subprogrammes of detailed information on all EPIZOO methods
(formulae, their composition, input data, calculation procedure, etc.) having
the same structure (menus). EPIZOO, version 4.0, consists of 14 modules, 172
subprogrammes with 318 different methods covering all major fields of animal
population health/disease analysis and programming. The rich menu of the
methods provides the user with the chance to select the most adequate procedure
for the solution of specific problems. EPIZOO can be run under MS DOS as well
as under all versions of the MS WINDOWS, including MS WINDOWS VISTA operation
systems.
EPIZOO is a relatively
simple tool for the veterinarians in the field, diagnostic laboratories,
slaughterhouses and management practice, for veterinary educators, instructors,
students and trainees as well as for specialists of related careers.
This fully user-friendly
programme makes easier the analyses and
decision processes. The time saved, avoiding tedious manual
calculations, can be used for other professional activities. The use of this
software is simple, there is no need for any manual or training. The user,
after keying "epizoo", selects from the menus the method desired and
answers the questions computer asks him. The results in the form of text,
numeric value of resulting relevant indicators, tables and graphs are obtained
immediately.
The
software package has been further developed and the latest version represents
up today the most comprehensive system of quantitative methods and indicators
for animal population health/disease analyses and programming. The
EPIZOO, version 4.0a (March 2005)
is available, again free of
charge, in http://vaclavkouba.byl.cz/software/software.zip.
As follow-up are available:
- „Comprehensive system of quantitative methods for
population health/disease analyses – examples of practical application“ (http://vaclavkouba.byl.cz/epiexamples.htm)
containing 371 examples using hundreds of quantitative (mathematically
expressed) indicators of the EPIZOO software tested and used in practice
for animal population health and disease analyses and control programmes at
local, national and international levels.
- „Comprehensive system of quantitative methods for
population health/disease analyses – formulae and procedures“ (http://vaclavkouba.byl.cz/epimethodology.htm)
containing detailed descriptions of all methods used in EPIZOO, i.e. „know-how“
: mathematical formulae, their components, data processing and result
forming.
Additionally is available also Spanish
written EPIZOOT, version 1.0, software
package in http://vaclavkouba.byl.cz/software/epizoot.zip
and „El sistema de los métodos cuantitativos para los análisis de la salud de
las poblaciones animales – ejemplos de la aplicación
práctica“ (http://vaclavkouba.byl.cz/epiejemplos.htm)
containing more than one hundred examples of the application of quantitative
methods and indicators for animal population health/disease analyses and
programming.
Notes:
Originally under MS DOS the
EPIZOO was using full screen. Under
WINDOWS operation system the EPIZOO starts using only smaller windows (¼
screen size); for the window expanding to full screen following procedures to
be used:
1) place cursor on the upper
blue bar and press right mouse button
2) select Properties
3) select Display Option
4) select Full Screen – press OK
5) select Apply Properties
6) select “Save properties for future windows with the
same title” – press OK
Printing: Under MSDOS the EPIZOO full screen contents could be printed immediately using “PRINT
SCREEN” key. Under WINDOWS operation system with the Microsoft WORD package following
procedure to be used:
1) Open a new file in WORD
where the copied screen will be pasted
2) place cursor on the upper
blue bar and press right mouse button
3) select Edit
4) select Mark
5) with the coursor, placed in
the EPIZOO window left upper corner, while pressing left mouse button, mark by
cursor move what is to be copied
6) place cursor on the upper
blue bar and press right mouse button
7) select Edit
8) select Copy
9) open prepared the WORD file and locate the
place where the EPIZOO window contents to be included
10) select Edit
11) select Paste
12) select Print
EPIZOO has
following structure and contents:
1. Animal population characteristics of health importance
Animal population
species/categories structures and their territorial
distribution; breeding, production and ecological conditions influencing
population distribution; selected indicators related to disease resistance and
susceptibility of animals; average production per animal, input, space and time
units; population dynamics - "vertical movement" (survival rates);
estimation of population size based on average density and on capture/recapture
of wildlife.
2. Basic indicators of animal population health/disease analysis
Indicators for animal
population health/disease analysis such as prevalence, incidence and
extinction; indicators of presence and absence of animal health phenomena;
indicators for the analysis of animal population collective health, viability,
disease morbidity, mortality and nidality (focality); indicators of disease
territorial distribution; human - animal populations relations and zoonoses.
3. Animal population health structures
Animal population epizootiological
structure; disease territorial structure; foci types' structure; morbidity,
mortality and nidality structure by causes and forms; disease occurrence
according to animal species and categories, breeding, production and ecological
conditions; proportions of disease different forms, symptoms and findings of
specific etiological agents and antibodies.
4. Indicators of epizootic process dynamics
Comparative indexes of animal
health phenomena dynamics; average of changing numbers of diseased animals,
foci, etc.; seasonality of population health/disease phenomena; indicators of
morbidity and nidality tendency; relations between new cases and space, time,
diseased animals and foci; population 'vertical movement' and chronic disease
process; estimation of surviving diseased animals according to survival rates;
territorial propagation of transmissible diseases; development of disease
frequency with cyclic, ascending and descending tendencies; chronological time
series of population health phenomena.
5. Animal disease risk assessment
General indicators of animal
disease risk; risk probability assessment of disease introduction, risk
comparison of a disease introduction from several territories, risk comparison
of several diseases introduction from one territory; animal population
movement, transfer, concentration as potential risks of disease propagation;
food consumption as potential risk of food-borne diseases.
6. Consequences of animal population health and disease
Animal population benefit and
disease losses in production; public health consequences of diseases common to
animals and man; losses due to specific disease according to average
parameters; losses due to animal death, condemnation of carcasses, utility
reduction and reproduction deterioration; inputs' benefit/losses in
healthy/diseased animals; losses due to population health/disease measures;
cost of animal population health mass actions.
7. Investigations of animal population health situation
Evaluation of diagnostic
method quality (specificity and sensitivity); indicators of animal population
investigation grade; proportions of different types of diagnostic tests;
infectious disease evidence and notification grades; positivity and negativity
of test results; agreement between test results of two investigators,
concordance grade of compared test results and comparison of two tests
according to their specificity and sensitivity; population multi-etiological
investigations; testing parasitic diseases extensity and intensity; testing
infection intensity grades; predictive values according to Bayes' theorem.
8. Sampling in animal population health investigations
Random numbers for selection
of representative sample of animals and herds; sample size for detecting
presence of a disease in a population, for estimating prevalence in large and
finite populations and for estimating prevalence using confidence interval and
absolute difference; sample size for estimating mean of population health
phenomena; sample size for detecting difference between two prevalences and
between two means; sample size for estimating prevalence from simple and
cluster random samples; stratified sampling in animal population
investigations; probability of failure
to detect diseased animals.
9 .Animal population health programmes
Method for selection of
priority diseases for animal health programmes; model for animal morbidity and
nidality prognosis; planning for animal morbidity reduction (in linear form and
in curve form); planning for animal population specific health recovery;
planning/prognosis of reducing nidality, mortality and losses and of expanding
specific disease free territory; evaluation of specific mass animal health
actions (incl. vaccinations); 'critical path' method in animal population
health planning; justified distribution of animal health programme inputs;
animal health programme/measures coverage.
10. Cost and efficiency of animal population health programmes
Basic indicators of economic
benefit/cost analysis; absolute economic benefit of animal health programmes;
biological, public health and production cost/effectiveness of animal health
programmes; effectiveness of prophylactic measures and recovery rates; final
situation in populations with and without programme; programme benefit/cost
ratio in discounted and cumulative monetary values; economic effect after
specific animal disease eradication; public health and biological effect of specific animal disease eradication;
consumption and cost of vaccines, drugs and other substances; animal health
programme implementation.
11.Complementary subprogrammes - I
Disease introduction risk
assessment applying user-defined criteria; risk probability of test negative
results in infected animals; risk probability that at least one animal import
unit is infected; survival of diseased and vaccinated animals according to
their replacement process; prevalence of foci and intrafocal diseased/exposed
animals; prevalence based on outbreaks, herd size and infection duration;
relations between prevalence of population and of affected herds; rate of
spread of animal disease outbreaks; animals and livestock units per territory
unit, inhabitant and veterinarian.
12.Complementary subprogrammes - II
Morbidity and mortality
adjustment based on category structure standards; two population rates
adjustment based on standard proportions and category standards; true
prevalence estimation based on diagnostic method detectability; selection of
priority diseases for control programme; selection of methods for specific
disease control programme; survey response rate; dilution of solution for
disinfection, disinfestation, etc.; values of animal products per one
veterinarian and animal commodity export/import size per one veterinarian; per
capita production of food of animal origin.
13. Selected statistical methods
Arithmetic means and
measures of dispersion; calculation of proportions including standard error;
conversion between percentage/proportion and absolute data; distribution of
cumulative frequencies; Chi-square test and contingency tables; linear
regression and correlation coefficient; McNemar's test, Fisher's test;
arithmetic operations.
14 Other selected
statistical and economic methods
Tests of the difference
between two proportions and two arithmetic means; test of the difference in
means of two small-sized samples; confidence intervals estimates for population
mean and proportion, for the difference between means and between proportions;
Student's 't' critical values; analysis
of critical point of production economic efficiency; application of interest,
discount and inflation rates; conversion
between metric and Anglo-Saxon measures. Veterinary service cost and animal
population/production values; models of budget for animal population health
programmes.
More information see in
author's articles:
- Rev. sci. tech. Office International des
Epizooties, 1994, 13 (3),637-650.
- Bulletin of the World Health
Organization, 1995, 73 (1), 77-83.
.
Other reference see
in: http://vetgate.ac.uk/whatsnew/detail/3005565.html
Prof.Dr
Vaclav K o u b a, DrSc.
Annex:
EPIZOO, version 4.0a (2005)
M A I N M
E N U
OF SUBPROGRAMME GROUPS
1-Animal population - characteristics of health importance
2-Animal population health/disease analysis - basic indicators
3-Selected indicators of animal population health structures
4-Selected indicators of epizootic process dynamics
5-Selected indicators of animal disease risk assessment
6-Consequences of animal population
health and disease
7-Investigations of animal population health situation
8-Methods related to sampling in population investigations
9-Selected aspects of animal population health programmes
10-Cost and efficiency of animal population health programmes
11-Complementary subprogrammes - I
12-Complementary subprogrammes - II
13-Annex I - Selected basic statistical methods
14-Annex II - Other selected statistical and economic methods
1-ANIMAL POPULATION - SELECTED
CHARACTERISTICS OF HEALTH IMPORTANCE
1-Animal population size and species structure
2-Animal population categories (strata) structure
3-Animal population territorial distribution
4-Breeding/production conditions influencing animals distribution
5-Ecological conditions influencing animals distribution
6-Selected indicators related to disease resistant animals
7-Selected indicators related to disease susceptible animals
8-Animal population production per animal, input, space and time
9-Animal population dynamics - 'vertical movement'
10-Estimation of animals number according to survival rates
11-Estimation of number of wild animals (vertebrates+invertebrates)
12-Estimation of animal population size based on capture/recapture
13-Estimation of animal population size based on average density
2-ANIMAL POPULATION
HEALTH/DISEASE ANALYSIS - BASIC
INDICATORS
1-General indicators for animal
population health analysis
2-Indicators of presence/absence of
animal health phenomena
3-Selected indicators of animal
population health (disease free)
4-Selected indicators of animal
population morbidity
5-Selected indicators of animal
population viability (survival)
6-Selected indicators of animal
population mortality
7-Selected indicators of animal disease
nidality (focality)
8-Selected indicators of animal disease
territorial distribution
9-Human/animal populations and zoonoses
3-SELECTED
INDICATORS OF ANIMAL POPULATION HEALTH STRUCTURES
1-Animal population epizootiological
structure
2-Animal population disease territorial
structure
3-Animal population diseases foci (outbreaks)
types' structure
4-Territory epizootiological structure
5-Morbidity, mortality and nidality
structure by causes/forms
6-Disease occurrence according to animal
species and categories
7-Disease occurrence according to
breeding/production conditions
8-Disease occurrence according to
ecological conditions
9-Tables of animal disease occurrence
acc. to dif. criteria
10-Tables of animal population, farms and
territory epi. structure
11-Tables of disease foci and intrafocal
structure
12-Proportions of disease different
forms/symptoms findings
13-Proportions of specific etiological
agents/antibodies findings
4-SELECTED INDICATORS OF EPIZOOTIC PROCESS
DYNAMICS
1-Comparative indexes of population
health phenomena dynamics
2-Average of changing numbers of
diseased animals, foci etc.
3-Seasonality of population
health/disease phenomena
4-Selected tendency indicators of
morbidity and nidality
5-Relations between new cases and
space/time/diseased/foci
6-Population 'vertical movement' and
chronic disease process
7-Number of diseased animals according
to survival rates
8-Territorial propagation of
transmissible diseases
9-Development of disease frequency with
cyclic tendency
10-Development of disease with
ascending/descending tendency
11-Chronological time series of
population health phenomenon
5-SELECTED
INDICATORS OF ANIMAL DISEASE RISK ASSESSMENT
1-General indicators of animal disease
risk
2-Risk probability assessment of animal
disease introduction I.
3-Risk probability assessment of animal
disease introduction II.
4-Risk comparison of a disease
introduction from several territories
5-Risk comparison of several diseases
introduction from one territory
6-Animal population movement as
potential risk of disease propagation
7-Animal products transfer as potential
risk of disease propagation
8-Concentration of animals as potential
risk of disease propagation
9-Risk probability assessment of animal
disease propagation
10-Per capita food consumption as
potential risk of food-born diseases
6-CONSEQUENCES OF
ANIMAL POPULATION HEALTH AND DISEASE
1-Animal health benefit and disease losses in production
2-Public health consequences of diseases
common to animals and man
3-Losses due to specific disease
according to average parameters
4-Losses due to death and condemnation
of animal carcasses
5-Losses due to diseased animals' utility reduction
6-Losses due to diseased animals'
reproduction deterioration
7-Inputs benefit/losses in
healthy/diseased animals
8-Summary tables of losses due to animal
population diseases
9-Cost of population health mass actions
10-Economic losses due to population
health/disease measures' costs
11-Blanc summary tables of animal
population disease consequences
7-INVESTIGATIONS OF ANIMAL POPULATION HEALTH
SITUATION
1-Evaluation of diagnostic method quality
2-Indicators of animal population
investigation grade
3-Proportions of different types of
diagnostic tests
4-Infectious disease evidence and
notification grades
5-Positivity and negativity of test
results
6-Agreement between test results of two
investigators
7-Concordance grade of compared tests'
results
8-Summary table of animal disease
investigations
9-Summary table of animal disease
investigation results
10-Population/sample multi-etiological
investigations
11-Testing parasitic diseases extensity
and intensity
12-Testing infection intensity grades in
animals
13-Comparison of two tests acc.
specificity/sensitivity
14-Relationship of positively and
negatively tested animals
15-Predictive value according to Bayes'
theorem
8-SELECTED SAMPLING
METHODS FOR POPULATION HEALTH INVESTIGATIONS
1-Random numbers for selection of
representative animals/herds
2-Sample size for detecting presence of
a disease in a population
3-Sample size for estimating prevalence
in large population
4-Sample size for estimating prevalence
using confidence interval
5-Sample size for estimating prevalence
using absolute difference
6-Sample size for estimating prevalence
in finite population
7-Sample size for detecting difference
between two prevalences
8-Sample size for estimating mean of
population health phenomena - I.
9-Sample size for estimating mean of
population health phenomena - II.
10-Sample size for detecting difference
between two means
11-Stratified sampling for population
health investigations
12-Estimating prevalence from simple and
cluster random samples
13-Probability of failure to detect
diseased animals
9-SELECTED ASPECTS
OF ANIMAL POPULATION HEALTH PROGRAMMES
1-Selection of priority diseases for
animal health programmes
2-Simple model of morbidity/nidality
changes' prognosis
3-Planning/prognosis of morbidity
reduction (in linear form)
4-Planning/prognosis of morbidity
reduction (in curve form)
5-Planning/prognosis of animal
population specific health recovery
6-Animal population health/disease mass
actions (incl.vaccinations)
7-'Critical path' method in animal
population health planning
8-Distribution of animal population
health programme inputs
9-Animal population health
programme/measures' coverage
10-Planning/prognosis of reducing
nidality, mortality and losses
11-Planning/prognosis of expanding
specific disease free territory
10-COST AND
EFFICIENCY OF ANIMAL POPULATION HEALTH PROGRAMMES
1-Simple indicators of economic
benefit/cost analysis
2-Simple absolute economic benefit of
animal health programme
3-Biological cost/effectiveness of
animal health programme
4-Public health cost/effectiveness of
animal health programme
5-Production cost/effectiveness of
animal health programme
6-Effectiveness of prophylactic measures
and recovery rates
7-Final situation in populations with
and without programme
8-Consumption and cost of vaccines,
drugs and other substances
9-Programme benefit/cost ratio in
discounted monetary values
10-Programme benefit/cost ratio in
cumulative monetary values
11-Economic effect after specific animal
disease eradication
12-Public health effect of specific
zoonosis eradication
13-Biological effect of specific animal
disease eradication
14-Implementation of animal population
health programme
11-COMPLEMENTARY
SUBPROGRAMMES - I
1-Disease introduction risk assessment
applying user-defined criteria
2-Risk probability of test negative
results in infected animals
3-Risk probability that at least one
animal import unit is infected
4-Survival of diseased and vaccinated
animals acc. to replacement
5-Table of number changes of foci,
intrafocal and diseased animals
6-Point prevalence of foci and
intrafocal diseased/exposed animals
7-Table of foci and diseased animals
incidence/extinction
8-Table of slaughtered animals and
disease findings
9-Prevalence based on outbreaks, herd
size and infection duration
10-Relations between prevalence of
population and of affected herds
11-Animals/livestock units per
territory/inhabitant/veterinarian
12-Rates of spread of animal disease
outbreaks
12-COMPLEMENTARY
SUBPROGRAMMES - II
1-Health rates' adjustment based on
category structure standards
2-Morbidity/mortality adjustment based
on category rates' standards
3-Two populations rates' adjustment
based on standard proportions
4-Two populations rates' adjustment
based on category standards
5-Selection of methods for specific
disease control programme
6-Survey response rate
7-Dilution of solution for disinfection,
disinfestation, etc.
8-Summary value of animal products per
one veterinarian
9-Values of individual animal products
per one veterinarian
10-Animal commodity export/import size
per one veterinarian
11-Per capita production of food of
animal origin
12-Selection of priority diseases for
control programme
13-True prevalence estimation based on
diag. method detectability
13-ANNEX I - SELECTED BASIC STATISTICAL METHODS
1-Arithmetic mean and measures of
dispersion
2-Arithmetic mean from grouped data and
measures of dispersion
3-Calculation of proportion and its
standard error
4-Conversion between
percentage/proportion and absolute data
5-Distribution of cumulative frequencies
6-Chi-square test and contingency tables
7-McNemar's test - paired chi-square
test
8-Linear regression and correlation
coefficient
9-Fisher's test for small frequencies'
comparison
10-Moving averages - smoothing of time
series
11-Simple arithmetic operations
14-ANNEX II - OTHER SELECTED STATISTICAL AND ECONOMIC
METHODS
1-Test of the difference between two
proportions
2-Test of the difference between two
arithmetic means
3-Test of the difference in means of two
small-sized samples
4-Test of matched comparison between
different values in pairs
5-Confidence intervals estimates for
population mean
6-Confidence intervals estimates for
population proportion
7-Confidence intervals for the
difference between means
8-Confidence intervals for the
difference between proportions
9-Table of Student's 't' critical values
10-Veterinary service cost and animal
population/production values
11-Conversion between metric and
Anglo-Saxon measures
12-Analysis of critical point of
production economic efficiency
13-Application of interest, discount and
inflation rate
14-Conversion between national
currencies' values
15-Model of budget for animal health
programme - I
16-Model of budget for animal health
programme - II
EPIZOO – know-how
INTRODUCTION
M
A I N M E
N U OF
SUBPROGRAMME GROUPS
5 PRINT"EPIZOO40, ver. 4.0, 2003"
16
CLS:PRINT:PRINT:PRINT:PRINT "
";
17 FOR
P=1 TO 76:PRINT CHR$(178);
18
NEXT P
20
PRINT TAB(3)CHR$(178);
21 PRINT
TAB(78)CHR$(178)
30
PRINT TAB(3)CHR$(178);TAB(30)" E
P I Z
O O ";TAB(78)CHR$(178)
31
PRINT TAB(3)CHR$(178);TAB(78)CHR$(178)
32
PRINT TAB(3)CHR$(178);TAB(36)"version 4.0";TAB(78)CHR$(178)
33
PRINT TAB(3)CHR$(178);TAB(78)CHR$(178)
36
PRINT TAB(3)CHR$(178);TAB(29)"Prof.Dr
Vaclav K o u b
a";TAB(78)CHR$(178)
37
PRINT TAB(3)CHR$(178);TAB(78)CHR$(178)
38
PRINT TAB(3)CHR$(178);TAB(78)CHR$(178)
40
PRINT TAB(3)CHR$(178);TAB(15)"EPIZOO is a software package of selected
methods for";TAB(78)CHR$(178)
46
PRINT TAB(3)CHR$(178);TAB(6)"animal
p o p u l a t i o n h e a l t
h analysis and
programming";TAB(78)CHR$(178)
47
PRINT TAB(3)CHR$(178);TAB(78)CHR$(178)
51
PRINT " ";
52 FOR
P=1 TO 76:PRINT CHR$(178);
53
NEXT P
69
PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:GOTO 120
120
PRINT
130
INPUT"
Key ENTER to continue",Q
140 ON
Q GOTO 150
150
CLS:PRINT"I N F O R M A T I O N
AND I N S T R U C T I O N S
:"
151
PRINT"a) This software contains methods for training, problem solutions
and "
152
PRINT" simulation related to
animal population health analyses and programmes."
153
PRINT"b) Subprogrammes' selection and data inputs to be very c a r e f u l
!"
154
PRINT" A l l operation
i n s t r u c t i o n s must
be r e s p e c t e d !"
156
PRINT"c) All questions about numbers to be processed (true/real, reported,
estimated"
158
PRINT" or fictitious) and decision
alternatives (s m a l l letters in
brackets)"
157
PRINT" must be answered ! For
decimal numbers use points (not commas) !"
159
PRINT"d) If asked for more data on one line separating c o m m a s
must be used !"
160
PRINT"e) W a r n i n g ! Extreme
data inputs or omitting data may terminate"
161
PRINT" the programme going to DOS
starting line or 'hang' computer action !"
162
PRINT"f) Corrections are possible on the same line or after completing
imput part."
163
PRINT"g) When specifying health, disease or foci their forms/types (all,
apparent,"
164
PRINT" based on indirect
diagnostic methods only, etc. ) should be identified."
165
PRINT"h) Results' interpretation to be
l o g i c a l (biologically
meaningful) !"
166
PRINT" Quality depends mainly on
input data reliability based on field/laboratory"
167
PRINT" investigations and clear
definitions considering also influencing factors."
175
PRINT"i) For continuing ENTER key and for printing PRINT SCREEN key to be
used."
185
PRINT"j) For processing a larger amount of data or data requiring more
sophisticated"
186
PRINT" methods, storage, graphs or
spreadsheets alternative software to be used."
386
PRINT"k) Detailed information on EPIZOO individual subprogramme
methods/procedures"
387
PRINT" see in EPIZMETH (go out
from EPIZOO main menu and key 'epizmeth')."
493
PRINT"j) This software may be freely copied."
495
INPUT"
Key ENTER to go to Main Menu",Q
496 ON
Q GOTO 560
560
CHAIN "EPIZ40MM.KOU"
570
SYSTEM
1-Animal
population - characteristics of health importance
5 ON
ERROR GOTO 14025
6
IDM$="Input data missing !"
7
IDE$="Input data error !"
10
PRINT"EPIZ4001.KOU":REM:26/4/2002
14 e$="EPIZOO, ver.4.0,":v$=DATE$
15
CLS:PRINT"EPIZOO, ver.4.0";TAB(70)v$:PRINT
30
PRINT TAB(9)"1-ANIMAL POPULATION - SELECTED CHARACTERISTICS OF HEALTH IMPORTANCE"
40
PRINT
TAB(9)"==================================================================="
500
PRINT:PRINT TAB(15)"M E N U O
F S U B P R O G R A M M E S":PRINT
510
PRINT TAB(9)"1-Animal population size and species structure"
520
PRINT TAB(9)"2-Animal population categories (strata) structure"
530
PRINT TAB(9)"3-Animal population territorial distribution"
540
PRINT TAB(9)"4-Breeding/production conditions influencing animals
distribution"
550
PRINT TAB(9)"5-Ecological conditions influencing animals distribution"
555
PRINT TAB(9)"6-Selected indicators related to disease resistant
animals"
560
PRINT TAB(9)"7-Selected indicators related to disease susceptible animals
"
565
PRINT TAB(9)"8-Animal population production per animal, input, space and
time"
570
PRINT TAB(9)"9-Animal population dynamics - 'vertical movement'"
575
PRINT TAB(9)"10-Estimation of animals number according to survival
rates"
580
PRINT TAB(9)"11-Estimation of number of wild animals
(vertebrates+invertebrates)"
590
PRINT TAB(9)"12-Estimation of animal population size based on
capture/recapture"
595
PRINT TAB(9)"13-Estimation of animal population size based on average
density"
610
PRINT:PRINT TAB(9)"14-E N D of this
group of subprogrammes"
630
PRINT
640
GOTO 690
644
A$=INKEY$:IF A$="" THEN GOTO 644
645
CLS
650
INPUT"Do you want to continue in this group of subprogrammes, yes(y) or
no(n) ";Z$
651 IF
Z$="y" OR Z$="n" THEN GOTO 660 ELSE 14000
660 IF
Z$="y" THEN GOTO 15 ELSE GOTO 14000
690
INPUT" Enter choice number :
",M
695 IF
M=1 OR M=2 OR M=3 OR M=4 OR M=5 OR M=6 OR M=7 OR M=8 OR M=9 OR M=10 OR M=11 OR
M=12 OR M=13 OR M=14 THEN GOTO 700 ELSE 650
700 ON
M GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000
800
GOTO 645
1000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.1-ANIMAL POPULATIONS SIZE AND
SPECIES STRUCTURE"
1010
PRINT"================================================="
1015
PRINT"Notes: Applicable also on the etiological agents' vectors and
reservoirs."
1016
PRINT" Differentiate total and
at risk populations !!!"
1200
PRINT"INPUT DATA:"
1229
INPUT" animal populations
";P$
1230
INPUT" place (territory, land,
sector, etc.) ";PL$
1231
INPUT" time ";TI$
1232
INPUT" number (2 up to 11 !) of
evaluated animal species ";N:REM: up 18???
1233
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 1980
1245
PRINT:PRINT" List animal species
(names up to 15 characters), number of animals :":PRINT
1250
FOR I=1 TO N
1260
PRINT TAB(10)I;"";
1270
INPUT" species, animals ";
S$(I),U#(I)
1275
IF S$(I)="" OR U#(I)=0 THEN PRINT:PRINT IDM$:GOTO 1980 ELSE 1280
1280
NEXT I
1300
SU=0
1301
FOR I=1 TO N
1302
SU=SU+U#(I)
1305
NEXT I
1400
PRINT
1401
MAX=U#(1):KP=1
1402
FOR I=2 TO N
1403
IF U#(I)>MAX THEN MAX=U#(I):KP=I
1404
NEXT I
1405
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
1406
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
1407
IF I$="m" THEN GOTO 10
1408
IF I$="c" THEN GOTO 1000
1409
IF I$=CHR$(13) THEN GOTO 1410:'X$=INPUT$(1):IF X$<>CHR$(13) THEN GOTO
1000
1410
CLS:PRINT:PRINT TAB(8)"SPECIES
STRUCTURE OF ANIMAL
POPULATION":PRINT
1420
PRINT TAB(10)"Animal population: "P$
1421
PRINT"Place: "PL$;TAB(50)"Time: "TI$
1610
PRINT:PRINT
1615
PRINT TAB(5)"Species";TAB(26)"Absolute";TAB(39)"Proportion";TAB(54)"Percentage"
1616
PRINT TAB(26)"Number":PRINT
1617
FOR I=1 TO N
1619
PRINT TAB(5)USING"\
\";S$(I);
1620
PRINT TAB(25)INT(U#(I));TAB(40)USING"#.####";U#(I)/SU;
1621
PRINT TAB(55)USING"##.####";(U#(I)/SU)*100
1622
NEXT I
1623
S#=0
1624
FOR I=1 TO N
1625
S#=S#+U#(I)
1626
NEXT I
1627
PRINT:PRINT TAB(5)"T o t a
l";TAB(25)INT(S#);TAB(40)"1.000000";TAB(54)"100.0000"
1630
PRINT
1633
A$=INKEY$:IF A$="" THEN GOTO 1633
1634
IF N=1 THEN GOTO 1981
1635
CLS:PRINT:PRINT TAB(6)"S P E C I E S
S T R U C T U R E OF ANIMAL
POPULATION"
1636
'GOTO 1680:
1637
IF MAX<(SU/2) THEN GOTO 1640 ELSE 1680
1640
PRINT:PRINT TAB(12)"(";CHR$(223);" represents 1 % of total
"INT(S#);" animals)":PRINT
1641
PRINT
1645
PRINT TAB(3)"Species";TAB(20)"0 10 20 30 40 50 %"
1646
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
1651
FOR I=1 TO N
1652
Z=(U#(I)/SU)*100
1653
IF Z<1 THEN GOTO 1654 ELSE 1660
1654
IF Z>0 THEN GOTO 1655 ELSE 1660
1655
PRINT TAB(3)USING"\
\";S$(I);
1656
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 1670
1660
PRINT TAB(3)USING"\
\";S$(I);
1661
PRINT TAB(20)CHR$(179);
1663
FOR K=1 TO (U#(I)/SU)*100
1664
PRINT CHR$(223);
1665
NEXT K
1666
PRINT
1670
NEXT I:GOTO 1790
1680
PRINT:PRINT TAB(12)"(";CHR$(223);" represents 2 % of total
"INT(S#);" animals)":PRINT
1681
PRINT:PRINT TAB(3)"Species";TAB(20)"0 20 40 60 80
100 %"
1682
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
1683
FOR I=1 TO N
1684
Z=(U#(I)/SU)*50
1685
IF Z<1 THEN GOTO 1686 ELSE 1689
1686
IF Z>0 THEN GOTO 1687 ELSE 1689
1687
PRINT TAB(3)USING"\
\";S$(I);
1688
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 1695
1689
PRINT TAB(3)USING"\
\";S$(I);
1690
PRINT TAB(20)CHR$(179);
1691
FOR K=1 TO (U#(I)/SU)*50
1692
PRINT CHR$(223);
1693
NEXT K
1694
PRINT
1695
NEXT I
1790
REM: good-ERASE S$,U
1980
A$=INKEY$:IF A$="" THEN GOTO 1980
1981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
1982
IF R$="y" OR R$="n" THEN GOTO 1983 ELSE 1990
1983
IF R$="y" THEN GOTO 1000 ELSE 1990
1990
RETURN
2000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.2-ANIMAL POPULATION CATEGORIES
(STRATA) STRUCTURE"
2010
PRINT"==================================================="
2013
PRINT"(according to breed, age, gender, weight, physiological stage,
nutrition"
2014
PRINT"status, immunity status, performance, type/level of productivity,
type of"
2015
PRINT"breeding, type of exploitation, production stage, technology,
concentration)"
2100
PRINT"INPUT DATA:"
2110
INPUT" place, time
";PL$,TI$
2115
INPUT" species ";SP$
2119
INPUT" category according to
";CA$
2120
INPUT" number (2 up to 11 !) of
subgroups within this category ";N:REM up to 20???
2121
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 2980
2129
PRINT TAB(6)"List data: "
2130
PRINT" name of subgroup (up to
15 characters), number of animals :"
2131
FOR I=1 TO N
2132
PRINT TAB(10)I;": ";
2133
INPUT SG$(I),NA#(I)
2134
IF SG$(I)="" OR NA#(I)=0 THEN PRINT:PRINT IDM$:GOTO 2980 ELSE 2135
2135
NEXT I
2139
SU#=0
2140
FOR I=1 TO N
2141
SU#=SU#+NA#(I)
2145
NEXT I
2149
MAX=NA#(1):KP=1
2150
FOR I=2 TO N
2151
IF NA#(I)>MAX THEN MAX=NA#(I):KP=I
2152
NEXT I
2154
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
2155
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
2156
IF I$="m" THEN GOTO 10
2157
IF I$="c" THEN GOTO 2000
2158
IF I$=CHR$(13) THEN GOTO 2200
2200
CLS:PRINT:PRINT TAB(8)"C A T E G O R Y
S T R U C T U R E OF ANIMAL
POPULATION":PRINT
2210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
2211
PRINT" Species: ";SP$
2212
PRINT" Category according to:
"CA$:PRINT
2220
PRINT TAB(5)"Category ";TAB(30)"Number
of";TAB(45)"Proportion";TAB(59)"Percentage"
2221
PRINT TAB(5)"Subgroup";TAB(30)"Animals":PRINT
2230
FOR I=1 TO N
2231
PRINT TAB(5)USING"\
\";SG$(I);
2232
PRINT TAB(29)INT(NA#(I));TAB(46)USING"#.######";NA#(I)/SU#;
2233
PRINT TAB(60)USING"##.####";(NA#(I)/SU#)*100
2234 NEXT
I
2240
PRINT:PRINT TAB(5)"T o t a
l";TAB(29)INT(SU#);TAB(46)"1.000000";TAB(59)"100.0000
2500
A$=INKEY$:IF A$="" THEN GOTO 2500
2501
IF N=1 THEN GOTO 2980
2550
CLS:PRINT:PRINT TAB(8)"C A T E G O R Y
S T R U C T U R E OF ANIMAL
POPULATION"
2551
IF MAX<(SU#/2) THEN GOTO 2552 ELSE 2580
2552
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 1 % of total
"INT(SU#);" animals)":PRINT
2553
PRINT
2560
PRINT TAB(2)"Subgroup";TAB(20)"0 10 20 30 40 50 %"
2561
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
2565
FOR I=1 TO N
2566
Z=(NA#(I)/SU#)*100
2567
IF Z<1 THEN GOTO 2568 ELSE 2571
2568
IF Z>0 THEN GOTO 2569 ELSE 2571
2569
PRINT TAB(2)USING"\
\";SG$(I);
2570
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 2579
2571
PRINT TAB(2)USING"\
\";SG$(I);
2572
PRINT TAB(20)CHR$(179);
2573
FOR K=1 TO (NA#(I)/SU#)*100
2574
PRINT CHR$(223);
2575
NEXT K
2576
PRINT
2579
NEXT I:GOTO 2980
2580
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of total
"INT(SU#);" animals)":PRINT
2582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
2584
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
2585
FOR I=1 TO N
2586
Z=(NA#(I)/SU#)*50
2587
IF Z<1 THEN GOTO 2588 ELSE 2591
2588
IF Z>0 THEN GOTO 2589 ELSE 2591
2589
PRINT TAB(2)USING"\
\";SG$(I);
2590
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 2599
2591
PRINT TAB(2)USING"\
\";SG$(I);
2592
PRINT TAB(20)CHR$(179);
2593
FOR K=1 TO (NA#(I)/SU#)*50
2594
PRINT CHR$(223);
2595
NEXT K
2596
PRINT
2599
NEXT I
2980
A$=INKEY$:IF A$="" THEN GOTO 2980
2981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
2982
IF R$="y" OR R$="n" THEN GOTO 2983 ELSE 2990
2983
IF R$="y" THEN GOTO 2000 ELSE 2990
2990
RETURN
3000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.3-ANIMAL POPULATION TERRITORIAL
DISTRIBUTION"
3010
PRINT"=============================================="
3100
PRINT TAB(6)"This subprogramme calculates:"
3102
PRINT TAB(10)"1) animal population - territorial density and
distribution"
3104
PRINT TAB(10)"2) farms - average number of animals and territorial
distribution"
3111
PRINT TAB(10)"3) animal population - simple territorial distribution"
3114
INPUT" Enter choice number:
",S
3115
IF S=1 OR S=2 OR S=3 THEN GOTO 3120 ELSE PRINT IDE$:GOTO 3980
3120
PRINT"INPUT DATA"
3123
INPUT" place (territory), time
";PL$,TI$
3124
INPUT" species, category(ies)
";SP$,CA$
3125
IF (S=1) THEN INPUT" space
measure unit (up to 7 characters !) ";SU$:GOTO 3128
3126
IF (S=2) THEN INPUT" farm type
";FT$
3128
INPUT" number (2 up to 11 !) of
data on space and animals ";N
3130
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 3980
3135
PRINT" List data (names up to 15
characters; all numeric data must be >0 !):"
3140
FOR I=1 TO N
3141
PRINT" ";I;"";
3142
IF (S=1) THEN GOTO 3143 ELSE 3148
3143
INPUT" subterritory, s i z e,
animals ";TE$(I),TS#(I),AN#(I):GOTO 3165
3148
IF (S=2) THEN GOTO 3149 ELSE 3152
3149
INPUT" subterritory, number of f a r m s, animals
";TE$(I),TS#(I),AN#(I):GOTO 3165
3152
IF (S=3) THEN GOTO 3153 ELSE 3165
3153
INPUT" subterritory, number of
animals ";TE$(I),AN#(I):GOTO 3165
3165
IF TE$(I)="" OR AN#(I)=0 THEN PRINT:PRINT IDM$:GOTO 3980 ELSE 3166
3166
NEXT I
3169
SU1#=0:SU2#=0
3170
FOR I=1 TO N
3171
SU1#=SU1#+TS#(I)
3172
NEXT I
3173
FOR I=1 TO N
3174
SU2#=SU2#+AN#(I)
3175
NEXT I
3178
MAX=AN#(1):KP=1
3179
FOR I=2 TO N
3180
IF AN#(I)>MAX THEN MAX=AN#(I):KP=I
3181
NEXT I
3187
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
3188
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
3189
IF I$="m" THEN GOTO 10
3190
IF I$="c" THEN GOTO 3000
3191
IF I$=CHR$(13) THEN GOTO 3200
3200
CLS:PRINT
3202
IF S=1 THEN PRINT TAB(5)"ANIMAL P O
P U L A T I O N - TERRITORIAL DENSITY
AND DISTRIBUTION":PRINT
3204
IF S=2 THEN PRINT TAB(5)"F A R M S:
AVERAGE NUMBER OF ANIMALS AND
TERRITORIAL DISTRIBUTION":PRINT
3206
IF S=3 THEN PRINT TAB(5)"ANIMAL P O
P U L A T I O N - TERRITORIAL
D I S T R I B U T I O N":PRINT
3212
PRINT"Place: "PL$;TAB(50)"Time: ";TI$
3214
PRINT"Species: "SP$;TAB(40)"Category(ies): ";CA$:PRINT
3215
IF S=2 THEN PRINT TAB(15)"Farm type: "FT$
3250
PRINT
3310
IF (S=1) THEN GOTO 3311 ELSE 3320
3311 PRINT
TAB(2)"Subterritory";TAB(19)USING"\ \";SU$;
3312
PRINT TAB(30)"Number
of";TAB(47)"Average";TAB(57)"Proportion";TAB(68)"Percentage":GOTO
3334
3320
IF (S=2) THEN GOTO 3330 ELSE 3340
3330
PRINT TAB(2)"Subterritory";TAB(19)"Farms";
3332
PRINT TAB(30)"Number
of";TAB(47)"Average";TAB(57)"Proportion";TAB(68)"Percentage"
3333
PRINT
TAB(30)"Animals";TAB(47)"Number";TAB(57)"(from a l l
farms)":PRINT:GOTO 3354
3334
PRINT TAB(30)"Animals";TAB(47)"Density":PRINT:GOTO 3354
3340
IF S=3 THEN PRINT TAB(2)"Subterritory";TAB(30)"Number
of";TAB(50)"Proportion";TAB(68)"Percentage"
3342
IF S=3 THEN PRINT TAB(30)"Animals":PRINT
3354
IF (S=2) THEN GOTO 3355 ELSE 3360
3355
FOR I=1 TO N
3356
PRINT TAB(2)USING"\
\";TE$(I);
3357
PRINT TAB(18)TS#(I);TAB(29)INT(AN#(I));TAB(45)USING"######.##";AN#(I)/TS#(I);TAB(58)USING"#.######";TS#(I)/SU1#;
3358
PRINT TAB(70)USING"##.####";(TS#(I)/SU1#)*100:NEXT I
3359
GOTO 3380
3360
IF (S=1) THEN GOTO 3361 ELSE 3370
3361
FOR I=1 TO N
3363
PRINT TAB(2)USING"\
\";TE$(I);
3364
PRINT
TAB(18)TS#(I);TAB(29)INT(AN#(I));TAB(45)USING"######.##";AN#(I)/TS#(I);TAB(58)USING"#.######";AN#(I)/SU2#;
3366
PRINT TAB(70)USING"##.####";(AN#(I)/SU2#)*100
3369
NEXT I:GOTO 3380
3370
FOR I=1 TO N
3371
PRINT TAB(2)USING"\
\";TE$(I);
3372
PRINT TAB(29)INT(AN#(I));TAB(46)USING"######.######";AN#(I)/SU2#;
3373
PRINT TAB(70)USING"##.####";(AN#(I)/SU2#)*100
3374
NEXT I:PRINT
3375
PRINT TAB(2)"T o t a
l";TAB(29)INT(SU2#);TAB(51)"1.000000";TAB(69)"100.0000"
3376
GOTO 3390
3380
PRINT
3382 PRINT
TAB(2)"T o t a
l";TAB(18)INT(SU1#);TAB(29)INT(SU2#);TAB(45)USING"######.##";SU2#/SU1#;
3383
PRINT TAB(58)"1.000000";TAB(69)"100.0000"
3390
IF (S=1) OR (S=3) THEN GOTO 3405 ELSE 3980
3405
A$=INKEY$:IF A$="" THEN GOTO 3405
3406
IF N=1 THEN GOTO 3981
3410
CLS:PRINT
3411
IF S=1 OR S=3 THEN PRINT TAB(5)"S P A C E
STRUCTURE OF ANIMAL
P O P U L A T I O N
DISTRIBUTION"
3413
IF MAX<(SU2#/2) THEN GOTO 3414 ELSE 3450
3414
IF S=1 OR S=3 THEN PRINT:PRINT TAB(12)"(";CHR$(223);" represents
1 % of total "INT(SU2#);"
animals)":PRINT
3416
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 10 20 30 40 50 %"
3417
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
3420
FOR I=1 TO N
3421
Z=(AN#(I)/SU2#)*100
3422
IF Z<1 THEN GOTO 3423 ELSE 3426
3423
IF Z>0 THEN GOTO 3424 ELSE 3426
3424
PRINT TAB(2)USING"\
\";TE$(I);
3425
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 3440
3426
PRINT TAB(2)USING"\
\";TE$(I);
3427
PRINT TAB(20)CHR$(179);
3428
FOR K=1 TO (AN#(I)/SU2#)*100
3429
PRINT CHR$(223);
3430
NEXT K
3431
PRINT
3440
NEXT I
3445
PRINT:GOTO 3980
3450
IF S=1 OR S=3 THEN PRINT:PRINT TAB(12)"(";CHR$(223);" represents
2 % of total "INT(SU2#);"
animals)":PRINT
3452
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 20 40 60 80
100 %"
3453
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
3454
FOR I=1 TO N
3460
Z=(AN#(I)/SU2#)*50
3461
IF Z<1 THEN GOTO 3462 ELSE 3470
3462
IF Z>0 THEN GOTO 3463 ELSE 3470
3463 PRINT
TAB(2)USING"\
\";TE$(I);
3464
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 3480
3470
PRINT TAB(2)USING"\
\";TE$(I);
3471
PRINT TAB(20)CHR$(179);
3473
FOR K=1 TO (AN#(I)/SU2#)*50
3474
PRINT CHR$(223);
3475
NEXT K
3479
PRINT
3480
NEXT I
3980
A$=INKEY$:IF A$="" THEN GOTO 3980
3981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
3982
IF R$="y" OR R$="n" THEN GOTO 3985 ELSE 3990
3985
IF R$="y" THEN GOTO 3000 ELSE 3990
3990
RETURN
4000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.4-BREEDING/PRODUCTION
CONDITIONS INFLUENCING ANIMALS DISTRIBUTION"
4002
PRINT"==================================================================="
4006
PRINT"(animal breeding/production exploitation, technology, concentration,
housing,"
4007
PRINT"herd/flock/farm size, management, economic sector, etc.)"
4100
PRINT"INPUT DATA:"
4105
INPUT" place, time
";PL$,TI$
4110
INPUT" type of
breeding/production conditions ";EC$
4119
INPUT" criterion for subgrouping
";CA$
4120
INPUT" conditions measure units
(up to 10 characters) ";MU$
4121
INPUT" number (2 up to 11 !) of
evaluated subgroups ";N
4122
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 4980
4129
PRINT"List data: "
4130
PRINT"name (up to 16 charac.) of subgroup, number (integer >0 !) of
measure units:"
4131
FOR I=1 TO N
4132
PRINT TAB(10)I;": ";
4133
INPUT SG$(I),NA(I)
4134
IF SG$(I)="" OR NA(I)=0 THEN PRINT:PRINT IDM$:GOTO 4980 ELSE 4135
4135
NEXT I
4139
SU=0
4140
FOR I=1 TO N
4141
SU=SU+NA(I)
4145
NEXT I
4148
MAX=NA(1):KP=1
4149
FOR I=2 TO N
4150
IF NA(I)>MAX THEN MAX=NA(I):KP=I
4151
NEXT I
4154
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
4155
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
4156
IF I$="m" THEN GOTO 10
4157
IF I$="c" THEN GOTO 4000
4158
IF I$=CHR$(13) THEN GOTO 4200
4200
CLS:PRINT:PRINT"
BREEDING/PRODUCTION CONDITIONS INFLUENCING DISTRIBUTION OF
ANIMALS":PRINT
4205
PRINT TAB(6)"Conditions: "EC$
4210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
4212 PRINT"Criterion
for subgroupping: "CA$:PRINT
4220
PRINT TAB(5)"Subgroup";TAB(31)USING"\
\";MU$;TAB(45)"Proportion";TAB(59)"Percentage":PRINT
4230
FOR I=1 TO N
4231
PRINT TAB(5)USING"\
\";SG$(I);
4232
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
4233
PRINT TAB(60)USING"##.####";(NA(I)/SU)*100
4234
NEXT I
4240
PRINT:PRINT TAB(5)"T o t a
l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(59)"100.0000
4500
A$=INKEY$:IF A$="" THEN GOTO 4500
4501
IF N=1 THEN GOTO 4981
4550
CLS:PRINT:PRINT" BREEDING/PRODUCTION CONDITIONS INFLUENCING
DISTRIBUTION OF ANIMALS"
4551
IF MAX<(SU/2) THEN GOTO 4552 ELSE 4580
4552
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 1 % of the
total"INT(SU) MU$;")"
4553
PRINT:PRINT
4560
PRINT TAB(2)"Subgroup";TAB(20)"0 10
20 30 40 50 %"
4561
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
4565
FOR I=1 TO N
4566
Z=(NA(I)/SU)*100
4567
IF Z<1 THEN GOTO 4568 ELSE 4571
4568
IF Z>0 THEN GOTO 4569 ELSE 4571
4569
PRINT TAB(2)USING"\
\";SG$(I);
4570
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 4578
4571
PRINT TAB(2)USING"\
\";SG$(I);
4572
PRINT TAB(20)CHR$(179);
4573
FOR K=1 TO (NA(I)/SU)*100
4574
PRINT CHR$(223);
4575
NEXT K
4576
PRINT
4578
NEXT I
4579
PRINT:GOTO 4980
4580
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 2 % of total
"INT(SU) MU$;")":PRINT
4582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
4584
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
4585
FOR I=1 TO N
4586
Z=(NA(I)/SU)*50
4587
IF Z<1 THEN GOTO 4588 ELSE 4591
4588
IF Z>0 THEN GOTO 4589 ELSE 4591
4589
PRINT TAB(3)USING"\
\";SG$(I);
4590
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 4599
4591
PRINT TAB(3)USING"\
\";SG$(I);
4592
PRINT TAB(20)CHR$(179);
4593
FOR K=1 TO (NA(I)/SU)*50
4594
PRINT CHR$(223);
4595
NEXT K
4596
PRINT
4599
NEXT I:PRINT
4980
A$=INKEY$:IF A$="" THEN GOTO 4980
4981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
4982
IF R$="y" OR R$="n" THEN GOTO 4983 ELSE 4990
4983
IF R$="y" THEN GOTO 4000 ELSE 4990
4990
RETURN
5000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.5-ECOLOGICAL CONDITIONS
INFLUENCING ANIMALS DISTRIBUTION"
5002
PRINT"=========================================================="
5005
PRINT"[atmospherical, geospherical, hydrospherical and biospherical
(flora,fauna)"
5006
PRINT"factors, hygiene, etc.]"
5100
PRINT"INPUT DATA:"
5105
INPUT" place, time
";PL$,TI$
5110
INPUT" type of ecological conditions
";EC$
5119
INPUT" criterion for subgrouping
";CA$
5120
INPUT" ecological conditions
measure units (up to 10 characters)";MU$
5121
INPUT" number (2 up to 11 !) of
evaluated subgroups ";N
5122
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 5980
5129
PRINT"List data: "
5130
PRINT"name (up to 16 charac.) of subgroup, number (integer >0 !) of
measure units:"
5131
FOR I=1 TO N
5132
PRINT TAB(15)I;": ";
5133
INPUT SG$(I),NA(I)
5134
IF SG$(I)="" OR NA(I)=0 THEN PRINT:PRINT IDM$:GOTO 5980 ELSE 5135
5135
NEXT I
5139
SU=0
5140
FOR I=1 TO N
5141
SU=SU+NA(I)
5145
NEXT I
5148
MAX=NA(1):KP=1
5149
FOR I=2 TO N
5150
IF NA(I)>MAX THEN MAX=NA(I):KP=I
5151
NEXT I
5154
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
5155
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
5156
IF I$="m" THEN GOTO 10
5157
IF I$="c" THEN GOTO 5000
5158
IF I$=CHR$(13) THEN GOTO 5200
5200
CLS:PRINT:PRINT" ECOLOGICAL
CONDITIONS INFLUENCING ANIMAL POPULATION DISTRIBUTION":PRINT
5205
PRINT TAB(6)"Conditions: "EC$
5210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
5212
PRINT"Criterion for subgroupping: "CA$:PRINT
5220
PRINT TAB(5)"Subgroup";TAB(31)USING"\ \";MU$;
5221
PRINT TAB(45)"Proportion";TAB(59)"Percentage":PRINT
5230
FOR I=1 TO N
5231
PRINT TAB(5)USING"\
\";SG$(I);
5232
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
5233
PRINT TAB(60)USING"##.####";(NA(I)/SU)*100
5234
NEXT I
5240
PRINT:PRINT TAB(5)"T o t a l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(59)"100.0000
5500
A$=INKEY$:IF A$="" THEN GOTO 5500
5501
IF N=1 THEN GOTO 5981
5550
CLS:PRINT:PRINT TAB(8)" S T R U C T U R E
OF E C O L O G I C A L CONDITIONS"
5551
IF MAX<(SU/2) THEN GOTO 5552 ELSE 5580
5552
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 1 % of the
total"INT(SU)
MU$;")":PRINT
5553
PRINT
5560
PRINT TAB(2)"Subgroup";TAB(20)"0 10 20 30 40 50 %"
5561
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
5565
FOR I=1 TO N
5566
Z=(NA(I)/SU)*100
5567
IF Z<1 THEN GOTO 5568 ELSE 5571
5568
IF Z>0 THEN GOTO 5569 ELSE 5571
5569
PRINT TAB(2)USING"\
\";SG$(I);
5570
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 5578
5571
PRINT TAB(2)USING"\
\";SG$(I);
5572
PRINT TAB(20)CHR$(179);
5573
FOR K=1 TO (NA(I)/SU)*100
5574
PRINT CHR$(223);
5575
NEXT K
5576
PRINT
5578
NEXT I
5579
PRINT:GOTO 5980
5580
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 2 % of total
"INT(SU) MU$;")":PRINT
5582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
5584
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
5585
FOR I=1 TO N
5586
Z=(NA(I)/SU)*50
5587
IF Z<1 THEN GOTO 5588 ELSE 5591
5588
IF Z>0 THEN GOTO 5589 ELSE 5591
5589 PRINT
TAB(3)USING"\
\";SG$(I);
5590
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 5599
5591
PRINT TAB(3)USING"\
\";SG$(I);
5592
PRINT TAB(20)CHR$(179);
5593
FOR K=1 TO (NA(I)/SU)*50
5594
PRINT CHR$(223);
5595
NEXT K
5596
PRINT
5599
NEXT I:PRINT
5980
A$=INKEY$:IF A$="" THEN GOTO 5980
5981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
5982
IF R$="y" OR R$="n" THEN GOTO 5983 ELSE 5990
5983
IF R$="y" THEN GOTO 5000 ELSE 5990
5990
RETURN
6000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.6-SELECTED INDICATORS RELATED
TO DISEASE RESISTANT ANIMALS"
6010
PRINT"============================================================"
6030
PRINT"INPUT DATA:"
6056
INPUT" species, category(ies)
";SP$,CA$
6057
INPUT" type/form of population
resistance ";RE$
6058
INPUT" place ";LU$
6060
PRINT" Do you want to calculate
point prevalence at a given moment (m)"
6061
INPUT" or
indicators related to a given period (p) ";P$
6062
IF P$<>"m" AND P$<>"p" THEN PRINT IDE$:GOTO
6980
6063
IF P$="m" THEN GOTO 6068
6064
IF P$="p" THEN GOTO 6069
6068
INPUT" time-moment
";TI$:GOTO 6070
6069
INPUT" time-period
";TI$:GOTO 6082
6070
PRINT:INPUT" total number of
animals existing at the given moment
";A:PRINT
6071 INPUT" number of resistant animals existing at
the given moment ";ER
6072
IF A=0 OR ER=0 THEN PRINT:PRINT IDM$:GOTO 6980 ELSE 6154
6082
PRINT:PRINT" total number of
animals existing"
6083
INPUT" at the
beginning of the period ";D
6085
INPUT" total number of animals
existing in the period ";B
6086
INPUT" average number of animals
in the period
";C:PRINT
6103
PRINT" number of resistant
animals existing"
6104
INPUT" at the beginning of the period ";DR
6105
INPUT" number of resistant
animals existing in the period
";FR
6107
INPUT" average number of
resistant animals in the period
";GR:PRINT
6109
INPUT" number of new resistant
animals in the period ";HR
6111
PRINT" number of extinct
resistant animals (dead+slaughtered+"
6112
INPUT" +removed+with immunity
end) in the period ";IR
6114
IF (D+B+C+DR+FR+GR+HR+IR)=0 THEN PRINT IDM$:GOTO 6980
6120
PRINT
6154
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
6155
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
6156
IF I$="m" THEN GOTO 10
6157
IF I$="c" THEN GOTO 6000
6158
IF I$=CHR$(13) THEN GOTO 6200
6200
CLS:PRINT TAB(6)"SELECTED INDICATORS RELATED TO DISEASE RESISTANT
ANIMALS":PRINT
6208
PRINT TAB(6)"Type of resistance: ";RE$:PRINT
6209
PRINT"Place: "LU$;TAB(50)"Time: "TI$
6210
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$:PRINT
6211
PRINT
6212
IF P$="m" THEN GOTO 6310 ELSE 6215
6215
IF DR>0 AND D>0 THEN GOTO 6315
6220
IF FR>0 AND B>0 THEN GOTO 6320
6230
IF GR>0 AND C>0 THEN GOTO 6330
6240
IF HR>0 AND B>0 THEN GOTO 6340
6250
IF HR>0 AND C>0 THEN GOTO 6350
6260
IF HR>0 AND D>0 THEN GOTO 6360
6270
IF IR>0 AND B>0 THEN GOTO 6370
6280
IF IR>0 AND C>0 THEN GOTO 6380
6290
IF IR>0 AND D>0 THEN GOTO 6390 ELSE 6980
6310
PRINT:PRINT TAB(6)"Point prevalence rate of resistant animals =
";USING"#.####";ER/A:PRINT
6311
PRINT" =
";USING"###.####";(ER/A)*100;
6312
PRINT" %":PRINT
6313
PRINT:GOTO 6980
6315
PRINT:PRINT" Initial point
prevalence rate of resistant animals
=
";USING"#.####";DR/D:GOTO 6220
6320
PRINT" Period prevalence rate of
resistant animals = ";USING"#.####";FR/B:GOTO
6230
6330
PRINT" Average prevalence rate
of resistant animals = ";USING"#.####";GR/C:GOTO
6240
6340
PRINT:PRINT" Incidence rate of
resistant animals to existing total = ";USING"#.####";HR/B:GOTO
6250
6350
PRINT" Incidence rate of
resistant animals to average total
=
";USING"#.####";HR/C:GOTO 6260
6360
PRINT" Incidence rate of
resistant animals to initial total
=
";USING"#.####";HR/D:GOTO 6270
6370
PRINT:PRINT" Extinction rate of
resistant animals to existing total =
";USING"#.####";IR/B:GOTO 6280
6380
PRINT" Extinction rate of
resistant animals to average total
=
";USING"#.####";IR/C:GOTO 6290
6390
PRINT" Extinction rate of
resistant animals to initial total
=
";USING"#.####";IR/D
6980
A$=INKEY$:IF A$="" THEN GOTO 6980
6981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
6982
IF R$="y" OR R$="n" THEN GOTO 6983 ELSE 6990
6983
IF R$="y" THEN GOTO 6000 ELSE 6990
6990
RETURN
7000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.7-SELECTED INDICATORS RELATED
TO DISEASE SUSCEPTIBLE ANIMALS"
7010
PRINT"=============================================================="
7050
PRINT"INPUT DATA:"
7056
INPUT" species, category(ies)
";SP$,CA$
7057
INPUT" type of population
susceptibility ";SU$
7058
INPUT" place ";LU$
7060
PRINT" Do you want to calculate
point prevalence at a given moment (m)"
7061
INPUT" or
indicators related to a given period (p) ";P$
7062
IF P$<>"m" AND P$<>"p" THEN PRINT IDE$:GOTO
7980
7063
IF P$="m" THEN GOTO 7068
7064
IF P$="p" THEN GOTO 7069
7068
PRINT:INPUT" time-moment
";TI$:PRINT:GOTO 7070
7069
INPUT" time-period
";TI$:GOTO 7082
7070
PRINT:INPUT" total number of
animals existing at the given moment
";A:PRINT
7071
INPUT" number of susceptible
animals existing at the given moment ";ES
7072
IF A=0 OR ES=0 THEN PRINT:PRINT IDM$:GOTO 7980 ELSE GOTO 7120
7082
PRINT:PRINT" total number of
animals existing"
7083
INPUT"
at the beginning of the period ";D
7085
INPUT" total number of animals
existing in the period
";B
7086
INPUT" average number of animals
in the period
";C:PRINT
7103
PRINT" number of susceptible
animals existing"
7104
INPUT"
at the beginning of the period ";DS
7105
INPUT" number of susceptible
animals existing in the period
";FS
7107
INPUT" average number of
susceptible animals in the period
";GS:PRINT
7109
INPUT" number of new susceptible
animals in the period
";HS
7111
PRINT" number of extinct
susceptible animals (dead+slaughtered+"
7112
INPUT"
+removed+immunized) in the period ";IS
7114
IF (D+B+C+DS+FS+GS+HS+IS)=0 THEN PRINT IDM$:GOTO 7980
7120
PRINT
7154
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
7155
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
7156
IF I$="m" THEN GOTO 10
7157
IF I$="c" THEN GOTO 7000
7158
IF I$=CHR$(13) THEN GOTO 7200
7200
CLS:PRINT TAB(6)"SELECTED INDICATORS RELATED TO DISEASE SUSCEPTIBLE
ANIMALS"
7208
PRINT:PRINT TAB(6)"Type of susceptibility: ";SU$:PRINT
7209
PRINT"Place: "LU$;TAB(50)"Time: "TI$
7210
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$:PRINT
7211
PRINT
7212
IF P$="m" THEN GOTO 7310 ELSE 7215
7215
IF DS>0 AND D>0 THEN GOTO 7315
7220
IF FS>0 AND B>0 THEN GOTO 7320
7230
IF GS>0 AND C>0 THEN GOTO 7330
7240
IF HS>0 AND B>0 THEN GOTO 7340
7250
IF HS>0 AND C>0 THEN GOTO 7350
7260
IF HS>0 AND D>0 THEN GOTO 7360
7270
IF IS>0 AND B>0 THEN GOTO 7370
7280
IF IS>0 AND C>0 THEN GOTO 7380
7290
IF IS>0 AND D>0 THEN GOTO 7390 ELSE 7980
7310
PRINT:PRINT TAB(6)"Point prevalence rate of susceptible animals =
";USING"#.####";ES/A:PRINT
7311
PRINT"
= "USING"###.####";(ES/A)*100;
7312
PRINT" %":GOTO 7980
7315
PRINT:PRINT" Initial point
prevalence rate of susceptible animals
=
";USING"#.####";DS/D:GOTO 7220
7320
PRINT" Period prevalence rate of
susceptible animals = ";USING"#.####";FS/B:GOTO
7230
7330
PRINT" Average prevalence rate
of susceptible animals = ";USING"#.####";GS/C:GOTO
7240
7340
PRINT:PRINT" Incidence rate of
susceptible animals to existing total
=
";USING"#.####";HS/B:GOTO 7250
7350
PRINT" Incidence rate of
susceptible animals to average total
=
";USING"#.####";HS/C:GOTO 7260
7360
PRINT" Incidence rate of
susceptible animals to initial total
=
";USING"#.####";HS/D:GOTO 7270
7370
PRINT:PRINT" Extinction rate of
susceptible animals to existing total =
";USING"#.####";IS/B:GOTO 7280
7380
PRINT" Extinction rate of
susceptible animals to average total
=
";USING"#.####";IS/C:GOTO 7290
7390
PRINT" Extinction rate of
susceptible animals to initial total
=
";USING"#.####";IS/D
7980
A$=INKEY$:IF A$="" THEN GOTO 7980
7981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
7982
IF R$="y" OR R$="n" THEN GOTO 7983 ELSE 7990
7983
IF R$="y" THEN GOTO 7000 ELSE 7990
7990
RETURN
8000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.8-ANIMAL POPULATION AVERAGE
PRODUCTION PER ANIMAL, INPUT, SPACE AND TIME"
8010
PRINT"=========================================================================="
8050
PRINT TAB(6)"This subprogramme calculates average animal production
per:"
8052
PRINT TAB(10)"1) animal 2)
input 3) space 4) time"
8060
INPUT" Enter choice number:
",CH
8070
IF CH=1 OR CH=2 OR CH=3 OR CH=4 THEN GOTO 8080 ELSE PRINT IDE$:GOTO 8980
8080
PRINT"INPUT DATA:"
8100
INPUT" place, period
";PL$,PE$
8101
INPUT" species, category(ies)
";SP$,CA$
8103
IF CH=1 THEN INPUT" total number
of animals ";AN ELSE GOTO 8105
8104 IF
AN=0 THEN PRINT IDM$:GOTO 8980 ELSE 8119
8105
IF CH=2 OR CH=3 OR CH=4 THEN INPUT"
animal product ";PR$
8106
IF CH=2 OR CH=3 OR CH=4 THEN INPUT"
product measure units (up to 6 characters !) ";MU$
8107
IF CH=2 THEN INPUT" total
quantity of product
";Q#
8108
IF CH=2 AND Q#=0 THEN PRINT IDM$:GOTO 8980 ELSE 8117
8117
IF CH=3 THEN INPUT" space
measure units (up to 6 characters !)
";U$
8118
IF CH=4 THEN INPUT" time measure
units (up to 6 characters !) ";U$
8119
INPUT" How many data to be
processed (up to 11 !) ";N
8120
IF N=0 OR N>11 THEN PRINT IDE$:GOTO 8980
8123
PRINT:PRINT"List data (names up to 16 charac.), values (integer >0 !)
in measure units:"
8124
FOR I=1 TO N
8125
PRINT I;"";
8126
IF CH=1 THEN INPUT" product, measure units, total quantity
";IN$(I),U$(I),Q#(I)
8127
IF CH=2 THEN INPUT" input type, input units, input value
";IN$(I),U$(I),Q#(I)
8128
IF CH=3 THEN INPUT" place, size, total product quantity
";IN$(I),S(I),Q#(I)
8129
IF CH=4 THEN INPUT" subperiod, duration, total product quantity
";IN$(I),S(I),Q#(I)
8130
IF IN$(I)="" OR Q#(I)=0 THEN PRINT:PRINT IDM$:GOTO 8980 ELSE 8131
8131
NEXT I
8132
T#=0:S=0
8133
FOR I=1 TO N
8134
T#=T#+Q#(I)
8135
S=S+S(I)
8136
NEXT I
8138
MAX=Q#(1):KP=1
8139
FOR I=2 TO N
8140 IF
Q#(I)>MAX THEN MAX=Q#(I):KP=I
8141
NEXT I
8142
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
8143
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
8144
IF I$="m" THEN GOTO 10
8145
IF I$="c" THEN GOTO 8000
8146
IF I$=CHR$(13) THEN GOTO 8150
8150 CLS:PRINT::PRINT TAB(4)"A N I M A L P O P U L A T I O N A V E R A G E P R O D U C T I O N":PRINT
8151
PRINT"Place: "PL$;TAB(50)"Period: "PE$
8152
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
8153
IF CH=2 OR CH=3 OR CH=4 THEN PRINT"Product: "PR$;TAB(40)"Measure
units: "MU$ ELSE 8154
8154
IF CH=1 THEN PRINT TAB(14)"Total number of animals: ";INT(AN)
8156
IF CH=2 THEN PRINT TAB(14)"Total quantity of product:
"INT(Q#+.5):PRINT
8157
IF CH=1 THEN GOTO 8158 ELSE 8164
8158
PRINT
8159
PRINT
TAB(6)"Product";TAB(25)"Measure";TAB(40)"Quantity";TAB(60)"Average"
8160
IF CH=1 THEN PRINT TAB(25)"Units";TAB(60)"per Animal":PRINT
8161
FOR I=1 TO N:PRINT I;TAB(6)USING"\ \";IN$(I);
8162
PRINT
TAB(25)U$(I);TAB(39)INT(Q#(I)+.5);TAB(60)USING"####.####";Q#(I)/AN:NEXT
I:PRINT
8163
GOTO 8980
8164
IF CH=2 THEN GOTO 8165 ELSE 8172
8165
PRINT
8166
PRINT
TAB(6)"Input";TAB(25)"Input";TAB(40)"Input";TAB(60)"Average
"MU$
8167
PRINT TAB(25)"Unit";TAB(40)"Quantity";TAB(60)"per
Input Unit":PRINT
8168
FOR I=1 TO N
8169
PRINT I;TAB(6)USING"\
\";IN$(I);
8170
PRINT
TAB(25)U$(I);TAB(39)INT(Q#(I)+.5);TAB(60)USING"####.####";Q#/Q#(I)
8171
NEXT I:GOTO 8980
8172
PRINT
8173
IF CH=3 THEN D$="Place":IF CH=3 THEN Z$="Size"
8174
IF CH=4 THEN D$="Superiod":IF CH=4 THEN Z$="Duration"
8175
PRINT TAB(3)D$;TAB(21)Z$;TAB(31)"Quantity";TAB(45)"Average
"MU$
8176
PRINT TAB(21)U$;TAB(31)"of Product";TAB(45)"per "U$;
8177
PRINT TAB(60)"Proportion";TAB(75)"%"
8178
PRINT
8188
FOR I=1 TO N
8189
PRINT TAB(3)USING"\
\";IN$(I);
8190
PRINT
TAB(20)INT(S(I)+.5);TAB(30)INT(Q#(I)+.5);TAB(44)USING"########.##";Q#(I)/S(I);
8191
PRINT TAB(61)USING"#.####";Q#(I)/T#;
8192
PRINT TAB(71)USING"###.####";Q#(I)/T#*100
8193
NEXT I:PRINT
8194
IF CH=3 OR CH=4 THEN GOTO 8195 ELSE 8980
8195
PRINT TAB(3)"T o t a
l";TAB(20)INT(S+.5);TAB(30)INT(T#+.5);TAB(44)USING"########.##";(T#/S);
8196
PRINT TAB(61)"1.0000";TAB(71)"100.0000"
8200
A$=INKEY$:IF A$="" THEN GOTO 8200
8201
IF N=1 THEN GOTO 8981
8205
CLS:PRINT:PRINT TAB(5)"A N I M A L
P O P U L A T I O N A V E R A G
E P R O D U C T I O N"
8210
IF MAX>(T#/2) THEN GOTO 8212 ELSE 8240
8212
PRINT:PRINT TAB(14)"(";CHR$(223);" represents 2 % of total
"INT(T#+.5) MU$;")":PRINT
8216
PRINT:PRINT TAB(3)D$;TAB(25)"0
20 40 60 80
100 %"
8218
PRINT
TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
8219
FOR I=1 TO N
8220
Z=Q#(I)/T#*50
8221
IF Z<1 THEN GOTO 8222 ELSE 8225
8222
IF Z>0 THEN GOTO 8223 ELSE 8225
8223
PRINT TAB(2)USING"\
\";IN$(I);
8224
PRINT TAB(25)CHR$(179);CHR$(249):GOTO 8235
8225
PRINT TAB(2)USING"\
\";IN$(I);
8226
PRINT TAB(25)CHR$(179);
8227
FOR K=1 TO Q#(I)/T#*50
8228
PRINT CHR$(223);
8230
NEXT K
8235
NEXT I:GOTO 8980
8240
PRINT:PRINT TAB(14)"(";CHR$(223);" represents 1 % of total
"INT(T#+.5) MU$;")":PRINT
8246
PRINT:PRINT TAB(3)D$;TAB(25)"0
10 20 30 40 50 %"
8248
PRINT TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
8249
FOR I=1 TO N
8250
Z=Q#(I)/T#*100
8251
IF Z<1 THEN GOTO 8252 ELSE 8255
8252
IF Z>0 THEN GOTO 8253 ELSE 8255
8253
PRINT TAB(2)USING"\
\";IN$(I);
8254
PRINT TAB(25)CHR$(179);CHR$(249):GOTO 8265
8255
PRINT TAB(2)USING"\
\";IN$(I);
8256
PRINT TAB(25)CHR$(179);
8257
FOR K=1 TO Q#(I)/T#*100
8258
PRINT CHR$(223);
8260
NEXT K
8265
NEXT I
8980
A$=INKEY$:IF A$="" THEN GOTO 8980
8981
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
8982
IF R$="y" OR R$="n" THEN GOTO 8983 ELSE 8990
8983
IF R$="y" THEN GOTO 8000 ELSE 8990
8990
RETURN
9000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.9-ANIMAL POPULATION DYNAMICS -
'VERTICAL MOVEMENT'"
9002
PRINT"===================================================="
9020
PRINT TAB(3)"This subprogramme calculates :"
9022
PRINT TAB(5)"1) combination of numbers of existing, new and extinct
animals"
9023
PRINT TAB(5)"2) animal population replacement (restocking) rates"
9025
PRINT TAB(5)"3) estimate of number of animals w i t h i n
one regular generation cycle"
9026
PRINT TAB(5)"4) estimate of number of animals w i t h i n
one regular"
9027
PRINT " c
o n t i n u i n g production/breeding
cycle"
9028
PRINT TAB(5)"5) addition and withdrawal rates of animal population
(applicable"
9029
PRINT TAB(5)" also on
import/export of animals)"
9030
PRINT TAB(5)"6) simple model of animal population growth"
9041
INPUT" Enter choice number:
",S
9050
IF S=1 OR S=2 OR S=3 OR S=4 OR S=5 OR S=6 THEN GOTO 9062 ELSE PRINT IDE$:GOTO
9980
9062
PRINT"INPUT DATA"
9063
INPUT" place, time-period
"PL$,TI$
9065
INPUT" species, category(ies)
";SP$,CA$
9068
IF S=1 THEN GOTO 9070 ELSE 9079
9070
PRINT"Question about indicator to be calculated to be left without the
answer ! "
9071
PRINT"The other t h r e e data must be given ! Attention to values'
logic !":PRINT
9072
INPUT" number of animals
existing at the beginning of the period
";AO#
9073
INPUT" number of n e w
born and introduced animals in the period ";AN#
9074
PRINT" number of e x t i n c t (dead+slaughtered+removed)
animals"
9075
INPUT"
in the period ";AE#
9076
INPUT" number of animals
existing at the e n d of the period ";AF#:PRINT
9077
IF (AO#+AN#+AE#+AF#)=0 THEN PRINT IDM$:GOTO 9980 ELSE 9184
9079
IF S=2 THEN GOTO 9080 ELSE 9087
9080
PRINT:INPUT" number of animals
existing at the beginning of the period
";AO
9081
INPUT" number of n e w
born animals in the period ";AB
9082
INPUT" number of animals
introduced in the period
";AI
9083
INPUT" number of animals
existing in the period
";AP
9084
INPUT" average number of animals
existing in the period
";AA
9085
INPUT" duration (in days) of one
population reproduction cycle
";RC
9086
IF (AB+AI+AP+AA)=0 THEN PRINT IDM$:GOTO 9980
9087
IF S=3 THEN GOTO 9088 ELSE 9094
9088
PRINT:INPUT" number of animals
at the beginning of the period
";AO
9089
PRINT" duration (in days) of one
regular generation"
9090
INPUT"
(replacement) cycle ";RC
9091
PRINT" duration (in days)
between the initial and evaluated"
9092
INPUT"
days w i t h i n the generation cycle ";PX
9093
IF AO=0 OR RC=0 OR PX=0 OR PX>RC THEN PRINT IDE$:GOTO 9980 ELSE 9184
9094
IF S=4 THEN GOTO 9095 ELSE 9110
9095
PRINT:INPUT" number of animals
at the beginning of the period
";AOP
9096
PRINT" duration (in days) of one
regular c o n t i n u i n g"
9097
INPUT"
production/breeding (replacement) cycle
";PPC
9098
PRINT" duration (in days)
between the initial and evaluated "
9099
INPUT" days w i t h i n
the production/breeding cycle
";PPX
9100
IF AOP=0 OR PPC=0 OR PPX=0 OR PPX>PPC THEN PRINT IDE$:GOTO 9980 ELSE 9184
9110
IF S=5 THEN GOTO 9111 ELSE 9150
9111
PRINT:PRINT" total number of
animals existing"
9112
INPUT"
at the beginning of the period
";D
9113
INPUT" total number of animals
existing in the period
";B
9114
INPUT" average number of animals
existing in the period
";C
9115
INPUT" number of new
(born+introduced) animals in the period
";H
9116
PRINT" number of extinct animals
(dead+slaughtered+removed)"
9117
INPUT" in
the period ";I
9118
IF (H+I)=0 THEN PRINT IDM$:GOTO 9980 ELSE 9184
9150
IF S=6 THEN GOTO 9151 ELSE 9184
9151
INPUT" number of animals at the
beginning of the period
";AI
9169
INPUT" number (2 up to 11 !) of
planned subperiods
";N
9170
IF AI=0 OR N=0 OR N>11 THEN PRINT IDE$:GOTO 9980
9174
CLS:PRINT:PRINT"List data:":PRINT
9175
PRINT"subperiod (name up to 12 characters !),"
9176
PRINT" supposed number of new
(born+introduced) animals,"
9177
PRINT" supposed number of
extinct (dead+slaughtered+removed) animals"
9178
PRINT
9179
FOR I=1 TO N
9180
PRINT TAB(10)I;":";
9181
INPUT" ";SU$(I),IN(I),EX(I)
9182
IF SU$(I)="" THEN PRINT:PRINT IDM$:GOTO 9980 ELSE 9183
9183
NEXT I
9184
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
9185
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
9186
IF I$="m" THEN GOTO 10
9187
IF I$="c" THEN GOTO 9000
9188
IF I$=CHR$(13) THEN GOTO 9200
9200
CLS:IF S=6 THEN PRINT:PRINT TAB(6)"SIMPLE
MODEL FOR A N I M A L
P O P U L A T I O N G R O W T
H":GOTO 9205
9202
CLS:PRINT:PRINT"RESULT:"
9205
PRINT:PRINT"Place: "PL$;TAB(50)"Time-period: "TI$
9207
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
9208
PRINT
9210
IF S=1 THEN GOTO 9220 ELSE 9250
9220
PRINT:IF AO#>0 AND AN#>0 AND AE#>0 THEN PRINT TAB(5)"Number of
animals at the end of the period
= "INT(AO#+AN#-AE#)
9222
IF AF#>0 AND AN#>0 AND AE#>0 THEN PRINT:PRINT TAB(5)"Number of
animals at the beginning of the period
= "INT(AF#-AN#+AE#)
9224
IF AF#>0 AND AO#>0 AND AE#>0 THEN PRINT:PRINT TAB(5)"Number of
new animals in the period
= "INT(AF#-AO#+AE#)
9226
IF AO#>0 AND AF#>0 AND AN#>0 THEN PRINT:PRINT TAB(5)"Number of
extinct animals in the period
= "INT(AO#-AF#+AN#)
9228
IF AO#>0 AND AN#>0 THEN PRINT:PRINT TAB(5)"Number of animals
existing in the period =
"INT(AO#+AN#)
9230
IF AF#>0 AND AN#>0 AND AE#>0 THEN PRINT:PRINT TAB(5)"Number of
animals existing in the period
= "INT((AF#-AN#+AE#)+AN#)
9232
IF AF#>0 AND AO#>0 AND AE#>0 THEN PRINT:PRINT TAB(5)"Number of
animals existing in the period
= "INT((AF#-AO#+AE#)+AO#)
9240
GOTO 9980
9250
IF S=2 THEN GOTO 9255 ELSE 9300
9255
REM:IF (AB+AI)>0 AND AO>0 AND AP<0 THEN GOTO 9256
9256
REM:LET AP=(AB+AI+AO)
9260
PRINT:IF (AB+AI)>0 AND AO>0 THEN GOTO 9261 ELSE 9263
9261
PRINT" Replacement (restocking)
rate":PRINT
9262
PRINT"
to initial number of animals
=
";USING"#.####";(AB+AI)/AO:PRINT
9263
IF (AB+AI)>0 AND AP>0 THEN GOTO 9264 ELSE 9266
9264
PRINT" Replacement (restocking)
rate":PRINT
9265
PRINT"
to existing number of animals =
";USING"#.####";(AB+AI)/AP:PRINT
9266
IF (AB+AI)>0 AND AA>0 THEN GOTO 9267 ELSE 9269
9267
PRINT" Replacement (restocking)
rate":PRINT
9268
PRINT"
to average number of animals
=
";USING"#.####";(AB+AI)/AA:PRINT
9269
PRINT
9270
IF RC>0 THEN PRINT" Annual
proportion of reproduction cycle
= ";USING"##.####";365/RC
9272
GOTO 9980
9300
IF S=3 THEN GOTO 9310 ELSE 9350
9310
PRINT:PRINT" Estimated number of
animals existing at the beginning":PRINT
9311
PRINT" and still
remaining +/ at the evaluated day =
"INT(AO*(1-PX/RC)):PRINT
9312
PRINT:PRINT"
------------------------------"
9313
PRINT:PRINT" +/ If not removed
prematurely and in absence of migration."
9314
GOTO 9980
9350
IF S=4 THEN GOTO 9351 ELSE 9360
9351
PRINT:PRINT" Estimated number of
animals existing at the beginning":PRINT
9352 PRINT" and still remaining +/ at the evaluated day =
"INT(AOP*(1-PPX/PPC)):PRINT
9353
PRINT:PRINT"
------------------------------"
9354
PRINT:PRINT" +/ If not removed
prematurely and in absence of migration."
9359
GOTO 9980
9360 IF
S=5 THEN GOTO 9400 ELSE 9450
9400
PRINT:IF H>0 AND B>0 THEN PRINT" Addition rate of animals to existing
total = ";USING"#.####";H/B
9429
IF H>0 AND C>0 THEN PRINT"
Addition rate of animals to average total =
";USING"#.####";H/C
9431
IF H>0 AND D>0 THEN PRINT"
Addition rate of animals to initial total =
";USING"#.####";H/D
9433
IF I>0 AND B>0 THEN PRINT:PRINT" Withdrawal rate of animals to existing
total = ";USING"#.####";I/B
9435
IF I>0 AND C>0 THEN PRINT"
Withdrawal rate of animals to average total =
";USING"#.####";I/C
9437
IF I>0 AND D>0 THEN PRINT"
Withdrawal rate of animals to initial total =
";USING"#.####";I/D:PRINT
9440
IF H>0 AND I>0 THEN PRINT"
Balance between additions and withdrawals =
"INT(H-I):PRINT
9442
PRINT" Ratio of animal
population additions/withdrawals =
";USING"###.####";H/I
9444
PRINT" Ratio of animal
population withdrawals/additions =
";USING"###.####";I/H
9449
GOTO 9980
9450
IF S=6 THEN GOTO 9451 ELSE 9980
9451
PRINT TAB(5)"Initial number of animals:";INT(AI+.5)
9460
'PRINT:PRINT TAB(6)"SIMPLE
MODEL FOR A N I M A L
P O P U L A T I O N G R O W T
H "
9464
PRINT
9472
PRINT TAB(8)"Subperiod";TAB(28)"New";TAB(44)"Extinct";TAB(60)"FINAL"
9473
PRINT:IN=0:EX=0
9474
FOR I=1 TO N
9475
IN=IN+IN(I)
9476
EX=EX+EX(I)
9477
PRINT I;TAB(8)USING"\
\";SU$(I);
9478
PRINT TAB(27)INT(IN(I));TAB(43)INT(EX(I));TAB(59)INT(AI+IN-EX)
9479
NEXT I
9480
A$=INKEY$:IF A$="" THEN GOTO 9480
9481
IF N=1 THEN GOTO 9981 ELSE 9482
9482
IF (AI+IN-EX)<(AI/100*40) OR (AI+IN-EX)>(AI/100*160) THEN GOTO 9981 ELSE
9486
9486
'A$=INKEY$:IF A$="" THEN GOTO 9486
9487
CLS:PRINT:PRINT TAB(6)"SIMPLE
MODEL FOR A N I M A L
P O P U L A T I O N G R O W T
H "
9488
PRINT:PRINT TAB(12)"(";CHR$(223);" represents 2 % of initial
total"INT(AI);" animals)":PRINT
9489
PRINT
9490
PRINT TAB(2)"End of"
9491
PRINT TAB(2)"Subperiod";TAB(15)"40 60 80
100 120 140
160 %"
9492
PRINT
TAB(15)CHR$(179)"---------|---------|---------|---------|---------|---------I"
9493
PRINT TAB(7)"(Start)";TAB(15)CHR$(179);
9494
FOR P=1 TO 30:PRINT CHR$(223);
9495
NEXT P
9496
LET U=0
9497
FOR I=1 TO N
9498 U=U+(IN(I)-EX(I))
9499 Z=(((AI+U)/AI)*50)-20
9500
IF Z<1 THEN GOTO 9501 ELSE 9504
9501
IF Z>0 THEN GOTO 9502 ELSE 9504
9502
PRINT TAB(2)USING"\
\";SU$(I);
9503
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 9512
9504
PRINT TAB(2)USING"\
\";SU$(I);
9505
PRINT TAB(15)CHR$(179);
9506
FOR K=1 TO (((AI+U)/AI)*50)-20
9510
PRINT CHR$(223);
9511
NEXT K
9512
NEXT I
9980
A$=INKEY$:IF A$="" THEN GOTO 9980
9981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
9982
IF R$="y" OR R$="n" THEN GOTO 9983 ELSE 9990
9983
IF R$="y" THEN GOTO 9000 ELSE 9990
9990
RETURN
10000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.10-ESTIMATION OF NUMBER OF
ANIMALS ACCORDING TO SURVIVAL RATES"
10010
PRINT"================================================================"
10020
PRINT"(after a series of subperiods and in absence of migration)"
10050
PRINT"INPUT DATA:"
10070
INPUT" place, period
";LU$,PE$
10072
INPUT" species, category(ies)
";ES$,CA$
10080
INPUT" total number of animals
at the beginning ";A
10085
INPUT" number (up to 11 !) of
subperiods ";N
10086
IF A=0 OR N=0 OR N>11 THEN PRINT IDE$:GOTO 10980
10089
PRINT TAB(3)"List of data : "
10090
PRINT" name of subperiod (up to
15 characters), coefficient of survival "
10091
PRINT" probability in form of
proportion (number between >0 and 1 !) :"
10093
FOR I=1 TO N
10094
PRINT TAB(15)"subperiod No";I;
10095
INPUT NA$(I),X(I)
10096
IF NA$(I)="" OR X(I)=0 THEN PRINT:PRINT IDM$:GOTO 10980 ELSE 10097
10097
IF X(I)>1 THEN PRINT"Error! Data is major than 1 ! ":GOTO 10980
ELSE 10098
10098
NEXT I
10100
R=1
10101
FOR I=1 TO N
10103
R=R*X(I)
10105
NEXT I
10106
IF R=0 THEN GOTO 10980
10150
PRINT:PRINT:PRINT
10151
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
10152
PRINT TAB(18)"to go back to menu then key 'm',":PRINT:INPUT" else ENTER to continue !
", I$
10153
IF I$="m" THEN GOTO 10
10154
IF I$="c" THEN GOTO 10000
10155
IF I$=CHR$(13) THEN GOTO 10200
10200
CLS:PRINT:PRINT TAB(5)"ESTIMATION OF
NUMBERS OF ANIMALS ACCORDING TO S
U R V I V A L RATES"
10205
PRINT
10206
PRINT"Place: "LU$;TAB(50)"Period: "PE$
10207
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$:PRINT
10210
PRINT" From the initial
";INT(A);"animals after ";INT(N);" subperiods"
10220
PRINT TAB(13)"it can be estimated about";
10230
PRINT TAB(40)INT((R*A)+0.5);"surviving animals.":PRINT
10250
PRINT
TAB(9)"Subperiod";TAB(33)"Survival";TAB(47)"Cumulative";TAB(60)"Animals"
10251
PRINT TAB(33)"Rate";TAB(47)"Survival";TAB(60)"at the
End"
10252
PRINT TAB(47)"Rate";TAB(60)"of Subperiod":PRINT
10259
S=1
10260
FOR I = 1 TO N
10261
S=S*X(I)
10262
PRINT I;TAB(8)USING"\
\";NA$(I);
10263
PRINT TAB(33)USING"#.####";X(I);TAB(47)S;
10264
PRINT TAB(60)INT((A*S)+0.5)
10265
NEXT I
10300
A$=INKEY$:IF A$="" THEN GOTO 10300
10310
CLS:PRINT:PRINT TAB(5)"ESTIMATION OF
NUMBERS OF ANIMALS ACCORDING TO S
U R V I V A L RATES"
10311
'IF N<4 THEN GOTO 10312 ELSE
10312
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of initial
total"INT(A);" animals)":PRINT
10316
PRINT TAB(2)"End of"
10318
PRINT TAB(2)"Subperiod";TAB(20)"0 20 40 60 80
100 %"
10320
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
10322
PRINT TAB(11)"(Start)";TAB(20)CHR$(179);
10323
FOR P=1 TO 50:PRINT CHR$(223);
10324
NEXT P
10325
S=1
10326
FOR I=1 TO N
10327
S=S*X(I)
10328
Z=S*50
10329
IF Z<1 THEN GOTO 10330 ELSE 10333
10330
IF Z>0 THEN GOTO 10331 ELSE 10333
10331
PRINT TAB(2)USING"\
\";NA$(I);
10332
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 10339
10333
PRINT TAB(2)USING"\ \";NA$(I);
10334
PRINT TAB(20)CHR$(179);
10335
FOR K=1 TO S*50
10336
PRINT CHR$(223);
10337
NEXT K
10339
NEXT I
10980
A$=INKEY$:IF A$="" THEN GOTO 10980
10985
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
10986
IF R$="y" OR R$="n" THEN GOTO 10987 ELSE 10990
10987
IF R$="y" THEN GOTO 10000 ELSE 10990
10990
RETURN
11000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.11-ESTIMATES OF THE NUMBER OF
WILD ANIMALS (VERTEBRATES AND INVERTEBRATES)"
11015
PRINT"============================================================================"
11020
PRINT"(rough estimates based on territory population samples
investigations)"
11050
PRINT"INPUT DATA:"
11051
INPUT" animal species ";SP$
11058
INPUT" place (territory), time
";PL$,TI$
11065
INPUT" surface measure units (up to 8 characters !)
";MU$
11066
INPUT" total territory in
surface measure units ";NT
11070
INPUT" number (up to 11 !) of
selected representative subterritories ";N
11071
IF NT=0 OR N=0 OR N>11 THEN PRINT IDE$:GOTO 11980
11100
PRINT" List data: subterritory
names (up to 11 characters), total size"
11106
PRINT" surface units,
investigated surface size, number of found animals:"
11150
FOR I=1 TO N
11151
PRINT TAB(8)I;". subterritory: ";
11152
INPUT" "NA$(I),SU(I),IN(I),PO(I)
11153
IF NA$(I)="" OR SU(I)=0 OR IN(I)=0 OR PO(I)=0 THEN PRINT:PRINT
IDM$:GOTO 11985
11155
IF SU(I)<IN(I) THEN PRINT:PRINT"Error in input ! Investigated size
cannot be major than total size !":GOTO 11980
11156
NEXT I
11157
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
11158
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
11159
IF I$="m" THEN GOTO 10
11160
IF I$="c" THEN GOTO 11000
11165
IF I$=CHR$(13) THEN GOTO 11200
11200
CLS:PRINT:PRINT" E S T I M A T E S
O F T H E N U M B E R
O F W I L D A N I M A L S":PRINT
11203
'IF DI$="" THEN GOTO 11208 ELSE 11207
11208
PRINT"Species: ";SP$;TAB(50)"Time: "TI$
11209
PRINT"Place: "PL$;TAB(50)"Size: "INT(NT);" ";MU$:PRINT
11210
PRINT TAB(15)"S u r f a c e in
"MU$;TAB(45)"A n i
m a l
s "
11211
PRINT"
Selected";TAB(15)"---------------------------";TAB(44)"-----------------------------------"
11220
PRINT"
Represent.";TAB(15)"Total";TAB(25)"Investi-";TAB(35)"Terri-";TAB(45)"Found";TAB(53)"Average";TAB(63)"Estimate";TAB(73)"Propor-"
11222
PRINT" Sub-";TAB(25)"gated";TAB(35)"tory
Pro-";TAB(53)"per ";TAB(63)"of
Total";TAB(73)"tion"
11224
'PRINT TAB(15)USING"\
\";MU$;
11225
PRINT" territory";TAB(35)"portion";TAB(53)USING"\ \";MU$
11226
PRINT
11230
T=0:SU=0:IN=0:PO=0
11232
FOR I=1 TO N
11233
T=T+((SU(I)*(PO(I)/IN(I))))
11234
SU=SU+SU(I)
11235
IN=IN+IN(I)
11236
PO=PO+PO(I)
11237
NEXT I
11240
FOR I=1 TO N
11241
PRINT" ";USING"\
\";NA$(I);
11242
PRINT
TAB(14)INT(SU(I));TAB(24)INT(IN(I));TAB(35)USING"#.####";IN(I)/SU(I);
11243
PRINT TAB(44)INT(PO(I));TAB(53)USING"#####.#";PO(I)/IN(I);
11244
PRINT
TAB(62)INT(((SU(I)*(PO(I))/IN(I)))+.5);TAB(74)USING"#.####";((PO(I)*SU(I))/IN(I))/T
11245
NEXT I
11246
PRINT
11247
PRINT" T O T A
L";TAB(14)INT(SU);TAB(24)INT(IN);TAB(35)USING"#.####";IN/SU;
11248
PRINT TAB(44)INT(PO);TAB(53)USING"#####.#";PO/IN;
11249
PRINT TAB(62)INT(T+.5);TAB(74)"1.0000"
11250
A$=INKEY$:IF A$="" THEN GOTO 11250
11255
CLS:PRINT:PRINT"If this average per ";USING"\ \";MU$
11256
PRINT TAB(10)"is applied on the total territory
of";INT(NT);USING"\
\";MU$
11257
PRINT TAB(20)"then it can be estimated about "
11266
PRINT TAB(30)INT(NT*(PO/IN)+.5);" animals (";SP$;") living
there."
11270
PRINT:PRINT
11280
PRINT"Do you want to estimate the number of specific disease agents"
11281
INPUT" reservoirs among the
animals of the above species, yes(y) or no(n) ";Y$
11282
IF Y$="y" OR Y$="n" THEN GOTO 11283 ELSE 11985
11283
IF Y$="y" THEN GOTO 11284 ELSE 11985
11284
PRINT:PRINT:PRINT"ADDITIONAL INPUT DATA: ":PRINT:
11285
INPUT"specific disease ";DI$
11286
INPUT"estimated percentage of animals reservoirs (vectors) ";P:PRINT
11310
PRINT:PRINT"If the estimated percentage is applied on the total territory,"
11313
PRINT TAB(10)"then it can be roughly estimated"
11315
PRINT TAB(20)"about ";INT((NT*(PO/IN)*P/100)+.5) SP$;" -
reservoirs (carriers)"
11316
PRINT TAB(30)"of "DI$" agents living there."
11980
A$=INKEY$:IF A$="" THEN GOTO 11980
11985
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
11986
IF R$="y" OR R$="n" THEN GOTO 11987 ELSE 11990
11987
IF R$="y" THEN GOTO 11000 ELSE 11990
11990
RETURN
12000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.12-ESTIMATION OF ANIMAL
POPULATION SIZE BASED ON CAPTURE/RECAPTURE"
12020
PRINT"===================================================================="
12030
PRINT"in the absence of migration (Ref.:
Cannon,Roe)"
12040
PRINT"(This capture-recapture sampling scheme is applicable on ferar
animals"
12045
PRINT"or where mustering is difficult. )":PRINT
12100
PRINT"INPUT DATA:":PRINT
12101
INPUT" species ";SP$
12103
INPUT" place (territory), time
";PL$,TI$
12110
PRINT:INPUT" total number of
captured-marked and released animals
";D:PRINT
12120
PRINT" total number of animals
captured a f t e r a t
i m e"
12125
PRINT" suitable to
allow for mixing of the population,"
12126
INPUT" but which
would preclude many deaths/births ";N:PRINT
12130
INPUT" number of recaptured
animals of the original capture
";X
12131
IF D=0 OR N=0 OR X=0 OR X>D THEN PRINT IDE$:GOTO 12981 ELSE 12151
12151
'CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
12152
'PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
12153
'IF I$="m" THEN GOTO 10
12154
'IF I$="c" THEN GOTO 12000
12155
'IF I$=CHR$(13) THEN GOTO 12200
12200
'CLS:PRINT:PRINT TAB(6)"ESTIMATION OF ANIMAL POPULATION SIZE BASED ON
CAPTURE/RECAPTURE":PRINT
12201
''PRINT"Species: "SP$
12203
'PRINT"Place: "PL$;TAB(50)"Time: "TI$:PRINT
12210
PRINT:PRINT"RESULT:":PRINT
12220
PRINT" Very rough estimation of
the population size = about "INT(D*(N/X)+.5);"animals"
12221
GOTO 12981
12222
NA=D*(N/X)
12225
PRINT:PRINT"NA=D*(N/X) ="D*(N/X)
12226 P=D/NA:Q=1-P
12300 PRINT"P=D/NA ="(D/NA)
12301 PRINT"Q=1-P = "1-P:SE=SQR((P*Q)/NA)
12302 PRINT"SE=SQR((P*Q)/NA)
="SQR((P*Q)/NA)
12306 F=N/NA:PRINT"F=N/NA ="N/NA
12307 COR=SQR(1-F):PRINT"COR=SQR(1-F)="SQR(1-F)
12308 PRINT "SE*NA"SE*NA
12310
PRINT"1 % ="INT(NA/100)
12311
PRINT"upper = D/P ="(D/P)
12312 SE%=INT(SE*(NA/100)*100)
12320
PRINT"SE%=INT(SE*(NA/100)*100)"INT(SE*(NA/100)*100)
12340
'PRINT"Results:"INT(NA);" +- "SE%
12981
A$=INKEY$:IF A$="" THEN GOTO 12981
12985
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
12986
IF R$="y" OR R$="n" THEN GOTO 12987 ELSE 12990
12987
IF R$="y" THEN GOTO 12000 ELSE 12990
12990
RETURN
13000
CLS:PRINT TAB(52)e$" "v$:PRINT"1.13-ESTIMATION OF ANIMAL
POPULATION SIZE BASED ON AVERAGE DENSITY"
13005
PRINT"=================================================================="
13010
PRINT TAB(5)"This subprogramme calculates animal population size
for:"
13015
PRINT TAB(10)"1) multiform territory knowing the surface size"
13017
PRINT TAB(10)"2) circular territory knowing the radius"
13019
PRINT TAB(10)"3) square territory knowing the side length"
13020
PRINT TAB(10)"4) oblong territory knowing the length and width"
13021
PRINT TAB(10)"5) volumen space knowing the length, width and depth
(height)"
13030
INPUT" Enter choice number:
",CH
13031
IF CH=1 OR CH=2 OR CH=3 OR CH=4 OR CH=5 THEN GOTO 13050 ELSE PRINT IDE$:GOTO
13980
13050
PRINT"INPUT DATA:"
13060
INPUT" place, time ";PL$,TI$
13070
INPUT" species ";SP$
13071
IF CH<>5 THEN INPUT"
surface measure unit ";SMU$
13072
IF CH=5 THEN INPUT" volume
measure unit ";VMU$ ELSE 13075
13073
IF CH=5 THEN INPUT" average
density of animals per one volumen measure unit ";AD
13075
IF CH<>5 THEN INPUT"
average density of animals per one surface measure unit ";AD
13076
IF AD=0 THEN PRINT IDM$:GOTO 13980 ELSE 13080
13080
IF CH=1 THEN GOTO 13100
13081
IF CH=2 THEN GOTO 13200
13084
IF CH=3 THEN GOTO 13300
13086
IF CH=4 THEN GOTO 13400
13087
IF CH=5 THEN GOTO 13420
13100
INPUT" total territory size in
surface measure units ";TS
13150
IF TS=0 THEN PRINT IDM$:GOTO 13980 ELSE 13451
13200
INPUT" length measure units ";LU$
13210
INPUT" radius in length measure
units
";RA:GOTO 13424
13300
INPUT" length measure units ";LU$
13310
INPUT" length of square side in
length measure units
";LS:GOTO 13424
13400
INPUT" length measure units ";LU$
13410
INPUT" oblong length in measure
units ";OL
13411
INPUT" oblong width in measure
units
";OW:GOTO 13424
13420
INPUT" length measure units ";LU$
13421
INPUT" length in measure
units
";OL
13422
INPUT" width in measure
units
";OW
13423
INPUT" depth (height) in measure
units ";DE
13424
IF CH=1 AND TS=0 OR CH=2 AND RA=0 OR CH=3 AND LS=0 OR CH=4 AND OL=0 OR CH=5 AND
OL=0 THEN PRINT IDE$:GOTO 13980
13451
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
13452
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ", I$
13453
IF I$="m" THEN GOTO 10
13454
IF I$="c" THEN GOTO 13000
13455
IF I$=CHR$(13) THEN GOTO 13500
13500
CLS:PRINT:PRINT TAB(6)"ESTIMATION OF ANIMAL POPULATION SIZE BASED ON
AVERAGE DENSITY":PRINT
13502
PRINT TAB(10)"Place: "PL$;TAB(50)"Time: "TI$
13503
PRINT TAB(10)"Species: "SP$
13504
IF CH<>5 THEN PRINT:PRINT TAB(10)"Average density of animals per
"SMU$" : "USING"####.####";AD:PRINT
13505
IF CH=5 THEN PRINT:PRINT TAB(10)"Average density of animals per
"VMU$" : "USING"####.####";AD:PRINT
13506
IF CH=1 THEN PRINT TAB(20)"Territory size: ";INT(TS+.5) SMU$:PRINT
13508
PRINT:PRINT
13510
IF CH=1 THEN PRINT TAB(6)"Rough estimation of the population size =
"INT(AD*TS+.5);" animals":GOTO 13980
13520
PI=3.1415926535
13524
IF CH=2 THEN PRINT TAB(6)"Territory size = "INT((PI*RA^2)+.5) SMU$:PRINT
13525
IF CH=2 THEN PRINT TAB(6)"Rough estimation of the population size =
"INT((AD*PI*RA^2)+.5);" animals":GOTO 13980
13529
IF CH=3 THEN PRINT TAB(6)"Territory size = "INT(LS^2+.5) SMU$:PRINT
13530
IF CH=3 THEN PRINT TAB(6)"Rough estimation of the population size =
"INT(AD*LS^2+.5);" animals":GOTO 13980
13539
IF CH=4 THEN PRINT TAB(6)"Territory size = "INT(OL*OW+.5) SMU$:PRINT
13540
IF CH=4 THEN PRINT TAB(6)"Rough estimation of the population size =
"INT(AD*OL*OW+.5);" animals":GOTO 13980
13541
IF CH=5 THEN PRINT TAB(6)"Volumen size =
"INT(OL*OW*DE+.5) VMU$:PRINT
13550
IF CH=5 THEN PRINT TAB(6)"Rough estimation of the population size =
"INT(AD*OL*OW*DE+.5);"animals"
13980
A$=INKEY$:IF A$="" THEN GOTO 13980
13985
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
13986
IF R$="y" OR R$="n" THEN GOTO 13987 ELSE 13990
13987
IF R$="y" THEN GOTO 13000 ELSE 13990
13990
RETURN
14000
CLS:INPUT"Do you want to return to the main menu of EPIZOO, yes(y) or
no(n) ";Z$
14002
IF Z$="y" OR Z$="n" THEN GOTO 14010 ELSE 14030
14010
IF Z$="y" THEN GOTO 14020 ELSE 14030
14020
CHAIN"EPIZ40MM.KOU"
14025
CLS:PRINT:PRINT TAB(5)"E R R O R !
Start again! Next input error may terminate the
programme!":PRINT:GOTO 500
14030
SYSTEM
2-Animal population health/disease analysis - basic indicators
5 ON
ERROR GOTO 10025
6
IDM$="Input data missing !"
7
IDE$="Input data error !"
10
PRINT"EPIZ4002.KOU":REM:13/9/2002
15 e$="EPIZOO, ver.4.0,":v$=DATE$
20
CLS::PRINT"EPIZOO, ver.4.0";TAB(70)v$:PRINT
30
PRINT TAB(7)"2-ANIMAL POPULATION HEALTH/DISEASE ANALYSIS - BASIC
INDICATORS"
50
PRINT
TAB(7)"=============================================================="
500
PRINT:PRINT TAB(12)"M E N U O
F S U B P R O G R A M M E S":PRINT
510
PRINT TAB(7)"1-General indicators for animal population health
analysis"
520
PRINT TAB(7)"2-Indicators of presence/absence of animal health
phenomena"
530
PRINT TAB(7)"3-Selected indicators of animal population health (disease
free)"
540
PRINT TAB(7)"4-Selected indicators of animal population morbidity"
550
PRINT TAB(7)"5-Selected indicators of animal population viability
(survival)"
560
PRINT TAB(7)"6-Selected indicators of animal population mortality"
570
PRINT TAB(7)"7-Selected indicators of animal disease nidality
(focality)"
580
PRINT TAB(7)"8-Selected indicators of animal disease territorial
distribution"
600
PRINT TAB(7)"9-Human/animal populations and zoonoses"
609
PRINT
610
PRINT TAB(7)"10-E N D of this group
of subprogrammes":PRINT
611
PRINT"Recommendation: small resulting values of the indicators to be multiplied
by"
612
PRINT"100 (per 100 basic units), by 1000 (per 1000 basic units),
etc.":PRINT
640
GOTO 690
645
CLS
650
INPUT"Do you want to continue with this group of subprogrammes, yes(y) or
no(n) ";Z$
651 IF
Z$="y" OR Z$="n" THEN GOTO 660 ELSE 10000
660 IF
Z$="y" THEN 20 ELSE GOTO 10000
690
INPUT" Enter choice number :
",CH
695 IF
CH=1 OR CH=2 OR CH=3 OR CH=4 OR CH=5 OR CH=6 OR CH=7 OR CH=8 OR CH=9 OR CH=10
THEN GOTO 700 ELSE 650
700 ON
CH GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
800 GOTO
645
1000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.1-GENERAL INDICATORS FOR ANIMAL
POPULATION HEALTH ANALYSIS"
1010
PRINT"============================================================"
1100
PRINT"INPUT DATA:"
1102
PRINT"basic units (animals - total, at
r i s k; herds, flocks, farms, space units,"
1103
INPUT" territory units, product
units and other epi. risk units) ";UB$
1104
PRINT"epi. units (basic units with health related characteristic (e.g.
disease free,"
1105
INPUT" diseased, pathogen
carriers, etc.) or events ";UE$
1106
INPUT" place ";LU$
1107
PRINT"Do you want to calculate point(moment) prevalence at a given moment
(m)"
1108
INPUT" or
indicators related to a given period (p) ";P$
1110
IF P$="m" OR P$="p" THEN GOTO 1112 ELSE PRINT IDE$:GOTO
1980
1112
IF P$="m" THEN GOTO 1113 ELSE 1114
1113
PRINT:INPUT" time-moment
";TI$:GOTO 1120
1114
INPUT" time-period
";TI$:GOTO 1150
1120
PRINT:INPUT" total number of
basic units existing at the given moment ";A:PRINT
1121
INPUT" number of epi.
units existing at the given moment ";E
1122
IF A=0 OR E=0 THEN PRINT IDM$:GOTO 1980 ELSE 1190
1150
PRINT:PRINT" number of basic
units existing"
1152
INPUT"
at the beginning of the period
";D
1153
INPUT" number of basic units
existing in the period
";B
1155
INPUT" average number of basic
units in the period
";C
1156
PRINT
1159
INPUT" number of epi. units at
the beginning of the period ";DB
1160
INPUT" number of epi. units
existing in the period
";F
1162
INPUT" average number of epi.
units in the period
";G
1166
PRINT:INPUT" number of new epi.
units in the period ";H
1168
INPUT" number of extinct epi.
units in the period
";I
1169
IF (D+B+C+DB+F+G+I)=0 THEN PRINT:PRINT IDM$:GOTO 1980
1190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
1191
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
1192
IF I$="m" THEN GOTO 10
1193
IF I$="c" THEN GOTO 1000
1194
IF I$=CHR$(13) THEN GOTO 1200
1200
CLS:PRINT:PRINT TAB(6)"GENERAL INDICATORS
FOR ANIMAL POPULATION
HEALTH ANALYSIS"
1500
PRINT
1501
PRINT"Place: "LU$;TAB(50)"Time: "TI$:PRINT
1502
PRINT TAB(6)"Basic units: "UB$
1503
PRINT TAB(6)"Epi. units: "UE$:PRINT:PRINT
1505
IF P$="m" THEN GOTO 1506 ELSE 1520
1506
PRINT:PRINT TAB(10)"Point prevalence rate of epi. units =
";USING"#.####";E/A
1507
PRINT
1508
PRINT TAB(10)" = ";USING"###.#### %";E/A*100;
1509
GOTO 1980
1520
IF D>0 AND DB>0 THEN GOTO 1611
1525
IF F>0 AND B>0 THEN GOTO 1620
1530
IF G>0 AND C>0 THEN GOTO 1630
1540
IF H>0 AND B>0 THEN GOTO 1631
1550
IF H>0 AND C>0 THEN GOTO 1650
1560
IF H>0 AND D>0 THEN GOTO 1660
1570
IF I>0 AND B>0 THEN GOTO 1661
1580
IF I>0 AND C>0 THEN GOTO 1680
1590
IF I>0 AND D>0 THEN GOTO 1690 ELSE 1980
1611
'PRINT
1615
PRINT" Initial point prevalence
rate of epi. units = ";USING"#.####";DB/D:GOTO
1525
1620
PRINT" Period (interval)
prevalence rate of epi. units = ";USING"#.####";F/B:GOTO 1530
1630
PRINT" Average prevalence rate
of epi. units = ";USING"#.####";G/C:GOTO 1540
1631
PRINT
1640
PRINT" Incidence rate of epi.
units to existing total = ";USING"#.####";H/B:GOTO 1550
1650
PRINT" Incidence rate of epi.
units to average total = ";USING"#.####";H/C:GOTO 1560
1660
PRINT" Incidence rate of epi.
units to initial total = ";USING"#.####";H/D:GOTO 1570
1661
PRINT
1670
PRINT" Extinction rate of epi.
units to existing total = ";USING"#.####";I/B:GOTO 1580
1680
PRINT" Extinction rate of epi.
units to average total = ";USING"#.####";I/C:GOTO 1590
1690
PRINT" Extinction rate of epi.
units to initial total = ";USING"#.####";I/D:PRINT
1695
PRINT:PRINT"Note: To get values per 100, 1000, 10000, 100000, etc. basic
units, resulting"
1696
PRINT" data in form of
proportion to be multiplied by 100, 1000,... etc."
1980
A$=INKEY$:IF A$="" THEN GOTO 1980
1981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
1982
IF R$="y" OR R$="n" THEN GOTO 1985 ELSE 1990
1985
IF R$="y" THEN GOTO 1000 ELSE 1990
1990
RETURN
2000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.2-SELECTED INDICATORS OF
PRESENCE/ABSENCE DURATION OF ANIMAL POPULATION"
2001
PRINT" HEALTH PHENOMENON"
2010
PRINT"
====================================================================="
2020
PRINT TAB(5)"This subprogramme calculates: "
2021
PRINT TAB(10)"1) animal health phenomenon (disease, measure,"
2022
PRINT"
environment factor, etc.) presence/absence relation"
2023
PRINT TAB(10)"2) disease persistence (endemism) index - according to Dr
Astudillo"
2025
INPUT" Enter choice number:
",CH
2026
IF CH=1 OR CH=2 THEN GOTO 2030 ELSE PRINT IDE$:GOTO 2980
2030
IF CH=2 THEN GOTO 2400 ELSE 2100
2100
PRINT:PRINT"INPUT DATA:"
2112
PRINT
2114
INPUT" animal health
phenomenon ";FE$
2116
INPUT" place ";LU$
2118
INPUT" period ";PE$
2120
INPUT" time measure units ";UT$
2121
PRINT
2130
INPUT" total duration of p r e s e n c e of animal health phenomenon ";A
2131
INPUT" total duration of a b s e n c e
of animal health phenomenon
";B:PRINT
2133
INPUT" number of periods of p r e s e n c e of animal health phenomenon ";C
2134
INPUT" number of periods of a b s e n c e
of animal health phenomenon
";D
2135
IF (A+B+C+D)=0 THEN PRINT:PRINT IDM$:GOTO 2980
2190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
2191
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
2192
IF I$="m" THEN GOTO 10
2193
IF I$="c" THEN GOTO 2000
2194
IF I$=CHR$(13) THEN GOTO 2200
2200
CLS:PRINT:PRINT"RESULTS:"
2201
PRINT
2202
PRINT"Animal health phenomenon: "FE$:PRINT
2203
PRINT"Place: "LU$;TAB(50)"Period: "PE$
2205
PRINT"Time measure units: "UT$;TAB(40)"Total duration:
"(A+B):PRINT
2206
E=A+B
2210
IF A>0 AND C>0 THEN GOTO 2310
2220
IF B>0 AND D>0 THEN GOTO 2320
2230
IF A>0 AND E>0 THEN GOTO 2330
2240
IF B>0 AND E>0 THEN GOTO 2340
2250
IF A>0 AND B>0 THEN GOTO 2350
2260
IF B>0 AND A>0 THEN GOTO 2360 ELSE 2980
2310
PRINT TAB(5)"Average duration of presence of the phenomenon =
";USING"#####.##";A/C:GOTO 2220
2320
PRINT TAB(5)"Average duration of absence of the phenomenon =
";USING"#####.##";B/D:GOTO 2230
2330 PRINT:PRINT
TAB(5)"Time proportion of presence of the phenomenon =
";USING"###.####";A/E:GOTO 2240
2340
PRINT TAB(5)"Time proportion of absence of the phenomenon =
";USING"###.####";B/E:GOTO 2250
2350
PRINT:PRINT TAB(5)"Ratio of periods with/without the phenomenon =
";USING"###.####";A/B:GOTO 2260
2360
PRINT TAB(5)"Ratio of periods without/with the phenomenon =
";USING"###.####";B/A
2370
PRINT:GOTO 2980
2400
PRINT:PRINT"INPUT DATA:"
2402
PRINT TAB(6)"There is a need for data on chronological series of disease
presence"
2403
PRINT TAB(6)"and absence durations during several years measured in
months.":PRINT
2404
INPUT" disease ";DI$
2405
INPUT" space, period
";PL$,PE$:PRINT
2406
INPUT"number (up to 11 !) of dif. durations of disease p r e s e n c e periods ";N1
2407
INPUT"number (up to 11 !) of dif. durations of disease a b s e n c e
periods ";N2
2408
IF N1=0 OR N2=0 THEN GOTO 2419 ELSE 2409
2409
IF N1>11 OR N2>11 THEN PRINT IDE$:GOTO 2980 ELSE 2410
2410
CLS:PRINT:FOR I=1 TO N1
2411
PRINT TAB(5)I;": ";
2412
INPUT"duration of p r e s e n c
e (in months), frequency
";PR(I),F1(I)
2413
IF PR(I)=0 OR F1(I)=0 THEN GOTO 2419
2414
NEXT I:PRINT
2415
FOR I=1 TO N2:PRINT TAB(5)I;": ";
2416
INPUT"duration of a b s e n c
e (in months), frequency ";AB(I),F2(I)
2417
IF AB(I)=0 OR F2(I)=0 THEN GOTO 2419
2418
NEXT I:GOTO 2420
2419
PRINT:PRINT IDM$:GOTO 2980
2420
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
2421
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
2422
IF I$="m" THEN GOTO 10
2423
IF I$="c" THEN GOTO 2000
2424
IF I$=CHR$(13) THEN GOTO 2445
2425
S1=0:S2=0
2426
FOR I=1 TO N1
2427
S1=S1+(PR(I)*F1(I))
2428
NEXT I
2429
FOR I=1 TO N2
2430
S2=S2+(AB(I)*F2(I))
2431
NEXT I
2432
T1=0:T2=0
2433
FOR I=1 TO N1
2434
T1=T1+F1(I)
2435
NEXT I
2436
FOR I=1 TO N2
2437
T2=T2+F2(I)
2438
NEXT I
2439
Y=S1/T1
2440
OM1=1/Y
2445
CLS:PRINT:PRINT"RESULT:":PRINT
2446
PRINT TAB(10)"Disease: "DI$:PRINT
2447
PRINT"Space: "PL$;TAB(40)"Period: ";PE$:PRINT
2448
PRINT TAB(10)"Total number of months: "INT(S1+S2+.5):PRINT
2449
PRINT:PRINT TAB(15)"Disease presence omega =
"USING"####.####";OM1:PRINT
2450
X=S2/T2
2452
OM2=1/X
2454
PRINT TAB(15)"Disease absence omega =
"USING"####.####";OM2:PRINT
2460
OM=OM1+OM2
2461
PRINT TAB(15)"Sum of presence and absence omegas ="USING"#####.####";OM:PRINT
2470
LET E=OM2/OM:PRINT
2471
PRINT TAB(15)"Disease persistence index
2472
PRINT TAB(30)"(endemism index)
=
"USING"###.####";E:PRINT
2475
PRINT"
= "USING"###.#### %";E*100
2980
A$=INKEY$:IF A$="" THEN GOTO 2980
2981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
2982
IF R$="y" OR R$="n" THEN GOTO 2985 ELSE 2990
2985
IF R$="y" THEN GOTO 2000 ELSE 2990
2990
RETURN
3000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.3-SELECTED INDICATORS OF ANIMAL
POPULATION HEALTH"
3010
PRINT"==================================================="
3015
PRINT"related to d i s e a s e f r e e
animals: healthy, unaffected, pathogen "
3016
PRINT"free, non diseased; (salubrity, healthiness, wholesomeness,
wellness, etc.)"
3030
PRINT"INPUT DATA:"
3050
PRINT" type/form of animal
population health"
3051
INPUT" (general - crude or
particular - cause/attribute specific) ";SA$
3052
INPUT" species, category(ies)
";SP$,CA$
3054
INPUT" place ";LU$
3055
PRINT"Do you want to calculate point(moment) prevalence at a given moment
(m)"
3056
INPUT" or indicators related to a given
period (p) ";P$
3057
IF P$="m" OR P$="p" THEN GOTO 3067 ELSE PRINT IDE$:GOTO
3980
3067
IF P$="m" THEN GOTO 3068 ELSE 3069
3068
PRINT:INPUT" time-moment (point
in time) ";TI$:GOTO 3070
3069
INPUT" time-period
";TI$:GOTO 3080
3070
PRINT:INPUT" total number of
animals existing at the given moment
";A:PRINT:
3071
INPUT" number of healthy animals
existing at the given moment ";E
3072
IF A=0 OR E=0 THEN PRINT:PRINT IDM$:GOTO 3980 ELSE 3073
3073 IF
E>A THEN GOTO 3074 ELSE 3161
3074
PRINT"Error ! Number of healthy animals cannot be major than all animals
!":GOTO 3070
3080
PRINT:INPUT" total number of
animals at the beginning of the period
";D
3081
INPUT" total number of animals
existing in the period
";B
3082
INPUT" average number of animals
in the period ";C
3152
PRINT:INPUT" number of healthy
animals at the beginning of the period
";J
3153
INPUT" number of healthy animals
existing in the period ";F
3154
INPUT" average number of healthy
animals in the period ";G
3155
PRINT:INPUT" number of new
healthy animals in the period
";H
3156
PRINT" number of extinct healthy
animals (slaughtered, removed,"
3157
INPUT"
diseased) in the period ";I
3160
IF (D+J+H+B+C+F+G)=0 THEN PRINT IDM$:GOTO 3980
3161
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
3162
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
3163
IF I$="m" THEN GOTO 10
3164
IF I$="c" THEN GOTO 3000
3165
IF I$=CHR$(13) THEN GOTO 3170
3170
CLS:PRINT:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
HEALTH"
3171
PRINT:PRINT TAB(6)"Type/form of population health: ";SA$:PRINT
3172
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
3173
PRINT"Place: ";LU$;TAB(50)"Time: ";TI$:PRINT
3180
IF P$="m" THEN GOTO 3190 ELSE 3200
3190
PRINT:PRINT:PRINT TAB(5)"Point prevalence rate of healthy animals =
";USING"#.####";E/A
3191
PRINT
3192
PRINT TAB(5)" =
";USING"###.##";E/A*100;
3193
PRINT" %":PRINT:GOTO 3980
3200
IF J>0 AND D>0 THEN GOTO 3310
3220
IF F>0 AND B>0 THEN GOTO 3320
3230
IF G>0 AND C>0 THEN GOTO 3330
3240
IF H>0 AND B>0 THEN GOTO 3333
3250
IF H>0 AND C>0 THEN GOTO 3350
3260
IF H>0 AND D>0 THEN GOTO 3360
3270
IF I>0 AND B>0 THEN GOTO 3363
3280
IF I>0 AND C>0 THEN GOTO 3380
3290
IF I>0 AND D>0 THEN GOTO 3390 ELSE 3394
3310
PRINT" Initial point prevalence
rate of healthy animals =
";USING"#.####";J/D:GOTO 3220
3320
PRINT" Period prevalence rate of
healthy animals =
";USING"#.####";F/B:GOTO 3230
3330
PRINT" Average prevalence rate
of healthy animals =
";USING"#.####";G/C:GOTO 3240
3333
PRINT
3340
PRINT" Incidence rate of healthy
animals to existing total =
";USING"#.####";H/B:GOTO 3250
3350
PRINT" Incidence rate of healthy
animals to average total =
";USING"#.####";H/C:GOTO 3260
3360
PRINT" Incidence rate of healthy
animals to initial total =
";USING"#.####";H/D:GOTO 3270
3363
PRINT
3370
PRINT" Extinction rate of
healthy animals to existing total = ";USING"#.####";I/B:GOTO
3280
3380
PRINT" Extinction rate of
healthy animals to average total =
";USING"#.####";I/C:GOTO 3290
3390
PRINT" Extinction rate of
healthy animals to initial total =
";USING"#.####";I/D:GOTO 3392
3392
A$=INKEY$:IF A$="" THEN GOTO 3392
3393
CLS:PRINT:PRINT:PRINT"Do you want to calculate the relations of the
numbers of healthy animals"
3394
INPUT" to those with other epi.
characteristics, yes(y) or no(n) ";EC$
3395
IF EC$="y" THEN GOTO 3396 ELSE 3980
3396
CLS:PRINT:PRINT"INPUT DATA":PRINT
3397
INPUT" time";GT$:PRINT
3399
INPUT" number of healthy animals
at the given time ";HT
3400
IF HT<>0 THEN GOTO 3401 ELSE PRINT IDM$: GOTO 3980
3401
INPUT" number of diseased
animals at the given time
";DT:PRINT
3402
INPUT" number of intrafocal
animals at the given time ";FT
3403
INPUT" number of animals at risk
at the given time ";TT:PRINT
3404
INPUT" number of resistant
animals at the given time ";RT
3405
INPUT" number of susceptible
animals at the given time
";ST:PRINT
3406
INPUT" number of investigated
animals at the given time ";IT
3407
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
3408
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
3409
IF I$="m" THEN GOTO 10
3410
IF I$="c" THEN GOTO 3395
3411
IF I$=CHR$(13) THEN GOTO 3416
3416
CLS:PRINT:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
HEALTH":PRINT
3417
PRINT TAB(6)"Type/form of population health: ";SA$
3418
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
3419
PRINT"Place: ";LU$;TAB(40)"Time: ";GT$:PRINT
3420
IF HT>0 AND DT>0 THEN GOTO 3430 ELSE 3421
3421
IF HT>0 AND FT>0 THEN GOTO 3432 ELSE 3422
3422
IF HT>0 AND TT>0 THEN GOTO 3434 ELSE 3423
3423
IF HT>0 AND RT>0 THEN GOTO 3436 ELSE 3424
3424
IF HT>0 AND ST>0 THEN GOTO 3438 ELSE 3425
3425
IF HT>0 AND IT>0 THEN GOTO 3440 ELSE 3980
3430
PRINT" Ratio of healthy animals
per diseased one =
";USING"#####.####";HT/DT
3431
PRINT" Ratio of diseased animals
per healthy one =
";USING"#####.####";DT/HT:GOTO 3421
3432 PRINT:PRINT" Ratio of healthy animals per intrafocal
one =
";USING"#####.####";HT/FT
3433
PRINT" Ratio of intrafocal
animals per healthy one =
";USING"#####.####";FT/HT:GOTO 3422
3434
PRINT:PRINT" Ratio of healthy
animals per one at risk =
";USING"#####.####";HT/TT
3435
PRINT" Ratio of animals at risk
per healthy one =
";USING"#####.####";TT/HT:GOTO 3423
3436
PRINT:PRINT" Ratio of healthy
animals per resistant one =
";USING"#####.####";HT/RT
3437
PRINT" Ratio of resistant
animals per healthy one =
";USING"#####.####";RT/HT:GOTO 3424
3438
PRINT:PRINT" Ratio of healthy
animals per susceptible one =
";USING"#####.####";HT/ST
3439
PRINT" Ratio of susceptible
animals per healthy one =
";USING"#####.####";ST/HT:GOTO 3425
3440
PRINT:PRINT" Ratio of healthy
animals per investigated one =
";USING"#####.####";HT/IT
3441
PRINT" Ratio of investigated
animals per healthy one =
";USING"#####.####";IT/HT
3980
A$=INKEY$:IF A$="" THEN GOTO 3980
3981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
3982
IF R$="y" OR R$="n" THEN GOTO 3985 ELSE 3990
3985
IF R$="y" THEN GOTO 3000 ELSE 3990
3990
RETURN
4000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.4-SELECTED INDICATORS OF ANIMAL
POPULATION MORBIDITY"
4010
PRINT"======================================================"
4080
PRINT"This subprogramme calculates indicators related to diseased animals
(unhealthy,"
4081
PRINT"affected, infected, invaded, pathogen carriers), clinical cases,
etc. :"
4091
PRINT TAB(7)"1) total population point prevalence rate at a given
moment"
4092
PRINT TAB(7)"2) total population morbidity related to a given period"
4093
PRINT TAB(7)"3) specific transmissible disease attack rates (intrafocal
incidence)"
4094
PRINT TAB(7)"4) proportional specific disease morbidity rate"
4095
PRINT TAB(7)"5) morbidity indicators related to animals at risk
(exposed)"
4096
PRINT TAB(7)"6) animal-time incidence rate"
4097
INPUT" Enter choice number:
",P
4098
IF P=1 OR P=2 OR P=3 OR P=4 OR P=5 OR P=6 THEN GOTO 4099 ELSE PRINT IDE$:GOTO
4980
4099
'IF P=6 THEN CLS
4100
PRINT"INPUT DATA:"
4101
PRINT" disease(s)-type/form
(general - crude or cause/attribute-specific;"
4102
INPUT" apparent, true, reported,
etc.) ";EN$
4103
INPUT" species, category(ies)
";SP$,CA$
4140
IF P=1 THEN INPUT" place,
time-moment ";LU$,TI$:GOTO 4240
4142
IF P=2 THEN INPUT" place,
time-period ";LU$,TI$:GOTO 4245
4144
IF P=3 THEN INPUT" place, time
(period of the epizootic) ";LU$,TI$
4145
IF P=3 THEN INPUT" definition of
epizootic initial stage ";IS$:GOTO 4350
4146
IF P=4 THEN INPUT" place, time
(moment or period) ";LU$,TI$:GOTO 4360
4148
IF P=5 THEN INPUT" place
";LU$:GOTO 4365
4150
IF P=6 THEN INPUT" place, time-period ";LU$,TI$:GOTO 4390
4239
PRINT IDE$:GOTO 4980
4240
PRINT:INPUT" total number of
animals existing at the given moment
";A
4241
INPUT" number of diseased
animals existing at the given moment
";J
4242
PRINT" number of diseased
animals with clinical symptoms"
4243
INPUT"
existing at the given moment
";Z
4244
IF A=0 OR J=0 OR J>A THEN GOTO 4239 ELSE 4410
4245
CLS:PRINT:PRINT" total number of
animals existing"
4246
INPUT" at the beginning of the
period ";D
4250
INPUT" total number of animals
existing in the period
";B
4260
INPUT" average total number of
animals existing in the period
";C:PRINT
4262
PRINT"Following data cannot be greater than total numbers of animals
!":PRINT
4280
INPUT" number of diseased
animals at the beginning of the period
";E
4290
INPUT" number of diseased
animals existing in the period
";F
4300
INPUT" average number of
diseased animals in the period
";G
4310
PRINT:INPUT" number of new
diseased animals in the period ";H
4320
PRINT" number of extinct
diseased animals "
4321
INPUT"
(dead+slaughtered+removed+recovered) in the period ";I
4322
IF (D+B+C+E+F+G+H)=0 OR E>D OR F>B OR G>C THEN GOTO 4239 ELSE 4410
4350
PRINT" t o t a l number of
a n i m a l s at specific
risk"
4351
INPUT" at the b e g i n n i n g of intrafocal exposure ";T
4352
PRINT" t o t a l number of animals that develop d i s e a s e
"
4353
INPUT" during total period
of specific epizootics
";S
4354
INPUT" diseased in i n i t i a l
stage (<total diseased)
";IS
4355
'INPUT" number of
animals-contacts exposed to first case (proband) ";V
4356
'PRINT" total number of animals
exposed to first case (proband)"
4357
'INPUT" that develop disease
within range of incubation period
";U
4358
IF T=0 OR S=0 OR IS=>S THEN GOTO 4239 ELSE 4410
4360
PRINT:INPUT" number of all diseased animals at a given
time ";Y
4362
PRINT" number of animals
diseased due to specific cause(s) only"
4363
INPUT"
at a given time ";W
4364
IF Y=0 OR W=0 THEN GOTO 4239 ELSE 4410
4365
PRINT" Do you want to evaluate
point prevalence at a given moment (m)"
4366
INPUT" or
indicators related to a given period (p) ";G$
4367
IF G$="m" THEN INPUT"
moment ";TI$:GOTO 4370 ELSE 4368
4368
IF G$="p" THEN INPUT"
period ";TI$:GOTO 4372 ELSE PRINT IDE$:GOTO 4980
4370
PRINT:INPUT" total number of
animals at risk existing at the given moment
";A
4371
PRINT:INPUT" number of diseased
animals at risk existing at the given moment ";J:GOTO 4385
4372
CLS:PRINT:PRINT" total number of
animals at risk existing
4373
INPUT"
at the beginning of the period
";D
4374
INPUT" total number of animals at
risk existing in the period
";B
4375
INPUT" average number of animals
at risk existing in the period
";C:PRINT
4376
INPUT" number of diseased animals
at risk at beginning of the period
";E
4377
INPUT" number of diseased animals
at risk existing in the period
";F
4378
INPUT" average number of diseased
animals at risk in the period
";G
4380
PRINT:INPUT" number of new
diseased animals at risk in the
period ";H
4382
PRINT" number of extinct
(dead+slaughtered+removed+recovered)"
4384
INPUT"
diseased animals at risk in the period ";I:PRINT:GOTO 4386
4385
IF A=0 OR J=0 THEN GOTO 4239 ELSE 4410
4386
IF (D+B+C+E+F+G+I+H)=0 THEN GOTO 4239 ELSE 4410
4390
INPUT" animal-time unit (day,
week, month, year, etc.)
";T$
4396
INPUT" number of new events
(diseased animals) in the period
";NDA
4397
IF T$="" OR NDA=0 THEN GOTO 4239 ELSE 4398
4398
INPUT"Do you know absolute number of animal-time units at risk, yes(y) or
no(n) ";Z$
4399
IF Z$="y" OR Z$="n" THEN GOTO 4400 ELSE PRINT IDE$:GOTO
4980
4400
IF Z$="y" THEN GOTO 4401 ELSE 4402
4401
INPUT" number of animal-time
units at risk in the period
";T:GOTO 4405
4402
INPUT" average number of animals
at risk
";ANA
4403
INPUT" period duration in time
units
";PTU
4404
T=ANA*PTU
4405
PRINT
4406
IF Z$="y" AND T=0 OR Z$="n" AND (ANA+PTU)=0 THEN PRINT
IDE$:GOTO 4980
4410
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
4411
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
4412
IF I$="m" THEN GOTO 10
4413
IF I$="c" THEN GOTO 4000
4414
IF I$=CHR$(13) THEN GOTO 4415
4415
CLS:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
MORBIDITY"
4498
PRINT:PRINT"Disease(s)-type/form: ";EN$
4599
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
4500
IF P<>3 THEN PRINT"Place: "LU$;TAB(50)"Time: "TI$
4501
IF P=3 THEN PRINT"Place: "LU$;TAB(40)"Epizootic period:
"TI$
4502
IF P=3 THEN PRINT TAB(6)"Initial stage: "IS$
4503
'PRINT
4504
IF P=1 THEN GOTO 4510
4505
IF P=2 THEN GOTO 4519
4506
IF P=3 THEN GOTO 4750
4507
IF P=4 THEN GOTO 4770
4508
IF P=5 THEN GOTO 4800
4509
IF P=6 THEN GOTO 4900
4510
PRINT:PRINT:PRINT"Point prevalence rate of diseased animals = ";USING"#.####";J/A
4511
PRINT TAB(66)" = "USING"###.#### %";(J/A)*100:PRINT
4512
IF Z>0 THEN GOTO 4513 ELSE 4980
4513
PRINT"Point prevalence rate of clinically diseased animals =
";USING"#.####";Z/A;
PRINT TAB(66)" =
"USING"###.#### %";(Z/A)*100
4514
IF Z<J THEN PRINT"Point prevalence rate of subclinically diseased
animals = "USING"#.####";(J-Z)/A
IF Z<J THEN PRINT TAB(66)" =
"USING"###.#### %";(J-Z)/A*100
4515
PRINT"Proportion of clinically diseased animals = ";USING"#.####";Z/J
PRINT TAB(66)" =
"USING"###.#### %";(Z/J)*100
4516
IF Z<J THEN PRINT"Proportion of subclinically diseased animals =
";USING"#.####";(J-Z)/J ELSE 4980
PRINT TAB(66)" =
"USING"###.#### %";(J-Z)/J*100:PRINT:PRINT
4517
PRINT"Ratio of animals diseased clinically per subclinically one =
";USING"###.####";Z/(J-Z):PRINT
4518
PRINT"Ratio of animals diseased subclinically per clinically one =
";USING"###.####";(J-Z)/Z:GOTO 4980
4519
IF E>0 AND D>0 THEN GOTO 4610
4520
IF F>0 AND B>0 THEN GOTO 4620
4530
IF G>0 AND C>0 THEN GOTO 4630
4540
IF H>0 AND B>0 THEN GOTO 4640
4550
IF H>0 AND C>0 THEN GOTO 4650
4560
IF H>0 AND D>0 THEN GOTO 4660
4570
IF I>0 AND B>0 THEN GOTO 4670
4580
IF I>0 AND C>0 THEN GOTO 4680
4590
IF I>0 AND D>0 THEN GOTO 4689 ELSE 4690
4610
PRINT:PRINT" Initial point
prevalence rate of diseased animals
=
";USING"#.####";E/D:GOTO 4520
4620
PRINT" Period prevalence rate of
diseased animals = ";USING"#.####";F/B:GOTO 4530
4630
PRINT" Average prevalence rate
of diseased animals = ";USING"#.####";G/C:GOTO 4540
4640
PRINT:PRINT" Incidence rate of
diseased animals to existing total
=
";USING"#.####";H/B:GOTO 4550
4650
PRINT" Incidence rate of
diseased animals to average total
=
";USING"#.####";H/C:GOTO 4560
4660
PRINT" Incidence rate of
diseased animals to initial total
=
";USING"#.####";H/D:GOTO 4570
4670
PRINT:PRINT" Extinction rate of
diseased animals to existing total
=
";USING"#.####";I/B:GOTO 4580
4680
PRINT" Extinction rate of
diseased animals to average total
=
";USING"#.####";I/C:GOTO 4590
4689
PRINT" Extinction rate of
diseased animals to initial total
=
";USING"#.####";I/D:PRINT
4690
A$=INKEY$:IF A$="" THEN GOTO 4690
4691
CLS:PRINT:PRINT"Do you want to calculate the relations of the numbers of
diseased animals"
4692
INPUT" to those with other epi.
characteristics, yes(y) or no(n) ";EC$
4693
IF EC$="y" THEN GOTO 4694 ELSE 4980
4694
CLS:PRINT:PRINT"INPUT DATA:":PRINT
4695
PRINT:INPUT" given time
";GT$:PRINT
4696
INPUT" number of diseased
animals at the given time ";DT
4697
IF DT<>0 THEN GOTO 4698 ELSE PRINT IDM$:GOTO 4980
4698
INPUT" number of healthy animals
at the given time ";HT:PRINT
4699
INPUT" number of intrafocal
animals at the given time ";FT
4700
INPUT" number of animals at risk
at the given time ";TT:PRINT
4701
INPUT" number of resistant
animals at the given time ";RT
4702
INPUT" number of susceptible
animals at the given time
";ST:PRINT
4703
INPUT" number of investigated
animals at the given time ";IT
4704
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
4705
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
4706
IF I$="m" THEN GOTO 10
4707
IF I$="c" THEN GOTO 4691
4708
IF I$=CHR$(13) THEN GOTO 4716
4716
CLS:PRINT:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
MORBIDITY":PRINT
4717
PRINT TAB(6)"Disease(s)-type/form: ";EN$
4718
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
4719
PRINT"Place: "LU$;TAB(40)"Time: "GT$:PRINT
4720
IF DT>0 AND HT>0 THEN GOTO 4730 ELSE 4721
4721
IF DT>0 AND FT>0 THEN GOTO 4732 ELSE 4722
4722
IF DT>0 AND TT>0 THEN GOTO 4734 ELSE 4723
4723
IF DT>0 AND RT>0 THEN GOTO 4736 ELSE 4724
4724
IF DT>0 AND ST>0 THEN GOTO 4738 ELSE 4725
4725
IF DT>0 AND IT>0 THEN GOTO 4740 ELSE 4981
4730
PRINT" Ratio of diseased/healthy
animals =
";USING"#####.####";DT/HT
4731
PRINT" Ratio of healthy/diseased
animals =
";USING"#####.####";HT/DT:GOTO 4721
4732
PRINT:PRINT" Ratio of
diseased/intrafocal animals =
";USING"#####.####";DT/FT
4733
PRINT" Ratio of
intrafocal/diseased animals =
";USING"#####.####";FT/DT:GOTO 4722
4734
PRINT:PRINT" Ratio of
diseased/at risk animals =
";USING"#####.####";DT/TT
4735
PRINT" Ratio of at risk/diseased
animals =
";USING"#####.####";TT/DT:GOTO 4723
4736
PRINT:PRINT" Ratio of
diseased/resistant animals =
";USING"#####.####";DT/RT
4737
PRINT" Ratio of
resistant/diseased animals =
";USING"#####.####";RT/DT:GOTO 4724
4738
PRINT:PRINT" Ratio of
diseased/susceptible animals =
";USING"#####.####";DT/ST
4739
PRINT" Ratio of susceptible/diseased
animals =
";USING"#####.####";ST/DT:GOTO 4725
4740
PRINT:PRINT" Ratio of
diseased/investigated animals =
";USING"#####.####";DT/IT
4741
PRINT" Ratio of
investigated/diseased animals =
";USING"#####.####";IT/DT:GOTO 4980
4750
PRINT:PRINT" Specific disease
attack rate (case rate) = ";USING"#.####";S/T
4751
PRINT TAB(62)"= ";USING"###.####
%";(S/T)*100:PRINT
4752
IF IS>0 AND T>0 THEN GOTO 4753 ELSE 4980
4753
PRINT" Specific disease initial
stage attack rate = ";USING"#.####";IS/T
4754
PRINT TAB(62)"= ";USING"###.####
%";(IS/T)*100
4755
PRINT" Specific disease
post-initial stage attack rate
4756
PRINT"
(secondary attack rate) =
";USING"#.####";(S-IS)/T
4757
PRINT TAB(62)"= ";USING"###.####
%";((S-IS)/T)*100
4758
PRINT:PRINT" Proportion of
initial stage attack rate = ";USING"#.####";IS/S
PRINT TAB(62)"=
";USING"###.####
%";IS/S*100
4759
PRINT" Proportion of
post-initial stage attack rate = ";USING"#.####";(S-IS)/S
PRINT TAB(62)"=
";USING"###.####
%";((S-IS)/S)*100:PRINT
4760
PRINT" Ratio
initial/post-initial stage attack rates
= ";"1
:";USING"###.####";(S-IS)/IS
4765
PRINT" Ratio
post-initial/initial stage attack rates
= ";"1
:";USING"###.####";IS/(S-IS):GOTO 4980
4770
PRINT:PRINT" Proportional
specific disease morbidity rate = ";USING"#.####";W/Y
4771
PRINT:PRINT TAB(53)"= ";USING"###.####";(W/Y)*100;
4772
PRINT" %"
4774
PRINT:GOTO 4980
4800
IF G$="m" THEN GOTO 4801 ELSE 4818
4801
IF J>0 AND A>0 THEN PRINT:PRINT"
Point prevalence rate of diseased animals at risk =
";USING"#.####";J/A
4802
PRINT:PRINT TAB(62)"= ";USING"###.####";(J/A)*100;
4803
PRINT" %":GOTO 4980
4818
PRINT
4819
IF E>0 AND D>0 THEN PRINT"
Initial point prevalence rate of diseased animals at risk =
";USING"#.####";E/D
4820
IF F>0 AND B>0 THEN PRINT"
Period prevalence rate of diseased animals at risk =
";USING"#.####";F/B
4830
IF G>0 AND C>0 THEN PRINT"
Average prevalence rate of diseased animals at risk =
";USING"#.####";G/C
4840
IF H>0 AND B>0 THEN PRINT:PRINT"
Incidence rate of diseased animals at risk to existing total =
";USING"#.####";H/B
4850
IF H>0 AND C>0 THEN PRINT"
Incidence rate of diseased animals at risk to average total =
";USING"#.####";H/C
4860
IF H>0 AND D>0 THEN PRINT"
Incidence rate of diseased animals at risk to initial total =
";USING"#.####";H/D
4870
IF I>0 AND B>0 THEN PRINT:PRINT"
Extinction rate of diseased animals at risk to existing total = ";USING"#.####";I/B
4880
IF I>0 AND C>0 THEN PRINT"
Extinction rate of diseased animals at risk to average total =
";USING"#.####";I/C
4890
IF I>0 AND D>0 THEN PRINT"
Extinction rate of diseased animals at risk to initial total =
";USING"#.####";I/D:GOTO 4980
4900
'PRINT" Animal-time unit:
"T$:PRINT:PRINT
4892
IF NDA>0 AND T>0 THEN GOTO 4904 ELSE 4980
4904
PRINT:PRINT" Animal-time
incidence rate"
4905
PRINT" (interval incidence
density) = "USING"####.####";NDA/T;
4906
PRINT" animal-"T$;" at
risk"
4980
A$=INKEY$:IF A$="" THEN GOTO 4980
4981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
4982
IF R$="y" OR R$="n" THEN GOTO 4985 ELSE 4990
4985
IF R$="y" THEN GOTO 4000 ELSE 4990
4990
RETURN
5000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.5-SELECTED INDICATORS OF ANIMAL
POPULATION VIABILITY (SURVIVAL)"
5010
PRINT"================================================================="
5020
PRINT TAB(6)"This subprogramme calculates survival indicators according
to:"
5022
PRINT TAB(10)"1) general population aspects"
5024
PRINT TAB(10)"2) specific health/disease aspects"
5026
PRINT TAB(10)"3) reproduction categories aspects"
5027
PRINT TAB(10)"4) breeding/production categories aspects"
5030 INPUT" Enter choice number: ",CH
5035
IF CH=1 OR CH=2 OR CH=3 OR CH=4 THEN GOTO 5200 ELSE PRINT IDE$:GOTO 5980
5040
PRINT:PRINT IDM$:GOTO 5980
5200
PRINT"INPUT DATA:"
5220
IF CH=2 THEN INPUT" animals
health status - specify: ",HA$:GOTO
5226
5225 INPUT" type/form of viability ";VI$
5226
INPUT" species, category(ies)
";SP$,CA$
5231
INPUT" place, period
";LU$,TI$:PRINT
5232
IF CH=4 THEN GOTO 5320 ELSE 5235
5235
IF CH=1 OR CH=2 THEN GOTO 5236 ELSE 5238
5236
INPUT" number of animals existing
at the beginning of the period ";G
5237
INPUT" number of animals
surviving at the end of the period
";F
5238
IF CH<>4 THEN INPUT"
number of animals existing in the period ";D
5240
IF CH<>4 THEN INPUT"
number of animals born (live births) in the period ";A
5241
IF (G+F+D+A)=0 THEN GOTO 5040 ELSE 5242
5242
IF CH=3 THEN GOTO 5280 ELSE 5243
5243
IF CH=4 THEN GOTO 5320 ELSE 5250
5250
PRINT
5251
IF CH=1 OR CH=2 THEN INPUT"
number of naturally dead animals in the period ";B
5260
IF CH=1 OR CH=2 THEN INPUT"
number of animals slaughtered in the period ";C:PRINT
5270
GOTO 5410
5280
PRINT" number of females in
reproductive age"
5281
INPUT"
existing in the period
";E
5310
INPUT" number of weaned new born
animals in the period
";H:PRINT
5311
IF A=0 OR (E+D)=0 THEN GOTO 5040 ELSE 5410
5320
INPUT" number of animals at the
beginning of breeding period
";I
5330
INPUT" number of animals
surviving to the end of breeding period
";J:PRINT
5340
INPUT" number of animals at the
beginning of fattening period
";K
5350
INPUT" number of animals
surviving to the end of fattening period ";L
5400
IF (I+J+K+L)=0 THEN GOTO 5040 ELSE 5410
5410
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
5411
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
5412
IF I$="m" THEN GOTO 10
5413
IF I$="c" THEN GOTO 5000
5415
IF I$=CHR$(13) THEN GOTO 5416
5416
CLS:PRINT:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
VIABILITY (SURVIVAL)":PRINT
5417
IF CH=2 THEN PRINT TAB(6)"Animals Health Status: "HA$:GOTO 5430
5420
PRINT TAB(6)"Type of viability: "VI$
5430
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
5440
PRINT"Place: "LU$;TAB(50)"Period: "TI$:PRINT
5441
PRINT
5500
IF A>0 AND B>0 AND C>0 THEN GOTO 5600 ELSE 5510
5510
IF A>0 AND E>0 THEN GOTO 5610 ELSE 5520
5520
IF A>0 AND D>0 THEN GOTO 5620 ELSE 5525
5525
IF CH=3 THEN GOTO 5530 ELSE 5635
5530
IF H>0 AND A>0 THEN GOTO 5630 ELSE 5540
5540
IF F>0 AND G>0 THEN GOTO 5640 ELSE 5550
5550
IF CH=4 THEN GOTO 5650 ELSE 5980
5555
'IF I>0 AND J>0 THEN GOTO 5650 ELSE 5560
5560
'IF K>0 AND L>0 THEN GOTO 5660 ELSE 5980
5600
IF CH=1 OR CH=2 THEN PRINT"
Animal population viability
index = ";USING"###.####";A/(B+C):GOTO
5510
5610
PRINT:PRINT" Animal population
fertility rate = ";USING"###.####";A/E
5611
PRINT TAB(56)" = ";USING"###.#### %";(A/E)*100:GOTO
5520
5620
PRINT:PRINT" Animal population
natality rate"
5621
PRINT" (crude
live birth rate) = ";USING"###.####";A/D
5622
PRINT"
= ";USING"###.####
%";(A/D)*100:GOTO 5530
5630
PRINT:PRINT" Animal
survival-to-weaning rate"
5631
PRINT" (weaned new born
animals' rate) = ";USING" #.####";H/A
5632
PRINT"
= ";USING"###.####
%";(H/A)*100:GOTO 5550
5635
IF CH=4 THEN GOTO 5650 ELSE 5640
5640
IF CH=1 OR CH=2 THEN PRINT:PRINT"
Animal population survival rate
= ";USING" #.####";F/G
5641
PRINT"
= ";USING"###.####
%";(F/G)*100:GOTO 5980
5650
PRINT:IF I>0 AND J>0 THEN GOTO 5651 ELSE 5654
5651
PRINT" Breeding animals survival
rate = ";USING" #.####";J/I
5652
PRINT"
= ";USING"###.####
%";(J/I)*100:GOTO 5654
5654
PRINT:IF K>0 AND L>0 THEN GOTO 5661 ELSE 5980
5661
PRINT" Fattening animals
survival rate = ";USING" #.####";L/K
5663
PRINT"
= ";USING"###.####
%";(L/K)*100
5670
PRINT
5980
A$=INKEY$:IF A$="" THEN GOTO 5980
5981 F=0:D=0:A=0:C=0:E=0:H=0:I=0:J=0:K=0:L=0
5982
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
5983
IF R$="y" OR R$="n" THEN GOTO 5985 ELSE 5990
5985
IF R$="y" THEN GOTO 5000 ELSE 5990
5990
RETURN
6000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.6-SELECTED INDICATORS OF ANIMAL
POPULATION MORTALITY"
6010
PRINT"======================================================"
6051
PRINT"Do you want to evaluate general-crude mortality / crude death rate
(g)"
6053
PRINT"or cause/category specific death rate - specific disease mortality
(s)"
6055
INPUT" or
neonatal mortality rate (n)
";M$:PRINT
6056
IF M$="g" OR M$="s" OR M$="n" THEN GOTO 6100 ELSE
PRINT IDE$:GOTO 6980
6100
PRINT"INPUT DATA:"
6118
IF M$="g" THEN GOTO 6218
6120
IF M$="s" THEN GOTO 6219
6121
IF M$="n" THEN GOTO 6231 ELSE 6051
6218
INPUT" type of mortality
";MO$:GOTO 6231
6219
INPUT" specific disease(s)/form
";SD$
6231
INPUT" place, period
";LU$,TI$
6233
INPUT" species, category(ies)
";SP$,CA$
6235
IF M$="n" THEN GOTO 6450
6250
PRINT" total number of animals
existing"
6251
INPUT" at
the beginning of the period
";B
6260
INPUT" total number of animals
existing in the period ";C
6265
INPUT" average total number of
animals in the period
";D
6270
IF (B+C+D)=0 THEN 6454 ELSE 6271
6271
PRINT:INPUT" total number of
naturally dead animals in the period
";E
6274
IF M$="g" THEN GOTO 6281 ELSE 6400
6281
INPUT" total number of
slaughtered animals in the period
";H
6282
IF H>0 AND E>0 THEN A=(H+E) ELSE A=0
6283
IF C>0 AND (E+H)>C THEN GOTO 6454
6290
PRINT:INPUT" total number of
diseased animals in the period
";F
6300
INPUT" total number of diseased
animals naturally dead
";G
6305
GOTO 6490
6400
IF M$="s" THEN GOTO 6401 ELSE 6450
6401
PRINT:PRINT" number of
specifically diseased animals existing"
6402
INPUT"
in the period ";L
6405
PRINT" number of naturally dead
specifically diseased animals"
6406
INPUT"
in the period ";P
6407
PRINT" number of slaughtered
specifically diseased animals"
6408
INPUT"
in the period ";Q
6409
IF (L+P+Q)=0 OR (P+Q)>L THEN GOTO 6454 ELSE 6410
6410
IF L<P OR E<P THEN PRINT IDE$:GOTO 6980
6427
GOTO 6490
6450
PRINT:INPUT" number of live
animal births in the period
";LAB
6452
PRINT:INPUT" number of deaths of
new born animals in the period
";DNB
6453
IF LAB=0 OR DNB=0 OR DNB>LAB THEN GOTO 6454 ELSE 6490
6454
PRINT:PRINT IDE$:GOTO 6980
6490
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
6491
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
6492
IF I$="m" THEN GOTO 10
6493
IF I$="c" THEN GOTO 6000
6494
IF I$=CHR$(13) THEN GOTO 6500
6500
CLS:PRINT TAB(6)"SELECTED INDICATORS
OF ANIMAL POPULATION
MORTALITY":PRINT
6501
IF M$="g" THEN GOTO 6504:
6502
IF M$="s" THEN GOTO 6505
6503
IF M$="n" THEN GOTO 6700
6504
PRINT TAB(6)"Type of mortality: "MO$:GOTO 6506
6505
PRINT TAB(6)"Specific disease(s): "SD$
6506 PRINT"Species:
"SP$;TAB(40)"Category(ies): "CA$
6507
PRINT"Place: "LU$;TAB(50)"Period: "TI$:PRINT
6509
IF M$="g" THEN GOTO 6510 ELSE 6660
6510
IF E<0 THEN GOTO 6511 ELSE 6512
6511
LET E=(A-H):GOTO 6519
6512
IF H<0 THEN GOTO 6513 ELSE 6519
6513
LET H=(A-E):GOTO 6519
6519
IF A>0 AND B>0 THEN GOTO 6610
6520
IF A>0 AND C>0 THEN GOTO 6620
6530
IF A>0 AND D>0 THEN GOTO 6630
6540
IF E>0 AND B>0 THEN GOTO 6640
6545
IF E>0 AND C>0 THEN GOTO 6641
6546
IF E>0 AND D>0 THEN GOTO 6642
6547
IF H>0 AND B>0 THEN GOTO 6645
6548
IF H>0 AND C>0 THEN GOTO 6646
6549
IF H>0 AND D>0 THEN GOTO 6647
6550
IF G>0 AND F>0 THEN GOTO 6650 ELSE 6651
6600
PRINT
6610
PRINT" Animal population total
mortality rate to initial total = ";USING"#.####";A/B:GOTO 6520
6620
PRINT" Animal population total
mortality rate to existing total = ";USING"#.####";A/C:GOTO 6530
6630
PRINT" Animal population total
mortality rate to average total = ";USING"#.####";A/D:GOTO 6540
6640
PRINT:PRINT" Animal population
natural mortality rate to initial total
=
";USING"#.####";E/B:GOTO 6545
6641
PRINT" Animal population natural
mortality rate to existing total =
";USING"#.####";E/C:GOTO 6546
6642
PRINT" Animal population natural
mortality rate to average total = ";USING"#.####";E/D:GOTO 6547
6645
PRINT:PRINT" Slaughtered animals
rate to initial total
=
";USING"#.####";H/B:GOTO 6548
6646
PRINT" Slaughtered animals rate
to existing total = ";USING"#.####";H/C:GOTO 6549
6647
PRINT" Slaughtered animals rate
to average total = ";USING"#.####";H/D:GOTO 6550
6650
PRINT:PRINT" Animal population
crude case fatality rate
=
";USING"#.####";G/F
6651
PRINT
6652
IF A>0 THEN PRINT" Note: 'total
mortality' is based on a sum of dead and slaughtered animals;"
6653
IF A>0 THEN PRINT"
'natural mortality' is based on naturally dead animals only.":GOTO
6980
6660
PRINT
6661
IF P>0 AND Q>0 AND B>0 THEN GOTO 6681
6662
IF P>0 AND Q>0 AND C>0 THEN GOTO 6682
6663
IF P>0 AND Q>0 AND D>0 THEN GOTO 6683
6664
IF P>0 AND B>0 THEN GOTO 6684
6665
IF P>0 AND C>0 THEN GOTO 6685
6666
IF P>0 AND D>0 THEN GOTO 6686
6667
IF Q>0 AND B>0 THEN GOTO 6687
6668
IF Q>0 AND C>0 THEN GOTO 6688
6669
IF Q>0 AND D>0 THEN GOTO 6689
6670
IF P>0 AND L>0 THEN GOTO 6691
6671
IF P>0 AND E>0 THEN GOTO 6695 ELSE 6980
6675
PRINT
6681
PRINT" Specific disease total
mortality rate to initial total
=
";USING"#.####";(P+Q)/B:GOTO 6662
6682
PRINT" Specific disease total
mortality rate to existing total
=
";USING"#.####";(P+Q)/C:GOTO 6663
6683
PRINT" Specific disease total
mortality rate to average total
=
";USING"#.####";(P+Q)/D:PRINT:GOTO 6664
6684
PRINT" Specific disease natural
mortality rate to initial total
= ";USING"#.####";P/B:GOTO
6665
6685
PRINT" Specific disease natural
mortality rate to existing total
=
";USING"#.####";P/C:GOTO 6666
6686
PRINT" Specific disease natural
mortality rate to average total
=
";USING"#.####";P/D:PRINT:GOTO 6667
6687
PRINT" Specificaly diseased
slaughtered animals rate to initial total
=
";USING"#.####";Q/B:GOTO 6668
6688
PRINT" Specificaly diseased
slaughtered animals rate to existing total =
";USING"#.####";Q/C:GOTO 6669
6689
PRINT" Specificaly diseased slaughtered
animals rate to average total = ";USING"#.####";Q/D:GOTO 6670
6691
PRINT:PRINT" Specific disease case
fatality rate (lethality)
=
";USING"#.####";P/L:GOTO 6671
6695
PRINT" Specific disease
proportional case fatality rate =
";USING"#.####";P/E:GOTO 6980
6700
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
6701
PRINT"Place: "LU$;TAB(40)"Period: "TI$:PRINT
6705
PRINT:PRINT TAB(5)"Animal population neonatal mortality rate =
";USING"#.####";DNB/LAB:PRINT
6706
PRINT TAB(5)"
= ";USING"###.##";DNB/LAB*100;
6707
PRINT" %":PRINT
6980
A$=INKEY$:IF A$="" THEN GOTO 6980
6981
P=0:L=0:Q=0
6982
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
6983
IF R$="y" OR R$="n" THEN GOTO 6985 ELSE 6990
6985
IF R$="y" THEN GOTO 6000 ELSE 6990
6990
RETURN
7000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.7-SELECTED INDICATORS OF ANIMAL
DISEASE NIDALITY (FOCALITY)"
7010
PRINT"============================================================="
7050
PRINT"INPUT DATA:"
7051
INPUT" disease(s) ";EN$
7052
INPUT" species ";SP$
7053
INPUT" focal measure units
(herds, flocks, farms, ranches, etc.) ";FU$
7054
INPUT" definition of foci
";DF$
7055
INPUT" type(s)/form(s) of foci
(outbreaks) ";TF$
7090
INPUT" place ";LU$
7091
INPUT" territorial surface
measure units, total number ";TU$,I
7100
PRINT" Do you want to calculate
indicators related to the given moment (m)"
7101
INPUT" or
indicators related to the given period (p) ";P$
7104
IF P$="m" OR P$="p" THEN GOTO 7114 ELSE PRINT IDE$:GOTO
7980
7114
IF P$="m" THEN GOTO 7115 ELSE 7116
7115
INPUT" time-moment
";TI$:GOTO 7117
7116
INPUT" time-period
";TI$:GOTO 7126
7117
IF FU$="herds" THEN GOTO 7122
7119
INPUT" number of focal measure
units existing at the given moment ";C
7120
INPUT" number of foci existing
at the given moment
";D
7121
INPUT" number of animals
existing in foci at the given moment
";AN:GOTO 7125
7122
PRINT:INPUT" number of herds at
the given moment
";K
7123
INPUT" number of diseased
herds at the given moment ";L
7124
INPUT" number of animals
existing in diseased herds
";HF
7125
IF (C+D+K+L)=0 THEN GOTO 7140 ELSE 7190
7126
PRINT" number of focal measure
units existing"
7127
INPUT"
at the beginning of the period
";B
7128
INPUT" number of foci existing
at the beginning of the period
";BB
7129
INPUT" number of focal measure
units existing in the period
";E
7130
INPUT" number of foci existing
in the period
";F
7131
INPUT" average number of focal
measure units in the period
";AM
7132
INPUT" average number of foci in the period ";AF
7133
INPUT" number of new foci in the
period ";G
7135
INPUT" number of extinct foci in
the period ";H
7137
INPUT" number of animals
existing in foci in the period
";AP
7138
IF (B+BB+E+F+AM+AF+G+H+AP)=0 THEN GOTO 7140 ELSE 7190
7140
PRINT:PRINT IDM$:GOTO 7980
7190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
7191
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
7192
IF I$="m" THEN GOTO 10
7193
IF I$="c" THEN GOTO 7000
7194
IF I$=CHR$(13) THEN GOTO 7200
7200
CLS:PRINT:PRINT TAB(6)"SELECTED INDICATORS OF ANIMAL DISEASE
NIDALITY (FOCALITY)":PRINT
7201
PRINT TAB(6)"Disease(s): "EN$
7202
PRINT"Species: "SP$
7203
PRINT TAB(6)"Focal measure units: "FU$
7204
PRINT"Definition of foci: "DF$
7205
PRINT"Type/form of foci: "TF$
7206
PRINT"Place: "LU$;TAB(50)"Time: "TI$:PRINT:PRINT
7207
IF P$="m" THEN GOTO 7208 ELSE 7225
7208
IF D=0 AND C=0 THEN GOTO 7213 ELSE PRINT" Point prevalence rate of foci = ";USING"#.####";D/C
7209
PRINT"
= "
;USING"###.####";D/C*100;
7210 PRINT"
%":PRINT
7211
IF AN>0 AND D>0 THEN PRINT"
Average number of intrafocal animals" ELSE GOTO 7213
7212
PRINT"
at the given moment =
";USING"######.#";AN/D:PRINT:GOTO 7218
7213
IF K>0 AND L>0 THEN PRINT"
Point prevalence rate of diseased herds = ";USING" #.####";L/K ELSE GOTO 7216
7214
PRINT"
= "
;USING"###.####";L/K*100;
7215
PRINT" %":PRINT
7216
IF L>0 AND HF>0 THEN PRINT"
Average number of animals in diseased herds =
";USING"######.#";HF/L ELSE GOTO 7218
7217
PRINT
7218
IF D>0 AND I>0 THEN PRINT"
Average density of foci per "TU$;" = ";USING"####.######";D/I:PRINT
7219
IF L>0 AND I>0 THEN PRINT"
Average density of diseased herds per "TU$;" =
";USING"####.######";L/I:PRINT
7220
IF D>0 AND I>0 THEN PRINT"
Ratio of ";TU$;" per one focus ";TAB(56)" = ";USING"####.##";I/D
7221
IF L>0 AND I>0 THEN PRINT"
Ratio of ";TU$;" per one diseased herd ";TAB(56)" = ";USING"####.##";I/L
7224
PRINT:GOTO 7980
7225
IF B>0 AND BB>0 THEN GOTO 7320
7230
IF F>0 AND E>0 THEN GOTO 7330
7235
IF AM>0 AND AF>0 THEN GOTO 7335
7240
IF G>0 AND E>0 THEN GOTO 7340
7250
IF H>0 AND E>0 THEN GOTO 7350
7260
IF F>0 AND I>0 THEN GOTO 7360
7286
IF AP>0 AND F>0 THEN GOTO 7386 ELSE 7980
7300
PRINT
7320
PRINT:PRINT" Initial point
prevalence rate of foci = ";USING"#.####";BB/B:GOTO
7230
7330
PRINT" Period prevalence rate of
foci =
";USING"#.####";F/E:GOTO 7235
7335
PRINT" Average prevalence rate
of foci = ";USING"#.####";AF/AM:GOTO
7240
7340
PRINT:PRINT" Incidence rate of
foci to existing total = ";USING"#.####";G/E:GOTO
7250
7350
PRINT" Extinction rate of foci to existing
total = ";USING"#.####";H/E:GOTO
7260
7360
PRINT
7361
PRINT" Average density of foci
per "TU$;" =
";USING"####.####";F/I:GOTO 7286
7386
PRINT:PRINT" Average number of
intrafocal animals in the given period =
";USING"####.#";AP/F:GOTO 7980
7980
A$=INKEY$:IF A$="" THEN GOTO 7980
7981
C=0:D=0:AN=0:K=0:L=0:HF=0:B=0:BB=0:E=0:F=0:AM=0:AF=0:G=0:H=0:AP=0
7982
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
7983
IF R$="y" OR R$="n" THEN GOTO 7985 ELSE 7990
7985
IF R$="y" THEN GOTO 7000 ELSE 7990
7990
RETURN
8000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.8-SELECTED INDICATORS OF ANIMAL
DISEASE TERRITORIAL DISTRIBUTION"
8010
PRINT"=================================================================="
8020
PRINT"(villages, districts, regions, provinces, counties, zones,
countries, etc.)"
8030
PRINT"INPUT DATA:"
8031
INPUT" disease(s)/form
";FE$
8032
INPUT" species, category(ies)
";SP$,CA$
8033
INPUT" place (territory)
";LU$
8040
INPUT" surface measure units
";SU$
8044
INPUT" total number of surface
measure units of the territory ";B
8045
IF B=0 THEN PRINT IDM$:GOTO 8980
8110
PRINT" Do you want to calculate
indicators related to the given moment (m)"
8111
INPUT" or indicators related to
the given period (p) ";P$
8112
IF P$="m" OR P$="p" THEN GOTO 8114 ELSE PRINT IDE$:GOTO
8980
8114
IF P$="m" THEN GOTO 8115 ELSE 8116
8115
INPUT" time-moment
";TI$:GOTO 8120
8116
INPUT" time-period ";TI$:GOTO
8140
8120
PRINT:INPUT" affected area size
existing at the given moment
";D
8121
IF D=0 OR D>B THEN PRINT IDE$:GOTO 8980 ELSE 8122
8122
PRINT:PRINT" number of animals
existing in affected area"
8123
INPUT" at the given moment ";AN:GOTO
8200
8140
PRINT" number of surface units
of affected area"
8150
INPUT"
at the beginning of the period
";S
8151
PRINT" number of surface
units"
8152
INPUT" of affected
area existing in the period ";T
8153
PRINT" average number of measure
units"
8154
INPUT" of
affected area in the period ";V
8155
PRINT" number of surface
units"
8156
INPUT" of new
affected area in the period ";Y
8157
PRINT" number of surface units
of extinct affected area"
8158
INPUT"
(become free) in the period
";W
8160
IF (S+T+V+Y+W)=0 THEN PRINT:PRINT IDM$:GOTO 8980
8200
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
8201
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
8202
IF I$="m" THEN GOTO 10
8203
IF I$="c" THEN GOTO 8000
8204
IF I$=CHR$(13) THEN GOTO 8205
8205
CLS:PRINT TAB(6)"SELECTED INDICATORS OF ANIMAL DISEASE
TERRITORIAL
DISTRIBUTION":PRINT
8210
PRINT"Place: "LU$;TAB(50)"Time: "TI$
8215
PRINT TAB(6)"Disease(s): "FE$
8220
PRINT"Species: "SP$;TAB(40)"Category(ies): ";CA$
8221
PRINT TAB(6)"Surface of evaluated territory: "INT(B+.5) SU$
8300
PRINT:PRINT
8307
IF P$="m" THEN GOTO 8308 ELSE 8401
8308
IF B>0 AND D>0 THEN PRINT"
Point prevalence rate of affected area = ";USING"#.####";D/B:PRINT
8309
PRINT"
= " ;USING"###.####
%";D/B*100:PRINT
8320
IF AN>0 AND B>0 THEN PRINT"
Average number of animals in affected area"
8321
IF AN>0 AND B>0 THEN PRINT" per
surface unit = ";USING"#####.##";AN/D
8322
GOTO 8980
8401
IF B>0 AND S>0 THEN PRINT"
Initial point prevalence rate of affected area =
";USING"#.####";S/B;
8402
PRINT
8403
IF B>0 AND T>0 THEN PRINT"
Period prevalence rate of affected area =
";USING"#.####";T/B;
8404
IF B>0 AND V>0 THEN PRINT"
Average prevalence rate of affected area =
";USING"#.####";V/B;
8405
PRINT
8406
IF B>0 AND Y>0 THEN PRINT:PRINT"
Incidence rate of affected area = ";USING"#.####";Y/B;
8407
PRINT
8408
IF B>0 AND W>0 THEN PRINT:PRINT"
Extinction rate of affected area (recovery rate) =
";USING"#.####";W/B;
8980
A$=INKEY$:IF A$="" THEN GOTO 8980
8981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
8982
IF R$="y" OR R$="n" THEN GOTO 8985 ELSE 8990
8985
IF R$="y" THEN GOTO 8000 ELSE 8990
8990
RETURN
9000
CLS:PRINT TAB(52)e$" "v$:PRINT"2.9-HUMAN/ANIMAL POPULATIONS AND
ZOONOSES"
9001
PRINT"========================================="
9100
PRINT TAB(2)"This subprogramme calculates:"
9102
PRINT TAB(6)"1) human population density and distribution"
9104
PRINT TAB(6)"2) human population categories structure"
9106
PRINT TAB(6)"3) ratios of animal/human populations"
9108
PRINT TAB(6)"4) ratios of animals/humans diseased by zoonoses"
9114
INPUT" Enter choice number: ",S
9115
IF S=1 OR S=2 OR S=3 OR S=4 THEN GOTO 9120 ELSE PRINT IDE$:GOTO 9980
9120
PRINT"INPUT DATA"
9121
INPUT" place (territory), time
";PL$,TI$
9122
IF (S=1) THEN INPUT" space
measure units (up to 8 characters !) ";SU$
9123
IF (S=3) THEN GOTO 9180
9124
IF (S=2) THEN INPUT" category
according to ";CA$
9125
IF (S=4) THEN INPUT" zoonotic
disease(s) ";DI$
9126
IF (S=4) THEN INPUT" indicator
";IN$:GOTO 9185
9129
INPUT" number (up to 11 !) of
data ";N
9130
IF N=0 OR N>11 THEN PRINT IDE$:GOTO 9980
9135
PRINT" List data (names up to 15
characters):"
9140
FOR I=1 TO N
9141
PRINT " "I;"";
9142
IF (S=1) THEN GOTO 9143 ELSE 9144
9143
INPUT" subterritory, size, persons ";TE$(I),TS(I),AN(I):GOTO 9146
9144
IF (S=2) THEN GOTO 9145
9145
INPUT" category, number of persons ";TE$(I),AN(I)
9146
IF AN(I)=0 THEN PRINT:PRINT IDM$:GOTO 9980 ELSE 9155
9155
NEXT I
9160
SU1=0:SU2=0
9162
FOR I=1 TO N
9164
SU1=SU1+TS(I)
9166
NEXT I
9167
FOR I=1 TO N
9168
SU2=SU2+AN(I)
9169
NEXT I
9170
MAX=AN(1)
9171
FOR I=2 TO N
9172
IF AN(I)>MAX THEN MAX=AN(I)
9173
NEXT I
9179
GOTO 9200
9180
INPUT" animal species ";SP$
9181
INPUT" number of animals ";AN
9182
INPUT" number of persons ";PE
9183
IF AN=0 OR PE=0 THEN GOTO 9195 ELSE GOTO 9200
9185
INPUT" animal species ";SP$
9186
INPUT" number of animals ";AN
9187
'INPUT" number of healthy
animals ";HA
9188
INPUT" number of diseased
animals ";DA:PRINT
9189
IF DA=0 THEN GOTO 9195 ELSE 9190
9190
INPUT" number of persons ";PE
9191
'INPUT" number of healthy
persons ";HP
9192
INPUT" number of diseased
persons ";DP
9193
IF DP=0 THEN GOTO 9195 ELSE 9200
9195
PRINT IDM$:GOTO 9980
9200
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
9201
PRINT TAB(18)"to go back to menu then key 'm'":PRINT:INPUT" else ENTER to continue !
",I$:PRINT
9202
IF I$="m" THEN GOTO 10
9203
IF I$="c" THEN GOTO 9000
9204
IF I$=CHR$(13) THEN GOTO 9205
9205
CLS:PRINT
9206
IF S=1 THEN PRINT TAB(3)"H U M A N
P O P U L A T I O N -
TERRITORIAL DENSITY AND
DISTRIBUTION"
9207 IF S=2 THEN PRINT TAB(5)"H U M A N P O P U L A T I O N C A T E G O R Y S T R U C T U R E"
9208
IF S=3 OR S=4 THEN PRINT"RESULT:":PRINT
9210
PRINT
9211
IF (S=4) THEN PRINT"Disease(s): ";DI$
9212
PRINT"Place: "PL$;TAB(50)"Time: ";TI$
9213
IF (S=2) THEN PRINT"Category according to: "CA$
9215
IF (S=3) THEN GOTO 9450
9216
IF (S=4) THEN GOTO 9500
9250
PRINT
9302
IF S=2 THEN GOTO 9310
9304
PRINT:PRINT TAB(2)"Subterritory";TAB(19)USING"\ \";SU$;
9305
PRINT TAB(31)"Number
of";TAB(45)"Average";TAB(55)"Proportion";TAB(66)"Percentage"
9306
PRINT TAB(31)"Inhabitants";TAB(45)"Number":PRINT:GOTO 9354
9310
PRINT:PRINT TAB(3)"Category";TAB(31)"Number
of";TAB(45)"Proportion";TAB(60)"Percentage"
9312
PRINT TAB(31)"Inhabitants":PRINT
9354
IF (S=1) THEN GOTO 9355 ELSE 9365
9355
FOR I=1 TO N
9356
PRINT TAB(2)USING"\
\";TE$(I);
9357
PRINT TAB(18)INT(TS(I)+.5);TAB(30)INT(AN(I)+.5);TAB(43)USING"######.##";AN(I)/TS(I);TAB(56)USING"#.######";AN(I)/SU2;
9358
PRINT TAB(66)USING"###.####";(AN(I)/SU2)*100
9359
NEXT I
9360
PRINT:PRINT TAB(2)"T o t a
l";TAB(18)INT(SU1+.5);TAB(30)INT(SU2+.5);TAB(43)USING"######.##";SU2/SU1;
9361
PRINT TAB(56)"1.000000";TAB(66)"100.0000"
9363
GOTO 9380
9365
FOR I=1 TO N
9366
PRINT TAB(2)USING"\
\";TE$(I);
9367
PRINT TAB(31)INT(AN(I)+.5);TAB(46)USING"#.######";AN(I)/SU2;
9368
PRINT TAB(60)USING"###.####";(AN(I)/SU2)*100
9369
NEXT I
9370
PRINT
9372
PRINT TAB(2)"T o t a l";TAB(31)INT(SU2+.5);
9373
PRINT TAB(46)"1.000000";TAB(60)"100.0000"
9380
IF (S=1) OR (S=2) THEN GOTO 9400 ELSE 9980
9400
A$=INKEY$:IF A$="" THEN GOTO 9400
9401
IF N=1 THEN GOTO 9981
9410
CLS:PRINT
9411
IF S=1 THEN PRINT TAB(10)"H U M A N
P O P U L A T I O N - TERRITORIAL DISTRIBUTION"
9412 IF S=2 THEN PRINT TAB(4)"H U M A N P O P U L A T I O N C A T E G O R Y S T R U C T U R E"
9413
IF MAX<(SU1/2) OR MAX<(SU2/2) THEN GOTO 9414 ELSE 9430
9414 IF
S=1 THEN PRINT:PRINT TAB(14)"(";CHR$(223);" represents 1 % of
total "INT(SU2+.5);" inhabitants)":PRINT:GOTO 9416
9415
IF S=2 THEN PRINT:PRINT TAB(14)"(";CHR$(223);" represents 1 % of
total "INT(SU2+.5);" inhabitants)":GOTO 9417
9416
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 10 20 30 40 50 %":GOTO 9418
9417
PRINT:PRINT TAB(2)"Category";TAB(20)"0 10 20 30 40 50 %"
9418
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------|"
9419
FOR I=1 TO N
9420
Z=(AN(I)/SU2)*100
9421
IF Z<1 THEN GOTO 9422 ELSE 9425
9422
IF Z>0 THEN GOTO 9423 ELSE 9425
9423
PRINT TAB(2)USING"\
\";TE$(I);
9424
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 9429
9425
PRINT TAB(2)USING"\ \";TE$(I);
9426
PRINT TAB(20)CHR$(179);
9427
FOR K=1 TO (AN(I)/SU2)*100:PRINT CHR$(223);
9428
NEXT K:PRINT
9429
NEXT I:GOTO 9980
9430
IF S=1 THEN PRINT:PRINT TAB(14)"(";CHR$(223);" represents 2 % of
total "INT(SU2+.5);" inhabitants)":PRINT:GOTO 9432
9431 IF
S=2 THEN PRINT:PRINT TAB(14)"(";CHR$(223);" represents 2 % of
total "INT(SU2+.5);" inhabitants)":GOTO 9433
9432
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 20 40 60 80
100 %":GOTO 9434
9433
PRINT:PRINT TAB(2)"Category";TAB(20)"0 20 40 60 80
100 %"
9434
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------|"
9435
FOR I=1 TO N
9436
Z=(AN(I)/SU2)*50
9437
IF Z<1 THEN GOTO 9438 ELSE 9441
9438
IF Z>0 THEN GOTO 9439 ELSE 9441
9439
PRINT TAB(2)USING"\
\";TE$(I);
9440
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 9449
9441
PRINT TAB(2)USING"\
\";TE$(I);
9442
PRINT TAB(20)CHR$(179);
9443
FOR K=1 TO (AN(I)/SU2)*50
9444
PRINT CHR$(223);
9445
NEXT K
9446
PRINT
9447 NEXT
I:MAX=0
9449
PRINT:GOTO 9980
9450
PRINT:PRINT"Number of persons: "INT(PE+.5);TAB(40)"Number of
"SP$;": "INT(AN+.5)
9451
PRINT:PRINT
9452
PRINT:PRINT" Ratio of animals
per one person =
"USING"####.######";AN/PE;
9453
PRINT" : 1":PRINT
9454
PRINT" Ratio of persons per one
animal =
"USING"####.######";PE/AN;
9455
PRINT" : 1":PRINT:PRINT:PRINT
9499
GOTO 9980
9500
PRINT"Animal species: "SP$;TAB(40)"Indicator:
"IN$:PRINT:PRINT
9501
IF DA>0 AND PE>0 THEN PRINT"
Ratio of diseased animals per one person =
"USING"###.####";DA/PE;ELSE GOTO 9503
9502
PRINT" : 1":PRINT
9503
IF DA>0 AND DP>0 THEN PRINT"
Ratio of diseased animals per one diseased person
="USING"#####.####";DA/DP;ELSE GOTO 9507
9504
PRINT" : 1":PRINT
9507
IF DP>0 AND AN>0 THEN PRINT"
Ratio of diseased persons per one animal =
"USING"###.####";DP/AN;ELSE GOTO 9509
9508
PRINT" : 1":PRINT
9509
IF DP>0 AND DA>0 THEN PRINT"
Ratio of diseased persons per one diseased animal =
"USING"###.####";DP/DA;ELSE GOTO 9980
9510
PRINT" : 1":PRINT
9980
A$=INKEY$:IF A$="" THEN GOTO 9980
9981
CLS:MAX=0:TE$="":TS=0:AN=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
9982
IF R$="y" OR R$="n" THEN GOTO 9985 ELSE 9990
9985
IF R$="y" THEN GOTO 9000 ELSE 9990
9990
RETURN
10000
CLS:INPUT"Do you want to return to the main menu of EPIZOO, yes(y) or
no(n) ";Z$
10010
IF Z$="y" THEN GOTO 10020 ELSE 10030
10020
CHAIN"EPIZ40MM.KOU"
10025
CLS:PRINT TAB(5)"E R R O R ! Start
again! Next input error may terminate the programme!":PRINT:GOTO 500
10030
SYSTEM
3-Selected
indicators of animal population health structures
5 ON ERROR GOTO 14025
6 IDM$="Input data missing !"
7 IDE$="Input data error !"
8 DS$="Data source:"
10
PRINT"EPIZ4003.KOU":REM:7/9/2002
12
REM: 9,11,12 - missing INT ?
15 e$="EPIZOO, ver.4.0,":v$=DATE$
20
CLS:PRINT"EPIZOO, ver.4.0";TAB(70)v$:PRINT
30
PRINT TAB(9)"3-SELECTED INDICATORS OF ANIMAL POPULATION HEALTH STRUCTURES
"
40
PRINT TAB(9)"============================================================"
90
PRINT
500
PRINT TAB(15)"M E N U O F S U B P R O G R A M M E S":PRINT
510
PRINT TAB(9)"1-Animal population epizootiological structure"
520
PRINT TAB(9)"2-Animal population disease territorial structure"
530
PRINT TAB(9)"3-Animal population diseases foci (outbreaks) types'
structure"
540
PRINT TAB(9)"4-Territory epizootiological structure"
550
PRINT TAB(9)"5-Morbidity, mortality and nidality structure by
causes/forms"
560
PRINT TAB(9)"6-Disease occurrence according to animal species and
categories"
570
PRINT TAB(9)"7-Disease occurrence according to breeding/production
conditions"
580
PRINT TAB(9)"8-Disease occurrence according to ecological conditions"
585
PRINT TAB(9)"9-Tables of animal disease occurrence acc. to dif.
criteria"
590
PRINT TAB(9)"10-Tables of animal population, farms and territory epi.
structure"
600
PRINT TAB(9)"11-Tables of disease foci and intrafocal structure"
602
PRINT TAB(9)"12-Proportions of disease different forms/symptoms
findings"
603
PRINT TAB(9)"13-Proportions of specific etiological agents/antibodies
findings"
609
PRINT
610
PRINT TAB(9)"14-E N D of this group
of subprogrammes"
630
PRINT
640
GOTO 690
644
A$=INKEY$:IF A$="" THEN GOTO 644
645
CLS
650
INPUT"Do you want to continue in this group of subprogrammes, yes(y) or
no(n) ";Z$
651 IF
Z$="y" OR Z$="n" THEN GOTO 660 ELSE 14000
660 IF
Z$="y" THEN GOTO 20 ELSE GOTO 14000
690
INPUT" Enter choice number :
",M
695 IF
M=1 OR M=2 OR M=3 OR M=4 OR M=5 OR M=6 OR M=7 OR M=8 OR M=9 OR M=10 OR M=11 OR
M=12 OR M=13 OR M=14 THEN GOTO 700 ELSE 650
700 ON
M GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000
800
GOTO 645
1000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.1-ANIMAL POPULATION
EPIZOOTIOLOGICAL STRUCTURE "
1010
PRINT"================================================"
1100
PRINT"INPUT DATA:"
1110
INPUT" disease(s) ";EN$
1112
INPUT" place, time
";LU$,TI$
1115
INPUT" species, category(ies)
";SP$,CA$:PRINT
1119
INPUT" total number of animals
of a given population ";A
1120
IF A=0 THEN GOTO 1121 ELSE 1122
1121
PRINT IDM$:GOTO 1980
1122
PRINT:INPUT" number of
epizootiologically h e a l t h y animals
";B
1126
INPUT" number of exposed
epizootiologically healthy animals
";F
1127
INPUT" number of directly
exposed epiz. healthy animals
";H:PRINT
1128
PRINT" number of animals
epizootiologically"
1129
INPUT" i n d e t e r m i n
a t e with clinical symptoms ";J:PRINT
1130
PRINT" number of epizootiologically a f f e c t e d "
1131
INPUT"
( d i s e a s e d ) animals
";D
1132
PRINT" number of animals
epizootiologically affected "
1133
INPUT"
(diseased) with clinical symptoms
";L
1134
IF B=0 THEN B=(F+H):IF D=0 THEN D=L
1140
IF (B+J+D)>A THEN GOTO 1145 ELSE 1147
1145
PRINT:PRINT"Error ! Sum of parts cannot be major than total !":GOTO
1980
1147
IF (B+J+D+L+F+H)=0 THEN GOTO 1121 ELSE 1190
1190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
1191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
1192
IF I$="m" THEN GOTO 10
1193
IF I$="c" THEN GOTO 1000
1194
IF I$=CHR$(13) THEN GOTO 1200
1200
CLS:PRINT TAB(3)"ANIMAL POPULATION
E P I Z O O T I O L O G I C A L
S T R U C T U R E ":PRINT
1202
PRINT TAB(6)"Disease(s): "EN$
1203
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
1204
PRINT"Place: "LU$;TAB(50)"Time: "TI$
1205
PRINT
1212
PRINT TAB(53)"Number";TAB(64)"Proportion":PRINT
1215
IF B>0 THEN GOTO 1350
1240
IF F>0 AND (B-F)>0 THEN GOTO 1390
1250
IF F>0 THEN GOTO 1400
1260
IF H>0 AND (F-H)>0 THEN GOTO 1410
1270
IF H>0 THEN GOTO 1420
1280
IF (A-B-D)>0 THEN GOTO 1425
1285
IF J>0 AND (A-B-D-J)>0 THEN GOTO 1430
1290
IF J>0 THEN GOTO 1440
1293
IF D>0 THEN GOTO 1445
1294
IF L=0 THEN GOTO 1461 ELSE 1295
1295
IF L>0 AND (D-L)>0 THEN GOTO 1450
1296
IF L>0 THEN GOTO 1460 ELSE GOTO 1980
1350
PRINT TAB(3)"Epizootiologically healthy
animals";TAB(52)INT(B);TAB(64)USING"#.####";B/A:GOTO 1240
1390
PRINT TAB(5)"Non-exposed epi.healthy
animals";TAB(54)INT((B-F));TAB(66)USING"#.####";(B-F)/A:GOTO
1250
1400
PRINT TAB(5)"Exposed epi.healthy
animals";TAB(54)INT(F);TAB(66)USING"#.####";F/A:GOTO 1260
1410
PRINT TAB(7)"Indirectly exposed healthy animals";TAB(56)INT((F-H));TAB(68)USING"#.####";(F-H)/A:GOTO
1270
1420
PRINT TAB(7)"Directly exposed healthy
animals";TAB(56)INT(H);TAB(68)USING"#.####";H/A:GOTO 1280
1425
PRINT:PRINT TAB(3)"Epizootiologically indeterminate
animals";TAB(52)INT((A-B-D));TAB(64)USING"#.####";(A-B-D)/A:GOTO
1285
1430
PRINT TAB(5)"Epiz.indeterminate anim. without
symptoms";TAB(54)INT((A-B-D-J));TAB(66)USING"#.####";(A-B-D-J)/A:GOTO
1290
1440
PRINT TAB(5)"Epiz.indeterminate animals with
symptoms";TAB(54)INT(J);TAB(66)USING"#.####";J/A:GOTO 1293
1445
PRINT:PRINT TAB(3)"Epizootiologically affected (diseased)
animals";TAB(52)INT(D);TAB(64)USING"#.####";D/A:GOTO 1294
1450
PRINT TAB(5)"Epiz.affected animals without
symptoms";TAB(54)INT((D-L));TAB(66)USING"#.####";(D-L)/A:GOTO
1296
1460 PRINT
TAB(5)"Epiz.affected animals with
symptoms";TAB(54)INT(L);TAB(66)USING"#.####";L/A
1461
PRINT
1470
PRINT TAB(20)"T o t a l";TAB(52)INT(A);TAB(64)"1.0000"
1980
A$=INKEY$:IF A$="" THEN GOTO 1980
1981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
1982
IF R$="y" OR R$="n" THEN GOTO 1983 ELSE 1990
1983
IF R$="y" THEN GOTO 1000 ELSE 1990
1990
RETURN
2000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.2-ANIMAL POPULATION DISEASE
TERRITORIAL STRUCTURE"
2010
PRINT"==================================================="
2100
PRINT TAB(2)"This subprogramme calculates:"
2108
PRINT TAB(5)"1) diseased animals' territorial density and
distribution"
2110
PRINT TAB(5)"2) farms - diseased animals' average number and territorial
distribution"
2112
PRINT TAB(5)"3) diseased animals' simple territorial distribution"
2114
INPUT" Enter choice number :
",S
2115
IF S=1 OR S=2 OR S=3 THEN GOTO 2120 ELSE PRINT IDE$:GOTO 2980
2120
PRINT"INPUT DATA: "
2121
INPUT" place (territory), time
";PL$,TI$
2122
INPUT" species, category(ies)
";SP$,CA$
2123
IF S=1 OR S=2 OR S=3 THEN INPUT"
disease(s) ";DI$
2124
IF S=1 THEN INPUT" space measure
units (up to 9 characters !) ";SU$
2125
INPUT" number (up to 11 !) of
data on space and animals ";N
2126
IF N=0 OR N>11 THEN PRINT IDE$:GOTO 2980
2135
PRINT" List data (names up to 15
characters; all numeric data must be >0):"
2140
FOR I=1 TO N
2141
PRINT I;
2144
IF S=1 THEN GOTO 2145 ELSE 2150
2145
INPUT"subterritory, size, diseased animals ";TE$(I),TS(I),AN(I):GOTO
2165
2150
IF S=2 THEN GOTO 2151 ELSE 2160
2151
INPUT"subter., farms, diseased animals ";TE$(I),TS(I),AN(I):GOTO 2165
2160
IF S=3 THEN GOTO 2161 ELSE 2165
2161
INPUT"subterritory, diseased animals ";TE$(I),AN(I)
2165
IF AN(I)=0 THEN PRINT IDM$:GOTO 2980 ELSE 2166
2166
NEXT I
2170
SU1=0:SU2=0
2171
FOR I=1 TO N
2172
SU1=SU1+TS(I)
2173
NEXT I
2174
FOR I=1 TO N
2175
SU2=SU2+AN(I)
2176
NEXT I
2179
MAX=AN(1)
2180
FOR I=2 TO N
2184
IF AN(I)>MAX THEN MAX=AN(I)
2186
NEXT I
2190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
2191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
2192
IF I$="m" THEN GOTO 10
2193
IF I$="c" THEN GOTO 2000
2194
IF I$=CHR$(13) THEN GOTO 2200
2200
CLS
2202
IF S=1 THEN PRINT TAB(5)"D I S E A S E D
ANIMALS' TERRITORIAL DENSITY
AND DISTRIBUTION"
2203
IF S=2 THEN PRINT TAB(5)"F A R M S:
DISEASED ANIMALS' AVERAGE AND TERRITORIAL DISTRIBUTION"
2204
IF S=3 THEN PRINT TAB(5)"D I S E A S E D
ANIMALS' TERRITORIAL D I S T R I B U T I O N"
2211
PRINT:PRINT TAB(6)"Disease(s): ";DI$
2212
PRINT"Species: "SP$;TAB(40)"Category(ies): ";CA$
2213
PRINT"Place: "PL$;TAB(50)"Time: ";TI$:PRINT
2250
PRINT
2310
IF S=1 THEN GOTO 2311 ELSE 2320
2311
PRINT TAB(2)"Subterritory";TAB(19)USING"\ \";SU$;
2312
PRINT
TAB(30)"Diseased";TAB(47)"Average";TAB(57)"Proportion";TAB(68)"Percentage":GOTO
2333
2320
IF S=2 THEN GOTO 2330 ELSE 2340
2330
PRINT TAB(2)"Subterritory";TAB(19)"Farms";
2332
PRINT TAB(30)"Diseased";TAB(47)"Average";TAB(57)"Proportion";TAB(68)"Percentage"
2333
PRINT TAB(30)"Animals";TAB(47)"Number";TAB(57)"of
Total";TAB(68)"of Total":PRINT:GOTO 2353
2340
IF S=3 THEN PRINT
TAB(2)"Subterritory";TAB(30)"Diseased";TAB(50)"Proportion";TAB(68)"Percentage"
2342
IF S=3 THEN PRINT TAB(30)"Animals";TAB(50)"of
Total";TAB(68)"of Total":PRINT
2353
IF S=2 THEN GOTO 2354 ELSE 2360
2354
FOR I=1 TO N
2355
PRINT TAB(2)USING"\
\";TE$(I);
2356
PRINT
TAB(18)INT(TS(I));TAB(29)INT(AN(I));TAB(44)USING"######.##";AN(I)/TS(I);TAB(57)USING"#.######";TS(I)/SU1;
2357
PRINT TAB(68)USING"##.####";(TS(I)/SU1)*100
2358
NEXT I
2359
GOTO 2380
2360
IF S=1 THEN GOTO 2361 ELSE 2370
2361
FOR I=1 TO N
2363
PRINT TAB(2)USING"\
\";TE$(I);
2364
PRINT TAB(18)INT(TS(I));TAB(29)INT(AN(I));TAB(44)USING"######.##";AN(I)/TS(I);TAB(57)USING"#.######";AN(I)/SU2;
2366
PRINT TAB(68)USING"##.####";(AN(I)/SU2)*100
2369
NEXT I:GOTO 2380
2370
FOR I=1 TO N
2371
PRINT TAB(2)USING"\
\";TE$(I);
2372
PRINT TAB(29)INT(AN(I));TAB(45)USING"######.######";AN(I)/SU2;
2373
PRINT TAB(68)USING"##.####";(AN(I)/SU2)*100
2374
NEXT I:PRINT
2375
PRINT TAB(2)"T o t a
l";TAB(29)INT(SU2);TAB(50)"1.000000";TAB(67)"100.0000"
2376
GOTO 2390
2380
PRINT
2382
PRINT TAB(2)"T o t a l";TAB(18)INT(SU1);TAB(29)INT(SU2);TAB(44)USING"######.##";SU2/SU1;
2383
PRINT TAB(57)"1.000000";TAB(67)"100.0000"
2390
IF N=1 THEN GOTO 2980
2391
IF S=1 OR S=3 THEN GOTO 2405 ELSE 2980
2405
A$=INKEY$:IF A$="" THEN GOTO 2405
2406
IF N=1 THEN GOTO 2981
2410
CLS
2412
IF S=1 OR S=3 THEN PRINT TAB(4)"S P A C E STRUCTURE
OF D I S E A S E D ANIMALS
DISTRIBUTION"
2413
IF MAX<(SU2/2) THEN GOTO 2415 ELSE 2451
2415
IF S=1 OR S=3 THEN PRINT:PRINT TAB(12)"(";CHR$(223);" represents
1 % of total "INT(SU2);" diseased animals)":PRINT
2416
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 10 20 30 40 50 %"
2417
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
2420
FOR I=1 TO N
2421
Z=(AN(I)/SU2)*100
2422
IF Z<1 THEN GOTO 2423 ELSE 2426
2423
IF Z>0 THEN GOTO 2424 ELSE 2426
2424
PRINT TAB(2)USING"\
\";TE$(I);
2425
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 2440
2426
PRINT TAB(2)USING"\
\";TE$(I);
2427
PRINT TAB(20)CHR$(179);
2428
FOR K=1 TO (AN(I)/SU2)*100
2429
PRINT CHR$(223);
2430
NEXT K
2431
PRINT
2440
NEXT I
2445
PRINT:GOTO 2980
2451
IF S=1 OR S=3 THEN PRINT:PRINT TAB(12)"(";CHR$(223);" represents
2 % of total "INT(SU2);" diseased animals)":PRINT
2452
PRINT:PRINT TAB(2)"Subterritory";TAB(20)"0 20 40 60 80
100 %"
2453
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
2454
FOR I=1 TO N
2460
Z=(AN(I)/SU2)*50
2461
IF Z<1 THEN GOTO 2462 ELSE 2470
2462
IF Z>0 THEN GOTO 2463 ELSE 2470
2463
PRINT TAB(2)USING"\
\";TE$(I);
2464 PRINT
TAB(20)CHR$(179);CHR$(249):GOTO 2480
2470
PRINT TAB(2)USING"\
\";TE$(I);
2471
PRINT TAB(20)CHR$(179);
2473
FOR K=1 TO (AN(I)/SU2)*50
2474
PRINT CHR$(223);
2475
NEXT K
2479
PRINT
2480
NEXT I
2980
A$=INKEY$:IF A$="" THEN GOTO 2980
2981
CLS:MAX=0:TE$="":TS=0:AN=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
2982
IF R$="y" OR R$="n" THEN GOTO 2985 ELSE 2990
2985
IF R$="y" THEN GOTO 2000 ELSE 2990
2990
RETURN
3000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.3-ANIMAL DISEASE FOCI (OUTBREAKS)
TYPES' STRUCTURE"
3010
PRINT"===================================================="
3100
PRINT"INPUT DATA:"
3104
INPUT" disease(s) ";EN$
3105
INPUT" species ";SP$
3106
INPUT" type(s)/form(s) of foci
(outbreaks) ";TF$
3107
PRINT" focal measure units
(animal housings, "
3108
INPUT" herds/flocks areas,
farms, ranches, villages, etc.) ";FU$
3109
INPUT" place ";LU$
3110
INPUT" time-moment
";TI$:PRINT:GOTO 3140
3120
PRINT IDM$:GOTO 3980
3140
INPUT" total number of foci existing
at the given moment
";TF:PRINT
3141
IF TF=0 THEN GOTO 3120 ELSE 3151
3151
PRINT" number of foci with
affected (clinically + subclinically)"
3152
INPUT"
animals at the given moment ";FA
3153
PRINT" number of foci with subclinically only
affected animals"
3154
INPUT" at
the given moment ";CA
3155
PRINT" number of foci without
susceptible animals (depopulated)"
3156
INPUT" at the given moment ";FW
3157
IF (FA+CA+FW)=0 THEN GOTO 3120 ELSE 3165
3165
FAA=(FA+FW):IF FA=0 AND CA>0 THEN FA=CA
3166
IF FAA>TF OR CA>FA THEN GOTO 3167 ELSE 3180
3167
PRINT:PRINT"Error ! Sum of parts cannot be major than total !":GOTO
3980
3180
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
3181
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
3182
IF I$="m" THEN GOTO 10
3183
IF I$="c" THEN GOTO 3000
3184
IF I$=CHR$(13) THEN GOTO 3200
3200 CLS:PRINT TAB(10)"F O C I (O U T B R E A K S) T Y P E S'
S T R U C T U R E":PRINT
3201
PRINT TAB(6)"Disease(s): "EN$
3202
PRINT"Species: "SP$
3203
PRINT"Place: "LU$;TAB(50)"Time: "TI$
3204
PRINT"Type/form of foci (outbreaks): "TF$
3205
PRINT TAB(6)"Focal measure units: "FU$:PRINT:PRINT
3410
PRINT
TAB(7)"Characteristics";TAB(37)"Number";TAB(47)"Proportion";TAB(62)"Percentage":PRINT:PRINT
3411
PRINT TAB(7)"With affected
animals";TAB(37)INT(FA);TAB(47);USING"#.####";FA/TF;TAB(62);USING"##.####";FA/TF*100
3412
PRINT
TAB(12)"clinically";TAB(40)INT((FA-CA));TAB(50);USING"#.####";(FA-CA)/TF;TAB(65);USING"##.####";(FA-CA)/TF*100
3413
PRINT TAB(12)"subclinically
only";TAB(40)INT(CA);TAB(50);USING"#.####";CA/TF;TAB(65);USING"##.####";CA/TF*100
3414
PRINT:PRINT TAB(7)"With non-affected animals"
3415
PRINT TAB(17)"(in
observation)";TAB(37)INT(TF-(FA+FW));TAB(47);USING"#.####";(TF-(FA+FW))/TF;TAB(62);USING"##.####";(TF-(FA+FW))/TF*100
3416
PRINT:PRINT TAB(7)"Without susceptible animals"
3417
PRINT
TAB(17)"(depopulated)";TAB(37)INT(FW);TAB(47);USING"#.####";FW/TF;TAB(62);USING"##.####";FW/TF*100
3418
PRINT
3419
PRINT TAB(6)" T o t a
l";TAB(37)INT(TF);TAB(47)"1.0000";TAB(61)"100.0000"
3420
'IF FW/TF>0 AND FW/TF<2 THEN GOTO 3980
3450
A$=INKEY$:IF A$="" THEN GOTO 3450
3455 CLS:PRINT:PRINT TAB(10)"F O C I (O U T B R E A K S) T Y P E S'
S T R U C T U R E"
3457
PRINT:PRINT TAB(17)"(";CHR$(223);" represents 2 % of total
"INT(TF);" foci)":PRINT
3458
PRINT TAB(24)"0 20 40
60 80
100 %"
3459
PRINT
TAB(24)CHR$(179);"---------|---------|---------|---------|---------I":PRINT
TAB(24)CHR$(179)
3460
PRINT"With affected animals";TAB(24);CHR$(179);
3462
FOR K=1 TO ((FA/TF)*100)/2:PRINT CHR$(223);
3463
NEXT K
3464
PRINT:PRINT TAB(24)CHR$(179)
3465
PRINT TAB(4)"clinically";TAB(24);CHR$(179);
3466
FOR K=1 TO ((CA/TF)*100)/2:PRINT CHR$(223);
3467
NEXT K
3468
PRINT:PRINT TAB(24)CHR$(179)
3469
PRINT TAB(4)"subclinically only";TAB(24);CHR$(179);
3470
FOR K=1 TO (((FA-CA)/TF)*100)/2:PRINT CHR$(223);:NEXT K:PRINT
3471
PRINT TAB(24)CHR$(179)
3472
PRINT"In observation";TAB(24);CHR$(179);
3473
FOR K=1 TO ((TF-(FA-FW))/TF)*100/2:PRINT CHR$(223);:NEXT K:PRINT
3474
PRINT TAB(24)CHR$(179)
3475
PRINT"Depopulated";TAB(24);CHR$(179);
3479 FOR
K=1 TO ((FW/TF)*100)/2:PRINT CHR$(223);:NEXT K:PRINT
3980
A$=INKEY$:IF A$="" THEN GOTO 3980
3981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
3982
IF R$="y" OR R$="n" THEN GOTO 3983 ELSE 3990
3983
IF R$="y" THEN GOTO 3000 ELSE 3990
3990
RETURN
4000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.4-TERRITORY EPIZOOTIOLOGICAL
STRUCTURE"
4010
PRINT"========================================"
4020
PRINT" (villages, districts, regions, provinces, counties, countries,
zones, etc.)"
4100
PRINT"INPUT DATA:"
4111
INPUT" territory ";LU$
4112
INPUT" time-moment ";TI$
4113
INPUT" disease(s) ";FE$
4114
INPUT" species, category(ies)
";SP$,CA$
4115
INPUT" surface measure units (up
to 6 characters !) ";SU$:PRINT:GOTO 4119
4118
PRINT IDM$:GOTO 4980
4119
INPUT" total number of surface
measure units of the territory ";B
4120
IF B=0 THEN GOTO 4118 ELSE 4121
4121
PRINT:PRINT" total number of
specifically diseased animals"
4122
INPUT" in
the territory ";A
4123
PRINT
4130
PRINT" number of surface measure
units"
4131
INPUT" of
specific disease(s) free zones ";L
4132
PRINT" number of surface measure
units of exposed "
4133
INPUT" specific
disease(s) free zones (at risk)
";M
4135
PRINT" number of surface measure
units of zones affected"
4136
INPUT"
by specific disease(s) ";O
4137
IF L=0 AND M>0 THEN L=M
4138
IF (L+O)>B THEN GOTO 4140 ELSE 4190
4140
PRINT:PRINT"Error ! Sum of parts cannot be major than total !":GOTO
4980
4190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
4191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
4192 IF
I$="m" THEN GOTO 10
4193
IF I$="c" THEN GOTO 4000
4194
IF I$=CHR$(13) THEN GOTO 4200
4200 CLS:PRINT TAB(5)"T E R R I T O R Y E P I Z O O T I O L O G I C A L S T R U C T U R E":PRINT
4210
PRINT"Territory: "LU$;TAB(50)"Time: "TI$
4215
PRINT TAB(10)"Disease(s): "FE$
4220
PRINT"Species: "SP$;TAB(40)"Category(ies): ";CA$
4221
PRINT"Surface of evaluated territory: "B SU$:PRINT
4240
PRINT" Average density of
specifically diseased animals"
4241
PRINT"
per one "SU$;
4242
PRINT" =";USING"#####.##";A/B:PRINT
4260
PRINT:PRINT TAB(44)USING"\ \";SU$;
4261
PRINT TAB(53)"Proportion";TAB(67)"%":PRINT
4272
PRINT TAB(3)"Disease(s) free
zones";TAB(43)L;TAB(55)USING"#.####";L/B;TAB(65)USING"##.##";L/B*100
4274
PRINT TAB(6)"Non-exposed free zones (out of
risk)";TAB(45)L-M;TAB(57)USING"#.####";(L-M)/B;TAB(67)USING"##.##";((L-M)/B)*100
4276
PRINT TAB(6)"Exposed free zones (at
risk)";TAB(45)M;TAB(57)USING"#.####";M/B;TAB(67)USING"##.##";M/B*100
4277
Q=(B-L-O)/B
4278
PRINT:PRINT TAB(3)"Indeterminate
zone";TAB(43)(B-L-O);TAB(55)USING"#.####";(B-L-O)/B;TAB(65)USING"##.##";Q*100
4280
PRINT:PRINT TAB(3)"Affected
zones";TAB(43)O;TAB(55)USING"#.####";O/B;TAB(65)USING"##.##";O/B*100
4281
PRINT:PRINT TAB(13)"T o t a l";TAB(43)B;TAB(55)"1.0000";TAB(64)"100.00"
4290
PRINT
4300
A$=INKEY$:IF A$="" THEN GOTO 4300
4310 CLS:PRINT TAB(5)"T E R R I T O R Y E P I Z O O T I O L O G I C A L S T R U C T U R E":PRINT
4311
PRINT TAB(17)"(";CHR$(223);" represents 2 % of total "B
SU$;" )":PRINT
4315
PRINT TAB(24)"0 20 40 60 80
100 %"
4316
PRINT
TAB(24)CHR$(179)"---------|---------|---------|---------|---------I":PRINT
TAB(24)CHR$(179)
4320
PRINT TAB(3)"Disease free zones";TAB(24);CHR$(179);
4321
FOR K=1 TO (L/B*100)/2:PRINT CHR$(223);
4323
NEXT K
4324
PRINT:PRINT TAB(24)CHR$(179)
4325
PRINT TAB(7)"Non-exposed";TAB(24);CHR$(179);
4326
FOR K=1 TO (((L-M)/B)*100)/2:PRINT CHR$(223);
4327
NEXT K
4328
PRINT:PRINT TAB(24)CHR$(179)
4329
PRINT TAB(7)"Exposed";TAB(24);CHR$(179);
4330
FOR K=1 TO ((M/B)*100)/2:PRINT CHR$(223);:NEXT K:PRINT
4331
PRINT TAB(24)CHR$(179)
4335
PRINT TAB(3)"Indeterminate zones";TAB(24)CHR$(179);
4337
FOR K=1 TO ((B-L-O)/B*100)/2:PRINT CHR$(223);:NEXT K:PRINT
4338
PRINT TAB(24)CHR$(179)
4340
PRINT TAB(3)"Affected zones";TAB(24)CHR$(179);
4342
FOR K=1 TO (O/B*100)/2:PRINT CHR$(223);:NEXT K:PRINT
4344
PRINT:GOTO 4980
4980
A$=INKEY$:IF A$="" THEN GOTO 4980
4981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
4982
IF R$="y" OR R$="n" THEN GOTO 4983 ELSE 4990
4983
IF R$="y" THEN GOTO 4000 ELSE 4990
4990
RETURN
5000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.5-MORBIDITY, MORTALITY,
NIDALITY AND TERRITORY STRUCTURE "
5001
PRINT" ACCORDING TO DIFFERENT
CAUSES/FORMS"
5010
PRINT"=========================================================="
5030
PRINT"Do you want to evaluate the structure of: morbidity (d)"
5031
INPUT"or mortality (m) or nidality/focality (f) or affected territory (t)
";Z$
5040
IF Z$="d" OR Z$="m" OR Z$="f" OR Z$="t"
THEN GOTO 5100 ELSE PRINT IDE$:GOTO 5980
5100
PRINT"INPUT DATA:"
5125
IF Z$="d" THEN INPUT"
type/form of morbidity ";TM$:GOTO 5130
5126
IF Z$="m" THEN INPUT"
type/form of mortality ";TY$:GOTO 5130
5127
IF Z$="f" THEN INPUT"
type/form of nidality ";TF$:GOTO 5130
5128
IF Z$="t" THEN INPUT"
type/form of affected territory ";TT$
5130
IF Z$<>"t" THEN INPUT"
species, category(ies) ";SP$,CA$
5132
INPUT" place, time
";PL$,TI$
5133
IF Z$="t" THEN INPUT"
space measure units (up to 10 characters !) ";TMU$
5134
INPUT" number of evaluated
causes/forms (2 up to 11 !) ";N
5135
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 5980
5145
PRINT"List data (names of causes/forms up to 20 characters): "
5150
FOR I=1 TO N
5160
PRINT TAB(5)I;
5161
IF Z$="t" THEN GOTO 5162 ELSE 5170
5162
INPUT" cause/form, number of space units
";S$(I),U(I):GOTO 5180
5170
INPUT" cause/form, number of cases
";S$(I),U(I)
5175
IF S$(I)="" THEN PRINT:PRINT IDM$:GOTO 5980 ELSE 5180
5180
NEXT I
5181
SU=0
5182
FOR I=1 TO N
5183 SU=SU+U(I)
5184 NEXT I
5185 MAX=U(1)
5186
FOR I=2 TO N
5187
IF U(I)>MAX THEN MAX=U(I)
5188
NEXT I
5189
IF SU=0 THEN PRINT IDM$:GOTO 5980 ELSE 5190
5190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
5191
PRINT TAB(18)"to go back to menu then key 'm',":PRINT:INPUT" else ENTER to continue !
",I$
5192
IF I$="m" THEN GOTO 10
5193
IF I$="c" THEN GOTO 5000
5194
IF I$=CHR$(13) THEN GOTO 5200
5200
CLS
5201
IF Z$="d" THEN PRINT TAB(5)"M O R B I D I T Y S T R U C T U R E ACCORDING
TO CAUSES / FORMS"
5202
IF Z$="m" THEN PRINT TAB(5)"M O R T A L I T Y S T R U C T U R E ACCORDING
TO CAUSES / FORMS"
5203
IF Z$="f" THEN PRINT TAB(3)"D I S E A S E N I D A L I T Y STRUCTURE
ACCORDING TO CAUSES / FORMS"
5204
IF Z$="t" THEN PRINT TAB(3)"A F F E C T E D T E R R I T O R Y STRUCTURE ACCORDING TO CAUSES / FORMS"
5205
PRINT
5215
IF Z$="d" THEN PRINT TAB(5)"Type/form of morbidity:
";TM$:GOTO 5221
5216
IF Z$="m" THEN PRINT TAB(5)"Type/form of mortality:
";TY$:GOTO 5221
5217
IF Z$="f" THEN PRINT TAB(5)"Type/form of nidality:
";TF$:GOTO 5221
5218
IF Z$="t" THEN PRINT TAB(5)"Type/form of affected territory:
";TT$
5221
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
5222
PRINT"Place: "PL$;TAB(50)"Time: "TI$
5223
PRINT
5300
IF Z$="d" OR Z$="m" OR Z$="f" THEN GOTO 5314 ELSE
5316
5314
PRINT TAB(6)"Cause/form";TAB(30)"Number
of";TAB(44)"Proportion";TAB(59)"Percentage"
5315
PRINT TAB(30)"Cases/units":PRINT:GOTO 5319
5316
IF Z$="t" THEN PRINT TAB(6)"Cause/form";TAB(30)"Number
of";TAB(44)"Proportion";TAB(59)"Percentage"
5317
PRINT TAB(30)USING"\
\";TMU$
5318
PRINT
5319
FOR I=1 TO N
5320
PRINT I;TAB(6)USING"\
\";S$(I);
5321
PRINT TAB(30)INT(U(I));TAB(45)USING"#.####";U(I)/SU;
5322
PRINT TAB(60)USING"##.####";(U(I)/SU)*100
5323
NEXT I
5325 PRINT:PRINT
TAB(5)" T o t a
l";TAB(30)INT(SU);TAB(45)"1.0000";TAB(59)"100.0000":PRINT
5331
A$=INKEY$:IF A$="" THEN GOTO 5331
5332
IF N=1 THEN GOTO 5980
5335
CLS
5336
IF Z$="d" THEN PRINT TAB(5)"M O R B I D I T Y S T R U C T U R E ACCORDING
TO CAUSES/FORMS":GOTO 5337
5337
IF Z$="m" THEN PRINT TAB(5)"M O R T A L I T Y S T R U C T U R E ACCORDING
TO CAUSES/FORMS":GOTO 5338
5338
IF Z$="f" THEN PRINT TAB(3)"D I S E A S E N I D A L I T Y STRUCTURE
ACCORDING TO CAUSES/FORMS":GOTO 5339
5339
IF Z$="t" THEN PRINT TAB(4)"A F F E C T E D T E R R I T O R Y STRUCTURE ACCORDING TO CAUSES/FORMS
5340
IF MAX>SU/2 THEN GOTO 5341 ELSE 5400
5341
PRINT:PRINT TAB(17)"("CHR$(223);" represents 2 % of total
"INT(SU);" units)":PRINT
5342
PRINT:PRINT TAB(5)"Cause/form";TAB(25)"0 20 40 60 80
100 %"
5343
PRINT
TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
5344
FOR I=1 TO N
5345
Z=((U(I)/SU)*100)/2
5346
IF Z<1 THEN GOTO 5347 ELSE 5350
5347
IF Z>0 THEN GOTO 5348 ELSE 5350
5348
PRINT TAB(3)USING"\
\";S$(I);
5349
PRINT TAB(25)CHR$(179);CHR$(249):GOTO 5357
5350
PRINT TAB(3)USING"\
\";S$(I);
5351
PRINT TAB(25)CHR$(179);
5353
FOR K=1 TO ((U(I)/SU)*100)/2
5354
PRINT CHR$(223);
5355
NEXT K
5356
PRINT
5357
NEXT I
5370
PRINT:GOTO 5980
5400
PRINT:PRINT TAB(17)"("CHR$(223);" represents 1 % of total
"INT(SU);" units)":PRINT
5405
PRINT:PRINT TAB(5)"Cause/form";TAB(25)"0 10 20 30 40 50 %"
5406
PRINT TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
5407
FOR I=1 TO N
5408
Z=((U(I)/SU)*100)
5409
IF Z<1 THEN GOTO 5410 ELSE 5413
5410
IF Z>0 THEN GOTO 5411 ELSE 5413
5411
PRINT TAB(3)USING"\
\";S$(I);
5412
PRINT TAB(25)CHR$(179);CHR$(249):GOTO 5419
5413
PRINT TAB(3)USING"\
\";S$(I);
5414
PRINT TAB(25)CHR$(179);
5415
FOR K=1 TO (U(I)/SU)*100
5416
PRINT CHR$(223);
5417
NEXT K
5418
PRINT
5419
NEXT I
5420
PRINT
5980
A$=INKEY$:IF A$="" THEN GOTO 5980
5981
CLS:MAX=0:S$="":U=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
5982
IF R$="y" OR R$="n" THEN GOTO 5983 ELSE 5990
5983
IF R$="y" THEN GOTO 5000 ELSE 5990
5990
RETURN
6000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.6-DISEASE OCCURRENCE STRUCTURE
ACCORDING TO ANIMAL SPECIES AND CATEGORIES"
6010
PRINT"==========================================================================="
6011
PRINT"This subprogramme calculates disease occurrence according to"
6012
PRINT TAB(10)"1) species (host range)"
6013
PRINT TAB(10)"2) categories"
6014
INPUT" Enter choice number:
",CH
6015
IF CH=1 OR CH=2 THEN GOTO 6016 ELSE PRINT IDE$:GOTO 6980
6016
IF CH=1 THEN GOTO 6600
6017
IF CH=2 THEN GOTO 6019
6018
GOTO 6015
6019
PRINT"Animal categories according to:"
6020
PRINT" breed, age, gender, weight,
physiological stage, nutrition status, immunity"
6022
PRINT" status, type/level of
productivity, type of breeding, type of exploitation,"
6024
PRINT" performance, production
stage, technology, concentration, etc.":GOTO 6100
6050
PRINT IDM$:GOTO 6980
6100
PRINT"INPUT DATA:"
6105
INPUT" disease ";DI$
6110
INPUT" place, time
";PL$,TI$
6115
INPUT" species, category
according to ";SP$,CA$
6120
INPUT" number (2 up to 11 !) of
category subgroups ";N
6121
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 6980
6124
IF N>7 THEN CLS:PRINT
6129
PRINT" List data:"
6130
PRINT" name (up to 16 characters)
of the subgroup, number of diseased animals:"
6131
FOR I=1 TO N
6132
PRINT TAB(15)I;": ";
6133
INPUT SG$(I),NA(I)
6134
IF SG$(I)="" THEN GOTO 6050 ELSE 6135
6135
NEXT I
6139
SU=0
6140
FOR I=1 TO N
6141
SU=SU+NA(I)
6145
NEXT I
6149
MAX=NA(1)
6150
FOR I=2 TO N
6152
IF NA(I)>MAX THEN MAX=NA(I)
6153
NEXT I
6154
IF SU=0 THEN GOTO 6050 ELSE 6190
6190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
6191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
6192
IF I$="m" THEN GOTO 10
6193
IF I$="c" THEN GOTO 6000
6194
IF I$=CHR$(13) THEN GOTO 6200
6200
CLS:PRINT TAB(4)"C A T E G O R Y S
T R U C T U R E OF D I S E A S E D A N I M A L S":PRINT
6205
PRINT TAB(6)"Disease: "DI$
6210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
6211
PRINT TAB(6)"Species: "SP$
6212
PRINT TAB(6)"Category according to: "CA$:PRINT
6220
PRINT TAB(5)"Category";TAB(30)"Diseased";TAB(45)"Proportion";TAB(59)"Percentage"
6221
PRINT TAB(5)"Subgroup";TAB(30)"Animals":PRINT
6230
FOR I=1 TO N
6231
PRINT TAB(5)USING"\
\";SG$(I);
6232
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
6233
PRINT TAB(60)USING"###.####";(NA(I)/SU)*100
6234
NEXT I
6240
PRINT:PRINT TAB(5)"T o t a
l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(60)"100.0000
6500
A$=INKEY$:IF A$="" THEN GOTO 6500
6501
IF N=1 THEN GOTO 6981
6550
CLS:PRINT TAB(4)"C A T E G O R Y S
T R U C T U R E OF D I S E A S E D A N I M A L S"
6551
IF MAX<(SU/2) THEN GOTO 6552 ELSE 6580
6552
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 1 % of the
total"INT(SU);" diseased animals)":PRINT
6553
PRINT
6560
PRINT TAB(2)"Subgroup";TAB(20)"0 10 20 30 40 50 %"
6561
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
6562
FOR I=1 TO N
6563
Z=(NA(I)/SU)*100
6564
IF Z<1 THEN GOTO 6565 ELSE 6568
6565
IF Z>0 THEN GOTO 6566 ELSE 6568
6566
PRINT TAB(2)USING"\ \";SG$(I);
6567
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 6574
6568
PRINT TAB(2)USING"\
\";SG$(I);
6569
PRINT TAB(20)CHR$(179);
6570
FOR K=1 TO (NA(I)/SU)*100
6571
PRINT CHR$(223);
6572
NEXT K
6573
PRINT
6574
NEXT I
6575
PRINT:GOTO 6980
6580
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 2 % of total
"INT(SU);" diseased animals)":PRINT
6582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
6583
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
6584
FOR I=1 TO N
6585
Z=(NA(I)/SU)*50
6586
IF Z<1 THEN GOTO 6587 ELSE 6590
6587
IF Z>0 THEN GOTO 6588 ELSE 6590
6588
PRINT TAB(2)USING"\
\";SG$(I);
6589
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 6596
6590
PRINT TAB(2)USING"\
\";SG$(I);
6591
PRINT TAB(20)CHR$(179);
6592
FOR K=1 TO (NA(I)/SU)*50
6593
PRINT CHR$(223);
6594
NEXT K
6595
PRINT
6596
NEXT I
6597
PRINT:GOTO 6980
6600
PRINT"INPUT DATA:"
6605
INPUT" disease ";DI$
6610
INPUT" place, time
";PL$,TI$
6620
INPUT" number (2 up to 11 !) of
species ";N
6621
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 6980
6629
PRINT" List data:"
6630
PRINT" name (up to 16 characters)
of the species, number of diseased animals:"
6631
FOR I=1 TO N
6632
PRINT TAB(15)I;": ";
6633
INPUT SG$(I),NA(I)
6634
IF SG$(I)="" THEN GOTO 6050 ELSE 6635
6635
NEXT I
6639
SU=0
6640
FOR I=1 TO N
6641
SU=SU+NA(I)
6645
NEXT I
6649
MAX=NA(1)
6650
FOR I=2 TO N
6652
IF NA(I)>MAX THEN MAX=NA(I)
6653
NEXT I
6654
PRINT
6655
IF SU=0 THEN GOTO 6050 ELSE 6690
6690
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
6691
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
6692
IF I$="m" THEN GOTO 10
6693
IF I$="c" THEN GOTO 6000
6694 IF
I$=CHR$(13) THEN GOTO 6700
6700
CLS:PRINT TAB(4)"S P E C I E S S T
R U C T U R E OF D I S E A S E D A N I M A L S":PRINT
6705
PRINT TAB(6)"Disease: "DI$
6710
PRINT"Place: "PL$;TAB(50)"Time: "TI$:PRINT
6720
PRINT TAB(5)"Species";TAB(30)"Diseased";TAB(45)"Proportion";TAB(59)"Percentage"
6721
PRINT TAB(30)"Animals":PRINT
6729
FOR I=1 TO N
6730
PRINT TAB(5)USING"\
\";SG$(I);
6731
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
6732
PRINT TAB(60)USING"###.####";(NA(I)/SU)*100
6733 NEXT
I
6740
PRINT:PRINT TAB(5)"T o t a
l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(60)"100.0000
6800
A$=INKEY$:IF A$="" THEN GOTO 6800
6801
IF N=1 THEN GOTO 6981
6850
CLS:PRINT TAB(4)"S P E C I E S S T
R U C T U R E OF D I S E A S E D A N I M A L S "
6851
IF MAX>(SU/2) THEN GOTO 6880 ELSE 6852
6852
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 1 % of the
total"INT(SU);" diseased animals)":PRINT
6853
PRINT
6860
PRINT TAB(2)"Species";TAB(20)"0 10 20 30 40 50 %"
6861
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
6865
FOR I=1 TO N
6866
Z=(NA(I)/SU)*100
6867
IF Z<1 THEN GOTO 6868 ELSE 6871
6868
IF Z>0 THEN GOTO 6869 ELSE 6871
6869
PRINT TAB(2)USING"\
\";SG$(I);
6870
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 6877
6871
PRINT TAB(2)USING"\
\";SG$(I);
6872
PRINT TAB(20)CHR$(179);
6873
FOR K=1 TO (NA(I)/SU)*100
6874
PRINT CHR$(223);
6875
NEXT K
6876
PRINT
6877
NEXT I
6878
PRINT:GOTO 6980
6880
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of total
"INT(SU);" diseased animals)":PRINT
6882
PRINT:PRINT TAB(3)"Species";TAB(20)"0 20 40 60 80
100 %"
6884
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
6885
FOR I=1 TO N
6886 Z=(NA(I)/SU)*50
6887
IF Z<1 THEN GOTO 6888 ELSE 6891
6888
IF Z>0 THEN GOTO 6889 ELSE 6891
6889
PRINT TAB(3)USING"\
\";SG$(I);
6890
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 6897
6891
PRINT TAB(3)USING"\
\";SG$(I);
6892
PRINT TAB(20)CHR$(179);
6893
FOR K=1 TO (NA(I)/SU)*50
6894
PRINT CHR$(223);
6895
NEXT K
6896
PRINT
6897
NEXT I:PRINT
6980
A$=INKEY$:IF A$="" THEN GOTO 6980
6981
CLS:MAX=0:SG$="":NA=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
6982
IF R$="y" OR R$="n" THEN GOTO 6983 ELSE 6990
6983
IF R$="y" THEN GOTO 6000 ELSE 6990
6990
RETURN
7000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.7-DISEASE OCCURRENCE ACCORDING
TO BREEDING/PRODUCTION CONDITIONS"
7002
PRINT"=================================================================="
7006
PRINT"(according to: animal breeding/production exploitation, technology,
"
7007
PRINT"concentration, housing/herd/flock/farm size, management, sector,
etc.)":GOTO 7100
7050
PRINT IDM$:GOTO 7980
7100
PRINT"INPUT DATA:"
7102
INPUT" disease(s) ";DI$
7103
INPUT" species ";SP$
7110
INPUT" place, time
";PL$,TI$
7112
INPUT" type of conditions
";EC$
7120
INPUT" criterion for subgrouping
";CA$
7121
INPUT" number (2 up to 11 !) of
evaluated subgroups ";N
7122
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 7980
7130
PRINT" name (up to 15 characters)
of the subgroup, number of diseased animals:"
7131
FOR I=1 TO N
7132
PRINT TAB(15)I;": ";
7133
INPUT SG$(I),NA(I)
7134
IF SG$(I)="" THEN GOTO 7050 ELSE 7135
7135
NEXT I
7139
SU=0
7140
FOR I=1 TO N
7141
SU=SU+NA(I)
7145
NEXT I
7149
MAX=NA(1)
7150
FOR I=2 TO N
7152
IF NA(I)>MAX THEN MAX=NA(I)
7153
NEXT I
7154
IF SU=0 THEN GOTO 7050 ELSE 7190
7190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
7191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
7192
IF I$="m" THEN GOTO 10
7193
IF I$="c" THEN GOTO 7000
7194
IF I$=CHR$(13) THEN GOTO 7200
7200
CLS:PRINT TAB(4)"ANIMAL
DISEASE OCCURRENCE ACCORDING TO
BREEDING/PRODUCTION
CONDITIONS":PRINT
7202
PRINT TAB(6)"Disease: "DI$
7203
PRINT TAB(6)"Species: "SP$
7210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
7211
PRINT"Conditions: "EC$;TAB(40)"Subgrouping acc.: "CA$:PRINT
7220
PRINT
TAB(5)"Subgroup";TAB(30)"Diseased";TAB(45)"Proportion";TAB(59)"Percentage"
7221
PRINT TAB(30)"Animals":PRINT
7230
FOR I=1 TO N
7231
PRINT TAB(5)USING"\
\";SG$(I);
7232
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
7233
PRINT TAB(61)USING"##.####";(NA(I)/SU)*100
7234
NEXT I
7240
PRINT:PRINT TAB(5)"T o t a
l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(60)"100.0000
7500
A$=INKEY$:IF A$="" THEN GOTO 7500
7501
IF N=1 THEN GOTO 7981
7550
CLS:PRINT TAB(4)"ANIMAL
DISEASE OCCURRENCE ACCORDING TO
BREEDING/PRODUCTION
CONDITIONS"
7551
IF MAX<(SU/2) THEN GOTO 7552 ELSE 7580
7552
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 1 % of the total
"INT(SU);" diseased animals)":PRINT
7553
PRINT
7560
PRINT TAB(2)"Subgroup";TAB(20)"0 10 20 30 40 50 %"
7561
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
7565
FOR I=1 TO N
7566
Z=(NA(I)/SU)*100
7567
IF Z<1 THEN GOTO 7568 ELSE 7571
7568
IF Z>0 THEN GOTO 7569 ELSE 7571
7569
PRINT TAB(2)USING"\
\";SG$(I);
7570
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 7577
7571
PRINT TAB(2)USING"\
\";SG$(I);
7572
PRINT TAB(20)CHR$(179);
7573
FOR K=1 TO (NA(I)/SU)*100
7574
PRINT CHR$(223);
7575
NEXT K
7576
PRINT
7577
NEXT I
7579
PRINT:GOTO 7980
7580
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 2 % of total
"INT(SU);" diseased animals)":PRINT
7582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
7584
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
7585
FOR I=1 TO N
7586
Z=(NA(I)/SU)*50
7587
IF Z<1 THEN GOTO 7588 ELSE 7591
7588
IF Z>0 THEN GOTO 7589 ELSE 7591
7589
PRINT TAB(2)USING"\
\";SG$(I);
7590
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 7597
7591
PRINT TAB(2)USING"\
\";SG$(I);
7592
PRINT TAB(20)CHR$(179);
7593
FOR K=1 TO (NA(I)/SU)*50
7594
PRINT CHR$(223);
7595
NEXT K
7596
PRINT
7597
NEXT I:PRINT
7980
A$=INKEY$:IF A$="" THEN GOTO 7980
7981
CLS:MAX=0:SG$="":NA=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
7982
IF R$="y" OR R$="n" THEN GOTO 7983 ELSE 7990
7983
IF R$="y" THEN GOTO 7000 ELSE 7990
7990
RETURN
8000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.8-DISEASE OCCURRENCE ACCORDING
TO ECOLOGICAL CONDITIONS"
8002
PRINT"========================================================="
8005
PRINT"[atmospherical, geospherical, hydrospherical and biospherical
(flora/fauna)"
8006
PRINT"factors; hygiene, etc.]"
8100
PRINT"INPUT DATA:"
8102
INPUT" disease(s) ";DI$
8103
INPUT" species ";SP$
8110
INPUT" place, time
";PL$,TI$
8112
INPUT" type of ecological
conditions ";EC$
8120
INPUT" criterion for subgrouping
";CA$
8121
INPUT" number (2 up to 11 !) of
evaluated subgroups ";N
8122
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 8980
8130
PRINT" name (up to 16 characters)
of the subgroup, number of diseased animals:"
8131
FOR I=1 TO N
8132
PRINT TAB(15)I;": ";
8133
INPUT SG$(I),NA(I)
8134
IF SG$(I)<>"" THEN GOTO 8135 ELSE PRINT IDM$:GOTO 8980
8135
NEXT I
8139
SU=0
8140
FOR I=1 TO N
8141
SU=SU+NA(I)
8145
NEXT I
8149
MAX=NA(1)
8150
FOR I=2 TO N
8151
IF NA(I)>MAX THEN MAX=NA(I)
8152
NEXT I
8153
PRINT DS$;
8154
INPUT" ";DAT$
8155
IF SU<>0 THEN GOTO 8190 ELSE PRINT IDM$:GOTO 8980
8190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
8191
PRINT TAB(18)"to go back to menu then key 'm',":PRINT:INPUT" else ENTER to continue !
",I$
8192
IF I$="m" THEN GOTO 10
8193
IF I$="c" THEN GOTO 8000
8194
IF I$=CHR$(13) THEN GOTO 8200
8200
CLS:PRINT TAB(4)"D I S E A S E
OCCURRENCE ACCORDING TO E C
O L O G I C A L CONDITIONS":PRINT
8202
PRINT TAB(6)"Disease: "DI$
8203
PRINT TAB(6)"Species: "SP$
8210
PRINT"Place: "PL$;TAB(50)"Time: "TI$
8211
PRINT"Conditions: "EC$;TAB(40)"Subgrouping acc.: "CA$:PRINT
8220
PRINT
TAB(5)"Subgroup";TAB(30)"Diseased";TAB(45)"Proportion";TAB(59)"Percentage"
8221
PRINT TAB(30)"Animals":PRINT
8230
FOR I=1 TO N
8231
PRINT TAB(5)USING"\
\";SG$(I);
8232
PRINT TAB(30)INT(NA(I));TAB(46)USING"#.######";NA(I)/SU;
8233
PRINT TAB(61)USING"##.####";(NA(I)/SU)*100
8234
NEXT I
8240
PRINT:PRINT TAB(5)"T o t a l";TAB(30)INT(SU);TAB(46)"1.000000";TAB(60)"100.0000
8242
PRINT:PRINT DS$;" "DAT$
8500
A$=INKEY$:IF A$="" THEN GOTO 8500
8501
IF N=1 THEN GOTO 8981
8550
CLS:PRINT TAB(4)"D I S E A S E
OCCURRENCE ACCORDING TO E C
O L O G I C A L CONDITIONS"
8551
IF MAX<(SU/2) THEN GOTO 8552 ELSE 8580
8552
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 1 % of the total
"INT(SU);" diseased animals)":PRINT
8553
PRINT
8560
PRINT TAB(2)"Subgroup";TAB(20)"0 10 20 30 40 50 %"
8561
PRINT TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
8565
FOR I=1 TO N
8566
Z=(NA(I)/SU)*100
8567
IF Z<1 THEN GOTO 8568 ELSE 8571
8568
IF Z>0 THEN GOTO 8569 ELSE 8571
8569
PRINT TAB(2)USING"\
\";SG$(I);
8570
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 8577
8571
PRINT TAB(2)USING"\
\";SG$(I);
8572
PRINT TAB(20)CHR$(179);
8573
FOR K=1 TO (NA(I)/SU)*100
8574
PRINT CHR$(223);
8575
NEXT K
8576
PRINT
8577
NEXT I
8579
PRINT:GOTO 8980
8580
PRINT:PRINT TAB(11)"(";CHR$(223);" represents 2 % of total
"INT(SU);" diseased animals)":PRINT
8582
PRINT:PRINT TAB(3)"Subgroup";TAB(20)"0 20 40 60 80
100 %"
8584
PRINT
TAB(20)CHR$(179)"---------|---------|---------|---------|---------I"
8585
FOR I=1 TO N
8586
Z=(NA(I)/SU)*50
8587
IF Z<1 THEN GOTO 8588 ELSE 8591
8588
IF Z>0 THEN GOTO 8589 ELSE 8591
8589
PRINT TAB(2)USING"\
\";SG$(I);
8590
PRINT TAB(20)CHR$(179);CHR$(249):GOTO 8597
8591
PRINT TAB(2)USING"\
\";SG$(I);
8592
PRINT TAB(20)CHR$(179);
8593
FOR K=1 TO (NA(I)/SU)*50
8594
PRINT CHR$(223);
8595
NEXT K
8596
PRINT
8597
NEXT I:PRINT
8980
A$=INKEY$:IF A$="" THEN GOTO 8980
8981
CLS:MAX=0:SG$="":NA=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
8982
IF R$="y" OR R$="n" THEN GOTO 8983 ELSE 8990
8983
IF R$="y" THEN GOTO 8000 ELSE 8990
8990
RETURN
9000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.9-TABLES OF POPULATION DISEASE
OCCURRENCE ACCORDING TO SPECIES,"
9001
PRINT" CATEGORIES, ECOLOGICAL AND
ECONOMIC CONDITIONS"
9010
PRINT"================================================================="
9011
PRINT"This subprogramme creates space/time tables of:"
9013
PRINT TAB(3)"1) population disease occurrence according to species"
9014
PRINT TAB(3)"2) population disease occurrence according to
categories"
9015
PRINT TAB(3)"3) population disease occurrence according to ecological
conditions"
9016
PRINT TAB(3)"4) population disease occurrence according to economic
conditions"
9018
INPUT" Enter choice number:
",CH
9019
IF CH=1 OR CH=2 OR CH=3 OR CH=4 THEN GOTO 9020 ELSE PRINT IDE$:GOTO 9980
9020
PRINT"INPUT DATA"
9022
IF CH=1 THEN SC$="species"
9023
IF CH=2 THEN SC$="categories"
9024
IF CH=3 OR CH=4 THEN SC$="conditions"
9029
INPUT" place, time (period)
";PL$,TI$
9030
INPUT" disease ";DI$
9031
IF CH=3 OR CH=4 THEN INPUT"
species ";SP$
9032
PRINT" number (up to 5 !) of
"SC$;" (for table head)";
9033
INPUT" ";Y
9034
IF Y=<0 THEN PRINT IDM$:GOTO 9980 ELSE 9035
9035
FOR I=1 TO Y
9036
PRINT" name (up to 8
characters !) of the "SC$;" ";I;
9037
INPUT" ";SC$(I)
9038
NEXT I
9039
INPUT" data according to
subterritories (s) or time (t) ";DA$
9040
IF DA$="s" OR DA$="t" THEN GOTO 9041 ELSE PRINT IDE$:GOTO
9980
9041
IF DA$="s" THEN DA$="Subterritory"
9042
IF DA$="t" THEN DA$="Time"
9043
INPUT" measure units ";MU$
9048
INPUT" number of rows (2 up to
11 !) ";N
9049
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 9980
9057
CLS:PRINT
9058
PRINT"Row names (up to 10 characters !!), values (integers !) of
individual columns"
9059
PRINT"following this sequence (commas between individual
data):":PRINT
9070
PRINT TAB(6)DA$;", ";
9071
FOR I= 1 TO Y
9072
PRINT SC$(I);", ";
9073
NEXT
9074
PRINT:PRINT
9075
FOR I= 1 TO N
9076
PRINT TAB(5)I;"row: ";
9077
INPUT "";CO$(I),C(I),D(I),E(I),F(I),G(I)
9078
IF CO$(I)="" THEN PRINT:PRINT IDM$:GOTO 9980 ELSE 9079
9079
NEXT I
9100
IF N<10 THEN PRINT:INPUT"Data source (without commas !) ";DS$
9180
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
9181
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
9182
IF I$="m" THEN GOTO 10
9183
IF I$="c" THEN GOTO 9000
9184
IF I$=CHR$(13) THEN GOTO 9200
9200
CLS
9201
IF CH=1 THEN PRINT TAB(6)"POPULATION
DISEASE OCCURRENCE ACCORDING
TO SPECIES"
9202
IF CH=2 THEN PRINT TAB(6)"POPULATION
DISEASE OCCURRENCE ACCORDING
TO CATEGORIES"
9203
IF CH=3 THEN PRINT TAB(6)"POPULATION
DISEASE OCCURRENCE ACCORDING
TO ECOLOGICAL CONDITIONS"
9204
IF CH=4 THEN PRINT TAB(6)"POPULATION
DISEASE OCCURRENCE ACCORDING
TO ECONOMIC CONDITIONS"
9206
PRINT
9210
PRINT"Disease: "DI$;TAB(50)"Units: "MU$
9211
IF CH=2 OR CH=3 OR CH=4 THEN PRINT TAB(5)"Species: "SP$
9212
PRINT"Place: "PL$;TAB(50)"Time: "TI$
9213
PRINT
9270
PRINT DA$;TAB(15)"T o t a l";TAB(26)SC$(1);TAB(37)SC$(2);TAB(48)SC$(3);TAB(59)SC$(4);TAB(70)SC$(5):GOTO
9273
9273
PRINT
9300
C=0:D=0:E=0:F=0:G=0
9310
FOR I=1 TO N
9312
C=C+C(I)
9314
D=D+D(I)
9316
E=E+E(I)
9318
F=F+F(I)
9320
G=G+G(I)
9322
NEXT I
9400
FOR I=1 TO N
9402
IF Y=1 THEN PRINT CO$(I);TAB(14)C(I);TAB(25)C(I):GOTO 9420
9404
IF Y=2 THEN PRINT CO$(I);TAB(14)C(I)+D(I);TAB(25)C(I);TAB(36)D(I):GOTO 9420
9406
IF Y=3 THEN PRINT
CO$(I);TAB(14)C(I)+D(I)+E(I);TAB(25)C(I);TAB(36)D(I);TAB(47)E(I):GOTO 9420
9408
IF Y=4 THEN PRINT CO$(I);TAB(14)C(I)+D(I)+E(I)+F(I);TAB(25)C(I);TAB(36)D(I);TAB(47)E(I);TAB(58)F(I):GOTO
9420
9410
IF Y=5 THEN PRINT
CO$(I);TAB(14)C(I)+D(I)+E(I)+F(I)+G(I);TAB(25)C(I);TAB(36)D(I);TAB(47)E(I);TAB(58)F(I);TAB(69)G(I)
9420
NEXT I:GOTO 9470
9470
PRINT
9478
IF DA$<>"Time" THEN GOTO 9479 ELSE 9498
9479
T=C+D+E+F+G
9481
IF Y=2 THEN PRINT"T o t a l";TAB(14)T;TAB(25)C;TAB(36)D
9482
IF Y=3 THEN PRINT"T o t a l";TAB(14)T;TAB(25)C;TAB(36)D;TAB(47)E
9483
IF Y=4 THEN PRINT"T o t a
l";TAB(14)T;TAB(25)C;TAB(36)D;TAB(47)E;TAB(58)F
9484
IF Y=5 THEN PRINT"T o t a
l";TAB(14)T;TAB(25)C;TAB(36)D;TAB(47)E;TAB(58)F;TAB(69)G
9485
PRINT
9486
IF Y=2 THEN
PRINT"Proportion";TAB(15)"1.0000";TAB(26)USING"#.####";C/T;TAB(37)D/T
9487
IF Y=3 THEN
PRINT"Proportion";TAB(15)"1.0000";TAB(26)USING"#.####";C/T;TAB(37)D/T;TAB(47)E/T
9488
IF Y=4 THEN
PRINT"Proportion";TAB(15)"1.0000";TAB(26)USING"#.####";C/T;TAB(37)D/T;TAB(48)E/T;TAB(59)F/T
9489
IF Y=5 THEN
PRINT"Proportion";TAB(15)"1.0000";TAB(26)USING"#.####";C/T;TAB(37)D/T;TAB(48)E/T;TAB(59)F/T;TAB(70)G/T
9490
PRINT
9498
IF DS$="" THEN GOTO 9850 ELSE PRINT"Data source: "DS$
9850
FOR I=1 TO Y
9851
SC$(I)=""
9852
NEXT I
9900
C(I)=0:D(I)=0:E(I)=0:F(I)=0:G(I)=0:C=0:D=0:E=0:F=0:G=0
9980
A$=INKEY$:IF A$="" THEN GOTO 9980
9981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
9982
IF R$="y" OR R$="n" THEN GOTO 9983 ELSE 9990
9983
IF R$="y" THEN GOTO 9000 ELSE 9990
9990
RETURN
10000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.10-TABLES OF ANIMAL POPULATION,
FARMS AND TERRITORY EPI.STRUCTURES"
10010
PRINT"===================================================================="
10015
PRINT"This subprogramme facilitates the creation of tables according to
space"
10016
PRINT"and time with following structures:"
10018
PRINT TAB(10)"1) total, free and diseased animals"
10019
PRINT TAB(10)"2) total, free and affected herds"
10020
PRINT TAB(10)"3) total, free and affected farms"
10021
PRINT TAB(10)"4) total, free and affected territory"
10026
INPUT" Enter choice number:
",CH
10027
IF CH=1 OR CH=2 OR CH=3 OR CH=4 THEN GOTO 10030 ELSE PRINT IDE$:GOTO 10980
10030
PRINT"INPUT DATA"
10031
INPUT" title (in capital
letters, without commas !) ";NA$
10032
INPUT" disease ";DI$
10033
INPUT" species ";SP$
10034
INPUT" place, time ";PL$,TI$
10035
INPUT" number of rows (2 up to
11 !) ";N
10036
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 10980
10037
INPUT" data according to
subterritories (s) or time (t) ";DA$
10038
IF DA$="s" OR DA$="t" THEN GOTO 10039 ELSE PRINT IDE$:GOTO
10980
10039
IF DA$="s" THEN DA$="Territory"
10040
IF DA$="t" THEN DA$="Time"
10041
IF CH=4 THEN INPUT" surface
measure units, data source (without commas !) ";MU$,DS$:GOTO 10046
10042
INPUT" data source (without
commas !) ";DS$
10046
CLS:PRINT:PRINT" Row names (up to
10 characters !!), values (integers !) of individual columns"
10047
PRINT" following this sequence
(commas between data !):":PRINT
10060
IF CH=1 THEN X$="animals":GOTO 10067
10061
IF CH=2 THEN X$="herds":GOTO 10068
10062
IF CH=3 THEN X$="farms":GOTO 10069
10063
IF CH=4 THEN X$=MU$:GOTO 10070
10067
PRINT TAB(6)DA$;", total animals, disease free animals, diseased
animals":GOTO 10072
10068
PRINT TAB(6)DA$;", total herds, disease free herds, affected
herds":GOTO 10072
10069
PRINT TAB(6)DA$;", total farms, disease free farms, affected
farms":GOTO 10072
10070
PRINT TAB(6)DA$;", total area, disease free area, affected area":GOTO
10072
10072
PRINT:FOR I = 1 TO N
10073
PRINT TAB(5)I;"row: ";
10074
INPUT "";CO$(I),C(I),D(I),E(I)
10075
IF CO$(I)="" OR C(I)=0 THEN PRINT:PRINT IDM$:GOTO 10980 ELSE 10076
10076
IF (D(I)+E(I))>C(I) THEN PRINT IDE$:GOTO 10980
10077
NEXT I
10180
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
10181
PRINT TAB(18)"to go back to menu then key 'm',":PRINT:INPUT" else ENTER to continue !
",I$
10182
IF I$="m" THEN GOTO 10
10183
IF I$="c" THEN GOTO 10000
10184
IF I$=CHR$(13) THEN GOTO 10200
10200
CLS
10202
PRINT TAB(5)NA$:PRINT
10203
PRINT"Disease: "DI$;TAB(50)"Units: "X$;" ";Y$
10204
PRINT TAB(10)"Species: "SP$
10207
PRINT"Place: "PL$;TAB(50)"Time: "TI$
10212
PRINT
10260
PRINT DA$;TAB(14)"T o t a l";TAB(26)"Dis.
Free";TAB(39)" %
";TAB(48)"Indeterm.";TAB(59)"Affected";TAB(70)" % "
10268
PRINT
10300
C=0:D=0:E=0:F=0:G=0
10310
FOR I=1 TO N
10312
C=C+C(I)
10314
D=D+D(I)
10316
E=E+E(I)
10318
F=F+F(I)
10320
G=G+G(I)
10322
NEXT I
10400
FOR I=1 TO N
10403
PRINT CO$(I);TAB(13)C(I);TAB(25)D(I);TAB(38)USING"#.####";D(I)/C(I);
10404
PRINT
TAB(47)C(I)-(D(I)+E(I));TAB(58)E(I);TAB(70)USING"#.####";E(I)/C(I):GOTO
10420
10420
NEXT I
10471
PRINT
10472
TC=0
10475
FOR I=1 TO N
10476
TC=TC+C(I)
10477
TCY=TC*Y
10478
NEXT I
10479
T=C+D+E+F+G
10483
IF DA$="Territory" THEN PRINT"T o t a
l";TAB(13)C;TAB(25)D;TAB(38)USING"#.####";D/C;
10484
IF DA$="Territory" THEN PRINT TAB(47)C-(E+D);TAB(58)E;TAB(70)USING"#.####";E/C
10498
IF DS$="" THEN GOTO 10980 ELSE PRINT:PRINT"Data source:
"DS$
10980
A$=INKEY$:IF A$="" THEN GOTO 10980
10981
CLS:CO$="":D=0:E=0:C=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
10982
IF R$="y" OR R$="n" THEN GOTO 10983 ELSE 10990
10983
IF R$="y" THEN GOTO 10000 ELSE 10990
10990
RETURN
11000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.11-TABLES OF DISEASE FOCI AND
INTRAFOCAL STRUCTURES"
11010
PRINT"====================================================="
11015
PRINT"This subprogramme facilitates the creation of the tables according
to"
11016
PRINT"space and time, with following structure:"
11022
PRINT TAB(7)"1) foci: total, with diseased animals clinically,
subclinically only,"
11023
PRINT TAB(10)"in observation and depopulated"
11024
PRINT TAB(7)"2) intrafocal animals: total, affected clinically and
subclinically,"
11025
PRINT TAB(10)"indeterminate and disease free"
11026
INPUT" Enter choice number:
",CH
11027
IF CH=1 OR CH=2 THEN GOTO 11030 ELSE PRINT IDE$:GOTO 11980
11030
PRINT"INPUT DATA"
11031
INPUT" title (in capital
letters, without commas !) ";NA$
11032
INPUT" disease ";DI$
11033
INPUT" species ";SP$
11034
INPUT" place, time ";PL$,TI$
11035
IF CH=1 THEN INPUT" foci
form/type ";FT$
11036
IF CH=2 THEN INPUT" disease
form/type ";DT$
11037
INPUT" data according to
subterritories (s) or time (t) ";DA$
11038
IF DA$="s" OR DA$="t" THEN GOTO 11039 ELSE PRINT IDE$:GOTO
11980
11039
IF DA$="s" THEN DA$="Territory"
11040
IF DA$="t" THEN DA$="Time"
11041
INPUT" data source (without
commas !) ";DS$
11043
PRINT
11044
INPUT" number of rows (2 up to
11 !) ";N
11045
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 11980
11046
CLS:PRINT:PRINT" Row names (up to
10 characters !!), values (integers !) of individual columns"
11047
PRINT" following this sequence
(commas between data !):":PRINT
11048
IF CH=1 THEN GOTO 11071 ELSE 11073
11071
PRINT TAB(3)DA$;", f o c i total,
foci with animals diseased clinically,";
11072
PRINT TAB(30)"diseased subclinically only, depopulated foci":GOTO
11075
11073
PRINT TAB(3)DA$;", intrafocal a n i
m a l s total, diseased
clinically,";
11074
PRINT TAB(50)"subclinically, disease free":PRINT
11075
FOR I = 1 TO N
11076
PRINT TAB(5)I;" row: ";
11077
INPUT "";CO$(I),C(I),D(I),E(I),G(I)
11078
IF CO$(I)="" OR C(I)=0 THEN PRINT:PRINT IDM$:GOTO 11980 ELSE 11079
11079
NEXT I
11080
FOR I= 1 TO N
11081
IF (D(I)+E(I)+G(I))>C(I) THEN GOTO 11082 ELSE 11084
11082
PRINT:PRINT " Error ! Sum of parts
cannot be major than total ! ":GOTO 11980
11084
NEXT I
11185
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
11186
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT" else ENTER to continue ! ",I$
11187
IF I$="m" THEN GOTO 10
11188
IF I$="c" THEN GOTO 11000
11189
IF I$=CHR$(13) THEN GOTO 11200
11200
CLS
11205
PRINT TAB(5)NA$:PRINT
11206
IF CH=1 THEN PRINT"Disease: "DI$;TAB(50)"Form/type: "FT$
11207
IF CH=2 THEN PRINT"Disease: "DI$;TAB(50)"Form/type: "DT$
11208
PRINT TAB(10)"Species: "SP$
11209
PRINT"Place: "PL$;TAB(50)"Time: "TI$
11210
PRINT
11211
IF CH=1 THEN GOTO 11212 ELSE 11215
11212
PRINT DA$;TAB(14)"T o t a l";TAB(27)"With Animals
Diseased";TAB(56)"In";TAB(69)"Depopulated"
11213
PRINT
TAB(27)"---------------------------";TAB(56)"Observation"
11214
PRINT TAB(27)"Clinically";TAB(41)"Subclin. only":PRINT:GOTO
11250
11215
PRINT DA$;TAB(15)"T o t a l";TAB(29)"D i
s e a
s e d";TAB(57)"Indetermi-";TAB(68)"Disease
Free"
11217
PRINT TAB(29)"Clinically";TAB(42)"Subclin.
only";TAB(57)"nate":PRINT
11250
FOR I= 1 TO N
11251
F(I)=C(I)-(D(I)+E(I)+G(I))
11252
PRINT CO$(I);TAB(15)C(I);TAB(29)D(I);TAB(42)E(I);TAB(57)F(I);TAB(69)G(I)
11253
NEXT I
11300
C=0:D=0:E=0:F=0:G=0
11310
FOR I=1 TO N
11312
C=C+C(I)
11314
D=D+D(I)
11316
E=E+E(I)
11318
F=F+F(I)
11320
G=G+G(I)
11322
NEXT I
11471
PRINT
11472
TC=0
11475
FOR I=1 TO N
11476
TC=TC+C(I)
11477
TCY=TC*Y
11478
NEXT I
11479
T=C+D+E+F+G
11485
IF DA$="Territory" THEN PRINT"T o t a
l";TAB(15)C;TAB(29)D;TAB(42)E;TAB(57)F;TAB(69)G
11500
A$=INKEY$:IF A$="" THEN GOTO 11500
11505
CLS:PRINT:PRINT NA$:PRINT TAB(5)"P r o p o r t i o n s: ":PRINT
11510
IF CH=1 THEN GOTO 11512 ELSE 11515
11512
PRINT DA$;TAB(14)"T o t a l";TAB(27)"With Animals
Diseased";TAB(56)"In";TAB(69)"Depopulated"
11513
PRINT
TAB(27)"---------------------------";TAB(56)"Observation"
11514
PRINT TAB(27)"Clinically";TAB(41)"Subclin. only":PRINT:GOTO
11550
11515
PRINT DA$;TAB(15)"T o t a l";TAB(29)"D i s e
a s e
d";TAB(57)"Indetermi-";TAB(68)"Disease Free"
11516
PRINT TAB(29)"Clinically";TAB(42)"Subclin.
only";TAB(57)"nate":PRINT
11550
FOR I= 1 TO N
11551
F(I)=C(I)-(D(I)+E(I)+G(I))
11552
PRINT CO$(I);TAB(16)"1.0000";TAB(29)USING"#.####";D(I)/C(I);TAB(42)E(I)/C(I);TAB(57)F(I)/C(I);TAB(70)G(I)/C(I)
11553
NEXT I:PRINT
11685
IF DA$="Territory" THEN PRINT"T o t a
l";TAB(16)"1.0000";TAB(29)USING"#.####";D/C;TAB(42)E/C;TAB(57)F/C;TAB(70)G/C
11698
IF DS$="" THEN GOTO 11980 ELSE PRINT:PRINT"Data source: "DS$
11980
A$=INKEY$:IF A$="" THEN GOTO 11980
11981
CLS:CO$="":C=0:E=0:D=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
11982
IF R$="y" OR R$="n" THEN GOTO 11983 ELSE 11990
11983
IF R$="y" THEN GOTO 11000 ELSE 11990
11990
RETURN
12000 CLS:PRINT
TAB(52)e$" "v$:PRINT"3.12-PROPORTIONS OF DISEASE DIFFERENT
FORMS/SYMPTOMS FINDINGS "
12010
PRINT"=============================================================="
12050
PRINT"INPUT DATA:"
12052
INPUT" disease ";DI$
12053
INPUT" species, category(ies)
";SP$,CA$
12055
INPUT" place, time
";PL$,TI$
12061
INPUT" investigations intravitam
(i) or postmortem (p)
";INV$
12062
IF INV$="i" OR INV$="p" THEN GOTO 12063 ELSE PRINT
IDE$:GOTO 12980
12063
IF INV$="i" THEN IN$="intravitam investigations "
12064
IF INV$="p" THEN IN$="postmortem investigations "
12065
INPUT" total number of
investigated d i s e a s e d animals
";AN
12066
IF AN=0 THEN PRINT IDM$:GOTO 12980 ELSE 12067
12067
PRINT DS$;
12068
INPUT" ";DAT$
12070
T=0
12075
INPUT" number (2 up to 11 !) of
forms/symptoms/findings ";N
12076
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 12980
12080
PRINT:PRINT TAB(10)" List data
(names up to 18 characters !!): ":PRINT
12081
FOR I=1 TO N:PRINT TAB(5)I;" ";
12082
IF INV$="i" THEN INPUT"form/symptom, number of cases
";M$(I),X(I)
12083
IF INV$="p" THEN INPUT"finding name, number of cases
";M$(I),X(I)
12084
IF M$(I)="" THEN PRINT:PRINT IDE$:GOTO 12980 ELSE 12085
12085
T=T+X(I)
12086
NEXT I
12087
IF T=0 THEN PRINT:PRINT IDM$:GOTO 12980 ELSE 12088
12088
MAX=X(1)
12089
FOR I=2 TO N
12090
IF X(I)>MAX THEN MAX=X(I):NEXT I
12091
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
12092
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
12093
IF I$="m" THEN GOTO 10
12094
IF I$="c" THEN GOTO 12000
12095
IF I$=CHR$(13) THEN GOTO 12100
12100
CLS:PRINT:PRINT" PROPORTIONS OF
DISEASE DIFFERENT FORMS / SYMPTOMS FINDINGS"
12101
PRINT TAB(3)"Disease: "DI$
12102
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
12103
PRINT"Place: "PL$;TAB(50)"Time: "TI$
12104
PRINT"Results of ";IN$;"of ";AN;"diseased
animals:":PRINT
12106
IF INV$="i" THEN PRINT"Form/symptom";
12107
IF INV$="p" THEN PRINT"Finding";
12140
PRINT TAB(20)"Number of";TAB(32)"Total F i n d i n g s";TAB(58)"Total
Diseased Animals"
12145
PRINT
TAB(21)"Cases";TAB(32)"Proportion";TAB(45)"Percentage";TAB(58)"Proportion";
12146
PRINT TAB(70)"Percentage"
12150
PRINT
12160
FOR I=1 TO N
12170
PRINT M$(I);TAB(20)X(I);TAB(33)USING"##.####";X(I)/T;
12171
PRINT TAB(46)USING"##.####";X(I)/T*100;
12172
PRINT TAB(59)USING"###.####";X(I)/AN;TAB(71)X(I)/AN*100
12180
NEXT:PRINT
12195
PRINT"T o t a
l";TAB(20)T;TAB(34)"1.0000";TAB(45)"100.0000":';TAB(61)USING"#.####";T/AN;
12196
'PRINT TAB(71)USING"###.####";(T/AN)*100
12197
PRINT:PRINT DS$;" "DAT$
12200
A$=INKEY$:IF A$="" THEN GOTO 12200
12201
CLS
12202
IF INV$="i" THEN PRINT TAB(9)"PROPORTIONS OF
DISEASE DIFFERENT INTRAVITAM
FINDINGS"
12203
IF INV$="p" THEN PRINT TAB(9)"PROPORTIONS OF
DISEASE DIFFERENT POSTMORTEM
FINDINGS"
12207
IF MAX>(T/2) THEN GOTO 12212 ELSE 12250
12212
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of total "INT(T);" findings)":PRINT
12216
PRINT:PRINT TAB(5)"Finding";TAB(25)"0 20 40 60
80 100 %"
12217
PRINT
TAB(2)D$;TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
12219
FOR I=1 TO N
12220
Z=X(I)/T*50
12221
IF Z<1 THEN GOTO 12222 ELSE 12224
12222
IF Z>0 THEN GOTO 12223 ELSE 12224
12223
PRINT TAB(2)M$(I);TAB(25)CHR$(179);CHR$(249):GOTO 12233
12224
PRINT TAB(2)M$(I);TAB(25)CHR$(179);
12226
FOR K=1 TO X(I)/T*50
12228
PRINT CHR$(223);
12230
NEXT K
12233
NEXT I:PRINT:GOTO 12300
12250
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 1 % of total "INT(T);" findings)":PRINT
12252
PRINT:PRINT TAB(5)"Finding";TAB(25)"0 10 20 30 40 50 %"
12253
PRINT
TAB(2)D$;TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
12255
FOR I=1 TO N
12256
Z=X(I)/T*100
12257
IF Z<1 THEN GOTO 12258 ELSE 12260
12258
IF Z>0 THEN GOTO 12259 ELSE 12260
12259
PRINT TAB(2)M$(I);TAB(25)CHR$(179);CHR$(249):GOTO 12268
12260
PRINT TAB(2)M$(I);TAB(25)CHR$(179);
12262
FOR K=1 TO X(I)/T*100
12264
PRINT CHR$(223);
12266
NEXT K
12268
NEXT I:PRINT
12300
A$=INKEY$:IF A$="" THEN GOTO 12300
12301
CLS
12302
IF INV$="i" THEN PRINT TAB(9)"PROPORTIONS OF
DISEASE DIFFERENT INTRAVITAM
FINDINGS"
12303
IF INV$="p" THEN PRINT TAB(9)"PROPORTIONS OF
DISEASE DIFFERENT POSTMORTEM
FINDINGS"
12312
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of total "INT(AN);" diseased
animals)":PRINT
12316
PRINT:PRINT TAB(5)"Finding";TAB(25)"0 20 40 60 80
100 %"
12317
PRINT TAB(2)D$;TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
12319
FOR I=1 TO N
12320
Z=X(I)/AN*50
12321
IF Z<1 THEN GOTO 12322 ELSE 12324
12322
IF Z>0 THEN GOTO 12323 ELSE 12324
12323
PRINT TAB(2)M$(I);TAB(25)CHR$(179);CHR$(249):GOTO 12333
12324
PRINT TAB(2)M$(I);TAB(25)CHR$(179);
12326
FOR K=1 TO X(I)/AN*50
12328
PRINT CHR$(223);
12330
NEXT K
12333
NEXT I
12980
A$=INKEY$:IF A$="" THEN GOTO 12980
12981
CLS:MAX=0:M$="":X=0:INPUT"Do you want to repeat this
subprogramme, yes(y) or no(n) ";R$
12982
IF R$="y" OR R$="n" THEN GOTO 12983 ELSE 12990
12983
IF R$="y" THEN GOTO 12000 ELSE 12990
12990
RETURN
13000
CLS:PRINT TAB(52)e$" "v$:PRINT"3.13-PROPORTIONS OF SPECIFIC
ETIOLOGICAL AGENTS/ANTIBODIES' FINDINGS"
13010
PRINT"===================================================================="
13050
PRINT"INPUT DATA:"
13052
INPUT" etiological group
";DI$
13053
INPUT" species, category(ies)
";SP$,CA$
13055
INPUT" place, time
";PL$,TI$
13061
INPUT" etiological agents
findings (e) or positive serological findings (s) ";INV$
13062
IF INV$="e" OR INV$="s" THEN GOTO 13063 ELSE PRINT
IDE$:GOTO 13980
13063
IF INV$="e" THEN IN$="specific etiological agents
investigations:"
13064
IF INV$="s" THEN IN$="serological investigations:"
13065
PRINT DS$;
13066
INPUT" ";DAT$
13070
T=0
13075
INPUT" number (2 up to 11 !) of
etiological agents or antibodies names ";N
13076
IF N=<1 OR N>11 THEN PRINT IDE$:GOTO 13980
13080
PRINT:PRINT TAB(10)" List names (up
to 18 characters !!) and numbers: ":PRINT
13081
FOR I=1 TO N:PRINT I;
13082
IF INV$="e" THEN INPUT"etiolology, investigations, findings
";M$(I),Y(I),X(I)
13083
IF INV$="s" THEN INPUT"spec. dis. test, investigations, findings
";M$(I),Y(I),X(I)
13084
IF X(I)>Y(I) THEN PRINT IDE$:GOTO 13980
13085
T=T+X(I)
TT=TT+Y(I)
13086
NEXT I
13087
IF T=0 THEN PRINT:PRINT IDM$:GOTO 13980 ELSE 13088
13088
MAX=X(1)
13089
FOR I=2 TO N
13090
IF X(I)>MAX THEN MAX=X(I):NEXT I
13091
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
13092
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue !
",I$
13093
IF I$="m" THEN GOTO 10
13094
IF I$="c" THEN GOTO 13000
13095
IF I$=CHR$(13) THEN GOTO 13100
13100
CLS:PRINT" PROPORTIONS OF SPECIFIC ETIOLOGICAL AGENTS/ANTIBODIES'
FINDINGS"
13101
PRINT:PRINT"Etiological Group: "DI$
13102
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
13103
PRINT"Place: "PL$;TAB(50)"Time: "TI$
13104
PRINT"Results of ";IN$:PRINT
13140
PRINT TAB(22)"N u m b e r o
f";TAB(55)"Total F i n d i n g
s'"
13145
PRINT TAB(22)"Tests";TAB(32)"Findings";TAB(45)"
%";TAB(55)"Proportion";TAB(68)"Percentage"
13150
PRINT
13160
FOR I=1 TO N
13170
PRINT M$(I);TAB(22)INT(Y(I));TAB(32)INT(X(I));
13171
PRINT TAB(41)USING"###.####";(X(I)/Y(I))*100;
13172
PRINT TAB(55)USING"##.####";X(I)/T;
13175
PRINT TAB(70)USING"##.####";X(I)/T*100
13180
NEXT:PRINT
13195
PRINT TAB(5)"T o t a
l";TAB(22)INT(TT);TAB(32)INT(T);TAB(56)"1.0000";TAB(69)"100.0000"
13196
PRINT:PRINT DS$;" "DAT$
13200
A$=INKEY$:IF A$="" THEN GOTO 13200
13301
CLS
13302
PRINT" PROPORTIONS OF
SPECIFIC ETIOLOGICAL AGENTS/ANTIBODIES' FINDINGS"
13312
PRINT:PRINT TAB(13)"(";CHR$(223);" represents 2 % of total "INT(T);" findings)":PRINT
13316
PRINT:PRINT TAB(5)"Finding";TAB(25)"0 20 40 60 80
100 %"
13317
PRINT TAB(2)D$;TAB(25)CHR$(179)"---------|---------|---------|---------|---------I"
13319
FOR I=1 TO N
13320
Z=X(I)/T*50
13321
IF Z<1 THEN GOTO 13322 ELSE 13324
13322
IF Z>0 THEN GOTO 13323 ELSE 13324
13323
PRINT TAB(2)M$(I);TAB(25)CHR$(179);CHR$(249):GOTO 13333
13324
PRINT TAB(2)M$(I);TAB(25)CHR$(179);
13326
FOR K=1 TO X(I)/T*50
13328
PRINT CHR$(223);
13330
NEXT K
13333
NEXT I
13980
A$=INKEY$:IF A$="" THEN GOTO 13980
13981
CLS:M$="":X=0:INPUT"Do you want to repeat this subprogramme,
yes(y) or no(n) ";R$
13982
IF R$="y" OR R$="n" THEN GOTO 13983 ELSE 13990
13983
IF R$="y" THEN GOTO 13000 ELSE 13990
13990
RETURN
14000
CLS:INPUT"Do you want to return to the main menu of EPIZOO, yes(y) or
no(n) ";Z$
14002
IF Z$="y" OR Z$="n" THEN GOTO 14010 ELSE 14030
14010
IF Z$="y" THEN GOTO 14020 ELSE 14030
14020
CHAIN"EPIZ40MM.KOU"
14025
CLS:PRINT:PRINT TAB(5)"E R R O R !
Start again! Next input error may terminate the
programme!":PRINT:GOTO 500
14030
SYSTEM
4-Selected indicators of epizootic process dynamics
5 ON ERROR GOTO 11995
7
IDM$="Input data missing !"
8
IDE$="Input data error !"
10
PRINT"EPIZ4004.KOU":REM:4/9/2002
15 e$="EPIZOO, ver.4.0,":v$=DATE$
20
CLS:PRINT"EPIZOO, ver.4.0";TAB(70)v$:PRINT
30
PRINT TAB(10)"4-SELECTED INDICATORS OF EPIZOOTIC PROCESS DYNAMICS"
40
PRINT TAB(10)"==================================================="
500
PRINT:PRINT TAB(15)"M E N U O
F S U B P R O G R A M M E S":PRINT
510
PRINT TAB(10)"1-Comparative indexes of population health phenomena
dynamics"
520
PRINT TAB(10)"2-Average of changing numbers of diseased animals, foci
etc."
530
PRINT TAB(10)"3-Seasonality of population health/disease phenomena"
540
PRINT TAB(10)"4-Selected tendency indicators of morbidity and
nidality"
550
PRINT TAB(10)"5-Relations between new cases and
space/time/diseased/foci"
560
PRINT TAB(10)"6-Population 'vertical movement' and chronic disease
process"
570
PRINT TAB(10)"7-Number of diseased animals according to survival
rates"
580
PRINT TAB(10)"8-Territorial propagation of transmissible diseases"
590
PRINT TAB(10)"9-Development of disease frequency with cyclic
tendency"
600
PRINT TAB(10)"10-Development of disease with ascending/descending
tendency"
605
PRINT TAB(10)"11-Chronological time series of population health
phenomenon":PRINT
610
PRINT TAB(10)"12-E N D of this
group of subprogrammes"
630
PRINT:PRINT
640
GOTO 690
644
A$=INKEY$:IF A$="" THEN GOTO 644
645
CLS
650
INPUT"Do you want to continue in this group of subprogrammes, yes(y) or
no(n) ";Z$
651 IF
Z$="y" OR Z$="n" THEN GOTO 660 ELSE 12000
660 IF
Z$="y" THEN 20 ELSE GOTO 12000
670
PRINT
690
INPUT" Enter choice number :
",CH
695 IF
CH=1 OR CH=2 OR CH=3 OR CH=4 OR CH=5 OR CH=6 OR CH=7 OR CH=8 OR CH=9 OR CH=10
OR CH=11 OR CH=12 THEN GOTO 700 ELSE 650
700 ON
CH GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000
800
GOTO 645
1000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.1-COMPARATIVE INDEXES OF
POPULATION HEALTH PHENOMENA DYNAMICS"
1020
PRINT"==============================================================="
1030
PRINT"INPUT DATA:"
1031
INPUT" phenomenon ";FE$
1032
INPUT" place, period
";LU$,PE$
1041
NA$="":X=0
1042
DIM NA$(20),X(20)
1049
INPUT" number of evaluated
subperiods or moments (2 up to 18 !) ";N
1050
IF N=0 OR N=1 OR N>18 THEN PRINT IDE$:GOTO 1980 ELSE 1055
1051
'IF N>18 THEN GOTO 1052 ELSE 1055
1052
'PRINT"Error ! More than 18 subperiods/moments ! New input !":GOTO
1049
1055
PRINT"List time (up to 15 characters), phenomenon values (major than 0 !
"
1056
PRINT"
- except the last one):"
1060
FOR I=1 TO N
1062
PRINT TAB(10)I;": ";
1063
INPUT NA$(I),X(I)
1064
IF X(1)=<0 THEN PRINT IDE$:GOTO 1980 ELSE 1065
1065
NEXT I
1066
MAX=X(1)
1067
FOR I=2 TO N
1068
IF X(I)>MAX THEN MAX=X(I)
1069
NEXT I
1070
'PRINT"Note: If a variable is five or more times higher than the first
one"
1071
'PRINT"the programme skips index graphs."
1080
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
1081
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
1082
IF I$="m" THEN GOTO 10
1083
IF I$="c" THEN GOTO 1000
1084
IF I$=CHR$(13) THEN GOTO 1100
1100
CLS:PRINT TAB(5)"COMPARATIVE
INDEXES OF POPULATION
HEALTH PHENOMENA DYNAMICS":PRINT
1111
PRINT"Phenomenon: "FE$
1112
PRINT"Place: "LU$;TAB(50)"Period: "PE$:PRINT
1140
PRINT TAB(6)"Time";TAB(25)"Input
Data";TAB(44)"Comparative I n
d e x"
1141
PRINT TAB(45)" Current";TAB(59)" Chain"
1145
PRINT
1150
REM:IF X(1)<0 THEN GOTO 1151 ELSE 1152
1151
PRINT" 1";TAB(6)USING"\ \";NA$(1);
1152
PRINT TAB(23)USING"#########.##";X(1);
1153
REM:PRINT TAB(2)"1";TAB(6)NA$(1);TAB(32)X(1);
1154
PRINT TAB(46)"100.0000";TAB(59)"100.0000"
1160
FOR I=2 TO N
1161
REM:IF X(I)<0 THEN GOTO 1170 ELSE 1171
1170
PRINT I;TAB(6)USING"\
\";NA$(I);
1171
PRINT TAB(23)USING"#########.##";X(I);
1172
REM:PRINT TAB(2)I;TAB(6)NA$(I);TAB(32)X(I);
1173
PRINT TAB(45)USING"####.####
";(X(I)/X(1))*100;TAB(58)(X(I)/X(I-1)*100)
1180
NEXT I
1190
IF MAX>(X(1)*5) THEN GOTO 1450
1195
'FOR Z=2 TO N:IF (X(I))>(X(I-1)*5) THEN GOTO 1450 ELSE 1196 ??? nedoreseno
!??
1200
A$=INKEY$:IF A$="" THEN GOTO 1200
1220
CLS:PRINT TAB(5)"COMPARATIVE
INDEXES OF POPULATION
HEALTH PHENOMENA DYNAMICS":PRINT
1221
PRINT TAB(5)"C u r r e n t C o m p
a r a t i v e I n d e x (fixed initial basis)"
1230 PRINT
TAB(19)"(";CHR$(223);" represents 10% of initial
"USING"#########.##";X(1);
1231
PRINT" )":PRINT
1234
PRINT TAB(6)"Time";TAB(24)"0 100 200
300 400 500 %"
1235
PRINT TAB(24);CHR$(179);"---------|---------|---------|---------|---------I"
1240
PRINT TAB(2)" 1";TAB(7)USING"\ \";NA$(1);
1241
PRINT TAB(24);CHR$(179);
1242
FOR P=1 TO 10:PRINT CHR$(223);
1243
NEXT P:PRINT" (= 100)"
1250
FOR I=2 TO N
1251
Z=(X(I)/X(1))*10
1252
IF Z<1 THEN GOTO 1253 ELSE 1260
1253
IF Z>0 THEN GOTO 1254 ELSE 1260
1254
PRINT TAB(2);I;TAB(7)USING"\
\";NA$(I);
1255
PRINT TAB(24)CHR$(179);CHR$(249):GOTO 1310
1260
PRINT TAB(2);I;TAB(7)USING"\
\";NA$(I);
1261
PRINT TAB(24)CHR$(179);
1270
FOR K=2 TO (X(I)/X(1))*10+1
1280
PRINT CHR$(223);
1290
NEXT K
1300
PRINT
1310
NEXT I:
1311
REM:Pro nedoreseni grafu s extremnimi hodnotami preskocit chain index
1312
GOTO 1450
1320
A$=INKEY$:IF A$="" THEN GOTO 1320
1330
CLS:PRINT TAB(5)"COMPARATIVE
INDEXES OF POPULATION
HEALTH PHENOMENA DYNAMICS":PRINT
1331
PRINT TAB(5)"C h a i n C o m p a r
a t i v e I n d e x (changing bases)"
1340
PRINT TAB(24)"(";CHR$(223);" represents 10% of previous
value)":PRINT
1341
PRINT TAB(6)"Time";TAB(24)"0 100 200
300 400 500 %"
1342
PRINT
TAB(24)CHR$(179);"---------|---------|---------|---------|---------I"
1350
PRINT TAB(2)" 1";TAB(7)USING"\ \";NA$(1);
1351
PRINT TAB(24)CHR$(179);
1353
FOR P=1 TO 10:PRINT CHR$(223);
1354
NEXT P:PRINT" (= 100)"
1360
FOR I=2 TO N
1361
Z=(X(I)/X(I-1))*10
1362
IF Z<1 THEN GOTO 1363 ELSE 1370
1363
IF Z>0 THEN GOTO 1364 ELSE 1370
1364
PRINT TAB(2)I;TAB(7)USING"\
\";NA$(I);
1365
PRINT TAB(24)CHR$(179);CHR$(249):GOTO 1420
1370
PRINT TAB(2)I;TAB(7)USING"\
\";NA$(I);
1371
PRINT TAB(24)CHR$(179);
1380
FOR K=2 TO (X(I)/X(I-1))*10+1
1390
PRINT CHR$(223);
1400
NEXT K
1410
PRINT
1420
NEXT I
1450
A$=INKEY$:IF A$="" THEN GOTO 1450
1453
CLS:PRINT TAB(5)"COMPARATIVE
INDEXES OF POPULATION
HEALTH PHENOMENA DYNAMICS":PRINT
1454
PRINT TAB(14)"C h a i n c o m p a
r a t i v e i n d e x"
1457
PRINT TAB(14)"(";CHR$(223);" represents 2 % of the maximum ";USING"#########.##";MAX;
1458
PRINT" )":PRINT
1460
PRINT TAB(7)"Time";TAB(24)"0 20 40 60 80
100 %"
1461
PRINT
TAB(24)CHR$(179)"---------|---------|---------|---------|---------I"
1465
FOR I=1 TO N
1466
Z=(X(I)/MAX)*50
1467
IF Z<1 THEN GOTO 1468 ELSE 1471
1468
IF Z>0 THEN GOTO 1469 ELSE 1471
1469
PRINT TAB(2)I;TAB(7)USING"\ \";NA$(I);
1470
PRINT TAB(24)CHR$(179);CHR$(249):GOTO 1480
1471
PRINT TAB(2)I;TAB(7)USING"\
\";NA$(I);
1472
PRINT TAB(24)CHR$(179);
1473
FOR K=1 TO (X(I)/MAX)*50
1474
PRINT CHR$(223);
1475
NEXT K
1476
PRINT
1480
NEXT I
1980
ERASE NA$,X:X=0:NA$=""
1981
A$=INKEY$:IF A$="" THEN GOTO 1981
1982
GOTO 645
1983
CLS:MAX=0:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
1984
IF R$="y" OR R$="n" THEN GOTO 1985 ELSE 1990
1985
IF R$="y" THEN GOTO 1000 ELSE 1990
1990
RETURN
2000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.2-AVERAGE OF CHANGING NUMBERS
OF DISEASED ANIMALS, FOCI"
2001
PRINT" AND OTHER EPI.
PHENOMENA"
2005
PRINT"========================================================="
2010
PRINT TAB(6)"This subprogramme calculates average of:"
2011
PRINT TAB(10)"1) changing numbers of diseased animals"
2012
PRINT TAB(10)"2) changing numbers of foci (outbreaks)"
2013
PRINT TAB(10)"3) changing numbers of epi. phenomenon units"
2015
INPUT" Enter choice number:
",S
2016
IF S=1 OR S=2 OR S=3 THEN GOTO 2020 ELSE PRINT IDM$:GOTO 2590
2020
PRINT:PRINT"INPUT DATA:"
2021
IF S=1 THEN GOTO 2022 ELSE 2025
2022
INPUT" disease(s)
";DI$:GOTO 2040
2025
IF S=2 THEN GOTO 2026 ELSE 2030
2026
INPUT" foci ";FO$:GOTO 2040
2030
IF S=3 THEN GOTO 2031
2031 INPUT" epi. phenomenon ";EP$
2040
IF S=1 THEN INPUT" species,
category(ies) ";SP$,CA$
2043
INPUT" place ";LU$
2044
INPUT" time (initial and final
dates of the period) ";PE$
2045
INPUT" time measure units
";UT$
2050
IF S=1 THEN GOTO 2051 ELSE 2060
2051
PRINT" number of diseased
animals existing"
2052
INPUT" at
the beginning of period ";A
2053
'IF A<=0 THEN GOTO 2051 ELSE 2054
2054
PRINT" number of diseased
animals existing"
2055
INPUT" at the end of the period ";B:GOTO 2090
2060
IF S=2 THEN GOTO 2061 ELSE 2070
2061
PRINT" number of foci
(outbreaks) existing"
2062
INPUT" at the
beginning of the period ";A
2063
'IF A<=0 THEN GOTO 2061 ELSE 2064
2064
PRINT" number of foci
(outbreaks) existing"
2065
INPUT"
at the end of the period
";B:GOTO 2090
2070
IF S=3 THEN GOTO 2071 ELSE 2094
2071
INPUT" epi. phenomenon measure
units ";EPMU$
2072
PRINT" number of epi. phenomenon
measure units"
2073
INPUT" at the
beginning of the period ";A
2074
'IF A<=0 THEN GOTO 2072 ELSE 2075
2075
PRINT" number of epi. phenomenon
measure units"
2076
INPUT" at the end of the period ";B:GOTO 2090
2090
INPUT" total duration of the
given period in time measure units ";C
2091
INPUT" subperiods' average
duration in time measure units
";D#
2092
IF (A+B)=0 OR C=0 OR D#=0 THEN PRINT IDM$:GOTO 2590
2094
IF A=B THEN PRINT"Error ! Initial and final data must be different
!":GOTO 2590
2095
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
2096
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
2097
IF I$="m" THEN GOTO 10
2098
IF I$="c" THEN GOTO 2000
2099
IF I$=CHR$(13) THEN GOTO 2100
2100
CLS:PRINT:PRINT"RESULT:":PRINT
2110
IF S=1 THEN GOTO 2112 ELSE 2114
2112
PRINT TAB(6)"Disease(s): "DI$
2114
IF S=2 THEN GOTO 2115 ELSE 2118
2115
PRINT TAB(6)"Foci: "FO$
2118
IF S=3 THEN PRINT TAB(5)"Epi. phenomenon: "EP$
2119
PRINT:PRINT"Place: "LU$;TAB(50)"Period: "PE$
2120
IF S=1 THEN PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
2121
IF S=3 THEN PRINT TAB(5)"Phenomenon measure units: "EPMU$
2123
PRINT"Number at the beginning: "INT(A);TAB(40)"Number at the
end: "INT(B)
2125
PRINT"Duration in "UT$;":"
2126
PRINT" Total
period: "INT(C)
2127
PRINT"
Subperiods' average: "D#:PRINT
2130
IF A>B THEN W$="- " ELSE W$=""
2140
IF S=1 THEN Z$="diseased animals"
2142
IF S=2 THEN Z$="foci (outbreaks)"
2146
IF S=3 THEN Z$="epi. phenomena"
2150
IF A<0 THEN A=0.0001
2151
IF B<0 THEN B=0.0001
2515
PRINT:PRINT" Absolute difference
between initial and final number"
2516
PRINT" of
"Z$"
= "INT((B-A)+.5):PRINT
2520
PRINT" Average absolute value of
the change of number"
2530
PRINT" of "Z$"
during one subperiod = ";INT((B-A)/(C/D#)+.5)
2540
PRINT
2541
'IF A=0 OR B=0 THEN GOTO 2590
2550
PRINT" Average relative value of
the change of initial number "
2560
PRINT" of "Z$"
during one subperiod = ";W$;
2570
PRINT USING"###.## %";(((B-A)/(C/D#))/(B-A))*100
2590
A$=INKEY$:IF A$="" THEN GOTO 2590
2600
CLS:A=0:B=0:C=0:INPUT"Do you want to repeat this subprogramme, yes(y) or
no(n) ";R$
2601
IF R$="y" OR R$="n" THEN GOTO 2610 ELSE 2990
2610
IF R$="y" THEN GOTO 2000 ELSE 2990
2990
RETURN
3000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.3-SEASONALITY OF POPULATION
HEALTH/DISEASE PHENOMENA"
3010
PRINT"======================================================="
3011
PRINT"This subprogramme calculates seasonality of:"
3012
PRINT"1) disease(s); 2) other phenomenon (outbreaks, vaccination, costs,
losses, etc.)"
3015
INPUT" Enter choice number: ",CH
3020
IF CH=1 OR CH=2 THEN GOTO 3050 ELSE PRINT IDE$:GOTO 3890
3050
PRINT"INPUT DATA:"
3053
IF CH=1 THEN GOTO 3054 ELSE 3060
3054
INPUT" disease(s) ";DI$
3055
INPUT" species, category(ies)
";SP$,CA$:GOTO 3064
3060
IF CH=2 THEN INPUT" epi.
phenomenon ";FE$
3064
INPUT" place, period
";LU$,AN$
3065
INPUT" indicator measure units
";IMU$
3066
INPUT" number of years (up to 10
!) ";NY
3067
IF NY>10 OR NY=0 THEN PRINT IDE$:GOTO 3890 ELSE 3068
3068
PRINT" Absolute monthly values (if more years' data - key commas between
them !)"
3071 INPUT" January ";E1,E2,E3,E4,E5,E6,E7,E8,E9,E10
3072
INPUT" February ";F1,F2,F3,F4,F5,F6,F7,F8,F9,F10
3073
INPUT" March ";M1,M2,M3,M4,M5,M6,M7,M8,M9,M10
3074
INPUT" April ";A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
3075 INPUT" May ";Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10
3076 INPUT" June ";J1,J2,J3,J4,J5,J6,J7,J8,J9,J10
3077 INPUT"
July ";U1,U2,U3,U4,U5,U6,U7,U8,U9,U10
3078
INPUT" August ";G1,G2,G3,G4,G5,G6,G7,G8,G9,G10
3079
INPUT" September ";S1,S2,S3,S4,S5,S6,S7,S8,S9,S10
3080 INPUT" October ";O1,O2,O3,O4,O5,O6,O7,O8,O9,O10
3081
INPUT" November ";N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
3082
INPUT" December ";D1,D2,D3,D4,D5,D6,D7,D8,D9,D10
3083 E=E1+E2+E3+E4+E5+E6+E7+E8+E9+E10
3084
F=F1+F2+F3+F4+F5+F6+F7+F8+F9+F10
3085
M=M1+M2+M3+M4+M5+M6+M7+M8+M9+M10
3086 A=A1+A2+A3+A4+A5+A6+A7+A8+A9+A10
3087 Y=Y1+Y2+Y3+Y4+Y5+Y6+Y7+Y8+Y9+Y10
3088 J=J1+J2+J3+J4+J5+J6+J7+J8+J9+J10
3089 U=U1+U2+U3+U4+U5+U6+U7+U8+U9+U10
3090
G=G1+G2+G3+G4+G5+G6+G7+G8+G9+G10
3091
S=S1+S2+S3+S4+S5+S6+S7+S8+S9+S10
3092 O=O1+O2+O3+O4+O5+O6+O7+O8+O9+O10
3093 N=N1+N2+N3+N4+N5+N6+N7+N8+N9+N10
3094 D=D1+D2+D3+D4+D5+D6+D7+D8+D9+D10
3095 LET T=E+F+M+A+Y+J+U+G+S+O+N+D
3096
IF T=0 THEN PRINT IDM$:GOTO 3980
3097
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
3098
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
3099
IF I$="m" THEN GOTO 10
3100
IF I$="c" THEN GOTO 3000
3101
IF I$=CHR$(13) THEN GOTO 3102
3102
CLS:PRINT:PRINT" S E A S O N A L
I T Y OF POPULATION HEALTH/DISEASE PHENOMENA":PRINT
3112
IF CH=1 THEN GOTO 3120 ELSE 3122
3120
PRINT"Disease(s): "DI$
3121
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$:GOTO 3123
3122
PRINT"Epi. phenomenon: "FE$
3123
PRINT"Place: "LU$;TAB(50)"Year(s): "AN$
3124
PRINT"Indicator units: "IMU$;TAB(40)"Total cases/units:
"INT(T+.5):PRINT
3125
PRINT TAB(21)"Total Number";TAB(38)"%";TAB(46)"Monthly
Average";TAB(65)"Season Index"
3127
Z=T/(NY*12)
3130
PRINT
3131
PRINT" January
";TAB(20)USING"#######.##";E;TAB(35)USING"##.####
";100*E/T;TAB(47)USING"#######.##";E/NY;
3132
PRINT TAB(65)USING"####.####
%";((E/NY)/Z)*100
3134
PRINT"
February";TAB(20)USING"#######.##";F;TAB(35)USING"##.####
";100*F/T;TAB(47)USING"#######.##";F/NY;
3135
PRINT TAB(65)USING"####.####
%";((F/NY)/Z)*100
3137
PRINT" March
";TAB(20)USING"#######.##";M;TAB(35)USING"##.####
";100*M/T;TAB(47)USING"#######.##";M/NY;
3138
PRINT TAB(65)USING"####.####
%";((M/NY)/Z)*100
3140
PRINT" April
";TAB(20)USING"#######.##";A;TAB(35)USING"##.####
";100*A/T;TAB(47)USING"#######.##";A/NY;
3141
PRINT TAB(65)USING"####.####
%";((A/NY)/Z)*100
3143
PRINT" May
";TAB(20)USING"#######.##";Y;TAB(35)USING"##.####
";100*Y/T;TAB(47)USING"#######.##";Y/NY;
3144
PRINT TAB(65)USING"####.####
%";((Y/NY)/Z)*100
3146
PRINT" June
";TAB(20)USING"#######.##";J;TAB(35)USING"##.####
";100*J/T;TAB(47)USING"#######.##";J/NY;
3147
PRINT TAB(65)USING"####.####
%";((J/NY)/Z)*100
3149
PRINT" July
";TAB(20)USING"#######.##";U;TAB(35)USING"##.####
";100*U/T;TAB(47)USING"#######.##";U/NY;
3150
PRINT TAB(65)USING"####.####
%";((U/NY)/Z)*100
3152
PRINT" August
";TAB(20)USING"#######.##";G;TAB(35)USING"##.####
";100*G/T;TAB(47)USING"#######.##";G/NY;
3153
PRINT TAB(65)USING"####.####
%";((G/NY)/Z)*100
3155
PRINT" September";TAB(20)USING"#######.##";S;TAB(35)USING"##.####
";100*S/T;TAB(47)USING"#######.##";S/NY;
3156
PRINT TAB(65)USING"####.####
%";((S/NY)/Z)*100
3157
PRINT" October
";TAB(20)USING"#######.##";O;TAB(35)USING"##.####
";100*O/T;TAB(47)USING"#######.##";O/NY;
3158
PRINT TAB(65)USING"####.####
%";((O/NY)/Z)*100
3159
PRINT"
November";TAB(20)USING"#######.##";N;TAB(35)USING"##.####
";100*N/T;TAB(47)USING"#######.##";N/NY;
3160
PRINT TAB(65)USING"####.####
%";((N/NY)/Z)*100
3161
PRINT" December";TAB(20)USING"#######.##";D;TAB(35)USING"##.####
";100*D/T;TAB(47)USING"#######.##";D/NY;
3162
PRINT TAB(65)USING"####.####
%";((D/NY)/Z)*100
3163
PRINT
3164
PRINT" T o t a
l";TAB(19)USING"########.##";T;
3165
PRINT TAB(34)"100.0000";TAB(47)USING"#######.##";T/(NY*12)
3168
A$=INKEY$:IF A$="" THEN GOTO 3168
3169
C=0
3170
DIM C(12)
3220
LET C(1)=100*E/T
3221
LET C(2)=100*F/T
3222
LET C(3)=100*M/T
3223
LET C(4)=100*A/T
3224
LET C(5)=100*Y/T
3225
LET C(6)=100*J/T
3226
LET C(7)=100*U/T
3227
LET C(8)=100*G/T
3228
LET C(9)=100*S/T
3229
LET C(10)=100*O/T
3230
LET C(11)=100*N/T
3231
LET C(12)=100*D/T:PRINT
3232
MAX=C(1)
3233
FOR I = 2 TO 12
3234
IF C(I)>MAX THEN MAX=C(I)
3235
NEXT I
3236
CLS:PRINT:PRINT TAB(15)" S E A
S O N
A L I
T Y":PRINT
3237
'PRINT"MAX,C(I)= "MAX,C(1),C(2),C(3),C(12)
3238
IF MAX<50 THEN GOTO 3240 ELSE 3300
3240
PRINT TAB(16)"(";CHR$(223);" represents 1 % of total
";INT(T);" cases/units)":PRINT
3244
PRINT:PRINT TAB(5)"Month";TAB(15)"0 10 20 30
40 50 %"
3245
PRINT TAB(15)CHR$(179);"---------|---------|---------|---------|---------I
3250
FOR I=1 TO 12
3251
Z=C(I)
3252
IF Z<1 THEN GOTO 3253 ELSE 3255
3253
IF Z>0 THEN GOTO 3254 ELSE 3255
3254
PRINT TAB(5)I;TAB(15);CHR$(179);CHR$(249):GOTO 3280
3255
PRINT TAB(5)I;TAB(15);CHR$(179);
3260
FOR K=1 TO C(I)
3261
PRINT CHR$(223);
3270
NEXT K
3275
PRINT
3280
NEXT I:GOTO 3890
3300
PRINT TAB(16)"(";CHR$(223);" represents 2 % of total
";T;" cases/units)":PRINT
3344
PRINT:PRINT TAB(5)"Month";TAB(15)"0 20
40 60 80
100 %"
3345
PRINT TAB(15)CHR$(179);"---------|---------|---------|---------|---------I
3350
FOR I=1 TO 12
3351
Z=C(I)/2
3352
IF Z<1 THEN GOTO 3353 ELSE 3355
3353
IF Z>0 THEN GOTO 3354 ELSE 3355
3354
PRINT TAB(5)I;TAB(15);CHR$(179);CHR$(249):GOTO 3380
3355
PRINT TAB(5)I;TAB(15);CHR$(179);
3360
FOR K=1 TO C(I)/2
3361
PRINT CHR$(223);
3370
NEXT K
3375
PRINT
3380
NEXT I
3890
ERASE C:C=0:C(I)=0:C(1)=0:MAX=0:NY=0
3980
A$=INKEY$:IF A$="" THEN GOTO 3980
3981
GOTO 645
3982
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) o no(n)
";R$
3983
IF R$="y" OR R$="n" THEN GOTO 3984 ELSE 3990
3984
IF R$="y" THEN GOTO 3000 ELSE 3990
3990
RETURN
4000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.4-SELECTED TENDENCY INDICATORS
OF MORBIDITY AND NIDALITY"
4010
PRINT"=========================================================="
4020
PRINT TAB(6)"This subprogramme calculates tendency indicators of:"
4021
PRINT TAB(10)"1) animal disease morbidity"
4026
PRINT TAB(10)"2) animal disease nidality "
4030
INPUT" Enter choice number: ",S
4035
IF S=1 OR S=2 THEN GOTO 4050 ELSE PRINT IDE$:GOTO 4490
4050
PRINT:PRINT"INPUT DATA:"
4052
INPUT" disease(s) ";EN$
4058
INPUT" species, category(ies)
";ES$,CA$
4059
INPUT" place, period
";LU$,PE$
4060
PRINT
4070
IF S=1 THEN GOTO 4071 ELSE 4080
4071
PRINT" number of diseased
animals"
4072
INPUT"
at the beginning of the period
";DB
4073
PRINT" number of diseased
animals"
4074
INPUT"
existing in the period
";DP
4075
PRINT" average number of
diseased animals"
4076
INPUT"
existing in the period
";DA:PRINT
4077
INPUT" number of new diseased
animals in the period
";A:PRINT
4078
PRINT" number of extinct
diseased animals "
4079
INPUT"
(dead+slaughtered+removed+recovered) in the period ";B:GOTO 4090
4080
IF S=2 THEN GOTO 4082
4082
PRINT" number of foci
(outbreaks)"
4083
INPUT"
at the beginning of the period
";DB
4084
PRINT" number of foci
(outbreaks)"
4085
INPUT"
existing in the period
";DP
4086
PRINT" average number of foci
(outbreaks)"
4087
INPUT"
existing in the period
";DA:PRINT
4088
INPUT" number of new foci
(outbreaks) in the period
";A:PRINT
4089
INPUT" number of extinct foci
(outbreaks) in the period
";B
4090
IF B>(DB+A) THEN GOTO 4091 ELSE 4093
4091
PRINT"Error ! Number of extinct cases cannot be major than the sum of the
existing"
4092
PRINT"at the beginning and the new ones !":GOTO 4490
4093
IF DP>0 AND A<>(DP-DB) THEN GOTO 4094 ELSE 4096
4094
PRINT"Error ! Number of new cases cannot be different to the number of
existing"
4095
PRINT"in the period reduced by the number at the beginning !":GOTO
4490
4096
IF (DB+DP+DA+A+B)=0 THEN PRINT:PRINT IDM$:GOTO 4490 ELSE 4097
4097
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
4098
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
4099
IF I$="m" THEN GOTO 10
4100
IF I$="c" THEN GOTO 4000
4101
IF I$=CHR$(13) THEN GOTO 4102
4102
CLS:PRINT:PRINT:PRINT"RESULT:":PRINT
4110
PRINT TAB(6)"Disease(s): "EN$
4112
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
4120
PRINT"Place: "LU$;TAB(50)"Period: "PE$:PRINT
4131
IF A=0 THEN A=.0001:IF B=0 THEN B=.0001
4140
IF S=1 THEN Z$="morbidity"
4144
IF S=2 THEN Z$="nidality"
4146
IF S=1 THEN Y$="diseased animals"
4148
IF S=2 THEN Y$="outbreaks"
4220
IF A>0 AND B>0 THEN GOTO 4300
4230
IF A>0 AND D>0 THEN GOTO 4320 ELSE 4240
4240
IF A>0 AND B>0 AND D>0 THEN GOTO 4340 ELSE 4980
4300
IF S=1 THEN PRINT" Difference
between new and extinct diseased animals";TAB(62)" = "INT(A-B):PRINT
4305
IF S=1 THEN PRINT" Ratio of
new/extinct diseased animals ";TAB(62)" =";USING"###.####";A/B
4306
IF S=1 THEN PRINT" Ratio of
extinct/new diseased animals ";TAB(62)" =";USING"###.####";B/A
4308
IF S=2 THEN PRINT" Difference
between new and extinct outbreaks";TAB(62)" = "INT(A-B):PRINT
4312
IF S=2 THEN PRINT" Ratio of
new/extinct outbreaks";TAB(62)"
="USING"###.####";A/B
4313
IF S=2 THEN PRINT" Ratio of
extinct/new outbreaks";TAB(62)"
="USING"###.####";B/A
4314
PRINT:GOTO 4400
4315
'IF A>0 AND DB>0 THEN PRINT"
Ratio of new to initial number of "Y$;TAB(62)" =
";USING"###.####";A/DB
4316
'IF B>0 AND DB>0 THEN PRINT"
Ratio of extinct to initial number of "Y$;TAB(62)" =
";USING"###.####";B/DB
4317 'PRINT
4320
REM:PRINT" Index of
"Z$;" relative stability tendency";TAB(62)" =
";USING"###.####";(1-(A/(A+DB)))
4330
REM:PRINT" Index of
"Z$;" relative instability tendency";TAB(62)" =
";USING"###.####";A/(A+DB)
4331
'PRINT:GOTO 4240
4340
'PRINT" Index of "Z$;" decreasing
tendency";TAB(62)" = ";USING"###.####";(B-A)/DB
4350
'PRINT" Index of "Z$;"
increasing tendency";TAB(62)" =
";USING"###.####";(A-B)/DB
4400
IF A>0 AND DB>0 THEN PRINT"
Index of ";Z$;" stability tendency to initial number =";USING"###.####";1-(A/DB)
4402
IF A>0 AND DP>0 THEN PRINT"
Index of ";Z$;" stability tendency to existing number =";USING"###.####";1-(A/DP)
4404
IF A>0 AND DA>0 THEN PRINT"
Index of ";Z$;" stability tendency to average number =";USING"###.####";1-(A/DA):PRINT
4410
IF A>0 AND B>0 AND DB>0 THEN PRINT" Index of ";Z$;" reduction
tendency to initial number
=";USING"###.####";(B-A)/DB
4412
IF A>0 AND B>0 AND DP>0 THEN PRINT" Index of ";Z$;" reduction
tendency to existing number =";USING"###.####";(B-A)/DP
4414
IF A>0 AND B>0 AND DA>0 THEN PRINT" Index of ";Z$;" reduction
tendency to average number
=";USING"###.####";(B-A)/DA:PRINT
4420
IF A>0 AND B>0 AND DB>0 THEN PRINT" Index of ";Z$;" increasing
tendency to initial number
=";USING"###.####";(A-B)/DB
4422
IF A>0 AND B>0 AND DP>0 THEN PRINT" Index of ";Z$;" increasing
tendency to existing number
=";USING"###.####";(A-B)/DP
4424
IF A>0 AND B>0 AND DA>0 THEN PRINT" Index of ";Z$;" increasing
tendency to average number
=";USING"###.####";(A-B)/DA:PRINT
4490
A$=INKEY$:IF A$="" THEN GOTO 4490
4980
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
4982
IF R$="y" OR R$="n" THEN GOTO 4983 ELSE 4990
4983
IF R$="y" THEN GOTO 4000 ELSE 4990
4990
RETURN
5000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.5-RELATIONS BETWEEN NEW CASES
AND SPACE/TIME/DISEASED/FOCI"
5010
PRINT"============================================================"
5020
PRINT TAB(6)"This subprogramme calculates following indicators of diseases
spreading:"
5021
PRINT TAB(10)"1) ratios of disease new cases/space units"
5022
PRINT TAB(10)"2) ratios of disease new cases/time units (disease
frequency)"
5024
PRINT TAB(10)"3) ratios of disease new cases/total diseased animals"
5026
PRINT TAB(10)"4) ratios of new/total foci"
5030
INPUT" Enter choice number:
",S
5040
IF S=1 OR S=2 OR S=3 OR S=4 THEN GOTO 5050 ELSE PRINT IDE$:GOTO 5980
5050
PRINT:PRINT"INPUT DATA:"
5051
INPUT" disease(s) ";DI$
5052
INPUT" species, category(ies)
";ES$,CA$
5053
INPUT" place, period
";LU$,TI$:PRINT
5054
IF S=1 OR S=2 OR S=3 THEN INPUT"
definition of new cases ";NC$:PRINT
5055
IF S=4 THEN GOTO 5056 ELSE 5060
5056
INPUT" definition of new foci
";NC$:PRINT
5057
INPUT" number of new foci ";F
5058
IF F<=0 THEN PRINT IDM$:GOTO 5980 ELSE 5059
5059
GOTO 5068
5060
INPUT" number of disease new
cases
";DN
5061
IF DN<=0 THEN PRINT IDM$:GOTO 5980 ELSE 5065
5065
IF S=1 THEN GOTO 5070
5066
IF S=2 THEN GOTO 5080
5067
IF S=3 THEN GOTO 5090
5068
IF S=4 THEN GOTO 5150
5070
INPUT" space measure unit (up to
5 characters !) ";SMU$
5072
INPUT" number of space measure
units of the territory ";SUT
5073
IF SUT=0 THEN PRINT IDM$:GOTO 5980 ELSE 5180
5080
INPUT" time measure unit (up to
5 characters !) ";TMU$
5082
INPUT" number of time measure
units of the period
";TUP
5083
IF TUP=0 THEN PRINT IDM$:GOTO 5980 ELSE 5180
5090
PRINT" total number of diseased
animals"
5091
INPUT" at the
beginning of the period ";DAO
5092
PRINT" total number of diseased
animals existing"
5094
INPUT"
in the period ";DAP
5096
PRINT" total average number of
diseased animals
5098
INPUT"
existing in the period
";DAA:GOTO 5159
5150
PRINT" total number of foci
existing"
5151
INPUT" at the
beginning of the period ";FO
5152
INPUT" total number of foci
existing in the period
";FP
5156
PRINT" total average number of
foci
5158
INPUT"
existing in the period
";FA
5159
IF (DAO+DAP+DAA+FO+FP+FA)=0 THEN PRINT IDM$:GOTO 5980
5180
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
5181
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
5182
IF I$="m" THEN GOTO 10
5183
IF I$="c" THEN GOTO 5000
5185
IF I$=CHR$(13) THEN GOTO 5200
5200
CLS:PRINT:PRINT"RESULT:":PRINT
5204
PRINT TAB(6)"Disease(es): "DI$
5205
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
5206
PRINT"Definition of new cases: "NC$
5207
PRINT"Place: "LU$;TAB(50)"Period: "TI$:PRINT
5210
IF S=1 THEN GOTO 5220 ELSE 5211
5211
IF S=2 THEN GOTO 5250 ELSE 5212
5212
IF S=3 THEN GOTO 5270 ELSE 5214
5214
IF S=4 THEN GOTO 5300 ELSE 5980
5220
PRINT:PRINT
5221
PRINT" Ratio of disease new cases
per one space unit = "USING"####.####";DN/SUT;
5222
PRINT" / ";USING"\ \";SMU$
5223
PRINT:PRINT" Ratio of territory
per one new case of disease =
"USING"####.####";SUT/DN;
5224
PRINT" ";USING"\ \";SMU$;
5225
PRINT" : 1":PRINT:GOTO 5980
5250
PRINT:PRINT
5251
PRINT" Ratio of disease new cases
per one time unit = "USING"####.####";DN/TUP;
5252
PRINT" / ";USING"\
\";TMU$
5253
PRINT:PRINT" Ratio of time period
per one new case of disease = "USING"####.####";TUP/DN;
5254
PRINT" ";USING"\ \";TMU$;
5255
PRINT" : 1":PRINT:GOTO
5980:'chybi 's' - byla velka mezera !
5270
PRINT
5271
IF DN>0 AND DAO>0 THEN GOTO 5272 ELSE 5276
5272
PRINT" Ratio of disease new
cases per one diseased animal"
5273
PRINT" existing at
the beginning of the period =
"USING"####.####";DN/DAO
5274
PRINT" Ratio of diseased animals
existing at the beginning"
5275
PRINT" of the period
per one new case of disease =
"USING"####.####";DAO/DN
5276
IF DN>0 AND DAP>0 THEN GOTO 5277 ELSE 5281
5277
PRINT:PRINT" Ratio of disease
new cases per one diseased"
5278
PRINT"
animals existing in the period
= "USING"####.####";DN/DAP
5279
PRINT" Ratio of diseased animals
existing in the period"
5280
PRINT"
per one new case of disease =
"USING"####.####";DAP/DN
5281
IF DN>0 AND DAA>0 THEN GOTO 5282 ELSE 5980
5282
PRINT:PRINT" Ratio of disease
new cases per one diseased "
5283
PRINT" animal of
average number in the period =
"USING"####.####";DN/DAA
5284
PRINT" Ratio of diseased
animals' average number existing"
5285
PRINT" in the period
per one new case of disease =
"USING"####.####";DAA/DN
5286
GOTO 5980
5300
IF F>0 AND FO>0 THEN GOTO 5302 ELSE 5307
5302
PRINT" Ratio of new foci per one
focus"
5303
PRINT" existing at the beginning of
the period =
"USING"####.####";F/FO
5304
PRINT" Ratio of foci existing at
the beginning"
5305
PRINT" of the
period per one new focus =
"USING"####.####";FO/F
5307
IF F>0 AND FP>0 THEN GOTO 5308 ELSE 5312
5308
PRINT:PRINT" Ratio of new foci
per one focus"
5309
PRINT"
existing in the period =
"USING"####.####";F/FP
5310
PRINT" Ratio of foci existing in
the period"
5311
PRINT" per one new focus = "USING"####.####";FP/F
5312
IF F>0 AND FA>0 THEN GOTO 5314 ELSE 5980
5314
PRINT:PRINT" Ratio of new foci
per one focus"
5316
PRINT" of
average existing in the period =
"USING"####.####";F/FA
5317
PRINT" Ratio of average number
of foci existing"
5318
PRINT" in the
period per one new focus =
"USING"####.####";FA/F
5980
A$=INKEY$:IF A$="" THEN GOTO 5980
5981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
5982
IF R$="y" OR R$="n" THEN GOTO 5983 ELSE 5990
5983
IF R$="y" THEN GOTO 5000 ELSE 5990
5990
RETURN
6000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.6-POPULATION 'VERTICAL
MOVEMENT' AND CHRONIC DISEASE EPIZOOTIC PROCESS"
6002
PRINT"========================================================================"
6010
PRINT TAB(3)"This subprogramme calculates:"
6022
PRINT TAB(6)"1) combination of existing, new and extinct diseased
animals"
6025
PRINT TAB(6)"2) diseased animals' replacement rates"
6026
PRINT TAB(6)"3) estimate of remaining diseased animals within one
generation cycle"
6028
PRINT TAB(6)"4) estimate of remaining diseased animals"
6029
PRINT" within one
regular continuing production/breeding cycle"
6031
INPUT" Enter choice number:
",S
6040
IF S=1 OR S=2 OR S=3 OR S=4 THEN GOTO 6062 ELSE PRINT IDE$:GOTO 6980
6062
PRINT"INPUT DATA"
6063
INPUT" disease(s) ";DI$
6064
INPUT" species, category(ies)
";SP$,CA$
6065
INPUT" place, period
";PL$,TI$
6068
IF S=1 THEN GOTO 6070 ELSE 6080
6070
PRINT"Question about indicator to be calculated l e a v e
w i t h o u t a n y"
6071
PRINT" a n s w e r, however the
other three data must be given !":PRINT
6072
INPUT" number of diseased
animals existing at the beginning ";AO
6073
PRINT" number of new diseased
animals"
6074
INPUT" (newly
diseased+new born diseased+introduced)
";AN
6075
PRINT" number of extinct
diseased animals"
6076
INPUT"
(dead+slaughtered+removed+recovered) ";AE
6077
INPUT" number of diseased
animals existing at the end of the period ";AF
6078
IF (AO+AN+AE+AF)=0 THEN PRINT IDM$:GOTO 6980 ELSE 6100
6080
IF S=2 THEN GOTO 6081 ELSE 6088
6081
PRINT" number of new diseased
animals"
6082
INPUT" (newly
diseased+new born diseased+introduced)
";AB
IF AB=0 THEN PRINT IDE$:GOTO 6980 ELSE
6083
6083
PRINT" total number of diseased
animals existing"
6084
INPUT"
at the beginning of the period ";AO2
6085
INPUT" total number of diseased
animals existing in the period
";AP
6086
INPUT" average number of
diseased animals existing in the period
";AA:PRINT
6087
INPUT" duration (in days) of one
population reproduction cycle ";RC:GOTO 6100
6088
IF S=3 THEN GOTO 6089 ELSE 6094
6089
PRINT:INPUT" total number of
diseased animals at the beginning of the period ";AO3
IF AO3=0 THEN PRINT IDE$:GOTO 6980
6090
PRINT" duration (in days) of one
regular generation"
6091
INPUT"
(replacement/reproduction) cycle
";RC
6092
PRINT" duration (in days) between
the initial and evaluated "
6093
INPUT" days w i t h i n
the generation cycle
";PX:GOTO 6100
6094
IF S=4 THEN GOTO 6095
6095
PRINT:INPUT" total number of
diseased animals at the beginning of the period
";AOP
6096
PRINT" duration (in days) of one
regular continuing "
6097
INPUT"
production/breeding replacement cycle
";PPC
6098
PRINT" duration (in days) between the initial and
evaluated days"
6099
INPUT" w i t h i
n the production/breeding cycle ";PPX
IF AOP=0 OR PPC=0 OR PPX=0 OR PPX=>PPC
THEN PRINT IDE$:GOTO 6980
6100
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
6101
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
6102
IF I$="m" THEN GOTO 10
6103
IF I$="c" THEN GOTO 6000
6104
IF I$=CHR$(13) THEN GOTO 6105
6105
CLS:PRINT" POPULATION 'VERTICAL
MOVEMENT' AND CHRONIC DISEASE EPIZOOTIC PROCESS":PRINT
6106
PRINT TAB(6)"Disease(s): "DI$
6107
PRINT"Species: "SP$;TAB(40)"Category(ies): "CA$
6108
PRINT"Place: "PL$;TAB(50)"Period: "TI$:PRINT
6109
PRINT
6110
IF S=1 THEN GOTO 6133 ELSE 6150
6133
IF AO=0 THEN GOTO 6134 ELSE 6136
6134
PRINT" Number of diseased
animals at the beginning of the period = "INT((AF-AN+AE)):PRINT
6135
PRINT" Number of diseased
animals existing in the period =
"INT(((AF-AN+AE)+AN)):GOTO 6145
6136
IF AN=0 THEN GOTO 6137 ELSE 6139
6137
PRINT" Number of new diseased
animals in the period =
"INT((AF-AO+AE)):PRINT
6138
PRINT" Number of diseased
animals existing in the period =
"INT(((AF-AN+AE)+AN)):PRINT:GOTO 6145
6139 IF
AE=0 THEN GOTO 6140 ELSE 6142
6140
PRINT" Number of extinct
diseased animals in the period =
"INT((AO-AF+AN)):PRINT
6141
PRINT" Number of diseased
animals existing in the period =
"INT((AO+AN)):PRINT:GOTO 6145
6142
IF AF=0 THEN PRINT" Number of
diseased animals at the end of the period
= "INT((AO+AN-AE)):PRINT
6143
PRINT" Number of diseased
animals existing in the period =
"INT(AO+AN):PRINT
6145
GOTO 6980
6150
IF S=2 THEN GOTO 6160 ELSE 6200
6160
IF AB>0 AND AO2>0 THEN PRINT"
Diseased animals' replacement rate to initial number =
";USING"#.####";(AB+AI)/AO2
6162
IF AB>0 AND AP>0 THEN PRINT"
Diseased animals' replacement rate to existing number =
";USING"#.####";(AB+AI)/AP
6164
IF AB>0 AND AA>0 THEN PRINT"
Diseased animals' replacement rate to average number =
";USING"#.####";(AB+AI)/AA
6170
IF RC>0 THEN PRINT:PRINT"
Ratio year/population reproduction cycle = ";USING"##.####";365/RC
6171
IF RC>0 THEN PRINT" Number of
years of population reproduction cycle
=
";USING"##.####";RC/365
6172
GOTO 6980
6200
IF S=3 AND AO3>0 THEN GOTO 6210 ELSE 6250
6210
PRINT" Estimated number of
diseased animals existing at the beginning "
6211
PRINT:PRINT" and still remaining */ at the evaluated
day =
"INT((AO3*(1-PX/RC))+.5):PRINT
6212
PRINT:PRINT:PRINT" */ Note: If
not eliminated prematurely and in the absence of migration."
6213
GOTO 6980
6250
IF S=4 AND AOP>0 THEN GOTO 6251 ELSE 6980
6251
PRINT" Estimated number of
diseased animals existing at the beginning "
6252
PRINT:PRINT" and
still remaining */ at the evaluated day
= "INT((AOP*(1-PPX/PPC))+.5):PRINT
6260
PRINT:PRINT:PRINT" */ Note: If
not eliminated prematurely and in absence of migration."
6980
A$=INKEY$:IF A$="" THEN GOTO 6980
6981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
6982
IF R$="y" OR R$="n" THEN GOTO 6983 ELSE 6990
6983
IF R$="y" THEN GOTO 6000 ELSE 6990
6990
RETURN
7000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.7-NUMBER OF DISEASED ANIMALS
ACCORDING TO SURVIVAL RATES"
7020
PRINT"=========================================================="
7050
PRINT"INPUT DATA:"
7065
INPUT" disease(s) ";DI$
7072
INPUT" species, category(ies)
";ES$,CA$
7073
INPUT" place, period
";LU$,PE$
7080
INPUT" total number of diseased
animals at the beginning ";A
7081
IF A=0 THEN PRINT IDM$:GOTO 7980 ELSE 7084
7084
INPUT" number (2 up to 11 !) of
age subperiods ";N
7085
IF N<2 OR N>11 THEN PRINT IDE$:GOTO 7980
7089
PRINT"List data: "
7090
PRINT"names (up to 10 characters) of subperiods, coefficients of diseased
animals "
7091
PRINT"survival probability (in form of rates, i.e. numbers between >0
and 1 !) :"
7094
FOR I=1 TO N
7095
PRINT TAB(15)I;": ";
7096
INPUT NA$(I),X(I)
7097
IF NA$(I)="" THEN PRINT IDM$:GOTO 7980 ELSE 7098
7098
IF X(I)>1 THEN PRINT"Error ! Coefficient cannot be major than 1
!":GOTO 7980 ELSE 7099
7099
NEXT I
7100
R=1
7101
FOR I=1 TO N
7102
R=R*X(I)
7103
NEXT I
7104
IF R=0 THEN PRINT IDM$:GOTO 7980 ELSE 7105
7105
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
7106
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
7107
IF I$="m" THEN GOTO 10
7108
IF I$="c" THEN GOTO 7000
7109
IF I$=CHR$(13) THEN GOTO 7200
7200
CLS:PRINT" ESTIMATION OF DISEASED
ANIMALS' NUMBER ACCORDING TO SURVIVAL RATES":PRINT
7201
PRINT TAB(6)"Disease(s): "DI$
7202
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
7206
PRINT"Place: "LU$;TAB(50)"Period: "PE$
7207
PRINT TAB(20)"Initial number: "INT(A):PRINT
7250
PRINT
TAB(5)"Age";TAB(17)"Survival";TAB(29)"Mortality";TAB(43)"Cumulative";TAB(60)"Surviving"
7251
PRINT
TAB(5)"Subperiod";TAB(17)"Rate";TAB(29)"Rate";TAB(43)"Survival";TAB(60)"Dis.Animals"
7252
PRINT TAB(43)"Rate";TAB(60)"at the End":PRINT
7259
S=1:P=1
7260
FOR I=1 TO N
7261
S=S*X(I)
7262
PRINT I;TAB(6);USING"\
\";NA$(I);
7263
PRINT TAB(18)USING"#.####";X(I);
7264
PRINT TAB(30)USING"#.####";(1-X(I));TAB(44)S;
7265
PRINT TAB(60)INT((A*S)+.5)
7266
'FOR Z=N TO 1:'P=P*X(I)
7267
'PRINT TAB(70)USING"#.####";P
7268
'NEXT Z
7269
NEXT I
7300
A$=INKEY$:IF A$="" THEN GOTO 7300
7310
CLS:PRINT:PRINT TAB(6)"ESTIMATION OF NUMBERS OF DISEASED ANIMALS ACCORDING
TO SURVIVAL RATES"
7312
PRINT TAB(10)"(";CHR$(223);" represents 2 % of initial "INT(A);" diseased
animals)":PRINT
7313
PRINT:PRINT TAB(6)"End of";TAB(25)"0 20 40 60 80
100 %"
7314
PRINT
TAB(6)"Subperiod";TAB(25)CHR$(179);"---------|---------|---------|---------|---------I"
7315
PRINT TAB(17)"(Start)";TAB(25)CHR$(179);
7316
FOR P=1 TO 50:PRINT CHR$(223);
7317
NEXT P
7320
S=1
7321
FOR I=1 TO N
7322
S=S*X(I)
7323
Z=S*50
7324
IF Z<1 THEN GOTO 7325 ELSE 7329
7325
IF Z>0 THEN GOTO 7326 ELSE 7329
7326
PRINT TAB(6);USING"\
\";NA$(I);
7327
PRINT TAB(25);CHR$(179);CHR$(249):GOTO 7336
7329
PRINT TAB(6);USING"\
\";NA$(I);
7330
PRINT TAB(25);CHR$(179);
7331
FOR K=1 TO S*50
7332
PRINT CHR$(223);
7334
NEXT K
7336
NEXT I
7337
PRINT:PRINT
7400
PRINT:PRINT" From the initial
number of";INT(A);"diseased animals after";INT(N);" age
subperiods"
7420
PRINT TAB(6)" it can be estimated
about"
7430
PRINT TAB(16)INT((R*A)+.5);"surviving diseased animals (if not removed
prematurely)."
7980
A$=INKEY$:IF A$="" THEN GOTO 7980
7985
CLS:NA$="":X=0:INPUT"Do you want to repeat this subprogramme,
yes(y) or no(n) ";R$
7982
IF R$="y" OR R$="n" THEN GOTO 7986 ELSE 7990
7986
IF R$="y" THEN GOTO 7000 ELSE 7990
7990
RETURN
8000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.8-SELECTED INDICATORS OF
DISEASE TERRITORIAL PROPAGATION"
8010
PRINT"=========================================================="
8050
PRINT TAB(6)"This subprogramme calculates:"
8052
PRINT TAB(10)"1) combination of velocity, distance and time"
8054
PRINT TAB(10)"2) relations of newly to total affected territory"
8058
INPUT" Enter choice number: ",S
8059
IF S=1 OR S=2 THEN GOTO 8100 ELSE PRINT IDE$:GOTO 8980
8100
PRINT"INPUT DATA:"
8121
INPUT" disease(s) ";EN$
8122
INPUT" species ";ES$
8123
INPUT" place, period
";LU$,PE$
8126
INPUT" territorial surface
measure units (up to 10 characters !)
";US$
8127
IF S=1 THEN GOTO 8128 ELSE 8180
8128
INPUT" length measure units
";UD$
8129
INPUT" time measure units ";UT$
8130
PRINT"Do not answer (skip) the question about the indicator to be
calculated !"
8131
PRINT" Other
two questions must be answered !"
8135
PRINT:INPUT" velocity of disease
propagation per one time measure unit
";V
8140
INPUT" distance of disease
propagation in length measure units
";L
8150
INPUT" time of disease
propagation in time measure units
";T
8155
IF (V+L+T)=0 THEN GOTO 8156 ELSE 8157
8156
PRINT:PRINT IDM$:GOTO 8980
8157
PRINT"Additional input data:"
8160
INPUT" average density of
animals per one surface unit
";D
8165
PRINT" estimated excision angle
grade (1 - 360)"
8166
INPUT" of
theoretical circular propagation
";E:GOTO 8190
8180
PRINT:INPUT" new affected
territory in surface units
";SNT
8182
PRINT:PRINT" affected territory
at the beginning of the period"
8183
INPUT" in
surface units ";STO
8184
PRINT" affected territory
existing in the period"
8185
INPUT" in
surface units ";STP
8186
PRINT" affected territory
average existing
8187
INPUT" in
the period in surface units
";STA
8188
IF SNT=0 OR (STO+STP+STA)=0 THEN GOTO 8156 ELSE 8190
8190
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
8191
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
8192
IF I$="m" THEN GOTO 10
8193
IF I$="c" THEN GOTO 8000
8194
IF I$=CHR$(13) THEN GOTO 8200
8200
CLS:PRINT" SELECTED INDICATORS
OF DISEASE TERRITORIAL PROPAGATION":PRINT
8201
PRINT TAB(6)"Disease(s): "EN$
8202
IF S=1 THEN PRINT"Species: "ES$
8203
IF S=2 THEN PRINT"Species: "ES$;TAB(40)"Surface units: "US$
8204
PRINT"Place: "LU$;TAB(50)"Period: "PE$
8205
REM:IF S=1 AND T>0 THEN PRINT TAB(6)"Time measure units: "UT$
8206
IF S=1 THEN GOTO 8207 ELSE 8400
8207
PRINT:PRINT
8209
IF L>0 AND T>0 AND V=0 THEN GOTO 8320 ELSE 8210
8210
IF V>0 AND T>0 AND L=0 THEN GOTO 8330 ELSE 8220
8220
IF L>0 AND V>0 AND T=0 THEN GOTO 8340 ELSE 8230
8230
IF L>0 OR T>0 AND V>0 THEN GOTO 8345 ELSE 8240
8240
IF D>0 AND L>0 GOTO 8345 ELSE 8980
8320
PRINT" Estimated velocity of
disease propagation"
8321
PRINT"
per one time measure unit =
"USING"####.##";L/T;
8322
PRINT " "UD$:GOTO 8210
8330
PRINT:PRINT" Estimated distance of
disease propagation"
8331
PRINT" during ";INT(T+.5) UT$;" =
"INT(V*T+.5);
8332
PRINT" "UD$:GOTO 8220
8340
PRINT:PRINT" Estimated time needed
for disease propagation "
8341
PRINT TAB(23)" up to the distance
of";INT(L+.5) UD$;" = "INT(L/V+.5) UT$:GOTO 8230
8345
W=E/360
8346
IF L=0 THEN L=V*T
8350
IF L>0 AND E>0 THEN PRINT:PRINT"
Estimated affected zone" ELSE 8980
8351
IF W=1 THEN GOTO 8356 ELSE 8357
8356
IF L>0 THEN PRINT TAB(5)"
(if disease propagation is circular)
= ";INT((L*L)*3.1459); US$:GOTO 8360
8357
IF L>0 AND W>0 THEN PRINT TAB(5)"
(if the propagation follows circular excision) = ";INT((L*L)*3.1459*W); US$
8360
IF D>0 AND L>0 AND W>0 THEN PRINT:PRINT" Estimated number of animals in affected zone
= ";INT(D*(L*L)*3.14159*W)
8370
PRINT:GOTO 8980
8400
IF SNT>0 AND STO>0 THEN GOTO 8401 ELSE 8410
8401
PRINT:PRINT" Ratio of new
affected territory per one surface unit"
8402
PRINT" of
initially affected territory
="USING"####.####";SNT/STO
8405
PRINT:PRINT" Ratio of initially
affected territory per "
8406
PRINT" one surface
unit of new affected territory
="USING"####.####";STO/SNT
8410
IF SNT>0 AND STP>0 THEN GOTO 8411 ELSE 8420
8411
PRINT:PRINT" Ratio of new
affected territory per one surface unit"
8412
PRINT" of affected
territory existing in the period
="USING"####.####";SNT/STP
8415
PRINT:PRINT" Ratio of affected
territory existing in the period"
8416
PRINT" per one surface
unit of new affected territory
="USING"####.####";STP/SNT
8420
IF SNT>0 AND STA>0 THEN GOTO 8421 ELSE 8980
8421
PRINT:PRINT" Ratio of new
affected territory per one surface unit"
8422
PRINT" of affected
territory average in the period
="USING"####.####";SNT/STA
8425
PRINT:PRINT" Ratio of affected
territory average in the period"
8426
PRINT" per one surface
unit of new affected territory
="USING"####.####";STA/SNT
8427
IF S=1 THEN GOTO 8428 ELSE 8980
8428
PRINT
8980
A$=INKEY$:IF A$="" THEN GOTO 8980
8981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
8982
IF R$="y" OR R$="n" THEN GOTO 8983 ELSE 8990
8983
IF R$="y" THEN GOTO 8000 ELSE 8990
8990
RETURN
9000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.9-DEVELOPMENT OF DISEASE
FREQUENCY WITH CYCLIC TENDENCY"
9001
PRINT"========================================================="
9002
PRINT"(sinusoid curve formula adapted by the author)"
9020 REM:Y=A*SIN(((B*(X-C))/D)+A+MIN
9021
REM:Y=number of diseased animals;X=time(in days, weeks, months or years)
9050
PRINT"INPUT DATA:"
9053
INPUT" disease(s) ";EN$
9054
INPUT" species, category(ies)
";ES$,CA$
9056
INPUT" place, period
";LU$,PE$
9057
INPUT" time measure unit (up to
10 characters) ";UT$:PRINT
9058
PRINT" supposed amplitude -
difference between maximal and minimal"
9059
INPUT"
numbers of diseased animals
";A
9060
IF A=0 THEN PRINT IDM$:GOTO 9980
9062
LET A=A/2
9063
PRINT:INPUT" minimal number of
diseased animals (curve bottom)
";MIN:PRINT
9064
INPUT" duration between two
peaks of the curve (in time units)
";V
9065
PRINT:PRINT" initial value of
time (in time measure units) when"
9066
PRINT" the number of diseased
animals is in the curve middle"
9067
INPUT" i.e. in the middle
between maximal and minimal numbers
";C
9068
PRINT:INPUT" total period
duration in time measure units (up to 18 !)
";P
9069
IF A=0 OR V=0 OR P=0 THEN PRINT IDM$:GOTO 9980 ELSE 9070
9070
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
9071
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
9072
IF I$="m" THEN GOTO 10
9073
IF I$="c" THEN GOTO 9000
9074
IF I$=CHR$(13) THEN GOTO 9076
9076
D=57.2958:REM:change of radians in grades by dividing with coef.'D'
9077
LET B=360/V:S=1:GOTO 9100
9080
PRINT:PRINT" intervals in time
units for calculation"
9081
INPUT" of
supposed number of diseased animals ";S
9082
IF S=0 THEN S=1
9083
IF P/S=>18 THEN GOTO 9084 ELSE 9100
9084
PRINT:PRINT"Please, reconsider this last imput ! It is too small - a part
of displayed"
9085
PRINT" results will be
out of one screen !"
9086
INPUT" Do you want
to correct it, yes(y) or not(n) ";U$
9087
IF U$="y" OR U$="n" THEN GOTO 9088 ELSE 9100
9088
IF U$="n" THEN GOTO 9100 ELSE 9080
9100
CLS:PRINT" DEVELOPMENT OF D I S E A
S E FREQUENCY WITH C Y C L I C
T E N D E N C Y"
9111
PRINT TAB(5)"Disease(s): "EN$
9112
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
9113
PRINT"Place: "LU$;TAB(50)"Period: "PE$:PRINT
9115
PRINT TAB(18)"Time-end of";TAB(40)"Estimated number"
9116
PRINT TAB(18)UT$;TAB(40)"of diseased animals":PRINT
9120
FOR I=0 TO P STEP S
9130
PRINT TAB(20)INT(I);TAB(45)INT(A*SIN(((I-C)*B)/D)+A+MIN)
9140
NEXT I
9190
PRINT
9200
A$=INKEY$:IF A$="" THEN GOTO 9200
9205
CLS:PRINT" DEVELOPMENT OF D I S E A
S E FREQUENCY WITH C Y C L I C
T E N D E N C Y"
9210
PRINT TAB(7)"(";CHR$(223);" represents 2 % of maximum of
"INT(MIN+A*2);"diseased animals)"
9211
PRINT TAB(2)"Time-end of"
9213
PRINT TAB(2)USING"\
\";UT$;
9214
PRINT TAB(15)"0 20 40 60 80
100 %"
9215
PRINT TAB(15)CHR$(179)"---------|---------|---------|---------|---------I"
9216
PRINT TAB(15);CHR$(179);
9220
FOR I=0 TO P STEP S
9225
PRINT TAB(1)INT(I);TAB(15);CHR$(179);
9230
FOR K=0 TO (((A*SIN(((I-C)*B)/D)+A+MIN)/(2*A+MIN)*100)/2)-2
9240
PRINT CHR$(223);
9245
NEXT K
9260
NEXT I
9980
A$=INKEY$:IF A$="" THEN GOTO 9980
9981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
9982
IF R$="y" OR R$="n" THEN GOTO 9983 ELSE 9990
9983
IF R$="y" THEN GOTO 9000 ELSE 9990
9990
RETURN
10000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.10-DEVELOPMENT OF DISEASE
FREQUENCY WITH ASCENDING/DESCENDING TENDENCY"
10002
PRINT"========================================================================"
10003
PRINT"(part of sinusoid curve formula adapted by the author)"
10200
PRINT"INPUT DATA:"
10211
INPUT" disease(s) ";EN$
10212
INPUT" species, category(ies)
";ES$,CA$
10213
INPUT" place, period
";LU$,PE$
10216
INPUT" time measure units (up to
10 characters) ";UT$:PRINT
10217
PRINT" supposed amplitude -
difference between maximal and minimal"
10218
INPUT" numbers of
diseased animals ";A
10220
IF A<=0 THEN PRINT IDM$:GOTO 10980 ELSE 10221
10221
LET A=A/2
10230
PRINT:INPUT" duration between
max/min numbers in time units (up to 18 !)
";MM
10231
PRINT:INPUT" evaluated period
duration in time measure units (up to 18 !)
";K
10232
IF MM=0 OR MM>18 OR K=0 OR K>18 THEN PRINT IDE$:GOTO 10980 ELSE 10233
10233
PRINT:PRINT" Is the curve of
diseased animals numbers ascending (a)"
10234
INPUT" or descending (d) ";C$
10236
IF C$="a" THEN GOTO 10240 ELSE 10238
10238
IF C$="d" THEN GOTO 10241 ELSE 10233
10240
PRINT:INPUT" minimal number of
diseased animals at the b e g i n n i n
g ";MIN:GOTO 10242
10241
PRINT:INPUT" minimal number of
diseased animals at the period e n
d ";F
10242
CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
10243
PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
10244
IF I$="m" THEN GOTO 10
10245
IF I$="c" THEN GOTO 10000
10246
IF I$=CHR$(13) THEN GOTO 10250
10250
D=57.2958:REM:conversion coefficient of radians into grades
10260
LET V=2*MM
10270
B=360/V:S=1:GOTO 10400
10278
PRINT:PRINT" intervals in time
units for calculation"
10279
INPUT" of
supposed number of diseased animals ";S
10280
IF S=0 THEN S=1
10281
IF K/S=>18 THEN GOTO 10282 ELSE 10400
10282
PRINT:PRINT" Please, reconsider
this last imput ! It is too small - a part of displayed"
10283
PRINT" results will be out
of one screen!"
10284
INPUT" Do you want to
correct it, yes(y) or not(n) ";U$
10285
IF U$="y" THEN GOTO 10279
10286
IF U$="n" THEN GOTO 10400
10400
IF C$="a" THEN GOTO 10500 ELSE 10600
10500
CLS:PRINT TAB(5)" A N I M A L D I
S E A S E O C C U R R E N C E DEVELOPMENT"
10511
PRINT TAB(10)"Disease(s): "EN$
10513
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
10514
PRINT"Place: "LU$;TAB(50)"Period: "PE$:PRINT
10515
PRINT TAB(18)"Time-end of";TAB(40)"Estimated number"
10516
PRINT TAB(18)UT$;TAB(40)"of diseased animals":PRINT
10517
PRINT TAB(21)"(start)";TAB(43)INT(MIN)
10520
FOR I=S TO MM STEP S
10530
PRINT TAB(20)INT(I);TAB(43)INT((A*SIN((B*I-90)/D))+A+MIN)
10540
NEXT I
10550
FOR I=MM+S TO K STEP S
10560
PRINT TAB(20)INT(I);TAB(43)INT(2*A+MIN)
10570
NEXT I:GOTO 10700
10600
'PRINT:INPUT" minimal number of
diseased animals (at the end)
";F
10610
REM:curve base - for descending
10620
PRINT
10630
CLS::PRINT TAB(5)" A N I M A L D I
S E A S E O C C U R R E N C E DEVELOPMENT"
10635
PRINT TAB(10)"Disease(s): "EN$
10636
PRINT"Species: "ES$;TAB(40)"Category(ies): "CA$
10638
PRINT"Place: "LU$;TAB(40)"Period: "PE$
10640
PRINT
10645
PRINT TAB(18)"Time-end of";TAB(40)"Estimated number"
10646
PRINT TAB(18) UT$;TAB(40)"of diseased animals":PRINT
10647
PRINT TAB(21)"(start)",TAB(43)INT(2*A+F)
10650
REM:FOR I=1 TO MM STEP S
10655
REM:PRINT TAB(20)INT(I);TAB(43)INT(A*SIN(((I-1)*B+90)/D)+A+F+1
10656
REM:NEXT I
10660
REM:FOR I=MM+S TO K STEP S
10661
REM:PRINT TAB(20)INT(I);TAB(43)INT(F)
10662
REM:NEXT I
10670
FOR I=1 TO MM STEP S :REM:descending
10671
PRINT TAB(20)INT(I);TAB(43)INT((((A*SIN((I*B+90)/D)+A+F)))+.5)
10672
NEXT I
10673
FOR I=MM+S TO K STEP S
10674
PRINT TAB(20)INT(I);
10675 PRINT
TAB(43)INT(F)
10676
NEXT I
10700
A$=INKEY$:IF A$="" THEN GOTO 10700
10705
CLS:PRINT TAB(5)" A N I M A L D I
S E A S E O C C U R R E N C E DEVELOPMENT"
10710
IF C$="d" THEN PRINT TAB(8)"(";CHR$(223);" represents
2 % of maximum
of"INT(F+A*2);"diseased animals)"
10711
IF C$="a" THEN PRINT TAB(8)"(";CHR$(223);" represents
2 % of maximum
of"INT(MIN+A*2);"diseased animals)"
10712
PRINT"Time-end of"
10713
PRINT USING"\ \"; UT$;
10714
PRINT TAB(15)"0 20 40 60 80
100 %"
10715
PRINT
TAB(15)CHR$(179)"---------|---------|---------|---------|---------I"
10717
IF C$="a" THEN GOTO 10720 ELSE
10750
10720
PRINT TAB(2)"(start)";TAB(15);CHR$(179);
10721
FOR Z=0 TO ((MIN/(2*A+MIN)*100)/2)-1 STEP S
10722
PRINT CHR$(223);
10723
NEXT Z
10725
FOR I=1 TO MM STEP S
10726
PRINT TAB(1)INT(I);TAB(15);CHR$(179);
10727
FOR Z=0 TO (((A*SIN((I*B-90)/D)+A+MIN))/(2*A+MIN)*100/2)-1
10728
PRINT CHR$(223);
10729
NEXT Z
10730
NEXT I
10732
FOR I=MM+S TO K STEP S
10734
PRINT TAB(1)INT(I);TAB(15);CHR$(179);
10736
FOR Z=0 TO (((2*A+MIN)/(2*A+MIN))*100)/2-1
10737
PRINT CHR$(223);
10738
NEXT Z
10740
NEXT I
10748
GOTO 10980
10750
PRINT TAB(6)"(start)";TAB(15);CHR$(179);
10751
FOR Z=0 TO (50-1) STEP 1
10752
PRINT CHR$(223);
10753
NEXT Z
10754
FOR I=1 TO MM STEP S :REM:descending
10755
PRINT TAB(1)INT(I);TAB(15);CHR$(179);
10756
FOR Z=0 TO (((A*SIN((I*B+90)/D)+A+F)/(2*A+F))*50)-1
10757
PRINT CHR$(223);
10760
NEXT Z
10762
NEXT I
10770
FOR I=MM+S TO K STEP S
10771
PRINT TAB(1)INT(I);TAB(15);CHR$(179);
10773
FOR Z=0 TO ((F/(2*A+F+1)*50)-1) STEP S
10774
PRINT CHR$(223);
10775
NEXT Z
10776
NEXT I
10980
A$=INKEY$:IF A$="" THEN GOTO 10980
10981
CLS:INPUT"Do you want to repeat this subprogramme, yes(y) or no(n)
";R$
10982
IF R$="y" OR R$="n" THEN GOTO 10983 ELSE 10990
10983
IF R$="y" THEN GOTO 10000 ELSE 10990
10990
RETURN
11000
CLS:PRINT TAB(52)e$" "v$:PRINT"4.11-CHRONOLOGICAL TIME SERIES OF
POPULATION HEALTH PHENOMENON"
11010
PRINT"=============================================================="
11200
N=0:PRINT"INPUT DATA:"
11205
INPUT" variable (indicator),
period ";IN$,P$
11210
INPUT" number (2 up to 18 !) of
data on time and variables ";N
11211
IF N=<1 OR N>18 THEN PRINT IDE$:GOTO 11980
11218
PRINT"List subperiods or moments (up to 15 characters) in chronological
order,"
11219
PRINT"variable values (each must be
m a j o r than >0 ! exception:
the last one):"
11221
US$="":V=0
11222
DIM U$(20),V(20)
11240
FOR I=1 TO N
11250
PRINT TAB(20)I;" ";
11260
INPUT U$(I),V(I)
11261
IF U$(I)="" THEN PRINT:PRINT IDM$:GOTO 11980 ELSE 11270
11270
NEXT I
11271
MAX=V(1)
11272
FOR I=2 TO N
11273
IF V(I)>MAX THEN MAX=V(I)
11274
NEXT I
11275
IF MAX=0 OR V(1)<=0 THEN PRINT:PRINT IDE$:GOTO 11980 ELSE 11276
11276
'IF V(1)<=0 THEN GOTO 11218 ELSE 11280
11280
'CLS:PRINT TAB(6)"If you want to correct input data then key
'c',":PRINT
11281
'PRINT TAB(18)"to go back to menu then key
'm',":PRINT:INPUT"
else ENTER to continue ! ",I$
11282
'IF I$="m" THEN GOTO 10
11283
'IF I$="c" THEN GOTO 11000
11284
'IF I$=CHR$(13) THEN GOTO 11300
11300
CLS:PRINT" CHRONOLOGICAL T I M E
S E R I E S OF POPULATION HEALTH
PHENOMENON"
11305
PRINT" Indicator (variable):
"IN$
11306
PRINT" Period: "P$:PRINT
11310
PRINT
TAB(2)"Order";TAB(11)"Subperiod/";TAB(32)"Variable";TAB(50)"I n
d e x"
11320
PRINT
TAB(2)"Number";TAB(11)"Moment";TAB(34)"Value";TAB(50)"Current";TAB(64)"Chained"
11325
REM:
11330
PRINT
11340
PRINT TAB(3)"1";TAB(11)USING"\ \";U$(1);
11341
PRINT TAB(27)USING"##########.##";V(1);
11342
PRINT TAB(50)"100.00";TAB(65)"100.00"
11350
FOR I=2 TO N
11355
PRINT TAB(2)I;TAB(11)USING"\
\";U$(I);
11356 PRINT TAB(28)USING"#########.##&quo