home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / JXL1.PRG < prev    next >
Encoding:
Text File  |  1990-03-14  |  1.1 KB  |  41 lines
  1. SET TALK ON
  2. CLEAR
  3. ? '*************************************************************'
  4. ? '* 1) ─┌┬▌╬╞                                                 *'
  5. ? '* 2) ═Γ┬▌╬╞                                                 *'
  6. ? '*************************************************************'
  7. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─└α▒≡: ' TO LWLB
  8. DO CASE
  9. CASE LWLB=1
  10. CLEAR
  11. ? '*************************************************************'
  12. ? '* 1) 7H  2) 8H  3) 9H                                       *'
  13. ? '*************************************************************'
  14. CASE LWLB=2
  15. CLEAR
  16. ? '*************************************************************'
  17. ? '* 4) 8c  5) 9c  6) 8e  7) 9e  8) 7h                         *'
  18. ? '*************************************************************'
  19. ENDC
  20. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─╛½╢╚╡─╤í╘±: ' TO LWJD
  21. SET TALK OFF
  22. DO CASE
  23. CASE LWJD=1
  24. STOR '7H' TO DGCH
  25. CASE LWJD=2
  26. STOR '8H' TO DGCH
  27. CASE LWJD=3
  28. STOR '9H' TO DGCH
  29. CASE LWJD=4
  30. STOR '8c' TO DGCH
  31. CASE LWJD=5
  32. STOR '9c' TO DGCH
  33. CASE LWJD=6
  34. STOR '8e' TO DGCH
  35. CASE LWJD=7
  36. STOR '9e' TO DGCH
  37. CASE LWJD=8
  38. STOR '7h' TO DGCH
  39. ENDC
  40. SET TALK OFF
  41.