LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032665. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "AST" :NAME "WORM-FONT" :DIRECTORY ("REL3-PUBLIC" "PUBLIC" "GRAPHICS-DEMO") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-PUBLIC\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2753213916. :AUTHOR "REL3" :LENGTH-IN-BYTES 1034. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0 KSTID SI: PUBLIC.DEMO; WORM-FONT.AST#>9 HEIGHT9 BASE LINE0 COLUMN POSITION ADJUSTMENT2 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>7 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERN          **    ****  ****** ****** ******  ****    **         3 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>7 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERN          *     * *   * * *   * * * * * *   * *     *          4 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>7 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERN          **          ******        ******          **         5 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>8 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERN  ****   ****** **************************************** ******   ****  7 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>6 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERN         *    *        *  * *  *        *    *        40 CHARACTER CODE SI: PUBLIC.DEMO; WORM-FONT.AST#>0 RASTER WIDTH10 CHARACTER WIDTH0 LEFT KERNFPARAMETER WORM-BIG-CHAR 5)(DEFPARAMETER WORM-STRIPE-CHAR 4)(DEFPARAMETER WORM-GRAY-CHAR 3)(DEFPARAMETER WORM-BLACK-CHAR 2);This is a 6-long array of stack groups,;each of which runs one worm.(DEFVAR WORMS(LET ((ARRAY (MAKE-ARRAY 6 :TYPE 'ART-Q-LIST)))  (DO ((I 0 (1+ I))) ((>= I 6))      (setf (aref ARRAY I) (MAKE-STACK-GROUP (FORMAT NIL "WORM-~D" I))))  ARRAY))(DEFUN PRESET (SG CHAR ALU-FN N)       (STACK-GROUP-PRESET SG   (FUNCTION FLOP)   (SYMBOL-VALUE CHAR)   (SYMBOL-VALUE ALU-FN)   ORDER   WORM-X   WORM-Y   BITS   (* N (EXPT 3 (1- ORDER)))   *TERMINAL-IO*   SYS:%CURRENT-STACK-GROUP))(DEFUN WORM (&OPTIONAL (BITS 0) (ORDER 7) (WORM-X 146.) (WORM-Y 511.)      &AUX LENGTH *TERMINAL-IO*)  (setf worm-window nil)   ;; to temporarily fix VERY strange bug about function NIL being undefined. -- dilip.  (When (OR (NULL WORM-WINDOW)    (NEQ TV:DEFAULT-SCREEN (SEND WORM-WINDOW :SUPERIOR)))    (SETF WORM-WINDOW (TV:MAKE-WINDOW 'HOF-WINDOW 