From c542b69ef0350cd563345fb85e282dfd783c33b9 Mon Sep 17 00:00:00 2001 From: moshix Date: Tue, 31 Dec 2019 13:09:54 -0600 Subject: [PATCH] added RExx Hanukkah display --- hanukkah | 97 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 hanukkah diff --git a/hanukkah b/hanukkah new file mode 100644 index 0000000..164b627 --- /dev/null +++ b/hanukkah @@ -0,0 +1,97 @@ +/*REXX*/ + +CALL IMPORT FSSAPI +ADDRESS FSS +CALL FSSINIT +CALL FSSTEXT " ",1,24,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",2,23,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",3,24,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",4,24,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",5,24,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",6,23,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",7,22,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",8,21,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",9,18,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",10,21,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",11,19,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",12,17,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",13,15,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",14,19,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",15,17,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",16,15,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",17,13,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",18,17,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",19,15,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",20,13,,#PROT+#GREEN+#REVERSE +CALL FSSTEXT " ",21,23,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",22,23,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",23,12,,#PROT+#WHITE+#REVERSE +CALL FSSTEXT "HAPPY HOLIDAYS",2,34,,#PROT+#USCORE+#HI +CALL FSSTEXT "TO THE",4,38,,#PROT+#USCORE+#HI +CALL FSSTEXT "MOSHIX MAINFRAME",6,34,,#PROT+#USCORE+#HI +CALL FSSTEXT "GROUP!",8,38,,#PROT+#USCORE+#HI +CALL FSSTEXT " ",7,58,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,50,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,52,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,54,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,56,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,60,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,62,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,64,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,66,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",8,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,50,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,52,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,54,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,56,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,60,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,62,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,64,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,66,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",9,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,50,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,52,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,54,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,56,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,60,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,62,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,64,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,66,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",10,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,50,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,52,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,54,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,56,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,60,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,62,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,64,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",11,66,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",12,50,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",13,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",14,58,,#PROT+#BLUE+#REVERSE +CALL FSSTEXT " ",15,54,,#PROT+#BLUE+#REVERSE + +CALL FSSTEXT " ",16,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",17,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",18,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",19,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",20,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",21,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",22,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",23,46,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",18,70,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",19,70,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",20,70,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",21,70,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",22,70,,#PROT+#RED+#REVERSE +CALL FSSTEXT " ",22,52,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",21,53,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",20,54,,#PROT+#YELLOW+#REVERSE +CALL FSSTEXT " ",19,58,,#PROT+#YELLOW+#REVERSE + DO FOREVER + RCKEY=FSSREFRESH() /* DISPLAY/REFRESH FORMATTED SCREEN */ + IF RCKEY==#PFK03 THEN LEAVE + END + CALL FSSCLOSE + EXIT