OPTION ARITHMETIC NATIVE
DEF agl(p,w)=PI/2-2*PI*p/12+(w-1)*PI/6
SET WINDOW -5.2,5.2,-5.2,5.2
FOR j=1 TO 12
   FOR i=1 TO 12
      LET th=agl(i,j)
      PLOT TEXT ,AT COS(th),SIN(th): STR$(i)
   NEXT i
   WAIT DELAY 2
   SET DRAW MODE Hidden
   CLEAR
   SET DRAW MODE Explicit
NEXT j
FOR i=1 TO 12
   LET th=agl(i,1)
   PLOT TEXT ,AT COS(th),SIN(th): STR$(i)
NEXT i
END