Casio FP-200 - Page 113

--------------MATHEMATICS AND GEOMETRYJ
tlJilJ~lTJ 2210 Bytes
ltelftllttllttlttl9ftfffllllltfllllfflllllllf+fllllltlttlll1111tflt ... llllNN1111ttll ....................................... , ... ltllllll111 ....... , .. ,. ... • II I I l I I 11111111111 I J 1114
1.00
11 C7.l CLC:Ar:;: 1024
1.20
130 CLS:PRINT
140 PRINT "Convf~rsion betwec-:~n bir1ary,octal ,d1:1cim
aland tH~:-:ad0?cimal nurn--b~~t·s.
l. 50 IF I Nf:::EY;,c::
11 11
THEN 150
2(7.J(i'J
210 CLS:PRINT
220 F'RINT
II
INF'UT BJ Binar·y"
230 PRINT" OJ Oct.al"
2"1-0 PRINT " DJ Decimal"
250 PRINT " HJ He:-:adecimal
11
260 PRINT "si'?lect B/O/D/H
11
270 Z$=:=INf<EV$: Ir- Z<f,=="D" OR Z$=
11
b
11
THEN 400
2f.30 IF Z$==
11
O
11
OR Z$="a" THEN 500
290 IF Z$==
11
D
11
OR 21,="d" THEN 600
300 IF Z$::.:"H" OR Z$="h" THEN 700
310 GOTO 270
400 ·---------- binary input
410 CLS:F'RINT "* Binary to 0/0/H *"
420 PRINT "Binary data"
430 F'RINT " (XXXXXXXXXXXXXXXX>"
440 INF'UT
11
",8$:X$=8$
450 A=2:GOSUB 1000:IF ER=l THEN 420
460 A=8:GOSUB 1200:O$=X$
470 GOSUB 1300:H$=X$
480 CLS:PRINT "Bin:";Bf,:PRINT "Oct:";0$:PRINT "De
c::
11
; 0$: PR I NT "He:< :
11
; H$
490 GOTO 800
500 ·---------- Octal input
510 CLS: PRINT "-11· Octal to 8/D/H -11·"
520 PRINT "Octal data (XXXXXX)"
530 INPUT" ",O$:X~•=O$
540 A=B:GOSUB 1000:IF ER=l THEN 520
550
A=2:GOSUB 1200:B$=X$
560 GOSUB 1300:H$=X$
570 CLS:F'RINT "Oct: ";0$:PRINT "Bin: ";8$
580 PRINT "Dec: ";D$:PRINT "He:-:: ";H'f>
590 GOTO 800
113