Category : BASIC Source Code
Archive   : WBB12.ZIP
Filename : SAMPLE3.BAS

 
Output of file : SAMPLE3.BAS contained in archive : WBB12.ZIP


rem
rem This program displays memory available along with some sparkle.
rem

rem windows size 35,13,47,18

basey=12
basex=34

ot=0
100
a$=inkey$
if a$<>"" then stop
t=freemem
if t<>ot then
color 0,7
locate basey+1,basex+2
print freemem
ot=t
end if
200
x=rnd
x=int(x*13)
y=rnd
y=int(y*5)
x=x+1
y=y+1
if y=1 and (x>2 or x<11) then goto 200
c=rnd
c=int(c*16)
color c,0
locate basey+y,basex+x
print chr$(219);
goto 100