//TUTORIAL 5 PART 1

Global GETSTRING$ //USED FOR STORING THE CONTENTS OF THE FILE

//DEFINE PROCEDURES
DefProc INIT_DISPLAY()
DefProc READ_FILE()


//CREATE THE SCREEN
INIT_DISPLAY()

//READ IN THE CONTENTS OF THE FILE
READ_FILE()

Text(100,100,GETSTRING$) //PRINT THE FILE CONTENTS

Update Display

Wait Key //WAIT UNTIL A KEY IS PRESSED BEFORE CONTINUING

//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
	ReDirect GDI Output To Bank 1 //ALL GDI OUTPUT (IN THIS CASE TEXT, GOES TO BANK 1)

EndProc

Procedure READ_FILE()

	Local X$ //GETS THE NEXT CHARACTER IN THE FILE
	Local QUIT //SET TO TRUE IF THE LOOP SHOULD BE EXITED

	QUIT = False

	//OPEN THE TEXT FILE
	Open File "text.txt" As ReadOnly Using 1 //1 IS THE FILE HANDLE

	Repeat //REPEAT UNTIL QUIT IS TRUE

		X$ = FileRead$(1,2) //READ NEXT CHARACTER IN FILE AND STORE IN VARIABLE

		If X$ = "&" Then //IF WE HAVE REACHED THE END CHARACTER THEN QUIT LOOP
			QUIT = True
		Else
			GETSTRING$ = GETSTRING$ + X$ //ADD THIS CHARACTER TO OUR STRING
		EndIf

	Until QUIT = True

	Close File 1 //CLOSE THE TEXT FILE

EndProc

EndProg