#include "lib_address.hsp"
screen 0,600,400 //windowサイズ
title "住所録"        //windowタイトル
//*********************************************
//    初期設定
//*********************************************
kenString = fun_KenString()
//*********************************************
//    メニュー画面
//*********************************************
*menu
    cls :
    gosub *init
    objsize 200,50 
    pos 200,70   :button "新規登録",*inputData
    pos 200,170  :button "一覧",*menu
    pos 200,270  :button "終了",*appEnd
stop
//*********************************************
//   　 初期化
//*********************************************
*init
    name      = ""   //名前
    kana       = ""   //ふりかな
    zip          = ""   //郵便番号
    ken_id     = 0   //都道府県
    address   = ""   //住所
    address2 = ""   //マンション等
    biko        = ""   //備考
return
//*********************************************
//    登録編修画面
//*********************************************
*inputData
    cls
    pos 50,20   :mes "■登録"
    objsize 300,150
    pos 50,50    :mes "名前"
    pos 150,50  :input name, 200, 20,20
    pos 50,80    :mes "ふりかな"
    pos 150,80  :input kana, 200, 20,20
    pos 50,110  :mes "郵便番号"
    pos 150,110 :input zip, 80, 20,10
    pos 50,170   :mes "住所"
    pos 150,170  :input address, 350, 20,100
    pos 50,200   :mes "ﾏﾝｼｮﾝ等"
    pos 150,200  :input address2, 350, 20,100 
    pos 50,230   :mes "備考"
    pos 150,230  :mesbox biko, 350,50,,100
    objsize 100,150
    pos 50,140   :mes "都道府県"
    pos 150,140  :combox ken_id,100,kenString
 stop
//*********************************************
//    終了処理
//*********************************************
*appEnd
   end
stop