rem	
rem		mariaBasic Sample code 
rem	
rem		example: file parsing and calculation
rem	






vari1%=0
vari3%=0
vari4%=0
vari5%=0
vari11%=0

var2$='test.txt' 
var3$=' ' 
var7$=' ' 
var9$=' ' 
var10$=' ' 
var11$=' ' 
var12$=' ' 
var13$=' ' 
var14$=' ' 
 
vard13#=0.0
vard14#=0.0
vard15#=0.0

rem //--------------------------------------------------

sgc002$='002'
sgc004$='004'
sgc011$='011'
sgc010$='010'
sgc008$='008'
sgc007$='007'
sgc006$='006'
sgc013$='013'
sgc016$='016'
sgc005$='005'
sgc009$='009'
sgc014$='014'
sgc030$='030'
sgc031$='031'

rem //--------------------------------------------------

sgp002#=1.0
sgp004#=1.4
sgp011#=1.0
sgp010#=1.0
sgp008#=0.4
sgp007#=0.15
sgp006#=0.1
sgp013#=1.0
sgp016#=1.0
sgp005#=0.05
sgp009#=0.05
sgp014#=0.85
sgp031#=1.0
sgp030#=0.0

rem //--------------------------------------------------

sgt002#=0.0
sgt004#=0.0
sgt011#=0.0
sgt010#=0.0
sgt008#=0.0
sgt007#=0.0
sgt006#=0.0
sgt013#=0.0
sgt016#=0.0
sgt005#=0.0
sgt009#=0.0
sgt014#=0.0
sgt031#=0.0
sgt030#=0.0

open var2$ for input as #1

input #1,var3$
var7$=mid$(var3$,24,8)
var7$=trim$(var7$)
vari3%=len$(var3$)
var9$=mid$(var3$,24,8)		
var9$=trim$(var9$)
print '-------------------------------------------------'
print 'Record Group ID: ',var9$
vari1%=vari1%+1
print '-------------------------------------------------'

while (vari3%<>0)

	if (var9$<>var7$) then

		var9$=mid$(var3$,24,8)
		var9$=trim$(var9$)
		print ' '
		var14$=format$(vari4%,'##0')
		print 'Sub Record Count: ',var14$
		vard15#=round$(vard15#)
		var14$=format$(vard15#,'#####0.00')
		print 'Sub Group Total : ',var14$
		vari5%=vari5%+vari4%+0
		vari4%=0+0
		vard15#=0+0
		print '-------------------------------------------------'
		print 'Record Group ID: ',var9$
		vari1%=vari1%+1
		print '-------------------------------------------------'

	end if

	if (var9$=var7$) then

		var10$=mid$(var3$,34,4)
		print ' ',var10$,' ';

		var13$=mid$(var3$,38,22)
		print ' ',var13$,' ';

		var11$=mid$(var3$,94,10)
		vard13#=val$(var11$)
		vard13#=round$(vard13#)
		var14$=format$(vard13#,'###,##0.00')
		print ' ',var14$,' ';

		var11$=mid$(var3$,111,7)
		vari11%=val$(var11$)
		var14$=format$(var11%,'00000')
		print ' ',var14$,' ';

		rem var12$=mid$(var3$,89,4)
		rem vari13&=val$(var12$)
		rem print ' ',var12$,' ';
		rem print ' ',vari13&,' ';

		rem vard13#=vari13&/100

		vard14#=vard13#*35.0*vari11%/176.0
		vard15#=vard15#+vard14#
		vard14#=round$(vard14#)
		var14$=format$(vard14#,'###,##0.00')
		print ' = ',var14$

		vari4%=vari4%+1

	end if

	if (sgc002$=var10$) then

		sgt002#=sgt002#+vard14#*sgp002#

	end if

	if (sgc004$=var10$) then

		sgt004#=sgt004#+vard14#*sgp004#

	end if

	if (sgc011$=var10$) then

		sgt011#=sgt011#+vard14#*sgp011#

	end if

	if (sgc010$=var10$) then

		sgt010#=sgt010#+vard14#*sgp010#

	end if

	if (sgc008$=var10$) then

		sgt008#=sgt008#+vard14#*sgp008#

	end if

	if (sgc008$=var10$) then

		sgt008#=sgt008#+vard14#*sgp008#

	end if

	if (sgc007$=var10$) then

		sgt007#=sgt007#+vard14#*sgp007#

	end if

	if (sgc006$=var10$) then

		sgt006#=sgt006#+vard14#*sgp006#

	end if

	if (sgc013$=var10$) then

		sgt013#=sgt013#+vard14#*sgp013#

	end if

	if (sgc016$=var10$) then

		sgt016#=sgt016#+vard14#*sgp016#

	end if

	if (sgc005$=var10$) then

		sgt005#=sgt005#+vard14#*sgp005#

	end if

	if (sgc009$=var10$) then

		sgt009#=sgt009#+vard14#*sgp009#

	end if

	if (sgc014$=var10$) then

		sgt014#=sgt014#+vard14#*sgp014#

	end if

	if (sgc031$=var10$) then

		sgt031#=sgt031#+vard14#*sgp031#

	end if

	if (sgc030$=var10$) then

		sgt030#=sgt030#+vard14#*sgp030#

	end if

	input #1,var3$
	var7$=mid$(var3$,24,8)
	var7$=trim$(var7$)
	vari3%=len$(var3$)

wend

close #1

var14$=format$(vari4%,'##0')
print 'Sub Record Count: ',var14$
rem vari5%=vari5%+vari4%+0
rem vari4%=0+0
print '-------------------------------------------------'
print ' '

var14$=format$(vari5%,'00000')
print 'Total (Sub) Records :',var14$
print ' '
var14$=format$(vari1%,'00000')
print 'Total Records :',var14$
print ' '

var14$=format$(sgt002#,'###,###,##0.00')
print 'Total 002 :',var14$
var14$=format$(sgt004#,'###,###,##0.00')
print 'Total 004 :',var14$
var14$=format$(sgt011#,'###,###,##0.00')
print 'Total 011 :',var14$
var14$=format$(sgt010#,'###,###,##0.00')
print 'Total 010 :',var14$
var14$=format$(sgt008#,'###,###,##0.00')
print 'Total 008 :',var14$
var14$=format$(sgt007#,'###,###,##0.00')
print 'Total 007 :',var14$
var14$=format$(sgt006#,'###,###,##0.00')
print 'Total 006 :',var14$
var14$=format$(sgt013#,'###,###,##0.00')
print 'Total 013 :',var14$
var14$=format$(sgt016#,'###,###,##0.00')
print 'Total 016 :',var14$
var14$=format$(sgt005#,'###,###,##0.00')
print 'Total 005 :',var14$
var14$=format$(sgt009#,'###,###,##0.00')
print 'Total 009 :',var14$
var14$=format$(sgt014#,'###,###,##0.00')
print 'Total 014 :',var14$
var14$=format$(sgt031#,'###,###,##0.00')
print 'Total 031 :',var14$
var14$=format$(sgt030#,'###,###,##0.00')
print 'Total 030 :',var14$

end




