clear


z   = cbor_init( 03, "" )

z   = cbor_write_positive( 03, 01 )


// this is a Map
inc_indent
    z   = cbor_write_map_start( 03, 04 )
    inc_indent
        inc_indent  // mapPair CBA895F3----- begin
            z   = cbor_write_positive( 03, 01 )

            v   = 687134968222EC17202E42505F8ED2B16AE22F16BB05B88C25DB9E602645F141
            z   = cbor_write_byte_string( 03, $v )
        dec_indent  // mapPair CBA895F3----- end

        inc_indent  // mapPair 56E871C4----- begin
            z   = cbor_write_positive( 03, 02 )

            // this is a Map
            inc_indent
                z   = cbor_write_map_start( 03, 02 )
                inc_indent
                    inc_indent  // mapPair F517FC1F----- begin
                        v   = utf8_string( "id" )
                        z   = cbor_write_text_string( 03, $v )

                        v   = utf8_string( "server1" )
                        z   = cbor_write_text_string( 03, $v )
                    dec_indent  // mapPair F517FC1F----- end

                    inc_indent  // mapPair 36A0C3E9----- begin
                        v   = utf8_string( "name" )
                        z   = cbor_write_text_string( 03, $v )

                        v   = utf8_string( "server1" )
                        z   = cbor_write_text_string( 03, $v )
                    dec_indent  // mapPair 36A0C3E9----- end
                dec_indent
            dec_indent
        dec_indent  // mapPair 56E871C4----- end

        inc_indent  // mapPair B9AD14CA----- begin
            z   = cbor_write_positive( 03, 03 )

            // this is a Map
            inc_indent
                z   = cbor_write_map_start( 03, 03 )
                inc_indent
                    inc_indent  // mapPair DA3FC0DF----- begin
                        v   = utf8_string( "id" )
                        z   = cbor_write_text_string( 03, $v )

                        v   = 2B6689BB18F4169F069FBCDF50CB6EA3C60A861B9A7B63946983E0B577B78C70
                        z   = cbor_write_byte_string( 03, $v )
                    dec_indent  // mapPair DA3FC0DF----- end

                    inc_indent  // mapPair 907E1FAF----- begin
                        v   = utf8_string( "name" )
                        z   = cbor_write_text_string( 03, $v )

                        v   = utf8_string( "testctap@ctap.com" )
                        z   = cbor_write_text_string( 03, $v )
                    dec_indent  // mapPair 907E1FAF----- end

                    inc_indent  // mapPair 954E5561----- begin
                        v   = utf8_string( "displayName" )
                        z   = cbor_write_text_string( 03, $v )

                        v   = utf8_string( "Test Ctap" )
                        z   = cbor_write_text_string( 03, $v )
                    dec_indent  // mapPair 954E5561----- end
                dec_indent
            dec_indent
        dec_indent  // mapPair B9AD14CA----- end

        inc_indent  // mapPair C822D42C----- begin
            z   = cbor_write_positive( 03, 04 )

            // this is an Array
            inc_indent
                z   = cbor_write_array_start( 03, 03 )
                inc_indent
                    // array CF15220E----- begin
                    // this is a Map
                    inc_indent
                        z   = cbor_write_map_start( 03, 02 )
                        inc_indent
                            inc_indent  // mapPair 0037DDC1----- begin
                                v   = utf8_string( "alg" )
                                z   = cbor_write_text_string( 03, $v )

                                z   = cbor_write_negative( 03, 07 )
                            dec_indent  // mapPair 0037DDC1----- end

                            inc_indent  // mapPair 8224FCEB----- begin
                                v   = utf8_string( "type" )
                                z   = cbor_write_text_string( 03, $v )

                                v   = utf8_string( "public-key" )
                                z   = cbor_write_text_string( 03, $v )
                            dec_indent  // mapPair 8224FCEB----- end
                        dec_indent
                    dec_indent
                    // array CF15220E----- end

                    // array AFDC5795----- begin
                    // this is a Map
                    inc_indent
                        z   = cbor_write_map_start( 03, 02 )
                        inc_indent
                            inc_indent  // mapPair BDCE6ADE----- begin
                                v   = utf8_string( "alg" )
                                z   = cbor_write_text_string( 03, $v )

                                z   = cbor_write_negative( 03, 0101 )
                            dec_indent  // mapPair BDCE6ADE----- end

                            inc_indent  // mapPair 9E3655F0----- begin
                                v   = utf8_string( "type" )
                                z   = cbor_write_text_string( 03, $v )

                                v   = utf8_string( "public-key" )
                                z   = cbor_write_text_string( 03, $v )
                            dec_indent  // mapPair 9E3655F0----- end
                        dec_indent
                    dec_indent
                    // array AFDC5795----- end

                    // array 24A92834----- begin
                    // this is a Map
                    inc_indent
                        z   = cbor_write_map_start( 03, 02 )
                        inc_indent
                            inc_indent  // mapPair 69EE5EC2----- begin
                                v   = utf8_string( "alg" )
                                z   = cbor_write_text_string( 03, $v )

                                z   = cbor_write_negative( 03, 25 )
                            dec_indent  // mapPair 69EE5EC2----- end

                            inc_indent  // mapPair 6E10A71C----- begin
                                v   = utf8_string( "type" )
                                z   = cbor_write_text_string( 03, $v )

                                v   = utf8_string( "public-key" )
                                z   = cbor_write_text_string( 03, $v )
                            dec_indent  // mapPair 6E10A71C----- end
                        dec_indent
                    dec_indent
                    // array 24A92834----- end

                dec_indent
            dec_indent
        dec_indent  // mapPair C822D42C----- end
    dec_indent
dec_indent

z   = cbor_stream_get( 03 )

kk  = 01a4015820687134968222ec17202e42505f8ed2b16ae22f16bb05b88c25db9e602645f14102a26269646773657276657231646e616d65677365727665723103a362696458202b6689bb18f4169f069fbcdf50cb6ea3c60a861b9a7b63946983e0b577b78c70646e616d6571746573746374617040637461702e636f6d6b646973706c61794e616d65695465737420437461700483a263616c672664747970656a7075626c69632d6b6579a263616c6739010064747970656a7075626c69632d6b6579a263616c67382464747970656a7075626c69632d6b6579
if $z != $kk
    ?
    pause
endif