Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/270.lha/UltraCard_Browser/calendar

UltraCard Stack | 1989-08-09 | 120.9 KB | 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