06/08/06 11:46:53 VfdyUBIJ
*log_bar
mov %2,432:mov %4,756
gosub *bar4
if %totalpage=0 return
mov %min,-1
mov %logpage,(%5-467)*%min/%totalpage
return
*bar4
getmousepos %3,%5:sub %5,35
if %5< 44 mov %5, 44
if %5>467 mov %5,467
amsp %2,%4,%5:print 1:wait 10
isdown %1
if 0 = %1 return
goto *bar4
*mod
for %2=0 to %1
if %logpage=(%totallog-%2) sub %0,%1-%2:break
next
return
mov %totalpage,423/%totallog
mov %0,467-%totalpage*%logpage
mov %1,423 mod %totallog
if %1!=0 gosub *mod
lsp 432,"a.jpg",756,%0