0 'D-H-D By Phil Wheeler
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 ONERRORGOTO10:CLS:PRINT@88,"Number Conversion Program":PRINT@280,"               D->H H->D           Menu";:KEY(4)ON:KEY(5)ON:KEY(8)ON
3 ONKEYGOSUB,,,11,18,,,10:A3$=INKEY$:IFA3$=CHR$(13)THEN10ELSEGOTO3
4 '
5 '
6 '>>>>>RUN WITH CAPS LOCKED<<<<<
7 '     (Delete lines 2 - 7)
8 '
9 '
10 MAXFILES=0:CLEAR:DATE$=LEFT$(DATE$,6)+"84":MENU
11 CLS
12 H$="0123456789ABCDEF":N$="":PRINT@80,"DEC INPUT ";:INPUTN$:IFN$=""THEN2
13 N=VAL(N$):X$="":J=4
14 P=16^(J-1):FORI=1TO16:IFN-I*P<0THEN16
15 NEXT:GOTO23
16 X$=X$+MID$(H$,I,1):N=N-(I-1)*P:J=J-1:IFJ>0THEN14
17 CLS:PRINT@160,N$;" DECIMAL IS ";X$;" HEX":GOTO12
18 CLS
19 H$="0123456789ABCDEF":N$="":PRINT@80,"HEX INPUT";:INPUTN$:IFN$=""THEN2
20 J=1:L=LEN(N$):IFL<1THEN23ELSEIFL>4THEN23
21 FORI=1TO4:O(I)=0:NEXT:FORI=5-LTO4:O(I)=ASC(MID$(N$,J,1))-48:IFO(I)>22THEN23ELSEIFO(I)>9THENO(I)=O(I)-7
22 J=J+1:NEXT:O=4096*O(1)+256*O(2)+16*O(3)+O(4):CLS:PRINT@160,N$;" IS";O;"DECIMAL":GOTO19
23 CLS:PRINT@129,">>>> INPUT ERROR <<<<":FORI=1TO500:NEXT:GOTO2