10 let f = 1
20 print "factorial"
30 input "enter an integer (1-34): ", n
40 rem loop
60 let f = f * n
70 let n = n - 1
80 if n > 0 then 40
90 print f
100 shell "pause"