home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / BKF.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  409 b   |  16 lines
  1. PROCEDURE BKF
  2. PARAMETERS CKH,MBIN,MMI,&MB1,&MB2
  3.   IF CKH<" 60 " .OR. CKH="ªí╕±"
  4.      SELECT C
  5.      USE B:AC6B08
  6.      LOCATE FOR BIN=MBIN .OR. MING=MMI
  7.         MB1=MB1+"ªª"+BK1
  8.             IF BK1 < "60" .OR. BK1="ªí╕±"
  9.                MB2=MB2+"ªª"+BK2
  10.              ELSE
  11.                MB2=MB2+"ªª"+"    "
  12.              ENDIF
  13.           ELSE
  14.             MB1=MB1+"ªª"+"    "
  15.            ENDIF
  16.  RETURN