home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / JXL.PRG < prev    next >
Encoding:
Text File  |  1990-03-14  |  1.5 KB  |  64 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) 5G  2) 6G  3) 7G  4) 4H  5) 5H  6) 6H  7) 7H           *'
  13. ? '*************************************************************'
  14. CASE LWLB=2
  15. CLEAR
  16. ? '*************************************************************'
  17. ? '* 8) 6e  9) 6f  10) 5g  11) 6g  12) 7g  13) 8g  14) 3h      *'
  18. ? '*15) 4h  16) 5h  17) 6h  18)7h  19) 8h                      *'
  19. ? '*************************************************************'
  20. ENDC
  21. INPUT '╟δ╩Σ╚δ┬▌╬╞╡─╛½╢╚: ' TO LWJD
  22. SET TALK OFF
  23. DO CASE
  24. CASE LWJD=1
  25. STOR '5G' TO DGCH
  26. CASE LWJD=2
  27. STOR '6G' TO DGCH
  28. CASE LWJD=3
  29. STOR '7G' TO DGCH
  30. CASE LWJD=4
  31. STOR '4H' TO DGCH
  32. CASE LWJD=5
  33. STOR '5H' TO DGCH
  34. CASE LWJD=6
  35. STOR '6H' TO DGCH
  36. CASE LWJD=7
  37. STOR '7H' TO DGCH
  38. CASE LWJD=8
  39. STOR '6e' TO DGCH
  40. CASE LWJD=9
  41. STOR '6f' TO DGCH
  42. CASE LWJD=10
  43. STOR '5g' TO DGCH
  44. CASE LWJD=11
  45. STOR '6g' TO DGCH
  46. CASE LWJD=12
  47. STOR '7g' TO DGCH
  48. CASE LWJD=13
  49. STOR '8g' TO DGCH
  50. CASE LWJD=14
  51. STOR '3h' TO DGCH
  52. CASE LWJD=15
  53. STOR '4h' TO DGCH
  54. CASE LWJD=16
  55. STOR '5h' TO DGCH
  56. CASE LWJD=17
  57. STOR '6h TO DGCH
  58. CASE LWJD=18
  59. STOR '7h' TO DGCH
  60. CASE LWJD=19
  61. STOR '8h' TO DGCH
  62. ENDC
  63. SET TALK OFF
  64.