home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / GG.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  165 b   |  17 lines
  1. use b:ac208 INDEX B:IXAC208
  2. FIND "╣π╓▌"
  3. M=0
  4. M1=0
  5. DO WHILE  XI="╣π╓▌" 
  6. IF B1="─╨"
  7. M=M+1
  8. ENDIF 
  9. IF B1="┼«"
  10. M1=M1+1
  11. ENDIF
  12. SKIP+1
  13. ENDDO
  14. ? M
  15. ? M1
  16. return
  17.