-
Notifications
You must be signed in to change notification settings - Fork 51
/
hanukkah
97 lines (95 loc) · 4.31 KB
/
hanukkah
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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