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