home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / CONE.PRG < prev    next >
Encoding:
Text File  |  1980-01-03  |  500 b   |  22 lines
  1. DO CASE
  2. CASE DGCH1="M.0" .OR. DGCH1="m.0"
  3. REPL DGCH1 WITH " 0  "
  4. CASE DGCH1="M.1" .OR. DGCH1="m.1"
  5. REPL DGCH1 WITH " 1  "
  6. CASE DGCH1="M.2" .OR. DGCH1="m.2"
  7. REPL DGCH1 WITH " 2  "
  8. CASE DGCH1="M.3" .OR. DGCH1="m.3"
  9. REPL DGCH1 WITH " 3  "
  10. CASE DGCH1="M.4" .OR. DGCH1="m.4"
  11. REPL DGCH1 WITH " 4  "
  12. CASE DGCH1="M.5" .OR. DGCH1="m.5"
  13. REPL DGCH1 WITH " 5  "
  14. CASE DGCH1="M.6" .OR. DGCH1="m.6"
  15. REPL DGCH1 WITH " 6  "
  16. ENDC
  17. STOR LL1 TO LL1
  18. IF LL1=0.00 
  19. REPL DGCH1 WITH "     "
  20. ENDIF
  21. RETURN
  22.