LEARN SCHEDULE

10DIM WEEK$(6)

20DIM EVENT$(6)

30DATA “SUNDAY”,“PLAY TIME”

40DATA “MONDAY”,“LEARN ECOLOGY”

50DATA “TUESDAY”,“LEARN ENGLISH”

60DATA “WEDNESDAY”,“LEARN MUSIC”

70DATA “THURSDAY”,“LEARN HISTORY”

80DATA “FRIDAY”,“LEARN GEOGRAPHY”

90DATA “SATURDAY”,“PLAY FOOTBALL”

100REM(*)LIST(*)

110FOR W=0 TO 6

120READ WEEK$(W)

130READ EVENT$(W)

140PRINT WEEK$(W),EVENT$(W)

150NEXT W

999END

RUN

69