2 PRINT "Calculator."

3 C = C

4 PRINT "Type: E ( E = Exit) or + or - or X or /"

8 INPUT "Type one of the 5 options and press Enter ";X$

12 IF X$ = "E" THEN 500

30 IF X$ = "+" THEN 50

31 IF X$ = "-" THEN 60

32 IF X$ = "X" THEN 70

33 IF X$ = "/" THEN 80

35 GOTO 4

50 PRINT "Addition": GOTO 100

60 PRINT "Substraction": GOTO 200

70 PRINT "Multiplication": GOTO 300

80 PRINT "Division" : GOTO 400

90 REM Addition Routine

100 PRINT "Right now you have:": PRINT C

101 PRINT "Type a number"

102 PRINT "And press the Enter key"

104 INPUT "To use other function or to Exit enter 0 (Zero)"; A

106 IF A = 0 THEN 4

107 C = C + A

114 GOTO 100

200 REM Substraction Routine

201 PRINT "Right now you have:": PRINT C

202 PRINT "Type a number"

203 PRINT "And press the Enter key"

204 INPUT "To use other function enter 0 (Zero)"; A

206 IF A = 0 THEN 4

210 C = C - A

211 GOTO 201

290 REM Multiplication Routine

300 PRINT "Right now you have:": PRINT C

301 PRINT "Type a number"

302 PRINT "And press the Enter key"

304 INPUT "To use other function or to Exit enter 0 (Zero)"; A

306 IF A = 0 THEN 4

307 C = C * A

314 GOTO 300

390 REM Division Routine

400 PRINT "Right now you have:": PRINT C

401 PRINT "Type a number"

402 PRINT "And press the Enter key"

404 INPUT "To use other function or to Exit enter 0 (Zero)"; A

406 IF A = 0 THEN 4

407 C = C / A

414 GOTO 400

500 END

----------

See how long that code is?

I compacted it:

1 PRINT "Calculator."

2 C = C

3 PRINT "Type: E ( E = Exit) or + or - or X or /"

4 INPUT "Type one of the 5 opti....

[ More ]

]]>