1 BEEP:CLS:CLEAR:DEFINTA-Z:'1/6/85 STAN KENDALL * 1-708-256-3469 2160 bytes.
8 GOTO10
9 FORZZ=1TO300:NEXT:RETURN
10 A=10:B=232:FORC=52TO8STEP-1:LINE(A,C)-(B,C),1:NEXT
20 PRINT@84," SUNRISE,SUNSET <MU-23> 'SUNSET'"
30 LINE(56,30)-(60,30),0:LINE(56,31)-(60,31),0
32 LINE(52,32)-(64,32),0:LINE(52,33)-(64,33),0
34 LINE(48,34)-(68,34),0:LINE(48,35)-(68,35),0
36 LINE(44,36)-(72,36),0:LINE(44,37)-(72,37),0
38 LINE(40,38)-(76,38),0
40 LINE(8,6)-(234,54),1,B
50 PRINT@176," TO PLAY    PRESS P "
55 PRINT@216," TO QUIT    PRESS Q "
60 FORZ=10000TO1000STEP-200:SOUNDZ,3:NEXT
70 K$=INKEY$
75 IFK$="P"ORK$="p"THEN200
80 IFK$="Q"ORK$="q"THENMENU
90 GOTO70
200 CLS:N=116:DIMN$(N),L(N),WD$(N)
210 DATAG,20,C,20,S,20,D,10,C,10,B,20,D,20,C,60,G,60
220 DATAG,20,C,20,S,20,D,10,C,10,B,20,D,20,C,140
230 DATAC,20,F,20,U,20,H,10,F,10,E,20,H,20,F,60,C,60,D,60,D,60,S,80
240 DATAG,20,C,20,S,20,D,10,C,10,B,20,D,20,C,60,G,60
250 DATAG,20,C,20,S,20,D,10,C,10,B,20,D,20,C,120
260 DATAC,20,F,20,U,20,H,10,F,10,E,20,H,20,F,60,T,60,H,120
270 DATAS,20,F,40,S,20,D,20,S,20,F,40,S,20,D,20
280 DATAS,20,F,40,S,20,F,20,H,120
290 DATAU,20,U,20,U,20,U,10,H,10,F,20,U,20,H,60,S,60
300 DATAF,20,F,20,F,20,F,10,S,10,D,20,F,20,S,120
310 DATAS,20,F,40,S,20,D,20,S,20,F,40,S,20,D,20
320 DATAS,20,F,40,S,20,F,20,H,120
330 DATAU,20,U,20,U,20,U,10,H,10,F,20,U,20,H,60,S,60
340 DATAF,20,F,20,F,20,F,10,S,10,D,20,S,20,C,120
400 DATA IS ,THIS ,THE ,LIT,TLE ,GIRL ,I ,CAR,RIED?.
410 DATA IS ,THIS ,THE ,LIT,TLE ,BOY ,AT ,PLAY?.
420 DATA I ,DON'T ,RE,MEM,BER ,GROW,ING ,OLD,ER.
430 DATA WHEN ,DID ,THEY?.
440 DATA WHEN ,DID ,SHE ,GET ,TO ,BE ,A ,BEAU,TY?.
450 DATA WHEN ,DID ,HE ,GROW ,TO ,BE ,SO ,TALL?.
460 DATA WAS,N'T ,IT ,YES,TER,DAY.
462 DATA WHEN ,THEY ,WERE ,SMALL?.
470 DATA SUN,RISE ,SUN,SET * ,SUN,RISE ,SUN,SET.
480 DATA SWIFT,LY ,FLOW ,THE ,DAYS!.
490 DATA SEED,LINGS ,TURN ,O,VER,NIGHT ,TO ,SUN,FLOWERS.
500 DATA BLOS,SOM,ING ,E,VEN ,AS ,WE ,GAZE.
510 DATA SUN,RISE ,SUN,SET * ,SUN,RISE ,SUN,SET.
520 DATA SWIFT,LY ,FLY ,THE ,YEARS.
530 DATA ONE ,SEA,SON ,FOL,LOW,ING ,AN,OTH,ER.
540 DATA LAD,EN ,WITH ,HAP,PI,NESS ,AND ,TEARS.
600 DATA"GBCDSEFTHU"
610 DATA6269,4976,4697,4184,3728,3718,3516,3321,3134,2959
620 FORI=1TON:READN$(I),L(I):NEXTI
630 FORI=1TON:READWD$(I):NEXTI
640 READTN$:FORI=1TOLEN(TN$):READFR(I):NEXTI
700 CLS
710 FORI=1TON:PRINTWD$(I);:SOUNDFR(INSTR(TN$,N$(I))),L(I)
720 IFRIGHT$(WD$(I),1)="."THENPRINT
722 IFI=56THENCLS
726 IFI=56ORI=60ORI=64ORI=90ORI=94THENGOSUB9
730 NEXTI:CLS:FORA1=1TO999:NEXT:GOTO1