1  LET a=VAL "18": 
   LET b=VAL "9": 
   LET d=VAL "2": 
   LET z=NOT PI: 
   BORDER z: 
   PAPER z: 
   CLS
2  DEF FN g(n)=n-b*INT (n/b)=z
3  FOR f=z TO a: 
      FOR c=z TO a: 
         LET rc=FN g(c): 
         LET rf=FN g(f): 
         INK SGN PI+RND*VAL "6": 
         PRINT AT f+PI,c;("+" AND rf*rc)+("-" AND rf*NOT rc)+("!" AND rc*NOT rf);
               AT z,c+PI;("+" AND rc)+("-" AND NOT rc);
               AT SGN PI,c+d;"/" AND rc;
               AT d,c+SGN PI;"/" AND rc;
               AT f,VAL "21";("+" AND rf)+("!" AND NOT rf);
               AT f+SGN PI,VAL "20";"/" AND rf;
               AT f+d,VAL "19";"/" AND rf;
               AT VAL "11",VAL "8";CHR$ VAL "92"+"o/": 
      NEXT c: 
   NEXT f: 
   PRINT AT VAL "20",d;"Merry Christmas!": 
   GO TO PI
