rem Load last input-----------
rem  seek group1--------------
list create,1
list loadfile,1,c:\pfg\rates.txt
LIST seek,1,0
%%prog1 = @ITEM(1)
LIST SEEK,1,1
%%term1 = @ITEM(1)
LIST SEEK,1,2
%%rate1 = @ITEM(1)
LIST SEEK,1,3
%%payper1 = @ITEM(1)
rem  group2--------------
LIST seek,1,4
%%prog2 = @ITEM(1)
LIST SEEK,1,5
%%term2 = @ITEM(1)
LIST SEEK,1,6
%%rate2 = @ITEM(1)
LIST SEEK,1,7
%%payper2 = @ITEM(1)
rem  group3--------------
LIST seek,1,8
%%prog3 = @ITEM(1)
LIST SEEK,1,9
%%term3 = @ITEM(1)
LIST SEEK,1,10
%%rate3 = @ITEM(1)
LIST SEEK,1,11
%%payper3 = @ITEM(1)
rem  group4--------------
LIST seek,1,12
%%prog4 = @ITEM(1)
LIST SEEK,1,13
%%term4 = @ITEM(1)
LIST SEEK,1,14
%%rate4 = @ITEM(1)
LIST SEEK,1,15
%%payper4 = @ITEM(1)
rem  group5--------------
LIST seek,1,16
%%prog5 = @ITEM(1)
LIST SEEK,1,17
%%term5 = @ITEM(1)
LIST SEEK,1,18
%%rate5 = @ITEM(1)
LIST SEEK,1,19
%%payper5 = @ITEM(1)
rem  group6--------------
LIST seek,1,20
%%prog6 = @ITEM(1)
LIST SEEK,1,21
%%term6 = @ITEM(1)
LIST SEEK,1,22
%%rate6 = @ITEM(1)
LIST SEEK,1,23
%%payper6 = @ITEM(1)
rem  group7--------------
LIST seek,1,24
%%prog7 = @ITEM(1)
LIST SEEK,1,25
%%term7 = @ITEM(1)
LIST SEEK,1,26
%%rate7 = @ITEM(1)
LIST SEEK,1,27
%%payper7 = @ITEM(1)

%%dte = @datetime(m-d-yyyy)

DIALOG CREATE,Website Updates,,,574,390,
DIALOG ADD,EDIT,dte,3,40,60,20,%%dte
DIALOG ADD,MENU,&File,Save,Exit
DIALOG ADD,MENU,&Website,Publish,Go to PFG website
DIALOG ADD,MENU,&Edit About Pages,About PFG,Learn about MTG,Should I Refi

DIALOG ADD,MENU,&Edit More Info Pages,Main,Conventional,FHA,Special,Jumbo,Investment,Downpayment,Cashback,Current Mtg

DIALOG ADD, STYLE,stybtn1,arial,8,CB,,,
DIALOG ADD, STYLE,btntxt1,tahoma,,bc,,black
DIALOG ADD, STYLE,stytxt1,arial,8,lb,,ltblue
DIALOG ADD, STYLE,stytxt2,tahoma,8,LB,,black
DIALOG ADD, STYLE,Bold,MS Sans Serif,8,B
DIALOG ADD, STYLE,lsttxt1,tahoma,8,L,,black

DIALOG ADD, GROUP,g1,25,1,172,105,,,
DIALOG ADD, GROUP,g2,135,1,172,105,,,
DIALOG ADD, GROUP,g3,245,1,172,105,,,
DIALOG ADD, GROUP,g4,25,200,172,105,,,
DIALOG ADD, GROUP,g5,135,200,172,105,,,
DIALOG ADD, GROUP,g6,245,200,172,105,,,
DIALOG ADD, GROUP,g7,25,400,172,105,,,

rem DIALOG ADD, BITMAP,bmp,350,190,154,88,run2.ico
rem DIALOG ADD, BITMAP,bmp2,2,160,354,,smpfg1.bmp


DIALOG ADD,TEXT,txtdte,5,5,50,20,Date:,Bold


rem DIALOG ADD,TEXT,txtcontent,5,385,90,20,Update,stytxt1

rem group1
DIALOG ADD,TEXT,txt1,30,5,60,20,Program 1,,Bold
DIALOG ADD,EDIT,prog1,30,70,100,20,%%prog1

DIALOG ADD,TEXT,txt2,55,5,60,20,Term 1,Bold
DIALOG ADD,EDIT,term1,55,70,100,20,%%term1

DIALOG ADD,TEXT,txt3,80,5,60,20,Rate 1,Bold
DIALOG ADD,EDIT,rate1,80,70,100,20,%%rate1

DIALOG ADD,TEXT,txt4,105,5,60,20,PayPer1K,Bold
DIALOG ADD,EDIT,payper1,105,70,100,20,%%payper1

rem -----------------------------------------
rem group2
DIALOG ADD,TEXT,txt1g2,140,5,60,20,Program 2,Bold
DIALOG ADD,EDIT,prog2,140,70,100,20,%%prog2

DIALOG ADD,TEXT,txt2g2,165,5,60,20,Term 2,Bold
DIALOG ADD,EDIT,term2,165,70,100,20,%%term2

DIALOG ADD,TEXT,txt3g2,190,5,60,20,Rate 2,Bold
DIALOG ADD,EDIT,rate2,190,70,100,20,%%rate2

DIALOG ADD,TEXT,txt4g2,215,5,60,20,PayPer1K,Bold
DIALOG ADD,EDIT,payper2,215,70,100,20,%%payper2

rem -----------------------------------------
rem group3
DIALOG ADD,TEXT,txt1g3,250,5,60,20,Program 3,Bold
DIALOG ADD,EDIT,prog3,250,70,100,20,%%prog3

DIALOG ADD,TEXT,txt2g3,275,5,60,20,Term 3,Bold
DIALOG ADD,EDIT,term3,275,70,100,20,%%term3

DIALOG ADD,TEXT,txt3g3,300,5,60,20,Rate 3,Bold
DIALOG ADD,EDIT,rate3,300,70,100,20,%%rate3

DIALOG ADD,TEXT,txt4g3,325,5,60,20,PayPer1K,Bold
DIALOG ADD,EDIT,payper3,325,70,100,20,%%payper3



rem -----------------------------------------
rem group4
DIALOG ADD,TEXT,txt1g4,30,205,60,20,Program 4,Bold
DIALOG ADD,EDIT,prog4,30,270,100,20,%%prog4

DIALOG ADD,TEXT,txt2g4,55,205,60,20,Term 4,Bold
DIALOG ADD,EDIT,term4,55,270,100,20,%%term4

DIALOG ADD,TEXT,txt3g4,80,205,60,20,Rate 4,Bold
DIALOG ADD,EDIT,rate4,80,270,100,20,%%rate4

DIALOG ADD,TEXT,txt4g4,105,205,60,20,PayPer1K,Bold
DIALOG ADD,EDIT,payper4,105,270,100,20,%%payper4



rem -----------------------------------------
rem group5
DIALOG ADD,TEXT,txt1g5,140,205,60,20,Program 5,Bold
DIALOG ADD,EDIT,prog5,140,270,100,20,%%prog5

DIALOG ADD,TEXT,txt2g5,165,205,60,20,Term 5,Bold
DIALOG ADD,EDIT,term5,165,270,100,20,%%term5

DIALOG ADD,TEXT,txt3g5,190,205,60,20,Rate 5,Bold
DIALOG ADD,EDIT,rate5,190,270,100,20,%%rate5

DIALOG ADD,TEXT,txt4g5,215,205,60,20,PayPer1k,Bold
DIALOG ADD,EDIT,payper5,215,270,100,20,%%payper5

rem -----------------------------------------
rem group6
DIALOG ADD,TEXT,txt1g6,250,205,60,20,Program 6,Bold
DIALOG ADD,EDIT,prog6,250,270,100,20,%%prog6

DIALOG ADD,TEXT,txt2g6,275,205,60,20,Term 6,Bold
DIALOG ADD,EDIT,term6,275,270,100,20,%%term6

DIALOG ADD,TEXT,txt3g6,300,205,60,20,Rate 6,Bold
DIALOG ADD,EDIT,rate6,300,270,100,20,%%rate6

DIALOG ADD,TEXT,txt4g6,325,205,60,20,PayPer1k,Bold
DIALOG ADD,EDIT,payper6,325,270,100,20,%%payper6

rem -----------------------------------------
rem group7
DIALOG ADD,TEXT,txt1g7,30,405,60,20,Program 7,Bold
DIALOG ADD,EDIT,prog7,30,470,100,20,%%prog7

DIALOG ADD,TEXT,txt2g7,55,405,60,20,Term 7,Bold
DIALOG ADD,EDIT,term7,55,470,100,20,%%term7

DIALOG ADD,TEXT,txt3g7,80,405,60,20,Rate 7,Bold
DIALOG ADD,EDIT,rate7,80,470,100,20,%%rate7

DIALOG ADD,TEXT,txt4g7,105,405,60,20,PayPer1k,Bold
DIALOG ADD,EDIT,payper7,105,470,100,20,%%payper7


rem -----------------------------------------
rem End of groups

DIALOG ADD,button,btn1,360,212,50,20,Save,btntxt1
DIALOG ADD,button,btn2,360,262,50,20,Publish,btntxt1
DIALOG ADD,button,btn3,360,312,50,20,Exit,btntxt1

   list add,1,%%prog1
   list add,1,%%term1
   list add,1,%%rate1
   list add,1,%%payper1
   list add,1,%%prog2
   list add,1,%%term2
   list add,1,%%rate2
   list add,1,%%payper2      
   list add,1,%%prog3
   list add,1,%%term3
   list add,1,%%rate3
   list add,1,%%payper3
   list add,1,%%prog4
   list add,1,%%term4
   list add,1,%%rate4
   list add,1,%%payper4
   list add,1,%%prog5
   list add,1,%%term5
   list add,1,%%rate5
   list add,1,%%payper5
   list add,1,%%prog6
   list add,1,%%term6
   list add,1,%%rate6
   list add,1,%%payper6
   list add,1,%%prog7
   list add,1,%%term7
   list add,1,%%rate7
   list add,1,%%payper7
			
DIALOG SHOW
:evloop
wait event
goto @event(%e)
  wait 0.1,event
  %E = @event()
  	goto %E

:saveMENU
:btn1button
%%prog1 = @dlgtext(prog1)
%%term1 = @dlgtext(term1)
%%rate1 = @dlgtext(rate1)
%%payper1 = @dlgtext(payper1)
%%prog2 = @dlgtext(prog2)
%%term2 = @dlgtext(term2)
%%rate2 = @dlgtext(rate2)
%%payper2 = @dlgtext(payper2)
%%prog3 = @dlgtext(prog3)
%%term3 = @dlgtext(term3)
%%rate3 = @dlgtext(rate3)
%%payper3 = @dlgtext(payper3)
%%prog4 = @dlgtext(prog4)
%%term4 = @dlgtext(term4)
%%rate4 = @dlgtext(rate4)
%%payper4 = @dlgtext(payper4)
%%prog5 = @dlgtext(prog5)
%%term5 = @dlgtext(term5)
%%rate5 = @dlgtext(rate5)
%%payper5 = @dlgtext(payper5)
%%prog6 = @dlgtext(prog6)
%%term6 = @dlgtext(term6)
%%rate6 = @dlgtext(rate6)
%%payper6 = @dlgtext(payper6)
%%prog7 = @dlgtext(prog7)
%%term7 = @dlgtext(term7)
%%rate7 = @dlgtext(rate7)
%%payper7 = @dlgtext(payper7)
list clear,1 

rem get vars
%%dte = @dlgtext(dte)
%%prog1 = @dlgtext(prog1)
%%term1 = @dlgtext(term1)
%%rate1 = @dlgtext(rate1)
%%payper1 = @dlgtext(payper1)
%%prog2 = @dlgtext(prog2)
%%term2 = @dlgtext(term2)
%%rate2 = @dlgtext(rate2)
%%payper2 = @dlgtext(payper2)
%%prog3 = @dlgtext(prog3)
%%term3 = @dlgtext(term3)
%%rate3 = @dlgtext(rate3)
%%payper3 = @dlgtext(payper3)
%%prog4 = @dlgtext(prog4)
%%term4 = @dlgtext(term4)
%%rate4 = @dlgtext(rate4)
%%payper4 = @dlgtext(payper4)
%%prog5 = @dlgtext(prog5)
%%term5 = @dlgtext(term5)
%%rate5 = @dlgtext(rate5)
%%payper5 = @dlgtext(payper5)
%%prog6 = @dlgtext(prog6)
%%term6 = @dlgtext(term6)
%%rate6 = @dlgtext(rate6)
%%payper6 = @dlgtext(payper6)
%%prog7 = @dlgtext(prog7)
%%term7 = @dlgtext(term7)
%%rate7 = @dlgtext(rate7)
%%payper7 = @dlgtext(payper7)
rem end get vars

rem -----------------------------------------
rem Writes to list window
rem DIALOG ADD,LIST,LIST1,25,185,665,325

list insert,1,</html>
list insert,1,</body>
list insert,1,</center>
list insert,1,</table>
list insert,1,</td></tr>
list insert,1,</script>
list insert,1,// End -->
list insert,1,}
list insert,1,+ 'onClick="javascript:window.print()"></form>');
list insert,1,+ '<ininsert type=button name=print value="Print" '
list insert,1,document.insert('<form>'
list insert,1,if (window.print) {
list insert,1,<!-- Begin
list insert,1,<SCRIPT LANGUAGE="JavaScript">
list insert,1,<tr><td align="center">
list insert,1,<br>For information on programs not listed Please call, 918-488-8966 or 800-298-2432</b></font></td></tr>
list insert,1,<br>Payment amounts do not include taxes and insurance.
list insert,1,<font size="-1" face="arial"><b>The rates above are subject to change daily. Please call at any time for updates.
list insert,1,<tr><td align="center">
list insert,1,<table>
list insert,1,<center>
list insert,1,</center>
list insert,1,</table>
list insert,1,</tr>
list insert,1,loan information"></a></td>
list insert,1,<td align="center"><a href="invsrent.html"><img src="info5.jpg" border="0" alt="Click for more 
list insert,1,<td align="center"><b>%%payper7</b></td>
list insert,1,<td align="center"><b>%%rate7</b></td>
list insert,1,<td align="center"><b>%%term7</b></td>
list insert,1,<td><b>%%Prog7</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,</a></td>
list insert,1,<td align="center"><b>%%payper6</b></td>
list insert,1,<td align="center"><b>%%rate6</b></td>
list insert,1,<td align="center"><b>%%term6</b></td>
list insert,1,<td><b>%%Prog6</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,information"></a></td>
list insert,1,<td align="center"><a href="jumbo.html"><img src="info5.jpg" border="0" alt="Click for more loan 
list insert,1,<td align="center"><b>%%payper5</b></td>
list insert,1,<td align="center"><b>%%rate5</b></td>
list insert,1,<td align="center"><b>%%term5</b></td>
list insert,1,<td><b>%%Prog5</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,loan information"></a></td>
list insert,1,<td align="center"><a href="103spec.html"><img src="info5.jpg" border="0" alt="Click for more 
list insert,1,<td align="center"><b>%%payper4</b></td>
list insert,1,<td align="center"><b>%%rate4</b></td>
list insert,1,<td align="center"><b>%%term4</b></td>
list insert,1,<td><b>%%Prog4</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,loan information"></a></td>
list insert,1,<td align="center"><a href="fhaloans.html"><img src="info5.jpg" border="0" alt="Click for more 
list insert,1,<td align="center"><b>%%payper3</b></td>
list insert,1,<td align="center"><b>%%rate3</b></td>
list insert,1,<td align="center"><b>%%term3</b></td>
list insert,1,<td><b>%%Prog3</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,</a></td>

list insert,1,<td align="center"><b>%%payper2</b></td>
list insert,1,<td align="center"><b>%%rate2</b></td>
list insert,1,<td align="center"><b>%%term2</b></td>
list insert,1,<td><b>%%Prog2</b></td>
list insert,1,<tr>
list insert,1,</tr>
list insert,1,<td align="center"><a href="convloans.html"><img src="info5.jpg" border="0"></a></td>
list insert,1,<td align="center"><b>%%payper1</b></td>
list insert,1,<td align="center"><b>%%rate1</b></td>
list insert,1,<td align="center"><b>%%term1</b></td>
list insert,1,<tr><td><b>%%prog1</b></td>
list insert,1,</tr>
list insert,1,<td align="center"><b>More Info</b></td>
list insert,1,<td align="center"><b>Payment per $1000</b></td>
list insert,1,<td align="center"><b>Rate</b></td>
list insert,1,<td align="center"><b>Term</b></td>
list insert,1,<td><b>Loan Program</b></td>
list insert,1,<tr bgcolor="#ffffcc">
list insert,1,<table width="75%" height="75%" border="0" align="center" bgcolor="#E6E8FA" cell padding="3">
list insert,1,<center>
list insert,1,</center>
list insert,1,</table>
list insert,1,</td></tr>
list insert,1,<b><font color="navy" size="+1" face="arial">Current Interest Rates As Of %%dte</b></font>
list insert,1,<table><tr><td align="center">
list insert,1,<center>
list insert,1,<p>
list insert,1, Tulsa OK 74136 - (918) 488-8966 - (800) 298-2432</b></font>
list insert,1,face="arial">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>5215 E 71st Street Suite 1600
list insert,1,<font size="-1" 
list insert,1,href="index.html"><img src = "pfglogo6.jpg" border ="0" alt="PFG Home"></a><br>
list insert,1,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a 
list insert,1,<body background="bg6.gif">
list insert,1,</head>
list insert,1,<title>The Plainsmen Financial Group</title>
list insert,1,<head>
list insert,1,<html>
List SAVEFILE,1,c:\pfg\rates.htm
rem List clear,1
list create,2
	   list add,2,%%prog1
	   list add,2,%%term1
	   list add,2,%%rate1
	   list add,2,%%payper1
	   list add,2,%%prog2
	   list add,2,%%term2
	   list add,2,%%rate2
	   list add,2,%%payper2
   	   list add,2,%%prog3
	   list add,2,%%term3
	   list add,2,%%rate3
	   list add,2,%%payper3
	   list add,2,%%prog4
	   list add,2,%%term4
	   list add,2,%%rate4
	   list add,2,%%payper4
   	   list add,2,%%prog5
	   list add,2,%%term5
	   list add,2,%%rate5
	   list add,2,%%payper5
   	   list add,2,%%prog6
	   list add,2,%%term6
	   list add,2,%%rate6
	   list add,2,%%payper6
   	   list add,2,%%prog7
	   list add,2,%%term7
	   list add,2,%%rate7
	   list add,2,%%payper7
	      
List SAVEFILE,2,c:\pfg\rates.txt
info Changes saved...
list close,1
list close,2
goto evloop

:publishmenu
:btn2button
%%rorg1 = @dlgtext(rate1)
%%korg1 = @dlgtext(payper1)
%%rorg2 = @dlgtext(rate2)
%%korg2 = @dlgtext(payper2)
%%rorg3 = @dlgtext(rate3)
%%korg3 = @dlgtext(payper3)
%%rorg4 = @dlgtext(rate4)
%%korg4 = @dlgtext(payper4)
%%rorg5 = @dlgtext(rate5)
%%korg5 = @dlgtext(payper5)
%%rorg6 = @dlgtext(rate6)
%%korg6 = @dlgtext(payper6)
%%rorg7 = @dlgtext(rate7)
%%korg7 = @dlgtext(payper7)

%%org = %%rorg1 %%korg1 %%rorg2 %%korg2 %%rorg3 %%korg3 %%rorg4 %%korg4 %%rorg5 %%korg5 %%rorg6 %%korg6 %%rorg7 %%korg7
gosub chkchng
run c:\pfg\updatepfg.exe
goto evloop

:close
:exitmenu	
:btn3button	
%%rorg1 = @dlgtext(rate1)
%%korg1 = @dlgtext(payper1)
%%rorg2 = @dlgtext(rate2)
%%korg2 = @dlgtext(payper2)
%%rorg3 = @dlgtext(rate3)
%%korg3 = @dlgtext(payper3)
%%rorg4 = @dlgtext(rate4)
%%korg4 = @dlgtext(payper4)
%%rorg5 = @dlgtext(rate5)
%%korg5 = @dlgtext(payper5)
%%rorg6 = @dlgtext(rate6)
%%korg6 = @dlgtext(payper6)
%%rorg7 = @dlgtext(rate7)
%%korg7 = @dlgtext(payper7)
%%org = %%rorg1 %%korg1 %%rorg2 %%korg2 %%rorg3 %%korg3 %%rorg4 %%korg4 %%rorg5 %%korg5 %%rorg6 %%korg6 %%rorg7 %%korg7
gosub chkchng

:bail
exit

:about PFGmenu
:btn4button
runm c:\windows\notepad.exe c:\pfg\about.htm
goto evloop

:learn about MTGmenu
:btn5button
runm c:\windows\notepad.exe c:\pfg\labout.htm
goto evloop

:should I refimenu
:btn6button
runm c:\windows\notepad.exe c:\pfg\refi.htm
goto evloop

:mainmenu
runm c:\windows\notepad.exe c:\pfg\moreinfo.html
goto evloop

:conventionalmenu
runm c:\windows\notepad.exe c:\pfg\convloans.html
goto evloop

:fhamenu
runm c:\windows\notepad.exe c:\pfg\fhaloans.html
goto evloop

:specialmenu
runm c:\windows\notepad.exe c:\pfg\103spec.html
goto evloop

:jumbomenu
runm c:\windows\notepad.exe c:\pfg\jumbo.html
goto evloop

:investmentmenu
runm c:\windows\notepad.exe c:\pfg\invsrent.html
goto evloop

:downpaymentmenu
runm c:\windows\notepad.exe c:\pfg\infodnpymnt.html
goto evloop

:cashbackmenu
runm c:\windows\notepad.exe c:\pfg\infocshbck.html
goto evloop

:current mtgmenu
runm c:\windows\notepad.exe c:\pfg\infocrntmtg.html
goto evloop

:Go to PFG websitemenu
SHELL open,http://plainsmen.net/
goto evloop

:chkchng
%%nrate1 = %%rate1
%%npayper1 = %%payper1
%%nrate2 = %%rate2
%%npayper2 = %%payper2
%%nrate3 = %%rate3
%%npayper3 = %%payper3
%%nrate4 = %%rate4
%%npayper4 = %%payper4
%%nrate5 = %%rate5
%%npayper5 = %%payper5
%%nrate6 = %%rate6
%%npayper6 = %%payper6
%%nrate7 = %%rate7
%%npayper7 = %%payper7
%%new = %%nrate1 %%npayper1 %%nrate2 %%npayper2 %%nrate3 %%npayper3 %%nrate4 %%npayper4 %%nrate5 %%npayper5 %%nrate6 %%npayper6 %%nrate7 %%npayper7
IF @EQUAL(%%org,%%new)
goto bail
else
if @ask(Record has changed. Save now?)
exit
else
end
exit