Advertisement
rHEXADECIMAL C A L C U L A T I O N S - - - - - - - - - - - - - - - - - - - - - - .
121
3:i0
C$=8$(Y)+C$
360 T=T-Y
370 T=INT
<T /
16)
380 IF T>15 THEN 34121
390 C$=8$(T)+C$
400
F'RINT "=";X$;C$
410 IF" "==INf:::EY$ THEN 6121
420 GOTO 41121
430 L=LENCA$(N))
440 FOR M=l TO L
450 0$=MID$(A$(N) ,M,1>
460
IF D$>="0"
AND
D$=< "9"
THEN V=VAL
(0$):
GOTO 48
47121 V=ASC(D$)-55
480 A(N)=A(N)+V*16A(L-M)
490 NEXT M
500
RETURN
[DEBUG
I
In this program, all input data is first converted into decimal data for computa-
tion and the result obtained is then recoverted into the appropriate hexadecimal
data for display. If an error occurs during computation, check lines 270 to 300.
Advertisement
