single (Dual Argument) string

[J. Baker]

Code updated for 5.20+

the window to call the dll

Code: Select all

If OpenWindow(0, 100, 100, 200, 200, "System Beep", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

 If OpenLibrary(0, "beep.dll")
  CallFunction(0, "systembeep", @"1500, 1000")
  CloseLibrary(0)
 EndIf

EndIf

End

the dll

Code: Select all

ProcedureDLL.s systembeep(getArgs$)

  getCommaPos = FindString(getArgs$, ",", 1)
  
  Arg1$ = RSet(getArgs$, getCommaPos -1)
  
  Arg2$ = RemoveString(getArgs$, Arg1$ + ",")
  
  hertz = Val(Arg1$)
  
  milliseconds = Val(Arg2$)
  
  Beep_(hertz , milliseconds)
  
 ProcedureReturn
EndProcedure