Calendar: Difference between revisions

11 bytes added ,  10 months ago
m
m (→‎{{header|RPL}}: add screenshot)
Line 7,381:
 
<code>WKDAY</code> is defined at [[Last Friday of each month#RPL|Last Friday of each month]]
[[File:RPL Calendar.png|thumb|left|Screenshot of a HP-48 emulator]]
{{works with|HP|48}}
« FP DUP 2 TRNC 1 → mmonth liline
« 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 mmonth ==
" " 4 PICK IP →STR + DUP SIZE DUP 1 -
DUP SIZE DUP 1 - SWAP SUB " " IFTE + " " +
SWAP 1 DATE+ SWAP
'''NEXT'''
'liline' INCR DISP
'''UNTIL''' DUP FP 2 TRNC mmonth ≠ '''END'''
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}}==
1,151

edits