3D like MSAV

******************************************************
* melakukan demonstrasi Box3d dengan gaya MSAV/CPAV
******************************************************
Proc Check
Save screen to memo
set color to gr+/b
sisa=diskspace()
pesan="Mengecek struktur memory ..."
persen="[ % ]"
sorot="[ "+repl(chr(176),60)+" ]"
sisa=" Sisa Memori Komputer : " + Transform((memory(0)*1024),"@E 999,999,999. Byte")

box3d(05,05,13,75,1)
shadow(05,05,13,75)

@ 07,40-len(pesan)/2 say pesan
@ 08,40-len(persen)/2 say persen
@ 09,40-len(sorot)/2 say sorot
@ 11,40-len(sisa)/2 say sisa
x=1
do while x<61
@ 08,37 say x+40 pict "999"
@ 09,10 say repl(chr(219),x)
x=x+1
waktu=1
do while waktu<1000
waktu=waktu+1
enddo
enddo
tone(100,2)
tone(300,4)
Clea
Restore Screen from memo