home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CK34.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  636 b   |  25 lines
  1. * CK34.PRG
  2. clear
  3.         USE &P0:CKK88
  4.           GO TOP
  5.           STORE 1 TO M
  6.           JS="Y"
  7.           DO WHILE .NOT.EOF().AND.JS<>"N".AND.JS<>"n"
  8.             DO SHE4
  9.              WAIT '            ╩╟╖±╝╠╨°▓Θ╤»ú█ú┘ú»ú╬ú▌ ' TO JS
  10.             IF JS<>"N".AND.JS<>"n"
  11.              STORE M+1 TO M
  12.              IF .NOT.EOF()
  13.              SKIP
  14.              ENDIF
  15.             ENDIF
  16.          ENDDO
  17.          CLEAR
  18.          SUM ALL C08 TO KKK
  19.          @3,20 SAY "╫▄┐Γ┤µ╒╝╙├╜≡╢ε╬¬"
  20.          @3,40 SAY KKK PICT "99999999.99"   
  21.          ? " "
  22.          WAIT "                 ░┤╚╬╥╗╝ⁿ╝╠╨° !"   
  23.         USE
  24.         RETURN
  25.