//TUTORIAL 3 PART 1 //DEFINE VARIABLES Global KEYPRESS$, QUITKEY //DEFINE PROCEDURES DefProc INIT_DISPLAY() //---- START MAIN CODE ---- //CALL THE PROCEDURE TO CREATE THE SCREEN INIT_DISPLAY() //START LOOP - THIS LOOP WILL REPEAT UNTIL ESC IS PRESSED Repeat
KEYPRESS$ = Inkey$() //GET INPUT Text(320,240,KEYPRESS$) //TYPE TEXT TO THE SCREEN AT 320, 240 Update Display QUITKEY = ScanCode() //GET INPUT //THE INIT_DISPLAY PROCEDURE CREATES A SCREEN AND A PLANE Procedure INIT_DISPLAY()
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 ReDirect GDI Output To Bank 1 //ALL GDI OUTPUT WILL BE WRITTEN TO BANK 1 PenColour(255,0,0) //CHANGE TEXT COLOUR TO RED EndProg |