Lisp Utility Package#

General Information

Author: Datasoft
Language: LISP
Compiler/Interpreter: InterLisp/65

(RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)
(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 53770))) 65536)))
)
(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTAB Y) (TAB X)))
)
(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R))
)
(DEFINEQ TIME '(LAMBDA NIL (PROG (TIME HOURS MINUTES SECONDS) (SETQ TIME (INT (/ (+ (* (PEEK 18) 4048) (+ (* (PEEK 19) 256) (PEEK 20))) 60))) (SETQ HOURS (INT (SUB (/ TIME 3600) .5))) (SETQ MINUTES (INT (SUB (/ (SUB TIME (* 3600 HOURS)) 60) .5))) (SETQ SECONDS (SUB TIME (+ (* HOURS 3600) (* MINUTES 60)))) (COND ((> 10 HOURS) (PRIN1 0))) (PRIN1 HOURS) (PRIN1 (QUOTE :)) (COND ((> 10 MINUTES) (PRIN1 0))) (PRIN1 MINUTES) (PRIN1 (QUOTE :)) (COND ((> 10 SECONDS) (PRIN1 0))) (PRINT SECONDS) (RETURN TIME)))
)
(DEFINEQ MOD '(LAMBDA (X Y) (SUB X (* (INT (SUB (/ X Y) .5)) Y)))
)
(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X2 Y)))
)
(DEFINEQ VLIN '(LAMBDA (Y1 Y2 X) (PROGN (PLOT X Y1) (DRAW X Y2)))
)
(DEFINEQ REFLECT '(LAMBDA NIL (POKE 755 4))
)
(DEFINEQ NORMAL '(LAMBDA NIL (POKE 755 2))
)
NIL

Add new attachment

Only authorized users are allowed to upload new attachments.
« This page (revision-1) was last changed on 14-Mar-2010 13:18 by Carsten Strotmann