myfirsttoken

(define-constant contract-owner tx-sender)

(define-constant err-owner-only (err u100))
(define-constant err-zero-amount (err u101))

(define-fungible-token mytoken u1000000)

(define-read-only (get-balance (user principal))
  (ok (ft-get-balance mytoken user))
)

(define-public (mint (amount uint) (recipient principal))
  (begin
    (asserts! (is-eq tx-sender contract-owner) err-owner-only)
    (asserts! (> amount u0) err-zero-amount)
    (ft-mint? mytoken amount recipient)
  )
)

(define-public (transfer (amount uint) (sender principal) (recipient principal))
  (begin
    (asserts! (> amount u0) err-zero-amount)
    (asserts! (is-eq tx-sender sender) err-owner-only)
    (ft-transfer? mytoken amount sender recipient)
  )
)