total# = 2900000 ; deaths per year total = total /365 ; deaths per day total = total / 24 ; deaths per hour total = total / 60 ; deaths per minute total = total / 60 ; deaths per second total = total / 1000 ; deaths per millisec scroll$ = "World Wide Deaths from AIDS During 2003 an estimated five million adults " scroll = scroll + "and children became infected with HIV (Human Immunodeficiency Virus), the virus that causes " scroll = scroll + "AIDS. By the End of the year, an estimated 38 million people worldwide were living with HIV/AIDS. " scroll = scroll + "The year also saw nearly three million deaths from AIDS, despite the availability of HIV " scroll = scroll + "antiretroviral therapy which reduced the number of deaths in high income countries." scroll = " " + scroll + " " SetBuffer BackBuffer() t=MilliSecs() font1=LoadFont("courier new.ttf",80,True) font2=LoadFont("arial.ttf",20) Repeat Cls oo=(MilliSecs()-t)/5 Mod 40 offset = (MilliSecs()-t)/200 Mod (Len(scroll)-12) disp$ = Mid(scroll,offset+1,12) SetFont font1 For n=1 To 12 Text (n-1)*40-oo,100,Mid(disp,n,1),True,True Next tm$=(MilliSecs()-t)*total tt=Instr(tm,".") If tt>0 Then tm=Left(tm,tt+2) Else tm=tm+".00" SetFont font2 Color 255,255,255:Text 200,280,"Deaths from AIDS (Realtime): "+tm,True Flip Until KeyHit(1)