From: "Ing

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 Geneva took over EPIZOO distribution through 1.4 megabyte diskettes. From 1996 the EPIZOO has been available on the WHO internet websites, first under the address “http://tron.is.s.u-tokyo.ac.jp/WHO/whosis/vph/epizoo/epizoo.htm”, and later under http://www.who.ch/whosis/vph/epizoo/epizoo.htm and finally under http://www.who.int/emc/diseases/zoo/epizoo.html up to March 2005. WHO was distributing EPIZOO versions from 2.4 up to 3.2 . Later EPIZOO versions are available on author’s new website in http://vaclavkouba.byl.cz/software/software.zip.

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 Prague 7, Czech Republic) is easy to use and does not require training or even a manual. It can be obtained (in English only) free of charge by writing to Chief, Veterinary Public Health, World Health Organisation, CH-1211 Geneva 27, Switzerland. The request should be accompanied by a 1.4 MB (3½ inch) diskette.”

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