home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / ZGCH.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  308 b   |  15 lines
  1. SET TALK OFF
  2. IF GCH=' '
  3. STOR 0 TO SCH
  4. STOR 0 TO XCH
  5. ELSE
  6. STOR TRIM(GCH) TO GCH
  7. STOR SUBSTR(GCH,1,1) TO S
  8. IF S='k' .OR. S='m' .OR. S='n' .OR. S='p' .OR. S='r' .OR. S='s' .OR. S='t';
  9. .OR. S='u' .OR. S='v' .OR. S='x' .OR. S='y' .OR. S='z'
  10. DO \HOUSEM\PRG\ZGCH2
  11. ELSE
  12. DO \HOUSEM\PRG\ZGCH1
  13. ENDI
  14. ENDI
  15.