Category : Miscellaneous Language Source Code
Archive   : BRIEFSRC.ZIP
Filename : WSKB.M

;** WordStar Keyboard plus various additions
;** 10-12-84

(macro wskb
(
(assign_to_key "#7955" "left") ;;; ^s
(assign_to_key "#8196" "right") ;;; ^d
(assign_to_key "#7681" "previous_word") ;;; ^a
(assign_to_key "#8454" "next_word") ;;; ^f
(assign_to_key "#4613" "up") ;;; ^e
(assign_to_key "#11544" "down") ;;; ^x
(assign_to_key "#4882" "page_up") ;;; ^r
(assign_to_key "#11779" "page_down") ;;; ^c
(assign_to_key "#4113#4882" "top_of_buffer") ;;; ^q^r
(assign_to_key "#4113#11779" "end_of_buffer") ;;; ^q^c
(assign_to_key "#4113#8196" "end_of_line") ;;; ^q^d
(assign_to_key "#4113#7955" "beginning_of_line");;; ^q^s
(assign_to_key "#12054" "insert_mode") ;;; ^v
(assign_to_key "#5401" "delete_line") ;;; ^y
(assign_to_key "%#128" "parens_rt_lt") ;;; alt (
(assign_to_key "%#129" "parens_up_dn") ;;; alt )
(assign_to_key "#12558" "ws_open_line") ;;; ^n
(assign_to_key "#3711" "delete_previous_word") ;;; ^del
(assign_to_key "#5140" "delete_next_word") ;;; ^t
(assign_to_key "#4113#5401" "delete_to_eol") ;;; ^q^y
(assign_to_key "#8711" "delete_char_k") ;;; ^g
(assign_to_key "#9483#12290" "mark") ;;; ^k^b
(assign_to_key "#9483#9483" "copy") ;;; ^k^k
(assign_to_key "#9483#11779" "copy") ;;; ^k^c
(assign_to_key "#9483#12054" "cut") ;;; ^k^v
(assign_to_key "#9483#5401" "delete_block_k") ;;; ^k^y
(assign_to_key "#9483#4882" "read_file") ;;; ^k^r
(assign_to_key "#9483#4375" "write_buffer") ;;; ^k^w
(assign_to_key "#9483#8711" "paste") ;;; ^k^g
(assign_to_key "#9483#8196" "exit") ;;; ^k^d
(assign_to_key "#4113#8454" "kbd_fwd_search") ;;; ^q^f
(assign_to_key "#4113#7681" "translate") ;;; ^q^a
(assign_to_key "#9740" "search_again") ;;; ^l
(assign_to_key "#4113#6416" "next_paragraph") ;;; ^q^p
(assign_to_key "#4113#6159" "prev_paragraph") ;;; ^q^o
(assign_to_key "%#120" "center_window_line") ;;; alt 1
(assign_to_key "%#121" "to_top") ;;; alt 2
(assign_to_key "#6416" "quote_insert") ;;; ^p

)
)

(macro parens_rt_lt
(
(insert "()")
(left)
)
)

(macro parens_up_dn
(
(int prev_line
prev_col
)
(inq_position prev_line prev_col)
(insert "(\n")
(move_abs (+ prev_line 1) prev_col)
(insert ")")
(up)
)
)

(macro ws_open_line
(
(up)
(end_of_line)
(insert "\n") ;; will not work on line 1, this is first draft
)
)

(macro delete_char_k ;;; fixes mistake
(
(delete_char)
)
)

(macro next_paragraph
(
(search_fwd "<>")
(search_fwd "[~\n]")
)
)

(macro prev_paragraph
(
(search_back "<>")
(search_back "[~\n]")
(search_back "<>")
(search_fwd "[~\n]")
)
)

(macro quote_insert
(
(int character)
(string out_string)
(while (!(inq_kbd_char)))
(= character (read_char))
(sprintf out_string "%c" character)
(insert out_string)
)
)

(macro delete_block_k ;;; fix
(
(delete_block)
)
)