home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / EVALUE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-01  |  5.0 KB  |  129 lines
  1. 1  REM
  2. 3  KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS"
  3. 5  LOCATE 7,8,0:PRINT "Micro Development Software"
  4. 6  LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196)
  5. 7  COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  6. 9  LOCATE 11,9:PRINT CHR$(186)+" EMPLOYEE EVALUATION "+CHR$(186)
  7. 11  LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  8. 13  LOCATE 13,9:PRINT CHR$(186)+"    Version 2.0      "+CHR$(186)
  9. 15  LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  10. 17  LOCATE 17,10:PRINT"Written By M.D. Smith"
  11. 19  COLOR 14,0:LOCATE 19,7:PRINT "         Circa 1985"
  12. 21  COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue"
  13. 23  POKE 106,0:REM CLEAR KYBD BUFFER
  14. 25  A$ = INKEY$:IF A$="" THEN GOTO 25
  15. 27  REM
  16. 29  REM
  17. 31  REM
  18. 100  CLEAR:DIM A$(25),B(25)
  19. 110  REM
  20. 130  REM *****************************************************************
  21. 150  REM **                                                             **
  22. 170  REM **   EMPLOYEE EVALUATION PROGRAM FOR MANAGERS                  **
  23. 190  REM **   Written by M.D.Smith , Manager of WAAY-TV                 **
  24. 210  REM **   1000 Monte Sano Blvd., Huntsville, AL 35801               **
  25. 230  REM **                                                             **
  26. 250  REM **   VERSION 2.0             JUNE  1985                        **
  27. 270  REM **                                                             **
  28. 290  REM *****************************************************************
  29. 310  REM
  30. 330  REM
  31. 350  WIDTH 80:COLOR 14,0,0:KEY OFF
  32. 370  RESTORE:CLS
  33. 400  PRINT:PRINT"THERE WILL BE 20 EVALUATION ITEMS TO FOLLOW. YOU SHOULD RANK"
  34. 405  PRINT"EACH EMPLOYEE IN REGARD TO THE FOLLOWING POINT/VALUE SCALE:"
  35. 410  PRINT:PRINT:PRINT TAB(15);" 0-4   POOR PERFORMANCE"
  36. 415  PRINT TAB(15);" 5-9   BELOW AVERAGE PERFORMANCE"
  37. 420  PRINT TAB(15);"10-15  AVERAGE PERFORMANCE"
  38. 425  PRINT TAB(15);"16-21  ABOVE AVERAGE PERFORMANCE"
  39. 430  PRINT TAB(15);"22-25  OUTSTANDING PERFROMANCE"
  40. 435  PRINT:PRINT
  41. 440  PRINT"THEREFORE THE TOTAL EVALUATION VALUES ARE AS FOLLOWS:
  42. 445  PRINT:PRINT TAB(15);"  0-80   POOR PERFORMANCE"
  43. 450  PRINT TAB(15);"100-180  BELOW AVERAGE PERFORMANCE"
  44. 455  PRINT TAB(15);"200-300  AVERAGE PERFORMANCE"
  45. 460  PRINT TAB(15);"320-420  ABOVE AVERAGE PERFORMANCE"
  46. 465  PRINT TAB(15);"440-500  OUTSTANDING PERFORMANCE"
  47. 470  PRINT:PRINT:PRINT:PRINT TAB(20);:COLOR 0,2
  48. 475  PRINT " < Hit any key to continue > ";:COLOR 14,0
  49. 480  WA$=INKEY$:IF WA$="" THEN 480
  50. 485  CLS
  51. 900  PRINT:PRINT" WHAT IS THE NAME OF PERSON BEING EVALUATED";:INPUT NA$
  52. 920  PRINT:PRINT"TODAY'S DATE FOR THE EVALUATION IS ";DATE$:TE$=DATE$
  53. 930  PRINT:INPUT"WHAT IS YOUR NAME";NS$
  54. 940  PRINT:INPUT"WHAT IS YOUR DEPARTMENT";DEPT$
  55. 1000  FOR I= 1 TO 20
  56. 1020  READ A$(I)
  57. 1040  PRINT:PRINT"#";I;"  ON SCALE OF 1 TO 25, HOW WOULD YOU RANK ";NA$;" FOR:"
  58. 1060  PRINT A$(I);
  59. 1080  INPUT B(I)
  60. 1090  IF B(I)<1 OR B(I)>25 THEN GOTO 1040
  61. 1100  TOT=TOT+B(I):C = C + 1
  62. 1120  NEXT I
  63. 2000  PRINT:PRINT:PRINT NA$;"'S TOTAL RATING IS ";TOT
  64. 2020  PRINT:PRINT NA$;"'S AVERAGE RATING IS ";INT((TOT/C)+0.5)
  65. 2030  PRINT:PRINT"MAKE SURE PRINTER IS ON-LINE, THEN HIT ANY KEY TO PRINT !"
  66. 2040  DL$=INKEY$:IF DL$="" THEN GOTO 2040
  67. 3000  REM  **********************************************************
  68. 3010  REM  *******    THIS IS THE PRINTER PROGRAM   *****************
  69. 3020  REM  **********************************************************
  70. 3040  LPRINT:LPRINT:LPRINT:LPRINT
  71. 3050  LPRINT" PRINTED EVALUATION FOR ";NA$;" FOR ";TE$
  72. 3070  LPRINT:LPRINT" CONDUCTED BY ";NS$;" OF THE ";DEPT$;" DEPARTMENT."
  73. 3090  LPRINT
  74. 3092  LPRINT:LPRINT NA$;"'S RATING FOR:"
  75. 3100  FOR I = 1 TO 20
  76. 3120  LPRINT:LPRINT "#";I;"  ";A$(I);" = ";B(I)
  77. 3130  NEXT I
  78. 3132  LPRINT"****************************************************************"
  79. 3140  LPRINT:LPRINT NA$"'S TOTAL SCORE IS ";TOT
  80. 3150  LPRINT"****************************************************************"
  81. 3160  LPRINT:LPRINT NA$"'S AVERAGE PER ITEM IS ";INT((TOT/C)+0.5)
  82. 3170  LPRINT"****************************************************************"
  83. 3200  LPRINT:LPRINT:LPRINT:LPRINT
  84. 3400  PRINT:PRINT"DO YOU WANT TO DO ANOTHER (Y/N)";
  85. 3410  INPUT GA$:IF GA$="Y" OR GA$="y" THEN GOTO 100
  86. 3500  PRINT:PRINT:PRINT"DO YOU WANT A PRINTOUT OF THE VALUE TABLE SHOWN EARLIER (Y/N)";
  87. 3510  INPUT HV$
  88. 3520  IF HV$="Y" OR HV$="y" THEN GOTO 7000
  89. 4000  GOTO 30000: REM GOTO END OF PROGRAM.
  90. 5000  DATA "Communicates effectively with supervisor & co-workers"
  91. 5020  DATA "Works well under pressure"
  92. 5040  DATA "Shows originality in solving problems"
  93. 5060  DATA "Has a consistent positive attitude"
  94. 5080  DATA "Uses time efficiently"
  95. 5100  DATA "Self-starter (needs minimum supervision)"
  96. 5120  DATA "Shows team spirit"
  97. 5140  DATA "Cost conscious"
  98. 5160  DATA "Effectively deals with criticism"
  99. 5180  DATA "Dependable"
  100. 5200  DATA "Once decision is made, accepts & strives to implement decision"
  101. 5220  DATA "Compatible with co-workers"
  102. 5240  DATA "Willingly accepts challenges"
  103. 5260  DATA "Understands standards & expectations of supervisor"
  104. 5280  DATA "Absenteeism/Punctuality"
  105. 5300  DATA "Strives to improve performance"
  106. 5320  DATA "Shows concern for station/department image"
  107. 5340  DATA "Shows leadership ability"
  108. 5360  DATA "Neatness (personal and work area)"
  109. 5380  DATA "Quality of work"
  110. 7000  REM ***  THIS IS PRINTOUT OF VALUES LISTED EARLIER ***
  111. 7010  LPRINT:LPRINT"THERE WILL BE 20 EVALUATION ITEMS TO FOLLOW. YOU SHOULD RANK"
  112. 7020  LPRINT"EACH EMPLOYEE IN REGARD TO THE FOLLOWING POINT/VALUE SCALE:"
  113. 7030  LPRINT:LPRINT:LPRINT TAB(15);" 0-4   POOR PERFORMANCE"
  114. 7040  LPRINT TAB(15);" 5-9   BELOW AVERAGE PERFORMANCE"
  115. 7050  LPRINT TAB(15);"10-15  AVERAGE PERFORMANCE"
  116. 7060  LPRINT TAB(15);"16-21  ABOVE AVERAGE PERFORMANCE"
  117. 7070  LPRINT TAB(15);"22-25  OUTSTANDING PERFROMANCE"
  118. 7080  LPRINT:LPRINT
  119. 7090  LPRINT"THEREFORE THE TOTAL EVALUATION VALUES ARE AS FOLLOWS:
  120. 7100  LPRINT:LPRINT TAB(15);"  0-80   POOR PERFORMANCE"
  121. 7110  LPRINT TAB(15);"100-180  BELOW AVERAGE PERFORMANCE"
  122. 7120  LPRINT TAB(15);"200-300  AVERAGE PERFORMANCE"
  123. 7130  LPRINT TAB(15);"320-420  ABOVE AVERAGE PERFORMANCE"
  124. 7140  LPRINT TAB(15);"440-500  OUTSTANDING PERFORMANCE"
  125. 7150  LPRINT:LPRINT:LPRINT:LPRINT
  126. 30000  END
  127. 50000  SAVE "EVALUE.BAS"
  128. 50010  SAVE "B:EVALUE.BAS"
  129.