; gm30.s is OBSOLETE. 
; Keep this file to prevent it from appearing in upgrade installs 

;
;	Version 1.1
;	Remove semicolons
;

;	Theorhetically,  GoldMine does not limit the number of characters inserted
;	in the notes field. However,  because the maximum DDE request item string
;	length is 255 characters,  the practical limit is 225 chars.

;[Info]
Name=GoldMine 3.x
Vendor=Corex Technologies Corp.
Version=Version 1.1
MajorVersion=1
MinorVersion=1
ExeFile=GMW32.EXE

[Send]
Request(goldmine, data, "[open(contact1)]", %work_area)
Request(, , "[unlock(%work_area)]",%temp)
Request(, , "[append(%work_area)]", %rec_num)
Request(, , "[move(%work_area, goto, %rec_num)]")
Request(, , "[replace(%work_area, company, \"%{company, , 1}\")]",%temp)
Request(, , "[replace(%work_area, contact, \"%{name, 40, 1}\")]",%temp)
Request(, , "[replace(%work_area, dear, \"%{first_name, 20}\")]",%temp)
Request(, , "[replace(%work_area, lastname, \"%{last_name, 15}\")]",%temp)
Request(, , "[replace(%work_area, title, \"%{title, 30, 1}\")]",%temp)
Request(, , "[replace(%work_area, phone1, \"%{phone, 20, 1}\")]",%temp)
Request(, , "[replace(%work_area, phone2, \"%{phone_1, 20, 1}\")]",%temp)
Request(, , "[replace(%work_area, phone3, \"%{phone_2, 20, 1}\")]",%temp)
Request(, , "[replace(%work_area, fax, \"%{fax, 16, 1}\")]",%temp)
Request(, , "[replace(%work_area, address1, \"%{address_line_1}\")]",%temp)
Request(, , "[replace(%work_area, address2, \"%{address_line_2}\")]",%temp)
Request(, , "[replace(%work_area, city, \"%{city, 26}\")]",%temp)
Request(, , "[replace(%work_area, state, \"%{state, 3}\")]",%temp)
Request(, , "[replace(%work_area, zip, \"%{zip, 10}\")]",%temp)
Request(, , "[replace(%work_area, notes, \"%{notes, 225}\")]",%temp)
Request(, , "[close(%work_area)]",%temp)
Request(, , "[recordobj(goto,  %rec_num)]",%temp)

[GetSelectInfo]
Request(goldmine, data, "[open(contact1)]", %work_area)
Request(, , "[read(%work_area, contact)]", %name)
Request(, , "[read(%work_area, company)]", %company)
Request(, , "[close(%work_area)]")