Calendar: Difference between revisions
m
→{{header|RPL}}: Layout
m (→{{header|RPL}}: add screenshot) |
m (→{{header|RPL}}: Layout) |
||
Line 7,381:
<code>WKDAY</code> is defined at [[Last Friday of each month#RPL|Last Friday of each month]]
{{works with|HP|48}}
« FP DUP 2 TRNC 1 →
« CLLCD "Mo Tu We Th Fr Sa Su" 1 DISP
1 + DUP <span style="color:blue">WKDAY</span> 1 - NEG DATE+
'''DO''' ""
1 7 '''START'''
OVER FP 2 TRNC
" " 4 PICK IP →STR + DUP SIZE DUP 1 -
SWAP 1 DATE+ SWAP
'''NEXT'''
'
'''UNTIL''' DUP FP 2 TRNC
7 FREEZE
» » ‘<span style="color:blue">CAL</span>’ STO
1.072023 <span style="color:blue">CAL</span>
▲[[File:RPL Calendar.png|thumb|left|Screenshot of a HP-48 emulator]]
=={{header|Ruby}}==
|