From f1bff7842827ae50464810c9778b71fcb67a6897 Mon Sep 17 00:00:00 2001
From: Paul Robson <credentials.helper>
Date: Tue, 30 Jan 2024 21:22:34 +0000
Subject: [PATCH] Invaders build

---
 basic/code/games/invaders.bas          | Bin 0 -> 4807 bytes
 basic/code/games/invaders.bsc          | 251 +++++++++++++++++++++++++
 basic/code/games/invaders.gfx          | Bin 0 -> 2176 bytes
 basic/storage/invaders.bas             | Bin 0 -> 4807 bytes
 basic/storage/invaders.bsc             | 251 +++++++++++++++++++++++++
 basic/storage/invaders.gfx             | Bin 1920 -> 2176 bytes
 emulator/storage/invaders.bas          | Bin 0 -> 4807 bytes
 emulator/storage/invaders.bsc          | 251 +++++++++++++++++++++++++
 emulator/storage/invaders.gfx          | Bin 0 -> 2176 bytes
 firmware/common/include/data/prompt.h  |   2 +-
 firmware/common/include/data/sfxdata.h |   6 +-
 11 files changed, 757 insertions(+), 4 deletions(-)
 create mode 100644 basic/code/games/invaders.bas
 create mode 100644 basic/code/games/invaders.bsc
 create mode 100644 basic/code/games/invaders.gfx
 create mode 100644 basic/storage/invaders.bas
 create mode 100644 basic/storage/invaders.bsc
 create mode 100644 emulator/storage/invaders.bas
 create mode 100644 emulator/storage/invaders.bsc
 create mode 100644 emulator/storage/invaders.gfx

diff --git a/basic/code/games/invaders.bas b/basic/code/games/invaders.bas
new file mode 100644
index 0000000000000000000000000000000000000000..b91d439de5dd2a9f0f83138ef0ce004fa7111fe2
GIT binary patch
literal 4807
zcmeGeeQXp}e&)^2?rgu<meS?3&hGJ1DJ^rR5>HICv$M0^rQ3G1U23@)j<wy|)ukov
zmP13dR5*!8iV9~4de|638bdr>39M-B+up))<LtmmLn|m>F>25lBZe4b$o<}%EpYeu
z{dx1poA>*@-}`-kJl@8TFKhnJnZNVqZ^rz6R!%4!!Pa0jD2IaW>i8Urh^Xyqv_%e&
zo97YL7m*)tl3UdAx%bY!>q8+m+CE-YK!xRCYc$x}A^X%w`?!N*!y$P?NbOKV<HZDK
zLctF8LJ{5iR5?evG0~Q`4z+Oc0+nc@$Yu4@3QA3BOo<mLYbL4$RHfM;jGV4CDPXHo
zTr}8nx{Tro<A@wRZEAg=nD&BY1VzO}#?2cW!c@qVliYXQJ2pj+FSv^?=sW8Klb(t%
zoDg+PcQO&R1$+~1{YMGC?o+|AaZ_s`Hd!cb>szPjIRm&B`Menkr7Z-3=}=Ae9GwL{
zsIra?1<3SmyV4dpO>Z%QU{ipC1+PN{^im?5=`@{cMu$X|kg4NlI{e-I{nNbF8B+aI
zW~??u+s>O_@AMHbM}uv~eVG7Cu5W2=AD>UnlUsu=GElVoL&31p=2Hu~K%@~<W_?ek
z2ZCzIH*QKHu@tD5zL~=RGczikg{YYNO`E^7W~!Lt)HM%FX%i6v<D*n1!_*n<D8MGS
zc7JC$7*)>F%yM`ms@&XuzaE`nt)1!-X`41TN}FzO!fl20ZIRnQF&RKO)u;+lQd<jt
zG|Ze;)<+_0E6vkSObf$u`vp@6qIIaP&5SZbpw9N@;CU+b|I7cx1AI4=$4mN{{BYIE
zl`F;eEwQe+80^~`>y8f$ih#oWHlT2hFxgl1>|cjV5{0w+r+T(wVGlFSEHkk4b@;C_
z^l3&VO9xpJ2Ij|@6Igf$&R#IE{Wx=y*(-Ul^<yTx6Z2<*?eb4S@B`sw?Ag^ye_txm
zHxw6By>YQ?XkZ}TmlBilt??x0KL=9bD<(tO2tP2)LFsku{Dol-OCFs$NtUx@xdhDZ
z7M8gw$=#SQV^82k^V#%n=CH=xF(#(j5>qYx`nv1^>~NE#lbS+K9x!n6DgvJc7|&V5
zrdg@h6@`;VkmzBj+4W$}I`)0MC`!mKY0OPy0tCG%`wcOwPqTdnF4@SQWDY*a?gBN+
zdVvLOCWu?`oB=k?9Gn2_nY}I<+qVO_x7LG;{sf%&D**#nyu$vs?+$`A{xJIi=HF%W
z_;(pLKm1S>d@~yWF*XnvV_m7CSTgyn7!y;8WPEdM%PMiOU+fx)$5KF=s>l2!+!k~;
zL*gV{WZ5yvi_5OD>~ZN(i(3`J-UT<=DfYM~>#&Nl)<XYY&5uidVzY<gB%pb4)g3lF
z%Hn22W6!Z;uzmq6o-ZKwTkt)5TWago!9YbvJPAVuLJrBh3G<5)Sg;&H3P~tG?1;p>
z2V#GuK_2YtABbcAQ8*KPD1(+5_&2TS>i%J?L_cxzYxY}1^BdV$o3f*Fc3<v!Z5^)f
zL}?=OL0H(^6aPtm`yP4D+X~eDlSF(HMAU5s@ymmKiBuw%ObnWNcGs8SI5F1OEq3(}
z^`!<eKTMQ*8D&WH=I%!q8Kj{)4K-+tQ)8-e@ga1Isg^uBA6`6;7$h;(?iLZe2j<sF
zBTTg@8!NncUK&lo%^k`%9sXj7?6C7AbP6>{a;}*ofhVfdKg9eQ^dVk+9-+11Hdl)~
zpd-KZgot>zUq@ldhpR5#y~kqIU`RXu0M{zNM385yyIE)MNQ&rnv%Bz|?-2xH1o5E7
z@^x7F8BL>25PZZ<qd~~y5)OP)#pSVE<nqId?hDE0SfWpSDz-T;4nhjW`!K%}$b<$i
z1BH!kjod}lfL#F&dcpPVuzqzmRM~xIjB?6GaQed$?&`2WXXazSZOm=cJV051A8O1g
zohBj>tfMqJFUhacCqTO;P@(A0242|1nLbhgegieQ<*?>W8DOtt3wPafZHHIQA%~{)
zVE#E`%udj<Vib%iZt33|7fC~j4`BWPQT}Z%L+ZQqC@6naLnk!!F)lm7p`+3+3PAV5
z93<;o9&OC`f`%L-I^p&kP|q5ODu{7SanKU#JQHbjbON1`kV9uBN$GI~^z0iRtpoE{
zh#ud7!15nKk0Kw*@?>Ib9Fpl*qK4IyA(q)37UDzaLd(_3ubI6Dcn(tgRc|gptXa0y
zLOO#yVOmeRg>D+#;0}vEP3b0?Qf~oKk67}!%4^9F&!M77*BtCk#FNnZLU2^t0rK9U
z*$M`3B0@DZrJ>6@nvw=|bXnSn-A`LCGfo$pTH%GH1|^`x7^hf(MRXb0rz}^puX=6}
zs>>@BpaLx2Qo_3^z^+hm+4B~nH~4I7g%7)TTP_v2i==R>T{2vnl?Ev6evMF2d9HgD
z_vANV{!I(mdxY3~42)WQ3hbRnLkvxiHj&v1#(WM41jCYnHjiyHmb2&vF1cZWazblG
z6vhj_v!u!HmOEVQ>wgfftqZ%tZq9;>Zd;(fTtMPvcp!gk46W6C{VqajXdduh5q}w+
zkllB~qalBe<cMDkU}q%{6-u^x8u@FzPfx&H`U_rI&8N9am_RzLN<jY?`2+MmuBhR&
z2R%?WuxebT7Qp;NJoNa-cree;=kcO2pC7J_#J4~drl@tKr;E^=F#mfv7rOZj8LQ4d
z{;M0HBq#$Gd8s~f7zQ<AGy;T`dw@}CBt95ViQb`PGEQ3B>x9D?aOf~_<vaZKVD^9x
znGC&Kl3a2ZwjJk5W-j@dH<OPY)7dXbpMe~_jv9a(LUERe_!KxT_#8x3+*fS{L74xF
z$oYZKkkMKE3lH2`$>qZ}7AqO5-qb{T4?3f<k|B8~ra3p=!xWlTV{RFx;~Hw9-oU$H
zSm}K0MXpifnlvs9bKA-_N+ZA%`HiJMT(Qc^H9@mG;{sp!C}xe73*W=kwBflPYnp3X
zCD(9G_02V0xITnS*IBs@lDuq$12xN|*7OLAxhA8A+hDBr;EIh_3QBZ!aT{=XFQ`Q*
z$V?~Qbn$@o`Z}mh8UwD$9VS`9HA0yNaOrmIG}lG+1?CI>WF@2OTXDqi0(gbjy$+fh
z47;LNtOeKe2d$6?hsp9TEQ>PM>p@`c5l6tzrCy^(F>=&TFwLzH0No1h?xGdiT_BMv
zls!cF8lX#WS~HxxQ1{h8S+9`VRY~=!G>1vu5>Qkze~0iAY<WDl!j>N{@x>ug;-Z{P
zkjB3l@TJRb8Lq3qY@TEz?*l~y4rJWXVOIR84aN_<3tlyX&qg18_EsBdiR&@nX#@UG
z0-y3E@Gk=Xv1i3Tu?tk)3fQ7yTZY}w4MC@U*~Se?FBu{?giH3@PUt6JGHPMZA0iya
zfp%FMI8-aW@vdjYM9;l9&|q)>P_kR>Nesl{sq+y~3TJ>TyvCg8ZQOQ=+b+s_n%iE>
zj!gh4<MK;3c$n3CYS=Hh?M5BUoiA+{X{0m|==>gpLpr_KY{0#fG~kd9bAKlKQD~{G
zL;88}A|xE+hE{tB#5Dpj5O70q`W`MX5!iFUoHQPi7`VJjpwdXQAQ^(~qCi~qIE+^T
zV%{Ktm5l;4fPerEfEHDuuZd62mTv^kg(rjzd5PM31X8LcTZGwC#U;-PX<DwUJh*%(
z$Rm|YSJ8*-M}_nr_8g$#*#>K&^zO&pt@SSKJWya&t2{GdG9vw9`P+BVn<mnu^s);%
zj5<GUd~^=B<7Gz$XcpH-X!g>}h5Wrw80Jq9v#|gTMI*LPfo;`Sz;>tEvy$<i)arr6
zQ@ts8kR^vULppv#%>PlykkYgN3YtI+ajDhLStMCUx1?rV<**-v5Luu?b-;2K2+Di7
zY9Ya*TLcSa=oWOd_b|WI4hq!ULG~l|Jf7#Z=ZDMWzQpEOD$(C3_9PR~azk(;bl5ZG
z%~ZU}j&4YYWEcm<Puov%qcG(lnNoJfA)y;OW0$y5w}OS|?UQfKDA=~!{uy@w7r$no
zJOuA&#)*YD?UOHYM{v;*`{ZjgJCrS0IA)*R2^is&ee%GJ4;Sa`lgCYBn*rC4VC#&1
n@*oT``{ceEMTEyX7QVAj?gqxz+xE%7VV)@h4;B@DfSG>-G*$9-

literal 0
HcmV?d00001

diff --git a/basic/code/games/invaders.bsc b/basic/code/games/invaders.bsc
new file mode 100644
index 00000000..0fb6918c
--- /dev/null
+++ b/basic/code/games/invaders.bsc
@@ -0,0 +1,251 @@
+'
+'		*** Space Invaders ***
+'
+cls:gload "invaders.gfx"
+call Initialise()
+
+call ResetMap():call RedrawGame():call ResetBullets():call RepaintInvaders()
+repeat
+	call PlayLevel()
+until lives = 0
+end
+'
+'		Play/Continue the current level
+'
+proc PlayLevel()
+	dead = false
+	tMoveInvaders = 0:tMovePlayer = 0:tMoveBullets = 0:tCheckFire = 0
+	tFireCheckTime = 100
+	repeat
+		if event(tMoveInvaders,moveRate) then call MoveInvaders():call RepaintInvaders():sprite 10 hide
+		if event(tMovePlayer,3) then call MovePlayer()
+		if event(tMoveBullets,3)
+				if yPBullet > -20 then call MovePlayerBullet()
+			call MoveInvaderBullets()
+		endif
+		if event(tCheckFire,tFireCheckTime) then tFireCheckTime = rand(70)+20:call CheckInvaderFire()
+	until dead|remaining = 0
+	if remaining = 0 then call ResetMap()
+	if dead then lives = lives - 1
+
+	if lives > 0 
+		call Delay(200)
+		call RedrawGame():call ResetBullets():call RepaintInvaders()
+	endif
+
+	endproc
+'
+'		The invaders are actually a tilemap, so create it.
+'
+proc Initialise()
+	invBulletCount = 2
+	invMap = alloc(13 * 5 + 3)
+	poke invMap,1:poke invMap+1,13:poke invMap+2,6
+	tilemap invMap,8,0
+	dim colAlive(11),xBullet(invBulletCount),yBullet(invBulletCount)
+	score = 0:highScore = 1000:lives = 3:level = 0
+	xPlayer = 160
+endproc
+'
+'		Redraw the score
+'
+proc DrawScore()
+	text right$("000000"+str$(score),6) ink 7 dim 1 solid to 62,10
+	if score = 0 | score = highScore then text right$("000000"+str$(highScore),6) ink 7 dim 1 to 142,10
+endproc
+'
+'		Initialise the invaders map and counts
+'
+proc ResetMap()
+	local a,c,i,x,y	
+	for y = 0 to 4
+		a = y * 13 + invMap + 3:c = (y+1)  \ 2
+		poke a,$F8:poke a+12,$F8
+		for i = 1 to 11:poke a+i,c:next
+	next
+	xLeft = 160 - 13 * 8:yTop = 28+level*6:xDirection = 4
+	for i = 1 to 11:colAlive(i) = $1F:next
+	remaining = 5*11:moveRate = 3+2*remaining
+	level = (level+1) % 10
+	call ResetColumns()
+	call AnimationFlipCode()
+endproc
+'
+'		Redraw the main game screen
+'
+proc RedrawGame()
+	local i
+	cls:sprite clear:text "000000" solid ink 7 dim 1 to 222,10
+	text "SCORE<1>" to 56,0:text "SCORE<2>" to 216,0:text "HI-SCORE" to 136,0
+	call DrawScore():call DrawLives()
+	for i = 1 to 3:call DrawShield(i*80,180):next
+	sprite 0 image $85 to xPlayer,230
+endproc
+'
+'		Move Player
+'
+proc MovePlayer()
+	local fire,dx,dy
+	fire = joypad(dx,dy)
+	xPlayer = max(0,min(319,xPlayer+dx*6))
+	sprite 0 to xPlayer,230
+	if yPBullet < 0 then if fire then xPBullet = xPlayer:yPBullet = 230-8:sfx 0,22
+endproc
+'
+'		Draw lives
+'
+proc DrawLives()
+	local i
+	text str$(lives) solid dim 1 ink 2 to 8,230
+	if lives > 1 then for i = 1 to lives-1:image $85 to i*16+4,228:next
+endproc
+'
+'		Draw the shield
+'
+proc DrawShield(x,y)
+	local i,w,h:w = 50:h = 30
+	rect x-w\2,y ink 2 solid to x+w\2,y+h
+	ellipse ink 0 from x-h\3,y+h-h\3 to x+h\3,y+h+h\3
+	for i = 0 to w\4
+		line x-w\2+i,y-1 to x-w\2,y+i
+		line x+w\2-i,y-1 to x+w\2,y+i
+	next
+endproc
+'
+'		Move all the invaders
+'
+proc MoveInvaders()
+	sys Animate6502
+	xLeft = xLeft + xDirection
+	if xLeft + rightColumn * 16 > 303 | xLeft < 16-16 * leftColumn
+		xDirection = -xDirection
+		xLeft = max(min(xLeft,303-rightColumn*16),0)
+		rect ink 0 solid from 0,yTop to 319,yTop+8
+		yTop = yTop + 8:if yTop > 170 then dead = true
+		if sfxPitch = 100:sfxPitch = 200:else:sfxPitch = 100:endif
+		sound 0 clear:sound 0,sfxPitch,8
+	endif
+endproc
+'
+' 		Repaint the tile map
+'
+proc RepaintInvaders()
+	tiledraw from xLeft,yTop to xLeft+191,yTop+80
+endproc
+'
+'		Reset Bullets
+'
+proc ResetBullets()
+	sprite 9 hide:xPBullet = 0:yPBullet = -99
+	local i
+	for i = 1 to invBulletCount:yBullet(i) = -1:sprite i hide:next
+endproc
+'
+'		Move Player Bullet
+'
+proc MovePlayerBullet()
+	yPBullet = yPBullet - 4
+	if yPBullet > 180 then if point(xPBullet,yPBullet) = 2 then call BreakShield(xPBullet,yPBullet+3):yPBullet = -99
+	if yPBullet > xTop & yPBullet < yTop+80 
+		local row,col,pos
+		row = (yPBullet - yTop) >> 4
+		col = (xPBullet - xLeft + 4) >> 4
+		pos = (xPBullet - xLeft + 4) & 15
+		if col >= 1 & col <= 11 & pos <= 12
+			mask = 1 << (row)
+			if (colAlive(col) & mask) <> 0 
+				colAlive(col) = colAlive(col)-mask
+				if colAlive(col) = 0 then call ResetColumns()
+				sprite 10 image $86 to xLeft+col*16,yTop+row*16+8
+				call DeleteAlien(col,row)
+				score = score + (6-row)\2*10:call DrawScore()
+				yPBullet = -99	
+			endif
+		endif
+	endif
+	sprite 9 image $80+((yPBullet >> 2) & 3) to xPBullet,yPBullet
+endproc
+'
+'		Hit shields
+'
+proc BreakShield(x,y)
+	ellipse from x-5,y-5 ink 0 solid to x+5,y+5
+endproc
+'
+'		Delete Alien
+'
+proc DeleteAlien(x,y)
+	poke invMap+3+x+y*13,$F8
+	remaining = remaining - 1
+	call RepaintInvaders()
+	sfx 0,21
+	endproc	
+'
+'		Delay n cs
+'
+proc Delay(n)
+	n = time()+n
+	repeat:until time() > n
+endproc
+'
+'		Check if invaders should fire.
+'
+proc CheckInvaderFire()
+	currentCheck = currentCheck + 1:if currentCheck > invBulletCount then currentCheck = 1
+	if remaining > 0 & yBullet(currentCheck) < 0
+		local col,row,n
+		repeat:col = rand(11)+1:until colAlive(col) <> 0
+		n = colAlive(col) >> 1:row = 0
+		while n <> 0:row = row + 1:n = n >> 1:wend
+		xBullet(currentCheck) = xLeft + col * 16
+		yBullet(currentCheck) = yTop + row * 16
+		sfx 0,23
+	endif
+endproc
+'
+'		Move invader bullets
+'
+proc MoveInvaderBullets()
+	local i
+	for i = 1 to invBulletCount
+		if yBullet(i) >= 0
+			yBullet(i) = yBullet(i)+4
+			if point(xBullet(i),yBullet(i)) = 2 then call BreakShield(xBullet(i),yBullet(i)):yBullet(i) = -99
+			if yBullet(i) > 235 then yBullet(i) = -99
+			if yBullet(i) > 224 then if abs(xBullet(i)-xPlayer) < 6 then dead = true:sfx 0,19
+			sprite i image ($80+(yBullet(i) >> 2) & 3) to xBullet(i),yBullet(i)
+		endif
+	next
+endproc
+'
+'		Reset left/right column
+'
+proc ResetColumns()
+	if remaining > 0
+		leftColumn = 1:rightColumn = 11
+		while colAlive(leftColumn) = 0:leftColumn = leftColumn+1:wend
+		while colAlive(rightColumn) = 0:rightColumn = rightColumn-1:wend
+	endif
+endproc
+'
+'		Animation flip
+'
+proc AnimationFlipCode()
+Animate6502 = alloc(64)
+	for pass = 0 to 1
+		p = Animate6502:o = pass * 3
+			ldx 	#3
+		.animloop
+			lda 	invMap,x
+			bmi 	animxskip
+			cmp 	#$F0
+			bcs 	animxskip
+			eor 	#4
+			sta 	invMap,x
+		.animxskip
+			inx
+			cpx 	#3+13*5
+			bne  	animloop
+			rts
+	next
+endproc
\ No newline at end of file
diff --git a/basic/code/games/invaders.gfx b/basic/code/games/invaders.gfx
new file mode 100644
index 0000000000000000000000000000000000000000..6710553fa2709d98941d37cd309f77d3c5bf9d8c
GIT binary patch
literal 2176
zcmd^9L2kq#41~R;$MAzyUYHyFz&yJ%V_a3cYJ-yWR42sPjK>(G<c}r&XX(dc%`vq~
zTdi_bYjRYG7Ml6GHLbU1?(pc-UyzW;dh5(!$X}@|AL_9IDkdIyz`Mrj#1ZJ_DGxZ6
z4tZ;{#{6M-n5ui6i_S!!;5n&H<+FOcDlZ%|Jtw#^;T-3rM&QFEyFn)VZ_#((BR6?Z
z`oRY_@v#xCiv5Qp`u}w=bVnR;OMY~iY=`~Fg&>gEKqm%6fegMPf7}0we_#9{_kj&N
z4M*5->l55FkT>3=yb&-%K7on)4(ol{*97$(<b^lNJKEPA`7|n*vH}dH2~{a6uf<=t
zODbz#a{-RT47e^&r+94N^<$%?B(*(%)YsGRYW$KGykO(;b6`%hVx$F*VW%B9nTR9c
GcliV!6eo)S

literal 0
HcmV?d00001

diff --git a/basic/storage/invaders.bas b/basic/storage/invaders.bas
new file mode 100644
index 0000000000000000000000000000000000000000..b91d439de5dd2a9f0f83138ef0ce004fa7111fe2
GIT binary patch
literal 4807
zcmeGeeQXp}e&)^2?rgu<meS?3&hGJ1DJ^rR5>HICv$M0^rQ3G1U23@)j<wy|)ukov
zmP13dR5*!8iV9~4de|638bdr>39M-B+up))<LtmmLn|m>F>25lBZe4b$o<}%EpYeu
z{dx1poA>*@-}`-kJl@8TFKhnJnZNVqZ^rz6R!%4!!Pa0jD2IaW>i8Urh^Xyqv_%e&
zo97YL7m*)tl3UdAx%bY!>q8+m+CE-YK!xRCYc$x}A^X%w`?!N*!y$P?NbOKV<HZDK
zLctF8LJ{5iR5?evG0~Q`4z+Oc0+nc@$Yu4@3QA3BOo<mLYbL4$RHfM;jGV4CDPXHo
zTr}8nx{Tro<A@wRZEAg=nD&BY1VzO}#?2cW!c@qVliYXQJ2pj+FSv^?=sW8Klb(t%
zoDg+PcQO&R1$+~1{YMGC?o+|AaZ_s`Hd!cb>szPjIRm&B`Menkr7Z-3=}=Ae9GwL{
zsIra?1<3SmyV4dpO>Z%QU{ipC1+PN{^im?5=`@{cMu$X|kg4NlI{e-I{nNbF8B+aI
zW~??u+s>O_@AMHbM}uv~eVG7Cu5W2=AD>UnlUsu=GElVoL&31p=2Hu~K%@~<W_?ek
z2ZCzIH*QKHu@tD5zL~=RGczikg{YYNO`E^7W~!Lt)HM%FX%i6v<D*n1!_*n<D8MGS
zc7JC$7*)>F%yM`ms@&XuzaE`nt)1!-X`41TN}FzO!fl20ZIRnQF&RKO)u;+lQd<jt
zG|Ze;)<+_0E6vkSObf$u`vp@6qIIaP&5SZbpw9N@;CU+b|I7cx1AI4=$4mN{{BYIE
zl`F;eEwQe+80^~`>y8f$ih#oWHlT2hFxgl1>|cjV5{0w+r+T(wVGlFSEHkk4b@;C_
z^l3&VO9xpJ2Ij|@6Igf$&R#IE{Wx=y*(-Ul^<yTx6Z2<*?eb4S@B`sw?Ag^ye_txm
zHxw6By>YQ?XkZ}TmlBilt??x0KL=9bD<(tO2tP2)LFsku{Dol-OCFs$NtUx@xdhDZ
z7M8gw$=#SQV^82k^V#%n=CH=xF(#(j5>qYx`nv1^>~NE#lbS+K9x!n6DgvJc7|&V5
zrdg@h6@`;VkmzBj+4W$}I`)0MC`!mKY0OPy0tCG%`wcOwPqTdnF4@SQWDY*a?gBN+
zdVvLOCWu?`oB=k?9Gn2_nY}I<+qVO_x7LG;{sf%&D**#nyu$vs?+$`A{xJIi=HF%W
z_;(pLKm1S>d@~yWF*XnvV_m7CSTgyn7!y;8WPEdM%PMiOU+fx)$5KF=s>l2!+!k~;
zL*gV{WZ5yvi_5OD>~ZN(i(3`J-UT<=DfYM~>#&Nl)<XYY&5uidVzY<gB%pb4)g3lF
z%Hn22W6!Z;uzmq6o-ZKwTkt)5TWago!9YbvJPAVuLJrBh3G<5)Sg;&H3P~tG?1;p>
z2V#GuK_2YtABbcAQ8*KPD1(+5_&2TS>i%J?L_cxzYxY}1^BdV$o3f*Fc3<v!Z5^)f
zL}?=OL0H(^6aPtm`yP4D+X~eDlSF(HMAU5s@ymmKiBuw%ObnWNcGs8SI5F1OEq3(}
z^`!<eKTMQ*8D&WH=I%!q8Kj{)4K-+tQ)8-e@ga1Isg^uBA6`6;7$h;(?iLZe2j<sF
zBTTg@8!NncUK&lo%^k`%9sXj7?6C7AbP6>{a;}*ofhVfdKg9eQ^dVk+9-+11Hdl)~
zpd-KZgot>zUq@ldhpR5#y~kqIU`RXu0M{zNM385yyIE)MNQ&rnv%Bz|?-2xH1o5E7
z@^x7F8BL>25PZZ<qd~~y5)OP)#pSVE<nqId?hDE0SfWpSDz-T;4nhjW`!K%}$b<$i
z1BH!kjod}lfL#F&dcpPVuzqzmRM~xIjB?6GaQed$?&`2WXXazSZOm=cJV051A8O1g
zohBj>tfMqJFUhacCqTO;P@(A0242|1nLbhgegieQ<*?>W8DOtt3wPafZHHIQA%~{)
zVE#E`%udj<Vib%iZt33|7fC~j4`BWPQT}Z%L+ZQqC@6naLnk!!F)lm7p`+3+3PAV5
z93<;o9&OC`f`%L-I^p&kP|q5ODu{7SanKU#JQHbjbON1`kV9uBN$GI~^z0iRtpoE{
zh#ud7!15nKk0Kw*@?>Ib9Fpl*qK4IyA(q)37UDzaLd(_3ubI6Dcn(tgRc|gptXa0y
zLOO#yVOmeRg>D+#;0}vEP3b0?Qf~oKk67}!%4^9F&!M77*BtCk#FNnZLU2^t0rK9U
z*$M`3B0@DZrJ>6@nvw=|bXnSn-A`LCGfo$pTH%GH1|^`x7^hf(MRXb0rz}^puX=6}
zs>>@BpaLx2Qo_3^z^+hm+4B~nH~4I7g%7)TTP_v2i==R>T{2vnl?Ev6evMF2d9HgD
z_vANV{!I(mdxY3~42)WQ3hbRnLkvxiHj&v1#(WM41jCYnHjiyHmb2&vF1cZWazblG
z6vhj_v!u!HmOEVQ>wgfftqZ%tZq9;>Zd;(fTtMPvcp!gk46W6C{VqajXdduh5q}w+
zkllB~qalBe<cMDkU}q%{6-u^x8u@FzPfx&H`U_rI&8N9am_RzLN<jY?`2+MmuBhR&
z2R%?WuxebT7Qp;NJoNa-cree;=kcO2pC7J_#J4~drl@tKr;E^=F#mfv7rOZj8LQ4d
z{;M0HBq#$Gd8s~f7zQ<AGy;T`dw@}CBt95ViQb`PGEQ3B>x9D?aOf~_<vaZKVD^9x
znGC&Kl3a2ZwjJk5W-j@dH<OPY)7dXbpMe~_jv9a(LUERe_!KxT_#8x3+*fS{L74xF
z$oYZKkkMKE3lH2`$>qZ}7AqO5-qb{T4?3f<k|B8~ra3p=!xWlTV{RFx;~Hw9-oU$H
zSm}K0MXpifnlvs9bKA-_N+ZA%`HiJMT(Qc^H9@mG;{sp!C}xe73*W=kwBflPYnp3X
zCD(9G_02V0xITnS*IBs@lDuq$12xN|*7OLAxhA8A+hDBr;EIh_3QBZ!aT{=XFQ`Q*
z$V?~Qbn$@o`Z}mh8UwD$9VS`9HA0yNaOrmIG}lG+1?CI>WF@2OTXDqi0(gbjy$+fh
z47;LNtOeKe2d$6?hsp9TEQ>PM>p@`c5l6tzrCy^(F>=&TFwLzH0No1h?xGdiT_BMv
zls!cF8lX#WS~HxxQ1{h8S+9`VRY~=!G>1vu5>Qkze~0iAY<WDl!j>N{@x>ug;-Z{P
zkjB3l@TJRb8Lq3qY@TEz?*l~y4rJWXVOIR84aN_<3tlyX&qg18_EsBdiR&@nX#@UG
z0-y3E@Gk=Xv1i3Tu?tk)3fQ7yTZY}w4MC@U*~Se?FBu{?giH3@PUt6JGHPMZA0iya
zfp%FMI8-aW@vdjYM9;l9&|q)>P_kR>Nesl{sq+y~3TJ>TyvCg8ZQOQ=+b+s_n%iE>
zj!gh4<MK;3c$n3CYS=Hh?M5BUoiA+{X{0m|==>gpLpr_KY{0#fG~kd9bAKlKQD~{G
zL;88}A|xE+hE{tB#5Dpj5O70q`W`MX5!iFUoHQPi7`VJjpwdXQAQ^(~qCi~qIE+^T
zV%{Ktm5l;4fPerEfEHDuuZd62mTv^kg(rjzd5PM31X8LcTZGwC#U;-PX<DwUJh*%(
z$Rm|YSJ8*-M}_nr_8g$#*#>K&^zO&pt@SSKJWya&t2{GdG9vw9`P+BVn<mnu^s);%
zj5<GUd~^=B<7Gz$XcpH-X!g>}h5Wrw80Jq9v#|gTMI*LPfo;`Sz;>tEvy$<i)arr6
zQ@ts8kR^vULppv#%>PlykkYgN3YtI+ajDhLStMCUx1?rV<**-v5Luu?b-;2K2+Di7
zY9Ya*TLcSa=oWOd_b|WI4hq!ULG~l|Jf7#Z=ZDMWzQpEOD$(C3_9PR~azk(;bl5ZG
z%~ZU}j&4YYWEcm<Puov%qcG(lnNoJfA)y;OW0$y5w}OS|?UQfKDA=~!{uy@w7r$no
zJOuA&#)*YD?UOHYM{v;*`{ZjgJCrS0IA)*R2^is&ee%GJ4;Sa`lgCYBn*rC4VC#&1
n@*oT``{ceEMTEyX7QVAj?gqxz+xE%7VV)@h4;B@DfSG>-G*$9-

literal 0
HcmV?d00001

diff --git a/basic/storage/invaders.bsc b/basic/storage/invaders.bsc
new file mode 100644
index 00000000..0fb6918c
--- /dev/null
+++ b/basic/storage/invaders.bsc
@@ -0,0 +1,251 @@
+'
+'		*** Space Invaders ***
+'
+cls:gload "invaders.gfx"
+call Initialise()
+
+call ResetMap():call RedrawGame():call ResetBullets():call RepaintInvaders()
+repeat
+	call PlayLevel()
+until lives = 0
+end
+'
+'		Play/Continue the current level
+'
+proc PlayLevel()
+	dead = false
+	tMoveInvaders = 0:tMovePlayer = 0:tMoveBullets = 0:tCheckFire = 0
+	tFireCheckTime = 100
+	repeat
+		if event(tMoveInvaders,moveRate) then call MoveInvaders():call RepaintInvaders():sprite 10 hide
+		if event(tMovePlayer,3) then call MovePlayer()
+		if event(tMoveBullets,3)
+				if yPBullet > -20 then call MovePlayerBullet()
+			call MoveInvaderBullets()
+		endif
+		if event(tCheckFire,tFireCheckTime) then tFireCheckTime = rand(70)+20:call CheckInvaderFire()
+	until dead|remaining = 0
+	if remaining = 0 then call ResetMap()
+	if dead then lives = lives - 1
+
+	if lives > 0 
+		call Delay(200)
+		call RedrawGame():call ResetBullets():call RepaintInvaders()
+	endif
+
+	endproc
+'
+'		The invaders are actually a tilemap, so create it.
+'
+proc Initialise()
+	invBulletCount = 2
+	invMap = alloc(13 * 5 + 3)
+	poke invMap,1:poke invMap+1,13:poke invMap+2,6
+	tilemap invMap,8,0
+	dim colAlive(11),xBullet(invBulletCount),yBullet(invBulletCount)
+	score = 0:highScore = 1000:lives = 3:level = 0
+	xPlayer = 160
+endproc
+'
+'		Redraw the score
+'
+proc DrawScore()
+	text right$("000000"+str$(score),6) ink 7 dim 1 solid to 62,10
+	if score = 0 | score = highScore then text right$("000000"+str$(highScore),6) ink 7 dim 1 to 142,10
+endproc
+'
+'		Initialise the invaders map and counts
+'
+proc ResetMap()
+	local a,c,i,x,y	
+	for y = 0 to 4
+		a = y * 13 + invMap + 3:c = (y+1)  \ 2
+		poke a,$F8:poke a+12,$F8
+		for i = 1 to 11:poke a+i,c:next
+	next
+	xLeft = 160 - 13 * 8:yTop = 28+level*6:xDirection = 4
+	for i = 1 to 11:colAlive(i) = $1F:next
+	remaining = 5*11:moveRate = 3+2*remaining
+	level = (level+1) % 10
+	call ResetColumns()
+	call AnimationFlipCode()
+endproc
+'
+'		Redraw the main game screen
+'
+proc RedrawGame()
+	local i
+	cls:sprite clear:text "000000" solid ink 7 dim 1 to 222,10
+	text "SCORE<1>" to 56,0:text "SCORE<2>" to 216,0:text "HI-SCORE" to 136,0
+	call DrawScore():call DrawLives()
+	for i = 1 to 3:call DrawShield(i*80,180):next
+	sprite 0 image $85 to xPlayer,230
+endproc
+'
+'		Move Player
+'
+proc MovePlayer()
+	local fire,dx,dy
+	fire = joypad(dx,dy)
+	xPlayer = max(0,min(319,xPlayer+dx*6))
+	sprite 0 to xPlayer,230
+	if yPBullet < 0 then if fire then xPBullet = xPlayer:yPBullet = 230-8:sfx 0,22
+endproc
+'
+'		Draw lives
+'
+proc DrawLives()
+	local i
+	text str$(lives) solid dim 1 ink 2 to 8,230
+	if lives > 1 then for i = 1 to lives-1:image $85 to i*16+4,228:next
+endproc
+'
+'		Draw the shield
+'
+proc DrawShield(x,y)
+	local i,w,h:w = 50:h = 30
+	rect x-w\2,y ink 2 solid to x+w\2,y+h
+	ellipse ink 0 from x-h\3,y+h-h\3 to x+h\3,y+h+h\3
+	for i = 0 to w\4
+		line x-w\2+i,y-1 to x-w\2,y+i
+		line x+w\2-i,y-1 to x+w\2,y+i
+	next
+endproc
+'
+'		Move all the invaders
+'
+proc MoveInvaders()
+	sys Animate6502
+	xLeft = xLeft + xDirection
+	if xLeft + rightColumn * 16 > 303 | xLeft < 16-16 * leftColumn
+		xDirection = -xDirection
+		xLeft = max(min(xLeft,303-rightColumn*16),0)
+		rect ink 0 solid from 0,yTop to 319,yTop+8
+		yTop = yTop + 8:if yTop > 170 then dead = true
+		if sfxPitch = 100:sfxPitch = 200:else:sfxPitch = 100:endif
+		sound 0 clear:sound 0,sfxPitch,8
+	endif
+endproc
+'
+' 		Repaint the tile map
+'
+proc RepaintInvaders()
+	tiledraw from xLeft,yTop to xLeft+191,yTop+80
+endproc
+'
+'		Reset Bullets
+'
+proc ResetBullets()
+	sprite 9 hide:xPBullet = 0:yPBullet = -99
+	local i
+	for i = 1 to invBulletCount:yBullet(i) = -1:sprite i hide:next
+endproc
+'
+'		Move Player Bullet
+'
+proc MovePlayerBullet()
+	yPBullet = yPBullet - 4
+	if yPBullet > 180 then if point(xPBullet,yPBullet) = 2 then call BreakShield(xPBullet,yPBullet+3):yPBullet = -99
+	if yPBullet > xTop & yPBullet < yTop+80 
+		local row,col,pos
+		row = (yPBullet - yTop) >> 4
+		col = (xPBullet - xLeft + 4) >> 4
+		pos = (xPBullet - xLeft + 4) & 15
+		if col >= 1 & col <= 11 & pos <= 12
+			mask = 1 << (row)
+			if (colAlive(col) & mask) <> 0 
+				colAlive(col) = colAlive(col)-mask
+				if colAlive(col) = 0 then call ResetColumns()
+				sprite 10 image $86 to xLeft+col*16,yTop+row*16+8
+				call DeleteAlien(col,row)
+				score = score + (6-row)\2*10:call DrawScore()
+				yPBullet = -99	
+			endif
+		endif
+	endif
+	sprite 9 image $80+((yPBullet >> 2) & 3) to xPBullet,yPBullet
+endproc
+'
+'		Hit shields
+'
+proc BreakShield(x,y)
+	ellipse from x-5,y-5 ink 0 solid to x+5,y+5
+endproc
+'
+'		Delete Alien
+'
+proc DeleteAlien(x,y)
+	poke invMap+3+x+y*13,$F8
+	remaining = remaining - 1
+	call RepaintInvaders()
+	sfx 0,21
+	endproc	
+'
+'		Delay n cs
+'
+proc Delay(n)
+	n = time()+n
+	repeat:until time() > n
+endproc
+'
+'		Check if invaders should fire.
+'
+proc CheckInvaderFire()
+	currentCheck = currentCheck + 1:if currentCheck > invBulletCount then currentCheck = 1
+	if remaining > 0 & yBullet(currentCheck) < 0
+		local col,row,n
+		repeat:col = rand(11)+1:until colAlive(col) <> 0
+		n = colAlive(col) >> 1:row = 0
+		while n <> 0:row = row + 1:n = n >> 1:wend
+		xBullet(currentCheck) = xLeft + col * 16
+		yBullet(currentCheck) = yTop + row * 16
+		sfx 0,23
+	endif
+endproc
+'
+'		Move invader bullets
+'
+proc MoveInvaderBullets()
+	local i
+	for i = 1 to invBulletCount
+		if yBullet(i) >= 0
+			yBullet(i) = yBullet(i)+4
+			if point(xBullet(i),yBullet(i)) = 2 then call BreakShield(xBullet(i),yBullet(i)):yBullet(i) = -99
+			if yBullet(i) > 235 then yBullet(i) = -99
+			if yBullet(i) > 224 then if abs(xBullet(i)-xPlayer) < 6 then dead = true:sfx 0,19
+			sprite i image ($80+(yBullet(i) >> 2) & 3) to xBullet(i),yBullet(i)
+		endif
+	next
+endproc
+'
+'		Reset left/right column
+'
+proc ResetColumns()
+	if remaining > 0
+		leftColumn = 1:rightColumn = 11
+		while colAlive(leftColumn) = 0:leftColumn = leftColumn+1:wend
+		while colAlive(rightColumn) = 0:rightColumn = rightColumn-1:wend
+	endif
+endproc
+'
+'		Animation flip
+'
+proc AnimationFlipCode()
+Animate6502 = alloc(64)
+	for pass = 0 to 1
+		p = Animate6502:o = pass * 3
+			ldx 	#3
+		.animloop
+			lda 	invMap,x
+			bmi 	animxskip
+			cmp 	#$F0
+			bcs 	animxskip
+			eor 	#4
+			sta 	invMap,x
+		.animxskip
+			inx
+			cpx 	#3+13*5
+			bne  	animloop
+			rts
+	next
+endproc
\ No newline at end of file
diff --git a/basic/storage/invaders.gfx b/basic/storage/invaders.gfx
index 44362c53750f69adbdfd69e5b82351bce169e923..6710553fa2709d98941d37cd309f77d3c5bf9d8c 100644
GIT binary patch
literal 2176
zcmd^9L2kq#41~R;$MAzyUYHyFz&yJ%V_a3cYJ-yWR42sPjK>(G<c}r&XX(dc%`vq~
zTdi_bYjRYG7Ml6GHLbU1?(pc-UyzW;dh5(!$X}@|AL_9IDkdIyz`Mrj#1ZJ_DGxZ6
z4tZ;{#{6M-n5ui6i_S!!;5n&H<+FOcDlZ%|Jtw#^;T-3rM&QFEyFn)VZ_#((BR6?Z
z`oRY_@v#xCiv5Qp`u}w=bVnR;OMY~iY=`~Fg&>gEKqm%6fegMPf7}0we_#9{_kj&N
z4M*5->l55FkT>3=yb&-%K7on)4(ol{*97$(<b^lNJKEPA`7|n*vH}dH2~{a6uf<=t
zODbz#a{-RT47e^&r+94N^<$%?B(*(%)YsGRYW$KGykO(;b6`%hVx$F*VW%B9nTR9c
GcliV!6eo)S

literal 1920
zcmd^6TMok@3`_eH?G_a$%pX_Sv1glr+K;N!m{e)=R!kn?ge>-0?7vYf`}Ycj8Ht`6
z9!^f%U?L2M2M_3w7CL9}nf|C}Mw(|`e^6L(&xasa{>TLKNPK|IN4n_)O`+dMeO^RC
zGWFr;`h!(tOHe+yQ)pvlgSrMnx;N*nz7^o>0Pdl9gg1x06U&?WLsuiv@}2%KOW#_?
zTK2pa!c0`QQ@*(Uc{BPGp7BNbKM`L046~bNa=1c<3x+K8a3+j!Cfs48F3PGvY{WZT
NWp_XLV9U5|c>(KOohbkS

diff --git a/emulator/storage/invaders.bas b/emulator/storage/invaders.bas
new file mode 100644
index 0000000000000000000000000000000000000000..b91d439de5dd2a9f0f83138ef0ce004fa7111fe2
GIT binary patch
literal 4807
zcmeGeeQXp}e&)^2?rgu<meS?3&hGJ1DJ^rR5>HICv$M0^rQ3G1U23@)j<wy|)ukov
zmP13dR5*!8iV9~4de|638bdr>39M-B+up))<LtmmLn|m>F>25lBZe4b$o<}%EpYeu
z{dx1poA>*@-}`-kJl@8TFKhnJnZNVqZ^rz6R!%4!!Pa0jD2IaW>i8Urh^Xyqv_%e&
zo97YL7m*)tl3UdAx%bY!>q8+m+CE-YK!xRCYc$x}A^X%w`?!N*!y$P?NbOKV<HZDK
zLctF8LJ{5iR5?evG0~Q`4z+Oc0+nc@$Yu4@3QA3BOo<mLYbL4$RHfM;jGV4CDPXHo
zTr}8nx{Tro<A@wRZEAg=nD&BY1VzO}#?2cW!c@qVliYXQJ2pj+FSv^?=sW8Klb(t%
zoDg+PcQO&R1$+~1{YMGC?o+|AaZ_s`Hd!cb>szPjIRm&B`Menkr7Z-3=}=Ae9GwL{
zsIra?1<3SmyV4dpO>Z%QU{ipC1+PN{^im?5=`@{cMu$X|kg4NlI{e-I{nNbF8B+aI
zW~??u+s>O_@AMHbM}uv~eVG7Cu5W2=AD>UnlUsu=GElVoL&31p=2Hu~K%@~<W_?ek
z2ZCzIH*QKHu@tD5zL~=RGczikg{YYNO`E^7W~!Lt)HM%FX%i6v<D*n1!_*n<D8MGS
zc7JC$7*)>F%yM`ms@&XuzaE`nt)1!-X`41TN}FzO!fl20ZIRnQF&RKO)u;+lQd<jt
zG|Ze;)<+_0E6vkSObf$u`vp@6qIIaP&5SZbpw9N@;CU+b|I7cx1AI4=$4mN{{BYIE
zl`F;eEwQe+80^~`>y8f$ih#oWHlT2hFxgl1>|cjV5{0w+r+T(wVGlFSEHkk4b@;C_
z^l3&VO9xpJ2Ij|@6Igf$&R#IE{Wx=y*(-Ul^<yTx6Z2<*?eb4S@B`sw?Ag^ye_txm
zHxw6By>YQ?XkZ}TmlBilt??x0KL=9bD<(tO2tP2)LFsku{Dol-OCFs$NtUx@xdhDZ
z7M8gw$=#SQV^82k^V#%n=CH=xF(#(j5>qYx`nv1^>~NE#lbS+K9x!n6DgvJc7|&V5
zrdg@h6@`;VkmzBj+4W$}I`)0MC`!mKY0OPy0tCG%`wcOwPqTdnF4@SQWDY*a?gBN+
zdVvLOCWu?`oB=k?9Gn2_nY}I<+qVO_x7LG;{sf%&D**#nyu$vs?+$`A{xJIi=HF%W
z_;(pLKm1S>d@~yWF*XnvV_m7CSTgyn7!y;8WPEdM%PMiOU+fx)$5KF=s>l2!+!k~;
zL*gV{WZ5yvi_5OD>~ZN(i(3`J-UT<=DfYM~>#&Nl)<XYY&5uidVzY<gB%pb4)g3lF
z%Hn22W6!Z;uzmq6o-ZKwTkt)5TWago!9YbvJPAVuLJrBh3G<5)Sg;&H3P~tG?1;p>
z2V#GuK_2YtABbcAQ8*KPD1(+5_&2TS>i%J?L_cxzYxY}1^BdV$o3f*Fc3<v!Z5^)f
zL}?=OL0H(^6aPtm`yP4D+X~eDlSF(HMAU5s@ymmKiBuw%ObnWNcGs8SI5F1OEq3(}
z^`!<eKTMQ*8D&WH=I%!q8Kj{)4K-+tQ)8-e@ga1Isg^uBA6`6;7$h;(?iLZe2j<sF
zBTTg@8!NncUK&lo%^k`%9sXj7?6C7AbP6>{a;}*ofhVfdKg9eQ^dVk+9-+11Hdl)~
zpd-KZgot>zUq@ldhpR5#y~kqIU`RXu0M{zNM385yyIE)MNQ&rnv%Bz|?-2xH1o5E7
z@^x7F8BL>25PZZ<qd~~y5)OP)#pSVE<nqId?hDE0SfWpSDz-T;4nhjW`!K%}$b<$i
z1BH!kjod}lfL#F&dcpPVuzqzmRM~xIjB?6GaQed$?&`2WXXazSZOm=cJV051A8O1g
zohBj>tfMqJFUhacCqTO;P@(A0242|1nLbhgegieQ<*?>W8DOtt3wPafZHHIQA%~{)
zVE#E`%udj<Vib%iZt33|7fC~j4`BWPQT}Z%L+ZQqC@6naLnk!!F)lm7p`+3+3PAV5
z93<;o9&OC`f`%L-I^p&kP|q5ODu{7SanKU#JQHbjbON1`kV9uBN$GI~^z0iRtpoE{
zh#ud7!15nKk0Kw*@?>Ib9Fpl*qK4IyA(q)37UDzaLd(_3ubI6Dcn(tgRc|gptXa0y
zLOO#yVOmeRg>D+#;0}vEP3b0?Qf~oKk67}!%4^9F&!M77*BtCk#FNnZLU2^t0rK9U
z*$M`3B0@DZrJ>6@nvw=|bXnSn-A`LCGfo$pTH%GH1|^`x7^hf(MRXb0rz}^puX=6}
zs>>@BpaLx2Qo_3^z^+hm+4B~nH~4I7g%7)TTP_v2i==R>T{2vnl?Ev6evMF2d9HgD
z_vANV{!I(mdxY3~42)WQ3hbRnLkvxiHj&v1#(WM41jCYnHjiyHmb2&vF1cZWazblG
z6vhj_v!u!HmOEVQ>wgfftqZ%tZq9;>Zd;(fTtMPvcp!gk46W6C{VqajXdduh5q}w+
zkllB~qalBe<cMDkU}q%{6-u^x8u@FzPfx&H`U_rI&8N9am_RzLN<jY?`2+MmuBhR&
z2R%?WuxebT7Qp;NJoNa-cree;=kcO2pC7J_#J4~drl@tKr;E^=F#mfv7rOZj8LQ4d
z{;M0HBq#$Gd8s~f7zQ<AGy;T`dw@}CBt95ViQb`PGEQ3B>x9D?aOf~_<vaZKVD^9x
znGC&Kl3a2ZwjJk5W-j@dH<OPY)7dXbpMe~_jv9a(LUERe_!KxT_#8x3+*fS{L74xF
z$oYZKkkMKE3lH2`$>qZ}7AqO5-qb{T4?3f<k|B8~ra3p=!xWlTV{RFx;~Hw9-oU$H
zSm}K0MXpifnlvs9bKA-_N+ZA%`HiJMT(Qc^H9@mG;{sp!C}xe73*W=kwBflPYnp3X
zCD(9G_02V0xITnS*IBs@lDuq$12xN|*7OLAxhA8A+hDBr;EIh_3QBZ!aT{=XFQ`Q*
z$V?~Qbn$@o`Z}mh8UwD$9VS`9HA0yNaOrmIG}lG+1?CI>WF@2OTXDqi0(gbjy$+fh
z47;LNtOeKe2d$6?hsp9TEQ>PM>p@`c5l6tzrCy^(F>=&TFwLzH0No1h?xGdiT_BMv
zls!cF8lX#WS~HxxQ1{h8S+9`VRY~=!G>1vu5>Qkze~0iAY<WDl!j>N{@x>ug;-Z{P
zkjB3l@TJRb8Lq3qY@TEz?*l~y4rJWXVOIR84aN_<3tlyX&qg18_EsBdiR&@nX#@UG
z0-y3E@Gk=Xv1i3Tu?tk)3fQ7yTZY}w4MC@U*~Se?FBu{?giH3@PUt6JGHPMZA0iya
zfp%FMI8-aW@vdjYM9;l9&|q)>P_kR>Nesl{sq+y~3TJ>TyvCg8ZQOQ=+b+s_n%iE>
zj!gh4<MK;3c$n3CYS=Hh?M5BUoiA+{X{0m|==>gpLpr_KY{0#fG~kd9bAKlKQD~{G
zL;88}A|xE+hE{tB#5Dpj5O70q`W`MX5!iFUoHQPi7`VJjpwdXQAQ^(~qCi~qIE+^T
zV%{Ktm5l;4fPerEfEHDuuZd62mTv^kg(rjzd5PM31X8LcTZGwC#U;-PX<DwUJh*%(
z$Rm|YSJ8*-M}_nr_8g$#*#>K&^zO&pt@SSKJWya&t2{GdG9vw9`P+BVn<mnu^s);%
zj5<GUd~^=B<7Gz$XcpH-X!g>}h5Wrw80Jq9v#|gTMI*LPfo;`Sz;>tEvy$<i)arr6
zQ@ts8kR^vULppv#%>PlykkYgN3YtI+ajDhLStMCUx1?rV<**-v5Luu?b-;2K2+Di7
zY9Ya*TLcSa=oWOd_b|WI4hq!ULG~l|Jf7#Z=ZDMWzQpEOD$(C3_9PR~azk(;bl5ZG
z%~ZU}j&4YYWEcm<Puov%qcG(lnNoJfA)y;OW0$y5w}OS|?UQfKDA=~!{uy@w7r$no
zJOuA&#)*YD?UOHYM{v;*`{ZjgJCrS0IA)*R2^is&ee%GJ4;Sa`lgCYBn*rC4VC#&1
n@*oT``{ceEMTEyX7QVAj?gqxz+xE%7VV)@h4;B@DfSG>-G*$9-

literal 0
HcmV?d00001

diff --git a/emulator/storage/invaders.bsc b/emulator/storage/invaders.bsc
new file mode 100644
index 00000000..0fb6918c
--- /dev/null
+++ b/emulator/storage/invaders.bsc
@@ -0,0 +1,251 @@
+'
+'		*** Space Invaders ***
+'
+cls:gload "invaders.gfx"
+call Initialise()
+
+call ResetMap():call RedrawGame():call ResetBullets():call RepaintInvaders()
+repeat
+	call PlayLevel()
+until lives = 0
+end
+'
+'		Play/Continue the current level
+'
+proc PlayLevel()
+	dead = false
+	tMoveInvaders = 0:tMovePlayer = 0:tMoveBullets = 0:tCheckFire = 0
+	tFireCheckTime = 100
+	repeat
+		if event(tMoveInvaders,moveRate) then call MoveInvaders():call RepaintInvaders():sprite 10 hide
+		if event(tMovePlayer,3) then call MovePlayer()
+		if event(tMoveBullets,3)
+				if yPBullet > -20 then call MovePlayerBullet()
+			call MoveInvaderBullets()
+		endif
+		if event(tCheckFire,tFireCheckTime) then tFireCheckTime = rand(70)+20:call CheckInvaderFire()
+	until dead|remaining = 0
+	if remaining = 0 then call ResetMap()
+	if dead then lives = lives - 1
+
+	if lives > 0 
+		call Delay(200)
+		call RedrawGame():call ResetBullets():call RepaintInvaders()
+	endif
+
+	endproc
+'
+'		The invaders are actually a tilemap, so create it.
+'
+proc Initialise()
+	invBulletCount = 2
+	invMap = alloc(13 * 5 + 3)
+	poke invMap,1:poke invMap+1,13:poke invMap+2,6
+	tilemap invMap,8,0
+	dim colAlive(11),xBullet(invBulletCount),yBullet(invBulletCount)
+	score = 0:highScore = 1000:lives = 3:level = 0
+	xPlayer = 160
+endproc
+'
+'		Redraw the score
+'
+proc DrawScore()
+	text right$("000000"+str$(score),6) ink 7 dim 1 solid to 62,10
+	if score = 0 | score = highScore then text right$("000000"+str$(highScore),6) ink 7 dim 1 to 142,10
+endproc
+'
+'		Initialise the invaders map and counts
+'
+proc ResetMap()
+	local a,c,i,x,y	
+	for y = 0 to 4
+		a = y * 13 + invMap + 3:c = (y+1)  \ 2
+		poke a,$F8:poke a+12,$F8
+		for i = 1 to 11:poke a+i,c:next
+	next
+	xLeft = 160 - 13 * 8:yTop = 28+level*6:xDirection = 4
+	for i = 1 to 11:colAlive(i) = $1F:next
+	remaining = 5*11:moveRate = 3+2*remaining
+	level = (level+1) % 10
+	call ResetColumns()
+	call AnimationFlipCode()
+endproc
+'
+'		Redraw the main game screen
+'
+proc RedrawGame()
+	local i
+	cls:sprite clear:text "000000" solid ink 7 dim 1 to 222,10
+	text "SCORE<1>" to 56,0:text "SCORE<2>" to 216,0:text "HI-SCORE" to 136,0
+	call DrawScore():call DrawLives()
+	for i = 1 to 3:call DrawShield(i*80,180):next
+	sprite 0 image $85 to xPlayer,230
+endproc
+'
+'		Move Player
+'
+proc MovePlayer()
+	local fire,dx,dy
+	fire = joypad(dx,dy)
+	xPlayer = max(0,min(319,xPlayer+dx*6))
+	sprite 0 to xPlayer,230
+	if yPBullet < 0 then if fire then xPBullet = xPlayer:yPBullet = 230-8:sfx 0,22
+endproc
+'
+'		Draw lives
+'
+proc DrawLives()
+	local i
+	text str$(lives) solid dim 1 ink 2 to 8,230
+	if lives > 1 then for i = 1 to lives-1:image $85 to i*16+4,228:next
+endproc
+'
+'		Draw the shield
+'
+proc DrawShield(x,y)
+	local i,w,h:w = 50:h = 30
+	rect x-w\2,y ink 2 solid to x+w\2,y+h
+	ellipse ink 0 from x-h\3,y+h-h\3 to x+h\3,y+h+h\3
+	for i = 0 to w\4
+		line x-w\2+i,y-1 to x-w\2,y+i
+		line x+w\2-i,y-1 to x+w\2,y+i
+	next
+endproc
+'
+'		Move all the invaders
+'
+proc MoveInvaders()
+	sys Animate6502
+	xLeft = xLeft + xDirection
+	if xLeft + rightColumn * 16 > 303 | xLeft < 16-16 * leftColumn
+		xDirection = -xDirection
+		xLeft = max(min(xLeft,303-rightColumn*16),0)
+		rect ink 0 solid from 0,yTop to 319,yTop+8
+		yTop = yTop + 8:if yTop > 170 then dead = true
+		if sfxPitch = 100:sfxPitch = 200:else:sfxPitch = 100:endif
+		sound 0 clear:sound 0,sfxPitch,8
+	endif
+endproc
+'
+' 		Repaint the tile map
+'
+proc RepaintInvaders()
+	tiledraw from xLeft,yTop to xLeft+191,yTop+80
+endproc
+'
+'		Reset Bullets
+'
+proc ResetBullets()
+	sprite 9 hide:xPBullet = 0:yPBullet = -99
+	local i
+	for i = 1 to invBulletCount:yBullet(i) = -1:sprite i hide:next
+endproc
+'
+'		Move Player Bullet
+'
+proc MovePlayerBullet()
+	yPBullet = yPBullet - 4
+	if yPBullet > 180 then if point(xPBullet,yPBullet) = 2 then call BreakShield(xPBullet,yPBullet+3):yPBullet = -99
+	if yPBullet > xTop & yPBullet < yTop+80 
+		local row,col,pos
+		row = (yPBullet - yTop) >> 4
+		col = (xPBullet - xLeft + 4) >> 4
+		pos = (xPBullet - xLeft + 4) & 15
+		if col >= 1 & col <= 11 & pos <= 12
+			mask = 1 << (row)
+			if (colAlive(col) & mask) <> 0 
+				colAlive(col) = colAlive(col)-mask
+				if colAlive(col) = 0 then call ResetColumns()
+				sprite 10 image $86 to xLeft+col*16,yTop+row*16+8
+				call DeleteAlien(col,row)
+				score = score + (6-row)\2*10:call DrawScore()
+				yPBullet = -99	
+			endif
+		endif
+	endif
+	sprite 9 image $80+((yPBullet >> 2) & 3) to xPBullet,yPBullet
+endproc
+'
+'		Hit shields
+'
+proc BreakShield(x,y)
+	ellipse from x-5,y-5 ink 0 solid to x+5,y+5
+endproc
+'
+'		Delete Alien
+'
+proc DeleteAlien(x,y)
+	poke invMap+3+x+y*13,$F8
+	remaining = remaining - 1
+	call RepaintInvaders()
+	sfx 0,21
+	endproc	
+'
+'		Delay n cs
+'
+proc Delay(n)
+	n = time()+n
+	repeat:until time() > n
+endproc
+'
+'		Check if invaders should fire.
+'
+proc CheckInvaderFire()
+	currentCheck = currentCheck + 1:if currentCheck > invBulletCount then currentCheck = 1
+	if remaining > 0 & yBullet(currentCheck) < 0
+		local col,row,n
+		repeat:col = rand(11)+1:until colAlive(col) <> 0
+		n = colAlive(col) >> 1:row = 0
+		while n <> 0:row = row + 1:n = n >> 1:wend
+		xBullet(currentCheck) = xLeft + col * 16
+		yBullet(currentCheck) = yTop + row * 16
+		sfx 0,23
+	endif
+endproc
+'
+'		Move invader bullets
+'
+proc MoveInvaderBullets()
+	local i
+	for i = 1 to invBulletCount
+		if yBullet(i) >= 0
+			yBullet(i) = yBullet(i)+4
+			if point(xBullet(i),yBullet(i)) = 2 then call BreakShield(xBullet(i),yBullet(i)):yBullet(i) = -99
+			if yBullet(i) > 235 then yBullet(i) = -99
+			if yBullet(i) > 224 then if abs(xBullet(i)-xPlayer) < 6 then dead = true:sfx 0,19
+			sprite i image ($80+(yBullet(i) >> 2) & 3) to xBullet(i),yBullet(i)
+		endif
+	next
+endproc
+'
+'		Reset left/right column
+'
+proc ResetColumns()
+	if remaining > 0
+		leftColumn = 1:rightColumn = 11
+		while colAlive(leftColumn) = 0:leftColumn = leftColumn+1:wend
+		while colAlive(rightColumn) = 0:rightColumn = rightColumn-1:wend
+	endif
+endproc
+'
+'		Animation flip
+'
+proc AnimationFlipCode()
+Animate6502 = alloc(64)
+	for pass = 0 to 1
+		p = Animate6502:o = pass * 3
+			ldx 	#3
+		.animloop
+			lda 	invMap,x
+			bmi 	animxskip
+			cmp 	#$F0
+			bcs 	animxskip
+			eor 	#4
+			sta 	invMap,x
+		.animxskip
+			inx
+			cpx 	#3+13*5
+			bne  	animloop
+			rts
+	next
+endproc
\ No newline at end of file
diff --git a/emulator/storage/invaders.gfx b/emulator/storage/invaders.gfx
new file mode 100644
index 0000000000000000000000000000000000000000..6710553fa2709d98941d37cd309f77d3c5bf9d8c
GIT binary patch
literal 2176
zcmd^9L2kq#41~R;$MAzyUYHyFz&yJ%V_a3cYJ-yWR42sPjK>(G<c}r&XX(dc%`vq~
zTdi_bYjRYG7Ml6GHLbU1?(pc-UyzW;dh5(!$X}@|AL_9IDkdIyz`Mrj#1ZJ_DGxZ6
z4tZ;{#{6M-n5ui6i_S!!;5n&H<+FOcDlZ%|Jtw#^;T-3rM&QFEyFn)VZ_#((BR6?Z
z`oRY_@v#xCiv5Qp`u}w=bVnR;OMY~iY=`~Fg&>gEKqm%6fegMPf7}0we_#9{_kj&N
z4M*5->l55FkT>3=yb&-%K7on)4(ol{*97$(<b^lNJKEPA`7|n*vH}dH2~{a6uf<=t
zODbz#a{-RT47e^&r+94N^<$%?B(*(%)YsGRYW$KGykO(;b6`%hVx$F*VW%B9nTR9c
GcliV!6eo)S

literal 0
HcmV?d00001

diff --git a/firmware/common/include/data/prompt.h b/firmware/common/include/data/prompt.h
index ead1c2d8..4a4e8679 100644
--- a/firmware/common/include/data/prompt.h
+++ b/firmware/common/include/data/prompt.h
@@ -1,4 +1,4 @@
 //
 //	This file is automatically generated
 //
-#define PROMPT "(Build 2567 30-Jan-24)\r"
+#define PROMPT "(Build 2580 30-Jan-24)\r"
diff --git a/firmware/common/include/data/sfxdata.h b/firmware/common/include/data/sfxdata.h
index 6a984775..67289444 100644
--- a/firmware/common/include/data/sfxdata.h
+++ b/firmware/common/include/data/sfxdata.h
@@ -60,13 +60,13 @@ static const uint16_t sfxData18[] = {
 740,75,0,50,740,75,0,50,740,75,0,50,740,75,0,50,65535 };
 // 19 expl100
 static const uint16_t sfxData19[] = {
-464,1,246,1,439,1,391,1,206,1,394,1,224,1,320,1,582,1,691,1,315,1,581,1,679,1,537,1,474,1,261,1,328,1,226,1,422,1,524,1,246,1,630,1,668,1,696,1,596,1,512,1,203,1,384,1,478,1,317,1,562,1,207,1,393,1,620,1,518,1,503,1,214,1,632,1,327,1,501,1,636,1,423,1,680,1,267,1,430,1,561,1,297,1,299,1,623,1,432,1,65535 };
+553,1,571,1,677,1,696,1,332,1,667,1,626,1,572,1,647,1,270,1,475,1,552,1,611,1,289,1,343,1,693,1,282,1,599,1,333,1,529,1,673,1,531,1,691,1,505,1,216,1,309,1,504,1,395,1,229,1,362,1,311,1,573,1,306,1,608,1,424,1,379,1,527,1,648,1,542,1,283,1,246,1,271,1,572,1,332,1,660,1,665,1,304,1,346,1,693,1,259,1,65535 };
 // 20 expl50
 static const uint16_t sfxData20[] = {
-677,1,258,1,346,1,647,1,470,1,596,1,572,1,609,1,247,1,322,1,594,1,424,1,216,1,369,1,347,1,543,1,315,1,246,1,479,1,602,1,407,1,533,1,463,1,413,1,269,1,65535 };
+399,1,569,1,270,1,462,1,695,1,382,1,391,1,424,1,371,1,360,1,213,1,233,1,539,1,529,1,471,1,491,1,404,1,642,1,492,1,436,1,309,1,345,1,403,1,560,1,434,1,65535 };
 // 21 expl20
 static const uint16_t sfxData21[] = {
-418,1,524,1,457,1,354,1,207,1,547,1,392,1,243,1,301,1,560,1,65535 };
+216,1,655,1,585,1,388,1,468,1,219,1,374,1,680,1,382,1,668,1,65535 };
 // 22 las30
 static const uint16_t sfxData22[] = {
 600,1,574,1,547,1,520,1,494,1,467,1,440,1,414,1,387,1,360,1,334,1,307,1,280,1,254,1,227,1,65535 };