Xmas Eve 253
590 LOCATE 1,3:PRINT"Beneath each roof y ou will see a patch of snow which melts as time elapses.This melts at a rate wh ich is propotional tothe activity in the house. ":PEN 1
600 PRINT:PRINT"As the presents must be placed down the chimneys before anyone s ees you,if all the snow has melted unde r a particular roof without a present b eing dropped before this occurs it wi 11 indicate that";
610 PRINT"the inhabitants are awake and you will have to return immediately." 620 PEN 3:PRINT:PRINT"TO MOVE LEFT OR RI GHT USE THE ARROW KEYS":PEN 1
630 PEN 2:PRINT:PRINT"TO DROP THE PRESEN TS USE THE SPACEBAR":PEN 1
640 LOCATE 1,23: PRINT CHR$ (24);"
PRESS ANY KEY TO START	";CHR$(2
4);
650 IF INKEY$="THEN 650 ELSE CLS
660 RETURN
670 SYMBOL AFTER 230
680 SYMBOL 231,0,0,1,0,0,0,0,0
690 SYMBOL 232,192,64,160,224,127,126,99
,e2
700 SYMBOL 233,8,28,8,124,156,72,63,128 710 SYMBOL 234,16,56,16,62,56,18,252,1 720 SYMBOL 235,3,2,5,7,254,126,198,74 730 SYMBOL 236,0,0,128,0,0,0,0,0
740 SYMBOL 237,0,0,0,54,54,0,54,54 750 SYMBOL 238,0,1,3,7,15,31,63,127
760 SYMBOL 239,0,128,192,224,240,246,252 ,254
770 SYMBOL 240,255,220,73,65,64,0,0,0 780 SYMBOL 241,24,60,86,60,24,126,255,25
790 FOR X=2 TO 26 STEP 4
800 PEN 2: LOCATE X+2,14:PRINT":";:LOCATE X+2,15:PRINT CHR$(238);CHR$(239);:LOCAT E X+1,16:PRINT CHR$(238);CHR$(143);CHR$( 143) ; CHR$ (239) ; : LOCATE X+1,17:PRINT CHR$ (240);CHR$(240);CHR$(240);CHR$(240);:PEN
1