Now I have another #Interlisp question:
I have:
(DEFINEQ (PLOT-FN (FN SX SY C W)
(MOVETO 0 (CADR C))
(DRAWTO 200 (CADR C))
(MOVETO (CAR C) 0)
(DRAWTO (CAR C) 200)
(LET* ((L1 (MAPCAR (IOTA 50)
(FUNCTION
(LAMBDA (N)
(TIMES 200 (QUOTIENT (SUB1 N) 50)))))
;; to be continued (1/n)