Brief instructions -
• First, pick option "Currency Name", "Country Name" or 'ISO Code" to identify how you want to select currency symbol information.
• Drop the list of the combobox.
• Click on the name or code for the currency.
• Symbol information will appear in the read-only text boxes.
• Click the clipboard button to put the associated text in the clipboard.
• The textbox followed by subscript "16" identifies the hexadecimal value of the character, subscript "10" for decimal.

Source Code

  This popup library comes in six files. I didn't know it would be this large. At the the start I wanted the Euro and Turkish Lira symbols an American English keyboard does not have. Then a complete list of symbols made sense.

Goto bookmark for:
CurrencyPopup.bas LIBMAIN, dialog and CALLBACK code.
CurrencyPopupISO_Symbol_SelectCase.inc part of CALLBACK function.
CurrencyPopupByCrncyName.inc Currency names for combobox list.
CurrencyPopupByISOCode.inc ISO currency codes for combobox list.
CurrencyPopupByCountry.inc Country names for combobox list.
CurrencyPopupISOwithSymbol.inc Has an ASMDATA block for each currency.

CurrencyPopup.bas

#compile dll "CurrencyPopup.dll"
#dim all
#resource icon 101, "Currency.ico"
#resource bitmap, 201, ".\ClpBd22_22.bmp"
global ghParent as dword
'Control IDs ===================================================================
'Active controls
%ID_ByCurrencyNameOpt = &h405
%ID_ByCountryNameOpt  = &h406
%ID_ByISO_CodeOpt     = &h407
'...
%ID_CrncySelCmboBx   = &h400
%ID_ISOCodeClpBdBtn   = &h401
%ID_SymblCharClpBdBtn = &h402
%ID_SymblHexClpBdBtn  = &h403
%ID_SymblDecClpBdBtn  = &h404
'...
'Read only and static
%ID_SelectByFrm = &h410
%ID_SelCmboBxLbl = &h411
%ID_ISOCodeLbl   = &h412
%ID_ISOCodeTxtBx = &h403
%ID_CrncySymbolLbl1 = &h414
%ID_CrncySymbolTxtBx = &h415
%ID_CrncySymblLbl2 = &h416
%ID_ValOfSymblLbl = &h417
%ID_SymbolDecLbl = &h418
%ID_SymblHexTxtBx = &h419
%ID_SymbolHex16Lbl = &h41A
%ID_SymblDecTxtBx = &h41B
%ID_SymbolDec10Lbl = &h41C
%ID_RemarksLbl = &h41D
%ID_RemarksTxtBx    = &h41E
%UM_CrncyPop = %wm_user + 500
%USC_User = &h1000??
%USC_Handle = &h10100000???
'===============================================================================
callback function CrncyDlgCB() as long
  local SelNum, ISOindx, CharCnt, LineCnt, CurLine  as long
  local pISO_Symbol, pListDat as dword
  local TmpStr, TmpStr2 as wstring
  if cb.msg = %wm_command then 'no selection highlight on startup

    select case as const cb.ctl
      case %ID_CrncySelCmboBx
        if cb.ctlmsg = %cbn_closeup then
          combobox get select cb.hndl, %ID_CrncySelCmboBx to SelNum
          combobox get user cb.hndl, %ID_CrncySelCmboBx, SelNum to ISOindx
          #include "CurrencyPopupISO_Symbol_SelectCase.inc"
          CharCnt = peek(word, pISO_Symbol) ' .  .  .  .  .  . get count of code
          pISO_Symbol += 2 '.  .  .  .  .  .  .  .  .  .  .  . point to the code
          control set text cb.hndl, %ID_ISOCodeTxtBx, _
             peek$$(pISO_Symbol, CharCnt) '.  .  .  .  .  .  .  .  .  . get code

          pISO_Symbol += CharCnt * 2 '  .  .  .  .  .   point to count of symbol
          CharCnt = peek(integer, pISO_Symbol) ' .  .  .  .  get count of symbol
          pISO_Symbol += 2 '.  .  .  .  .  .  .  .  .  .  .  .   point to symbol
          TmpStr = peek$$(pISO_Symbol, CharCnt) '.  .  .  .  .  .  .  get symbol
          control set text cb.hndl, %ID_CrncySymbolTxtBx, TmpStr
          if lcase$(TmpStr) = "(none)" then
            control set text cb.hndl, %ID_SymblHexTxtBx, ""
            control set text cb.hndl, %ID_SymblDecTxtBx, ""
          else
            for SelNum = 1 to CharCnt
              TmpStr2 += hex$(asc(TmpStr, SelNum), 4) + ", "
            next
            TmpStr2 = rtrim$(TmpStr2, any ", ")
            control set text cb.hndl, %ID_SymblHexTxtBx, TmpStr2
            TmpStr2 = ""
            for SelNum = 1 to CharCnt
              TmpStr2 += dec$(asc(TmpStr, SelNum)) + ", "
            next
            TmpStr2 = rtrim$(TmpStr2, any ", ")
            control set text cb.hndl, %ID_SymblDecTxtBx, TmpStr2
          end if
          pISO_Symbol += CharCnt * 2 '  .  .  .  .  .  point to count of remarks
          CharCnt = peek(integer, pISO_Symbol) ' .  .  .  . get count of remarks
          if CharCnt = 0 then
            control set text cb.hndl, %ID_RemarksTxtBx, ""
            exit function
          else
            pISO_Symbol += 2 ' .  .  .  .  .  .  .  .  .  .  .  point to remarks
            control set text cb.hndl, %ID_RemarksTxtBx, _
               peek$$(pISO_Symbol, CharCnt) ' .  .  .  .  .  .  .  . get remarks
          end if
        end if
      case %ID_ISOCodeClpBdBtn
        control get text cb.hndl, %ID_ISOCodeClpBdBtn to TmpStr
        clipboard set text TmpStr
      case %ID_SymblCharClpBdBtn
        control get text cb.hndl, %ID_CrncySymbolTxtBx to TmpStr
        clipboard set text TmpStr
      case %ID_SymblHexClpBdBtn
        control get text cb.hndl, %ID_SymblHexTxtBx to TmpStr
        clipboard set text TmpStr
      case %ID_SymblDecClpBdBtn
        control get text cb.hndl, %ID_SymblDecTxtBx to TmpStr
        clipboard set text TmpStr
      case %ID_ByCurrencyNameOpt
        if cb.ctlmsg = %bn_clicked then
          pListDat = codeptr(CurrenciesList)
          gosub ComboBoxItems
          control enable cb.hndl, %ID_SelCmboBxLbl
          control enable cb.hndl, %ID_CrncySelCmboBx
        end if
      case %ID_ByCountryNameOpt
        if cb.ctlmsg = %bn_clicked then
          pListDat = codeptr(CountriesList)
          gosub ComboBoxItems
          control enable cb.hndl, %ID_SelCmboBxLbl
          control enable cb.hndl, %ID_CrncySelCmboBx
        end if
      case %ID_ByISO_CodeOpt
        if cb.ctlmsg = %bn_clicked then
          pListDat = codeptr(ISOCodeList)
          gosub ComboBoxItems
          control enable cb.hndl, %ID_SelCmboBxLbl
          control enable cb.hndl, %ID_CrncySelCmboBx
        end if
    end select
  elseif cb.msg = %UM_CrncyPop and hi(word, cb.wparam) = %sc_close then
    dialog end cb.hndl
  end if
  '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  exit function 'don't "fall" into subroutine
  ComboboxItems:
    combobox reset cb.hndl, %ID_CrncySelCmboBx
    TmpStr = ""
    LineCnt = peek(long, pListDat)
    pListDat += 4
    for CurLine = 1 to LineCnt
      CharCnt = peek(integer, pListDat)
      TmpStr += str$(CharCnt) + $$crlf
      pListDat += 2
      combobox insert cb.hndl, %ID_CrncySelCmboBx, CurLine, _
         peek$$(pListDat, CharCnt)
      pListDat += CharCnt * 2
      combobox set user cb.hndl, %ID_CrncySelCmboBx, CurLine, _
         peek(integer, pListDat)
      pListDat += 2
    next
  return
end function
'===============================================================================
'Dialog size, control positions and sizes.
%TBSz_Y = 11
%LblSz_Y = 9
%ByNameGpPos_Y = 5
%ByFramePos_Y = 4

'
%CmboBxLblPos_Y = 41  '  %ByFramePos_Y + 32 + 5 'done
%CmboBxPos_Y = %CmboBxLblPos_Y + %LblSz_Y 'done
'
%Row1_LblPos_Y = %CmboBxPos_Y + 17
%Row1_BTN_TBxPos_Y = %Row1_LblPos_Y + %LblSz_Y
'
%Row2_LblPos_Y  = %Row1_BTN_TBxPos_Y + %TBSz_Y + 5
%Row2_Btn_TBx_Y = %Row2_LblPos_Y + %LblSz_Y
'
%Row3_LblPos_Y = %Row2_LblPos_Y + %TBSz_Y + 5
%Row3_Btn_TBx_Pos_Y = %Row3_LblPos_Y + %LblSz_Y
'
'%SymblRowPos_Y = %SymblLbl1Pos_Y + %LblSz_Y
'
'%ValLbl1Pos_Y  = %SymblRowPos_Y + %TBSz_Y + 6
'%ValRowPos_Y = %ValLbl1Pos_Y + %LblSz_Y

'%ValLbl2Pos_Y = %ValRowPos_Y + %TBSz_Y + 5
'%DecTxtBxPos_Y = %ValLbl2Pos_Y + %LblSz_Y

%RemLblPos_Y = %Row2_Btn_TBx_Y +  %TBSz_Y + 5
%RemTxtBxPos_Y = %RemLblPos_Y + %LblSz_Y

%CrncyDlgSz_X = 141
%CrncyFullSz_X = %CrncyDlgSz_X - 11
'. . . . . . . . . . . . . . . . . . . . . . . . . . . . .  control position X .
%SymTxtBxPos_X = %CrncyDlgSz_X - 36 '(30 bx width and 6 right margin)
%SymClpBdPos_X = %SymTxtBxPos_X - 12

%CurDlgSzY = 200
%CurSzX   = 70

%DlgStyle = %ds_3dlook or %ds_nofailcreate or %ds_setfont or %ws_caption or _
            %ws_clipsiblings or %ws_dlgframe or %ws_minimizebox or _
            %ws_sysmenu or %ws_popup
%DlgExStyle = %ws_ex_left or %ws_ex_ltrreading or %ws_ex_rightscrollbar
%TBS_CenterReadOnly = %es_center or %es_multiline or %es_wantreturn or _
                      %ws_border or %es_readonly
%TBS_RightJusReadOnly = %es_right or %es_multiline or %es_wantreturn or _
                        %ws_border or %es_readonly

'-------------------------------------------------------------------------------
sub CrncySymbolsDlg alias "CrncySymDlg" (byval ghParent as dword, _
                                         byval ParentPosX as long, _
                                         byval ParentPosY as long, _
                                         byval ParentSzX as long, _
                                         byval ParentSzY as long) export
  local hCrncyDlg, pCBLine, hFont14, hFont9 as dword
  local DeskPxlX, DeskPxlY, DlgUntX, DlgUntY, LineCnt, LineNum, CharCnt as long
  dialog default font "Microsoft Sans Serif", 12, 0, 1
  font new "Microsoft Sans Serif", 14, 0, 1, 0, 0 to hFont14
  font new "Microsoft Sans Serif", 9, 0, 1, 0, 0 to hFont9

  dialog new ghParent, "Currency Popup", 30  , _      ParentPosX
     ParentPosY - (%CurDlgSzY -ParentSzY), _
     %CrncyDlgSz_X, %CurDlgSzY, %DlgStyle , %DlgExStyle  to hCrncyDlg
 ' dialog get size hCrncyDlg to DlgUntX, DlgUntY
 ' dialog set loc hCrncyDlg, gDeskUntX - DlgUntX, gDeskUntY - DlgUntY
    dialog set icon hCrncyDlg, "#101"
    dialog set color hCrncyDlg, -1, &h00B0B0B0&
  if ghParent then
    dialog send ghParent, %UM_CrncyPop, %USC_Handle, 0
  end if
  '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . Select by options .
  control add option, hCrncyDlg, %ID_ByCurrencyNameOpt, "Currency Name", _
     5 + 4, 14, 60, 10, _
     %bs_left or %bs_vcenter or %ws_group or %ws_tabstop, %ws_ex_left
    control set color hCrncyDlg, %ID_ByCurrencyNameOpt, -1, &h00B0B0B0&
  control add option, hCrncyDlg, %ID_ByCountryNameOpt, "Country Name", _
     73, 14, 60, 10
    control set color hCrncyDlg, %ID_ByCountryNameOpt, -1, &h00B0B0B0&
  control add option, hCrncyDlg, %ID_ByISO_CodeOpt, "ISO Code", _
     5 + 4, 25, 60, 10
    control set color hCrncyDlg, %ID_ByISO_CodeOpt, -1, &h00B0B0B0&

  control add frame, hCrncyDlg, %ID_SelectByFrm, "Select Currency By:", _
     5, %ByFramePos_Y, %CrncyFullSz_X, 32, _
     %bs_left or %bs_top or %ws_group, %ws_ex_left
    control set color hCrncyDlg, %ID_SelectByFrm, -1, &h00B0B0B0&

  '. . . . . . . . . . . . . . . . . . . . . . . . . . . Select combobox group .
  control add label, hCrncyDlg, %ID_SelCmboBxLbl, " Get Symbol Named: ", _
     5, 41, 130, %LblSz_Y
    control set color hCrncyDlg, %ID_SelCmboBxLbl, -1, &h00B0B0B0&
  control add combobox, hCrncyDlg, %ID_CrncySelCmboBx, , _
     5, 50, %CrncyFullSz_X, 123, _
     %cbs_dropdownlist or %ws_tabstop or %ws_vscroll, %ws_ex_clientedge or _
     %ws_ex_left
    control set color hCrncyDlg, %ID_CrncySelCmboBx, -1, &h00D8D8D8&
    control disable hCrncyDlg, %ID_SelCmboBxLbl
    control disable hCrncyDlg, %ID_CrncySelCmboBx
  '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Row 1 .
    '.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . ISO Code .  .
  control add label, hCrncyDlg, %ID_ISOCodeLbl, "ISO Code", _
     5, 67, 50, %LblSz_Y
    control set color hCrncyDlg, %ID_ISOCodeLbl, -1, &h00B0B0B0&
  control add imgbutton, hCrncyDlg, %ID_ISOCodeClpBdBtn, "#201", _
     5, 76, 11 ,%TBSz_Y
    control set color hCrncyDlg, %Row1_BTN_TBxPos_Y, -1, &h00D8D8D8&
  control add textbox, hCrncyDlg, %ID_ISOCodeTxtBx, "", _
     17, 76, 30, %TBSz_Y, %TBS_CenterReadOnly, %ws_ex_left
    control set color hCrncyDlg, %ID_ISOCodeTxtBx, -1, &h00D8D8D8&
  '
  '.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Symbol .  .
  control add label, hCrncyDlg, %ID_CrncySymbolLbl1, " Symbol", _
     %SymClpBdPos_X, 67, 60, %LblSz_Y

  control add imgbutton, hCrncyDlg, %ID_SymblCharClpBdBtn, "#201", _
     %SymClpBdPos_X, 76 + 1, 11, 11
    control set color hCrncyDlg, %ID_CrncySymbolLbl1, -1, &h00B0B0B0&
  control add textbox, hCrncyDlg, %ID_CrncySymbolTxtBx, "", _
     %SymTxtBxPos_X, 76, 30, 12, %TBS_CenterReadOnly, %ws_ex_left

    control set font hCrncyDlg, %ID_CrncySymbolTxtBx,hFont14
    control set color hCrncyDlg, %ID_CrncySymbolTxtBx, -1, &h00D8D8D8&

  control add label, hCrncyDlg, %ID_CrncySymblLbl2, " (in larger font)", _
     %CrncyDlgSz_X - 44, 88, 37, 7, _
     %ss_right, %ws_ex_left

    control set font hCrncyDlg, %ID_CrncySymblLbl2, hFont9
    control set color hCrncyDlg, %ID_CrncySymblLbl2, -1, &h00B0B0B0&

  '. . . . . . . . . . . . . . . . . . . . . . . . .  Character code of symbol .
  control add label, hCrncyDlg, %ID_ValOfSymblLbl, _
     " Character Code of Symbol", 5, 93 , 90, %LblSz_Y
    control set color hCrncyDlg, %ID_ValOfSymblLbl, -1, &h00B0B0B0&
  '.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Hex .  .
  control add imgbutton, hCrncyDlg, %ID_SymblHexClpBdBtn, "#201", _
     5, 102, 11 , %TBSz_Y
  control add textbox, hCrncyDlg, %ID_SymblHexTxtBx, "", _
     17, 102, 112, %TBSz_Y, %TBS_RightJusReadOnly, %ws_ex_left
  control set color hCrncyDlg, %ID_SymblHexTxtBx, -1, &h00D8D8D8&
  control add label, hCrncyDlg, %ID_SymbolHex16Lbl, chr$$(&h2081, &h2086), _
     129, 103, 6, %LblSz_Y
  control set color hCrncyDlg, %ID_SymbolHex16Lbl, -1, &h00C4C4C4&
  '.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Decimal .  .
  control add label, hCrncyDlg, %ID_SymbolDecLbl, " Or", _
     5, 118, 60 , %LBlSz_Y
    control set color hCrncyDlg, %ID_SymbolDecLbl, -1, &h00B0B0B0&
  control add imgbutton, hCrncyDlg, %ID_SymblDecClpBdBtn, "#201", _
     5, 127, 11 , %TBSz_Y
  control add textbox, hCrncyDlg, %ID_SymblDecTxtBx, "", _
     17, 127, 112, %TBSz_Y, %TBS_RightJusReadOnly , %ws_ex_left
    control set color hCrncyDlg, %ID_SymblDecTxtBx, -1, &h00D8D8D8&
  control add label, hCrncyDlg, %ID_SymbolDec10Lbl, chr$$(&h2081, &h2080), _
     129, 127 + 1, 6, %LblSz_Y
    control set color hCrncyDlg, %ID_SymbolDec10Lbl, -1, &h00C4C4C4&
  '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Remarks .
  control add label, hCrncyDlg, %ID_RemarksLbl, " Remarks", _
     5, 143, %CrncyFullSz_X, %LBlSz_Y
    control set color hCrncyDlg, %ID_RemarksLbl, -1, &h00B0B0B0&
  control add textbox, hCrncyDlg, %ID_RemarksTxtBx, "", _
     5, 152, %CrncyFullSz_X, 20, _
     %es_autohscroll or %es_left or %es_multiline or %es_readonly or _
     %ws_border or %ws_tabstop, %ws_ex_clientedge or %ws_ex_left
    control set color hCrncyDlg, %ID_RemarksTxtBx, -1, &h00D8D8D8&
  '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  .
  dialog show modal hCrncyDlg call CrncyDlgCB
  font end hFont9
  font end hFont14
end sub
'-------------------------------------------------------------------------------
' Main DLL entry
function libmain (byval hInstance   as long, _
                  byval fwdReason   as long, _
                  byval lpvReserved as long) as long
  select case fwdReason
    case 1 '%DLL_PROCESS_ATTACH
      'ghInstance = hInstance
      function = 1   'success!
    case 0 '%DLL_PROCESS_DETACH
      function = 1   'success!
    case 2 '%DLL_THREAD_ATTACH
      function = 1   'success!
    case 3 '%DLL_THREAD_DETACH
      function = 1   'success!
  end select
end function
'-------------------------------------------------------------------------------
'Items to populate "Get . . ." combobox.
#include "CurrencyPopupByCrncyName.inc"
#include "CurrencyPopupByISOCode.inc"
#include "CurrencyPopupByCountry.inc"
'data for the symbols
#include "CurrencyPopupISOwithSymbol.inc"
'===============================================================================

CurrencyPopupISO_Symbol_SelectCase.inc - Index to Pointer.

  Not a complete procedure, is a long SELECT CASE within the CALLBACK procedure. So the #INCLUDE line is where the code needs to be placed. Uses index number of item selected in combobox to get pointer to currency data.

' CurrencyPopupISO_Symbol_SelectCase.inc
          select case as long ISOindx
            case 1
              pISO_Symbol = codeptr(AlderneyPoundISO)
            case 2
              pISO_Symbol = codeptr(ArtsakhDramISO)
            case 3
              pISO_Symbol = codeptr(NiueDollarISO)
            case 4
              pISO_Symbol = codeptr(SahrawiPesetaISO)
            case 5
              pISO_Symbol = codeptr(AEDISO)
            case 6
              pISO_Symbol = codeptr(AFNISO)
            case 7
              pISO_Symbol = codeptr(ALLISO)
            case 8
              pISO_Symbol = codeptr(AMDISO)
            case 9
              pISO_Symbol = codeptr(ANGISO)
            case 10
              pISO_Symbol = codeptr(AOAISO)
            case 11
              pISO_Symbol = codeptr(ARSISO)
            case 12
              pISO_Symbol = codeptr(AUDISO)
            case 13
              pISO_Symbol = codeptr(AWGISO)
            case 14
              pISO_Symbol = codeptr(AZNISO)
            case 15
              pISO_Symbol = codeptr(BAMISO)
            case 16
              pISO_Symbol = codeptr(BBDISO)
            case 17
              pISO_Symbol = codeptr(BDTISO)
            case 18
              pISO_Symbol = codeptr(BGNISO)
            case 19
              pISO_Symbol = codeptr(BHDISO)
            case 20
              pISO_Symbol = codeptr(BIFISO)
            case 21
              pISO_Symbol = codeptr(BMDISO)
            case 22
              pISO_Symbol = codeptr(BNDISO)
            case 23
              pISO_Symbol = codeptr(BOBISO)
            case 24
              pISO_Symbol = codeptr(BRLISO)
            case 25
              pISO_Symbol = codeptr(BSDISO)
            case 26
              pISO_Symbol = codeptr(BTNISO)
            case 27
              pISO_Symbol = codeptr(BWPISO)
            case 28
              pISO_Symbol = codeptr(BYNISO)
            case 29
              pISO_Symbol = codeptr(BZDISO)
            case 30
              pISO_Symbol = codeptr(CADISO)
            case 31
              pISO_Symbol = codeptr(CDFISO)
            case 32
              pISO_Symbol = codeptr(CHFISO)
            case 33
              pISO_Symbol = codeptr(CKDISO)
            case 34
              pISO_Symbol = codeptr(CLPISO)
            case 35
              pISO_Symbol = codeptr(CNYISO)
            case 36
              pISO_Symbol = codeptr(COPISO)
            case 37
              pISO_Symbol = codeptr(CRCISO)
            case 38
              pISO_Symbol = codeptr(CUPISO)
            case 39
              pISO_Symbol = codeptr(CVEISO)
            case 40
              pISO_Symbol = codeptr(CZKISO)
            case 41
              pISO_Symbol = codeptr(DJFISO)
            case 42
              pISO_Symbol = codeptr(DKKISO)
            case 43
              pISO_Symbol = codeptr(DOPISO)
            case 44
              pISO_Symbol = codeptr(DZDISO)
            case 45
              pISO_Symbol = codeptr(EGPISO)
            case 46
              pISO_Symbol = codeptr(ERNISO)
            case 47
              pISO_Symbol = codeptr(ETBISO)
            case 48
              pISO_Symbol = codeptr(EURISO)
            case 49
              pISO_Symbol = codeptr(FJDISO)
            case 50
              pISO_Symbol = codeptr(FKPISO)
            case 51
              pISO_Symbol = codeptr(FOKISO)
            case 52
              pISO_Symbol = codeptr(GBPISO)
            case 53
              pISO_Symbol = codeptr(GELISO)
            case 54
              pISO_Symbol = codeptr(GELISO)
            case 55
              pISO_Symbol = codeptr(GHSISO)
            case 56
              pISO_Symbol = codeptr(GIPISO)
            case 57
              pISO_Symbol = codeptr(GMDISO)
            case 58
              pISO_Symbol = codeptr(GNFISO)
            case 59
              pISO_Symbol = codeptr(GTQISO)
            case 60
              pISO_Symbol = codeptr(GYDISO)
            case 61
              pISO_Symbol = codeptr(HKDISO)
            case 62
              pISO_Symbol = codeptr(HNLISO)
            case 63
              pISO_Symbol = codeptr(HRKISO)
            case 64
              pISO_Symbol = codeptr(HTGISO)
            case 65
              pISO_Symbol = codeptr(HUFISO)
            case 66
              pISO_Symbol = codeptr(IDRISO)
            case 67
              pISO_Symbol = codeptr(ILSISO)
            case 68
              pISO_Symbol = codeptr(IMPISO)
            case 69
              pISO_Symbol = codeptr(INRISO)
            case 70
              pISO_Symbol = codeptr(IQDISO)
            case 71
              pISO_Symbol = codeptr(IRRISO)
            case 72
              pISO_Symbol = codeptr(ISKISO)
            case 73
              pISO_Symbol = codeptr(JEPISO)
            case 74
              pISO_Symbol = codeptr(JMDISO)
            case 75
              pISO_Symbol = codeptr(JODISO)
            case 76
              pISO_Symbol = codeptr(JPYISO)
            case 77
              pISO_Symbol = codeptr(KESISO)
            case 78
              pISO_Symbol = codeptr(KGSISO)
            case 79
              pISO_Symbol = codeptr(KHRISO)
            case 80
              pISO_Symbol = codeptr(KIDISO)
            case 81
              pISO_Symbol = codeptr(KMFISO)
            case 82
              pISO_Symbol = codeptr(KPWISO)
            case 83
              pISO_Symbol = codeptr(KRWISO)
            case 84
              pISO_Symbol = codeptr(KWDISO)
            case 85
              pISO_Symbol = codeptr(KYDISO)
            case 86
              pISO_Symbol = codeptr(KZTISO)
            case 87
              pISO_Symbol = codeptr(LAKISO)
            case 88
              pISO_Symbol = codeptr(LBPISO)
            case 89
              pISO_Symbol = codeptr(LKRISO)
            case 90
              pISO_Symbol = codeptr(LRDISO)
            case 91
              pISO_Symbol = codeptr(LSLISO)
            case 92
              pISO_Symbol = codeptr(LYDISO)
            case 93
              pISO_Symbol = codeptr(MADISO)
            case 94
              pISO_Symbol = codeptr(MDLISO)
            case 95
              pISO_Symbol = codeptr(MGAISO)
            case 96
              pISO_Symbol = codeptr(MKDISO)
            case 97
              pISO_Symbol = codeptr(MMKISO)
            case 98
              pISO_Symbol = codeptr(MNTISO)
            case 99
              pISO_Symbol = codeptr(MOPISO)
            case 100
              pISO_Symbol = codeptr(MRUISO)
            case 101
              pISO_Symbol = codeptr(MURISO)
            case 102
              pISO_Symbol = codeptr(MVRISO)
            case 103
              pISO_Symbol = codeptr(MWKISO)
            case 104
              pISO_Symbol = codeptr(MXNISO)
            case 105
              pISO_Symbol = codeptr(MYRISO)
            case 106
              pISO_Symbol = codeptr(MZNISO)
            case 107
              pISO_Symbol = codeptr(NADISO)
            case 108
              pISO_Symbol = codeptr(NGNISO)
            case 109
              pISO_Symbol = codeptr(NIOISO)
            case 110
              pISO_Symbol = codeptr(NOKISO)
            case 111
              pISO_Symbol = codeptr(NPRISO)
            case 112
              pISO_Symbol = codeptr(NZDISO)
            case 113
              pISO_Symbol = codeptr(OMRISO)
            case 114
              pISO_Symbol = codeptr(PABISO)
            case 115
              pISO_Symbol = codeptr(PENISO)
            case 116
              pISO_Symbol = codeptr(PGKISO)
            case 117
              pISO_Symbol = codeptr(PHPISO)
            case 118
              pISO_Symbol = codeptr(PKRISO)
            case 119
              pISO_Symbol = codeptr(PLNISO)
            case 120
              pISO_Symbol = codeptr(PNDISO)
            case 121
              pISO_Symbol = codeptr(PRBISO)
            case 122
              pISO_Symbol = codeptr(PYGISO)
            case 123
              pISO_Symbol = codeptr(QARISO)
            case 124
              pISO_Symbol = codeptr(RONISO)
            case 125
              pISO_Symbol = codeptr(RSDISO)
            case 126
              pISO_Symbol = codeptr(RUBISO)
            case 127
              pISO_Symbol = codeptr(RWFISO)
            case 128
              pISO_Symbol = codeptr(SARISO)
            case 129
              pISO_Symbol = codeptr(SBDISO)
            case 130
              pISO_Symbol = codeptr(SCRISO)
            case 131
              pISO_Symbol = codeptr(SDGISO)
            case 132
              pISO_Symbol = codeptr(SEKISO)
            case 133
              pISO_Symbol = codeptr(SGDISO)
            case 134
              pISO_Symbol = codeptr(SHPISO)
            case 135
              pISO_Symbol = codeptr(SLLISO)
            case 136
              pISO_Symbol = codeptr(SLSISO)
            case 137
              pISO_Symbol = codeptr(SOSISO)
            case 138
              pISO_Symbol = codeptr(SRDISO)
            case 139
              pISO_Symbol = codeptr(SSPISO)
            case 140
              pISO_Symbol = codeptr(STNISO)
            case 141
              pISO_Symbol = codeptr(SYPISO)
            case 142
              pISO_Symbol = codeptr(SZLISO)
            case 143
              pISO_Symbol = codeptr(THBISO)
            case 144
              pISO_Symbol = codeptr(TJSISO)
            case 145
              pISO_Symbol = codeptr(TMTISO)
            case 146
              pISO_Symbol = codeptr(TNDISO)
            case 147
              pISO_Symbol = codeptr(TOPISO)
            case 148
              pISO_Symbol = codeptr(TRYISO)
            case 149
              pISO_Symbol = codeptr(TTDISO)
            case 150
              pISO_Symbol = codeptr(TVDISO)
            case 151
              pISO_Symbol = codeptr(TWDISO)
            case 152
              pISO_Symbol = codeptr(TZSISO)
            case 153
              pISO_Symbol = codeptr(UAHISO)
            case 154
              pISO_Symbol = codeptr(UGXISO)
            case 155
              pISO_Symbol = codeptr(USDISO)
            case 156
              pISO_Symbol = codeptr(UYUISO)
            case 157
              pISO_Symbol = codeptr(UZSISO)
            case 158
              pISO_Symbol = codeptr(VESISO)
            case 159
              pISO_Symbol = codeptr(VNDISO)
            case 160
              pISO_Symbol = codeptr(VUVISO)
            case 161
              pISO_Symbol = codeptr(WSTISO)
            case 162
              pISO_Symbol = codeptr(XAFISO)
            case 163
              pISO_Symbol = codeptr(XCDISO)
            case 164
              pISO_Symbol = codeptr(XOFISO)
            case 165
              pISO_Symbol = codeptr(XPFISO)
            case 166
              pISO_Symbol = codeptr(YERISO)
            case 167
              pISO_Symbol = codeptr(ZARISO)
            case 168
              pISO_Symbol = codeptr(ZMWISO)
            case 169
              pISO_Symbol = codeptr(ZWBISO)
            case 170
              pISO_Symbol = codeptr(Bitcoin)
            case 171
              pISO_Symbol = codeptr(Cent)
            case 172
              pISO_Symbol = codeptr(UnspecCrncy)
          end select   '172

CurrencyPopupByCrncyName.inc - Items for "Get ..." combobox when By Currency Name option checked

' CurrencyPopupByCrncyName.inc
'By Currency names for listbox
asmdata CurrenciesList
  dd 143&   'count of names
  dw 16%, "Afghani - Afghan"$$,                  06%
  dw 17%, "Ariary - Malagasy"$$,                 95%
  dw 11%, "Baht - Thai"$$,                      143%
  dw 19%, "Balboa - Panamanian"$$,              114%
  dw 16%, "Birr - Ethiopian"$$,                  47%
  dw 29%, "Bolívar Soberano - Venezuelan"$$,    158%
  dw 20%, "Boliviano - Bolivian"$$,              23%
  dw 15%, "Cedi - Ghanaian"$$,                   55%
  dw 19%, "Colón - Costa Rican"$$,               37%
  dw 20%, "Córdoba - Nicaraguan"$$,             109%
  dw 16%, "Dalasi - Gambian"$$,                  57%
  dw 18%, "Denar - Macedonian",                  96%
  dw 16%, "Dinar - Algerian"$$,                  44%
  dw 16%, "Dinar - Bahraini"$$,                  19%
  dw 13%, "Dinar - Iraqi"$$,                     70%
  dw 17%, "Dinar - Jordanian"$$,                 75%
  dw 15%, "Dinar - Kuwaiti"$$,                   84%
  dw 14%, "Dinar - Libyan"$$,                    92%
  dw 15%, "Dinar - Serbian"$$,                  125%
  dw 16%, "Dinar - Tunisian"$$,                 146%
  dw 17%, "Dirham - Moroccan"$$,                 93%
  dw 29%, "Dirham - United Arab Emirates"$$,     05%
  dw 29%, "Dobra - São Tomé and Príncipe"$$,    140%
  dw 15%, "Dollar - (many)"$$,                  155%
  dw 17%, chr$$(&h0110, &h1ED3), "ng - Vietnamese"$$, 159%   'dong
  dw 15%, "Dram - Armenian"$$,                   08%
  dw 14%, "Dram - Artsakh"$$,                    02%
  dw 21%, "Escudo - Cape Verdean"$$,             39%
  dw 13%, "Euro - (many)"$$,                     48%
  dw 15%, "Florin - Aruban"$$,                   13%
  dw 18%, "Forint - Hungarian"$$,                65%
  dw 17%, "Franc - Burundian"$$,                 20%
  dw 34%, "Franc - Central African CFA (many)"$$, 162%
  dw 18%, "Franc - CFP (many)"$$,               165%
  dw 16%, "Franc - Comorian"$$,                  81%
  dw 17%, "Franc - Congolese"$$,                 31%
  dw 18%, "Franc - Djiboutian"$$,                41%
  dw 15%, "Franc - Guinean"$$,                   58%
  dw 15%, "Franc - Rwandan"$$,                  127%
  dw 13%, "Franc - Swiss"$$,                     32%
  dw 31%, "Franc - West African CFA (many)"$$,  164%
  dw 16%, "Gourde - Haitian"$$,                  64%
  dw 20%, "Guaraní - Paraguayan"$$,             116%
  dw 31%, "Guilder - Netherlands Antillean"$$,   09%
  dw 19%, "Hryvnia - Ukrainian"$$,              153%
  dw 23%, "KinaPapua - New Guinean"$$,          116%
  dw 09%, "Kip - Lao"$$,                         87%
  dw 14%, "Koruna - Czech"$$,                    40%
  dw 15%, "Króna - Faroese"$$,                   51%
  dw 17%, "Króna - Icelandic"$$,                 72%
  dw 15%, "Krona - Swedish"$$,                  143%
  dw 14%, "Krone - Danish"$$,                    42%
  dw 17%, "Krone - Norwegian"$$,                110%
  dw 15%, "Kuna - Croatian"$$,                   63%
  dw 17%, "Kwacha - Malawian"$$,                103%
  dw 16%, "Kwacha - Zambian"$$,                 168%
  dw 16%,  "Kwanza - Angolan"$$,                  10%
  dw 14%, "Kyat - Burmese"$$,                    97%
  dw 15%, "Lari - Georgian"$$,                   53%
  dw 14%, "Lek - Albanian"$$,                    07%
  dw 18%, "Lempira - Honduran"$$,                62%
  dw 22%, "Leone - Sierra Leonean"$$,           135%
  dw 14%, "Leu - Moldovan"$$,                    94%
  dw 14%, "Leu - Romanian"$$,                   124%
  dw 15%, "Lev - Bulgarian"$$,                   18%
  dw 17%, "Lilangeni - Swazi"$$,                142%
  dw 13%,  "Liras"$$, chr$$(&h0131), " - T", chr$$(&h00FC), "rk"$$, 148% 'turk lira
  dw 14%, "Loti - Lesotho"$$,                    91%
  dw 19%, "Manat - Azerbaijani"$$,               14%
  dw 20%, "Manat - Turkmenistan"$$,             145%
  dw 42%, "Mark, convertible - Bosnia and Herzegovina"$$, 15%
  dw 20%, "Metical - Mozambican"$$,             106%
  dw 16%, "Naira - Nigerian"$$,                 108%
  dw 16%, "Nakfa - Eritrean"$$,                  46%
  dw 20%, "Ngultrum - Bhutanese"$$,              26%
  dw 21%, "Ouguiya - Mauritanian"$$,            100%
  dw 16%, "Pa"$$, chr$$(&h02BB), "anga - Tongan"$$, 147%
  dw 17%, "Pataca - Macanese"$$,                 99%
  dw 16%, "Peseta - Sahrawi"$$,                  04%
  dw 16%, "Peso - Argentine"$$,                  11%
  dw 14%, "Peso - Chilean"$$,                    34%
  dw 16%, "Peso - Colombian"$$,                  36%
  dw 12%, "Peso - Cuban"$$,                      38%
  dw 16%, "Peso - Dominican"$$,                  43%
  dw 14%, "Peso - Mexican"$$,                   104%
  dw 17%, "Peso - Philippine"$$,                117%
  dw 16%, "Peso - Uruguayan"$$,                 156%
  dw 16%, "Pound - Alderney"$$,                  01%
  dw 15%, "Pound - British"$$,                   52%
  dw 16%, "Pound - Egyptian"$$,                  45%
  dw 24%, "Pound - Falkland Islands"$$,          50%
  dw 17%, "Pound - Gibraltar"$$,                 56%
  dw 16%, "Pound - Guernsey"$$,                  54%
  dw 14%, "Pound - Jersey"$$,                    73%
  dw 16%, "Pound - Lebanese"$$,                  88%
  dw 12%, "Pound - Manx"$$,                      68%
  dw 20%, "Pound - Saint Helena"$$,             134%
  dw 22%, "Pound - South Sudanese"$$,           139%
  dw 16%, "Pound - Sudanese"$$,                 131%
  dw 14%, "Pound - Syrian"$$,                   141%
  dw 15%, "Pula - Botswana"$$,                   27%
  dw 20%, "Quetzal - Guatemalan"$$,              59%
  dw 20%, "Rand - South African"$$,             167%
  dw 16%, "Real - Brazilian"$$,                  24%
  dw 14%, "Rial - Iranian"$$,                    71%
  dw 12%, "Rial - Omani"$$,                     113%
  dw 13%, "Rial - Yemeni"$$,                    166%
  dw 16%, "Riel - Cambodian"$$,                  79%
  dw 19%, "Ringgit - Malaysian"$$,              105%
  dw 14%, "Riyal - Qatari"$$,                   123%
  dw 13%, "Riyal - Saudi"$$,                    128%
  dw 25%, "Dollar - Zimbabwean, RTGS"$$,        169%
  dw 18%, "Ruble - Belarusian"$$,                28%
  dw 15%, "Ruble - Russian"$$,                  126%
  dw 21%, "Ruble - Transnistrian"$$,            121%
  dw 19%, "Rufiyaa - Maldivian"$$,              102%
  dw 14%, "Rupee - Indian"$$,                    69%
  dw 17%, "Rupee - Mauritian"$$,                101%
  dw 16%, "Rupee - Nepalese"$$,                 111%
  dw 17%, "Rupee - Pakistani"$$,                118%
  dw 19%, "Rupee - Seychellois"$$,              130%
  dw 18%, "Rupee - Sri Lankan"$$,                89%
  dw 19%, "Rupiah - Indonesian"$$,               66%
  dw 21%, "Shekel, new - Israeli"$$,             67%
  dw 17%, "Shilling - Kenyan"$$,                 77%
  dw 17%, "Shilling - Somali"$$,                137%
  dw 21%, "Shilling - Somaliland"$$,            136%
  dw 20%, "Shilling - Tanzanian"$$,             152%
  dw 18%, "Shilling - Ugandan"$$,               154%
  dw 14%, "Sol - Peruvian"$$,                   115%
  dw 17%, "Som - Kyrgyzstani"$$,                 78%
  dw 18%, "So"$$, chr$$(&h02BB), "m - Uzbekistani"$$, 157%
  dw 20%, "Somoni - Tajikistani"$$,             144%
  dw 18%, "Taka - Bangladeshi"$$,                17%
  dw 13%, &h0054, &h0101, &h006C, &h0101, " - Samoan"$$, 161%  'tala
  dw 19%, "Tenge - Kazakhstani"$$,               86%
  dw 18%, "Tögrög - Mongolian"$$,                98%
  dw 14%, "Vatu - Vanuatu"$$,                   160%
  dw 18%, "Won - North Korean"$$,                82%
  dw 18%, "Won - South Korean"$$,                83%
  dw 14%, "Yen - Japanese"$$,                    76%
  dw 14%, "Yuan - Chinese"$$,                    35%
  dw 14%, "Zloty - Polish"$$,                   119%
end asmdata
'.  .  . .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
'

' CurrencyPopupByISOCode.inc
asmdata ISOCodeList
  dd 172& 'count of number of codes
  dw 23%, "(none) - Alderney pound", 01%  '
  dw 21%, "(none) - Artsakh dram", 02%
  dw 20%, "(none) - Niue dollar", 03%
  dw 23%, "(none) - Sahrawi peseta", 04%
  dw 16%, "(none) - Bitcoin", 170%
  dw 20%, "(none) - unspecified", 172
  dw 13%, "(none) - cent", 171%
  dw 03%, "AED", 05%
  dw 03%, "AFN", 06%
  dw 03%, "ALL", 07%
  dw 03%, "AMD", 08%
  dw 03%, "ANG", 09%
  dw 03%, "AOA", 10%
  dw 03%, "ARS", 11%
  dw 03%, "AUD", 12%
  dw 03%, "AWG", 13%
  dw 03%, "AZN", 14%
  dw 03%, "BAM", 15%
  dw 03%, "BBD", 16%
  dw 03%, "BDT", 17%
  dw 03%, "BGN", 18%
  dw 03%, "BHD", 19%
  dw 03%, "BIF", 20%
  dw 03%, "BMD", 21%
  dw 03%, "BND", 22%
  dw 03%, "BOB", 23%
  dw 03%, "BRL", 24%
  dw 03%, "BSD", 25%
  dw 03%, "BTN", 26%
  dw 03%, "BWP", 27%
  dw 03%, "BYN", 28%
  dw 03%, "BZD", 29%
  dw 03%, "CAD", 30%
  dw 03%, "CDF", 31%
  dw 03%, "CHF", 32%
  dw 03%, "CKD", 33%
  dw 03%, "CLP", 34%
  dw 03%, "CNY", 35%
  dw 03%, "COP", 36%
  dw 03%, "CRC", 37%
  dw 03%, "CUP", 38%
  dw 03%, "CVE", 39%
  dw 03%, "CZK", 40%
  dw 03%, "DJF", 41%
  dw 03%, "DKK", 42%
  dw 03%, "DOP", 43%
  dw 03%, "DZD", 44%
  dw 03%, "EGP", 45%
  dw 03%, "ERN", 46%
  dw 03%, "ETB", 47%
  dw 03%, "EUR", 48%
  dw 03%, "FJD", 49%
  dw 03%, "FKP", 50%
  dw 03%, "FOK", 51%
  dw 03%, "GBP", 52%
  dw 03%, "GEL", 53%
  dw 03%, "GGP", 54%
  dw 03%, "GHS", 55%
  dw 03%, "GIP", 56%
  dw 03%, "GMD", 57%
  dw 03%, "GNF", 58%
  dw 03%, "GTQ", 59%
  dw 03%, "GYD", 60%
  dw 03%, "HKD", 61%
  dw 03%, "HNL", 62%
  dw 03%, "HRK", 63%
  dw 03%, "HTG", 64%
  dw 03%, "HUF", 65%
  dw 03%, "IDR", 66%
  dw 03%, "ILS", 67%
  dw 03%, "IMP", 68%
  dw 03%, "INR", 69%
  dw 03%, "IQD", 70%
  dw 03%, "IRR", 71%
  dw 03%, "ISK", 72%
  dw 03%, "JEP", 73%
  dw 03%, "JMD", 74%
  dw 03%, "JOD", 75%
  dw 03%, "JPY", 76%
  dw 03%, "KES", 77%
  dw 03%, "KGS", 78%
  dw 03%, "KHR", 79%
  dw 03%, "KID", 80%
  dw 03%, "KMF", 81%
  dw 03%, "KPW", 82%
  dw 03%, "KRW", 83%
  dw 03%, "KWD", 84%
  dw 03%, "KYD", 85%
  dw 03%, "KZT", 86%
  dw 03%, "LAK", 87%
  dw 03%, "LBP", 88%
  dw 03%, "LKR", 89%
  dw 03%, "LRD", 90%
  dw 03%, "LSL", 91%
  dw 03%, "LYD", 92%
  dw 03%, "MAD", 93%
  dw 03%, "MDL", 94%
  dw 03%, "MGA", 95%
  dw 03%, "MKD", 96%
  dw 03%, "MMK", 97%
  dw 03%, "MNT", 98%
  dw 03%, "MOP", 99%
  dw 03%, "MRU", 100%
  dw 03%, "MUR", 101%
  dw 03%, "MVR", 102%
  dw 03%, "MWK", 103%
  dw 03%, "MXN", 104%
  dw 03%, "MYR", 105%
  dw 03%, "MZN", 106%
  dw 03%, "NAD", 107%
  dw 03%, "NGN", 108%
  dw 03%, "NIO", 109%
  dw 03%, "NOK", 110%
  dw 03%, "NPR", 111%
  dw 03%, "NZD", 112%
  dw 03%, "OMR", 113%
  dw 03%, "PAB", 114%
  dw 03%, "PEN", 115%
  dw 03%, "PGK", 116%
  dw 03%, "PHP", 117%
  dw 03%, "PKR", 118%
  dw 03%, "PLN", 119%
  dw 03%, "PND", 120%
  dw 03%, "PRB", 121%
  dw 03%, "PYG", 122%
  dw 03%, "QAR", 123%
  dw 03%, "RON", 124%
  dw 03%, "RSD", 125%
  dw 03%, "RUB", 126%
  dw 03%, "RWF", 127%
  dw 03%, "SAR", 128%
  dw 03%, "SBD", 129%
  dw 03%, "SCR", 130%
  dw 03%, "SDG", 131%
  dw 03%, "SEK", 132%
  dw 03%, "SGD", 133%
  dw 03%, "SHP", 134%
  dw 03%, "SLL", 135%
  dw 03%, "SLS", 136%
  dw 03%, "SOS", 137%
  dw 03%, "SRD", 138%
  dw 03%, "SSP", 139%
  dw 03%, "STN", 140%
  dw 03%, "SYP", 141%
  dw 03%, "SZL", 142%
  dw 03%, "THB", 143%
  dw 03%, "TJS", 144%
  dw 03%, "TMT", 145%
  dw 03%, "TND", 146%
  dw 03%, "TOP", 147%
  dw 03%, "TRY", 148%
  dw 03%, "TTD", 149%
  dw 03%, "TVD", 150%
  dw 03%, "TWD", 151%
  dw 03%, "TZS", 152%
  dw 03%, "UAH", 153%
  dw 03%, "UGX", 154%
  dw 03%, "USD", 155%
  dw 03%, "UYU", 156%
  dw 03%, "UZS", 157%
  dw 03%, "VES", 158%
  dw 03%, "VND", 159%
  dw 03%, "VUV", 160%
  dw 03%, "WST", 161%
  dw 03%, "XAF", 162%
  dw 03%, "XCD", 163%
  dw 03%, "XOF", 164%
  dw 03%, "XPF", 165%
  dw 03%, "YER", 166%
  dw 03%, "ZAR", 167%
  dw 03%, "ZMW", 168%
  dw 03%, "ZWB", 169%
end asmdata

CurrencyPopupByCountry.inc - Items for "Get ..." combobox when By Country option is checked.

' CurrencyPopupByCountry.inc
asmdata CountriesList
  dd 236& 'number of countries in list
  dw 11%,"Afghanistan",06%
  dw 21%,"Akrotiri and Dhekelia",48%
  dw 07%,"Albania",07%
  dw 08%,"Alderney",01%
  dw 07%,"Algeria",44%
  dw 07%, "Andorra",              48%
  dw 06%, "Angola",               10%
  dw 08%, "Anguilla",            163%
  dw 19%, "Antigua and Barbuda", 163%
  dw 09%, "Argentina",            11%
  dw 07%, "Armenia",               8%
  dw 07%, "Artsakh",               2%
  dw 05%, "Aruba",                13%
  dw 16%, "Ascension Island",    134%
  dw 09%, "Australia",            12%
  dw 07%, "Austria",              48%
  dw 10%, "Azerbaijan",           14%
  dw 12%, "Bahamas, The",         25%
  dw 07%, "Bahrain",              19%
  dw 10%, "Bangladesh",           17%
  dw 08%, "Barbados",             16%
  dw 07%, "Belarus",              28%
  dw 07%, "Belgium",              48%
  dw 06%, "Belize",               29%
  dw 05%, "Benin",               164%
  dw 07%, "Bermuda",              21%
  dw 06%, "Bhutan",               26%
  dw 07%, "Bolivia",              23%
  dw 07%, "Bonaire",             155%
  dw 22%, "Bosnia and Herzegovina", 15%
  dw 08%, "Botswana",              27%
  dw 06%, "Brazil",                24%
  dw 30%, "British Indian Ocean Territory", 155%
  dw 22%, "British Virgin Islands", 155%
  dw 06%, "Brunei",               22%
  dw 08%, "Bulgaria",             18%
  dw 12%, "Burkina Faso",        164%
  dw 07%, "Burundi",              20%
  dw 08%, "Cambodia",             79%
  dw 08%, "Cameroon",            162%
  dw 06%, "Canada",               30%
  dw 10%, "Cape Verde",           39%
  dw 14%, "Cayman Islands",       85%
  dw 24%, "Central African Republic", 162%
  dw 04%, "Chad",                162%
  dw 05%, "Chile",                34%
  dw 05%, "China",                35%
  dw 08%, "Colombia",             36%
  dw 07%, "Comoros",              81%
  dw 33%, "Congo, Democratic Republic of the", 31%
  dw 22%, "Congo, Republic of the", 162%
  dw 12%, "Cook Islands",         33%
  dw 10%, "Costa Rica",           37%
  dw 13%, "Côte d'Ivoire",       164%
  dw 07%, "Croatia",              63%
  dw 04%, "Cuba",                 38%
  dw 07%, "Curaçao",               9%
  dw 06%, "Cyprus",               48%
  dw 14%, "Czech Republic",       40%
  dw 07%, "Denmark",              42%
  dw 08%, "Djibouti",             41%
  dw 08%, "Dominica",            163%
  dw 18%, "Dominican Republic",   43%
  dw 10%, "East Timor",          155%
  dw 07%, "Ecuador",             155%
  dw 05%, "Egypt",                45%
  dw 11%, "El Salvador",         155%
  dw 17%, "Equatorial Guinea",   162%
  dw 07%, "Eritrea",              46%
  dw 07%, "Estonia",              48%
  dw 08%, "Eswatini",            142%
  dw 08%, "Ethiopia",             47%
  dw 16%, "Falkland Islands",     50%
  dw 13%, "Faroe Islands",        51%
  dw 04%, "Fiji",                 49%
  dw 07%, "Finland",              48%
  dw 06%, "France",               48%
  dw 16%, "French Polynesia",    165%
  dw 05%, "Gabon",               162%
  dw 11%, "Gambia, The",          57%
  dw 07%, "Georgia",              53%
  dw 07%, "Germany",              48%
  dw 05%, "Ghana",                55%
  dw 09%, "Gibraltar",            56%
  dw 06%, "Greece",               48%
  dw 09%, "Greenland",            42%
  dw 07%, "Grenada",             163%
  dw 09%, "Guatemala",            59%
  dw 08%, "Guernsey",             54%
  dw 06%, "Guinea",               58%
  dw 13%, "Guinea-Bissau",       164%
  dw 06%, "Guyana",               60%
  dw 05%, "Haiti",                64%
  dw 08%, "Honduras",             62%
  dw 09%, "Hong Kong",            61%
  dw 07%, "Hungary",              65%
  dw 07%, "Iceland",              72%
  dw 05%, "India",                69%
  dw 09%, "Indonesia",            66%
  dw 04%, "Iran",                 71%
  dw 04%, "Iraq",                 70%
  dw 07%, "Ireland",              48%
  dw 11%, "Isle of Man",          68%
  dw 06%, "Israel",               67%
  dw 05%, "Italy",                48%
  dw 07%, "Jamaica",              74%
  dw 05%, "Japan",                76%
  dw 06%, "Jersey",               73%
  dw 06%, "Jordan",               75%
  dw 10%, "Kazakhstan",           86%
  dw 05%, "Kenya",                77%
  dw 08%, "Kiribati",             80%
  dw 12%, "Korea, North",         82%
  dw 12%, "Korea, South",         83%
  dw 06%, "Kosovo",               48%
  dw 06%, "Kuwait",               84%
  dw 10%, "Kyrgyzstan",           78%
  dw 04%, "Laos",                 87%
  dw 06%, "Latvia",               48%
  dw 07%, "Lebanon",              88%
  dw 07%, "Lesotho",              91%
  dw 07%, "Liberia",              90%
  dw 05%, "Libya",                92%
  dw 13%, "Liechtenstein",        32%
  dw 09%, "Lithuania",            48%
  dw 10%, "Luxembourg",           48%
  dw 05%, "Macau",                99%
  dw 10%, "Madagascar",           95%
  dw 06%, "Malawi",              103%
  dw 08%, "Malaysia",            105%
  dw 08%, "Maldives",            102%
  dw 04%, "Mali",                164%
  dw 05%, "Malta",                48%
  dw 16%, "Marshall Islands",    155%
  dw 10%, "Mauritania",          100%
  dw 09%, "Mauritius",           101%
  dw 06%, "Mexico",              104%
  dw 10%, "Micronesia",          155%
  dw 07%, "Moldova",              94%
  dw 06%, "Monaco",               48%
  dw 08%, "Mongolia",             98%
  dw 10%, "Montenegro",           48%
  dw 10%, "Montserrat",          163%
  dw 07%, "Morocco",              93%
  dw 10%, "Mozambique",          106%
  dw 07%, "Myanmar",              97%
  dw 07%, "Namibia",             107%
  dw 05%, "Nauru",                12%
  dw 05%, "Nepal",               111%
  dw 11%, "Netherlands",          48%
  dw 13%, "New Caledonia",       165%
  dw 11%, "New Zealand",         112%
  dw 09%, "Nicaragua",           109%
  dw 05%, "Niger",               164%
  dw 07%, "Nigeria",             108%
  dw 04%, "Niue",                112%
  dw 15%, "North Macedonia",      96%
  dw 15%, "Northern Cyprus",     148%
  dw 06%, "Norway",              110%
  dw 04%, "Oman",                113%
  dw 08%, "Pakistan",            118%
  dw 05%, "Palau",               155%
  dw 09%, "Palestine",            75%
  dw 09%, "Palestine",            67%
  dw 06%, "Panama",              114%
  dw 16%, "Papua New Guinea",    116%
  dw 08%, "Paraguay",            122%
  dw 04%, "Peru",                115%
  dw 11%, "Philippines",         117%
  dw 16%, "Pitcairn Islands",    120%
  dw 06%, "Poland",              119%
  dw 08%, "Portugal",             48%
  dw 05%, "Qatar",               123%
  dw 07%, "Romania",             124%
  dw 06%, "Russia",              126%
  dw 06%, "Rwanda",              127%
  dw 04%, "Saba",                155%
  dw 16%, "Sahrawi Republic",    100%
  dw 12%, "Saint Helena",        134%
  dw 21%, "Saint Kitts and Nevis", 163%
  dw 11%, "Saint Lucia",         163%
  dw 32%, "Saint Vincent and the Grenadines", 163%
  dw 05%, "Samoa",               161%
  dw 10%, "San Marino",           48%
  dw 21%, "São Tomé and Príncipe", 140%
  dw 12%, "Saudi Arabia",        128%
  dw 07%, "Senegal",             164%
  dw 06%, "Serbia",              125%
  dw 10%, "Seychelles",          130%
  dw 12%, "Sierra Leone",        135%
  dw 09%, "Singapore",           133%
  dw 14%, "Sint Eustatius",      155%
  dw 12%, "Sint Maarten",         17%
  dw 08%, "Slovakia",             48%
  dw 08%, "Slovenia",             48%
  dw 15%, "Solomon Islands",     129%
  dw 07%, "Somalia",             137%
  dw 10%, "Somaliland",          136%
  dw 12%, "South Africa",        167%
  dw 13%, "South Ossetia",       126%
  dw 11%, "South Sudan",         139%
  dw 05%, "Spain",                48%
  dw 09%, "Sri Lanka",            89%
  dw 05%, "Sudan",               131%
  dw 08%, "Suriname",            138%
  dw 06%, "Sweden",              132%
  dw 11%, "Switzerland",          32%
  dw 05%, "Syria",               141%
  dw 06%, "Taiwan",              143%
  dw 10%, "Tajikistan",          144%
  dw 08%, "Tanzania",            152%
  dw 08%, "Thailand",            143%
  dw 04%, "Togo",                164%
  dw 05%, "Tonga",               147%
  dw 12%, "Transnistria",        121%
  dw 19%, "Trinidad and Tobago", 149%
  dw 07%, "Tunisia",             146%
  dw 06%, "Turkey",              148%
  dw 12%, "Turkmenistan",        145%
  dw 24%, "Turks and Caicos Islands", 155%
  dw 06%, "Tuvalu",              150%
  dw 06%, "Uganda",              154%
  dw 07%, "Ukraine",             153%
  dw 20%, "United Arab Emirates",  5%
  dw 14%, "United Kingdom",       52%
  dw 13%, "United States",       155%
  dw 07%, "Uruguay",             156%
  dw 10%, "Uzbekistan",          157%
  dw 07%, "Vanuatu",             160%
  dw 12%, "Vatican City",         48%
  dw 09%, "Venezuela",           158%
  dw 07%, "Vietnam",             159%
  dw 17%, "Wallis and Futuna",   165%
  dw 05%, "Yemen",               166%
  dw 06%, "Zambia",              168%
  dw 08%, "Zimbabwe",            169%
end asmdata

CurrencyPopupISOwithSymbol.inc - Data for Currency Popup

To add another currency to this include file, I recommend adding it at the end. That way the index numbers in the three combobox list include files will not need to be changed. The new ISO code, currency name or country may be inserted in the appropriate list alphabetically.

' CurrencyPopupISOwithSymbol.inc
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Alderney Pound (none) .  .
asmdata AlderneyPoundISO                                                    '01
  dw 06%, "(none)"$$                     'ISO
  dw 01%, &h00A3??                     'symbol
  dw 23%, "Also British pound GBP."$$  'remarks
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Artsakh dram (None) .  .
asmdata ArtsakhDramISO                                                      '02
  dw 06%, "(none)"$$
  dw 03%, chr$$(&h0564, &h0580, &h002E)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Niue dollar (none) .  .
asmdata NiueDollarISO                                                       '03
  dw 06%, "(none)"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Sahrawi peseta (none) .  .
asmdata SahrawiPesetaISO                                                    '04
  dw 06%, "(none)"$$
  dw 03%, "Pts"$$
  dw 07%, "or Ptas"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   UAE AED .  .
asmdata AEDISO                                                              '05
  dw 03%, "AED"$$
  dw 03%, &h0625, &h0026, &h062F
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Afghani AFN .  .
asmdata AFNISO                                                              '06
  dw 03%, "AFN"$$
  dw 01%, &h060B??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Albanian lek ALL" .  .
asmdata ALLISO                                                              '07
  dw 03%, "ALL"$$
  dw 01%, "L"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .    Armenian AMD .  .
asmdata AMDISO                                                              '08
  dw 03%, "AMD"$$
  dw 01%, &h058F??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Netherlands ANG .  .
asmdata ANGISO                                                              '09
  dw 03%, "ANG"$$
  dw 01%, &h0192??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Angolan AOA .  .
asmdata AOAISO                                                              '10
  dw 03%, "AOA"$$
  dw 02%, "Kz"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   .  Argentine ARS .  .
asmdata ARSISO                                                              '11
  dw 03%, "ARS"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Australian AUD .  .
asmdata AUDISO                                                              '12
  dw 03%, "AUD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Aruban AWG .  .
asmdata AWGISO                                                              '13
  dw 03%, "AWG"$$
  dw 01%, &h0192??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Azerbaijani AZN .  .
asmdata AZNISO                                                              '14
  dw 03%, "AZN"$$
  dw 01%, &h20BC??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Bosnia_Herzeg. BAM .  .
asmdata BAMISO                                                              '15
  dw 03%, "BAM"$$
  dw 02%, "KM"$$
  dw 86%, "or similar looking Cyrillic ", &h041A, &h041C," used in", $$crlf
  dw      "Serbo-Croation 041A, 041C (1050, 1052 decimal)"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Barbadian BBD .  .
asmdata BBDISO                                                              '16
  dw 03%, "BBD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Bangladeshi BDT .  .
asmdata BDTISO                                                              '17
  dw 03%, "BDT"$$
  dw 01%, &h09F3??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Bulgarian BGN .  .
asmdata BGNISO                                                              '18
  dw 03%, "BGN"$$
  dw 03%, chr$$(&h043B??, &h0432, &h002E)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Bahraini BHD .  .
asmdata BHDISO                                                              '19
  dw 03%, "BHD"$$
  dw 04%, chr$$(&h002E, &h0628, &h002E, &h062F)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Burundian BIF .  .
asmdata BIFISO                                                              '20
  dw 03%, "BIF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Bermudian BMD .  .
asmdata BMDISO                                                              '21
  dw 03%, "BMD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Brunei BND .  .
asmdata BNDISO                                                              '22
  dw 03%, "BND"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Boliviano BOB .  .
asmdata BOBISO                                                              '23
  dw 03%, "BOB"$$
  dw 02%, "Bs"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Brazilian BRL .  .
asmdata BRLISO                                                              '24
  dw 03%, "BRL"$$
  dw 02%, "R$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Bahamian BSD .  .
asmdata BSDISO                                                              '25
  dw 03%, "BSD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Bhutanese BTN .  .
asmdata BTNISO                                                              '26
  dw 03%, "BTN"$$
  dw 02%, "Nu"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Botswana BWP .  .
asmdata BWPISO                                                              '27
  dw 03%, "BWP"$$
  dw 01%, "P"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Belarusian BYN .  .
asmdata BYNISO                                                              '28
  dw 03%, "BYN"$$
  dw 02%, "Br"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Belize BZD .  .
asmdata BZDISO                                                              '29
  dw 03%, "BZD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Canadian CAD .  .
asmdata CADISO                                                              '30
  dw 03%, "CAD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Congolese CDF .  .
asmdata CDFISO                                                              '31
  dw 03%, "CDF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Swiss CHF .  .
asmdata CHFISO                                                              '32
  dw 03%, "CHF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Cook Islands CKD .  .
asmdata CKDISO                                                              '33
  dw 03%, "CKD"$$
  dw 01%, "$"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Chilean CLP .  .
asmdata CLPISO                                                              '34
  dw 03%, "CLP"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Chinese CNY .  .
asmdata CNYISO                                                              '35
  dw 03%, "CNY"$$
  dw 01%, &h00A5??
  dw 28%, "or "$$, &h5143??, ", &h5143 (20803 decimal)"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Colombian COP .  .
asmdata COPISO                                                              '36
  dw 03%, "COP"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Costa Rican CRC .  .
asmdata CRCISO                                                              '37
  dw 03%, "CRC"$$
  dw 01%, &h20A1??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Cuban CUP .  .
asmdata CUPISO                                                              '38
  dw 03%, "CUP"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Cape Verdean CVE .  .
asmdata CVEISO                                                              '39
  dw 03%, "CVE"$$
  dw 03%, "Esc"$$
  dw 04%, "or $"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Czech CZK .  .
asmdata CZKISO                                                              '40
  dw 03%, "CZK"$$
  dw 02%, chr$$(&h004B, &h010D)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Djiboutian DJF .  .
asmdata DJFISO                                                              '41
  dw 03%, "DJF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Danish DKK .  .
asmdata DKKISO                                                              '42
  dw 03%, "DKK"$$
  dw 02%, "kr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Dominican DOP .  .
asmdata DOPISO                                                              '43
  dw 03%, "DOP"$$
  dw 03%, "RD$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Algerian DZD .  .
asmdata DZDISO                                                              '44
  dw 03%, "DZD"$$
  dw 03%, chr$$(&h062C, &h002E, &h062F)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Egyptian EGP .  .
asmdata EGPISO                                                              '45
  dw 03%, "EGP"$$
  dw 01%, "£"$$
  dw 55%, "or "$$, chr$$(&h0645, &h002E, &h062C), " &h0645, &h002E, &h062C"$$
  dw      $$crlf, "(1605, 46, 1580 decimal)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Eritrean ERN .  .
asmdata ERNISO                                                              '46
  dw 03%, "ERN"$$
  dw 03%, "Nfk"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Ethiopian ETB .  .
asmdata ETBISO                                                              '47
  dw 03%, "ETB"$$
  dw 02%, "Br"$$
  dw 14%, "&h0042, &h0072"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Euro EUR .  .
asmdata EURISO                                                              '48
  dw 03%, "EUR"$$
  dw 01%, &h20AC??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Fijian FJD .  .
asmdata FJDISO                                                              '49
  dw 03%, "FJD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Falkland Islands FKP .  .
asmdata FKPISO                                                              '50
  dw 03%, "FKP"$$
  dw 01%, "£"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Faroese FOK .  .
asmdata FOKISO                                                              '51
  dw 03%, "FOK"$$
  dw 02%, "kr"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   British Pound GBP.  .
asmdata GBPISO                                                              '52
  dw 03%, "GBP"$$
  dw 01%, &h00A3??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Georgian lari GEL .  .
asmdata GELISO                                                              '53
  dw 03%, "GEL"$$
  dw 01%, &h20BE??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Guernsey pound GGP .  .
asmdata GGPISO                                                              '54
  dw 03%, "GGP"$$
  dw 01%, "£"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Ghanaian cedi GHS .  .
asmdata GHSISO                                                              '55
  dw 03%, "GHS"$$
  dw 01%, &h20B5??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Gibraltar pound GIP .  .
asmdata GIPISO                                                              '56
  dw 03%, "GIP"$$
  dw 01%, "£"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Gambian dalasi GMD .  .
asmdata GMDISO                                                              '57
  dw 03%, "GMD"$$
  dw 01%, "D"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Guinean franc GNF .  .
asmdata GNFISO                                                              '58
  dw 03%, "GNF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  . .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Guatemalan quetzal GTQ .  .
asmdata GTQISO                                                              '59
  dw 03%, "GTQ"$$
  dw 01%, "Q"$$
  dw 00%
end asmdata
'.  .  . .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Guyanese dollar GYD .  .
asmdata GYDISO                                                              '60
  dw 03%, "GYD"$$
  dw 01%, "$"$$
end asmdata
'.  .  . .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Hong Kong dollar HKD .  .
asmdata HKDISO                                                              '61
  dw 03%, "HKD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Honduran lempira HNL .  .
asmdata HNLISO                                                              '62
  dw 03%, "HNL"$$
  dw 01%, "L"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Croatian kuna HRK .  .
asmdata HRKISO                                                              '63
  dw 03%, "HRK"$$
  dw 02%, "kn"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Haitian gourde HTG .  .
asmdata HTGISO                                                              '64
  dw 03%, "HTG"$$
  dw 01%, "G"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Hungarian forint HUF .  .
asmdata HUFISO                                                              '65
  dw 03%, "HUF"$$
  dw 02%, "Ft"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Indonesian rupiah IDR .  .
asmdata IDRISO                                                              '66
  dw 03%, "IDR"$$
  dw 02%, "Rp"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Israeli new shekel ILS .  .
asmdata ILSISO                                                              '67
  dw 03%, "ILS"$$
  dw 01%, &h20AA??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Manx pound IMP .  .
asmdata IMPISO                                                              '68
  dw 03%, "IMP"$$
  dw 01%, "£"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Indian rupee INR .  .
asmdata INRISO                                                              '69
  dw 03%, "INR"$$
  dw 01%, &h20B9??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Iraqi dinar IQD .  .
asmdata IQDISO                                                              '70
  dw 03%, "IQD"$$
  dw 03%, chr$$(&h062F, &h002E, &h0639)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Iranian rial IRR .  .
asmdata IRRISO                                                              '71
  dw 03%, "IRR"$$
  dw 01%, &hFDFC
  dw 14%, "(may not show)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Icelandic króna ISK .  .
asmdata ISKISO                                                              '72
  dw 03%, "ISK"$$
  dw 02%, "kr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Jersey pound JEP .  .
asmdata JEPISO                                                              '73
  dw 03%, "JEP"$$
  dw 01%, "£"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Jamaican dollar JMD .  .
asmdata JMDISO                                                               '74
  dw 03%, "JMD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Jordanian dinar JOD .  .
asmdata JODISO                                                              '75
  dw 03%, "JOD"$$
  dw 03%, chr$$(&h0627, &h002E, &h062F)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Japanese yen JPY .  .
asmdata JPYISO                                                              '76
  dw 03%, "JPY"$$
  dw 01%, &h00A5??
  dw 28%, "or "$$, chr$$(&h5186??), ", &h5186 (20870 decimal)"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Kenyan shilling KES .  .
asmdata KESISO                                                              '77
dw 03%, "KES"$$
dw 02%, "Sh"$$
dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Kyrgyzstani som KGS .  .
asmdata KGSISO                                                              '78
  dw 03%, "KGS"$$
  dw 01%, &h0441??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Cambodian riel KHR .  .
asmdata KHRISO                                                              '79
  dw 03%, "KHR"$$
  dw 01%, &h17DB??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Kiribati dollar KID .  .
asmdata KIDISO                                                              '80
  dw 03%, "KID"$$
  dw 01%, "$"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Comorian franc KMF .  .
asmdata KMFISO                                                              '81
  dw 03%, "KMF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  North Korean won KPW .  .
asmdata KPWISO                                                              '82
  dw 03%, "KPW"$$
  dw 01%, &h20A9??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  South Korean won KRW .  .
asmdata KRWISO                                                              '83
  dw 03%, "KRW"$$
  dw 01%, &h20A9??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Kuwaiti dinar KWD .  .
asmdata KWDISO                                                              '84
  dw 03%, "KWD"$$
  dw 03%, chr$$(&h0643, &h002E, &h062F)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Cayman Islands dollar KYD .  .
asmdata KYDISO                                                              '85
  dw 03%, "KYD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Kazakhstani tenge KZT .  .
asmdata KZTISO                                                             '86
  dw 03%, "KZT"$$
  dw 01%, &h20B8??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Lao kip LAK .  .
asmdata LAKISO                                                              '87
  dw 03%, "LAK"$$
  dw 01%, &h20AD??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Lebanese Pound LBP .  .
asmdata LBPISO                                                              '88
  dw 03%, "LBP"$$
  dw 03%, chr$$(&h0644, &h002E, &h0644)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Sri Lankan rupee LKR .  .
asmdata LKRISO                                                              '89
  dw 03%, "LKR"$$
  dw 02%, "Rs"$$
  dw 54%, "also ", &h0DBB??, ", 0DBB (3515 decimal)", $$crlf
  dw      "or ", &h0BB0??, ", 0BB0 (2992 decimal)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Liberian dollar LRD .  .
asmdata LRDISO                                                              '90
  dw 03%, "LRD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Lesotho loti LSL .  .
asmdata LSLISO                                                              '91
  dw 03%, "LSL"$$
  dw 01%, "L"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Libyan dinar LYD .  .
asmdata LYDISO                                                              '92
  dw 03%, "LYD"$$
  dw 03%, chr$$(&h062F, &h002E, &h0644)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Moroccan dirham MAD .  .
asmdata MADISO                                                              '93
  dw 03%, "MAD"$$
  dw 04%, &h0645??, &h002E??, &h062F??, &h002E??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Moldovan leu MDL .  .
asmdata MDLISO                                                              '94
  dw 03%, "MDL"$$
  dw 01%, "L"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Malagasy ariary MGA .  .
asmdata MGAISO                                                              '95
  dw 03%, "MGA"$$
  dw 02%, "Ar"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Macedonian denar MKD .  .
asmdata MKDISO                                                              '96
  dw 03%, "MKD"$$
  dw 03%, chr$$(&h0434, &h0435, &h043D)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Burmese kyat MMK .  .
asmdata MMKISO                                                              '97
  dw 03%, "MMK"$$
  dw 02%, "Ks"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Mongolian tögrög MNT .  .
asmdata MNTISO                                                              '98
  dw 03%, "MNT"$$
  dw 01%, &h20AE??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Macanese pataca MOP .  .
asmdata MOPISO                                                              '99
  dw 03%, "MOP"$$
  dw 04%, "MOP$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Mauritanian ouguiya MRU .  .
asmdata MRUISO                                                             '100
  dw 03%, "MRU"$$
  dw 02%, "UM"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Mauritian rupee MUR .  .
asmdata MURISO                                                             '101
  dw 03%, "MUR"$$
  dw 01%, &h20A8??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Maldivian rufiyaa MVR .  .
asmdata MVRISO                                                             '102
  dw 03%, "MVR"$$
  dw 02%, &h002E??, &h0783??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Malawian kwacha MWK .  .
asmdata MWKISO                                                             '103
  dw 03%, "MWK"$$
  dw 02%, "MK"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Mexican peso MXN .  .
asmdata MXNISO                                                             '104
  dw 03%, "MXN"$$
  dw "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Malaysian ringgit MYR .  .
asmdata MYRISO                                                             '105
  dw 03%, "MYR"$$
  dw 02%, "RM"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Mozambican metical MZN .  .
asmdata MZNISO                                                             '106
  dw 03%, "MZN"$$
  dw 02%, "MT"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Namibian dollar NAD .  .
asmdata NADISO                                                             '107
  dw 03%, "NAD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Nigerian naira NGN .  .
asmdata NGNISO                                                             '108
  dw 03%, "NGN"$$
  dw 01%, &h20A6??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Nicaraguan córdoba NIO .  .
asmdata NIOISO                                                             '109
  dw 03%, "NIO"$$
  dw 02%, "C$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Norwegian krone NOK .  .
asmdata NOKISO                                                             '110
  dw 03%, "NOK"$$
  dw 02%, "kr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Nepalese rupee NPR .  .
asmdata NPRISO                                                             '111
  dw 03%, "NPR"$$
  dw 01%, &h20A6??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   New Zealand dollar NZD .  .
asmdata NZDISO                                                             '112
  dw 03%, "NZD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Omani rial OMR .  .
asmdata OMRISO                                                             '113
  dw 03%, "OMR"$$
  dw 04%, chr$$(&h0639, &h002E, &h0631, &h002E)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Panamanian balboa PAB .  .
asmdata PABISO                                                             '114
  dw 03%, "PAB"$$
  dw 03%, "B/."$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Peruvian sol PEN .  .
asmdata PENISO                                                             '115
  dw 03%, "PEN"$$
  dw 03%, "S/."$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Papua new Guinean kina PGK .  .
asmdata PGKISO                                                             '116
  dw 03%, "PGK"$$
  dw 01%, "K"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Philippine peso PHP .  .
asmdata PHPISO                                                             '117
  dw 03%, "PHP"$$
  dw 01%, &h20B1??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Pakistani rupee PKR .  .
asmdata PKRISO                                                             '118
  dw 03%, "PKR"$$
  dw 01%, &h20A8??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Polish zloty PLN .  .
asmdata PLNISO                                                             '119
  dw 03%, "PLN"$$
  dw 02%, &h007A??, &h0142??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Pitcairn Islands dollar PND .  .
asmdata PNDISO                                                             '120
  dw 03%, "PND"$$
  dw 01%, "$"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Transnistrian ruble PRB .  .
asmdata PRBISO                                                             '121
  dw 03%, "PRB"$$
  dw 02%, &h0440??, &h002E??
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Paraguayan guaraní PYG .  .
asmdata PYGISO                                                             '122
  dw 03%, "PYG"$$
  dw 01%, &h20B2??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Qatari riyal QAR .  .
asmdata QARISO                                                             '123
  dw 03%, "QAR"$$
  dw 03%, &h0642??, &h002E??, &h0631??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Romanian leu RON .  .
asmdata RONISO                                                             '124
  dw 03%, "RON"$$
  dw 03%, "lei"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Serbian dinar RSD .  .
asmdata RSDISO                                                             '125
  dw 03%, "RSD"$$
  dw 03%, chr$$(&h0434, &h0438, &h043D)
  dw 07%, "or din."$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Russian ruble RUB .  .
asmdata RUBISO                                                             '126
  dw 03%, "RUB"$$
  dw 01%, &h20BD??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Rwandan franc RWF .  .
asmdata RWFISO                                                             '127
  dw 03%, "RWF"$$
  dw 02%, "Fr"
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Saudi riyal SAR .  .
asmdata SARISO                                                             '128
  dw 03%, "SAR"$$
  dw 01%, &hFDFC??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Solomon Islands dollar SBD .  .
asmdata SBDISO                                                             '129
  dw 03%, "SBD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Seychellois rupee SCR .  .
asmdata SCRISO                                                             '130
  dw 03%, "SCR"$$
  dw 01%, &h20A8??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Sudanese pound SDG .  .
asmdata SDGISO                                                             '131
  dw 03%, "SDG"$$
  dw 04%, &h002E??, &h0633??, &h002E??, &h062C??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Swedish krona SEK .  .
asmdata SEKISO                                                             '132
  dw 03%, "SEK"$$
  dw 02%, "kr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Singapore dollar SGD .  .
asmdata SGDISO                                                             '133
  dw 03%, "SGD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Saint Helena pound SHP .  .
asmdata SHPISO                                                             '134
  dw 03%, "SHP"$$
  dw 01%, "£"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Sierra Leonean leone SLL .  .
asmdata SLLISO                                                             '135
  dw 03%, "SLL"$$
  dw 02%, "Le"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Somaliland shilling SLS .  .
asmdata SLSISO                                                             '136
  dw 03%, "SLS"$$
  dw 02%, "Sl"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Somali shilling SOS .  .
asmdata SOSISO                                                            '137
  dw 03%, "SOS"$$
  dw 02%, "Sh"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Surinamese dollar SRD .  .
asmdata SRDISO                                                             '138
  dw 03%, "SRD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . South Sudanese pound SSP .  .
asmdata SSPISO                                                             '139
  dw 03%, "SSP"$$
  dw 01%, "£"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .   São Tomé and Príncipe dobra STN .  .
asmdata STNISO                                                             '140
  dw 03%, "STN"$$
  dw 02%, "Db"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Syrian pound SYP .  .
asmdata SYPISO                                                             '141
  dw 03%, "SYP"$$
  dw 01%, "£"$$
  dw 56%, "or ", &h0633??, &h002E??, &h0644??, ", &h0633, &h002E, &h0644"
  dw      $$crlf, "(1587, 46, 1604 decimal)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Swazi lilangeni SZL .  .
asmdata SZLISO                                                             '142
  dw 03%, "SZL"$$
  dw 01%, "L"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Thai baht THB .  .
asmdata THBISO                                                             '143
  dw 03%, "THB"$$
  dw 01%, &h0E3F??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Tajikistani somoni TJS .  .
asmdata TJSISO                                                             '144
  dw 03%, "TJS"$$
  dw 02%, "SM"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Turkmenistan manat TMT .  .
asmdata TMTISO                                                             '145
  dw 03%, "TMT"$$
  dw 01%, "m"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Tunisian dinar TND .  .
asmdata TNDISO                                                             '146
  dw 03%, "TND"
  dw 03%, chr$$(&h062A, &h002E, &h062F)
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Tongan pa'anga TOP .  .
asmdata TOPISO                                                             '147
  dw 03%, "TOP"$$
  dw 02%, "T$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Turk Lirasi TRY .  .
asmdata TRYISO                                                             '148
  dw 03%, "TRY"$$
  dw 01%, &h20BA??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  . Trinidad and Tobago dollar TTD .  .
asmdata TTDISO                                                             '149
  dw 03%, "TTD"$$
  dw 01%, "$"$$
  dw 00#
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Tuvaluan dollar TVD .  .
asmdata TVDISO                                                             '150
  dw 03%, "TVD"$$
  dw 01%, "$"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . New Taiwan dollar TWD .  .
asmdata TWDISO                                                             '151
  dw 03%, "TWD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Tanzanian shilling TZS .  .
asmdata TZSISO                                                             '152
  dw 03%, "TZS"$$
  dw 01%, "Sh"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Ukrainian hryvnia UAH .  .
asmdata UAHISO                                                             '153
  dw 03%, "UAH"$$
  dw 01%, &h20B4??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Ugandan shilling UGX .  .
asmdata UGXISO                                                             '154
  dw 03%, "UGX"$$
  dw 02%, "Sh"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . United States dollar USD .  .
asmdata USDISO                                                             '155
  dw 03%, "USD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Uruguayan peso UYU .  .
asmdata UYUISO                                                             '156
  dw 03%, "UYU"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Uzbekistani so'm UZS .  .
asmdata UZSISO                                                             '157
  dw 03%, "UZS"$$
  dw 04%, "so'm"$$
  dw 58%, "or ", &h0441??, &h045E??, &h043C??, ", &h0441, &h045E, &h043C"
  dw      $$crlf, "(1089, 1118, 1084 decimal)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .   Venezuelan bolívar soberano VES .  .
asmdata VESISO                                                             '158
  dw 03%, "VES"$$
  dw 05%, "Bs.S."$$
  dw 52%, "or Bs. &h0042, &h0073, &h002E", $$crlf
  dw      "(66, 115, 46 decimal)"
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Vietnamese dong VND .  .
asmdata VNDISO                                                             '159
  dw 03%, "VND"$$
  dw 01%, &h20AB??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Vanuatu vatu VUV .  .
asmdata VUVISO                                                             '160
  dw 03%, "VUV"$$
  dw 02%, "Vt"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Samoan tala WST .  .
asmdata WSTISO                                                             '161
  dw 03%, "WST"$$
  dw 01%, "T"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Central African CFA franc XAF .  .
asmdata XAFISO                                                             '162
  dw 03%, "XAF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Eastern Caribbean dollar XCD .  .
asmdata XCDISO                                                             '163
  dw 03%, "XCD"$$
  dw 01%, "$"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  West African CFA franc XOF .  .
asmdata XOFISO                                                             '164
  dw 03%, "XOF"$$
  dw 02%, "Fr"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   CFP Franc XPF .  .
asmdata XPFISO                                                             '165
  dw 03%, "XPF"$$
  dw 01%, &h20A3??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Yemeni rial YER .  .
asmdata YERISO                                                             '166
  dw 03%, "YER"$$
  dw 03%, &h064A??, &h002E??, &h0631??
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   South African rand ZAR .  .
asmdata ZARISO                                                             '167
  dw 03%, "ZAR"$$
  dw 01%, "R"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .    Zambian kwacha ZMW .  .
asmdata ZMWISO                                                             '168
  dw 03%, "ZMW"$$
  dw 02%, "ZK"$$
  dw 00%
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . Zimbabwe RTGS dollar ZWB .  .
asmdata ZWBISO                                                             '169
  dw 03%, "ZWB"$$
  dw 06%, "(none)"$$
  dw 35%, "not ISO code, but used commercially"$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Bitcoin .  .
asmdata Bitcoin                                                            '170
  dw 06%, "(none)"$$
  dw 01%, &h20BF??
  dw 17%, "A cryptocurrency."$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Cent .  .
asmdata Cent                                                               '171
  dw 06%, "(none)"$$
  dw 01%, &h00A2??
  dw 27%, "1/100th of many currencies."$$
end asmdata
'.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Unspecified Currency .  .
asmdata UnspecCrncy                                                        '172
  dw 06%, "(none)"$$
  dw 01%, &h00A4??
  dw 00%
end asmdata
'-------------------------------------------------------------------------------
'

Other program, or independent, use of the DLL.

'Declare for explicit call (using IMPORT in PBWin 10 or PBCC 6)
'or API LOADLIB in any version (including non-PB with syntax change)
DECLARE SUB CrncySymbolsDlg ALIAS "CrncySymDlg" (BYVAL ghParent as dword, _
                                                 BYVAL ParentPosX as long, _
                                                 BYVAL ParentPosY as long, _
                                                 BYVAL ParentSzX as long, _
                                                 BYVAL ParentSzY as long)


'Declare for implicit loading (load time/start up)
DECLARE SUB CrncySymbolsDlg LIB "CurrencyPopup.dll" ALIAS "CrncySymDlg" _
                                                    (BYVAL ghParent as dword, _
                                                     BYVAL ParentPosX as long, _
                                                     BYVAL ParentPosY as long, _
                                                     BYVAL ParentSzX as long, _
                                                     BYVAL ParentSzY as long)

  ghParent is handle of the window or console the popup is called from. For PBCC 6 the handle can be obtained with CON.HANDLE, or CONSHNDL for other versions. If making windowless/consoleless program just to call the popup, use 0 which is the handle of the desktop.
The positions and sizes are in pixels.

Created on 15 Oct 2021; last edit 21 Oct 2021