Print TIME and DATE

[dayd]

Happy new year every one!
Late and probably a bit outside the scope but here's a few line of code I use to display the date in french.

Code:


01◆LBL "JOUR"
 02 DATE
 03◆LBL D
 04 DOW
 05 XEQ IND X
 06 "|- "
 07 RCL d
 08 FIX 2
 09 SF 28
 10 ARCL L
 11 STO d
 12 AVIEW
 13 CLX
 14 LASTX
 15 RTN
 16◆LBL 00
 17 "DIMANCH."
 18 RTN
 19◆LBL 01
 20 "LUNDI"
 21 RTN
 22◆LBL 02
 23 "MARDI"
 24 RTN
 25◆LBL 03
 26 "MERCRED."
 27 RTN
 28◆LBL 04
 29 "JEUDI"
 30 RTN
 31◆LBL 05
 32 "VENDRED."
 33 RTN
 34◆LBL 06
 35 "SAMEDI"
 36 END

Once the pointer in the program, 03 LBL D is there to display any given date in X.
Line 06 is Append Space.
Lines 07 & 11 are synthetic instructions to keep the previous status (flags) of the 41, they can be omitted.

Also this nice to see that there's still HP2225C printers out there. Mine is out of order cause the cartridge wasn't removed by the previous owner.