home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / tft.lha / tft / demo / timer.amos / timer.amosSourceCode
Encoding:
AMOS Source Code  |  1997-04-13  |  971 b   |  36 lines
  1. Rem
  2. Rem TFT Extension v 0.5 by T.Temucin 
  3. Rem
  4. Rem Bis zu 5 zusaetzliche VBL gesteuerte Timer   
  5. Rem  
  6. Rem Init Timer x,y = setzt timer x auf wert y
  7. Rem start timer (x)= startet timer x 
  8. Rem stop timer(x)  = stopt timer x 
  9. Rem get timer(x)   = gibt actuellen timer stand aus
  10. Rem
  11. Rem Nach beendigung des Programmes werden die Timer gestopt und
  12. Rem auf 0 gestelt. 
  13. Rem  
  14.  
  15. Rem An NTSC denken !!!!!!!! wenn es um Secunden get
  16.  
  17. If Ntsc Then SEC=60 Else SEC=50
  18. Cls 0
  19.  Extension_25_00B0 1,100
  20.  Extension_25_00B0 2,200
  21.  Extension_25_00C4 1
  22. Repeat 
  23.    Text 10,10,Str$( Extension_25_0082(1)/SEC)
  24.    Text 10,20,Str$( Extension_25_0082(2)/SEC)
  25. Until Extension_25_0082(1)=500
  26.  Extension_25_00C4 2
  27. Repeat 
  28.    Text 10,10,Str$( Extension_25_0082(1)/SEC)
  29.    Text 10,20,Str$( Extension_25_0082(2)/SEC)
  30. Until Extension_25_0082(2)=500
  31.  Extension_25_00D6 1
  32. Repeat 
  33.    Text 10,10,Str$( Extension_25_0082(1)/SEC)
  34.    Text 10,20,Str$( Extension_25_0082(2)/SEC)
  35. Until Extension_25_0082(2)=1000
  36. Edit