diff --git a/code/pay-to-addr-script.go b/code/pay-to-addr-script.go
new file mode 100644
index 0000000..0cc3a35
--- /dev/null
+++ b/code/pay-to-addr-script.go
@@ -0,0 +1,47 @@
+package main
+
+import (
+	"fmt"
+	"os"
+
+	"github.com/conformal/btcnet"
+	"github.com/conformal/btcscript"
+	"github.com/conformal/btcutil"
+)
+
+// This example demonstrates creating a script which pays to a bitcoin address.
+// It also prints the created script hex and uses the DisasmString function to
+// display the disassembled script.
+
+func main() {
+	addressStr := "12gpXQVcCL2qhTNQgyLVdCFG2Qs2px98nV"
+
+	PayToAddrScript(addressStr)
+	// Output:
+	// Script Hex: 76a914128004ff2fcaf13b2b91eb654b1dc2b674f7ec6188ac
+	// Script Disassembly: OP_DUP OP_HASH160 128004ff2fcaf13b2b91eb654b1dc2b674f7ec61 OP_EQUALVERIFY OP_CHECKSIG
+}
+
+func PayToAddrScript(addressStr string) {
+	// Parse the address to send the coins to into a btcutil.Address
+	// which is useful to ensure the accuracy of the address and determine
+	// the address type.  It is also required for the upcoming call to
+	// PayToAddrScript.
+	address, err := btcutil.DecodeAddress(addressStr, &btcnet.MainNetParams)
+
+	// Create a public key script that pays to the address.
+	script, err := btcscript.PayToAddrScript(address)
+	handle(err)
+	fmt.Printf("Script Hex: %x\n", script)
+
+	disasm, err := btcscript.DisasmString(script)
+	handle(err)
+	fmt.Println("Script Disassembly:", disasm)
+}
+
+func handle(err error) {
+	if err != nil {
+		fmt.Println(err)
+		os.Exit(1)
+	}
+}