KEY 15, CHR$(0) + CHR$(1): ON KEY(15) GOSUB 2000: KEY(15) ON
 DEFINT A-Z: DIM lin$(18)
 DATA " Tell me how many trees must be felled by the saw"
 DATA " Before Caesar a vista can see?"
 DATA " Tell me how many years he can dodge truth he saw"
 DATA " Before justice is reality?"
 DATA " Tell me how long a time he can shun moral law"
 DATA " Before conscience is drowned in the sea?"
 DATA " The answers, my friend, are scattered by the wind."
 DATA " The answers are just blowing in the wind."
 DATA " Tell me where is the stream coming down from the hill"
 DATA " That leads out to those waters of blue?"
 DATA " Tell me where are the dreams that a child's mind will fill"
 DATA " And hopes that at one time he knew?"
 DATA " Yes and what is the fate of a lone wippoorwill"
 DATA " Whose own song to his own self is true?"
 DATA " The answers, my friend, are scattered by the wind."
 DATA " The answers are just blowing in the wind."
 DATA " Copyright (C) The Copy Exchange, 1992, 2004, 2008.  All rights reserved."
 DATA " Write: Franklin Seiberling, 1133 Howell, Iowa City IA  52240"
 FOR A = 1 TO 18: READ lin$(A): NEXT A
 PLAY "MF o2"
 COLOR 2, 1
 FOR A = 0 TO 1
 CLS
 COLOR 3, 1: LOCATE 22, 5: PRINT "Press <Esc> to quit"
 COLOR 2, 1
 SOUND 32000, 10
 LOCATE 7, 5: PRINT lin$(A * 8 + 1): LOCATE 8, 5: PRINT lin$(A * 8 + 2)
 PLAY " l8 aa# l4 >ccd l8 c<a# l4 >c< l8 ag l4 f l8 aa# l4 >ccd l8 c<a# l2 >c< p4"
 LOCATE 10, 5: PRINT lin$(A * 8 + 3): LOCATE 11, 5: PRINT lin$(A * 8 + 4)
 PLAY " l8 aa# l4 >ccd l8 c<a# l4 >c< l8 ag l4 f l8 aa# l4 >cc<a# l8 a#a l2 g p4"
 LOCATE 13, 5: PRINT lin$(A * 8 + 5): LOCATE 14, 5: PRINT lin$(A * 8 + 6)
 PLAY " l8 aa# l4 >ccd l8 c<a# l4 >c< l8 ag l4 f l8 aa# l4 >ccd l8 c<a# l2 >c< p4"
 LOCATE 16, 5: PRINT lin$(A * 8 + 7): LOCATE 17, 5: PRINT lin$(A * 8 + 8)
 PLAY " l8 a l4 a# l8 a#a l4 g. l8 gaaag l4 f. l8 aa#a#a#aggfe l1 f p2"
 SOUND 32000, 10
 NEXT A
 COLOR 7, 0
 CLS
 PRINT lin$(17): PRINT lin$(18)
 FOR x = 1 TO 1: GOSUB 2500: NEXT x
 END
2000 COLOR 7, 0: CLS : END
2500 S = VAL(MID$(TIME$, 7, 2)) + 1: IF S = 60 THEN S = 0
2510 N = VAL(MID$(TIME$, 7, 2)) - S
2520 IF N >= 0 AND N < 59 THEN RETURN:  ELSE GOTO 2510