Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- RANDOMIZE TIMER
- CLS
- COLOR 2: PRINT STRING$(80, "-")
- DO
- col = INT(RND * 15) + 1
- COLOR col
- INPUT "", a$
- IF a$ = "/quit" THEN EXIT DO
- a$ = a$ + " "
- i = 0
- b$ = ""
- c$ = ""
- d$ = ""
- op$ = ""
- DO UNTIL b$ = " "
- i = i + 1
- b$ = MID$(a$, i, 1)
- c$ = c$ + b$
- LOOP
- DO UNTIL b$ = "+" OR b$ = "-" OR b$ = "*" OR b$ = "/" OR b$ = "%" OR b$ = "^"
- b$ = MID$(a$, i, 1)
- i = i + 1
- op$ = b$
- LOOP
- DO UNTIL b$ = " "
- i = i + 1
- b$ = MID$(a$, i, 1)
- d$ = d$ + b$
- LOOP
- IF INSTR(c$, "sin") THEN c$ = STR$(SIN(VAL(RIGHT$(c$, LEN(c$) - 3))))
- IF INSTR(c$, "cos") THEN c$ = STR$(COS(VAL(RIGHT$(c$, LEN(c$) - 3))))
- IF INSTR(c$, "tan") THEN c$ = STR$(TAN(VAL(RIGHT$(c$, LEN(c$) - 3))))
- IF INSTR(d$, "sin") THEN d$ = STR$(SIN(VAL(RIGHT$(d$, LEN(d$) - 3))))
- IF INSTR(d$, "cos") THEN d$ = STR$(COS(VAL(RIGHT$(d$, LEN(d$) - 3))))
- IF INSTR(d$, "tan") THEN d$ = STR$(TAN(VAL(RIGHT$(d$, LEN(d$) - 3))))
- SELECT CASE op$
- CASE "+"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) + VAL(d$)
- CASE "-"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) - VAL(d$)
- CASE "*"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) * VAL(d$)
- CASE "/"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) / VAL(d$)
- CASE "%"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) MOD VAL(d$)
- CASE "^"
- PRINT VAL(c$);
- PRINT op$;
- PRINT VAL(d$)
- PRINT VAL(c$) ^ VAL(d$)
- END SELECT
- LOOP
- PRINT STRING$(80, "-")
- PRINT "Thanks for using our program!"
- PRINT ":3"
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement