0 poke56,55:clr:gosub70:gosub80:gosub50:color0,1:color4,1
1 gosub35:sc=0:ro=1
2 gosub27:char,11,23,s$(1):c=1
3 a=int(rnd(1)*3):c=3-c
4 geta$:if(joy(1)=7ora$=chr$(157))andx>9thenchar,x,3,c$:x=x-2:char,x,3,s$(0)
5 if(joy(1)=3ora$=chr$(29))andx<29thenchar,x,3,c$:x=x+2:char,x,3,s$(0)
6 if(joy(1)>127ora$=chr$(32))andpeek(v+x+200)=82thengosub12
7 ifa=2thenb=27:elseifa=1thenb=19:elseb=11
8 ify(a)<24thenchar,b,y(a),t$(3)
9 y(a)=y(a)-1:ify(a)<24thenchar,b,y(a),s$(c)
10 ify(a)<5thenfori=0to7:color1,2,i:char,15,10,"game  over":next:fori=0to2000:next:goto1
11 goto3
12 char,x,3,chr$(100)+chr$(101)+d$+chr$(102)+chr$(107):fori=0to100:next
13 forj=0to2:char,x,3,chr$(175)+chr$(175)+d$+chr$(108)+chr$(109):fori=0to50:nexti
14 char,x,3,chr$(175)+chr$(175)+d$+chr$(110)+chr$(111):fori=0to50:nexti,j
15 char,x,3,chr$(100)+chr$(101)+d$+chr$(102)+chr$(107):fori=0to100:next
16 char,x,3,chr$(96)+chr$(97)+d$+chr$(112)+chr$(113):fori=0to200:next
17 char,x,3,s$(0)
18 t=0:fori=5to23:char,x,i,chr$(114)+chr$(115)+d$+t$(5)
19 ifpeek(v+x+120+40*i)>95thenchar,x,i,chr$(114)+chr$(115):t=i+3:i=23
20 forj=0to30:nextj,i:ift<1thenchar,x,23,t$(3):return
21 color1,12,5:char,x,t-3,t$(3):char,x,t,chr$(168)+chr$(169)+d$+chr$(169)+chr$(168)
22 fori=0to50:nexti:sc=sc+10:char,x,t,chr$(170)+chr$(171)+d$+chr$(172)+chr$(173)
23 fori=0to50:nexti:char,x-2,t,t$(4):char,x-2,t+1,t$(4)
24 ifx=11theny(0)=24+int(rnd(1)*5):elseifx=19theny(1)=24+int(rnd(1)*5)
25 ifx>19theny(2)=24+int(rnd(1)*5)
26 color1,2:char,5,1,"score:":printsc:color1,11,3:return
27 gosub47:char,5,5,"":color1,12,5:ifro<1orro>3thenro=1
28 fort=5to34step2:printchr$(121)chr$(121);:next
29 char,9,5,t$(2)+u$+t$(3)+u$+t$(0):fora=7to24:char,9,a,t$(4):next
30 char,17,5,t$(2)+u$+t$(3)+u$+t$(0):fora=7to24:char,17,a,t$(4):next
31 char,25,5,t$(2)+u$+t$(3)+u$+t$(0):fora=7to24:char,25,a,t$(4):next:gosub26:x=9
32 char,x,3,s$(0):char,5,3,s$(0):char,5,3,t$(5)+t$(5):char,5,4,t$(5)+t$(5)
33 char,31,3,t$(5)+t$(5):char,31,4,t$(5)+t$(5)
34 y(0)=24+int(rnd(1)*5):y(1)=24+int(rnd(1)*5):y(2)=24+int(rnd(1)*5):gosub71:return
35 gosub47:color1,4,6:char,11,4,"santas winter work":color1,5,3
36 char,13,8,"(c)2018 rksoft":color1,12,5:fort=5to34step2
37 char,t,19,chr$(121)+chr$(121)+d$+chr$(175)+chr$(175):char,t,21,c$:char,t,23,c$:next
38 color1,11,3:char,5,15,t$(5)+t$(5):char,5,16,t$(5)+t$(5):char,5,17,t$(5)+t$(5)
39 char,9,17,t$(5)+t$(5):char,5,18,t$(5)+t$(5):char,9,18,t$(5)+t$(5)
40 char,31,15,t$(5)+t$(5):char,31,16,t$(5)+t$(5):char,31,17,t$(5)+t$(5)
41 char,29,17,t$(5)+t$(5):char,31,18,t$(5)+t$(5):char,29,18,t$(5)+t$(5)
42 char,19,17,s$(0):gosub71
43 poke14599,0:ford=0to7:poke14592+d,32:poke14591+d,0:color1,8,d
44 char,10,13,"press fire or space!":forj=0to3:geta$:ifjoy(1)=128ora$=chr$(32)then46
45 nextj,d:goto43
46 gosub70:fori=0to7:poke14592+d,0:nexti:return
47 gosub70:color1,2,5:printchr$(147):char,1,0,c$+chr$(145)+c$:char,35,0,c$+chr$(145)+c$
48 fort=1to24step2:char,1,t,c$+chr$(145)+c$:char,35,t,c$+chr$(145)+c$:nextt:return
50 dimx,y(3),v,sc,i,j,t,a,b,c,d,s$(3),c$,t$(5),u$,i,j:d$=chr$(17)+chr$(157)+chr$(157)
51 u$=chr$(145):t$(0)=chr$(120)+chr$(121)+d$+chr$(123)+chr$(175)
52 t$(1)=chr$(121)+chr$(121)+d$+chr$(175)+chr$(175)
53 t$(2)=chr$(121)+chr$(122)+d$+chr$(175)+chr$(124)
54 t$(3)=chr$(114)+chr$(115)+d$+chr$(114)+chr$(115)
55 t$(4)=chr$(175)+chr$(124)+chr$(114)+chr$(115)+chr$(123)+chr$(175)
56 t$(5)=chr$(116)+chr$(117)
57 s$(0)=chr$(96)+chr$(97)+d$+chr$(98)+chr$(99)
58 s$(1)=chr$(160)+chr$(161)+d$+chr$(162)+chr$(163)
59 s$(2)=chr$(164)+chr$(165)+d$+chr$(166)+chr$(167)
60 c$=chr$(175)+chr$(175)+d$+chr$(175)+chr$(175):v=3072:return
70 poke65286,.:return:rem ...screen off..
71 poke65286,27:return:rem ...screen on..
80 restore:poke65287,peek(65287)and64or16:poke65303,104:poke65302,113
81 poke65298,peek(65298)and251:poke65299,peek(65299)and3or56:ifpeek(14848)=3thenreturn
82 fora=832to849:readb:pokea,b:next:sys832:fora=14848to15231:readb:pokea,b:next:return
83 data162,0,189,0,208,157,0,56,189,0,209,157,0,57,202,208,241,96
84 data3,15,15,53,20,36,22,21,192,240,240,92,20,24,148,84
85 data6,53,237,171,169,47,15,5,144,92,123,234,106,248,240,80
86 data3,15,15,63,63,63,31,21,192,240,240,220,92,252,244,84
87 data5,63,255,255,53,15,15,5,92,255,255,252,80,240,0,0
88 data3,15,15,55,53,63,31,21,192,240,240,252,252,252,244,84
89 data53,255,255,63,5,15,0,0,80,252,255,255,92,240,240,80
90 data0,15,63,63,63,63,15,5,0,0,240,252,252,252,240,80
91 data0,0,15,63,63,63,15,5,0,240,252,252,252,252,240,80
92 data6,10,234,169,171,47,15,5,144,124,123,106,106,104,240,80
93 data4,5,6,4,4,5,6,4,16,80,144,16,16,80,144,16
94 data0,1,10,10,5,15,15,0,64,16,124,124,84,104,104,0
95 data4,1,10,10,5,15,15,4,80,16,124,124,84,104,104,16
96 data21,85,117,93,87,87,87,92,85,85,85,125,255,195,0,0
97 data84,85,93,117,213,213,213,53,92,95,87,87,87,95,92,92
98 data53,53,245,213,213,245,53,53,92,92,124,112,240,0,0,0
99 data53,53,61,13,15,0,0,0,0,16,48,127,127,48,16,0
100 data16,84,85,85,5,5,21,21,4,21,85,85,80,80,84,84
101 data5,21,85,85,21,5,5,0,80,80,84,69,5,84,80,80
102 data0,1,21,85,81,5,21,21,0,64,84,85,69,80,84,84
103 data5,5,21,81,80,21,5,5,80,84,85,85,84,80,80,0
104 data0,0,0,16,4,0,0,0,0,0,0,4,16,0,0,0
105 data0,0,0,0,0,4,20,4,0,0,0,0,0,84,68,68
106 data4,4,4,0,0,0,0,0,68,68,84,0,0,0,0,0
107 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0