home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / KEYGCH.PRG < prev    next >
Encoding:
Text File  |  1988-06-03  |  541 b   |  28 lines
  1. SET TALK ON
  2. INPUT ' ╝ⁿ╚δ╗¿╝ⁿ┼Σ║╧╛½╢╚ : 1)╛½├▄╝╢ , 2)╥╗░π╝╢ , 3)╜╧┤╓╝╢ ' TO Z1
  3. INPUT ' ╝ⁿ╚δ╗¿╝ⁿ┼Σ║╧└α╨═: 1)╣╠╢¿┼Σ║╧ , 2)╗¼╢»┼Σ║╧ , 3)╜╧╦╔╗¼╢»┼Σ║╧'TO Z2
  4. SET TALK OFF
  5. DO CASE
  6. CASE Z1=1.AND.Z2=1
  7. STOR 'JG' TO CHX
  8. CASE Z1=1.AND.Z2=2
  9. STOR 'JH1' TO CHX
  10. CASE Z1=1.AND.Z2=3
  11. STOR 'JH2' TO CHX
  12. CASE Z1=2.AND.Z2=1
  13. STOR 'G' TO CHX
  14. CASE Z1=2.AND.Z2=2
  15. STOR 'H1' TO CHX
  16. CASE Z1=2.AND.Z2=3
  17. STOR 'H2' TO CHX
  18. CASE Z1=3.AND.Z2=1
  19. STOR 'ZG' TO CHX
  20. CASE Z1=3.AND.Z2=2
  21. STOR 'ZH1' TO CHX
  22. CASE Z1=3.AND.Z2=3
  23. STOR 'ZH2' TO CHX
  24. ENDC
  25. RETURN
  26.  
  27.  
  28.