home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / BCBDE.PRG < prev    next >
Encoding:
Text File  |  1991-08-19  |  1.1 KB  |  30 lines

  1. *░δ│╔╞╖╢¿╢ε╝╞╦π╫╙│╠╨≥:BCBDE.PRG
  2. set talk off
  3. clear
  4. t=0
  5. dimension cl(1,32)
  6. do while t<=31
  7. t=t+1
  8. store 0 to cl(t)
  9. enddo
  10. do c:bcbde-1
  11. use &qbl13
  12. replace all ╘┬╖▌ with mo2
  13. tt=0
  14. do while tt<=31
  15. tt=tt+1
  16. go tt
  17. replace next 1 ▓·┴┐ with cl(tt)
  18. enddo
  19. replace all HG╓╪┴┐ with HG┴┐╢¿╢ε*▓·┴┐,HG╜≡╢ε with HG│╔▒╛╢¿╢ε*▓·┴┐,DG╓╪┴┐ with DG┴┐╢¿╢ε*▓·┴┐,DG╜≡╢ε with DG│╔▒╛╢¿╢ε*▓·┴┐,╕¿┴╧╜≡╢ε with ╕¿┴╧╢¿╢ε*▓·┴┐,╢»┴ª╜≡╢ε with ╢»┴ª╢¿╢ε*▓·┴┐,╣ñ╫╩╜≡╢ε with ╣ñ╫╩╢¿╢ε*▓·┴┐
  20. replace all ╣ñ╩▒ with ╣ñ╩▒╢¿╢ε*▓·┴┐,╝╙╣ñ╜≡╢ε with ╝╙╣ñ╢¿╢ε*▓·┴┐,╕ú└√╜≡╢ε with ╕ú└√╢¿╢ε*▓·┴┐,CJ╛¡╖╤╜≡╢ε with CJ╛¡╖╤╢¿╢ε*▓·┴┐,╖╧╞╖╜≡╢ε with ╖╧╞╖╢¿╢ε*▓·┴┐,╣▄└φ╖╤╜≡╢ε with ╣▄└φ╖╤╢¿╢ε*▓·┴┐
  21. replace all ║╧╝╞╜≡╢ε with ╝╙╣ñ╜≡╢ε+HG╜≡╢ε+DG╜≡╢ε+╕¿┴╧╜≡╢ε+╢»┴ª╜≡╢ε+╣ñ╫╩╜≡╢ε+╕ú└√╜≡╢ε+CJ╛¡╖╤╜≡╢ε+╖╧╞╖╜≡╢ε+╣▄└φ╖╤╜≡╢ε
  22. if w3='╨┬▓·╞╖'
  23.    replace all ╞ß┴╧╜≡╢ε with ╞ß┴╧╢¿╢ε*▓·┴┐,═Γ╣║╝■╜≡╢ε with ═Γ╣║╝■╢¿╢ε*▓·┴┐,CLCY╜≡╢ε with CLCY╢¿╢ε*▓·┴┐,╚╝┴╧╜≡╢ε with ╚╝┴╧╢¿╢ε*▓·┴┐
  24.    replace all ║╧╝╞╜≡╢ε with ╝╙╣ñ╜≡╢ε+HG╜≡╢ε+DG╜≡╢ε+╕¿┴╧╜≡╢ε+╞ß┴╧╜≡╢ε+═Γ╣║╝■╜≡╢ε+CLCY╜≡╢ε+╚╝┴╧╜≡╢ε+╢»┴ª╜≡╢ε+╣ñ╫╩╜≡╢ε+╕ú└√╜≡╢ε+CJ╛¡╖╤╜≡╢ε+╖╧╞╖╜≡╢ε+╣▄└φ╖╤╜≡╢ε
  25. endif
  26. use
  27. release all
  28. return
  29.  
  30.