alexthescott.memory probe 1

-- memory probe 1
-- alexthescott
-- 9/28/21 7:25am

fc=0

cls()
::♥::
if t()<2 then
	print("memory probe 1",36,64,1)
else
	fc+=0.005
	
	for i=0,1280 do
		p=0x6000+rnd()*8192
		v=peek(p)
		poke(p,p/16+fc)
	end
	
	if fc>=128 then
		fc=0
	end
end
flip()
goto ♥