To all that know Qbasic: (help needed on program!)

ok... here is the senario:

PROGRAM 8
You have invented a new party game, a computer-controlled scavenger hunt. You enter into the program the names of seven items the guests should find. Then, a guest enters the day of the week (1 through 7) on which his or her birthday occurs this eyar. That number determines the object that the guest and partner must find and photograph before returning to your party. When the day of the week is entered into the computer, the progrm reads that many items from the DATA statments by means of a loop and then prints the description of the object to be found. The objects are a state flag, a U.S. flag, a court house, a jail,a judge's gavel,l a police car, and a sign for a justice of the peace.



AND HERE ARE THE COMMANDS YOU CAN USE:
PRINT
CLS
END
FOR-NEXT
REM
INPUT
DO-LOOP
TAB
SPC
LET
WHILE-WEND
GOSUB#
RETURN
READ
DATA
DECLARE SUB name
SUB name
END SUB
RESTORE
IF-THEN
CASE



OK, Please, help me here... I have no idea of where to go!!!! I have this piece of code... can you tell me also how to get it from printing "EOD" at the end, because "EOD" is my terminator....

DECLARE SUB PRINTDATA ()
COMMON SHARED N$

CLS
WHILE N$ <> "EOD"
PRINTDATA
WEND
END: END

DATA "A U.S. FLAG"
DATA "A COURT HOUSE"
DATA "A JAIL"
DATA "A JUDGE'S GAVEL"
DATA "A POLICE CAR"
DATA "A SIGN FOR A JUSTICE OF THE PEACE"
DATA "EOD"


SUB PRINTDATA
READ N$
PRINT N$
END SUB


**Staff edit** Please do not post you topic titel in all caps! thanks [8D]


***********
**It's Here**
***********