print (list :m "X :n "= :m*:n)
make "n :n+1
if :n>9 [make "n 1]
]
make "m :m+1
]
end

to prime :a
print 2
make "b 3
make "c :a-:b+1

repeat :c[
make "d 2
make "e :b-:d
make "f 0

repeat :e[
make "g remainder :b :d
ifelse :g=0 [make "e -1][make "d :d+1 make "f :f+1]
]
if :e=:f [print :b]
make "b :b+1
]
end

TO AAA
CLOCK
END

TO CLOCK
CS
HT
DRAWFACE
MAKE "SEC 0
MAKE "MIN 0
MAKE "HOUR 0
PLOTTIMEHOUR :HOUR
PLOTTIMEMIN :MIN
PLOTTIMESEC :SEC
SETTIMER 1 1000 [UPDATE]
END

TO DRAWFACE
SETHEADING 30
PU
REPEAT 12 ~
[~
FD 120 ~
SETX XCOR-12 ~
SETY YCOR+12 ~
MAKE "SH HEADING
SETHEADING 90
LABEL REPCOUNT ~
SETHEADING :SH
SETX XCOR+12 ~
SETY YCOR-12 ~
BK 120 ~
RT 30 ~
]
END

TO GETTIME
MAKE "THETIME TIME
MAKE "THETIME BUTFIRST :THETIME
MAKE "THETIME BUTFIRST :THETIME
MAKE "THETIME BUTFIRST :THETIME
MAKE "THETIME FIRST :THETIME
MAKE "THETIME PARSE MAP "OO :THETIME
OUTPUT :THETIME
END

TO OO :A
IFELSE EQUALP ": :A [OUTPUT CHAR 32] [OUTPUT :A]
END

TO PLOTTIMEHOUR :HOUR
PENREVERSE
SETPENSIZE [5 5]
SETHEADING :HOUR*30
PD
FD 50
PU
BK 50
END

TO PLOTTIMEMIN :MIN
PENREVERSE
SETPENSIZE [2 2]
SETHEADING :MIN*6
PD
FD 100
PU
BK 100
END

TO PLOTTIMESEC :SEC
PENREVERSE
SETPENSIZE [1 1]
SETHEADING :SEC*6
PD
FD 100
PU
BK 100
END

TO UPDATE
MAKE "THETIME GETTIME
MAKE "NHOUR FIRST :THETIME
MAKE "THETIME BUTFIRST :THETIME
MAKE "NMIN FIRST :THETIME
MAKE "THETIME BUTFIRST :THETIME
MAKE "NSEC FIRST :THETIME
PLOTTIMESEC :SEC
IF NOT EQUALP :MIN :NMIN~
[~
PLOTTIMEMIN :MIN ~
IF NOT EQUALP :HOUR :NHOUR~
[~
PLOTTIMEHOUR :HOUR ~
PLOTTIMEHOUR :NHOUR ~
]~
PLOTTIMEMIN :NMIN ~
]
PLOTTIMESEC :NSEC
MAKE "HOUR :NHOUR
MAKE "MIN :NMIN
MAKE "SEC :NSEC
END

TO ZZZ
IFELSE YESNOBOX [WELCOME] [CHOOSE YES TO RUN EXAMPLE NOW, CHOOSE NO STUDY IT NOW.] [AAA] [EDALL]
END

MAKE "STARTUP [ZZZ]