I'm an old keyboard junkie...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Permission to reuse, share, post, copy, borrow, steal, or
;;; generally do with it whatever you wish is hereby granted.
;;; Like that would make a lot of difference anyway.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ucr () (command ".UCS" "w" ".UCS" "3" "0,0,0" "0,1,0" "0,0,1"))
(defun c:ucb () (command ".UCS" "w" ".UCS" "3" "0,0,0" "-1,0,0" "0,0,1"))
(defun c:ucl () (command ".UCS" "w" ".UCS" "3" "0,0,0" "0,-1,0" "0,0,1"))
(defun c:ucf () (command ".UCS" "w" ".UCS" "x" "90"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ucx9 () (command ".UCS" "x" "90"))
(defun c:ucy9 () (command ".UCS" "y" "90"))
(defun c:ucz9 () (command ".UCS" "z" "90"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ucx () (command ".UCS" "x"))
(defun c:ucy () (command ".UCS" "y"))
(defun c:ucz () (command ".UCS" "z"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:uco () (command ".UCS" "O"))
(defun c:ucp () (command ".UCS" "p"))
(defun c:ucv () (command ".UCS" "V"))
(defun c:ucw () (command ".UCS" "W"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;