home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
busi
/
rd10a.zip
/
FCTRL.LBM
< prev
next >
Wrap
Text File
|
1990-03-22
|
161b
|
19 lines
c
c
d=0
"Number whose factorial you wish to find"=
ALT-F3
1=
ALT-F4
0=
ALT-F7
IF F3>0 DO
F7+
1=
ALT-F7
F4*
F7=
ALT-F4
UNTIL F7=F3
"FACTORIAL"