RM
ET *X*
CA P#0#0 G0
TE *U HERE
TE R=T
TE S=U-1.
TE P=T
TE Q=S
*C LOOP
*COOP
*CLOOP
L A0
%Enter:(F10=Sel,text<Rtn>,arrows,F1=DoCmd,F2=EndCmdProc:%E" %\%
TE B0=41743810560.
DF B0:C0 [F20.1]
L C0
EV *U STRVL A0,1;5
TE *U STRVL A0,1;5
TE C0=%
L E0
EV %=DABS(B0-C0)
TE DABS(B0-C0)\H=%
TE *F NOTUP
L P#_PQ
CA G0 P#0#0
1
TE *U HERE
TE P=T
TE Q=U-1.
CA P#0#0 G0
DF P#0#0 ['>',F8.2]
TE %=1.
TE *F LOOP
*COTUP
*C NOTUP
*CNOTUP
TE B0=41750102016.
TE %=DABS(B0-C0)
TE *F NOTLFT
L P#_PQ
CA G0 P#0#0
3
TE *U HERE
TE P=T
TE Q=U-1.
CA P#0#0 G0
DF P#0#0 ['>',F8.2]
TE %=1.
TE *F LOOP
*C NOTLFT
*COTLFT
*CNOTLFT
TE B0=41748004864.
TE %=DABS(B0-C0)
TE *F NOTRGT
L P#_PQ
CA G0 P#0#0
4
TE *U HERE
TE P=T
TE Q=U-1.
CA P#0#0 G0
DF P#0#0 ['>',F8.2]
TE %=1.
TE *F LOOP
*C NOTRGT
*COTRGT
*CNOTRGT
TE B0=41745907712.
TE %=DABS(B0-C0)
TE *F NOTDWN
L P#_PQ
CA G0 P#0#0
2
TE *U HERE
TE P=T
TE Q=U-1.
CA P#0#0 G0
DF P#0#0 ['>',F8.2]
TE %=1.
TE *F LOOP
*C NOTDWN
*COTDWN
*CNOTDWN
TE B0=41729097728.
TE %=DABS(B0-C0)
TE *F NOTSEL
*U HERE
L D0
TE U=U-1.
E _@T0,U0
L P#_RS
ED ~~__{D0~
ED /*X*//
TE %=((P-R)*(P-R)+(Q-S)*(Q-S))
TE *F LOOP
CA P#_RS G0
TE %=1.
TE *F LOOP
*C NOTSEL
*COTSEL
*CNOTSEL
TE B0=41712320512.
TE %=DABS(B0-C0)
TE *F NOTENT
L P#_RS
ED /*X*//
CA G0 P#_PQ
TE %=1.
TE *F DONE
*C NOTENT
*COTENT
*CNOTENT
TE B0=41710223360.
TE %=DABS(B0-C0)
TE *F NOTDO
L A0
%Enter command>%%\%
TE %=1.
TE *F LOOP
*C NOTDO
*CNOTDO
*COTDO
L P#_RS
ED ~~__{A0~
ED /*X*//
TE %=((P-R)*(P-R)+(Q-S)*(Q-S))
TE *F LOOP
CA P#_RS G0
TE %=1.
TE *F LOOP
*C Get by keys. This procedure is meant to be mapped to a
*C key in AnalytiCalc (VAX version) to allow "key mode"
*C range locations. You can enter arrow keys, which will have
*C the desired effect of moving you around the sheet, or
*C bits of formulas, which will be entered (you should
*C terminate these by RETURN), or select (VT200 keypad)
*C to enter the "current" cell name into the formula,
*C or ENTER (on auxiliary keypad key) to terminate the
*C formula and enter it.
*C The DO key allows any AnalytiCalc command to be entered.
*C On Amiga, the F2 key works as enter, F1 as DO, and F10 as
*C select.
*CDONE
*C DONE
*CONE
L P#_RS
V
RI
