Next I

230 IF L<>0 THEN 250 240 IF M>2 THEN D=D+1 250 W=INT((D/7-INT(D/7))*7 +o5)+l

260 PRINT TAB(16);MID$("JA NFEBMARAPRMAYJUNJULAUGSEPO CTNOVDEC",M*3-2,3);YY 270 PRINT TAB(6),-"SUN MON TUE WED TflU FRI SAT"

280 PRINT TAB(6+W*4); 290 FOR 1=1 TO VAL(MID$(L$ ,M*2-1,2)) 300 P=I+W-1

RINT:PRINT TAB(6);

320 IF I<10 THEN PRINT CHR

330 PRINT I? 340 NEXT I

360 IF M=2 THEN PRINT "29 ii

0 0

Post a comment