home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d593 / analyrim.lha / AnalyRim / AnalyRIM.zoo / GetSel.Cmd < prev    next >
OS/2 REXX Batch file  |  1992-01-05  |  2KB  |  172 lines
  1. VM
  2. RM
  3. ET *X*
  4. CA P#0#0 G0
  5. TE *U HERE
  6. TE R=T
  7. TE S=U-1.
  8. TE P=T
  9. TE Q=S
  10. *C LOOP
  11. *COOP
  12. *CLOOP
  13. L A0
  14. VE
  15. %Enter:(F10=Sel,text<Rtn>,arrows,F1=DoCmd,F2=EndCmdProc:%E" %\%
  16. VM
  17. TE B0=41743810560.
  18. DF B0:C0 [F20.1]
  19. L C0
  20. EV *U STRVL A0,1;5
  21. TE *U STRVL A0,1;5
  22. TE C0=%
  23. L E0
  24. EV %=DABS(B0-C0)
  25. TE DABS(B0-C0)\H=%
  26. TE *F NOTUP
  27. L P#_PQ
  28. VE
  29. CA G0 P#0#0
  30. 1
  31. VM
  32. TE *U HERE
  33. TE P=T
  34. TE Q=U-1.
  35. CA P#0#0 G0
  36. VE
  37. DF P#0#0 ['>',F8.2]
  38. VM
  39. TE %=1.
  40. TE *F LOOP
  41. *COTUP
  42. *C NOTUP
  43. *CNOTUP
  44. TE B0=41750102016.
  45. TE %=DABS(B0-C0)
  46. TE *F NOTLFT
  47. L P#_PQ
  48. VE
  49. CA G0 P#0#0
  50. 3
  51. VM
  52. TE *U HERE
  53. TE P=T
  54. TE Q=U-1.
  55. CA P#0#0 G0
  56. VE
  57. DF P#0#0 ['>',F8.2]
  58. VM
  59. TE %=1.
  60. TE *F LOOP
  61. *C NOTLFT
  62. *COTLFT
  63. *CNOTLFT
  64. TE B0=41748004864.
  65. TE %=DABS(B0-C0)
  66. TE *F NOTRGT
  67. L P#_PQ
  68. VE
  69. CA G0 P#0#0
  70. 4
  71. VM
  72. TE *U HERE
  73. TE P=T
  74. TE Q=U-1.
  75. CA P#0#0 G0
  76. VE
  77. DF P#0#0 ['>',F8.2]
  78. VM
  79. TE %=1.
  80. TE *F LOOP
  81. *C NOTRGT
  82. *COTRGT
  83. *CNOTRGT
  84. TE B0=41745907712.
  85. TE %=DABS(B0-C0)
  86. TE *F NOTDWN
  87. L P#_PQ
  88. VE
  89. CA G0 P#0#0
  90. 2
  91. VM
  92. TE *U HERE
  93. TE P=T
  94. TE Q=U-1.
  95. CA P#0#0 G0
  96. VE
  97. DF P#0#0 ['>',F8.2]
  98. VM
  99. TE %=1.
  100. TE *F LOOP
  101. *C NOTDWN
  102. *COTDWN
  103. *CNOTDWN
  104. TE B0=41729097728.
  105. TE %=DABS(B0-C0)
  106. TE *F NOTSEL
  107. *U HERE
  108. L D0
  109. TE U=U-1.
  110. E _@T0,U0
  111. L P#_RS
  112. ED ~~__{D0~
  113. ED /*X*//
  114. TE %=((P-R)*(P-R)+(Q-S)*(Q-S))
  115. TE *F LOOP
  116. CA P#_RS G0
  117. TE %=1.
  118. TE *F LOOP
  119. *C NOTSEL
  120. *COTSEL
  121. *CNOTSEL
  122. TE B0=41712320512.
  123. TE %=DABS(B0-C0)
  124. TE *F NOTENT
  125. L P#_RS
  126. ED /*X*//
  127. CA G0 P#_PQ
  128. TE %=1.
  129. TE *F DONE
  130. *C NOTENT
  131. *COTENT
  132. *CNOTENT
  133. TE B0=41710223360.
  134. TE %=DABS(B0-C0)
  135. TE *F NOTDO
  136. VE
  137. L P#_RS
  138. %Enter command>%%\%
  139. VM
  140. TE %=1.
  141. TE *F LOOP
  142. *C NOTDO
  143. *CNOTDO
  144. *COTDO
  145. L P#_RS
  146. ED ~~__{A0~
  147. VE
  148. ED /*X*//
  149. TE %=((P-R)*(P-R)+(Q-S)*(Q-S))
  150. TE *F LOOP
  151. CA P#_RS G0
  152. TE %=1.
  153. TE *F LOOP
  154. *C Get by keys. This procedure is meant to be mapped to a
  155. *C key in AnalytiCalc (VAX version) to allow "key mode"
  156. *C range locations. You can enter arrow keys, which will have
  157. *C the desired effect of moving you around the sheet, or
  158. *C bits of formulas, which will be entered (you should
  159. *C terminate these by RETURN), or select (VT200 keypad)
  160. *C to enter the "current" cell name into the formula,
  161. *C or ENTER (on auxiliary keypad key) to terminate the
  162. *C formula and enter it.
  163. *C The DO key allows any AnalytiCalc command to be entered.
  164. *C On Amiga, the F2 key works as enter, F1 as DO, and F10 as
  165. *C select.
  166. *CDONE
  167. *C DONE
  168. *CONE
  169. L P#_RS
  170. V
  171. RI
  172.