home *** CD-ROM | disk | FTP | other *** search
/ FM Towns Magazine Volume 2 #2 / FMTOWNS.BIN / g_bungu / 208hz.txt next >
Text File  |  1994-10-13  |  4KB  |  81 lines
  1. GD1=GUIDE(25,"【 えがいた グ ラ フ 】　　　　　　　　［シミュ－レション式名］　　　　　　　　《 登 録 座 標 情 報 》　　　　　　　　 ※ 操作変数 ※ 等　　　を保存します｡","保存する","取消")
  2. IF GD1=1 THEN *HOZON
  3. IF GD1=2 THEN END
  4. *HOZON
  5.  GD102=GUIDE(25,"◆ 確 認 事 項 ◆                       　　　　　　　　　　　　　　　　　　　　グラフを描いた後に、操作変数、登録座標情報、を変更していませんか。","変更なし","変更あり")
  6.  IF GD102=1 THEN *HOZON0
  7.  IF GD102=2 THEN *BACK
  8. *BACK
  9.  GD103=GUIDE(25,"操作変数、登録座標情報、を設定後､グラフ　　　　　　　　　　　　　　　　　　　　をもう一度描いてから保存してください。","確認")
  10.  IF GD103=1 THEN END
  11. *HOZON0
  12.  GD2=GUIDE(25," 保存するファイルを選定または入力します","選／入","取消")
  13.  IF GD2=1 THEN *HOZON1
  14.  IF GD2=2 THEN END
  15. *HOZON1
  16.  GRFL$=FILEDLG$("保存ファイル","\GRAPH_X\GRAPH???.TIF",1)'***HZ0
  17.  IF GRFL$="" THEN END
  18.  CHK1$=LEFT$(GRFL$,16):CHK3$=MID$(CHK1$,3,14):CHK2$=RIGHT$(GRFL$,4)
  19.  IF CHK3$="\GRAPH_X\GRAPH" AND CHK2$=".TIF" THEN *INPUTOK ELSE *INPUTDAME
  20. *INPUTOK
  21.  X$=MID$(GRFL$,17,3)'5----***HZ1
  22.  TRFL$="\HOZON\HZNSY"+X$+".TXT"'6---***HZ2
  23.  ZHFL$="\HOZON\ZAHY"+X$+".TIF"'7---***HZ3
  24.  M1_CSZ$="\HOZON\M1_SZ_C\ASSST"+X$+".TXT"
  25. *CHK1'9 10 11  13
  26. GEAR SHOW "保存中"
  27. ZH1$=GETS$("SM_ZH",0):IF ZH1$="" THEN *MESSAGE1'9
  28. MMR$=GETS$("SM_MMR",0):IF MMR$="" THEN *MESSAGE1'10
  29. MAX$=GETS$("MAX_MIN",0):IF MAX$="" THEN *MESSAGE1 ELSE *NEXT100'11
  30. *NEXT100'操作変数INPUT CHECK*'13
  31. SH1$=GETS$("M",0)
  32. SH2$=GETS$("N",0)
  33. SH3$=GETS$("C",0)
  34. SH4$=GETS$("D",0)
  35. IF SH1$="" OR SH2$="" OR SH3$="" OR SH4$="" THEN *MSG101 ELSE *NEXT1000
  36. *NEXT1000
  37. KBNS$=GETS$("ASSIST_P1/HZNTRK01",0):PUTS "ASSIST_P1/HZN000",KBNS$,0'100
  38. MMR$=GETS$("ASSIST_P1/HZNTRK02",0):PUTS "ASSIST_P1/HZN000",MMR$,3'101
  39.  SIKI$=GETS$("IKN_208",1)'*
  40. :SKN$=RIGHT$(SIKI$,10)
  41. :SKNT$=LEFT$(SKN$,7)'102
  42.  PUTS "ASSIST_P1/HZN000",SKNT$,5'102
  43. HAIKEIC$=GETS$("ASSIST_P1/HDDN1",0):PUTS "ASSIST_P1/HZN000",HAIKEIC$,6'103
  44. XYJIKUC$=GETS$("ASSIST_P1/HDDN2",0):PUTS "ASSIST_P1/HZN000",XYJIKUC$,7'104
  45. MASUMEC$=GETS$("ASSIST_P1/HDDN3",0):PUTS "ASSIST_P1/HZN000",MASUMEC$,8'105
  46. GRPHC$=GETS$("ASSIST_P1/HDDN4",0):PUTS "ASSIST_P1/HZN000",GRPHC$,9'106
  47. EVERY5C$=GETS$("ASSIST_P1/HDDN5",0):PUTS "ASSIST_P1/HZN000",EVERY5C$,10'107
  48. PUTS "ASSIST_P1/HZN000",X$,11'108
  49. A$=GETS$("M",0):PUTS "ASSIST_P1/HZN000",A$,12'111
  50. B$=GETS$("N",0):PUTS "ASSIST_P1/HZN000",B$,13'111
  51. C$=GETS$("C",0):PUTS "ASSIST_P1/HZN000",C$,14'111
  52. D$=GETS$("D",0):PUTS "ASSIST_P1/HZN000",D$,15'111
  53. E$=GETS$("E",0):PUTS "ASSIST_P1/HZN000",E$,16'111
  54. GOSUB "HOZON2"
  55. GEAR SAVE "ASSIST_P1/HZN000",TRFL$'112
  56. GEAR SAVE "ASSIST_P1/ASSIST1",M1_CSZ$'HZ4
  57. 'HZ5
  58.  VIEW "SML1A_UE"'113
  59.  SAVE@ GRFL$,(0,0)-(500,500),1'113
  60.  VIEW END'113
  61. 'HZ6
  62.  VIEW "SML1A"'114
  63.  SAVE@ ZHFL$,(0,0)-(500,500),1'114
  64.  VIEW END'114
  65. '115
  66. GEAR ERASE "保存中"
  67.   GD11=GUIDE(25,"【 えがいた グ ラ フ 】　　　　　　　　［シミュ－レション式名］　　　　　　　　《 登 録 座 標 情 報 》　　　　　　　　 ※ 操作変数 ※ 等　　　全て保存完了","確認")
  68.  IF GD11=1 THEN END
  69. END
  70. *MESSAGE1
  71.   GD10=GUIDE(25," 登録座標情報が十分に設定されていません｡ 設定後､グラフをもう一度描いてから保存してください｡","確認")
  72.  IF GD10=1 THEN END
  73. END
  74. *MSG101
  75.   MSG101=GUIDE(25," 操作変数が十分に設定されていません｡ 設定後､グラフをもう一度描いてから保存してください｡","確認")
  76.  IF MSG101=1 THEN END
  77. END
  78. *INPUTDAME
  79.  GD24=GUIDE(25,"入力したファイル名が形式に合っていません　　　　　　　　　　　　　　　　　　　　ファイル名は『ＧＲＡＰＨ？？？．ＴＩＦ』 (？は数) <半角大文字入力>","確認")
  80.  IF GD24=1 THEN *HOZON1
  81.