$NAME "Verify PIN [1234]"
$CMD 0XA0 0X20 0X00 0X01   $LI 8   $LE 0
   $DI 0X31 0X32 0X33 0X34 0XFF 0XFF 0XFF 0XFF     REM 1234....
$SW 0X9000   $LO 0


$NAME "Select MF [3F 00]"
$CMD 0XA0 0XA4 0X00 0X00   $LI 2   $LE 0
   $DI 0X3F 0X00                                   REM ?.
$SW 0X9F16   $LO 0


$NAME "Select DF TELECOM [7F 10]"
$CMD 0XA0 0XA4 0X00 0X00   $LI 2   $LE 0
   $DI 0X7F 0X10                                   REM .
$SW 0X9F16   $LO 0


$NAME "Select EF ADN [6f 3a]"
$CMD 0XA0 0XA4 0X00 0X00   $LI 2   $LE 0
   $DI 0X6F 0X3A                                   REM o:
$SW 0X9F0F   $LO 0


$NAME "Update Record [Berlin]"
$CMD 0XA0 0XDC 0X01 0X04   $LI 28   $LE 0
   $DI 0X42 0X65 0X72 0X6C 0X69 0X6E 0XFF 0XFF     REM Berlin..
   $DI 0XFF 0XFF 0XFF 0XFF 0XFF 0XFF 0X08 0X91     REM ........
   $DI 0X00 0X94 0X03 0X76 0X98 0X21 0X43 0XFF     REM ...v.!C.
   $DI 0XFF 0XFF 0XFF 0XFF                         REM ....
$SW 0X9000   $LO 0


$NAME "Update Record [London]"
$CMD 0XA0 0XDC 0X02 0X04   $LI 28   $LE 0
   $DI 0X4C 0X6F 0X6E 0X64 0X6F 0X6E 0XFF 0XFF     REM London..
   $DI 0XFF 0XFF 0XFF 0XFF 0XFF 0XFF 0X08 0X91     REM ........
   $DI 0X00 0X44 0X10 0X78 0X43 0X21 0X76 0XFF     REM .D.xC!v.
   $DI 0XFF 0XFF 0XFF 0XFF                         REM ....
$SW 0X9000   $LO 0


$NAME "Select MF [3F 00] (Release EF ADN)"
$CMD 0XA0 0XA4 0X00 0X00   $LI 2   $LE 0
   $DI 0X3F 0X00                                   REM ?.
$SW 0X9F16   $LO 0