LN.bas

10:CLS: INPUT "ARGUMENT ="; X
20:PRINT "LOGARITHM TO BASE"
30:PRINT "e IS:"; LN (X)
40:INPUT "FURTHER CALCULATION Y/N:"; A$
50:IF A$ = "Y" THEN 10
60:END