-4Hà ¼½>F >ÿÿÿÿ~ØôÉd3 ¡ ********************************************** n3 ¡ * * x3 ¡ * Base Converter version 1.0 * ‚3 ¡ * 10 February 1989 * Œ3 ¡ * * –3 ¡ * version 1.1 changes: ability to specify *  3 ¡ * source bases other than base 10 * ª3 ¡ * 27 april 1989 * ´3 ¡ * * ¾3 ¡ ********************************************** È ¡ Ò ¡ Ü · æ3 ¤ 14: Z7$="0123456789abcdefghijklmnopqrstuvwxyz" ðN ± 1,1: ƒ [A64 45]: ± 1,4: ƒ [A64 45]: ± 1,9: ƒ [A64 61]: ± 1,11: ƒ [A64 61] ú4 ± 14,13: ƒ "Ducksoft Base Converter version 1.11" 3 ± 14,14: ƒ "{+} to change conversion parameters"  ± 26,15: ƒ " to quit" ( ± 1,2: ¯: ƒ " Source base (2 to 36) " ". ± 32,2: ƒ " Destination base (2 to 36) ": ª ,$ ± 10,3: ƒ [A5 32][A5 8];: – ""; S 6 „ S<2 ´ S>36 ‰ 300 @$ ± 41,3: ƒ [A5 32][A5 8];: – ""; D J „ D<2 ´ D>36 ‰ 320 T ± 1,5: ƒ [A63 32][A63 8]; ^7 – "Enter number to convert (not less than zero)";N1$ h „ N1$="+" ‰ 280 r „ N1$="" ‰ ·: ‘ | N0=0: Š I=1 ™ À(N1$) † X=Á(Z7$,N1$(;I,I))  „ X<1 ´ X>S ‰ ‹*I 340 š N0=N0*Í(S)+Í(X-1) ¤ ‹ I ®; ± 1,10: ƒ [A63 32][A51 8];N1$;" base";S;" converts to "; ¸ Z6$="": S0=Í(D)  N1=N0/S0: N0=N1-Ð(N1) Ì0 N1=Ð(N1)*S0+.5: Z6$=Z7$(;¼(N1+1),¼(N1+1))+Z6$ Ö „ N0>0 ‰ 450 à ƒ Z6$;" base"D"." ê 340 ÿÿbas