1  LET a=VAL "18": 
   LET b=VAL "9": 
   FOR f=NOT PI TO a: 
      FOR c=NOT PI TO a: 
         LET rc=c-b*INT (c/b)=NOT PI: 
         LET rf=f-b*INT (f/b)=NOT PI: 
         PRINT AT NOT PI,VAL "8";CHR$ VAL "92"+"o/";
               AT f+SGN PI,c;("+" AND rf*rc)+("-" AND rf*NOT rc)+("!" AND rc*NOT rf): 
      NEXT c: 
   NEXT f
