Xmas Eve 251
190 IF P=0 THEN G=G+1:LOCATE H+1,G:PRINT
" ";:LOCATE H+1,G+1:PRINT CHR$(237);:IF
G=10 THEN IF H=X+2 OR H=X+1 OR H=X THEN P=I
200 IF G=12 THEN LOCATE H+1,G+2:CALL 360 :L=PEEK(367):IF L=58 THEN GOTO 270
210 IF G=12 THEN LOCATE H+1,13:PRINT" m; :G=1:GOTO 230
220 GOTO 240
230 H=INT (RND*28) +2: IF (H+1)/4=INT((H+1) /4) THEN 230
240 IF P<>0 THEN IF INKEY(47)=0 THEN G=1 0:H=X-1-(AS=CHR$(234))-3*(CS=CHR$(233)): P=0
250 IF RND>SK THEN Q=INT(RND*7)+1:E=INT( RND*4):LOCATE Q*4-E+2,17:PRINT " ";:MID$ (D$,(Q*4-E),1)="p":IF MID$(D$00*4-3),4) ="pppp" THEN 340
260 GOTO 150
270 LOCATE H+1,13:PRINT" "
280 LOCATE H+1,19:CALL 360:L=PEEK(367): F L=95 THEN GOTO 110
290 S=S+1:LOCATE 1,1:PRINT" PRESENTS:";S 300 LOCATE H+1,19:PRINT" ";:LOCATE H+1, 20:PRINT" ";
310 FOR	TO 3:SOUND 1,(F*50+F*2),3:NE
XT
320 FOR F=4 TO 28 STEP 4:LOCATE F+1,19:C ALL 360:L=PEEK(367):IF L=95 THEN NEXT F: SK=SK-0.02:CLS:GOSUB 700:GOTO 90
330 GOTO 110
340 LOCATE (0*4)+1,19:CALL 360:L=PEEK(36 7):IF L<>95 THEN GOTO 390
350 GOTO 150
360 RESTORE 370:FOR F=I TO 29:READ A,B:S OUND 1,B,A*5:FOR Z=1 TO 350:NEXT Z,F
370 DATA 1,95,1,95,15,95,1,0,1,95,1,95,1
5,95,1,0,1,95,1,80,1,119,1,106,15,95,1,0
,1,0,1,0,1,89,1,89,1,89,1,89,1,89,1,95,1
,95,1,95,1,80,1,80,1,89,1,106,15,119 380 RETURN
390 FOR F=10 TO 1 STEP -0.5:LOCATE X+1,F +1:PEN 3:PRINT A$;:PEN 1:PRINT B$;:PEN 3 :PRINT C$;:PEN I:LOCATE X+1,F+2:PRINT"
":SOUND 1,(F*30),3:NEXT F