a # 1 61 R ' r#base dec q;Lio;p;s ' a # a,[1] ' q#(s#q^=''-'')/q#(p#q^=''.'')/q ' a # a,[1] ' ''character error''escape~&/qEbaseYr#`d`i`g`i`t`s ' a # a,[1] ' r#(1_2X0Es)X(base*_0S-1++/V\~p)XbaseBrIq,ILio#0 ' a # a,[1] ' $0 ' a # a,[1] '"dec - convert to decimal ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"-character vectors belonging to the global `d`i`g`i`t`s, ' a # a,[1] '" ''-.'' representing scalar numbers in any base, will seem ' a # a,[1] '" to be converted to their decimal values, with which ' a # a,[1] '" ordinary calculations can be made. ' a # a,[1] '"-. will be understood as separating the integer portion ' a # a,[1] '" from any possible fraction. fractions will be closely ' a # a,[1] '" approximated. integers will be exact, unless they are ' a # a,[1] '" forced to float. ' a # a,[1] '"-arithmetic results can be converted to other bases through ' a # a,[1] '" use of Gconv. ' a # a,[1] '"-`d`i`g`i`t`s will support bases 2KbaseK36. ' a # a,[1] '"-uses: Gescape ' Lfx a