[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Blitz

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




-- 
       P O Z O R
mam novou adresu: rostsoft@mira.cz

Rostislav Stenicka
Malesov 157
okr. Kutna Hora
285 41
TEL:   0327-59 54 21
Do prace:0327-502 160

Pokud pouzivate KOI8
Rostislav ótÅniÃka
MaleÓov 157