Re: Blitz

[Filip Doksansky <glassim@mbox.vol.cz>]

Rostislav Stenicka wrote:
> 
> Cau
> 
> Mam takovej problemv Blitz Basicu, chci kazdou 50tinu sekundy prihrat
> kousek dat z disku a porad se to hrouti.
> Nevi nekdo kde je problem?
> 
> Screen 0,3
> ScreensBitMap 0,0
> BitMapOutput 0
> 
> InitBank 1,50000,1
> 
> NPrint BankSize (1)
> 
> a.l=Bank (1)
> 
> Print  a.l
> 
> Print OpenFile (1,"programy:sound10")
> 
> SetInt 5
> If c=0 Then h=Hours:m=Mins:s=Secs:v=0
> c=c+1
> If c=40 Then WriteMem 1,a.l,44000
> Locate 10,10
> If c>49 Then cit=cit+1:NPrint "gol",c,"cit",cit:v=1:c=0
> Locate 10,11
> NPrint Hours,"  ",Mins,"  ",Secs,"  ",c
> End SetInt
> 
> While jb<>2
>   VWait
>   jb=Joyb(0)
>   If jb=1 Then Plot SMouseX,SMouseY,2
> Wend
> 
> NPrint "Saving the screen...."
> 
> MouseWait
> 
 Sice v Basicu nedelam, ale podle toho, co jsi tu dal za
priklad bych rekl, ze ty data ukladas v interruptu (mam na mysli
tu cast mezi"SetInt 5" a End SetInt), coz samozrejme nejde, protoze
ta samotna fce WriteMem asi vyzaduje interrupt. Ja bych to udelal tak,
ze bych v interruptu akorat nastavoval nejakej priznak, a v normalnim
programu dycky otestoval jestli je nastavenej, pokud ano, ulozit, smazat
priznak atakdale dokola. Je ovsem velice pravdepodobny, ze to 50x za
vterinu
proste nestihne, potom smula :-( Kazdopadne, k tve otazce: Pada to 
jednoznacne tim, ze pouzivas WriteMem v interruptu !


		FiDo of INSANITY