Club Amiga de Montreal

home *** CD-ROM | disk | FTP | other *** search

/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 270.lha / UltraCard_Browser / calendar (.txt) < prev next >

Wrap

UltraCard Stack | 1989-08-09 | 124KB | 836 lines

-- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down Select Select.Down GLOBAL DAYINDEX GLOBAL DAYNAME GLOBAL STARTMONTH GLOBAL YEARVALUE GLOBAL MONTHVALUE GLOBAL NEXTDAY ASKVALUE PROMPT What Year (78 = 1978, etc.)? YEARVALUE ASKVALUE PROMPT What Month (1 = Jan, etc.) ? MONTHVALUE CURSOR DAYINDEX LOCKSCREEN :LOOP1: DAYINDEX DAYNAME DAYNAME DAYINDEX DAYINDEX CURSOR LOOP1 ENDIF YEARVALUE MONTHVALUE NEXTDAY NEXTDAY LASTDATE STARTMONTH DAYINDEX :LOOP2: DAYINDEX EXIT1 ENDIF DAYINDEX LOOP2 :EXIT1: THEDAYNUM :LOOP3: DAYINDEX DAYNAME THEDAYNUM DAYNAME THEDAYNUM DAYINDEX THEDAYNUM EXIT2 ENDIF YEARVALUE MONTHVALUE THEDAYNUM LASTDATE STARTMONTH EXIT2 ENDIF CURSOR LOOP3 :EXIT2: MODIFIEDOBJECTS THEFRAME UNLOCKSCREEN KEYF1 CURSOR READY What Year (78 = 1978, etc.)? YEARVALUE ASKVALUE PROMPT What Month (1 = Jan, etc.) ? MONTHVALUE CURSOR DAYINDEX :LOOP1: DAYINDEX DAYNAME DAYNAME DAYINDEX DAYINDEX CURSOR LOOP1 ENDIF YEARVALUE MONTHVALUE NEXTDAY NEXTDAY LASTDATE STARTMONTH DAYINDEX :LOOP2: DAYINDEX EXIT1 ENDIF DAYINDEX LOOP2 :EXIT1: THEDAYNUM :LOOP3: DAYINDEX DAYNAME THEDAYNUM DAYNAME THEDAYNUM DAYINDEX THEDAYNUM EXIT2 ENDIF YEARVALUE MONTHVALUE THEDAYNUM LASTDATE STARTMONTH EXIT2 ENDIF CURSOR LOOP3 :EXIT2: MODIFIEDOBJECTS THEFRAME KEYF1 CURSOR READY -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: answer "Do you really want to print?" with " Yes " , " No " if it is 0 return endif answer "Printer ready?" with " Ok " , " No, Forget it " if it is 0 return endif cursor wait do.menu "print" subitem 1 cursor ready End_Select Select.Down: End_Select.Down Select Select.Down ANSWER Do you really want to print? Yes RETURN ENDIF ANSWER Printer ready? No, Forget it RETURN ENDIF CURSOR DOMENU print SUBITEM CURSOR READY -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down fFORM ILBMBMHD pppBODY BACKDROP.1 rH/pFRAME.1 Day.1 rIC(rII Set Date hDiamond 12 Month.Name (Garnet 9 -1811 rNumber Garnet 9 Print... `Diamond 12 day.8 day.2 day.3 day.4 day.5 day.6 day.7 day.9 day.10 day.11 day.12 day.13 day.14 day.15 day.16 day.17 day.18 day.19 day.20 rHtP day.21 !rHvH day.22 "rHx@ day.23 #rHz8 day.24 $rH|0 day.25 %rH~( day.26 &rH~h day.27 day.28 day.29 day.30 day.31 day.32 day.33 day.34 day.35 LASTDATE ULTRATALKCHAT cursor ready TheFGPen WIDTHADJUST CANTMODIFY HEIGHTADJUST TheBGPen TheDrawMode TheTextPen FTheFont TheFont Topaz 8 BoldStyle ItalicStyle UnderlineStyle DATACURSOR FALSE MOUSEX MOUSEY SHIFTKEY ALTKEY CONTROLKEY TheDate 1-Oct-89 TheDay TheDayOfTheWeek TheTime 12:42:43 PM TheYear TheMonth EXTERNAL.SCRIPTER C:RUN C:RX EDITOR PAINT TABKEYOBJECT TARGET SELECTION FINDOBJECT IOLENGTH PATHWAYS ULTRA:STACKS/ ULTRA: SOUNDSLOADED DAYINDEX DAYNAME day35 STARTMONTH YEARVALUE MONTHVALUE NEXTDAY -- Select Handlers for this object Select: global day.index global day.name global start.month global year.value global month.value global next.day -- here we go. Let's fill in the calendar strings -- the objects are named day.1 through day.35 -- we have to start by clearing them all ask.value prompt "What Year (78 = 1978, etc.)? " into year.value ask.value prompt "What Month (1 = Jan, etc.) ? " into month.value cursor wait put 1 into day.index lock.screen :loop1: put "day" && day.index into day.name put " " into object(day.name) add 1 to day.index if day.index < 36 cursor wait goto loop1 endif put days(year.value,month.value,1) into next.day put next.day into last.date put the month into start.month put the month into object(1) put the year into object(2) put 1 into day.index :loop2: if day.index is day.of.the.week goto exit1 endif add 1 to day.index goto loop2 :exit1: put 1 into the.day.num :loop3: put "day" && day.index into day.name put the.day.num into object(day.name) add 1 to the.day.num add 1 to day.index if the.day.num is 32 goto exit2 endif put days(year.value,month.value,the.day.num) into last.date if the month is.not start.month goto exit2 endif cursor wait -- rotate the ball goto loop3 :exit2: set the modified.objects of the.frame to 1 unlock.screen send key.f1 cursor ready End_Select Select.Down: End_Select.Down FRAME.1 Day.1 Set Date Diamond 12 Month.Name PGarnet 9 -1811 rNumber +xHGarnet 9 Print... Diamond 12 day.8 day.2 day.3 day.4 day.5 day.6 day.7 day.9 day.10 day.11 day.12 day.13 day.14 day.15 day.16 day.17 day.18 day.19 day.20 day.21 day.22 day.23 day.24 day.25 day.26 day.27 day.28 day.29 day.30 day.31 day.32 day.33 day.34 day.35 FRAME.1 Day.1 Set Date Diamond 12 Month.Name PGarnet 9 -1811 rNumber +xHGarnet 9 Print... Diamond 12 day.8 day.2 day.3 day.4 day.5 day.6 day.7 day.9 day.10 day.11 day.12 day.13 day.14 day.15 day.16 day.17 day.18 day.19 day.20 day.21 day.22 day.23 day.24 day.25 day.26 day.27 day.28 day.29 day.30 day.31 day.32 day.33 day.34 day.35 LASTDATE ULTRATALKCHAT 'put "deluxepaintIII:dpaint" into paint TheFGPen WIDTHADJUST CANTMODIFY INMODIFY HEIGHTADJUST TheBGPen TheDrawMode TheTextPen FTheFont TheFont Topaz 8 BoldStyle ItalicStyle UnderlineStyle DATACURSOR FALSE MOUSEX MOUSEY SHIFTKEY ALTKEY CONTROLKEY TheDate 1-Oct-89 TheDay TheDayOfTheWeek TheTime 12:42:43 PM TheYear TheMonth EXTERNAL.SCRIPTER C:RUN C:RX EDITOR PAINT deluxepaintIII:dpaint VISUAL.EFFECT EFFECT.SPEED EFFECT.AMOUNT 65534 TABKEYOBJECT 65534 TARGET SELECTION FINDOBJECT IOLENGTH PATHWAYS ULTRA:STACKS/ ULTRA: SOUNDSLOADED UPEFFECT DOWNEFFECT RIGHTEFFECT LEFTEFFECT DAYINDEX DAYNAME day35 STARTMONTH YEARVALUE MONTHVALUE NEXTDAY FRAME.1 Day.1 Set Date 'cXDiamond 12 Month.Name Garnet 9 -1811 rNumber 'fhGarnet 9 Print... '~(Diamond 12 day.8 day.2 day.3 day.4 day.5 day.6 day.7 day.9 day.10 day.11 day.12 day.13 day.14 day.15 day.16 day.17 day.18 day.19 day.20 day.21 day.22 day.23 day.24 day.25 day.26 day.27 day.28 day.29 day.30 day.31 day.32 day.33 day.34 day.35 FRAME.1 Day.1 Set Date Diamond 12 Month.Name Garnet 9 -1811 rNumber Garnet 9 Print... Diamond 12 day.8 day.2 day.3 day.4 day.5 day.6 day.7 day.9 day.10 day.11 day.12 day.13 day.14 day.15 day.16 day.17 day.18 day.19 day.20 day.21 day.22 day.23 day.24 day.25 day.26 day.27 day.28 day.29 day.30 day.31 day.32 day.33 day.34 day.35