home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / QSTRS.CCC < prev    next >
Encoding:
Text File  |  1993-04-27  |  596 b   |  36 lines
  1. %qstrs.ccc
  2. * query stairs limits, nested
  3. :a
  4. ascii c100 r13
  5. if r13 eq 32 :b
  6. mess illegal command, use \GEOM first !
  7. getwe
  8. goto :a
  9. :b
  10. resoff
  11. r13=1
  12. i50=1
  13. ovl filprm
  14. i50=0
  15. ovl ermes
  16. ascii c209 r7
  17. if r7 eq 110 :n
  18. if r7 eq 114 :r
  19. if r7 eq 116 :t
  20. mess illegal parameter, query rise, tread or no. of steps
  21. getwe
  22. goto :E
  23. :n
  24. mess limits of no. are: Min.: #x4 , Max.: #y4 (2H+B= #x1 - #y1 )
  25. getw
  26. goto :E
  27. :r
  28. mess limits of rise are: Min.: #x2 , Max.: #y2 (2H+B= #x1 - #y1 )
  29. getw
  30. goto :E
  31. :t
  32. mess limits of tread are: Min.: #x3 , Max.: #y3 (2H+B= #x1 - #y1 )
  33. getw
  34. :E
  35. resume
  36.