|
|
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.