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