a # 1 60 R ' r#base conv dec;Lio ' a # a,[1] ' Lio#0 ' a # a,[1] ' `d`i`g`i`t`s#''0123456789abcdefghijklmnopqrstuvwxyz'' ' a # a,[1] ' r#'' ''dl'' -''[dec<0],''0''dl `d`i`g`i`t`s[base encD|dec] ' a # a,[1] ' r#r,base confrac dec ' a # a,[1] ' $0 ' a # a,[1] '"conv - convert decimal values to any base ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"-values are converted to character strings that retain ' a # a,[1] '" their arithmetic capability. ' a # a,[1] '"-the character strings can be reconverted by Gdec. ' a # a,[1] '"-the global variable, `d`i`g`i`t`s will support up to base ' a # a,[1] '" 36. the catenation of underscored letters and other ' a # a,[1] '" characters to `d`i`g`i`t`s will permit larger bases. ' a # a,[1] '"-negative numbers will be treated correctly. ' a # a,[1] '"-fractions will be closely approximated. ' a # a,[1] '"-integer conversions, e.g., hexadecimal, will be exact. ' a # a,[1] '"-uses: Genq Gdl Gconfrac ' Lfx a