home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / SBU-1.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  59 lines
  1.        STORE "      " TO FEN1,FEN2,FEN3,FEN4,FEN5  
  2.        STORE 0 TO MGB1,MGB2,MGB3,MGB4,MGB5,I
  3.        DO WHILE EOF()   
  4.           IF MKF="B"
  5.              FEN5="╙┼:   "
  6.              FEN4="┴╝:   "
  7.              FEN3="╓╨╡╚: "
  8.              FEN2="╝░╕±: "
  9.              FEN1="▓╗╝░╕±"                          
  10.              IF A&MKH=205
  11.                 MGB5=MGB5+1
  12.              ENDIF
  13.              IF A&MKH=204
  14.                 MGB4=MGB4+1
  15.              ENDIF
  16.              IF A&MKH=203
  17.                 MGB3=MGB3+1
  18.              ENDIF
  19.              IF A&MKH=202
  20.                 MGB2=MGB2+1
  21.              ENDIF
  22.              IF A&MKH=201
  23.                 MGB1=MGB1+1
  24.              ENDIF
  25.           ELSE
  26.              FEN5="90--100:"
  27.              FEN4="80--89: "
  28.              FEN3="70--79: "
  29.              FEN2="60--69: "
  30.              FEN1="60╥╘╧┬ :"          
  31.              IF A&MKH <=100 .AND. A&MKH >=90
  32.                 MGB5=MGB5+1
  33.              ENDIF
  34.              IF A&MKH <90 .AND. A&MKH >=80
  35.                 MGB4=MGB4+1
  36.              ENDIF
  37.              IF A&MKH <80 .AND. A&MKH >=70
  38.                 MGB3=MGB3+1
  39.              ENDIF
  40.              IF A&MKH <70 .AND. A&MKH >=60
  41.                 MGB2=MGB2+1
  42.              ENDIF
  43.              IF A&MKH <60
  44.                 MGB1=MGB1+1
  45.              ENDIF
  46.          ENDIF
  47.       I=I+1
  48.       SKIP+1
  49.       ENDDO
  50.   CLEAR
  51.   @ 1,10 SAY "&ZZ╫¿╥╡&X╝╢│╔╝¿═│╝╞"
  52.   @ 2,10 SAY "&MKM"
  53.   @ 3,10 SAY "┐╝╩╘╖╜╩╜: "+"&MKF"+"╚╦╩²: "+STR(I,3)
  54.   @ 4,10 SAY "&FEN"+STR(MGB5,3)+"  "+STR(MGB5/I*100,3)+"%"
  55.   @ 5,10 SAY "&FEN"+STR(MGB4,3)+"  "+STR(MGB4/I*100,3)+"%"
  56.   @ 6,10 SAY "&FEN"+STR(MGB3,3)+"  "+STR(MGB3/I*100,3)+"%"
  57.   @ 7,10 SAY "&FEN"+STR(MGB2,3)+"  "+STR(MGB2/I*100,3)+"%"
  58.   @ 8,10 SAY ""&FEN"+STRMGB1,3)+"  "+STR(MGB1/I*100,3)+"%"
  59.