Casio FP-200 - Page 107

--------------MATHEMATICS AND GEOMETRY.J
(Ul]J~rr]
1236 Bytes
"'""'"""'' ___ ..... .,.,... ... _____ 1111,, ................ ~,.,,,.,....,,. _________ _
10 '????????????????????????????????????????????
??????
20 '
30 · From basic arithmetics eperations in Hexade
cinal
40 by IY
a
50 '????????????????????????????????????????????
??????
60 CLEAR:DIM A${10) ,A(10) ,8$(20):DEFDBL T
70 FOR J ==0 TO 9
80 8$(J)=RIGHT$(STR$(J) ,1)
90 NEXT J
100 FOR J=65 TO 70
110 8$CJ-55)=CHR$(J)
120 NEXT J
130 CLS:PRINT
11
Please Calculate"
140 KS= I N•<EV$: IF •<$=
11 11
THEN 140
150
IF K$=C~R$(29) THEN A$(I)=MID$(AS(i),1,LEN(A$
(I))-1):PRINT CHR$(29);CHR$C32);CHR$(29); :GOTO 140
16121 IF KS=CHR$(13) THEN 22121
170 IF K$="+" ORK$="-" ORK$="*" ORK$="/" THEN
I=I+1:AS<I>=KS:I=I+1:GOTO 210
180 Z=ASC O<S >
190 IF Z<48 OR 2)57 AND Z<65 OR Z>70 THEN GOTO 14
200 A$(I)=A$(l)+K$
210 PRINT KS;.GOTO 140
220 FOR N=0 TO I STEP 2
230 GOSUB 430
24121 NEXT N
250 T=A (0)
260 FOR J=2 TO I STEP 2
27121 IF A$(J-1)="+" THEN T=T+A(Jl :GOTO 310
28(2) IF AS{J-1)="-" THEN T=T-A{Jl:GOTO 310
290 IF A$(J-1)="*" THEN T=T*A(J):GOTO 310
300 T=T/A(J)
310 NEXTJ
320 IF T<0 THEN T==ABS<T):X$="-":GOTO 340
330 XS=""
340 Y=FRAC(T/16)•16
119