Advertisement
- - - - - - - - - - - - - M A T H E M A T I C S 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+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
Advertisement
