10 home
11 let k=0
12 let lives=5
13 let key$="NO"
14 let kx=29 :let ky=27
15 let s=0
16 let e=0
17 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
18 let levelt=1
19 let j=1
20 gr
21 color=6
22 for q=1 to 39
23 hlin 0,39 at k :let k=k+1
24 next q
25 color=10
26 vlin 0,38 at 39
27 color=13 :for sun=1 to 7
28 hlin 1,4 at j :let j=j+1
29 next sun
30 color=13
40 let cx=25 :let cy=19
50 rem becketts new gravity improved (no bugs so far)
60 plot cx,cy
61 color=1 :plot kx,ky
70 let X=12: let Y=23
80 let score=0
90 print "SCORE:";score
91 print "LIVES:";lives
92 print "KEY OBTAINED?";key$
100 rem level plotter
110 color=12
120 dim z0(39,39)
130 read x1,y1
140 if x1=0 and y1=0 goto 300
150 z0(x1,y1)=1
160 plot x1,y1
161 color=5
162 plot x1,(y1+1) :color=12
170 goto 130
200 rem character printer
210 color=2
300 color=2
310 plot x,y
350 rem get key command
450 let c$="":get c$
451 if x<0 then let x=0
452 if x>39 and levelt=1 then let x=39
400 if X=25 and Y=19 and s=0 then htab(18):vtab(12):let score=score+1 :home :htab 1:vtab 23 :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$:let s=1 : gosub 100000 :goto 450
401 if X=29 and Y=27 and e=0 then home :htab 1:vtab 23 :let key$="YES" :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$ :let e=1: gosub 200000 :goto 450
402 if lives<1 then print "YOU LOSE!" :end
500 if c$="W" goto 900
600 if c$="A" then  color=6 :plot x,y : let X=X-1 :color=2 :plot x,y :if z0(X,Y+1)=0 then goto 1200:if z0(X,Y+1)=1 then goto 300
700 if c$="D" then color=6 :plot x,y :let X=X+1 :color=2 : plot x,y :if z0(X,Y+1)=0 then goto 1200:if z0(X,Y+1)=1 then goto 300
800 goto 400
900 for i=1 to 6: plot x,y
910 gosub 3000
920 color=6 :plot x,y :let Y=Y-1
1010 for r=1 to 125
1020 color=2 :plot x,y
1080 next r
1100 gosub 10000
1190 next i
1200 plot x,y
1240 color=6 :plot x,y :let Y=Y+1
1310 for o=1 to 75
1320 color=2 :plot x,y
1390 next o
1400 gosub 10000
1410 gosub 2000
1420 goto 1200
1440 goto 400
10000 let k=PEEK(49152)
10100 if k=196 and x<38 then color=6 :plot x,y :X=X+1
10200 if k=193 and x>1 then color=6 :plot x,y :X=X-1
10210 if z0(x,y)=1 and k=196 then let x=x-1 :plot x,y 
10220 if z0(x,y)=1 and k=193 then let x=x+1 :plot x,y 
10222 if z0(x,y+1)=1 and k=196 then let x=x-1 :plot x,y 
10223 if z0(x,y+1)=1 and k=193 then let x=x+1 :plot x,y 
10224 if z0(x,y-1)=1 and k=196 then let x=x-1 :plot x,y 
10225 if z0(x,y-1)=1 and k=193 then let x=x+1 :plot x,y 
10280 let k=PEEK(49168)
10290 color=2 :plot x,y
10300 return

2000 if z0(X,Y+1)=1 goto 400
2001 if y=38 then color=6: plot x,y :let X=12: let Y=23 :color=2 :plot x,y :let lives=lives-1 :print chr$(7):home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$ :goto 400
2010 return

3000 if z0(X,Y-2)=1 goto 1200
3024 return
 
 
 
99999 rem map data saver
20000 data 1,24,2,24,3,24,4,24,5,24,6,24,7,24,8,24,9,24,10,24,11,24,12,24,13,24,14,24,15,24,16,24,17,24,18,24
20005 data 20,28,21,28,22,28,23,28,24,28,25,28,26,28,27,28,28,28,29,28,30,28,31,28,32,28,33,28,34,28,35,28,36,28,37,28
20010 data 20,20,21,20,22,20,23,20,24,20,25,20,26,20,27,20,0,0
100000 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
100001 let cy=cy-1
100002 color=13 :plot cx,cy
100003 for t=1 to 65
100004 plot cx,cy
100005 next t
100006 color=6 :plot cx,cy
100007 next w
100008 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
100009 let cy=cy+1 
100010 color=13 :plot cx,cy
100011 for t=1 to 65
100012 plot cx,cy
100013 next t
100014 color=6 :plot cx,cy
100015 next w
100016 color=2 :plot x,y
100017 return
200000 for w=1 to 6
200001 let ky=ky-1
200002 color=1 :plot kx,ky
200003 for t=1 to 65
200004 plot kx,ky
200005 next t
200006 color=6 :plot kx,ky
200007 next w
200008 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
200009 let ky=ky+1
200010 color=1 :plot kx,ky
200011 for t=1 to 65
200012 plot kx,ky
200013 next t
200014 color=6 :plot kx,ky
200015 next w
200016 color=2 :plot x,y :print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
200017 color=6 :vlin 19,20 at 39 :for e=1 to 300
200018 vlin 18, 21 at 39 :next e :for e=1 to 300
200019 vlin 17,22 at 39 :next e :for e=1 to 300
200020 vlin 16,23 at 39:next e :for e=1 to 300
200021 vlin 15,24 at 39:next e :for e=1 to 300
200022 vlin 14,25 at 39 :next e :for e=1 to 300
200023 vlin 13,26 at 39 :next e 
200024 color=2 :vlin 19,20 at 39 :for e=1 to 325
200025 color=3 :plot 39,18 :plot39,21 :next e :for e=1 to 325
200026 color=2 :plot 39,17 :plot39,22 :next e :for e=1 to 325
200027 color=3 :plot 39,16 :plot39,23:next e :for e=1 to 325
200028 color=2 :plot 39,15:plot39,24:next e :for e=1 to 325
200029 color=3 :plot 39,14 :plot39,25 :next e
200030 for a=1 to 500
200040 color=2: plot x,y
200050 next a
200060 for ab=1 to 7
200070 color=6 :plot x,y :let y=y-1
200080 for sus=1 to 85
200090 color=2 :plot x,y
200100 next sus
200110 next ab
200111 for wa=1 to 25
200112 color=2 :plot x,y
200113 next wa
200120 for abc=1 to 10
200130 color=6 :plotx,y :let x=x+1
200140 for sus=1 to 85
200150 color=2 :plot x,y
200160 next sus
200170 next abc