53280,0:53281,0:""I:::(142)" THE CALCULATOR"j" "{(X11000:X2:" BY: CHRIS MURRAY"<X11500:XF:"  1110 ROCKCREST DRIVE"ZX1500:X \"  MARIETTA, GA 30062" _X11500:XC a" MODIFIED BY: JIM TUVERSON"v d"THIS PGM WILL ADD, SUBTRACT, MULTIPLY" nX1500:X x"AND DIVIDE!" }370 X14000:X 53280,0:53281,0 "THE CALCULATOR" "" "F1 FOR HELP"0 "E FOR EXPONENTS"M "A FOR AN AVERAGE"c "Q TO QUIT" "PRESS ANY KEY TO ENTER YOUR FIRST NUMBER" F$:F$""190 F$(133)1000 F$(69)1080 F$(65)1140 F$(81)9900 N+ :"PLEASE ENTER:":X1500:XQ " A FOR ADDITION":X1500:Xz " S FOR SUBTRACTION":X1500:X " M FOR MULTIPLICATION":X1500:X " D FOR DIVISION":X1500:X  S$:S$""270 1230 S$(65)RLN "S$(83)RLN' ,S$(68)RLN; 6S$(77)RLNX @:"YOUR ANSWER IS: "Rh JX1500:X T:" HIT [RETURN] TO CONTINUE":U$ ^ 170 h r::"OTHER FEATURES: EXPONENTS & AVERAGING":X1500:X |  ""4 :::"* IF YOU ARE DIVIDING THEN THIS SHOULD"d " BE THE NUMBER YOU ARE DIVIDING INTO..."t X1500:X "* IF YOU ARE SUBTRACTING THEN THIS" " SHOULD BE THE TOP NUMBER..." X1500:X"* IF YOU ARE ADDING OR MULTIPLYING"*" IT DOESN'T MAKE A DIFFERENCE!":X1500:Xh$:" HIT [RETURN] TO CONTINUE";A$v."":1708 *********** EXPONENTS ********B"PLEASE ENTER WHOLE NUMBER";LW:"PLEASE ENTER EXPONIT NUMBER";VE:ZWE:"THE ANSWER IS:"Z@`:::" [RETURN] TO CONTINUE":Y$Oj"":170tt *********** AVERAGE **********~"HOW MANY NUMBERS ";:BC1B"ENTER NUMBER # ";C"":D(C):SU0C1B:SUSUD(C)::"AVERAGE=";SUB6::" HIT [RETURN] TO CONTINUE":JE"":170j ********* CALCULATIONS *******:"PLEASE ENTER THE LAST NUMBER"L:H&&:"OK, BYE! LET'S CALULATE AGAIN SOMETIME!!":X12000:X&:""'