| FACTOR'L.UTL |
| COPYRIGHT 1990 BY DAVID W. DENKER |
Z''=INFO:z'''=int((z''-int(z''/10000)*10000)/1000)
if z'''=0}1
DSP N" SORRY, THIS FILE CAN ONLY BE RUN ON MATH EXTRA!"N
WAIT5:QUIT
#1
TITLE= FACTORIAL PROGRAM 
HEAD ; Enter value for Factorial, or hit ESC to quit. ;
i=.1
dsp n:i=inp:if i=.1}q:if i-int i<>0}5
x'''=i:y'''=i:xoff:digr0:digl3:if y'''=0}}y'''=1
#2
if x'''<2}4:y'''=y'''*(x'''-1):x'''=x'''-1:goto2
#4
head ; A'=answer, Hit "A" for another Factorial, else quit! ;
a'=y''':dsp n(i);! = ;:digl14:xon:dsp(y''')n:goto6
#5
head ; Hit "A" for another Factorial, else quit! ;
dsp n; *** ERROR, not a whole number or is negative! *** ;n:beep
#6
i=kyin:if i=65}1:if i=97}1