;  .-------------------.
;  | Blitz Example 001 |
; .------------------------------------------.
; | (C) Loki of Satanic Dreams Software 1999 |
; `------------------------------------------'----------.
;                                     | DATE: 19/2/1999 |
;                                     `-----------------'
; DESCRIPTION:
;    Example of setting up a Copper Screen and blitting a shape
;    to it.
;
; DISTRIBUTION:
;    This Example can be distributed freely, and you are authorised
;    to use any part of this code in your own programmes.
;
; CONTACTING ME:
;    loki@napalmdeath.freeserve.co.uk
;
; SATANIC DREAMS SOFTWARE:
;    admin@satanicdreams.freeserve.co.uk
;    Also, you can now signup online, www.satanicdreams.freeserve.co.uk
;

WBStartup

; \/ Our path! Change to that of the program files..

PRGFiles$="Work:BlitzExample001/"            ; add `/' to end if within (sub)directory.
INCDIR    "Work:BlitzExample001/Includes/"   ; includes dir.

LoadShape 0,PRGPath$+"Boing.Brush",0

INCLUDE "ChangeBitMap.BB2"
INCLUDE "CreateCDisplay.BB2"
INCLUDE "CreateCopL.BB2"

CreateCopL{0,256,#CL_TypeB,#CL_OffDef,#CL_AGACustoms,#CL_NoExtras}
BitMap 0,320,256,8
ChangeBitmap{0}
CreateCDisplay{0,0,0,#CD_Display}

; Totally bodged routine,... but it`s only an example!!

DisplayBitMap 0,0
Blit 0,50,70

For TMP=50 To 140 Step 8

  VWait

  Scroll 50,70,150,100,TMP,70

Next
MouseWait
End