beginning: CLS SCREEN 7, 15 COLOR 1, 15 PRINT "MiniCalc, by Martin VandenHurk" PRINT "Add Subtract Multiply Divide 2 numbers." PRINT "Enter your expression like this: 12+2" PRINT " 25-1" PRINT " 60*3" PRINT " 99/3" PRINT "Try it!" PRINT LOCATE 6, 27: PRINT "Enter q to quit" INPUT "Enter your sum: "; fullmathexpression$ IF fullmathexpression$ = "q" THEN CLS : PRINT "GoodBye": SLEEP 1: END xx = LEN(fullmathexpression$) fpart = VAL(fullmathexpression$) x$ = STR$(VAL(fullmathexpression$)) yy = LEN(x$) spart$ = RIGHT$(fullmathexpression$, xx - yy) spart = VAL(spart$) operator$ = MID$(fullmathexpression$, yy, 1): REM math symbol IF operator$ = "+" THEN PRINT fpart + spart IF operator$ = "-" THEN PRINT fpart - spart IF operator$ = "*" THEN PRINT fpart * spart IF operator$ = "/" THEN PRINT fpart / spart DO WHILE INKEY$ = "" LOOP GOTO beginning