GD1=GUIDE(25,"【 えがいた グ ラ フ 】　　　　　　　　［シミュ−レション式名］　　　　　　　　《 登 録 座 標 情 報 》　　　　　　　　 ※ 操作変数 ※ 等　　　を保存します｡","保存する","取消")
IF GD1=1 THEN *HOZON
IF GD1=2 THEN END
*HOZON
 GD102=GUIDE(25,"◆ 確 認 事 項 ◆                       　　　　　　　　　　　　　　　　　　　　グラフを描いた後に、操作変数、登録座標情報、を変更していませんか。","変更なし","変更あり")
 IF GD102=1 THEN *HOZON0
 IF GD102=2 THEN *BACK
*BACK
 GD103=GUIDE(25,"操作変数、登録座標情報、を設定後､グラフ　　　　　　　　　　　　　　　　　　　　をもう一度描いてから保存してください。","確認")
 IF GD103=1 THEN END
*HOZON0
 GD2=GUIDE(25," 保存するファイルを選定または入力します","選／入","取消")
 IF GD2=1 THEN *HOZON1
 IF GD2=2 THEN END
*HOZON1
 GRFL$=FILEDLG$("保存ファイル","\GRAPH_X\GRAPH???.TIF",1)'***HZ0
 IF GRFL$="" THEN END
 CHK1$=LEFT$(GRFL$,16):CHK3$=MID$(CHK1$,3,14):CHK2$=RIGHT$(GRFL$,4)
 IF CHK3$="\GRAPH_X\GRAPH" AND CHK2$=".TIF" THEN *INPUTOK ELSE *INPUTDAME
*INPUTOK
 X$=MID$(GRFL$,17,3)'5----***HZ1
 TRFL$="\HOZON\HZNSY"+X$+".TXT"'6---***HZ2
 ZHFL$="\HOZON\ZAHY"+X$+".TIF"'7---***HZ3
 M1_CSZ$="\HOZON\M1_SZ_C\ASSST"+X$+".TXT"
*CHK1'9 10 11  13
GEAR SHOW "保存中"
ZH1$=GETS$("SM_ZH",0):IF ZH1$="" THEN *MESSAGE1'9
MMR$=GETS$("SM_MMR",0):IF MMR$="" THEN *MESSAGE1'10
MAX$=GETS$("MAX_MIN",0):IF MAX$="" THEN *MESSAGE1 ELSE *NEXT100'11
*NEXT100'操作変数INPUT CHECK*'13
SH1$=GETS$("M",0)
SH2$=GETS$("N",0)
SH3$=GETS$("C",0)
SH4$=GETS$("D",0)
IF SH1$="" OR SH2$="" OR SH3$="" OR SH4$="" THEN *MSG101 ELSE *NEXT1000
*NEXT1000
KBNS$=GETS$("ASSIST_P1/HZNTRK01",0):PUTS "ASSIST_P1/HZN000",KBNS$,0'100
MMR$=GETS$("ASSIST_P1/HZNTRK02",0):PUTS "ASSIST_P1/HZN000",MMR$,3'101
 SIKI$=GETS$("IKN_208",1)'*
:SKN$=RIGHT$(SIKI$,10)
:SKNT$=LEFT$(SKN$,7)'102
 PUTS "ASSIST_P1/HZN000",SKNT$,5'102
HAIKEIC$=GETS$("ASSIST_P1/HDDN1",0):PUTS "ASSIST_P1/HZN000",HAIKEIC$,6'103
XYJIKUC$=GETS$("ASSIST_P1/HDDN2",0):PUTS "ASSIST_P1/HZN000",XYJIKUC$,7'104
MASUMEC$=GETS$("ASSIST_P1/HDDN3",0):PUTS "ASSIST_P1/HZN000",MASUMEC$,8'105
GRPHC$=GETS$("ASSIST_P1/HDDN4",0):PUTS "ASSIST_P1/HZN000",GRPHC$,9'106
EVERY5C$=GETS$("ASSIST_P1/HDDN5",0):PUTS "ASSIST_P1/HZN000",EVERY5C$,10'107
PUTS "ASSIST_P1/HZN000",X$,11'108
A$=GETS$("M",0):PUTS "ASSIST_P1/HZN000",A$,12'111
B$=GETS$("N",0):PUTS "ASSIST_P1/HZN000",B$,13'111
C$=GETS$("C",0):PUTS "ASSIST_P1/HZN000",C$,14'111
D$=GETS$("D",0):PUTS "ASSIST_P1/HZN000",D$,15'111
E$=GETS$("E",0):PUTS "ASSIST_P1/HZN000",E$,16'111
GOSUB "HOZON2"
GEAR SAVE "ASSIST_P1/HZN000",TRFL$'112
GEAR SAVE "ASSIST_P1/ASSIST1",M1_CSZ$'HZ4
'HZ5
 VIEW "SML1A_UE"'113
 SAVE@ GRFL$,(0,0)-(500,500),1'113
 VIEW END'113
'HZ6
 VIEW "SML1A"'114
 SAVE@ ZHFL$,(0,0)-(500,500),1'114
 VIEW END'114
'115
GEAR ERASE "保存中"
  GD11=GUIDE(25,"【 えがいた グ ラ フ 】　　　　　　　　［シミュ−レション式名］　　　　　　　　《 登 録 座 標 情 報 》　　　　　　　　 ※ 操作変数 ※ 等　　　全て保存完了","確認")
 IF GD11=1 THEN END
END
*MESSAGE1
  GD10=GUIDE(25," 登録座標情報が十分に設定されていません｡ 設定後､グラフをもう一度描いてから保存してください｡","確認")
 IF GD10=1 THEN END
END
*MSG101
  MSG101=GUIDE(25," 操作変数が十分に設定されていません｡ 設定後､グラフをもう一度描いてから保存してください｡","確認")
 IF MSG101=1 THEN END
END
*INPUTDAME
 GD24=GUIDE(25,"入力したファイル名が形式に合っていません　　　　　　　　　　　　　　　　　　　　ファイル名は『ＧＲＡＰＨ？？？．ＴＩＦ』 (？は数) <半角大文字入力>","確認")
 IF GD24=1 THEN *HOZON1