rem
rem		mariaBasic interreter sample code
rem
rem 		example: simple random generator number distribution 
rem 

var1%=1
var2%=1
var3%=11213
var4%=0
var51&=0
var52&=0
var11#=0
var12#=0
var13#=0
var14$=' '
var15$='nserie.txt'

open var15$ for output as #1

var4%=var3%/100

for var1%=3 to 133

	for var2%=3 to 7

		var11#=var1%*var2%
		var12#=var3%/var11#
		var51&=var12#*var4%			
		var52&=var12#*var4%
		var52&=var52&/1000
		var52&=var52&*1000
		var52&=var52&-var51&
		var4%=var4%+1

		if (var52&>0) then

			var14$=format$(var52&,'0000')
			print #1,var14$

		end if

		if (var52&<0) then
			
			var52&=-1*var52&
			var14$=format$(var52&,'0000')
			print #1,var14$

		end if
			
	next var2%

	var4%=var3%/100

next var1%

close #1

open var15$ for input as #1

input #1,var14$
var1%=len$(var14$)

while (var1%>0)

	rem print var14$

	var2%=val$(var14$)
	var2%=var2%/100

	while (var2%>=0)

		print '.';
		var2%=var2%-1

	wend

	print ' '

	input #1,var14$
	var1%=len$(var14$)

wend

close #1


end
