Button 1 Label Drop POS-File here
String DroppedFilename
String DroppedString
Stop

Label Event_DroppedFile
	s2 = ""
	v1 = GetSeparatedStringCount(DroppedString, CRLF)
	For v2 = 4 To v1 - 1
		s1 = GetSeparatedString(DroppedString, v2, CRLF)
		s1 = Replace(s1,"#", "")
		If s1 = " End"
			Exit
		EndIf
		v3 = GetSeparatedStringCount(s1, " ")
		s2 = s2 + GetSeparatedString(s1, 0, " ") + ","
		s2 = s2 + GetSeparatedString(s1, 3, " ") + ","
		s2 = s2 + GetSeparatedString(s1, 4, " ") + ","
		s2 = s2 + GetSeparatedString(s1, 5, " ") + ","
		s2 = s2 + GetSeparatedString(s1, 6, " ")
		s2 = s2 + CRLF
	Next
	'Print DroppedFilename + s2
	s3 = DroppedFilename + "_.csv"
	Save DeleteFile s3
	Save StringToFile s2 s3
Return


'BOOKMARKS 

'EDITEDLINES 13 3 12 4 11 6 6 7 0 8 1 10 2 10 

'WATCH s2
