;;; -*- Mode: LISP; Syntax: Zetalisp; Package: ZETALISP-USER; Base: 10; -*-

(defun high-mouse-speed ()
  (aset 80. tv:mouse-x-scale-array 0)
  (aset (// (lsh 2 10.) 2) tv:mouse-x-scale-array 1)
  (aset #o17777777777 tv:mouse-x-scale-array 2)
  (aset (// (lsh 4 10.) 2) tv:mouse-x-scale-array 3)
  (aset 80. tv:mouse-y-scale-array 0)
  (aset (// (lsh 3 10.) 3) tv:mouse-y-scale-array 1)
  (aset #o17777777777 tv:mouse-y-scale-array 2)
  (aset (// (lsh 6 10.) 3) tv:mouse-y-scale-array 3))


(high-mouse-speed)