home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / general / HitBobZone.AMOS / HitBobZone.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-29  |  806 b   |  33 lines
  1. Screen Open 1,640,200,2,Hires
  2.  Extension_12_0016 
  3. Reserve Zone 3
  4. Bob 0,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=Zone(X Bob(0),Y Bob(0))
  12.    Next 
  13.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Zone(X Bob(0),Y Bob(0)"
  14.    T=Timer
  15.    For I=1 To 5000
  16.       A= Extension_12_0130(0,0,0)
  17.    Next 
  18.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hit Bob Zone(0,0,0)"
  19.    T=Timer
  20.    For I=1 To 5000
  21.       A=Zone(X Bob(0)+50,Y Bob(0)+2)
  22.    Next 
  23.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Zone(X Bob(0)+50,Y Bob(0)+2)"
  24.    T=Timer
  25.    For I=1 To 5000
  26.       A= Extension_12_0130(50,2,0)
  27.    Next 
  28.    Print "TIME IN VBL";Timer-T;"  ZONE";A;" Hit Bob Zone(50,2,0)"
  29.    Print 
  30. Next 
  31.  Extension_12_0006 
  32. Print "Press any key"
  33. Wait Key