'|-----------------------------------------------|
'|------------  WorkWG.BAS  ---------------------|
'|---- Copyright 1997 by Richard R. Lindquist ---|
'|-----------------------------------------------|
'|--------This is Current Ver 1.0 Build 42-------|
'|-----S F I DONE--------------------------------|
'
'Dx Array
DIM Dx$(447)
Dx$(1) = ""
Dx$(2) = ""
Dx$(3) = "Abruption"
Dx$(4) = "Abscess"
Dx$(5) = "Accreta"
Dx$(6) = "Acquired_cystic_disease"
Dx$(7) = "Actinic_Keratosis"
Dx$(8) = "Acute_Colitis"
Dx$(9) = "Acute_orchitis"
Dx$(10) = "Acute_pyelonephritis"
Dx$(11) = "Acute_vasomotor_nephropathy"
Dx$(12) = "Adenocarcinoma"
Dx$(13) = "Adenocarcinoma_in_Situ_of_Cervix"
Dx$(14) = "Adenocarcinoma_of_Cervix"
Dx$(15) = "Adenocarcinoma_of_Endometrium"
Dx$(16) = "Adenoma"
Dx$(17) = "Adenoma,_Papillary"
Dx$(18) = "Adenoma,_Tubulovillous"
Dx$(19) = "Adenoma,_Villous"
Dx$(20) = "Adenomatoid Malformation"
Dx$(21) = "Adenosquamous_Carcinoma"
Dx$(22) = "Adenosquamous_carcinoma_of_Endometrium"
Dx$(23) = "Adhesion"
Dx$(24) = "Adrenal_Infarct"
Dx$(25) = "Adult_Polycystic_Kidney_Disease"
Dx$(26) = "Agenesis_of_Corpus_Callosum"
Dx$(27) = "Agnogenic_myeloid_metaplasia"
Dx$(28) = "Alzheimers"
Dx$(29) = "Amnion_Band"
Dx$(30) = "amyloidosis"
Dx$(31) = "Anencephaly"
Dx$(32) = "Aneurysm"
Dx$(33) = "Angiofibroma"
Dx$(34) = "Anomaly"
Dx$(35) = "Anoxia"
Dx$(36) = "Anti-GBM_nephritis"
Dx$(37) = "Aortic_Calcification"
Dx$(38) = "Apocrine_Metaplasia"
Dx$(39) = "Appendicitis"
Dx$(40) = "ARDS"
Dx$(41) = "Arnold_Chiari_Malformation"
Dx$(42) = "Ascaris"
Dx$(43) = "ASD"
Dx$(44) = "Aspergillus"
Dx$(45) = "Aspiration"
Dx$(46) = "Astrocytoma,_Cerebellar"
Dx$(47) = "Astrocytoma,_Cerebral"
Dx$(48) = "Atelectasis"
Dx$(49) = "Atheroembolic_renal_disease"
Dx$(50) = "Atherosclerosis"
Dx$(51) = "Atresia"
Dx$(52) = "Atrophy"
Dx$(53) = "Atypical_Hyperplasia"
Dx$(54) = "Atypical_Proliferating_Mucinous_Neoplasm"
Dx$(55) = "Avascular_Necrosis"
Dx$(56) = "Barretts"
Dx$(57) = "Basal_Cell_Carcinoma"
Dx$(58) = "Bergers_glomerulonephritis"
Dx$(59) = "Bicuspid_Aortic"
Dx$(60) = "Bladder_calculi"
Dx$(61) = "Brenner"
Dx$(62) = "Bronchiolo alveolar Carcinoma"
Dx$(63) = "Bronchioloalveolar Carcinoma"
Dx$(64) = "Bronchopneumonia"
Dx$(65) = "Bullet"
Dx$(66) = "Bullet Wound"
Dx$(67) = "Bullous_Pemphigoid"
Dx$(68) = "Bundle_of_His"
Dx$(69) = "Burkitts_Lymphoma"
Dx$(70) = "Burn"
Dx$(71) = "Candida"
Dx$(72) = "Carcinoid"
Dx$(73) = "Carcinoid,_Atypical"
Dx$(74) = "Carcinoma"
Dx$(75) = "Carcinoma,_NOS"
Dx$(76) = "Cavernous_Hemangioma"
Dx$(77) = "Cellular_Leiomyoma"
Dx$(78) = "Cerebellar_Infarct"
Dx$(79) = "Cerebral_Infarct,_Acute"
Dx$(80) = "Cerebral_Infarct,_NOS"
Dx$(81) = "Cerebral_Infarct,_Old"
Dx$(82) = "Cholecystitis,_Acute"
Dx$(83) = "Cholecystitis,_Chronic"
Dx$(84) = "Cholelithiasis"
Dx$(85) = "Cholesterolosis"
Dx$(86) = "Chondrosarcoma"
Dx$(87) = "Chorangioma"
Dx$(88) = "Chorioamnionitis"
Dx$(89) = "Chorionitis"
Dx$(90) = "Chronic_cystitis"
Dx$(91) = "Chronic_Passive_Congestion"
Dx$(92) = "Chronic_pyelonephritis"
Dx$(93) = "Circumvallate"
Dx$(94) = "Cirrhosis"
Dx$(95) = "Clear Cell Carcinoma"
Dx$(96) = "Cloaca"
Dx$(97) = "Collagenous_Colitis"
Dx$(98) = "Colloid_Cyst"
Dx$(99) = "Comedo_Carcinoma"
Dx$(100) = "Complex_Hyperplasia"
Dx$(101) = "Congenital_hydronephrosis"
Dx$(102) = "Congenital_mesoblastic_nephroma"
Dx$(103) = "Congestion"
Dx$(104) = "Contact_Dermatitis"
Dx$(105) = "Contusion"
Dx$(106) = "Crohns"
Dx$(107) = "Cryptosporidiosis"
Dx$(108) = "Cyst"
Dx$(109) = "Cystadenocarcinoma"
Dx$(110) = "Cystadenocarcinoma_Serous"
Dx$(111) = "Cystadenoma_Mucinous"
Dx$(112) = "Cystadenoma_Serous"
Dx$(113) = "Cystic_renal_dysplasia"
Dx$(114) = "Cytomegalovirus"
Dx$(115) = "Dermatofibrosarcoma"
Dx$(116) = "Dermoid"
Dx$(117) = "Desmoid"
Dx$(118) = "Diabetic_nephropathy"
Dx$(119) = "Didelphys"
Dx$(120) = "Dilatation"
Dx$(121) = "Diverticulitis"
Dx$(122) = "Diverticulosis"
Dx$(123) = "Drug_Induced_Interstitial_Nephritis"
Dx$(124) = "Ductal_Carcinoma"
Dx$(125) = "Dysgerminoma"
Dx$(126) = "Dysplasia"
Dx$(127) = "Dystrophic_Calcification"
Dx$(128) = "Ecchymosis"
Dx$(129) = "Ectopic"
Dx$(130) = "Ectopic_Pregnancy"
Dx$(131) = "Edema"
Dx$(132) = "Emboli"
Dx$(133) = "Embolus"
Dx$(134) = "Embryonal_carcinoma"
Dx$(135) = "Emphysema"
Dx$(136) = "Encephalocele"
Dx$(137) = "End_stage_kidney"
Dx$(138) = "Endocarditis"
Dx$(139) = "Endocarditis,_Bacterial_Aortic"
Dx$(140) = "Endocarditis,_Bacterial_Mitral"
Dx$(141) = "Endocarditis,_Mycotic"
Dx$(142) = "Endocervical Cyst"
Dx$(143) = "Endodermal_sinus_tumor"
Dx$(144) = "Endometrial_Polyp"
Dx$(145) = "Endometrioid_Carcinoma"
Dx$(146) = "Endometriosis"
Dx$(147) = "Ependymoma"
Dx$(148) = "Erosion"
Dx$(149) = "Erythema_Nodosum"
Dx$(150) = "Fatty_Change"
Dx$(151) = "Fetus"
Dx$(152) = "Fibrinoid_Necrosis"
Dx$(153) = "Fibroadenoma"
Dx$(154) = "Fibrocystic_Change"
Dx$(155) = "Fibroma"
Dx$(156) = "Fibroma-Thecoma"
Dx$(157) = "Fibrosis"
Dx$(158) = "Fibrous_dysplasia"
Dx$(159) = "Focal_Nodular_Hyperplasia"
Dx$(160) = "Focal_segmental_glomerulosclerosis"
Dx$(161) = "Follicular_Adenoma"
Dx$(162) = "Follicular_Hyperplasia"
Dx$(163) = "Fungal_Esophagitis"
Dx$(164) = "Funisitis"
Dx$(165) = "Ganglioneuroblastoma"
Dx$(166) = "Ganglioneuroma"
Dx$(167) = "Gastroschisis"
Dx$(168) = "Giant_Cell_Tumor"
Dx$(169) = "GIST"
Dx$(170) = "Glioblastoma"
Dx$(171) = "Gluten_Sensitive_Enteropathy"
Dx$(172) = "Gouty_Tophus"
Dx$(173) = "Granular Cell Tumor"
Dx$(174) = "Granuloma"
Dx$(175) = "Granulomatous Orchitis"
Dx$(176) = "Granulomatous_cystitis/BCG"
Dx$(177) = "Granulosa_Cell_Tumor"
Dx$(178) = "Graves"
Dx$(179) = "Gunshot"
Dx$(180) = "Gynecomastia"
Dx$(181) = "Hamartoma"
Dx$(182) = "Hashimotos_Thyroiditis"
Dx$(183) = "Helicobacter"
Dx$(184) = "Hemangioblastoma"
Dx$(185) = "Hemangioma"
Dx$(186) = "Hematoma"
Dx$(187) = "Hemochromatosis"
Dx$(188) = "Hemorrhage"
Dx$(189) = "Hemorrhage ,_Intraventricular"
Dx$(190) = "Hemorrhage,_Germinal_Plate"
Dx$(191) = "Hemorrhage,_Intracerebral"
Dx$(192) = "Hemorrhage,_Petechial"
Dx$(193) = "Hemorrhagic_infarct"
Dx$(194) = "Hemosiderin"
Dx$(195) = "Hepatoblastoma"
Dx$(196) = "Hepatocellular_Carcinoma"
Dx$(197) = "Herpes"
Dx$(198) = "High_Grade_SIL"
Dx$(199) = "Histiocytoma"
Dx$(200) = "Histoplasma"
Dx$(201) = "Hodgkins_Disease,_NOS"
Dx$(202) = "Hodgkins_Disease_LD"
Dx$(203) = "Hodgkins_Disease_LP"
Dx$(204) = "Hodgkins_Disease_MC"
Dx$(205) = "Hodgkins_Disease_NS"
Dx$(206) = "Holoprosencephaly"
Dx$(207) = "Hydranencephaly"
Dx$(208) = "Hydrocephalus"
Dx$(209) = "Hydronephrosis"
Dx$(210) = "Hydrosalpinx"
Dx$(211) = "Hyperemia"
Dx$(212) = "Hyperplasia"
Dx$(213) = "Hyperplasia,_Atypical"
Dx$(214) = "Hypertrophy"
Dx$(215) = "Hypospadias"
Dx$(216) = "Idiopathic_RPGN"
Dx$(217) = "Immature"
Dx$(218) = "Inclusions"
Dx$(219) = "Infantile_polycystic_kidney"
Dx$(220) = "Infarct"
Dx$(221) = "Infarct_Acute"
Dx$(222) = "Infarct_NOS"
Dx$(223) = "Infarct_Old"
Dx$(224) = "Intervillositis"
Dx$(225) = "Intraductal_Carcinoma"
Dx$(226) = "Intraductal_Papilloma"
Dx$(227) = "Ischemic_Colitis"
Dx$(228) = "Islet_Cell_Carcinoma"
Dx$(229) = "Islet_Cell_Tumor"
Dx$(230) = "junk"
Dx$(231) = "Keloid"
Dx$(232) = "Kidney_transplant_rejection"
Dx$(233) = "Knot"
Dx$(234) = "Kyphoscoliosis"
Dx$(235) = "Large Cell Carcinoma"
Dx$(236) = "Large_Cell_Carcinoma"
Dx$(237) = "Leiomyoma"
Dx$(238) = "Leiomyosarcoma"
Dx$(239) = "Lewey"
Dx$(240) = "Linitis_Plastica"
Dx$(241) = "Lipoma"
Dx$(242) = "Liposarcoma"
Dx$(243) = "Lissencephaly"
Dx$(244) = "Lobular_Carcinoma"
Dx$(245) = "Lobular_Carcinoma_in_situ"
Dx$(246) = "Low Grade SIL"
Dx$(247) = "Lupus_nephritis"
Dx$(248) = "Luteoma"
Dx$(249) = "Lymphoblastic_Lymphoma"
Dx$(250) = "Lymphoid Hyperplasia"
Dx$(251) = "Lymphoma"
Dx$(252) = "Malformation"
Dx$(253) = "Malignant Mixed Mesodermal Tumor"
Dx$(254) = "Malignant_Fibrous_Histiocytoma"
Dx$(255) = "Malignant_Histiocytosis"
Dx$(256) = "Malignant_Lymphoma_Diffuse_SCC_type"
Dx$(257) = "Malignant_Lymphoma_Diffuse_Small_Cell"
Dx$(258) = "Malignant_Lymphoma_Follicular_SCC"
Dx$(259) = "Malignant_Lymphoma_Large_Cell_Type"
Dx$(260) = "Malignant_rhabdoid_tumor"
Dx$(261) = "Medullary_Carcinoma"
Dx$(262) = "Melanoma"
Dx$(263) = "Membranoproliferative_glomerulonephritis_type_I"
Dx$(264) = "Membranoproliferative_glomerulonephritis_type_II"
Dx$(265) = "Membranous_glomerulonephritis"
Dx$(266) = "Meningioma"
Dx$(267) = "Meningitis"
Dx$(268) = "Meningomyelocele"
Dx$(269) = "Metachromatic_Leukodystrophy"
Dx$(270) = "Metaplasia"
Dx$(271) = "Metastatic Adenocarcinoma"
Dx$(272) = "Metastatic Carcinoma"
Dx$(273) = "Metastatic_Adenocarcinoma"
Dx$(274) = "Metastatic_Carcinoma"
Dx$(275) = "Metastatic_colonic_adenocarcinoma"
Dx$(276) = "Metastatic_Esophageal_Carcinoma"
Dx$(277) = "Metastatic_Melanoma"
Dx$(278) = "Metastatic_Small_Cell_Carcinoma"
Dx$(279) = "Microcephaly"
Dx$(280) = "Minimal_change_disease"
Dx$(281) = "Mitral_Calcification"
Dx$(282) = "MMMT"
Dx$(283) = "Mole"
Dx$(284) = "Mucinous Cystadenocarcinoma"
Dx$(285) = "Mucinous Cystadenocarcinoma"
Dx$(286) = "Multicystic_renal_dysplasia"
Dx$(287) = "Multinodular_Goiter"
Dx$(288) = "Multiple_myeloma"
Dx$(289) = "Multiple_Sclerosis"
Dx$(290) = "Mycobacterium"
Dx$(291) = "Myelofibrosis"
Dx$(292) = "Myelolipoma"
Dx$(293) = "Myeloma"
Dx$(294) = "Myocarditis"
Dx$(295) = "Myxoma"
Dx$(296) = "Necrosis"
Dx$(297) = "Nephrolithiasis"
Dx$(298) = "Nephrosclerosis"
Dx$(299) = "Neuro_ectodermal_tumor"
Dx$(300) = "Neuroblastoma"
Dx$(301) = "Neurofibroma"
Dx$(302) = "Neurofibrosarcoma"
Dx$(303) = "Nevus"
Dx$(304) = "Normal"
Dx$(305) = "Normal Parotid Gland"
Dx$(306) = "Normal Sublingual Gland"
Dx$(307) = "Normal Submaxillary Gland"
Dx$(308) = "Normal Trachea"
Dx$(309) = "Normal Lung"
Dx$(310) = "Normal Parotid Gland"
Dx$(311) = "Normal Sublingual Gland"
Dx$(312) = "Normal Submaxillary Gland"
Dx$(313) = "Normal_Adipose"
Dx$(314) = "Normal_Aortic"
Dx$(315) = "Normal_Basal_Plate"
Dx$(316) = "Normal_bladder"
Dx$(317) = "Normal_Bone"
Dx$(318) = "Normal_Cartilage"
Dx$(319) = "Normal_Cervix"
Dx$(320) = "Normal_Chorionic_Plate"
Dx$(321) = "Normal_Duodenum"
Dx$(322) = "Normal_Endocervical_Canal"
Dx$(323) = "Normal_Epididymis"
Dx$(324) = "Normal_Ganglion"
Dx$(325) = "Normal_glomerulus"
Dx$(326) = "Normal_Hair_Follicle"
Dx$(327) = "Normal_Ileum"
Dx$(328) = "Normal_Implantation_Site"
Dx$(329) = "Normal_Jejunum"
Dx$(330) = "Normal_kidney"
Dx$(331) = "Normal_Membranes"
Dx$(332) = "Normal_Myometrium"
Dx$(333) = "Normal_Nerve"
Dx$(334) = "Normal_Proliferative_Endometrium"
Dx$(335) = "Normal_Prostate"
Dx$(336) = "Normal_Pylorus"
Dx$(337) = "Normal_renal_papilla"
Dx$(338) = "Normal_Sebaceous_Gland"
Dx$(339) = "Normal_Secretory_Endometrium"
Dx$(340) = "Normal_Skin"
Dx$(341) = "Normal_Spermatic_Cord"
Dx$(342) = "Normal_Sweat_Gland"
Dx$(343) = "Normal_Testis"
Dx$(344) = "Normal_Tonsil"
Dx$(345) = "Normal_ureter"
Dx$(346) = "Normal_Villi"
Dx$(347) = "Oligodendroglioma"
Dx$(348) = "Omphalocoele"
Dx$(349) = "Osteoarthritis"
Dx$(350) = "Osteochondroma"
Dx$(351) = "Osteosarcoma"
Dx$(352) = "Osteosarcoma,_Parosteal"
Dx$(353) = "Pagets"
Dx$(354) = "Pancreatitis"
Dx$(355) = "Papillary_Adenocarcinoma"
Dx$(356) = "Papillary_Carcinoma"
Dx$(357) = "Papillary_necrosis"
Dx$(358) = "Penile_duplication"
Dx$(359) = "Percreta"
Dx$(360) = "Perforation"
Dx$(361) = "Pericarditis"
Dx$(362) = "Peritonitis"
Dx$(363) = "Pheochromocytoma"
Dx$(364) = "Pleomorphic Adenoma"
Dx$(365) = "Pleural_Fibrosis"
Dx$(366) = "Pneumatosis"
Dx$(367) = "Pneumocystis"
Dx$(368) = "Polymicrogyria"
Dx$(369) = "Polyp"
Dx$(370) = "Polyposis"
Dx$(371) = "Porencephaly"
Dx$(372) = "Postinfectious_glomerulonephritis"
Dx$(373) = "Progressive_Multifocal_Leukoencephalopathy"
Dx$(374) = "Prostatic_squamous_metaplasia"
Dx$(375) = "Prosthesis"
Dx$(376) = "Pseudocyst"
Dx$(377) = "Pseudomembranous_Colitis"
Dx$(378) = "Pyosalpinx"
Dx$(379) = "Pyostomatitis_Vegetans"
Dx$(380) = "Rachischisis"
Dx$(381) = "Reflux"
Dx$(382) = "Renal_amyloidosis"
Dx$(383) = "Renal_cell_adenocarcinoma"
Dx$(384) = "Renal_infarct"
Dx$(385) = "Renal_papillary_carcinoma"
Dx$(386) = "Repair"
Dx$(387) = "Retention_Cyst"
Dx$(388) = "Rhabdomyosarcoma"
Dx$(389) = "Sarcoid"
Dx$(390) = "Sarcoidosis"
Dx$(391) = "Sarcoma"
Dx$(392) = "Schwannoma"
Dx$(393) = "Scrotal_hemorrhage"
Dx$(394) = "Seminoma"
Dx$(395) = "Serous_Cystadenoma"
Dx$(396) = "Sickle_Cell_Disease"
Dx$(397) = "Simple Hyperplasia"
Dx$(398) = "Sjogrens Disease"
Dx$(399) = "Small Cell Carcinoma"
Dx$(400) = "Small_Cell_Carcinoma"
Dx$(401) = "Squamous Carcinoma"
Dx$(402) = "Squamous_Carcinoma"
Dx$(403) = "Squamous_Carcinoma_in_situ"
Dx$(404) = "Squamous_Carcinoma_in_situ_of_Cervix"
Dx$(405) = "Squamous_Cell_Carcinoma"
Dx$(406) = "Squamous_Cell_Carcinoma_in_situ"
Dx$(407) = "Squamous_Cell_Carcinoma_of_Cervix"
Dx$(408) = "Squamous_Metaplasia"
Dx$(409) = "Stab"
Dx$(410) = "Stab Wound"
Dx$(411) = "Stricture"
Dx$(412) = "Stromal"
Dx$(413) = "Struma_Ovarii"
Dx$(414) = "Syndactyly"
Dx$(415) = "Synovial_chondromatosis"
Dx$(416) = "Tay_Sachs"
Dx$(417) = "Teratoma_Immature"
Dx$(418) = "Thrombus"
Dx$(419) = "Thymoma_Benign"
Dx$(420) = "Thymoma_Malignant"
Dx$(421) = "Tinea"
Dx$(422) = "Tongue,_Squamous_Carcinoma"
Dx$(423) = "Torsion"
Dx$(424) = "Toxic_Megacolon"
Dx$(425) = "Toxoplasma"
Dx$(426) = "Transitional_cell_carcinoma"
Dx$(427) = "Trauma"
Dx$(428) = "Triplet_or_Quadruplet"
Dx$(429) = "Tuberculosis"
Dx$(430) = "Tuberculous_epididymitis"
Dx$(431) = "Tuberous_sclerosis"
Dx$(432) = "Tubular Epithelial Hyaline Droplets"
Dx$(433) = "Tubular_Carcinoma"
Dx$(434) = "Tubular_epithelial_vacuolar_change"
Dx$(435) = "Twin_MoDi"
Dx$(436) = "Twin_MoMo"
Dx$(437) = "Ulcer"
Dx$(438) = "Ulcerative_Colitis"
Dx$(439) = "Unconverted_Decidual_Vessel"
Dx$(440) = "Ureteral_duplication"
Dx$(441) = "Uric_acid_deposition"
Dx$(442) = "Varices"
Dx$(443) = "Velamentous"
Dx$(444) = "Villitis"
Dx$(445) = "Wegeners"
Dx$(446) = "Wilms_tumor"
Dx$(447) = "Xanthogranulomatous_pyelonephritis"

'  HTLM variables
'
' comma is CHR$(44)
' / is (47)
' = is (61)
' quote is (34)
' single quote is (39)
'

imageurl$ = "ImageURL"
system$ = "System"
'
'  Image Source
'
'pathweb$ = "http://155.37.1.60/Images/"
pathweb$ = "/eAtlas/Images/"
html$ = "<HTML>"
htmlEnd$ = "</HTML>"
title$ = "<TITLE>"
titleEnd$ = "</TITLE>"
body$ = "<BODY>"
bodyEnd$ = "</BODY>"
Href$ = "<A HREF ="
hrefEnd$ = "</A>"
imageheight$ = "230"
imagewidth$ = "290"
imgsrc1$ = "<IMG HEIGHT=" + imageheight$ + " WIDTH =" + imagewidth$ + " SRC=" + CHR$(34) + pathweb$ + system$ + CHR$(47)
'+ imageurl$ + ".gif" + CHR$(34) + CHR$(62)
'PRINT imgsrc$

CENTER$ = "<CENTER>"
centerEnd$ = "</CENTER>"
table$ = "<TABLE BORDER>"
tableCenter$ = "<TABLE Align = center BORDER>"
tableEnd$ = "</TABLE>"
tr$ = "<TR>"
trEnd$ = "</TR>"
td$ = "<TD>"
tdEnd$ = "</TD>"
slash$ = "/"
comma$ = ","
closeBracket$ = ">"
'
'  Vars Finished
'
'
'
'
' LDWORK.BAS ---- Working on Long Description
'                 Add WebGen
'
'
'CLS

OPEN "WEBGEN.DAT" FOR INPUT AS #1
OPEN "RENGEN.DAT" FOR INPUT AS #11

10 DO


'uid$ = ""
'ss$ = ""
'url$ = ""
'organ$ = ""
'ic$ = ""
'sd$ = ""
'process$ = ""
'tcode$ = ""
'mcode$ = ""
'gorm$ = ""
'iby$ = ""
'ibyh$ = ""
'longd$ = ""

LINE INPUT #1, rec$
rec$ = LTRIM$(rec$)
rec$ = RTRIM$(rec$)


caserec$ = rec$

IF LEFT$(caserec$, 1) <> "z" THEN caserec$ = "zzz"
'DO
SELECT CASE LEFT$(caserec$, 3)
CASE IS = "zx1"
'        PRINT "1"; rec$
x = LEN(rec$)
x = x - 3
uid$ = MID$(rec$, 4, x)
Print "Working on uid# ";uid$
'        uid$ = RIGHT$(rec$, 4)
'uid$ = rec$
GOTO 10         'Need to read in all fields before wrinting file

CASE IS = "zx2"
'PRINT "2"; rec$
x = LEN(rec$)
x = x - 3
ss$ = MID$(rec$, 4, x)
'ss$ = rec$
GOTO 10

CASE IS = "zx3"
'PRINT "3"; rec$
x = LEN(rec$)
x = x - 3
url$ = MID$(rec$, 4, x)
'url$ = RIGHT$(rec$, 4)
'url$ = rec$
GOTO 10

CASE IS = "zx4"
'PRINT "4"; rec$
x = LEN(rec$)
x = x - 3
organ$ = MID$(rec$, 4, x)
'Organ$ = RIGHT$(rec$, 4)
'Organ$ = rec$
GOTO 10

CASE IS = "zx5"
'PRINT "5"; rec$
x = LEN(rec$)
x = x - 3
ic$ = MID$(rec$, 4, x)
'IC$ = RIGHT$(rec$, 4)
'IC$ = rec$
GOTO 10

CASE IS = "zx6"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
sd$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10

CASE IS = "zx7"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
process$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10


CASE IS = "zx8"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
tcode$ = MID$(rec$, 4, x)
'CLS
'PRINT "before: "; tcode$
tcode$ = RTRIM$(tcode$)
tcode$ = LTRIM$(tcode$)

tcode$ = MID$(tcode$, 2, 3)



GOTO 10

CASE IS = "zx9"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
mcode$ = MID$(rec$, 4, x)
'PRINT "before: "; mcode$
mcode$ = RTRIM$(mcode$)
mcode$ = LTRIM$(mcode$)

mcode$ = MID$(mcode$, 2, 5)

'PRINT tcode$
'PRINT mcode$
'INPUT o$
GOTO 10

CASE IS = "zx0"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
gorm$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10

CASE IS = "zy1"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
iby$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
IF LEN(rec$) < 4 THEN iby$ = " "
GOTO 10

CASE IS = "zy2"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
ibyh$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10


'LOOP UNTIL rec$ = "zzz"

CASE IS = "zzz"     ' zzz is sentinal for Long Image Description
DIM LongD$(125)     ' set up string array for all the lines in Long D
LongD$(0) = rec$
PRINT LongD$(0)
u = 0
DO UNTIL rec$ = "|" 'keep reading Long D lines until end of field |
	LINE INPUT #1, rec$
	IF LEN(rec$) > 1 THEN    ' Do not process blank lines or | line
	u = u + 1
	LongD$(u) = rec$
 '       PRINT u, LongD$(u)       ' screen out to see progress
	END IF
LOOP

'INPUT k$
END SELECT

'
' All Vars Set
' Ready to Write *.htm file
'
'
'  Clean out leading & trailing blanks
'
uid$ = RTRIM$(uid$)
uid$ = LTRIM$(uid$)
url$ = RTRIM$(url$)
organ$ = RTRIM$(organ$)
sd$ = RTRIM$(sd$)
ss$ = RTRIM$(ss$)
ic$ = RTRIM$(ic$)
url$ = LTRIM$(url$)
organ$ = LTRIM$(organ$)
sd$ = LTRIM$(sd$)
ss$ = LTRIM$(ss$)
ic$ = LTRIM$(ic$)
tcode$ = LTRIM$(tcode$)
mcode$ = LTRIM$(mcode$)
gorm$ = LTRIM$(gorm$)
iby$ = LTRIM$(iby$)
ibyh$ = LTRIM$(ibyh$)
tcode$ = RTRIM$(tcode$)
mcode$ = RTRIM$(mcode$)
gorm$ = RTRIM$(gorm$)
iby$ = RTRIM$(iby$)
ibyh$ = RTRIM$(ibyh$)
'
' Sreen Out for debugging
'
'PRINT "Uid="; uid$
'PRINT "Url="; url$
'PRINT "Organ="; organ$
'PRINT "SD="; sd$
'PRINT "Ss="; ss$
'PRINT "ic="; ic$
'PRINT "Process = "; process$
'PRINT "Tcode= "; tcode$
'PRINT "Mcode= "; mcode$
'PRINT "GorM = "; gorm$
'PRINT "By = "; iby$
'PRINT "Hosp= "; ibyh$
'PRINT "LongD="; longd$

'
' Name the generated html page by uid
ss$ = LTRIM$(ss$)
ss$ = RTRIM$(ss$)
Lss% = LEN(ss$)
IF Lss% < 1 THEN ss$ = "Junk"
'
'
'
'   Assign Variables for  Comments & Metas
'
cr1$ = "<!--              This HTML document was generated by                -->"
cr2$ = "<!--               DB2HTMLGEN (tm) ver 1.0 build 079                  -->"
cr3$ = "<!--              Copyright 1997 by Richard R. Lindquist             -->"
cr4$ = "<!-- DB2HTMLGEN(tm) automagically generates HTML pages from Databases -->"
cr5$ = "<!--      The HTML scripts generated by DB2HTMLGen(tm) and        -->"
cr6$ = "<!--     the Screens Generated from the generated HTML scripts    -->"
cr7$ = "<!--           are Copyright 1997 by R. R. Lindquist              -->"
cr8$ = "<!--    All Rights to the Scripts and the Screens Generated       -->"
cr9$ = "<!--                are Reserved by R.R. Lindquist                -->"
cr10$ = "<!-- Reproduction or use other than your personal individual viewing -->" 
cr11$ = "<!--       without explicit written permission from R. Lindquist is -->" 
cr12$ = "<!--                   strictly prohibited                   -->"

meta$ = "<META HTTP-EQUIV=" + CHR$(34) + "Keywords" + CHR$(34) + " CONTENT=" + CHR$(34) + "Pathology," + sd$ + "," + organ$ + "," + pro$ + CHR$(34)
metaE$ = ">"
metaEnd$ = ">"
metaSite$ = "<META NAME=" + CHR$(34) + "Website" + CHR$(34) + " CONTENT=" + CHR$(34) + "University of Connecticut Virtual Pathology Museum" + CHR$(34)
metad1$ = "<meta name =" + CHR$(34) + "description" + CHR$(34) + " Content =" + CHR$(34)
metad2$ = sd$ + " of the " + organ$ + " From the Virtual Pathology Museum, Department of Pathology, University of Connecticut Health Center" + CHR$(34)
metad3$ = "<meta name =" + CHR$(34) + "description" + CHR$(34) + " Content =" + CHR$(34)
metad4$ = "Quiz of "+sd$ + " of the " + organ$ + " From the Virtual Pathology Museum, Department of Pathology, University of Connecticut Health Center" + CHR$(34)

head$ = "<HEAD>"
headEnd$ = "</HEAD>"
'
'  Metas Finished
'
'
'  Dx Array     Dx Array
'
Afileout$ = quote$ + "A\A" + uid$ + ".htm" + quote$
OPEN Afileout$ FOR OUTPUT AS #4
PRINT "Writing A File"
FOR DxA% = 3 TO 447
IF Dx$(DxA%) = sd$ THEN
PRINT #4, "<A Href=" + CHR$(34) + "/eAtlas/unknown/Y/Y" + uid$ + ".htm" + CHR$(34) + " Target= " + CHR$(34) + "Bottom" + CHR$(34); ">" + Dx$(DxA%) + "</A><BR>"
	

ELSE
PRINT #4, "<A Href=" + CHR$(34) + "/eAtlas/unknown/N/N" + uid$ + ".htm" + CHR$(34) + " Target= " + CHR$(34) + "Bottom" + CHR$(34) + ">" + Dx$(DxA%) + "</A><BR>"
END IF
NEXT DxA%


CLOSE #4

'
'End Dx Array   End Dx Array
'



fileout$ = quote$ + "S\S" + uid$ + ".htm" + quote$
Ifileout$ = quote$ + "I\I" + uid$ + ".htm" + quote$
Nfileout$ = quote$ + "N\N" + uid$ + ".htm" + quote$
Yfileout$ = quote$ + "Y\Y" + uid$ + ".htm" + quote$
Wfileout$ = quote$ + "W\W" + uid$ + ".htm" + quote$

imgsrc$ = "<IMG HEIGHT=" + imageheight$ + " WIDTH =" + imagewidth$ + " SRC=" + CHR$(34) + pathweb$ + ss$ + CHR$(47) + url$ + ".gif" + CHR$(34) + CHR$(62)
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&



LINE INPUT #11, randgen$
rrec$ = LTRIM$(randgen$)
rrec$ = RTRIM$(randgen$)
rrec% = VAL(rrec$)
nframe% = rrec% + 1
pframe% = rrec% - 1
nframe$ = STR$(nframe%)
nframe$ = LTRIM$(nframe$)
nframe$ = RTRIM$(nframe$)

pframe$ = STR$(pframe%)
pframe$ = LTRIM$(pframe$)
'PRINT rrec$; "  next frame name = "; nframe$; "  Previous frame name = "; pframe$
rrec$ = LTRIM$(rrec$)
rrec$ = RTRIM$(rrec$)
frameF$ = "F\F" + rrec$ + ".HTM"
'PRINT "FRAME FILE NAME =" + frameF$
'INPUT o$
OPEN Wfileout$ FOR OUTPUT AS #5
Print "Writing W File"
PRINT #5, "<CENTER><TABLE BORDER><TR><TD><B>"+ organ$ + "</B>
PRINT #5, "<TD>[<A HREF=" + CHR$(34) + "JavaScript:alert('DB2HTMLGEN(tm) and all code and scripts generated by DB2HTMLGEN(tm) Copyright &#169 1997 by Richard Lindquist.  All Rights to Program Codes & Scripts and Screens generated by DB2HTMLGEN(tm) Reserved  by R. Lindquist. Reproduction or use other than your personal individual viewing without explicit written permission from R. Lindquist is strictly prohibited')" + CHR$(34) + "><B>&#169;</B></A>]"
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/Qhelp.htm" + CHR$(34); " target = " + CHR$(34) + "IFrame" + CHR$(34) + ">Help</A>"

PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + pframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Previous</A>"
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + nframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Next</A>"
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/menu.htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Home</A>"
PRINT #5, "</TABLE></CENTER>"
CLOSE #5

OPEN Nfileout$ FOR OUTPUT AS #5
Print "Writing N File"
PRINT #5, "<CENTER><TABLE BORDER><TR>"
PRINT #5, "<TD> Incorrect, Try Again "
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/S/S" + uid$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "IFrame" + CHR$(34) + ">Show Answer</A>"

PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + pframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Previous</A>"
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + nframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Next</A>"
PRINT #5, "</TABLE></CENTER>"
CLOSE #5

'
'   Yes File Write Out
'

OPEN Yfileout$ FOR OUTPUT AS #5
Print "Writing Y File"
PRINT #5, "<CENTER><TABLE BORDER><TR>"
PRINT #5, "<TD> Correct! "
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/S/S" + uid$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "IFrame" + CHR$(34) + ">Show More \About Answer</A>"

PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + pframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Previous</A>"
PRINT #5, "<TD><A HREF= "; CHR$(34) + "/eAtlas/unknown/F/F" + nframe$ + ".htm" + CHR$(34); " target = " + CHR$(34) + "_top" + CHR$(34) + ">Next</A>"
PRINT #5, "</TABLE></CENTER>"
CLOSE #5


' RANDWK.BAS ---- Working on Random Number Processing
'
'
'
'CLS
OPEN frameF$ FOR OUTPUT AS #3
Print "Writing F File"


'
' Write out Comments & Metas
'

PRINT #3, cr1$
PRINT #3, cr2$
PRINT #3, cr3$
PRINT #3, cr4$
PRINT #3, cr5$
PRINT #3, cr6$
PRINT #3, cr7$
PRINT #3, cr8$
PRINT #3, cr9$
PRINT #3, cr10$
PRINT #3, cr11$
PRINT #3, cr12$
PRINT #3,
PRINT #3, head$
PRINT #3, metad3$ + metad4$

PRINT #3, meta$ + metaE$
PRINT #3, metaSite$ + metaE$

'
'Title
'
PRINT #3, title$; "eAtlas Unknown Quiz"; titleEnd$
PRINT #3, "</HEAD>"

PRINT #3, "<FRAMESET cols=" + CHR$(34) + "20%,80%" + CHR$(34) + ">"


PRINT #3, "<FRAMESET rowsS=" + CHR$(34) + "100%" + CHR$(34) + ">"
PRINT #3, "<FRAME  marginwidth=" + CHR$(34) + "0" + CHR$(34) + " marginheight=" + CHR$(34) + "0" + CHR$(34) + " NAME= " + CHR$(34) + "Left" + CHR$(34) + " SRC= " + CHR$(34) + "/eAtlas/unknown/A/A" + uid$ + ".HTM" + CHR$(34) + " >"


PRINT #3, "<FRAMESET rowS=" + CHR$(34) + "90%,10%" + CHR$(34) + ">"
PRINT #3, "<FRAME marginheight=" + CHR$(34) + "0" + CHR$(34) + " marginwidth= " + CHR$(34) + "0" + CHR$(34) + " NAME = " + CHR$(34) + "IFrame" + CHR$(34) + " SRC= " + CHR$(34) + "/eAtlas/unknown/I/I" + uid$ + ".HTM" + CHR$(34) + " >"


PRINT #3, "<FRAME  marginheight=" + CHR$(34) + "0" + CHR$(34) + " marginwidth= " + CHR$(34) + "0" + CHR$(34) + " NAME = " + CHR$(34) + "Bottom" + CHR$(34) + " SRC=" + CHR$(34) + "/eAtlas/unknown/W/W" + uid$ + ".HTM" + CHR$(34) + ">"
PRINT #3, "</FRAMESET>"
PRINT #3, "</FRAMESET>"

CLOSE #3


'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'
'Opening Individual HTML Files and Writing code
'

'OPEN "JUNK.jnk" FOR OUTPUT AS #2
'PRINT fileout$
'INPUT o$
'
'  This is SHOW ME Screen
'
OPEN fileout$ FOR OUTPUT AS #2
Print "Writing S File"

OPEN Ifileout$ FOR OUTPUT AS #4

'
'Start writing html page
'
PRINT #2, html$
'
' Translate pathological process for meta key words
'
process$ = LTRIM$(process$)
process$ = RTRIM$(process$)
'PRINT "Process is "; process$  ' sreen out for debugging

 IF process$ = "Con" THEN pro$ = "Congenital Abnormalities"
 IF process$ = "Trauma" THEN pro$ = "Trauma"
 IF process$ = "Normal" THEN pro$ = "Normal"
 IF process$ = "Benign" THEN pro$ = "Benign Tumor"
 IF process$ = "Malign" THEN pro$ = "Malignant Tumor"
 IF process$ = "Inf" THEN pro$ = "Inflammation & Fibrosis"
 IF process$ = "Degen" THEN pro$ = "Necrosis & Degeneration"
 IF process$ = "Growth" THEN pro$ = "Growth Abnormalities"
 IF process$ = "Vasc" THEN pro$ = "Vascular Abnormalities"
 IF process$ = "Mech" THEN pro$ = "Mechanical Abnormalities"
'PRINT "Pro is "; pro$        'screen out for debugging


'
' Write out Comments & Metas
'

PRINT #2, cr1$
PRINT #2, cr2$
PRINT #2, cr3$
PRINT #2, cr4$
PRINT #2, cr5$
PRINT #2, cr6$
PRINT #2, cr7$
PRINT #2, cr8$
PRINT #2, cr9$
PRINT #2, cr10$
PRINT #2, cr11$
PRINT #2, cr12$

PRINT #2,
PRINT #2, head$
PRINT #2, metad1$ + metad2$

PRINT #2, meta$ + metaE$
PRINT #2, metaSite$ + metaE$

'
'Title
'
PRINT #2, title$; sd$; " of the "; organ$; quote$; titleEnd$
PRINT #2, "</HEAD>"
PRINT #2, body$
'
' Nav Bar Generation
'
'PRINT #2, "<FONT SIZE = " + CHR$(34) + "-1" + CHR$(34) + ">"
'PRINT #2, "<CENTER>"
'PRINT #2, "<TABLE BORDER><TR>"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "http://155.37.5.7/PWINDEX/SearchOptions.cfm" + CHR$(34) + ">Search Frames</A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "/eAtlas/menu.htm" + CHR$(34) + ">Search No frames</A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "http://155.37.1.60" + CHR$(34) + ">PathWeb Home</A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "JavaScript:alert('DB2HTMLGEN(tm) and all code and scripts generated by DB2HTMLGEN(tm) Copyright &#169 1997 by Richard Lindquist.  All Rights to Program Codes & Scripts and Screens generated by HTMLGEN(tm) Reserved  by R. Lindquist. Reproduction or use other than your personal individual viewing without explicit written permission from R. Lindquist is strictly prohibited')" + CHR$(34) + "><B>&#169;</B></A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "mailto: pathweb@www2.uchc.edu" + CHR$(34) + "onMouseOver=" + CHR$(34) + "window.status = '  e-Mail  your Comments and Suggestions .'; return true" + CHR$(34) + ">Feed Back</A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "JavaScript:alert('UConns Virtual Pathology Museum, no-frames version, is generated automagically from a relational database by DB2HTMLGEN(tm).')" + CHR$(34) + ">About</A>]"
'PRINT #2, "<TD>[<A HREF=" + CHR$(34) + "/PWINDEX/" + tcode$ + mcode$ + ".htm" + CHR$(34) + ">" + tcode$ + mcode$ + "</A>]"

'PRINT #2, "</TABLE>"
'PRINT #2, "</CENTER>"
'PRINT #2, "</FONT>"
'
' Nav Bar Done
'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'
'  Nav Bar Above is Finished
'
PRINT #2, "<CENTER>"
PRINT #2, "<TABLE BORDER>"
PRINT #2, "<TR>"
PRINT #2, "<TD VALIGN =" + CHR$(34) + "top" + CHR$(34) + "ALIGN ="; CHR$(34) + "CENTER" + CHR$(34) + ">"

'
'Copy from
'
PRINT #2, "<A HREF=" + CHR$(34) + "/eAtlas/" + ss$ + "/" + uid$ + "B.HTM" + CHR$(34) + ">" + imgsrc$ + "</A>"
PRINT #4, "<CENTER>"
PRINT #4, "<IMG HEIGHT= 300  WIDTH = 400  SRC=" + CHR$(34) + pathweb$ + ss$ + CHR$(47) + url$ + "b.gif" + CHR$(34) + CHR$(62)
PRINT #4, "</CENTER>"
PRINT #2, "</TD>"
PRINT #2, "<TD><TABLE >"

PRINT #2, "<TR><TD ALIGN = CENTER><B>" + sd$ + ", " + organ$ + "</B>"
PRINT #2, "<TR><TD>" + ic$
PRINT #2, "<TR><TD>"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
' Write out Long Description
'
IF LEN(LongD$(0)) > 1 THEN
PRINT #2, LongD$(0)
'PRINT LongD$(0)
END IF

IF u > 0 THEN
w = u
u = 0
FOR I = 1 TO w
	u = u + 1
Flet$ = LEFT$(LongD$(u), 1)
'PRINT Flet$; "------>"; ASC(Flet$)
IF ASC(Flet$) = 149 THEN LongD$(u) = "<BR>" + LongD$(u)

	IF LongD$(u) <> "|" THEN PRINT #2, LongD$(u)
'      IF LongD$(u) <> "|" THEN PRINT "Writing Now "; LongD$(u)
NEXT I
' INPUT o$
'CLS
END IF
'
' End writing out long description
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PRINT #2, "</TD></TR>"
PRINT #2, "<TR><TD ALIGN = CENTER>Contrib. by:" + iby$ + " " + ibyh$
PRINT #2, "</TABLE></TR>"

PRINT #2, "</TABLE>"
PRINT #2, "<TABLE BORDER>"
PRINT #2, "<TR>"
PRINT #2, "<TD><A HREF=" + CHR$(34) + "/eAtlas/TMGEN/" + tcode$ + mcode$ + ".htm" + CHR$(34) + ">Etiology, Pathogenesis, Clinical, and More Info </A>"
PRINT #2, "</TD>"
PRINT #2, "</TABLE>"
PRINT #2, "</CENTER>  "
PRINT #2, "</BODY>"
PRINT #2, "</HTML>"


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
CLOSE #2
CLOSE #4
PRINT "One HTML File Generation Completed"
PRINT "|"
PRINT "\"

LOOP UNTIL EOF(1)
CLOSE #1
END