home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 209
/
209.d81
/
blessing
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
52 lines
40 poke53280,0:poke53281,0
80 ]re:print"[147]":
85 gosub225
90 a$="ba-ruck at-toh add-annoy, el-low-hey-new mel-leck o'lam, ash-sher kid-
95 b$[178]"dish-shah-no b'mitz-va-so, v'tsi-vo-nu l'had-lick ner shell ha-new-kah.
96 saya$:sayb$
100 a$="blessed are you, o lord our god, king of the world, who made us hole-e
105 b$[178]"by your commandments & commanded us to kin-del the lights of ha-new-kah
108 saya$:sayb$
110 a$="ba-ruck at-toh add-annoy el-low-hey-new mel-leck o'lam, she-o-so
115 b$[178]"nis-sim lah-vo-tey-new bah-yo-mim ho-aim baz-aman ha-zeh.
116 saya$:sayb$
120 a$="blessed are you, o lord our god, king of the world, who performed
125 b$[178]"mir-ah-kells for our ancestors, in those days, at this season."
126 saya$:sayb$
130 a$[178]"ba-ruck at-toh add-annoy, el-low-hey-new mel-leck o'lam
135 b$="s'hec-key-on-new, v'key-ma-new, v'hig-e-on-new, laz-mon ha-zeh."
136 saya$:sayb$
140 a$="blessed are you, o lord our god, king of the world, who gave us life"
145 b$="and kept us safe and helped us to reach this season."
146 saya$:sayb$
150 ]quit:goto60000
225 poke53280,06:poke53281,00:print"[147]"chr$(142);
226 ]light1:print"sam recites the broches (prayers) said"
227 print"before kindling the lights of chanukah."
230 print"":wk$="[151][213]"
235 printspc(20);wk$
240 printspc(17);wk$;" [146] ";wk$
245 printspc(14);wk$;" [146] [146] [146] ";wk$
250 printspc(11);wk$;" [146] [146] [146] [146] [146] ";wk$
255 printspc(8);wk$;" [146] [146] [146] [146] [146] [146] [146] ";wk$
260 printspc(8)" [146] [146] [146] [146] [146] [146] [146] [146] [146]"
265 printspc(8)" [146] [146] [146] [146] [146] [146] [146] [146] [146]"
270 printspc(8)" [146] [146] [146] [146] [146] [146] [146] [146] [146]"
275 printspc(8)" [146] [146] [146] [146] [158][202][178][203] [146] [146] [146] [146]"
280 printspc(8)" [146] [146] [146] [158][202][178][203] [221] [202][178][203] [146] [146] [146]"
285 printspc(8)" [146] [146] [158][202][178][203] [202][192][192][219][192][192][203] [202][178][203] [146] [146]"
290 printspc(8)" [146] [158][202][178][203] [202][192][192][192][192][192][219][192][192][192][192][192][203] [202][178][203] [146]"
295 printspc(7)"[158][202][178][203] [202][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][203] [202][178][203]"
300 printspc(8)"[158][202][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][203]"
305 printspc(19)"[169][183][223][146]"
310 printspc(17)"[169][183][183][183][183][183][223][146]"
315 printspc(15)"[169][183][183][183][183][183][183][183][183][183][223][146]"
320 printspc(13)"[169][183][183][183][183][183][183][183][183][183][183][183][183][183][223][146]"
325 printspc(13)"happy chanukah![146]"
330 return
10000 d=peek(186):n$="blessing":open15,d,15,"s0:"+n$:close15:saven$,d:end
60000 p$="menorah v2":print"[147][158][204]oading ''[205][197][206][207][210][193][200] [214]2''..[208]lease wait"
60001 zz=peek(186):dv=zz
60002 poke198,2:print"[144]new":print"load"chr$(34)p$chr$(34)","dv
60003 print"run":poke631,13:poke632,13:poke633,13:end