home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / STATISTI / EPI501B4.ZIP / FILES8.EXE / GRAPH.PGM < prev    next >
Encoding:
Text File  |  1991-07-15  |  1.1 KB  |  49 lines
  1. set split = off
  2.  
  3. define year ## global
  4. cls
  5. echo
  6. echo
  7. immedif (0=0) then year=?Hit return for this year or enter a past year:  19?
  8. echo
  9. echo
  10.  
  11. immedif (year < 88 or year > 91) and year <> 0 then type "\07"
  12. immedif (year < 88 or year > 91) and year <> 0 then echo ERROR: Year must be between 88 and 91
  13.  
  14. ? Return to continue, QUIT to abort. ?
  15.  
  16. cls
  17. immedif (year < 88 or year > 91) and year <> 0 then run graph.PGM
  18.  
  19. echo
  20. echo Reading data.  Please wait.
  21. echo
  22.  
  23. immedif (year =  0) then read GEPI
  24. immedif (year = 89) then read GEPI89
  25. immedif (year = 90) then read GEPI90
  26. immedif (year = 91) then read GEPI91
  27.  
  28. define agegrp string width = 6
  29.  
  30. recode age to agegrp 0-9="0-9 ", 10-14="10-14 ", 15-19="15-19 ", 20-24="20-24 "\
  31.            25-29="25-29 ", 30-34="30-34 ", 35-44="35-44 ", 45-54="45-54 ",\
  32.            55-64="55-64 ", 64-98="65 > ", 99= "unk "
  33.  
  34. define vari string width = 10
  35. cls
  36. echo
  37. echo
  38. echo
  39. vari = "?     Please enter a disease name: ?"
  40.  
  41. select disease = vari
  42. cls
  43. title 1 @vari By Age Group
  44. bar agegrp
  45. cls
  46. title 1 @vari by Report Week
  47. line mmwrweek disease
  48. quit
  49.