home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd600 / amos_turbo / demos / hit_sprzone2.amos / hit_sprzone2.amosSourceCode
AMOS Source Code  |  1994-02-02  |  837b  |  33 lines
  1. Screen Open 1,640,200,2,Hires
  2.  Extension_12_0016 
  3. Reserve Zone 3
  4. Sprite 2,128,80,2
  5. Set Zone 1,0,0 To 50,100
  6. Set Zone 2,51,0 To 200,100
  7. Set Zone 3,0,101 To 200,200
  8. For J=1 To 2
  9.    T=Timer
  10.    For I=1 To 5000
  11.       A=Hzone(X Sprite(2),Y Sprite(2))
  12.    Next 
  13.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hzone(X Sprite(2),Y Sprite(2)"
  14.    T=Timer
  15.    For I=1 To 5000
  16.       A= Extension_12_0118(0,0,2)
  17.    Next 
  18.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hit Spr Zone(0,0,2)"
  19.    T=Timer
  20.    For I=1 To 5000
  21.       A=Hzone(X Sprite(2)+50,Y Sprite(2)+2)
  22.    Next 
  23.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hzone(X Sprite(0)+50,Y Sprite(0)+2)"
  24.    T=Timer
  25.    For I=1 To 5000
  26.       A= Extension_12_0118(50,5,2)
  27.    Next 
  28.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hit Spr Zone(50,2,0)"
  29.    Print 
  30. Next 
  31.  Extension_12_0006 
  32. Print "Press any key"
  33. Wait Key