Hey.... REBOL [ title: "Calculator Program" author: "Duke Normandin" date: 30-March-2009 File: %myCalc.r version: 1.0.0 ] clrscrn: does [print "^(1B)[2J"] until [ clrscrn num1: ask "Enter the 1st number: " num2: ask "Enter the 2nd number: " op: ask "Enter an operator [+ - * /]: " op2: join ":" :op
print reform ["result 1: " (to-integer num1) op (to-integer num2)] ;NO JOY.... print reduce ["result 2: " op num1 num2] ; NO JOY...... print ["result 3: " op2 num1 num2] ; NO JOY...... confirm "Are you done? Y/N: " ] What's wrong _now_........? -- Duke Normandin A: Because it messes up the order in which people normally read text. Q: Why is top-posting such a bad thing? A: Top-posting. Q: What is the most annoying thing in e-mail? -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
