Advertisement
rCONVERSION BETWEEN BINARY, OCTAL, DECIMAL AND HEXADECIMAL-----
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
Advertisement
