(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›