Casio FP-200 - Page 116

rHEXADECIMAL CALCULATIONS----------------------.
120
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.