Xmas Eve
Xmas Eve is a race against time for Santa, who must rush to deliver presents before the inhabitants of the houses awake.
By manoeuvring Santa's sleigh left and right you can catch the presents as they are thrown down from above by the elves. Presents can then be dropped down the chimneys. Each time a present is successfully delivered the inhabitants of the house awake and switch on the lights, which causes the snow on the roof to melt at a rate proportional to the activity in the house. The more work Santa does the more he has to hurry in order to complete his work without being seen.
10 REM XMAS EVE
20 REM @ PAUL STANLEY.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER # 1,0:PEN #1,1:CLS #1
40 GOSUB 870
50 HS=0:GOSUB 510
60 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
70 GOSUB 670
80 SK=0.98:S=0
90 A$=CHR$(231):B$=CHR$(232):C$=CHR$(233 X=27
100 D$=STRIN6$(28,32)
110 G=1:H=INT(RND*28)+2:IF (H+1)/4=INT(( H+1)/4) THEN 110
120 LOCATE 16,1:PRINT"HIGH—SCORE:";HS 130 P=0
140 LOCATE 1,1:PRINT" PRESENTS:";S
150 IF INKEY(1)=0 THEN X=X-2*(X<27):A$= CHR$(234):B$=CHR$(235):C$=CHR$(236)
160 IF INKEY(8)=0 THEN X=X+2*(X>2):A$=CH R$(231):B$=CHR$(232):C$=CHR$(233)
170 XR=X+(X>1)+(X>25)
180 LOCATE XR,11:PRINT"	";:LOCATE
X+1,11:PEN 3:PRINT A$;:PEN 1:PRINT B$;: PEN 3:PRINT C$;:PEN 1