252 Xmas Eve
400 IF S>HS THEN HS=S
410 LOCATE X+1,PRINT"	";
420 LOCATE H+1,G+1:PRINT"
430 LOCATE Q*4,19:PRINT" ";:LOCATE Q*4, 20:PRINT CHR$(241);"_";
440 LOCATE 9,9:PRINT"GAME OVE R" 450 GOSUB 360
460 LOCATE 3,12:PRINT"PRESS ANY KEY TO P LAY AGAIN"
470 IF INKEY$<>" THEN 470
480 IF INKEY$=" THEN 480 ELSE CLS:GOTO 70
490 GOTO 470
500 END
510 PEN 2:PRINT CHR$(24);"	CHRI
STMAS	EVE	";CHR$(24);:PE
N 2
520 LOCATE I,4:PEN 3:PRINT"It is approac hing midnight on Christams eve and Santa
is late.You play the part of Santa and you must deliver presents which are thr own down to you by your elves. ":PEN 1 530 PRINT:PRINT"Having caught a present Eby flying directly below it] you m ust move over a chimney and drop a prese nt down it. ":PEN 2
540 PRINT:PRINT:PRINT"When a present has been dropped down a chimney the fami ly in that house	immediately start
work on opening up	the present and th
ey will turn the lighton.":PEN I
550 PRINT:PRINT"Dropping another present down a chimney of a lit house will not count."
560 LOCATE 1,24:PEN 3:PRINT CHR$(24);" PRESS ANY KEY TO CONTINUE CHR$(24);:PEN I
570 IF INKEY$="THEN 570 ELSE CLS
580 PEN 2:PRINT CHR$(24);"	CHRI
STMAS	EVE	";CHR$(24);:PE
N 2