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,MENU,Edit &Messages,Message of the day

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
rem 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 add,1,<html>
list add,1,<head>
list add,1,<title>The Plainsmen Financial Group</title>
list add,1,</head>
list add,1,<body background=bg6.gif>
list add,1,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a
list add,1,href=index.html><img src = pfglogo6.jpg border =0 alt=PFG Home page></a><br>
list add,1,<font size=-1
list add,1,face=arial>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>1723 E 71st - Tulsa OK 74136 - (918) 488-8966 - (866) 488-8966</b></font>
list add,1,<p>
list add,1,<center>
list add,1,<table><tr><td align=center>
list add,1,<b><font color=navy size=+1 face=arial>Current Interest Rates As %%dte</b></font>
list add,1,</td></tr>
list add,1,</table>
list add,1,</center>
list add,1,<center>
list add,1,<table width=75% height=75% align=center  cellSpacing="2" cellPadding="5" align="center" bgColor="#000099" border="0">
list add,1,<tr bgcolor=#ffffcc>
list add,1,<td> <b>Loan Program</b></td>
list add,1,<td align=center><b>Term</b></td>
list add,1,<td align=center><b>Rate</b></td>
list add,1,<td align=center><b>Payment per $1000</b></td>
list add,1,<td align=center><b>More Info</b></td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd"><td><b>%%prog1</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term1</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate1</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper1</b></td>
list add,1,<td bgcolor="#ffffff" align=center><a href=convloans.html><img src=info6.jpg border=0 alt="Click for more loan information"></a></td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog2</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term2</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate2</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper2</b></td>
list add,1,<td bgcolor="#ffffff">&nbsp;</td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog3</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term3</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate3</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper3</b></td>
list add,1,<td bgcolor="#ffffff" align=center><a href=fhaloans.html><img src=info6.jpg border=0 alt="Click for more loan information"></a></td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog4</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term4</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate4</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper4</b></td>
list add,1,<td bgcolor="#ffffff" align=center><a href=103spec.html><img src=info6.jpg border=0  alt="Click for more loan information"></a></td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog5</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term5</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate5</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper5</b></td>
list add,1,<td bgcolor="#ffffff" align=center><a href=jumbo.html><img src=info6.jpg border=0  alt="Click for more loan information"></a></td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog6</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term6</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate6</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper6</b></td>
list add,1,<td bgcolor="#ffffff">&nbsp;</td>
list add,1,</tr>
list add,1,<tr bgcolor="#ffffdd">
list add,1,<td bgcolor="#ffffdd"><b>%%prog7</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%term7</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%rate7</b></td>
list add,1,<td bgcolor="#ffffff" align=center><b>%%payper7</b></td>
list add,1,<td bgcolor="#ffffff" align=center><a href=invsrent.html><img src=info6.jpg border=0 alt="Click for more loan information"></a></td>
list add,1,</tr>
list add,1,</table>
list add,1,</center>
list add,1,<center>
list add,1,<table border="0">
list add,1,<tr><td align="center" colspan="2">
list add,1,<font size=-1 face=arial><b>The rates above are subject to change daily. Please call at any time for updates.
list add,1,<br>Payment amounts do not include taxes and insurance.
list add,1,<br>For information on programs not listed Please call.</td></tr>
list add,1,<tr><td align="right" valign="bottom">
list add,1,<SCRIPT LANGUAGE="JavaScript">
list add,1,<!-- Begin
list add,1,if (window.close) {
list add,1,document.write('<form>'
list add,1,+ '<input type=button name=closewin value="Back" '
list add,1,+ 'onClick="javascript:history.back()"></form>');
list add,1,}
list add,1,// End -->
list add,1,</script>
list add,1,</td>
list add,1,<td>
list add,1,<SCRIPT LANGUAGE="JavaScript">
list add,1,<!-- Begin
list add,1,if (window.print) {
list add,1,document.write('<form>'
list add,1,+ '<input type=button name=print value="Print" '
list add,1,+ 'onClick="javascript:window.print()"></form>');
list add,1,}
list add,1,// End -->
list add,1,</script>
list add,1,</td>
list add,1,</tr>
list add,1,</table>
list add,1,</center>
list add,1,</body>
list add,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

:message of the daymenu
runm c:\windows\notepad.exe c:\pfg\whatsnew.txt
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?)
List SAVEFILE,1,c:\pfg\rates.txt
info Changes saved...
exit
else
end
exit