130RESTORE 260 140REPEAT:READ D$ 150UNTIL LEFT$(T$,3)=LEFT$(D$,3) 240 =D$+" "+STR$(D3)+B$+" "+M$+" "+MID $(T$,12,4):END 260DATA Monday,Tuesday,Wednesday,Thurs day,Friday,Saturday,Sunday