32 lines
922 B
Plaintext
32 lines
922 B
Plaintext
// Get todays date into #1, #2, #3 and #7
|
|
#1 = Date_Day
|
|
#2 = Date_Month
|
|
#3 = Date_Year
|
|
#7 = JDate() % 7 // #7 = weekday
|
|
|
|
// Convert weekday number (in #7) into word in T-reg 1
|
|
if (#7==0) { RS(1,"Sunday") }
|
|
if (#7==1) { RS(1,"Monday") }
|
|
if (#7==2) { RS(1,"Tuesday") }
|
|
if (#7==3) { RS(1,"Wednesday") }
|
|
if (#7==4) { RS(1,"Thursday") }
|
|
if (#7==5) { RS(1,"Friday") }
|
|
if (#7==6) { RS(1,"Saturday") }
|
|
|
|
// Convert month number (in #2) into word in T-reg 2
|
|
if (#2==1) { RS(2,"January") }
|
|
if (#2==2) { RS(2,"February") }
|
|
if (#2==3) { RS(2,"March") }
|
|
if (#2==4) { RS(2,"April") }
|
|
if (#2==5) { RS(2,"May") }
|
|
if (#2==6) { RS(2,"June") }
|
|
if (#2==7) { RS(2,"July") }
|
|
if (#2==8) { RS(2,"August") }
|
|
if (#2==9) { RS(2,"September") }
|
|
if (#2==10) { RS(2,"October") }
|
|
if (#2==11) { RS(2,"November") }
|
|
if (#2==12) { RS(2,"December") }
|
|
|
|
// Display the date string
|
|
RT(1) M(", ") RT(2) M(" ") NT(#1, LEFT+NOCR) M(",") NT(#3)
|