d c. DO	CONV
È c.		Converts chracter, hex, and decimal data.
,c.
c.	Reads FOR005 for either type of data, and outputs to FOR006
ôc. all three forms.
Xc.
¼c. Prompt ==	'ch   0hex   integer=
 c.
„c. Input ==				'char
èc.					0hex
Lc.					decmal
°c.
c. program terminates on 0 input
xc.
Üc.-end.of.info-
@c.
¤c. Feb 02, 1980 -- Mike Liveright -- SCI
c.
l	byte input(10), numch, numbyt
Ð41	format( 132a )
4c.
˜100	continue
ü	write(6,41) '$''ch    0hex     integer= '
`		read( 5,41, end=900) input
Ä	c.
(
	ipos = 1
Œ
	ibase = 10
ð
	isign = 1
T	num = input(1)
¸c.
	if( input(1).eq.'-' ) then
€	  isign = -1
ä	  ipos = ipos+1
H	endif
¬c.
	numch = input(ipos)
t	if( numch.eq.'0' ) then
Ø	  ibase = 16
<	  ipos = 2
 	else if( numch.eq.'''' ) then
	  num = input(2)
h	  goto 300
Ì	else if( numch.lt.'0'
0	1	.or. (numch.gt.'9' .and. numch.lt.'A')
”	1	.or. (numch.gt.'F' .and. numch.lt.'a')
ø	1	.or. (numch.gt.'f' ) ) then
\	  goto 300
À	endif
$c.
ˆ	num = 0
ìc.
P200	continue
´	if( input(ipos).eq.' ' ) goto 300
	  idig = input(ipos)-'0'
|	  if( idig.ge.32 ) idig = idig-32
à	  if( idig.gt.9 ) idig = idig-7
D	  num = ibase*num+idig
¨	  ipos = ipos+1
	  goto 200
pc.
Ô300	continue
8	if( num.eq.0 ) goto 900
œc.
 	num = isign * num
d	numch = ' '
È	if( num.ge.'20'x .and. num .le. '7f'x ) numch = num
,	numhex = num.and.'0ffff'x
	write(6,310) numch, num, num
ô310	format( ' ''',a,z9,i )
X	goto 100
¼c.
 900	continue
„		end