home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
baswind8.zip
/
CALENDR3.SUB
< prev
next >
Wrap
Text File
|
1990-09-14
|
4KB
|
106 lines
'
'
'******************************************************************************
' Function : CALENDR3 *
' *
' Purpose: *
' *
' *
' Results: *
' *
' Usage : *
' *
' *
' Date Written : 09/01/90 - Date Tested: 09/01/90 - Author: James P Morgan *
' Date Modified: - : - : *
'-----------------------------------------------------------------------------*
' NOTE: *
'******************************************************************************
' *
' SUB PROGRAM NAME (PARAMETERS) STATIC/RECURSIVE *
'-----------------------------------------------------------------------------*
' *
SUB CALENDR3(MONTH%,YEAR%,ROW%,FORE%,BACK%,SHADOW%,RETURN.CODE%) STATIC
DEFINT A-Z 'make all short interger by default
RETURN.CODE%=0
MAKEWIND.RETURN.CODE%=0
IF (MONTH%<1) OR (MONTH%>12) THEN 'edit month for validity
RETURN.CODE=-2
EXIT SUB
END IF
IF YEAR%<0 THEN 'edit year for validity
RETURN.CODE=-3
EXIT SUB
END IF
ORG.MONTH%=MONTH% 'save the starting month/year
ORG.YEAR%=YEAR%
ROW$=STR$(ROW%)
ROW$="00"+RIGHT$(ROW$,LEN(ROW$)-1)
ROW$=RIGHT$(ROW$,2)
'
ULR%=ROW% 'Create Window for Calendar
ULC%=6
LRR%=ULR%+9
LRC%=75
FRAME%=4
LABEL$=""
CALL MAKEWIND(ULR%,ULC%,LRR%,LRC%,FRAME%,FORE%,BACK%,GROW%,SHADOW%,LABEL$,MAKEWIND.RETURN.CODE%)
SHADOW%=0 'no shadow
NYEAR%=ORG.YEAR% '
MONTH%=ORG.MONTH%-1 'calculate previous month
IF MONTH%=0 THEN 'did month force year to roll back
NYEAR%=NYEAR%-1
MONTH%=12 'December
END IF
QUADRANT$=ROW$+":06"
GOSUB CALENDR3.DISPLAY.CALENDAR 'display this month/year calendar
IF RETURN.CODE%<0 THEN
GOTO CALENDR3.EXIT
END IF
MONTH%=ORG.MONTH% 'restore original month/year
NYEAR%=YEAR%
QUADRANT$=ROW$+":30"
GOSUB CALENDR3.DISPLAY.CALENDAR
IF RETURN.CODE%<0 THEN
GOTO CALENDR3.EXIT
END IF
MONTH%=ORG.MONTH%+1 'calculate the next month
NYEAR%=YEAR%
IF MONTH%=13 THEN 'did the month force year to roll over
NYEAR%=NYEAR%+1
MONTH%=1 'January
ENDIF
QUADRANT$=ROW$+":54"
GOSUB CALENDR3.DISPLAY.CALENDAR
CALENDR3.EXIT:
ROW$="" 'free string space
QUADRANT$=""
EXIT SUB 'return to caller
CALENDR3.DISPLAY.CALENDAR:
CALL CALENDAR(MONTH%,NYEAR%,QUADRANT$,FORE%,BACK%,SHADOW%,RETURN.CODE%)
RETURN
END SUB