//TUTORIAL 3 PART 2

//DEFINE VARIABLES
Global KEYPRESS

//DEFINE PROCEDURES
DefProc INIT_DISPLAY()
DefProc CREATE_SPRITES()
DefProc CHECKKEYS()


//---- START MAIN CODE ----

//CALL THE PROCEDURE TO CREATE THE SCREEN
INIT_DISPLAY()

//CALL THE PROCEDURE TO CREATE THE SPRITES
CREATE_SPRITES()

//START LOOP - THIS LOOP WILL REPEAT UNTIL ESC IS PRESSED
Repeat

    KEYPRESS = 0 //MAKE SURE THAT THERE IS NO VALUES STORED IN THIS VARIABLE

    Update Display

    KEYPRESS = ScanCode() //GET USER INPUT

    If KEYPRESS > 257 And KEYPRESS < 268 Then //IF A NUMBER KEY HAS BEEN PRESSED GOTO THE CHECK KEYS PROCEDURE

        CHECKKEYS()

    EndIf

Until KEYPRESS = 1 //PRESSING THE ESC KEY WILL QUIT

//THE INIT_DISPLAY PROCEDURE CREATES A SCREEN AND A PLANE
Procedure INIT_DISPLAY()

    Create Map 640,480,1,1 In Bank 50 //CREATE A MAP IN BANK 50
    Set Tile 0,0,1 Using Bank 50 //CREATE A TILE USING A BACKGROUND IMAGE IN BANK 1
    Create Plane 1 Using Bank 50 //CREATE PLANE 1 USING THE MAP IN BANK 50

EndProc

//THIS PROCEDURE WILL CREATE THE SPRITE
Procedure CREATE_SPRITES()

    Create Sprite 1,288,208 Using Bank 3 //CREATE SPRITE #1 AT 288,208 USING THE SEQUENCE IN BANK 3
    Sprites On //NOW TURN ON THE SPRITE SYSTEM
    Sprite Animate 1 Off

EndProc

//THIS PROCEDURE SETS THE SEQUENCE FRAME TO THE CORRECT NUMBER
Procedure CHECKKEYS()

    SetSequenceFrame(1,KEYPRESS-257) //CHANGE THE ANIMATION FRAME TO THE CORRECT NUMBER
    Sprite On 1 //ENABLE THE SPRITE

EndProc

EndProg