|
|
1.1 root 1: screen_vertical
2:
3: Warren Montgomery, Version 4.4
4:
5: This macro makes vertical movements on the the screen. It works just
6: like ^N(^P) except that it tries to stay in the same collumn on the screen.
7:
8: ���= Record the screen column
9: ^��!�� Switch on the character to do.
10: �^���2~�Go to next line without doing ^N
11: ��equalize_line
12: � Initialize argument
13: �
14: �^���2~&�&Go to last line without doing
15: ��equalize_line
16: � Initialize argument
17: �
18: ���3~� Arg = arg * 4
19: �������End of condition portion
20: ����<
21: �
22: equalize_line
23:
24: This macro moves to the screen position equal to its argument in the
25: Current line or end of line if it isnt there.
26:
27: |���~�=���� Make sure that the current line is displayed.
28: ^��~�~�=~�0�
29: While not there, move forward
30:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.