home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
DATABASE
/
HANDYP10.LBR
/
SAYMONTH.CZD
/
SAYMONTH.CMD
Wrap
OS/2 REXX Batch file
|
2000-06-30
|
2KB
|
86 lines
STOR date() to today
STOR val($(today,4,2))to blink
STOR date() to hold
DO WHIL offset<=9
STOR month+'/01/'+year to today
SET date to &today
DO saytoday
DO CASE
CASE factor=1
STOR column+57 to column
CASE factor=2
STOR column+60 to column
CASE factor=3
STOR column+63 to column
CASE factor=4
STOR column+66 to column
CASE factor=5
STOR column+69 to column
CASE factor=6
STOR column+72 to column
CASE factor=0
STOR column+75 to column
ENDC
IF val(month)=2
IF val(year)/4=int(val(year)/4)
STOR 29 to last
ELSE
STOR 28 to last
ENDI
ELSE
IF val(month)=9 .or. val(month)=4 .or. val(month)=6 .or. val(month)=11
STOR 30 to last
ELSE
STOR 31 to last
ENDI
ENDI
STOR 1 to count
STOR 1+offset to row
STOR title+', 19'+year to title
@ row,xpos+58+((21-len(title))/2) say title
STOR row+2 to row
@ row,xpos+58 say 'S'
@ row,xpos+61 say 'M'
@ row,xpos+64 say 'T'
@ row,xpos+67 say 'W'
@ row,xpos+70 say 'T'
@ row,xpos+73 say 'F'
@ row,xpos+76 say 'S'
STOR row+1 to row
DO WHIL count<=last
IF count=blink .and. offset=0 .and. fmonth='T'
SET intensity off
ENDI
@ row,column say count using '99'
IF count=blink .and. offset=0 .and. fmonth='T'
SET intensity on
ENDI
STOR count+1 to count
STOR column+3 to column
IF column>xpos+75
STOR xpos+57 to column
STOR row+1 to row
ENDI
ENDD
STOR offset+9 to offset
STOR mo+1 to mo
IF mo<10
STOR str(mo,1,0) to month
STOR '0'+month to month
ELSE
IF mo>12
STOR '01' to month
STOR str(val(year)+1,2,0) to year
ELSE
STOR str(mo,2,0) to month
ENDI
ENDI
STOR xpos to column
IF sixmonth='T'
SET intensity off
ENDI
ENDD
SET date to &hold
STOR val($(hold,1,2)) to mo
RETU