x = mdiv(0,4) : set cursor 0,20 : print x
x = mdiv(1,4) : set cursor 0,40 : print x
x = mdiv(2,4) : set cursor 0,60 : print x
x = mdiv(3,4) : set cursor 0,80 : print x
x = mdiv(4,4) : set cursor 0,100 : print x
x = mdiv(5,4) : set cursor 0,120 : print x
x = mdiv(6,4) : set cursor 0,140 : print x
x = mdiv(7,4) : set cursor 0,160 : print x
x = mdiv(8,4) : set cursor 0,180 : print x
x = mdiv(9,4) : set cursor 0,200 : print x
x = mdiv(10,4) : set cursor 0,220 : print x
x = mdiv(11,4) : set cursor 0,220 : print x
x = mdiv(12,4) : set cursor 0,220 : print x
x = mdiv(13,4) : set cursor 0,220 : print x
x = mdiv(14,4) : set cursor 0,220 : print x
wait key
Function mdiv(p1#,p2#)
a# = p1# / p2#
if a# - int( a# ) > 0
Result =1
else
Result =0
endif
EndFunction Result