10 DV=PEEK(186):IFDV<8THENDV=8:REM SET  DRIVE
20 POKE56,52:POKE52,52:REM LOWER TOP OF BASIC
30 POKE53281,0:POKE53280,0:PRINT"[147][159]":GOSUB660
37 :
38 :REM LOAD PIC STUFF
39 :
40 SYS57812"UNPACKER1.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
50 SYS57812"MENORAH.SHP",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
57 :
58 :REM CHANGE TO BANK 1 - UNPACK AND   DISPLAY PIC
59 :
60 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR2
70 POKE251,52:POKE252,64:POKE253,96
80 POKE53280,0:SYS51456:SYS51459
87 :
88 :REM LOAD REST OF STUFF
89 :
90 SYS57812"CH.SID PLAYER",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
100 SYS57812"CH.SCRIPTER CC00",DV,0:POKE780,0:POKE781,0:POKE782,204:SYS65493
110 SYS57812"CHAN.FNT",DV,0:POKE780,0:POKE781,0:POKE782,120:SYS65493
120 SYS57812"CHAN.SPR",DV,0:POKE780,0:POKE781,0:POKE782,117:SYS65493
130 SYS57812"O! CHANUKAH.MUS",DV,0:POKE780,0:POKE781,0:POKE782,106:SYS65493
140 SYS57812"MI Y'MALEL.MUS",DV,0:POKE780,0:POKE781,0:POKE782,112:SYS65493
150 POKE648,96:POKE53272,129:REM SET    SCREEN AND COLOR
157 :
158 :REM NIGHT STRINGS
159 :
160 FORI=0TO7:READD$(I):NEXT
170 DATA" [198]IRST ","[211]ECOND "," [212]HIRD ","[198]OURTH "," [198]IFTH "," [211]IXTH "
180 DATA"[211]EVENTH","[197]IGHTH "
190 SP=96*256+1016:V=53248:REM SPRITE   POINTERS - VIC CHIP
200 SC=52224:SYSSC,64,96,120:REM SETUP  HI-RES SCRIPTER
207 :
208 :REM SETUP SPRITES
209 :
210 FORI=0TO7:POKESP+I,212+I:POKEV+39+I,7:NEXT
220 POKEV+16,0:POKEV+29,0:POKEV+23,0:POKEV+28,0
230 FORI=8TO0STEP-1:READX(I),Y(I):NEXT:REM FLAME LOCATIONS
240 DATA172,57,104,89,120,81,136,73,152,65,192,65,208,73,224,81,240,89
250 FORI=0TO7:READXX(I),YY(I):NEXT:REM  RED CHAR LOCATIONS
260 DATA28,6,26,5,24,4,22,3,17,3,15,4,13,5,11,6
270 FORI=0TO24:POKE54272+I,0:NEXT:REM   CLEAR SID
277 :
278 :REM MAIN LOOP - NIGHT 1 TO 7
279 :
280 FORI=0TO6
290 SYS49435:POKE781,0:POKE782,106+6*(IAND1):SYS49458:POKE49152,7:REM MUSIC
300 POKEV+14,X(8):POKEV+15,Y(8):REM     MIDDLE FLAME
310 POKEV+2*I,X(I):POKEV+1+2*I,Y(I):REM LOOP FLAME
320 SYSSC+6,2,18,"	[149]"+D$(I):REM NIGHT MESSAGE
330 SYSSC+6,2,19," [206]IGHT "
340 POKEV+21,PEEK(V+21)OR(128+2^I):REM  TURN ON SPRITES
350 SYSSC+6,XX(I),YY(I),"	[144] [146]":REM   RED PART OF FLAMES
360 SYSSC+6,19,2,"	[144]<>":REM MIDDLE    FLAME RED PART
370 FORJ=0TOI:POKESP+J,212+INT(RND(1)*8):NEXT:REM FLAME WIGGLE
380 POKESP+7,212+INT(RND(1)*8)
390 GETA$:IFPEEK(49152)=7ANDA$=""THEN370
400 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49629:REM MUSIC OFF
410 NEXT
417 :
418 :REM EIGHTH FLAME
419 :
420 POKEV+14,X(7):POKEV+15,Y(7)
430 POKEV+21,255
440 SYSSC+6,19,1,"[155][\[157][157]]^"
450 SYSSC+6,XX(7),YY(7)," [146]"
460 SYSSC+6,2,18,"	[149]"+D$(7)
470 SYSSC+6,30,18,"[155]([193][155])GAIN"
480 SYSSC+6,30,20,"[155]([209][155])UIT"
490 SYS49435:POKE781,0:POKE782,106:SYS49458:POKE49152,7
500 Q=(Q+1)AND7:FORI=0TO7:POKESP+I,212+Q:NEXT:REM FLAME WIGGLE
510 IFPEEK(49152)=0THENPOKE54276,0:POKE54283,0:POKE54290,0:SYS49629:GOTO490
520 GETA$:IFA$=""THEN500
530 IFA$="A"ORA$="[193]"THEN560
540 IFA$="Q"ORA$="[209]"THEN600
550 GOTO520
557 :
558 :REM MUSIC OFF AND REDISPLAY PIC FOR ANOTHER ROUND
559 :
560 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49629:POKEV+21,0
570 PRINT"[147]":SYS51459:POKE251,52:POKE252,64:POKE253,96:SYS51456:SYS51459
580 GOTO270
597 :
598 :REM RETURN TO LS
599 :
600 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49629:POKEV+21,0
602 PRINT"[147]":SYS51459
610 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN630
620 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN640
630 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
640 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
650 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
657 :
658 :REM COPYRIGHT NOTICE
659 :
660 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
670 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
680 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
690 Z$(0)="[195] [200] [193] [206] [213] [203] [193] [200]":Z$(1)="BY [203]ENNETH [194]ARSKY
700 Z$(2)[178]"(LEN) 1993 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
710 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
720 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
730 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
740 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
750 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
760 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
767 :
768 :REM SCRATCH AND SAVE
769 :
10000 OPEN15,8,15,"S0:B.CHANUKAH":CLOSE15:SAVE"B.CHANUKAH",8:END