function main()
begin
  var int astep,acnt,vstep,vstart

  set acnt =Q_InputValue("想同時修改多少個位置？",1,150)
  set astep=Q_InputValue("每個被修改的位置，是多少個位元(Bytes)？",1,150)
  if Q_ChooseOne("所有位置都用同一個數值來修改嗎？","是,否,")=0
    then begin
      set vstep=0
      set vstart=Q_InputValue("想把這些位置，修改成什麼數值？",99,150)
    end
    else begin
      set vstart=Q_InputValue("用作修改的第一個數值是什麼？",1,150)
      set vstep=Q_InputValue("每個修改數值相差多少？",1,150)
    end
  if !Q_IsQuit()
  then begin
    Q_CreateSList()
    Q_SList_Add("function "+Q_GetNextAutoLockFuncName()+"(var int addr)")
    Q_SList_Add("begin")
    Q_SList_Add("  var int i")
    Q_SList_Add("  for set i=1 to "+str(acnt))
    Q_SList_Add("  writemem(addr+(i-1)*"+str(astep)+",str("+str(vstart)+"+(i-1)*"+str(vstep)+"))")
    Q_SList_Add("end")
    Q_SListToAutoLock()
    Q_FreeSList()
  end
end
