1.     调用子程序 [说话]
  2.     调用子程序 [等待按键]
  3.     如果表达式 (Key < 49 Or Key > 51) 为真,则循环执行
  4.         调用子程序 [等待按键]
  5.     循环结束
  6.     Mtype = CInt(Chr(Key))
  7.     Mystring= "[制作类型]选择[" & Mtype &"]["
  8.     如果表达式 (Mtype = 1) 为真,则
  9.         Mystring= Mystring & "只做不拣"
  10.     否则如果(Mtype = 2)为真,则
  11.         Mystring= Mystring & "蓄成功率"
  12.     否则如果(Mtype = 3)为真,则
  13.         Mystring= Mystring & "拣物出售"
  14.     条件结束
  15.     Mystring= Mystring & "]..."
  16.     调用子程序 [说话]
  17. 子程序结束,回到调用处
  18. 子程序 [选择菜单]
  19.     Mystring="│[选择菜单]" & vblf
  20.     Mystring= Mystring & "├" & String(8,"─") &vblf
  21.     Mystring= Mystring & "│<C>参数设置" & vblf
  22.     Mystring= Mystring & "│<F>脚本设置" & vblf
  23.     如果表达式 (BuyItemCount > 0) 为真,则
  24.         Mystring= Mystring & "│<S>保存设置" & vblf
  25.         Mystring= Mystring & "│<Y>启动脚本@"
  26.     条件结束
  27.     调用子程序 [说话]
  28.     调用子程序 [等待按键]
  29.     如果表达式 (Key <> 67 And Key <> 70 And (Key <> 83 Or BuyItemCount = 0) And (Key <> 89 Or BuyItemCount = 0)) 为真,则循环执行
  30.         调用子程序 [等待按键]
  31.     循环结束
  32.     如果表达式 (Key = 67) 为真,则
  33.         Mystring= "选择[C][参数设置]..."
  34.         调用子程序 [说话]
  35.         调用子程序 [参数设置]
  36.     否则如果(Key = 70)为真,则
  37.         Mystring= "选择[F][脚本设置]..."
  38.         调用子程序 [说话]
  39.         调用子程序 [脚本设置]
  40.     否则如果(Key = 83 And BuyItemCount > 0)为真,则
  41.         Mystring= "选择[S][保存设置]..."
  42.         调用子程序 [说话]
  43.         如果表达式 (ScriptName <> "") 为真,则
  44.             调用子程序 [保存设置]
  45.         否则
  46.             调用子程序 [设置脚本名]
  47.         条件结束
  48.         调用子程序 [选择菜单]
  49.     否则如果(Key = 89 And BuyItemCount > 0)为真,则
  50.         Mystring= "选择[Y][启动脚本]..."
  51.         调用子程序 [说话]
  52.         调用子程序 [设置列表]
  53.     条件结束
  54. 子程序结束,回到调用处
  55. 子程序 [脚本操作]
  56.     Mystring= "│[脚本] -[" & ScriptName & "] " & vblf
  57.     Mystring= Mystring & "├" & String(11,"─") & vblf
  58.     Mystring= Mystring & "│<Y>加载 <N>取消 <D>删除"
  59.     调用子程序 [说话]
  60.     调用子程序 [等待按键]
  61.     如果表达式 (Key <> 68 And Key <> 78 And Key <> 89) 为真,则循环执行
  62.         调用子程序 [等待按键]
  63.     循环结束
  64.     如果表达式 (Key = 68) 为真,则
  65.         Mystring="选择[D]删除脚本[" & ScriptName & "]..."
  66.         调用子程序 [说话]
  67.         调用子程序 [确认删除脚本]
  68.         调用子程序 [脚本设置]
  69.     否则如果(Key = 78)为真,则
  70.         Mystring="选择[N][取消]返回[脚本设置]..."
  71.         调用子程序 [说话]
  72.         调用子程序 [脚本设置]
  73.     否则如果(Key = 89)为真,则
  74.         Mystring="选择[Y]加载脚本[" & ScriptName & "]..."
  75.         调用子程序 [说话]
  76.         调用子程序 [加载脚本]
  77.         调用子程序 [设置列表]
  78.     条件结束
  79. 子程序结束,回到调用处
  80. 子程序 [确认删除脚本]
  81.     Mystring= "│[删除] -[" & ScriptName & "]" & vblf
  82.     Mystring= Mystring & "├" & String(11,"─") & vblf
  83.     Mystring= Mystring & "│<Y>确定 <N>取消 "
  84.     调用子程序 [说话]
  85.     调用子程序 [等待按键]
  86.     如果表达式 (Key <> 89 And Key <> 78) 为真,则循环执行
  87.         调用子程序 [等待按键]
  88.     循环结束
  89.     如果表达式 (Key = 89) 为真,则
  90.         Mystring = "选择[Y][确定][删除]脚本[" & ScriptName & "]..."
  91.         调用子程序 [说话]
  92.         调用子程序 [删除脚本]
  93.     否则如果(Key = 78)为真,则
  94.         Mystring = "选择[N][取消]返回[脚本设置]..."
  95.         调用子程序 [说话]
  96.     条件结束
  97. 子程序结束,回到调用处
  98. 子程序 [读取脚本列表]
  99.     ScriptList =""
  100.     ScriptCount = 0