Casio FP-200 - Page 114

rCONVERSION BETWEEN BINARY, OCTAL, DECIMAL AND HEXADECIMAL-----
114
600 •========== Decimal input
610 CLS:F'RINT "* Decimal ta 8/0/H *"
620 F'RINT "Decimal data(XXXXX>
11
630 INPUT " ", 0$
640 D=VAL(D$):IF D>65535 THEN 620
650
A=2:GOSUB 1200:8$=X$
660 A=8:GOSUB 1200:O$=X$
670 GOSUB 1300:HS=XS
680 CLS:PRINT "Dec: ";D!t,:F'RINT "Bin: ";B't;:r:·rnNT "De
t: " ; 0$: PR I NT "He:-: : " ; H$
690 GOTO 800
700 ·========== Hexadecimal input
710 CLS:PRINT " * H<2:< to 8/0/D -11-"
720 PR I NT "Hex d c1. ta (XX XX> "
730 INPUT
11
",H$:X$=H$
7 40 GOSUB 1100: IF ER=, l THEN 720
750 A=2:GOSUB 1200:BS=XS
760 A=8:GOSUB 1200:0$=X$
770 CLS:PRINT "He:<: ";H$:PRINT "Bin: ";8$
780 PRINT "Oct:";0$:PRINT "Dec:";D!f,
800 ·==========
81 Cll IF I NKEYt,=
11
"
THEN 81 CZl ELSE GOTO 200
1000 ·---------- 2/8 TO 10
1010 X=0:Y=1:ER=0
1020 FOR 1=1 TO LEN(X$)
1030 W=ASC <RIGf-lTt• ( X't·, I l) -48
1040 IF W(0 OR W>A-1 THEN ER~l:GOTO 1080
1050 X=X+W*Y:Y~Y*A
1060 NEXT I:IF X>65535 THEN ER=1:GOTO 1080
1070
D$=M ID$< STRS ( X > , 2) : D·'' X
1080 RETURN
1100 ·--------·-- 16 TO 10
1110 X=0:Y=1:ER=0
1120 FOR I=1 TO LEN(X$l
1130 W=ASC(RIGHT$1X$,l)l-4B
1140 IF W<0 OR W>=10 AND W<=16 OR W>22 THEN ER~l:G
OTO 119C?.l
1150 IF. W>112l THEN w,-:-,W-·7
1160 X=X+W*Y:Y=Y*16
1170 NEXT I: IF X >6:i:'535 THLN r::R,::1: GrJTU 11 c;0
1180 DS=MIDS(STR$(X) ,2):o~x
1. 1 90 F,ETLJF~N
1200 ·=========~ 10 TO 2/8
l.21C?.l X=D: Xt,,:,""
1220 Y=INTCX/A):W=X-Y*A:X=Y