home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / ZKGCH.PRG < prev   
Encoding:
Text File  |  1990-02-28  |  548 b   |  28 lines
  1. SET TALK OFF
  2. PUBL SCH,XCH
  3. STOR " " TO YN
  4. STOR .T. TO C
  5. DO WHIL C
  6. INPUT "╓▒╛╢=     " TO D
  7. ACCEP "╛½╢╚╙δ╣½▓ε┼Σ║╧: " TO GCH
  8. IF GCH=' '
  9. STOR 0 TO SCH
  10. STOR 0 TO XCH
  11. ELSE
  12. STOR TRIM(GCH) TO GCH
  13. STOR SUBSTR(GCH,1,1) TO S
  14. IF S='k' .OR. S='m' .OR. S='n' .OR. S='p' .OR. S='r' .OR. S='s' .OR. S='t';
  15. .OR. S='u' .OR. S='v' .OR. S='x' .OR. S='y' .OR. S='z'
  16. DO \HOUSEM\PRG\ZGCH2
  17. ELSE
  18. DO \HOUSEM\PRG\ZGCH1
  19. ENDI
  20. ENDI
  21. ?"╔╧╞½▓ε=     ",SCH
  22. ?"╧┬╞½▓ε=     ",XCH
  23. ACCEP "╝╠╨°▓Θ╤»╣½▓ε╖± (Y/N)?" TO YN
  24. IF UPPER(YN)="N"
  25. STOR .F. TO C
  26. ENDIF
  27. ENDDO
  28.