0 PRINT"This is simply a full function calculator.  Use + to add, * to multiply, / to divide
1 PRINT"- to subtract, \ ([EXTRA] ©) to discard fractions and remainders, MOD to calculate
2 PRINT"remainder on division, also COS(x),SIN(x),TAN(x),ATN(x) is arctan,EXP(x),LOG(x) -
3 PRINT"natural logs,SQR(x) - square root,ROUND(x,d) rounds x to d decimal places,LOG10(x) is
4 PRINT"log to base 10.  There's others as well - try and see!
10 ON ERROR GOTO 1000:PRINT "calculate? ";:GOSUB 110
15 IF l$="" THEN GOTO 25000:END
20 OPEN "O",1,"M:$":PRINT #1,"65000 a="+l$+":return"
30 CLOSE:CHAIN MERGE "M:$.",40,ALL
40 ON ERROR GOTO 1000:GOSUB 65000:IF state=1 THEN state=0:GOTO 20:ELSE PRINT a:DELETE 65000,50
50 L$="":p=0:GOTO 10
100 '26.4.1989 : newinput.bas :ENTER showing l$(the answer):uses x$,y$,z$,l$,p and control codes inc ESC j & ESC k
110 p=0:x$=CHR$(27):WIDTH 255
120 y$=CHR$(1)+CHR$(6)+CHR$(127)+CHR$(7)
130 z$=INPUT$(1):ON INSTR(y$,z$) GOSUB 160,170,180,190:IF INSTR(y$,z$) GOTO 130
140 IF z$=CHR$(13) THEN PRINT:RETURN
150 l$=LEFT$(l$,p)+z$+MID$(l$,p+1):PRINT x$"j"MID$(l$,p+1)x$"k"x$"C";:p=p+1:GOTO 130
160 IF p>0 THEN p=p-1:PRINT x$"D";:RETURN ELSE PRINT CHR$(7);:RETURN
170 IF p<LEN(l$) THEN p=p+1:PRINT x$"C";:RETURN ELSE PRINT CHR$(7);:RETURN
180 IF p>0 THEN p=p-1:PRINT x$"D";:ELSE PRINT CHR$(7);:RETURN
190 l$=LEFT$(l$,p)+MID$(l$,p+2):PRINT x$"N";:RETURN
1000 IF ERL=65000 THEN PRINT "ERROR"ERR"! Please correct:":state=1:PRINT l$+CHR$(13);:RESUME 110
1010 ON ERROR GOTO 0
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&