П ****************************************Ы П * NAME CALENDAR *╢ П * VERSION 3.20 *ч П * DATE 05/09/2001 * П * MODIFIED BY N.M Gupta *I# П ****************************************SдЧ SEGbDSAM$ч"NO"llЙ 4|╨DSAM$ч"YES"И4Ч SEGчТШЧ SEGЪ№╔ ▌и` Х з Й ( │─ Й ╕└( ┐ ,,М С "THIS PROGRAM REQUIRES GWBASIC":┐ ,,:В Iч ╠ (#:Г: и Ё Ё ╔ Х:Х з Й UT╚ ,:Л DSAM$ч"YES" ═ ■М "cafdemo" :б ┐ ,,:а P:╔ Х:└:Б[╕ПhЖ M$()wАЖ D(,0)ГфЖ W$()ЯH В Pч ╠ :З M$(P):Г P╣м В Pч ╠ :З W$(P):Г PQД " JANUARY "," FEBRUARY"," MARCH"," APRIL"," MAY"," JUNE"," JULY"," AUGUST"," SEPTEMBER"," OCTOBER"," NOVEMBER"," DECEMBER"ИtД " SUN"," MON"," TUE"," WED"," THU"," FRI"," SAT"ж╪AGAINчъс·GЗ:FIRSTчъс·GЗм<└┴аИ Lч:M1ч:╚ ,у╩ ,:С "Which year ____"єh╩ ,$:Е Y,╠╩ ,:С "Which month __ (RETURN for whole year)"=0╩ ,%:Е M1CФ└d°Л AGAINчY ═ Й ░ :б AGAINчYЦ\╩ ,:С "Please wait ...":В Xч ╠ АOCС:Г X▒ОЛ FIRSTчъс·GЗ ═ Й $┌└В Iч ╠ :В Jч ╠ 0:D(I,J)ч:Г J,Iї$FIRSTчс·GЗ:И Y1чYъ╝ ИИ IчьИ N2ч'PЛ Yч Е(Yь)ы ═ И N2ч;┤Л Y1ц ═ Й иNЛ Y1ч ═ Й po|И Y2ч Е(mы Ж(Y1)ч Ж(Y1)ь)НрИ Iчъ Е(Y2ъ Е(Y2ь)ы)щIЧDЙ p╢иИ Y2ч Е(mыY1щ(Y1ъ)ьщ)╬И IчY2ъ Е(Y2ь)ыщI▐pВ P1ч ╠ Ї╘ Л Iц ═ И IчIъ8 И XчЬ В P2чI ╠ 0 И XчXщ<d Л P2ч Е(P2ь)ы ═ Й РN╚ И D(P1,P2)чXЦ, Х P1 Й , X, , ╝, , ╝, , , ╝, , ╝, гР И XчXъоЇ Й Д┬X Л XчN2 ═ Й ш╓╝ Л Xч ═ Й шъ Л Xч ═ Й шїД Г P2ш И IчP2ъ Е(P2ь)ыщLГ P1S░Х M1 Й D/,D/,D/,D/,D/,D/,D/,D/,D/,D/,D/,D/n└:С:С ╬$);"Year :";YzxП PRINTЖ▄П PRINTЩ@В Aч ╠ ╧ ед Н м&║ В Kч ╠ ( ╧ ╬l С " ";т╨ В IчAщ ╠ Aщ°4! В JчKщ ╠ KщШ! Л Jч Е(Jь)ы ═ Й Ё#5№! Л D(I,J)ч ═ Й (#R`" С ╫ "####";D(I,J);b─" Й М#v(# С " ";ВМ# Г JШЁ# С " ";вT$ Г Iк╕$ С┤% Г K╙А%Л Aч ═ Й ф% :б С ╬');Y█ф%Г AхH&Й ш5Єм&П print№'И Jч t'В Iч ╠ ╪' С ╬щJ);M$(L);,<( И LчLщ:а( И JчJщ%B)Г IHh)СN╠)СX0*Н °*^Ф*Оi°*С ╬);w\+В Iч ╠ Ж└+ В Jч ╠ Ч$, С W$(J);аИ, Г J│ь, С " ";╗P-Г I┴┤-С╟.ОЄ|.П A$=INKEY$:IF A$=CHR$(27) THEN 2330р.П IF A$<>"" THEN 4810 ELSE GOTO 4080!D/П-и/П PRINT90П PRINTDp0 Н д8X╘0 В Kч ╠ ( ╧ v81 С " ";МЬ1 В JчKщ ╠ Kщм2 Л Jч Е(Jь)ы ═ Й ╝4╡d2IчM1╥╚2 Л D(I,J)ч ═ Й Ї3я,3 С ╫ "####";D(I,J); Р3 Й X4Ї3 С " ";X4 Г J5╝4 С " ";= 5 СFД5 Г KГш5С :С ╬);"Press SPACE bar to continue or to exit"ЧL6Л ▐шц"" ═ Й L6з░6SELECT$ ч ▐┬7Л SELECT$ ч "" ═ Й ░6сx7Л SELECT$ ч Ц() ═ Й Ё ¤▄7Л SELECT$ ч " " ═ Й <@8Й L6 д8└+9└:С:С ╬);" Year :";YUl9С:С ╓(," ");:С ╫ "Month: ####";M1a╨9╩ ,q4: С M$(M1):С{Ш:Н `;Б№:ОН`;С ╬);Ь─; В Jч ╠ н(< С W$(J);╢М< Г J╝Ё<С┬T=О