From a091e8e7ecb55f1d33e55df5cd0d9939c281f666 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 10 Mar 2024 00:44:20 -0500
Subject: [PATCH] keen1: initial mostly working proof

---
 games/duke/{ => old}/level1_data.inc |   0
 games/keen/Makefile                  |  98 +++++++
 games/keen/actions_level1.s          | 204 ++++++++++++++
 games/keen/draw_keen.s               | 120 ++++++++
 games/keen/draw_tilemap.s            | 143 ++++++++++
 games/keen/enemies_level1.s          | 339 +++++++++++++++++++++++
 games/keen/gr_offsets.s              |   5 +
 games/keen/gr_pageflip.s             |  24 ++
 games/keen/gr_putsprite_crop.s       | 359 ++++++++++++++++++++++++
 games/keen/graphics/Makefile         |  11 +-
 games/keen/graphics/level1_bg.png    | Bin 0 -> 14255 bytes
 games/keen/handle_laser.s            | 100 +++++++
 games/keen/hello.bas                 |  14 +
 games/keen/init_vars.s               |  10 +-
 games/keen/item_level1.s             |  49 ++++
 games/keen/joystick.s                |  46 ++++
 games/keen/keen_level1.s             | 243 +++++++++++++++++
 games/keen/keen_title.s              |   2 +-
 games/keen/keyboard.s                | 251 +++++++++++++++++
 games/keen/level_end.s               |  65 +++++
 games/keen/maps/LEVEL_RULES          |   3 +
 games/keen/maps/Makefile             |  34 +++
 games/keen/maps/level1_map.png       | Bin 0 -> 9232 bytes
 games/keen/maps/loadpng.c            | 236 ++++++++++++++++
 games/keen/maps/loadpng.h            |   9 +
 games/keen/maps/png2map.c            | 188 +++++++++++++
 games/keen/move_keen.s               | 394 +++++++++++++++++++++++++++
 games/keen/quit_yn.s                 |  56 ++++
 games/keen/sound_effects.s           | 149 ++++++++++
 games/keen/speaker_tone.s            |  67 +++++
 games/keen/status_bar.s              | 177 ++++++++++++
 games/keen/text_drawbox.s            |  84 ++++++
 games/keen/zp.inc                    |  18 +-
 33 files changed, 3482 insertions(+), 16 deletions(-)
 rename games/duke/{ => old}/level1_data.inc (100%)
 create mode 100644 games/keen/Makefile
 create mode 100644 games/keen/actions_level1.s
 create mode 100644 games/keen/draw_keen.s
 create mode 100644 games/keen/draw_tilemap.s
 create mode 100644 games/keen/enemies_level1.s
 create mode 100644 games/keen/gr_offsets.s
 create mode 100644 games/keen/gr_pageflip.s
 create mode 100644 games/keen/gr_putsprite_crop.s
 create mode 100644 games/keen/graphics/level1_bg.png
 create mode 100644 games/keen/handle_laser.s
 create mode 100644 games/keen/hello.bas
 create mode 100644 games/keen/item_level1.s
 create mode 100644 games/keen/joystick.s
 create mode 100644 games/keen/keen_level1.s
 create mode 100644 games/keen/keyboard.s
 create mode 100644 games/keen/level_end.s
 create mode 100644 games/keen/maps/LEVEL_RULES
 create mode 100644 games/keen/maps/Makefile
 create mode 100644 games/keen/maps/level1_map.png
 create mode 100644 games/keen/maps/loadpng.c
 create mode 100644 games/keen/maps/loadpng.h
 create mode 100644 games/keen/maps/png2map.c
 create mode 100644 games/keen/move_keen.s
 create mode 100644 games/keen/quit_yn.s
 create mode 100644 games/keen/sound_effects.s
 create mode 100644 games/keen/speaker_tone.s
 create mode 100644 games/keen/status_bar.s
 create mode 100644 games/keen/text_drawbox.s

diff --git a/games/duke/level1_data.inc b/games/duke/old/level1_data.inc
similarity index 100%
rename from games/duke/level1_data.inc
rename to games/duke/old/level1_data.inc
diff --git a/games/keen/Makefile b/games/keen/Makefile
new file mode 100644
index 00000000..15bf6ece
--- /dev/null
+++ b/games/keen/Makefile
@@ -0,0 +1,98 @@
+include ../../Makefile.inc
+
+DOS33 = ../../utils/dos33fs-utils/dos33
+DOS33_RAW = ../../utils/dos33fs-utils/dos33_raw
+B2D = ../../utils/bmp2dhr/b2d
+PNG2GR = ../../utils/gr-utils/png2gr
+LZSA = ~/research/lzsa/lzsa/lzsa
+TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
+EMPTY_DISK = ../../empty_disk/empty.dsk
+
+
+all:	keen.dsk
+
+keen.dsk:	HELLO LOADER KEEN_TITLE KEEN_LEVEL1
+#KEEN_LEVEL2
+	cp $(EMPTY_DISK) keen.dsk
+	$(DOS33) -y keen.dsk SAVE A HELLO
+	$(DOS33) -y keen.dsk BSAVE -a 0x1000 LOADER
+	$(DOS33) -y keen.dsk BSAVE -a 0x4000 KEEN_TITLE
+	$(DOS33) -y keen.dsk BSAVE -a 0x2000 KEEN_LEVEL1
+#	$(DOS33) -y keen.dsk BSAVE -a 0x2000 KEEN_LEVEL2
+
+
+###
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+####
+
+LOADER:	loader.o
+	ld65 -o LOADER loader.o -C ../../linker_scripts/apple2_1000.inc
+
+loader.o:	loader.s
+	ca65 -o loader.o loader.s -l loader.lst
+
+####
+
+KEEN_TITLE:	keen_title.o
+	ld65 -o KEEN_TITLE keen_title.o -C ../../linker_scripts/apple2_4000.inc
+
+keen_title.o:	keen_title.s zp.inc hardware.inc init_vars.s \
+		zx02_optim.s \
+		graphics/keen1_title.hgr.zx02
+	ca65 -o keen_title.o keen_title.s -l keen_title.lst
+
+####
+
+KEEN_LEVEL1:	keen_level1.o
+	ld65 -o KEEN_LEVEL1 keen_level1.o -C ../../linker_scripts/apple2_2000.inc
+
+keen_level1.o:	keen_level1.s zp.inc hardware.inc \
+	print_help.s gr_fast_clear.s quit_yn.s text_drawbox.s level_end.s \
+	enemies_level1.s actions_level1.s item_level1.s \
+	graphics/keen_graphics.inc \
+	maps/level1_map.lzsa \
+	status_bar.s draw_keen.s move_keen.s gr_putsprite_crop.s \
+	draw_tilemap.s \
+	sound_effects.s speaker_tone.s \
+	keyboard.s handle_laser.s
+	ca65 -o keen_level1.o keen_level1.s -l keen_level1.lst
+
+####
+
+KEEN_LEVEL2:	keen_level2.o
+	ld65 -o KEEN_LEVEL2 keen_level2.o -C ../../linker_scripts/apple2_2000.inc
+
+keen_level2.o:	keen_level2.s zp.inc hardware.inc \
+	print_help.s gr_fast_clear.s quit_yn.s text_drawbox.s level_end.s \
+	enemies_level2.s actions_level2.s item_level2.s \
+	graphics/keen_graphics.inc keen_sprites.inc \
+	maps/level2_map.lzsa \
+	status_bar.s draw_keen.s move_keen.s gr_putsprite_crop.s \
+	draw_tilemap.s \
+	sound_effects.s speaker_tone.s \
+	keyboard.s handle_laser.s
+	ca65 -o keen_level2.o keen_level2.s -l keen_level2.lst
+
+
+####
+
+graphics/keen1_title.hgr.zx02:
+	cd	graphics && make
+
+graphics/keen_graphics.inc:
+	cd	graphics && make
+
+maps/level1_map.lzsa:
+	cd	maps && make
+
+####
+
+clean:		
+	rm -f *~ *.o *.lst HELLO KEEN_TITLE KEEN_LEVEL1
+	cd graphics && make clean
+	cd maps && make clean
+#	cd title && make clean
+
diff --git a/games/keen/actions_level1.s b/games/keen/actions_level1.s
new file mode 100644
index 00000000..6b153c60
--- /dev/null
+++ b/games/keen/actions_level1.s
@@ -0,0 +1,204 @@
+
+	; someone pressed UP
+
+up_action:
+
+
+	; set X and Y value
+	; convert tile values to X,Y
+	; X=((KEEN_X/2)-1)+TILEX
+
+	lda     KEEN_X
+	lsr
+	sec
+	sbc	#1
+	clc
+	adc	TILEMAP_X
+        sta     XPOS
+
+	; Y = (KEENY/4)+TILEY
+	lda	KEEN_Y
+	lsr
+	lsr
+	clc
+	adc	TILEMAP_Y
+	sta	YPOS
+
+	; $39,$22 = 57,34
+
+	; check if it's a key slot
+check_red_keyhole:
+
+
+	; key slot is 280,148
+	; 280,148 (-80,-12) -> 200,136 -> (/4,/4) -> 50,34
+
+	lda	XPOS
+	cmp	#50
+	beq	redkey_x
+	cmp	#51
+	bne	check_if_exit
+
+redkey_x:
+
+	lda	YPOS
+	cmp	#34
+	bne	check_if_exit
+
+	; check that we have the key
+	lda	INVENTORY
+	and	#INV_RED_KEY
+	bne	open_the_wall
+
+no_red_key:
+	jsr	buzzer_noise
+	jmp	done_up_action
+
+	; open the red wall
+	; there has to be a more efficient way of doing this
+open_the_wall:
+	; reset smc
+	lda	#>BIG_TILEMAP
+	sta	rwr_smc1+2
+	sta	rwr_smc2+2
+
+remove_red_wall_outer:
+	ldx	#0
+remove_red_wall_loop:
+rwr_smc1:
+	lda	BIG_TILEMAP,X
+	cmp	#49			; red key tile
+	bne	not_red_tile
+	lda	#2			; lblue bg tile
+rwr_smc2:
+	sta	BIG_TILEMAP,X
+not_red_tile:
+	inx
+	bne	remove_red_wall_loop
+
+	inc	rwr_smc1+2
+	inc	rwr_smc2+2
+
+	lda	rwr_smc1+2
+	cmp	#(>BIG_TILEMAP)+40
+	bne	remove_red_wall_outer
+
+	; refresh local tilemap
+
+	jsr	copy_tilemap_subset
+
+	jsr	rumble_noise
+
+	jmp	done_up_action
+
+
+	; check if it's the exit
+check_if_exit:
+
+	; exit is 296,148
+	; 296,148 (-80,-12) -> 216,136 -> (/4,/4) -> 54,34
+
+	lda	XPOS
+	cmp	#54
+	beq	exit_x
+
+	cmp	#55
+	bne	done_up_action
+
+exit_x:
+	lda	YPOS
+	cmp	#34
+	bne	done_up_action
+
+	; check that we have the key
+	lda	INVENTORY
+	and	#INV_RED_KEY
+	beq	done_up_action
+
+	lda	#1
+	sta	DOOR_ACTIVATED
+
+	sta	FRAMEL		; restart timer
+
+done_up_action:
+
+	rts
+
+
+	;==========================
+	; open the door, end level
+	;==========================
+check_open_door:
+	lda	DOOR_ACTIVATED
+	beq	done_open_door
+
+	asl
+	tay
+	lda	door_opening,Y
+	sta	INL
+	lda	door_opening+1,Y
+	sta	INH
+
+	; need to find actual door location
+	; it's at 54,34
+	; Y is going to be at 20 unless something weird is going on
+	; X is going to be ((54-TILE_X)+2)*2
+
+	lda	#56
+	sec
+	sbc	TILEMAP_X
+	asl
+	sta	XPOS
+
+	lda	#20
+	sta	YPOS
+
+	jsr	put_sprite_crop
+
+	lda	FRAMEL
+	and	#$7
+	bne	done_open_door
+
+	; increment
+
+	inc	DOOR_ACTIVATED
+	lda	DOOR_ACTIVATED
+	cmp	#6
+	bne	done_open_door
+
+	jsr	level_end
+
+done_open_door:
+	rts
+
+
+
+door_opening:
+	.word	door_sprite0
+	.word	door_sprite0
+	.word	door_sprite1
+	.word	door_sprite2
+	.word	door_sprite1
+	.word	door_sprite0
+
+door_sprite0:
+	.byte	4,4
+	.byte	$15,$55,$55,$f5
+	.byte	$55,$f5,$5f,$55
+	.byte	$25,$25,$25,$25
+	.byte	$55,$55,$55,$55
+
+door_sprite1:
+	.byte	4,4
+	.byte	$51,$f5,$f5,$5f
+	.byte	$55,$05,$05,$50
+	.byte	$05,$50,$50,$55
+	.byte	$52,$55,$55,$52
+
+door_sprite2:
+	.byte	4,4
+	.byte	$f5,$05,$05,$f0
+	.byte	$55,$00,$00,$55
+	.byte	$55,$00,$00,$55
+	.byte	$05,$50,$50,$25
+
diff --git a/games/keen/draw_keen.s b/games/keen/draw_keen.s
new file mode 100644
index 00000000..43a98a11
--- /dev/null
+++ b/games/keen/draw_keen.s
@@ -0,0 +1,120 @@
+
+	;=========================
+	; draw keen
+	;=========================
+draw_keen:
+
+	lda	KEEN_X
+	sta	XPOS
+	lda	KEEN_Y
+	sta	YPOS
+
+	lda	KEEN_DIRECTION
+	bmi	keen_facing_left
+
+	;=========================
+	; facing right
+
+keen_facing_right:
+
+check_falling_right:
+	lda	KEEN_FALLING
+	beq	check_jumping_right
+draw_falling_right:
+	ldx	#<keen_sprite_falling_right
+	lda	#>keen_sprite_falling_right
+	jmp	actually_draw_keen
+
+check_jumping_right:
+	lda	KEEN_JUMPING
+	beq	check_shooting_right
+draw_jumping_right:
+	ldx	#<keen_sprite_jumping_right
+	lda	#>keen_sprite_jumping_right
+	jmp	actually_draw_keen
+
+check_shooting_right:
+	lda	KEEN_SHOOTING
+	beq	check_walking_right
+draw_shooting_right:
+	ldx	#<keen_sprite_shooting_right
+	lda	#>keen_sprite_shooting_right
+	dec	KEEN_SHOOTING
+	jmp	actually_draw_keen
+
+check_walking_right:
+	lda	KEEN_WALKING
+	beq	draw_standing_right
+draw_walking_right:
+	lda	FRAMEL
+	and	#$02
+	beq	draw_standing_right
+
+	ldx	#<keen_sprite_walking_right
+	lda	#>keen_sprite_walking_right
+	jmp	actually_draw_keen
+
+draw_standing_right:
+	ldx	#<keen_sprite_stand_right
+	lda	#>keen_sprite_stand_right
+	jmp	actually_draw_keen
+
+
+	;==================
+	; facing left
+keen_facing_left:
+
+check_falling_left:
+	lda	KEEN_FALLING
+	beq	check_jumping_left
+draw_falling_left:
+	ldx	#<keen_sprite_falling_left
+	lda	#>keen_sprite_falling_left
+	jmp	actually_draw_keen
+
+check_jumping_left:
+	lda	KEEN_JUMPING
+	beq	check_shooting_left
+draw_jumping_left:
+	ldx	#<keen_sprite_jumping_left
+	lda	#>keen_sprite_jumping_left
+	jmp	actually_draw_keen
+
+check_shooting_left:
+	lda	KEEN_SHOOTING
+	beq	check_walking_left
+draw_shooting_left:
+	ldx	#<keen_sprite_shooting_left
+	lda	#>keen_sprite_shooting_left
+	dec	KEEN_SHOOTING
+	jmp	actually_draw_keen
+
+check_walking_left:
+	lda	KEEN_WALKING
+	beq	draw_standing_left
+draw_walking_left:
+	lda	FRAMEL
+	and	#$02
+	beq	draw_standing_left
+
+	ldx	#<keen_sprite_walking_left
+	lda	#>keen_sprite_walking_left
+	jmp	actually_draw_keen
+
+draw_standing_left:
+	ldx	#<keen_sprite_stand_left
+	lda	#>keen_sprite_stand_left
+	jmp	actually_draw_keen
+
+
+	;====================
+	; actually draw
+
+actually_draw_keen:
+	stx	INL
+	sta	INH
+	jsr	put_sprite_crop
+
+	rts
+
+
diff --git a/games/keen/draw_tilemap.s b/games/keen/draw_tilemap.s
new file mode 100644
index 00000000..677dd7a0
--- /dev/null
+++ b/games/keen/draw_tilemap.s
@@ -0,0 +1,143 @@
+	;================================
+	; draw local tilemap to screen
+	;================================
+
+draw_tilemap:
+	ldy	#0			; Y on screen currently drawing
+	sty	tiley			; we draw two at a time
+
+	ldx	#1			; offset in current screen
+	stx	tilemap_offset		; tilemap
+
+	lda	#0			; init odd/even
+	sta	tile_odd
+
+tilemap_outer_loop:
+	ldy	tiley			; setup pointer to current Y
+	lda	gr_offsets,Y
+	sta	GBASL
+	lda	gr_offsets+1,Y
+	clc
+	adc	DRAW_PAGE
+	sta	GBASH
+
+	ldy	#6			; we draw in window 6->34
+tilemap_loop:
+	ldx	tilemap_offset		; get actual tile
+	lda	TILEMAP,X
+
+	asl			; *4	; get offset in tile
+	asl
+	tax
+
+	lda	tile_odd
+	beq	not_odd_line
+	inx
+	inx
+not_odd_line:
+
+	lda	TILES,X			; draw two tiles
+	cmp	#$AA			; transparency
+	beq	skip_tile1
+	sta	(GBASL),Y
+skip_tile1:
+
+	iny
+	lda	TILES+1,X
+	cmp	#$AA
+	beq	skip_tile2
+	sta	(GBASL),Y
+skip_tile2:
+	iny
+
+	inc	tilemap_offset
+
+	cpy	#34			; until done
+	bne	tilemap_loop
+
+	; move to next line
+	lda	tile_odd		; toggle odd/even
+	eor	#$1			; (should we just add/mask?)
+	sta	tile_odd
+	bne	move_to_odd_line
+
+move_to_even_line:
+	lda	tilemap_offset
+	clc
+	adc	#2
+	jmp	done_move_to_line
+
+move_to_odd_line:
+	lda	tilemap_offset
+	sec
+	sbc	#14
+
+done_move_to_line:
+	sta	tilemap_offset
+
+	ldy	tiley				; move to next line
+	iny
+	iny
+	sty	tiley
+
+	cpy	#40				; check if at end
+	bne	tilemap_outer_loop
+
+	rts
+
+	; these should probably be in the zero page
+tilemap_offset:	.byte $00
+tile_odd:	.byte $00
+tiley:		.byte $00
+
+
+	;===================================
+	; copy tilemap
+	;===================================
+	; want to copy a 16x10 area from global tileset to local
+
+	; default at first we want to start at 128,88
+	;	which is 13, 20???
+
+copy_tilemap_subset:
+
+	; set start
+	lda	TILEMAP_Y
+	clc
+	adc	#>BIG_TILEMAP
+	sta	cptl1_smc+2		; set proper row in big tilemap
+	adc	#$10
+	sta	cptl3_smc+1		; set loop limit
+
+	; reset row
+	lda	#<TILEMAP
+	sta	cptl2_smc+1		; set small tilemap to row0
+
+cp_tilemap_outer_loop:
+
+	ldx	TILEMAP_X
+	ldy	#0
+cp_tilemap_inner_loop:
+
+cptl1_smc:
+	lda	$9400,X
+cptl2_smc:
+	sta	$BC00,Y
+	iny
+	inx
+	cpy	#16
+	bne	cp_tilemap_inner_loop
+
+	; next line
+	inc	cptl1_smc+2		; incremement page
+	clc
+	lda	cptl2_smc+1		; increment row
+	adc	#$10
+	sta	cptl2_smc+1
+
+	lda	cptl1_smc+2
+cptl3_smc:
+	cmp	#$a
+	bne	cp_tilemap_outer_loop
+
+	rts
diff --git a/games/keen/enemies_level1.s b/games/keen/enemies_level1.s
new file mode 100644
index 00000000..8661a783
--- /dev/null
+++ b/games/keen/enemies_level1.s
@@ -0,0 +1,339 @@
+NUM_ENEMIES = 4
+
+	;=======================
+	; laser enemies
+	;=======================
+	; see if laser hits any enemies
+laser_enemies:
+
+	ldy	#0
+laser_enemies_loop:
+
+	; see if out
+
+	lda	enemy_data+ENEMY_DATA_OUT,Y
+	beq	done_laser_enemy
+
+	; get local tilemap co-ord
+	sec
+	lda	enemy_data+ENEMY_DATA_TILEX,Y
+	sbc	TILEMAP_X
+
+	sta	TILE_TEMP
+
+	sec
+	lda	enemy_data+ENEMY_DATA_TILEY,Y
+	sbc	TILEMAP_Y
+	asl
+	asl
+	asl
+	asl
+	clc
+	adc	TILE_TEMP
+
+	cmp	LASER_TILE
+	bne	done_laser_enemy
+
+; hit something
+hit_something:
+	lda	#0
+	sta	LASER_OUT
+	sta	FRAMEL
+;	sta	enemy_data+ENEMY_DATA_OUT,Y
+	lda	#1
+	sta	enemy_data+ENEMY_DATA_EXPLODING,Y
+
+	jsr	enemy_noise
+
+	jsr	inc_score_by_10
+
+	jmp	exit_laser_enemy
+
+done_laser_enemy:
+
+	tya
+	clc
+	adc	#8
+	tay
+	cpy	#(NUM_ENEMIES*8)
+	bne	laser_enemies_loop
+exit_laser_enemy:
+	rts
+
+
+
+	;=======================
+	; move enemy
+	;=======================
+	; which one is in Y
+move_enemy:
+
+	lda	enemy_data+ENEMY_DATA_TYPE,Y
+	and	#$fc
+
+	cmp	#ENEMY_CAMERA
+	beq	aim_camera
+
+	; FIXME: actually move them
+move_bot:
+move_crawler:
+	lda	FRAMEL
+	and	#$f
+	bne	done_move_enemy
+
+	lda	enemy_data+ENEMY_DATA_TYPE,Y
+	eor	#$2
+	sta	enemy_data+ENEMY_DATA_TYPE,Y
+	jmp	done_move_enemy
+
+aim_camera:
+	lda	KEEN_X
+	lsr
+	clc
+	adc	TILEMAP_X
+
+	cmp	enemy_data+ENEMY_DATA_TILEX,Y
+	bcc	aim_camera_left
+
+aim_camera_right:
+	lda	#2
+	sta	enemy_data+ENEMY_DATA_TYPE,Y
+	jmp	done_move_enemy
+aim_camera_left:
+	lda	#0
+	sta	enemy_data+ENEMY_DATA_TYPE,Y
+
+done_move_enemy:
+	rts
+
+
+
+	;=======================
+	; draw and move enemies
+	;=======================
+draw_enemies:
+
+	ldy	#0
+draw_enemies_loop:
+
+	; see if out
+
+	lda	enemy_data+ENEMY_DATA_OUT,Y
+	beq	done_draw_enemy
+
+	; check if on screen
+
+	lda	TILEMAP_X
+	cmp	enemy_data+ENEMY_DATA_TILEX,Y
+	bcs	done_draw_enemy
+
+	clc
+	adc	#14
+	cmp	enemy_data+ENEMY_DATA_TILEX,Y
+	bcc	done_draw_enemy
+
+	lda	TILEMAP_Y
+	cmp	enemy_data+ENEMY_DATA_TILEY,Y
+	bcs	done_draw_enemy
+
+	clc
+	adc	#10
+	cmp	enemy_data+ENEMY_DATA_TILEY,Y
+	bcc	done_draw_enemy
+
+	; set X and Y value
+	; convert tile values to X,Y
+	; X = (ENEMY_TILE_X-TILEX)*2 + 6
+	lda	enemy_data+ENEMY_DATA_TILEX,Y
+	sec
+	sbc	TILEMAP_X
+	asl
+	clc
+	adc	#4
+	sta	XPOS
+
+	; Y = (ENEMY_TILE_Y-TILEY)*4
+	lda	enemy_data+ENEMY_DATA_TILEY,Y
+	sec
+	sbc	TILEMAP_Y
+	asl
+	asl
+	sta	YPOS
+
+	; see if exploding
+	lda	enemy_data+ENEMY_DATA_EXPLODING,Y
+	beq	draw_proper_enemy
+draw_exploding_enemy:
+	asl
+	tax
+	lda	enemy_explosion_sprites,X
+	sta	INL
+	lda	enemy_explosion_sprites+1,X
+	sta	INH
+
+	lda	FRAMEL
+	and	#$3
+	bne	done_exploding
+
+	; move to next frame
+	lda	enemy_data+ENEMY_DATA_EXPLODING,Y
+	clc
+	adc	#1
+	sta	enemy_data+ENEMY_DATA_EXPLODING,Y
+
+	cmp	#4
+	bne	done_exploding
+	lda	#0
+	sta	enemy_data+ENEMY_DATA_OUT,Y
+
+done_exploding:
+	jmp	draw_enemy
+
+	; otherwise draw proper sprite
+draw_proper_enemy:
+	lda	enemy_data+ENEMY_DATA_TYPE,Y
+	tax
+	lda	enemy_sprites,X
+	sta	INL
+	lda	enemy_sprites+1,X
+	sta	INH
+
+draw_enemy:
+	tya
+	pha
+
+	jsr	put_sprite_crop
+
+	pla
+	tay
+
+	jsr	move_enemy
+
+done_draw_enemy:
+
+	tya
+	clc
+	adc	#8
+	tay
+	cpy	#(NUM_ENEMIES*8)
+	beq	exit_draw_enemy
+	jmp	draw_enemies_loop
+
+exit_draw_enemy:
+	rts
+
+enemy_sprites:
+	.word	enemy_camera_sprite1
+	.word	enemy_camera_sprite2
+	.word	enemy_crawler_sprite1
+	.word	enemy_crawler_sprite2
+	.word	enemy_bot_sprite1
+	.word	enemy_bot_sprite2
+
+
+
+enemy_bot_sprite1:
+	.byte	2,2
+	.byte	$Ae,$e3
+	.byte	$6e,$0e
+
+enemy_bot_sprite2:
+	.byte	2,2
+	.byte	$e3,$Ae
+	.byte	$0e,$6e
+
+enemy_crawler_sprite1:
+	.byte 2,2
+	.byte $f5,$cA
+	.byte $f5,$Ac
+
+enemy_crawler_sprite2:
+	.byte 2,2
+	.byte $5f,$cA
+	.byte $5f,$Ac
+
+
+enemy_camera_sprite1:
+	.byte	2,2
+	.byte	$AA,$76
+	.byte	$f7,$A5
+
+enemy_camera_sprite2:
+	.byte	2,2
+	.byte	$76,$AA
+	.byte	$A5,$f7
+
+enemy_explosion_sprites:
+	.word	enemy_explosion_sprite1
+	.word	enemy_explosion_sprite1
+	.word	enemy_explosion_sprite2
+	.word	enemy_explosion_sprite3
+
+enemy_explosion_sprite1:
+	.byte	2,2
+	.byte	$d9,$d9
+	.byte	$9d,$9d
+
+enemy_explosion_sprite2:
+	.byte	2,2
+	.byte	$9A,$9A
+	.byte	$A9,$A9
+
+enemy_explosion_sprite3:
+	.byte	2,2
+	.byte	$7A,$5A
+	.byte	$A5,$A7
+
+ENEMY_CAMERA	= 0
+ENEMY_CRAWLER	= 4
+ENEMY_BOT	= 8
+
+ENEMY_DATA_OUT		= 0
+ENEMY_DATA_EXPLODING	= 1
+ENEMY_DATA_TYPE		= 2
+ENEMY_DATA_DIRECTION	= 3
+ENEMY_DATA_TILEX	= 4
+ENEMY_DATA_TILEY	= 5
+ENEMY_DATA_X		= 6
+ENEMY_DATA_Y		= 7
+
+
+enemy_data:
+
+enemy0:
+	; 156,92 (-80,-12) -> 76,80 -> (/4,/4) -> 19,20
+	.byte	1		; out
+	.byte	0		; exploding
+	.byte	ENEMY_CAMERA	; type
+	.byte	$ff		; direction
+	.byte	19,20		; tilex,tiley
+	.byte	0,0		; x,y
+
+enemy1:
+	; 272,92 (-80,-12) -> 192,80 -> (/4,/4) -> 48,20
+	.byte	1		; out
+	.byte	0		; exploding
+	.byte	ENEMY_CAMERA	; type
+	.byte	$ff		; direction
+	.byte	48,20		; tilex,tiley
+	.byte	0,0		; x,y
+
+enemy2:
+	; 156,112 (-80,-12) -> 76,100 -> (/4,/4) -> 19,25
+	.byte	1		; out
+	.byte	0		; exploding
+	.byte	ENEMY_CRAWLER	; type
+	.byte	$ff		; direction
+	.byte	19,25		; tilex,tiley
+	.byte	0,0		; x,y
+
+enemy3:
+	; 184,116 (-80,-12) -> 104,104 -> (/4,/4) -> 26,26
+	.byte	1		; out
+	.byte	0		; exploding
+	.byte	ENEMY_BOT	; type
+	.byte	$ff		; direction
+	.byte	26,26		; tilex,tiley
+	.byte	0,0		; x,y
+
+
diff --git a/games/keen/gr_offsets.s b/games/keen/gr_offsets.s
new file mode 100644
index 00000000..d3af91f7
--- /dev/null
+++ b/games/keen/gr_offsets.s
@@ -0,0 +1,5 @@
+gr_offsets:
+	.word	$400,$480,$500,$580,$600,$680,$700,$780
+	.word	$428,$4a8,$528,$5a8,$628,$6a8,$728,$7a8
+	.word	$450,$4d0,$550,$5d0,$650,$6d0,$750,$7d0
+
diff --git a/games/keen/gr_pageflip.s b/games/keen/gr_pageflip.s
new file mode 100644
index 00000000..f199f5be
--- /dev/null
+++ b/games/keen/gr_pageflip.s
@@ -0,0 +1,24 @@
+	;==========
+	; page_flip
+	;==========
+
+page_flip:
+	lda	DISP_PAGE						; 3
+	beq	page_flip_show_1					; 2nt/3
+page_flip_show_0:
+        bit	PAGE0							; 4
+	lda	#4							; 2
+	sta	DRAW_PAGE	; DRAW_PAGE=1				; 3
+	lda	#0							; 2
+	sta	DISP_PAGE	; DISP_PAGE=0				; 3
+	rts								; 6
+page_flip_show_1:
+	bit	PAGE1							; 4
+	sta	DRAW_PAGE	; DRAW_PAGE=0				; 3
+	lda	#1							; 2
+	sta	DISP_PAGE	; DISP_PAGE=1				; 3
+	rts								; 6
+							;====================
+							; DISP_PAGE=0 	26
+							; DISP_PAGE=1	24
+
diff --git a/games/keen/gr_putsprite_crop.s b/games/keen/gr_putsprite_crop.s
new file mode 100644
index 00000000..72fd8ab2
--- /dev/null
+++ b/games/keen/gr_putsprite_crop.s
@@ -0,0 +1,359 @@
+	;=============================================
+	; put_sprite_crop
+	;=============================================
+	; Sprite to display in INH,INL
+	; Location is XPOS,YPOS
+	; Note, only works if YPOS is multiple of two
+
+	; transparent color is $A (grey #2)
+	;  this means we can have black ($0) in a sprite
+
+	; FIXME: force YPOS to be even?
+
+put_sprite_crop:
+
+	ldy	#0		; byte 0 is xsize			; 2
+	lda	(INL),Y							; 5
+	sta	CH		; xsize is in CH			; 3
+	iny								; 2
+	clc
+	adc	XPOS
+	sta	XMAX
+
+	lda	(INL),Y		; byte 1 is ysize			; 5
+	sta	CV		; ysize is in CV			; 3
+	iny								; 2
+
+	lda	YPOS		; make a copy of ypos			; 3
+	sta	TEMPY		; as we modify it			; 3
+								;===========
+								;	28
+put_sprite_crop_loop:
+	sty	TEMP		; save sprite pointer			; 3
+	ldy	TEMPY							; 3
+
+	bpl	put_sprite_crop_pos	; if < 0, skip to next
+
+	clc				; skip line in sprite too
+	lda	TEMP
+	adc	CH
+	tay
+
+	bne	crop_increment_y
+
+put_sprite_crop_pos:
+
+psc_smc1:
+	cpy	#48			; bge if >= 48, done sprite
+	bcs	crop_sprite_done
+
+
+	lda	gr_offsets,Y	; lookup low-res memory address		; 4
+	clc								; 2
+	adc	XPOS		; add in xpos				; 3
+	sta	OUTL		; store out low byte of addy		; 3
+	clc	; never wraps, handle negative
+	lda	gr_offsets+1,Y	; look up high byte			; 4
+	adc	DRAW_PAGE	;					; 3
+	sta	OUTH		; and store it out			; 3
+	ldy	TEMP		; restore sprite pointer		; 3
+
+				; OUTH:OUTL now points at right place
+
+	ldx	XPOS		; load xposition into x			; 3
+								;===========
+								;	34
+crop_put_sprite_pixel:
+	lda	(INL),Y			; get sprite colors		; 5
+	iny				; increment sprite pointer	; 2
+	sty	TEMP			; save sprite pointer		; 3
+
+
+	cpx	#0			; if off-screen left, skip draw
+	bmi	skip_drawing
+	cpx	#40
+	bcs	skip_drawing		; if off-screen right, skip draw
+
+	ldy	#$0							; 2
+
+	; check if completely transparent
+	; if so, skip
+
+	cmp	#$aa			; if all zero, transparent	; 2
+	beq	crop_put_sprite_done_draw	; don't draw it			; 2nt/3
+								;==============
+								;	 16/17
+
+	sta	COLOR			; save color for later		; 3
+
+	; check if top pixel transparent
+
+	and	#$f0			; check if top nibble zero	; 2
+	cmp	#$a0
+	bne	crop_put_sprite_bottom	; if not skip ahead		; 2nt/3
+								;==============
+								;	7/8
+
+	lda	COLOR
+	and	#$0f
+	sta	COLOR
+
+	lda	#$f0			; setup mask			; 2
+	sta	MASK							; 3
+	bmi	crop_put_sprite_mask		; always?			; 3
+								;=============
+								;	  8
+
+crop_put_sprite_bottom:
+	lda	COLOR			; re-load color			; 3
+	and	#$0f			; check if bottom nibble zero	; 2
+	cmp	#$0a
+	bne	crop_put_sprite_all		; if not, skip ahead		; 2nt/3
+								;=============
+								;	7/8
+
+	lda	COLOR
+	and	#$f0
+	sta	COLOR
+	lda	#$0f							; 2
+	sta	MASK			; setup mask			; 3
+								;===========
+								;         5
+
+crop_put_sprite_mask:
+	lda	(OUTL),Y		; get color at output		; 5
+	and	MASK			; mask off unneeded part	; 3
+	ora	COLOR			; or the color in		; 3
+	sta	(OUTL),Y		; store it back			; 6
+
+	jmp	crop_put_sprite_done_draw	; we are done			; 3
+								;===========
+								;        20
+
+crop_put_sprite_all:
+	lda	COLOR			; load color			; 3
+	sta	(OUTL),Y		; and write it out		; 6
+								;============
+								;	  9
+
+crop_put_sprite_done_draw:
+skip_drawing:
+
+	ldy	TEMP			; restore sprite pointer	; 3
+
+	inc	OUTL			; increment output pointer	; 5
+	inx				; increment x counter		; 2
+	cpx	XMAX
+	bne	crop_put_sprite_pixel	; if not done, keep looping	; 2nt/3
+								;==============
+								;	12/13
+crop_increment_y:
+
+	inc	TEMPY			; each line has two y vars	; 5
+	inc	TEMPY							; 5
+	dec	CV			; decemenet total y count	; 5
+	bne	put_sprite_crop_loop	; loop if not done		; 2nt/3
+								;==============
+								;	17/18
+crop_sprite_done:
+	rts				; return			; 6
+
+
+
+; 0,0 = 400+0
+; -1,0 = 400+ff=4ff, inc=400
+
+; sprite: 5x4
+;
+; -2,0  Xstart=0, sprite_offset=2, xsize=3
+; -1,0, Xstart=0, sprite_offset=1, xsize=4
+;  0,0, Xstrat=0, sprite_offset=0, xsize=5
+;  1,0, Xstart=1, sprite_offset=0, xsize=5
+;
+; 39,0 Xstart=39, sprite_offset=0, xsize=1
+;
+;
+;
+;
+
+
+.if 0
+	;=============================================
+	; put_sprite_flipped_crop
+	;=============================================
+	; Sprite to display in INH,INL
+	; Location is XPOS,YPOS
+	; Note, only works if YPOS is multiple of two
+
+	; transparent color is $A (grey #2)
+	;  this means we can have black ($0) in a sprite
+
+
+put_sprite_flipped_crop:
+
+	ldy	#0		; byte 0 is xsize			; 2
+	lda	(INL),Y							; 5
+	sta	CH		; xsize is in CH			; 3
+	iny								; 2
+
+
+	lda	(INL),Y		; byte 1 is ysize			; 5
+	sta	CV		; ysize is in CV			; 3
+	dey			; make Y zero again			; 2
+
+	lda	INH		; ???
+	sta	ppfc_smc+2
+	clc
+	lda	INL
+	adc	#1		; add one (not two) because X counts
+				; from CH to 1 (not CH-1 to 0)
+	sta	ppfc_smc+1
+	bcc	psfc16
+	inc	ppfc_smc+2
+psfc16:
+
+
+	lda	YPOS		; make a copy of ypos			; 3
+
+	sta	TEMPY		; as we modify it			; 3
+								;===========
+								;	28
+
+
+
+put_spritefc_loop:
+;	sty	TEMP		; save sprite pointer			; 3
+	ldy	TEMPY							; 3
+
+	bmi	fcrop_increment_y	; if < 0, skip to next
+psc_smc2:
+	cpy	#48			; bge if >= 48, done sprite
+	bcs	fcrop_sprite_done
+
+
+	lda	gr_offsets,Y	; lookup low-res memory address		; 4
+	clc								; 2
+	adc	XPOS		; add in xpos				; 3
+	sta	OUTL		; store out low byte of addy		; 3
+	lda	gr_offsets+1,Y	; look up high byte			; 4
+	clc
+	adc	DRAW_PAGE	;					; 3
+	sta	OUTH		; and store it out			; 3
+;	ldy	TEMP		; restore sprite pointer		; 3
+
+				; OUTH:OUTL now points at right place
+
+	ldx	CH		; load xsize into x			; 3
+								;===========
+								;	34
+put_spritefc_pixel:
+
+	clc
+	txa			; want (CH-X-1)+XPOS
+	eor	#$ff
+	adc	CH
+	adc	XPOS
+
+	bmi	cskip_drawing
+	cmp	#40
+
+	bcs	cskip_drawing		; if off-screen right, skip draw
+
+ppfc_smc:
+	lda	$C000,X			; get sprite colors		; 5
+;	iny				; increment sprite pointer	; 2
+;	sty	TEMP			; save sprite pointer		; 3
+	ldy	#$0							; 2
+
+	; check if completely transparent
+	; if so, skip
+
+	cmp	#$aa			; if all zero, transparent	; 2
+	beq	put_spritefc_done_draw	; don't draw it			; 2nt/3
+								;==============
+								;	 16/17
+
+	sta	COLOR			; save color for later		; 3
+
+	; check if top pixel transparent
+
+	and	#$f0			; check if top nibble zero	; 2
+	cmp	#$a0
+	bne	put_spritefc_bottom	; if not skip ahead		; 2nt/3
+								;==============
+								;	7/8
+
+	lda	COLOR
+	and	#$0f
+	sta	COLOR
+
+	lda	#$f0			; setup mask			; 2
+	sta	MASK							; 3
+	bmi	put_spritefc_mask	; always?			; 3
+								;=============
+								;	  8
+
+put_spritefc_bottom:
+	lda	COLOR			; re-load color			; 3
+	and	#$0f			; check if bottom nibble zero	; 2
+	cmp	#$0a
+	bne	put_spritefc_all		; if not, skip ahead		; 2nt/3
+								;=============
+								;	7/8
+
+	lda	COLOR
+	and	#$f0
+	sta	COLOR
+	lda	#$0f							; 2
+	sta	MASK			; setup mask			; 3
+								;===========
+								;         5
+
+put_spritefc_mask:
+	lda	(OUTL),Y		; get color at output		; 5
+	and	MASK			; mask off unneeded part	; 3
+	ora	COLOR			; or the color in		; 3
+	sta	(OUTL),Y		; store it back			; 6
+
+	jmp	put_spritefc_done_draw	; we are done			; 3
+								;===========
+								;        20
+
+put_spritefc_all:
+	lda	COLOR			; load color			; 3
+	sta	(OUTL),Y		; and write it out		; 6
+								;============
+								;	  9
+
+put_spritefc_done_draw:
+cskip_drawing:
+;	ldy	TEMP			; restore sprite pointer	; 3
+
+	inc	OUTL			; increment output pointer	; 5
+	dex				; decrement x counter		; 2
+	bne	put_spritefc_pixel	; if not done, keep looping	; 2nt/3
+								;==============
+								;	12/13
+fcrop_increment_y:
+	inc	TEMPY			; each line has two y vars	; 5
+	inc	TEMPY							; 5
+
+	lda	CH
+	clc
+	adc	ppfc_smc+1
+	sta	ppfc_smc+1
+	bcc	psfco
+	inc	ppfc_smc+2
+psfco:
+
+	dec	CV			; decemenet total y count	; 5
+	beq	fcrop_sprite_done	; loop if not done		; 2nt/3
+	jmp	put_spritefc_loop
+								;==============
+								;	17/18
+
+fcrop_sprite_done:
+	rts				; return			; 6
+
+
+.endif
diff --git a/games/keen/graphics/Makefile b/games/keen/graphics/Makefile
index 8edb44e5..6fb28fa5 100644
--- a/games/keen/graphics/Makefile
+++ b/games/keen/graphics/Makefile
@@ -10,7 +10,7 @@ PNG2GR = ../../../utils/gr-utils/png2gr
 PNG2SPRITES = ../../../utils/gr-utils/png2sprites
 HGR_SPRITE = ../../../utils/hgr-utils/hgr_make_sprite
 
-all:	keen1_title.hgr.zx02
+all:	keen1_title.hgr.zx02 level1_bg.gr.zx02
 
 ####
 
@@ -27,6 +27,15 @@ keen1_title.hgr:	keen1_title.png
 
 ####
 
+level1_bg.gr.zx02:	level1_bg.gr
+	$(ZX02) level1_bg.gr level1_bg.gr.zx02
+
+level1_bg.gr:	level1_bg.png
+	$(PNG2GR) level1_bg.png level1_bg.gr
+
+
+####
+
 clean:
 	rm -f *~ *.o *.lst  *.zx02 *.hgr
 
diff --git a/games/keen/graphics/level1_bg.png b/games/keen/graphics/level1_bg.png
new file mode 100644
index 0000000000000000000000000000000000000000..9a6005f1813b21ae52d12255f889c6fa5019f9e2
GIT binary patch
literal 14255
zcmeHucT|(j)^7+Py^8eSK?0#e=)LzQRYC|5dI?Q>FVcJOO%wzLq$|C51f(k}Md=8N
z2si3`-t(UOoqN7}*1F#xcde7Pk|#6s+rM3A?|EiDnZ)U8s}SH);{pHx0yR}debiMK
z^#)_3qdprY2nGNE=JN-J_mKKfUq*LNH#>wgoDu2o4rhe>A?yGEzva3DQy*IKESDSp
zcxvFKotVSo13|yOr$N@*BaavbD|OYVSe1MQ(Otc$0Y!E<H#ffHH%HY*pR_b9KW07u
zpyS;5ZIbA<bjan8J?GB*hs9?P;zB|$yKorz{DLb(I)n92KmA~M=_})U6!_^XW8Kwo
z`%~2Mw<z-a7f)ZV?tCdJA@L8s_mrl2F)=*E%Ka(LnZ23F3$yiV@cC&_(0GOP4OI}%
zhxPA6TERbjc@*8)f~h(;dN9XK7_J0E-ERa-Ps6t#6J&})uFq5CHy;yy6D9?o7!`b8
zsTqH2`t5j*&lIu$sp6>NJ7FK6G?w7a*Xs|5mY0yPAEUqSk3hSFPl`j_9_qZ*-rjoY
zWh}h?+1^LWPCoB``en|$A913D^7IGr+?P=|q%zsxUmU-nuJuhTgjdsD71oREm?b@Q
zZ97O>x%iGuXHtF{^tR(-F6Mg&b-Y_Jw-c}85AUJu>0aDSXRTS9uXQ*4<i5o#2U}H-
zCH=(Lcj-h87P@A#ZyvtfSl^+|?DWEAf8;AFGx->sDq5iWY3IYp)>A!|-CJL`4xff(
zEXv-RBk+QUuO)4hv$UDGJWA@-LT)C;9qO33KC=>KRFst9r>vER<XfupN{seUY{$ab
zWD04F7|IwbURA!QC_m$m)b!k;ESeA=Si87<Uwl8pl$AM(7WWaNH2pDlgPshVv13hj
zij6u~b(*8&qwN%!w)l1$W^h*|sRnmjhQ7w#u4rnf+O{k+Eth7|4d7;unQP_i1+zoR
zCa>+u*M*{I(pT6lNkS)_<w+u!6@hjIh>xar!p|qVuW<1S?)hgLnV1K4XmRbg&P{fF
zZeKZw(U*AJpRO(aVSY~gCRNzJsOfs^@X&rD$aZ2wb2ssW%0g>XMzXnBkDC7Ea87bk
z0tGxY{CqUGj#t?&1M*>9M8|}6iZea!d4YiPtt}sEx(gOx8NmxKH}=7oqxm<(1$uke
zd;<0v?QQ}WQ=LJn&1@~XB02d?&86Xv==(2vDBK@nO}1O2MJnH-*N~an?tVTfhMr#7
zH`FP~RB)Xm4nuo+G7@y44z8_!>er|Gkiza`Zwry=(vhBp)dmhf3)kEE427DwRx0=X
zlpm=?XWn++;tbIi-`br=%j+|f2Gx8s%ZpV@`Ro^ShK^+F1w!0STcCmp8{f81ItcQ=
z%ln@-4hq%jf=V+)I3L?=L%Jtu^UQ~`x`%Z>@Wb^>nIsmy*c1_U-Q<_AJeb5=;;bnc
z&Z#!P@c2K)$ZfKUJ)T6oxYMTaZZaX_tlpb5ToG;Gquq(A`oPz>OMA<!N@x_#%D_tM
zAboXpVc&8=ldI_<F2uFy8M|Jhi0T{Rb$Kp<5E+#{jm(KNHFm*OV5G34Wiy3hy!mr{
zLp7YnVsN%TxxfI)^WyZR+(g%r=1jTInt6u1Y5^Y$O%9+d&7*NatsjlZ3|%?2`x3ot
zk}EgT@kbKx+^y7VFy@&9k3IiB+%sn$P&ikE;n)tY-Mr)t|7`lG(29;Ahd5z`Kfh?f
zR*W}MHYaT)N)M}E3x|m%_K|BA=F6g#WlmzKYC8F7XFm6O>agIgmv|XL&I};nosq9{
zH9TDdN2}II5CR#nuM|=pNPCZ8+g!UmX+aAw<;+Lr#mFu``hIh0>N7J{SS7w*a;v%6
zW5rFhrJR8|ckgyV>}z@rz^e%-vvJsvmq0mtfNKu_wqD?8-V!2gU(U3w+Wml)38lIU
zuv_y}A-W%cLH#HVk7fE+X~Yb*T``?3l|GKL@~9ZI&Q$__L<l*}vYd?mrc=Q#srv9*
zYJbzW<y`HzP^X+Ws+r*mt{8Dd$&3%|vmv$8C!I0CsLg0bAeJW8N7s26knKT5w8eeH
zG5(5Vb!oOV*g9GCN_DMK&9i0MHn}(DJ-*bi=0ODx`6}$sBC`u5*y>M^>7+PS?8KQC
zE^z@=mHb&$r_%1em}|>RT!!*G(Xlwhi-b`D>I727Xu7rv_EobyoH`hyZwXz9>fb1)
za=<CE<(8%#03QH0+dGERebg(}AIy)DscyFd)vAd|^|<Iy@>X!gQndnWq=_SX-?U7d
zy1rIWy;RRPJ}ELTY_L2i853c2znA}xx0T2>=S6Ktl&N;{i%ws)VELi|^w{}Q-%Mg%
z+Mq=GN6Xmv>CnaW98{kZOaeT7E<{E$H);!wdpr(njQioXv_j0n2h@fV01D5y3uRu9
z(dZ(n&g|Bjwy9Ua6uh>c4XmWz=ut@!Mi)cP7Vm?1<exns0E3g}9XOOT9H}yvmNHf!
z)x`(~7NZvi<h}ZC%l6}m-_EdlL)^S$iRk_tOfj%<P9bQO&;~TSLr&VJD{qW^wbk-i
z!oY~x@z6;dYVT&BX+cM%h3{=8wo-zR8>mMdw8v2r#T52n#AwNQO+ll6J-12eSZ__N
zO%MX}wxzN?FC2WVNl?Ypj-w4#9}2xoUdgZ601l+{Ct<-MQpd1zD0O8b&&bF{r-Hrf
zW9`XzFB$jP+#@w^OH}V^_k8<2BenYL`W<c>jBsZnqYQp#wE1_5Qq<J7k<uFGSdG0h
zfIj|t-Of~QEK|HM4~1=7y1x%@72%v2i7XH3MI}&wkYOjXRkb0g8EOViZ;9g%@mivn
zGP&c14rzb|@8B>29Cg@mZdJY23NOVusZDdfr;;gTx7nt8v^FeXc5@7y|JZ;}ch6jw
zp-?zw`$2|pm7uY@xiDGV7eMH?!JN_p=iYXdvC}lGX_oHdGzKr2Iq^RBn7Hn_e{EO@
zKJXshDV#o(+ix?peamIiOJ#$Tn_X3WZaAfap$<-Ir(n`FY^WeQ8tJo7Uh!eCG}8Ma
z#;gJ-EjS^svdRwx=pnE!ZkwP91g>Z(HYVoK5@^2Eqiw0>zp_ZK@DE?hWNKA^*B-9*
z0?8H0$!~~O*Hrh7g2E<)LyNszDWQTu>4mKbhCKTs@3_QQLRy1aS3hJD%UqWUBSTIM
z9ZyRfxq|vrF-}(%Z~KjBuVxsZ3eJaEVA7Gu<IF_JCSW}Q_3nNSZMmg!c$Y9%)Ve={
zWT(VL1^Jy&kdjXbva@q<D4~Apk%P@X<ZA+X9o^KXLwsBhw%Iavdal9yxcYK76=2HS
zVCB34ZK_(rRL2B7XLduuNHkgPug+rN)jl`EeM5hm&tVW5x({qNRjsvQJUP^H<lCpC
zON{Jm%6NUl06_R2PpG3(c*K>;qlhmo`jxD-C$^F{W}>sXq>h_-$!|$Kcy~`1%*(#e
zDYi}9gknea-&k+W6Jor1I|QtXQApub-6=RQ^zQ32SgssmO6A-~vtz)Z_tUJ1qqx;4
zxNC%qEy4LoaTeq)ZcW0c7fXru2JEwg8OiK|MmG!8Rg8)}k}w>=?c_5IpVfVoj%4E7
z3|G5Kz#QH^Msqyaf8`NKlO}8k?lC{2j<(8)?euHip{)~Bi@zk|!AIA&%Q7Fm56q2(
zegQ+--r$nyIdo!0Dqu!@om*@)lCGdP$B4E7;yo`FtzdiP{3=W@?D`#(1=-SV>vewK
z&|yVhT<@5JSiWz}ir>{)4>HqqsDk_O@<7NDv>!B)0VJY|U4wK(JGPC*L`wHql>4AG
zZ<)VBN_y;)vaz_$2(fU;JtJToqXqBYUsh$}-Xjsk|Aw21HKHC-!VsIEq-B+Xz<QrF
z>Mcz6Jn!OxgCwWNn#HBAgLz6XU3<oLk&|}zBSZmb71bL$Sd~V$@m+Ll?5D@@_|E}R
zhCqkO)0T0y$D!&*rY)({24D5f-lP)MM%4SDbtPVLY-B*~6>%C%@0FBPE0R|%?&3bk
z*~MY9)O|m6+d3hjcAqeddx}!v39l~Pouc1QpXNYwg|&R=Ek^k}<I2s52EzJUB(<|_
zfXUnIvb+v%30+m)oYe4KS1XN?E$(`<Pst`HD$;1%nYa3LDelzn-fh<9VN{i365Vl%
z9ThjIDNS@RG5kvBSQ%y6f3_s6%CUJZ&<m`RUnsTUe|C>$YR%pu6f<yoGWMguqag!&
z-YC*({S0%r{-|D+k1(1>SPXA(5O@Lb13HgDG{~hTgd<u?o=Y{gSKt{>UbCfZNHN+4
zjo1eA7Fo7NXx^eEJjH6+<kED{;6ly~r(2rDn)LUM-7(w9GZa(|O~|G9lc9VkLQ@;N
ztVt=oXRAB!zNKg<+h8}>UlH9|9cIT(IC5VWVnbws^Q{rOq)OCtPYHiy18Q;*EAdd4
zUw}Bs?uuG`(3qlyYwVHA8*F|qIZk@jp>WgWQ=s{&?$b?Gx+WF<k39oS7h%A0j~#14
zDzv+Dvd&VL7%qe+WnXD8V))FkNN7DmL-CU1deK+8Ovo4ym)Nrjz<`>t;JrH)l}Xkd
zakW|q1p%~y7rhr|YRbYn-!J)|$}e|ni)deQg?9!R$O=vB5FqcQpmnl_2P*&(Mu$Et
zuVrmVH84AcVvU!I8LqV-&cm)V$#c=Tm87e9zYo`W3fRK2`=)`dkHUyIao<<;?I88c
zd$QzNPX-%o<f~~9>G1KBw+g?Cz9L~%t>D|^VO34=!2@2Bkcm=*chD%Cr<)ppWu*O8
zc`8_ZvUsZxnKWuCZf79dG0n1?j<Bf~j~2+l_hf}fBOZtqY49i453+5W>XFstN~!lJ
zf6F8Y#L<kk8FVq0qaVf}lVc)8pLUG0{*<wA9lcs%?N6@ni~e|%fh^nz%*1xDRqfhA
zBN9s@P)ocuOl*_N)?s6b`O1e2O^1--ZH`Hj5X0;R?+*IxVDG9zN@!*j4F^1V4lDIX
z9%3slWo$yZjJ`Z8tTSG~sZhtJq}Mf)a>|K$LMt6IrFs;{ge{u-{hr<l2Kq5*p~G3^
z8-wc=tFTxh{%{lnk9F|$D;ZNp!n6y+#!9cY2lo{dG<(!wM8wY)6LY+Kuvfh%CGXVZ
znyGr?SaV<)vk;0+14Da>;iJ3E9A4`BR(QS#M<J<!o-9ZHb1-!g8Pod`xr18C%X(?=
zaGwk`Ec%qKHRV+*iAK3r+)2G=eA4$2`7mELOnnQ=h%RhYa`&DYu8NbTY;B$yy?FL(
zSH9cQNYP8rt?y{FGx+a6H0!d;j-%b)JMS~(EThnS)A8&Ju~EhRkb<EZpX`x9jBVqm
zQufH(&AmI>pUP6pUT5J}#3>)ecsMn)8Cm$;opO8#iU0^GWbh?C_$<=zg46JdmxmYq
z{_LPAvsUi=L9>M_D(zO0VrJO^W)_EFW%Pvd1l?wVPEP{UCoZB-2%?FnnzGI|m(n~|
zvpgKX;TE>?EtPzInlZ-5W#3M2PFd^FjsGc!v|s);et#|{#Eg=MC2yD!xGJCm%6Ft<
zM_`7ui3Q?+taWT}^5apjItjzw%okuje`FLWd2(A#89P<N)TrIP)k?$L!0Eg+MiZ`b
zrgG<)y_3xuZ~r}$cz1KLDgs$Ipq-qBPOMxi+QANB7D|kB*BDC)20fY9c{}VcHS5Di
zs>5Q+jeqTF2CSsxc0Gmg#L(m<z(QY@tG_xdy94@~slGv)=WuVeM^T12&O|Wwrq-^g
zdDN^a-kY263BFFt?Fe`0T*d-CrE|Z8K}$3;61J+?Fr-SahqF`~*;18G+?SA87Kh%e
zDj`QPwK_>`A=>?YDq&Ze4zteMK`M8vPo4Uq??`vf>!E1)(__!0?-+s1`exZfbvzVA
z$rS5fGv5Ukc`P}Xxajg%Q5Cyj)N97SUsImurtC)s?r@1%|ESj!a}Mspk6jL}W5Hg<
zU)4X5khTixs&%pA01h^FQu+<Vs9qSX?BH8T%nMKQ=h$0PHf^Mr-LyHJ<U6s~%4c})
z53;PDMP!554_Ab#A9QVOoLgB*@Ttb#7jYhc+1k*3xP+X~@u?brR)c1?0lmvs*OB#<
z7FQ&xLk75j2vepJfjjn)5JvR?EkTPMvrEgdLWHuRD_!JT9rKbRnXOx<Bkxb}>OwPd
z%vfaAM3=@W>U__fn80|ztM|zs(r>fX=eX%C4-Nb1w~fG~^homtk)_EdCg(HW><Il_
zpo{U{er(!KGID0KBP8x3$;TtPrXn+?mD$)<yFIKC{Lh<A;rTr??8~vMX8Gkb&5g1c
z$4#wG9V`twOJ5#6i+d1PMHoZAUXq#lGULIk{GRKSSDxS1bR7~qKDzYxws!(Th>b|g
zfriic@VyYGUQL*?%t)Kh%NM|h`T3a2t`1h3(B7i_X-4LIds$FfG`d0g-kk2T07mig
zGddO)x5$T8nv%AI;!R>U%}tQ1())sn+yN6b+)Y|}JbRCvGX}-n`KZh7OwsJJFbW-d
z#tnL!qIny~6a<yAG`Lg3nj!;7NQJ>_`)2S#*?gkAkYlis8Ixi|6Q4_p(<jVABGK@d
zb9pTWz_7brjp#ZOzDlKQEsEVPgQ?kIG5Wf#+qKx9nu<}z)}Y}h@z|SsAl+zVhZz|F
zeP`8+N5hP`AA`QGVGK4!%!G*%-*L<l$U+#HoT-E+YYlpefxJt6N*Oak&&N2qocR_~
z5W^JwFF;1(NAcsZ`&uKkBu=Xuj1dv@gRD0lxjliZABl^qf>JBiZVLqzA3Z6aWlQ-m
zeR;x6lhe&Z@WLbEmVHZT51@Er^~+{sQ$^ZNl_Aw_4?+@tv;$JLWm|EOl6TQmRK}xo
ze7)wT-ZamC@1%~GuXHHQ!iM^x;hd7U<aRtTP3k4iuGi3a8hoc0IOg!@97wwEHFb}Q
z7v+P_YH_IzESmAfpyZ6<?@d%Qm)Rx>BUF78GhXS8;FmwB`b-y9+nn;GQYe-<c0aUd
zo>{Icz}?Sjq(#1ARU%ErAy&6C%+R4e_YDoL9=b36Uh)uuKUt#4sYXXlENk?+)0^%x
z;ljlhUJ-+pvuf)&PS%JQ;|`c0veId;LccydpU-t$3iQi%dxQ#)F1hgJN_yQCNW;y`
zjzspbUMd%rt>S0XhS)~yUUS}7-Z0|V4t6+*VD^6t%!_C**-Yp5l7G}j8JWhQ|E2Xv
z_OT>hM$KVukT8%qURCyMr3sAzdS=w)48I;WrqSsfTp#Qjio~!NenLsvPQ42zbr|#n
zpXp6YA`fji<Z`s}YRL3Uo~n^xXD19~$bV#+wcc|Q-X#fek}?~nnb+=hW8~bDRW{u4
zcf@p&+>BkX2%1P6VfLo!KvQs2R5D7po^OH<_lqpQB5}rNAs!lj7;j`g{mtd}+SN5L
z#2V*;<BNW${2lj+=fF@;?g>Vr-I(AQP4*_o<j4=7QdJ!8i7nwaR)y@Nk7<Fvf-&f$
zdI!B(TpIE0_WDD8B&q4({`v`K9hg$>GT20IgEu86@1z8J0yQtGTxLa@gmoyKrYL7l
zSXQx?8%wIm7e5#_cxXH(-?F`^!4yO@vv|_?;3`|Ia4G<@yEUwOkiCJ=AIL@gtZC{?
z(Ud{#9E`p}%vMn25?S~ouzL$sG(eHhS~>2A)6Q9gKl-G}v|Z;u1=rNtbYU^?_idw(
zV`G$rwZ8X_V#NJ#B`cs2Ss3De<;Nzxb?&bd=_t~v=_U1S61M-MCUrqUGL$Y-yUSfP
zBq|YuPrC8sn<?-a1OvmG>d5B7{%LkFmU;8IRZNlmzDdG(4}aL&tIYSJBs^WOJ~m8$
z*?@qabqL3+wHl!@bX;UhcagR|J$VaW&`dfr5ieZDV{6r)yyY6LqDQcFobBqpEbXs9
z!FW8gY^Ey&-mckA?#fA9Kex%EdJ7XAT%VwfTo1qxi9T8Z*ev&+-%`lAzrwG0YKcF=
zU=tf0cr@9^@LGq8VIU)(?WV7HYsCG|(R;N=i!EI(eVa+^&9!m)z$43GP|j}qG4d+m
zfvnsGi-!#xrrnlg3mv(;x;Q*;H5L!JAZxSl{-(|wXsyVp@Eo(y^IiO%es13nwzIWW
zq-xZ}oD2Sfhj*!K*HMmAaS+yM&2qifMF!Sj(fQ#mf8r`j*!ha5No_{g6Y+F!*%tCv
z8{1uCWF3-=#0b0CNsFLipyZVw=rAnQK{%v(Q&Pys=rq&6IzzKCRcMn+eKX=~J_QF>
zzmC|-JfYV$wai5<TlOw^`Icw4@!Wn{cL*8AI<8V4VD;B_;V#>nrqtNM4nCCI18mnR
zaHfrj-J-6xG=<%b0!S%*(*Ev}X=tp-GiffeTu2bb2Bd9zLxjh&uJomh&Wa|baIz8c
zd3at{jxqDjDC?fWMPbK4lbn8`pzL1x@=GVn+ucEGkB2Y`UVP(nI<9ssP0CrnjTP5G
zm-%D*qamK%QoyRcHfW$HK_kEzoT=d4DHD<ZiE2;wVc25T!`CD<yYak{NXa#gZ{ee6
zjF`F=uNyzNcGL-CM>&{yQ{dNYq2)2iJfmxm<XG5`=?j-rA&o`DRYJa6>cG_KvxLP4
zQ9c*Jzu;u+rv#~k%q2-Pfb3zIdUtV7q&`wJ$U<3?rpt9<uU$9h9XVy1MW?n7cxQ<k
zfbJM3e3XLsyLGFPEL}17{g;U3gztNs14cpuC!9T)iP4D-J%JbspiYRwxr^ka)tW~@
zpCe|=b<CnJZJ1%515%c-NOs+6Mb3#%uji@y_mKL6sVJDV5g|NVs>NVPzhhCPJF9st
zBPb>2<K4sQHe$nh_Jw)1nXxgoOE^+MG+wMO#rl1u1&ueOM!<rZ?m3&;er9_>6M(C%
zPhCjlKyIjFQ=z@M!_aVMjk!vPM(QO@3uLy)$(eC@ed}Iy5?a_|?Y?P3!NukQWJ=eB
znL}e}emIWsc$W1+t5ABigV}t17hx4<VWSRok5bx4N+g1DD1`N9DF1Hp2USs%gez{P
z3OQD#CNy54Ke=u9{p24092qH@?`y}Vr&D81l<97Qv~(KXUO4T#G`v<44gzS&uwz3;
zpU;n2%u*+-IyH`O&u8UYB$+#z?4At&;99=<x_0$KboH=b;x)&YW7l!%8YG8Nc2P9t
z8e9rEz)_fK5G4t$#;TAlXL{H~t)w^=xR7}GY$otA&G)r^Qg+G5$SLZz?K=?MQ<(qc
z=7;yEGCG61k?-p6<|ueqp6bzzS7BX@QMcQ#jzR;TI7AK`f1krU^p+%zC?QN6n>;qf
ze=?QY8ZWk{HG9yD@!-C$rU=(<mtw@1=QWvQrFKo$)dMT81w7)kStKSksULgZTOw=%
zbZkc@9qo~wq-E@HqjzX*>f;N#E<_B#trVk4=I0>xbBzGd*#(BQ(@Q%3Xv?{qvc-@e
zuInMCUfl}0O3&Q+N+Qe!Giv8nGH^yyMVX#Be7pT_*dmkl%}zl1kArFVaL6^pvA%jr
zx~=hj@jRgoHwUpkRuM5S%Mx}f*8N<SM#c%kQiN28eWOA6rHACfPD$~cI64Lue)*9s
zne8lYknju{WTw!}pJ}3y1VJ*zD(sRm7=Lmeu(~SD^}^o2PwKAo^1zJa4sPw7c6=(m
z8>QVfL2OVI^dntAq0)~z9lcCQZQ1R1!za^=%p)`P+eJBm0uhpl6he>XK>_S%ht0D^
zdFMD;+K(B=Ww-ZJ=z;EvLoY8ZGe~cd4bfa=h`rZto46%!!<3`w3vuxx=XVUlUD5i2
zm$^k5{Mdh-Z>^jqS5$uZI1kBF((+z3&nhN_*?G6Tc$l+#4p&2EHI__$$RRN|>*$55
z&!-IU*XK7W(UeVqt)AE+W<;zg^@?2~_rh|Xr770KPVK{-gp%Zx0>WZO`qbg+m8i!A
z6e}#}L!7KN`j7K%aX$3F^mi+WvuM|n$g}~-7h=yGn-^|%aO>eM+GhvLjS0x@(iFbw
zvBD>_R=XF5eI{=B*tkN6TKUs?{fnnVB;K3cQXNcK(5p0=bnXS5`u*yp{t<NcIdkNm
zl#+J-HniM;IIeZ3EHehkvDax9vkHj>rgOEz;8@SJvDDv3iwKwx?SVxgh$l+n9*^6E
zwXpLO*TN2WbRZ_xvpI1EDhu`2W*!U(*wIv83BexFH43#xyM7)8hPbstU!Cx9<0_|q
zzur+`QQ?0@rC%WSI`xIxyj1k;{&cfUWZFcN$HQ?C$?en-{3hWy1$<t4c}!HA4?tiX
z6Kz;|6Pi|2O(4-VQzh2SRt($@W6ur=h<)dO7mz`^%W-wdcz<DNhy5r%a%>4v|LJm5
zPIp%&6J3#=BQiqmOmJW;yqJ?acx2vjy4j3(>{3iI$KYY`h`t?FrmJXOY~-Hjz8uFs
z@Vb8ny<?KmaIQD_%>;JFSzB&QBs8IegmX(Wt-`$Vf;DxiB+IC2n<P@^gO5F6UbnUt
z<mE0P=Ew8xO^URjBjqYVN_lnk;-Kf9H@kp6uj{FIJ`9C)3w=jssbKQw)yd&nrKx0Z
z*VN)Sv14UZMrW%0r`uEtUA-9kW)E(htRelWjb*-4<c5I?a^bhCzSK_@Irz$POeMRg
zR4K-DXOpny^&CHXhAF2ttw1bwId1uy*XvsPjfL`bxDedYw^HJ22j}!T7obM=?k>9Z
zrDT%G$|prC>#=&@$*x6AA)p#a-=0ci9c(Q`!rO}xB#XhVs05|64kboN6Nj7S8B5$r
z_>#rC&b$WtBKc6eQ?x%tgb+zz%JO3xHy(kpdMu>%%-XT@G6yg3fD5-WSfBi~p57^-
zUpXj+f_B90DgH8r2jmC#px<~@0_0u4)r|z6>8eqA<ufOc!=1B`9wQt6Bx7(#R5}Sm
zrnO3tZo>AHJeF=`-MhP1C69-Ik)Fx&msL}~m`~0rMi?N~3JVLf`dLG>6POF-&)Byj
z2D~+kp6wYA^?wNi?!$G2!x?ou0yx19R0mPd?$YmDb3ol$$zkP_dYP}c>OL9}p%I_G
zF>ufEFEsjYPh+5>uma;+1YNLw3u8@cljSW%7aNblPJ^lvgekY2PiGZs7h@0PljWXk
zHhe;7BKRsoq|L5Q!PNRdNyVR*Zof*W;&`~i(&3%(wEvx}2rPh2A^+=kHDPm&+WS!r
zZ@X}MdM!DxFZ(N{F_<!wt4vQ=ziBa1t$x#qs;I<Q%ojn1osrJ)L7DujvbSc!vmO^=
zMQ%0q^cfUrvuBbOqHPRQXXS7cU+tiqkrBSC{Nk6u@1?Q)xyMD1aQX1#%!nXy%w{_?
zzN}=`;%T+{X}NcrY%QDC$@FfuLBh)V=*fmoL<jwl{>Ho3q*k{Kx)drS3BrIKMJ9lE
zvK8h&ZtT1|i6&N_adAD+#QPpe>_U$ONOQ3L$Lulg<J)6clzdULWmU0deQXi)ke>2%
z;#vD!mD5|60YNxI^zH9Xdn6q)@>POZ0n@B2!&EMJ{DN4y*K`JGE%?M{A`na?I*tzk
zs`OU&a;(u|OEhhzBiMTlC-%a0!tyUmIk0*0pGZNFr=KkLQ}T8%o2I0?dHf&91fPvP
z{q~`jyn9*EBr&l}8dBMQSX;a!%4nU^{BFqJ@;vZ!^QXY9Nb5zY&VDpqjwOR<;OFBs
z{MMHumm!g=M37IyT|o0FnWBns;$t%T6+eVjR%cd(N{4m4u5#WM7Hiwx6l}<BL-#}l
zZ#;viK6e-7Yd3Z$d3Alf7!bM^e<ATf=egka-0F4Et%(5K8}^8gpCCU@@$)XouC;DW
zRL5N@{jI-){b~+B?=bI3N6_I~V)n}F)`YLt*J>)E4ej?tf)3qIy)qLe-|BI0gd#rr
zTA%p}I9w;(?Vc+6Mo0Oh5I=7tZ01m~rZCSCIXeuNqd^AJYD^X0wc2+0G!VqI);9D|
zy1I{;f4TnkrN^Bwdz?L9ttzj4Fh4v`Y4k4o^1ePfQ>JaEr(;{_&GQd$v!uuUd<WK&
z-^MCQ->L{*+}?ciy+oR5_Y)ddJo07=Er@<{$hxRBP%7m`L(a>%v4DHy8~q=ocs{zl
zJE12(74`5ZdiX8BwKHbmO3Pxs&*qw)_Yle-ay$FtpTW6!RT%h7(r+lnoU(I7(1Th4
z0JKPif`YD^g2LZUz@W~(6a=M8srJdz4%|1dRO06L(e)VCE#!%f7jwK5ugf%#TL;Op
zxWv?=P9vjG>1p2F9I|=cGhk|hWg<s>1@Q1h>LXK0Z?ehE`u*HjlYKAfeGdU4UE_w&
zVYIr!W2$WL<k>s8G47KnV|P(17WZogX_KWN(cZr}I{v~t_`GxKhj@Et!3dyOR&os4
z$Gpy1wBCfA{N7JuoI&=^>m7dtuj<vX_nQx*lbA6-Bn53M3{Lw=Y)YpGJ!zhom6Ga^
zsN69s4-6TEN1c+}H(S6b0!}ERy_QD>77>IjVM;u5kpL>A4BhA`$~tN;cKs%Xiz6cO
z;8Y8NHg)Uw_hd1-S%-+Ov0iovpQhh-)fXc~b}yX|VH2-nQVXwKOSkL~;t>1Ys&C4A
zsgGqRt@gCJX@_L`Ie~@63n71^)>X7yMaYp9S}xhS;wkh)`!g-mk{j|JGp_)rgRL_(
zRRfa|n$1mON|5e(`%s6%e%FtHsy7=%AW_eUcNy@3007Bd1nNZ6JuOWL%*}-tYU^eL
z=k;@ON1a##03>Dn+@UZhIFiu@ZjW%4Vm|D6$;^nbm0~s#)&gs}E5IEPst-Kj1`o6i
zVGo>O;<n5((zud-5EOw690_Igb8&X{g7`@>|Kf$9zW?mzV`lsXK{`n>-_z1%RB-cz
zGYatv@q$50eh41{W@%hTNl#llh`yro9~7vT6te>o=?>xJ^Y!)R^%dlG^R(yV7Z(@j
z0}Jp82!K!ske9zJ66yzX^<w!+@tZ>t?gjHixFZp6u8co9p*C*bNGWD!)HvfG<fu`Y
zk{_z`4+THlzv#V?wtQ-+h7igh6o5|v3>E`{1waDge1DZkjcRHADeda@M-)-<<nx2N
z^YQb7`CMH7LBb2E<nwoZ|5U=u5Opw&Pap2(=IsfCEBU}(kt}~z>hA3A^;ezVUhtn?
zzwCClwc|q>^-J?#WmMF(bpMq38Af}Ai~BE$pXk3LZDD`n+`T=We_?E4d~j#D3(62L
z6f^%n;E@QszfaIV`15n*zZim2_b2~9p#K)HU$*>;D@4%^=KWKtnxYi*PkSM@ZZL!`
z<kwdLep|4xpq(H{P#6pc3E4rxAgBmj7zDP13JZ%0h=_^U+5Uw}&D9GDb%nuyQlZFs
z5hxxQ+{O-W1BZgZHgGUVNE~hlf{F{H$V5e9cEVtOAsZoqzfkCSB2bk8b^fbWKdEd{
zRDwcw0>U;>L6E4es1V8;Fh2-tgGx;SVSYh77{8#c09gDN)z5i=$myy{F$<u6<o}t8
zzj}0?p-4M7PZud>O@ynr-`@ue5iW28B=l#{_(i~?LP8=!V9}qf;{1OH8N)rjP)Yui
zlON10@Y`rx7(^Mx2t_3u!Ubv%=W}<p|0VKsS|BKAP=SU1tPK?NuYQy-5Cu;-6zS$^
z=;r1u#r)GU#-EhGN{UhPk79vny1{-4{sO~of7aU{6(<k1=lj)^<oj3P|H5S8;O6W4
zf5-E8=$|Zdo=9IePbVEu9UDhD4Ee8l{u%gBCVkXe=Y{n2SNm_A`rmMpztdF}CF|zt
z{}=rRaF5@u-wTp6;#a5`8GkJT5Gd?-_`RS$@ZY(LisSDgm;=<+9*$aV|0uP;^&|dS
z8jFYufuS~bAbzMYKS)RzDgd$(69a=_VlWX=sEv({C>Z){g8yXqa<fDFLOtPf_NW{{
z%`>XBe$6u@=dbMJ`bV^{100njAh0k53}*g4y?;#i|Byez0s>;TLINO^{Q{_3f(wAe
zp#rGd6oW%;;6g%Be$n5R^Z$uIBI4q<qPB2xkPVDq4CN2X6>+$*Fvvzk5N<0Z#4iK~
z|1QA)hyF<N{k-A*E&U{a-V(I5Ab(9z$)C3jh}zGU!NA+y-5CM*{Kv%oTOt1+aDS2i
zW6}8U#QzHWEv?|@?vGkj9gsS{uK!Z~KLP$`&_uxCu3m2c%JjcNeuw2R`vR2Bzxz=8
z4b=99@6Y|qA7zW0lK;uqAIri2qzXpH|0wyl;`^U){U==iRs{Yn@PD%FKjHefBJgj4
z|C3$+&%%ZK_a`85SJXz_7xjFj<&vrb^=w2?SJO}lb={)3w$|>tQTzcYw=O6sAe;Iz
z-FIW{iGJfKSy)(jQ!-8VMRIyA(eq{+^?xlCzA!mD6m`LIS2gtl0Pt@Ae4_#K3Mf&X
zSV%Q3C9L=O*u=s#-l9cEsHbJhYKn4(szdu(iM4%<_)#WI16G^?H!s$nDa7i{-6P@6
z?s!$JmOizm6GL>lbgFhn*^;q`jqQAR;GcwMo}eset&jd5BWeZ8Bf$2BK)1T{(4~!Y
z^My0$N$$yO>MUZqvdByWpV0ET&eCb~;KY>yoKT;<R~MPD^JmerXl8~kHt=0=Gnya!
zX}tY%eMt^9hp!*7>;X!LC8&ekYZ{^-g$Qdlj5WUQBMNy?P7a8><Zz?Xm81bZ50}Bx
zj!Gt##C)Z5-9wa2P>#U~N@~SqzN<To2$!|Mef>1%&KCt)5D!*L_X7o4OPw;8=eX6O
zibH6d9`7X|xqs`?PCv)ImSUW-+3dcF?-g)DOYuUo^Xhi%@yb4YXZ19p^_9!)szeLt
zxZBpb<cwovaY3;l^G=7aGgq6_0iA?SUhawKcT?y4Q8#jL@xoVy>f#qm8c;z7s3~bH
J*2`Om|1WblS;_za

literal 0
HcmV?d00001

diff --git a/games/keen/handle_laser.s b/games/keen/handle_laser.s
new file mode 100644
index 00000000..f3fe8469
--- /dev/null
+++ b/games/keen/handle_laser.s
@@ -0,0 +1,100 @@
+	; draw/move laser
+
+	; o/~ carrying a laser, down the road that I must travel o/~
+	; o/~ carrying a laser, in the darkness of the night o/~
+
+	;====================
+	; move laser
+	;====================
+move_laser:
+	lda	LASER_OUT
+	beq	done_move_laser
+
+	lda	LASER_X
+	clc
+	adc	LASER_DIRECTION
+	sta	LASER_X
+
+laser_check_tiles:
+	; collision detect with tiles
+
+	; laser location is roughly
+        ; (y/4)*16 + (x/2) - 2
+	lda	LASER_Y
+	lsr
+	lsr
+	asl
+	asl
+	asl
+	asl
+	sta	LASER_TILE
+	lda	LASER_X
+	lsr
+	clc
+	adc	LASER_TILE
+	sec
+	sbc	#2
+	sta	LASER_TILE
+
+	ldx	LASER_TILE
+	lda	TILEMAP,X
+	cmp	#HARD_TILES
+	bcs	destroy_laser
+
+
+laser_check_enemies:
+	; collision detect with enemies
+
+	jsr laser_enemies
+
+
+	; detect if off screen
+laser_check_right:
+	lda	LASER_X
+	cmp	#31
+	bcc	laser_check_left	; not_too_far_right
+	bcs	destroy_laser
+
+laser_check_left:
+	cmp	#6
+	bcs	done_move_laser
+	bcc	destroy_laser
+
+destroy_laser:
+	lda	#0
+	sta	LASER_OUT
+
+done_move_laser:
+	rts
+
+	;====================
+	; draw laser
+	;====================
+
+draw_laser:
+
+	lda	LASER_OUT
+	beq	done_draw_laser
+
+	lda	LASER_X
+	sta	XPOS
+	lda	LASER_Y
+	sta	YPOS
+
+;	lda	LASER_DIRECTION
+
+
+	lda	#<laser_sideways_sprite
+	sta	INL
+	lda	#>laser_sideways_sprite
+	sta	INH
+	jsr	put_sprite_crop
+
+done_draw_laser:
+	rts
+
+laser_sideways_sprite:
+	.byte 4,1
+;	.byte $3A,$cA,$3A,$cA
+	.byte $A3,$Ac,$A3,$Ac
+
diff --git a/games/keen/hello.bas b/games/keen/hello.bas
new file mode 100644
index 00000000..0be6d720
--- /dev/null
+++ b/games/keen/hello.bas
@@ -0,0 +1,14 @@
+5 HOME
+10 PRINT "LOADING KEEN V0.01"
+20 PRINT "  KEEN1 PROOF-OF-CONCEPT DEMAKE"
+30 PRINT:PRINT
+70 PRINT "BASED ON KEEN1 BY ID"
+75 PRINT:PRINT
+80 PRINT "APPLE II PORT: VINCE WEAVER"
+90 PRINT "DISK CODE    : QKUMBA"
+95 PRINT
+100 PRINT "       ______"
+110 PRINT "     A \/\/\/ SOFTWARE PRODUCTION"
+115 PRINT
+120 PRINT " HTTP://WWW.DEATER.NET/WEAVE/VMWPROD"
+130 PRINT CHR$(4);"BRUN LOADER"
diff --git a/games/keen/init_vars.s b/games/keen/init_vars.s
index 538b9b1d..e7800fa8 100644
--- a/games/keen/init_vars.s
+++ b/games/keen/init_vars.s
@@ -9,16 +9,16 @@ init_vars:
 	sta	FRAMEH
 	sta	DISP_PAGE
 	sta	JOYSTICK_ENABLED
-	sta	DUKE_WALKING
-	sta	DUKE_JUMPING
+	sta	KEEN_WALKING
+	sta	KEEN_JUMPING
 	sta	LEVEL_OVER
 	sta	LASER_OUT
-	sta	DUKE_XL
+	sta	KEEN_XL
 	sta	SCORE0
 	sta	SCORE1
 	sta	SCORE2
-	sta	DUKE_FALLING
-	sta	DUKE_SHOOTING
+	sta	KEEN_FALLING
+	sta	KEEN_SHOOTING
 	sta	KICK_UP_DUST
 	sta	DOOR_ACTIVATED
 	sta	INVENTORY
diff --git a/games/keen/item_level1.s b/games/keen/item_level1.s
new file mode 100644
index 00000000..043c7ae3
--- /dev/null
+++ b/games/keen/item_level1.s
@@ -0,0 +1,49 @@
+
+	;==================
+	; check for items
+	;==================
+	; X holds ??
+check_item:
+
+
+check_red_key:
+	lda	TILEMAP,X
+	cmp	#31		; red key
+	bne	check_blue_key
+
+	jsr	pickup_noise
+	lda	INVENTORY
+	ora	#INV_RED_KEY
+	sta	INVENTORY
+
+	; erase red key (304,96)
+	lda	#0
+	sta	$A938	; hack
+
+	jsr	copy_tilemap_subset
+
+	jsr	update_status_bar
+
+	jmp	done_check_item
+
+check_blue_key:
+	cmp	#30		; blue key
+	bne	done_check_item
+
+	jsr	pickup_noise
+	lda	INVENTORY
+	ora	#INV_BLUE_KEY
+	sta	INVENTORY
+
+	; erase blue key
+	lda	#0
+	sta	$970c	; hack
+
+	jsr	copy_tilemap_subset
+
+	jsr	update_status_bar
+
+	jmp	keen_check_head
+
+done_check_item:
+	rts
diff --git a/games/keen/joystick.s b/games/keen/joystick.s
new file mode 100644
index 00000000..751fd039
--- /dev/null
+++ b/games/keen/joystick.s
@@ -0,0 +1,46 @@
+; Oliver Schmidt
+; comp.sys.apple2.programmer
+
+; Call with joystick number (0 or 1) in A.
+; Results are stored in value0 and value1.
+; UPPER_THRESHOLD is the paddle value you want to consider as "right enough" /
+; "down enough".
+
+UPPER_THRESHOLD = 128
+
+;PTRIG = $c070
+PADDL1 = $C065
+
+handle_joystick:
+	lda	#0
+
+        ; Read both paddles simultaneously
+        asl                     ; Joystick number -> paddle number
+        tax
+        ldy     #$00
+        sty     value0
+        sty     value1
+        lda     PTRIG           ; Trigger paddles
+loop:   lda     PADDL0,x        ; Read paddle (0 or 2)
+        bmi     set0            ; Cycles:   2   3
+        nop                     ; Cycles:   2
+        bpl     nop0            ; Cycles:   3
+set0:   sty     value0          ; Cycles:       4
+nop0:                           ;           -   -
+                               ; Cycles:   7   7
+        lda     PADDL1,x        ; Read paddle (1 or 3)
+        bmi     set1            ; Cycles:   2   3
+        nop                     ; Cycles:   2
+        bpl     nop1            ; Cycles:   3
+set1:   sty     value1          ; Cycles:       4
+nop1:                           ;           -   -
+                                ; Cycles:   7   7
+        iny
+        cpy     #UPPER_THRESHOLD+1
+        bne     loop
+
+	rts
+
+value0:	.byte	$00
+value1:	.byte	$00
+
diff --git a/games/keen/keen_level1.s b/games/keen/keen_level1.s
new file mode 100644
index 00000000..b5ecb7fe
--- /dev/null
+++ b/games/keen/keen_level1.s
@@ -0,0 +1,243 @@
+; Keen PoC Level 1
+
+; by deater (Vince Weaver) <vince@deater.net>
+
+; Zero Page
+	.include "zp.inc"
+	.include "hardware.inc"
+	.include "common_defines.inc"
+
+keen_start:
+	;===================
+	; init screen
+	jsr	TEXT
+	jsr	HOME
+	bit	KEYRESET
+
+	bit	SET_GR
+	bit	PAGE0
+	bit	LORES
+	bit	TEXTGR
+
+	jsr	clear_top	; avoid grey stripes at load
+
+	;=====================
+	; init vars
+	;=====================
+
+	lda	#0
+	sta	ANIMATE_FRAME
+	sta	FRAMEL
+	sta	FRAMEH
+	sta	DISP_PAGE
+	sta	JOYSTICK_ENABLED
+	sta	KEEN_WALKING
+	sta	KEEN_JUMPING
+	sta	LEVEL_OVER
+	sta	LASER_OUT
+	sta	KEEN_XL
+	sta	SCORE0
+	sta	SCORE1
+	sta	SCORE2
+	sta	KEEN_FALLING
+	sta	KEEN_SHOOTING
+	sta	KICK_UP_DUST
+	sta	DOOR_ACTIVATED
+	sta	INVENTORY
+
+	lda	#<enemy_data
+	sta	ENEMY_DATAL
+	lda	#>enemy_data
+	sta	ENEMY_DATAH
+
+	; FIXME: temporary
+;	lda	INVENTORY
+;	ora	#INV_RED_KEY
+;	sta	INVENTORY
+
+;	lda	#$10
+;	sta	SCORE0
+
+	lda	#1
+	sta	FIREPOWER
+
+	lda	#2			; draw twice (both pages)
+	sta	UPDATE_STATUS
+
+	lda	#7
+	sta	HEALTH
+
+	lda	#4
+	sta	DRAW_PAGE
+
+	lda	#18
+	sta	KEEN_X
+	lda	#0
+	sta	KEEN_Y
+	lda	#1
+	sta	KEEN_DIRECTION
+
+
+	jsr	update_status_bar
+
+	;====================================
+	; load level1 background
+	;====================================
+
+	lda	#<level1_bg_zx02
+	sta	ZX0_src
+	lda	#>level1_bg_zx02
+	sta	ZX0_src+1
+
+	lda	#$c    ; load to page $c00
+
+	jsr	full_decomp
+
+
+	;====================================
+	; load level1 tilemap
+	;====================================
+
+        lda	#<level1_data_zx02
+	sta	ZX0_src
+        lda	#>level1_data_zx02
+	sta	ZX0_src+1
+	lda	#$90			; load to page $9000
+	jsr	full_decomp
+
+	;====================================
+	; copy in tilemap subset
+	;====================================
+	lda	#28
+	sta	TILEMAP_X
+	lda	#0
+	sta	TILEMAP_Y
+
+	jsr	copy_tilemap_subset
+
+	;====================================
+	;====================================
+	; Main LOGO loop
+	;====================================
+	;====================================
+
+keen_loop:
+
+	; copy over background
+
+	jsr	gr_copy_to_current
+
+	; draw tilemap
+
+	jsr	draw_tilemap
+
+	; draw enemies
+
+	jsr	draw_enemies
+
+	; draw laser
+
+	jsr	draw_laser
+
+	; draw keen
+
+	jsr	draw_keen
+
+	; handle door opening
+
+	jsr	check_open_door
+
+	; draw a status bar
+
+	jsr	draw_status_bar
+
+	jsr	page_flip
+
+	jsr	handle_keypress
+
+	jsr	move_keen
+
+;	jsr	move_enemies
+
+	jsr	move_laser
+
+
+	;========================
+	; increment frame count
+	;========================
+
+	inc	FRAMEL
+	bne	no_frame_oflo
+	inc	FRAMEH
+no_frame_oflo:
+
+	;===========================
+	; check end of level
+	;===========================
+
+	lda	LEVEL_OVER
+	beq	do_keen_loop
+
+	jmp	done_with_keen
+
+
+
+
+do_keen_loop:
+
+	; delay
+;	lda	#200
+;	jsr	WAIT
+
+	jmp	keen_loop
+
+
+done_with_keen:
+	bit	KEYRESET	; clear keypress
+
+
+        lda     #LOAD_KEEN2
+        sta     WHICH_LOAD
+
+	rts			; exit back
+
+
+	;==========================
+	; includes
+	;==========================
+
+	; level graphics
+level1_bg_zx02:
+	.incbin	"graphics/level1_bg.gr.zx02"
+
+	.include	"text_print.s"
+	.include	"gr_offsets.s"
+	.include	"gr_fast_clear.s"
+	.include	"gr_copy.s"
+	.include	"gr_pageflip.s"
+	.include	"gr_putsprite_crop.s"
+	.include	"zx02_optim.s"
+
+	.include	"status_bar.s"
+	.include	"keyboard.s"
+	.include	"joystick.s"
+
+	.include	"text_drawbox.s"
+	.include	"print_help.s"
+	.include	"quit_yn.s"
+	.include	"level_end.s"
+
+	.include	"draw_keen.s"
+	.include	"keen_sprites.inc"
+	.include	"move_keen.s"
+	.include	"handle_laser.s"
+	.include	"draw_tilemap.s"
+	.include	"enemies_level1.s"
+	.include	"actions_level1.s"
+	.include	"item_level1.s"
+
+	.include	"sound_effects.s"
+	.include	"speaker_tone.s"
+
+level1_data_zx02:
+	.incbin		"maps/level1_map.zx02"
diff --git a/games/keen/keen_title.s b/games/keen/keen_title.s
index 262e51e6..364ecbae 100644
--- a/games/keen/keen_title.s
+++ b/games/keen/keen_title.s
@@ -186,7 +186,7 @@ done_intro:
 	;============================
 	; set up initial location
 
-	lda	#LOAD_DUKE1
+	lda	#LOAD_KEEN1
 	sta	WHICH_LOAD		; start at first level
 
 	rts
diff --git a/games/keen/keyboard.s b/games/keen/keyboard.s
new file mode 100644
index 00000000..7cab8b56
--- /dev/null
+++ b/games/keen/keyboard.s
@@ -0,0 +1,251 @@
+JUMP_HEIGHT	=	8
+
+	;==============================
+	; Handle Keypress
+	;==============================
+handle_keypress:
+
+	; first handle joystick
+	lda	JOYSTICK_ENABLED
+	beq	actually_handle_keypress
+
+	; only check joystick every-other frame
+	lda	FRAMEL
+	and	#$1
+	beq	actually_handle_keypress
+
+check_button:
+        lda     PADDLE_BUTTON0
+        bpl     button_clear
+
+        lda     JS_BUTTON_STATE
+        bne     js_check
+
+        lda     #1
+        sta     JS_BUTTON_STATE
+        lda     #' '
+        jmp     check_sound
+
+button_clear:
+        lda     #0
+        sta     JS_BUTTON_STATE
+
+js_check:
+        jsr     handle_joystick
+
+js_check_left:
+        lda     value0
+        cmp     #$20
+        bcs     js_check_right  ; if less than 32, left
+        lda     #'A'
+        bne     check_sound
+
+js_check_right:
+        cmp     #$40
+        bcc     js_check_up
+        lda     #'D'
+        bne     check_sound
+
+js_check_up:
+        lda     value1
+        cmp     #$20
+        bcs     js_check_down
+        lda     #'W'
+
+        bne     check_sound
+
+js_check_down:
+        cmp     #$40
+        bcc     done_joystick
+        lda     #'S'
+        bne     check_sound
+
+
+done_joystick:
+
+
+
+actually_handle_keypress:
+	lda	KEYPRESS
+	bmi	keypress
+
+	jmp	no_keypress
+
+keypress:
+	and	#$7f			; clear high bit
+	cmp	#' '
+	beq	check_sound		; make sure not to lose space
+	and	#$df			; convert uppercase to lower case
+
+check_sound:
+	cmp	#$14			; control-T
+	bne	check_help
+
+	lda	SOUND_STATUS
+	eor	#SOUND_DISABLED
+	sta	SOUND_STATUS
+	jmp	done_keypress
+
+check_help:
+	cmp	#'H'			; H (^H is same as left)
+	bne	check_joystick
+
+	jsr	print_help
+	jmp	done_keypress
+
+	; can't be ^J as that's the same as down
+check_joystick:
+	cmp	#'J'			; J
+	bne	check_left
+
+	lda	JOYSTICK_ENABLED
+	eor	#1
+	sta	JOYSTICK_ENABLED
+	jmp	done_keypress
+
+check_left:
+	cmp	#'A'
+	beq	left_pressed
+	cmp	#8			; left key
+	bne	check_right
+left_pressed:
+
+	lda	KEEN_DIRECTION
+	cmp	#$ff			; check if facing left
+	bne	face_left
+
+	lda	#1
+	sta	KEEN_WALKING
+	jmp	done_left_pressed
+
+face_left:
+	lda	#$ff
+	sta	KEEN_DIRECTION
+	lda	#0
+	sta	KEEN_WALKING
+
+done_left_pressed:
+	jmp	done_keypress
+
+check_right:
+	cmp	#'D'
+	beq	right_pressed
+	cmp	#$15			; right key
+	bne	check_up
+right_pressed:
+	lda	KEEN_DIRECTION
+	cmp	#$1			; check if facing right
+	bne	face_right
+
+	lda	#1
+	sta	KEEN_WALKING
+	jmp	done_left_pressed
+
+face_right:
+	lda	#$1
+	sta	KEEN_DIRECTION
+	lda	#0
+	sta	KEEN_WALKING
+
+done_right_pressed:
+	jmp	done_keypress
+
+check_up:
+	cmp	#'W'
+	beq	up_pressed
+	cmp	#$0B			; up key
+	bne	check_down
+up_pressed:
+
+	jsr	up_action
+
+done_up_pressed:
+	jmp	done_keypress
+
+check_down:
+	cmp	#'S'
+	beq	down_pressed
+	cmp	#$0A
+	bne	check_space
+down_pressed:
+
+done_down_pressed:
+	jmp	done_keypress
+
+check_space:
+	cmp	#' '
+	bne	check_return
+space_pressed:
+
+	; jump
+	lda	KEEN_JUMPING
+	bne	done_keypress	; don't jump if already jumping
+
+	lda	KEEN_FALLING
+	bne	done_keypress	; don't jump if falling
+
+	lda	#JUMP_HEIGHT
+	sta	KEEN_JUMPING
+
+	jsr	jump_noise
+
+	jmp	done_keypress
+
+check_return:
+	cmp	#13
+	bne	check_escape
+
+return_pressed:
+
+	; shoot
+	lda	LASER_OUT
+	bne	done_return
+
+	jsr	laser_noise
+
+	lda	KEEN_DIRECTION
+	sta	LASER_DIRECTION
+
+	lda	#2
+	sta	KEEN_SHOOTING
+
+	cmp	#1
+	beq	laser_right
+laser_left:
+	lda	KEEN_X
+	sec
+	sbc	#1
+	jmp	laser_assign
+
+laser_right:
+	lda	KEEN_X
+	clc
+	adc	#2
+
+laser_assign:
+	sta	LASER_X
+
+	lda	KEEN_Y
+	clc
+	adc	#4
+	sta	LASER_Y
+
+	inc	LASER_OUT
+
+done_return:
+	jmp	no_keypress
+
+check_escape:
+	cmp	#27
+	bne	done_keypress
+
+	jsr	print_quit
+
+	jmp	done_keypress
+
+
+
+done_keypress:
+no_keypress:
+	bit	KEYRESET
+	rts
diff --git a/games/keen/level_end.s b/games/keen/level_end.s
new file mode 100644
index 00000000..2836b615
--- /dev/null
+++ b/games/keen/level_end.s
@@ -0,0 +1,65 @@
+; Print bonuses
+
+level_end:
+	bit	KEYRESET		; clear keyboard
+	bit	SET_TEXT
+
+	lda	#12
+	sta	drawbox_x1
+	lda	#26
+	sta	drawbox_x2
+	lda	#19
+	sta	drawbox_y1
+	lda	#23
+	sta	drawbox_y2
+
+	lda	#21
+	sta	bonus_text+1
+
+scroll_bonus_loop:
+	lda     #' '|$80
+        sta     clear_all_color+1
+	jsr	clear_all
+
+	jsr	drawbox
+
+	jsr	normal_text
+
+	lda	#<bonus_text
+	sta	OUTL
+	lda	#>bonus_text
+	sta	OUTH
+	jsr	move_and_print_list
+
+	jsr	page_flip
+
+	lda	#220
+	jsr	WAIT
+	lda	#220
+	jsr	WAIT
+
+level_end_wait:
+	lda     KEYPRESS
+	bmi	really_end_level
+
+	dec	drawbox_y1
+	dec	drawbox_y2
+	dec	bonus_text+1
+
+	lda	drawbox_y1
+	bmi	really_end_level
+
+	jmp	scroll_bonus_loop
+
+really_end_level:
+	bit	KEYRESET
+	lda	#NEXT_LEVEL
+	sta	LEVEL_OVER
+
+	jsr	clear_all
+
+	rts
+
+bonus_text:
+.byte 14,10,"BONUS: NONE",0
+.byte 255
diff --git a/games/keen/maps/LEVEL_RULES b/games/keen/maps/LEVEL_RULES
new file mode 100644
index 00000000..dab4da83
--- /dev/null
+++ b/games/keen/maps/LEVEL_RULES
@@ -0,0 +1,3 @@
+Urgh I've completely forgotten all of this
+
+Fall through tiles that are < HARD_TILES which defaults to 32
diff --git a/games/keen/maps/Makefile b/games/keen/maps/Makefile
new file mode 100644
index 00000000..c20515dc
--- /dev/null
+++ b/games/keen/maps/Makefile
@@ -0,0 +1,34 @@
+CC = gcc
+CFLAGS = -g -Wall -O2
+
+ZX02 = ~/research/6502_compression/zx02.git/build/zx02 -f
+
+all:	level1_map.zx02 png2map
+
+###
+
+level1_map.zx02:	level1_map.inc
+	$(ZX02) level1_map.inc level1_map.zx02
+
+level1_map.inc:	level1_map.png png2map
+	./png2map level1_map.png level1_map.inc
+
+###
+
+loadpng.o:	loadpng.c loadpng.h
+	$(CC) $(CFLAGS) -c loadpng.c
+
+rle_common.o:	rle_common.c rle_common.h
+	$(CC) $(CFLAGS) -c rle_common.c
+###
+
+png2map:		png2map.o loadpng.o
+	$(CC) $(LFLAGS) -o png2map png2map.o loadpng.o -lpng
+
+png2map.o:		png2map.c loadpng.h
+	$(CC) $(CFLAGS) -c png2map.c
+
+###
+
+clean:		
+		rm -f *~ *.o *.inc png2map
diff --git a/games/keen/maps/level1_map.png b/games/keen/maps/level1_map.png
new file mode 100644
index 0000000000000000000000000000000000000000..8fe435b4e263f1542e7a4a654b4a231033d08598
GIT binary patch
literal 9232
zcmeHL2UJs8x4sF9Vid%o3{oRl5Dh7i&>;d+R1~EnB?(C&QUW9pq)1d$nqnChl`5zp
z)sZ6A00NE(qJV%11Qk&FfE20kg5!*?_pkTXtXI~1YfV<lz5DF_oxQ)k_c<pw(&C_r
z5JCz80DzF0snHPtfP<I7Q$Ydnn_FB~3IJ>3f~@S=N5~wcj~|oH@T4Kx$9-r>S|EcC
z0D*7r*g9SQtRx&VAQlX}D02CN;t8<_>h15D@9vK-mfVxS%NbVc+)Lhqvs`E07`Bwq
z=b~}*i;`2z+1SIr?6HF<*JkD_CVFHp7N3xr@Lqi7{JL&``1aZa7Z<Ox(UH_e#isdg
z=%EP{<k2zt{x<ot$L~9fh+`*b=|+L=W5gxlC!gn1$_1WyIQT#Mlw=t<;NK%JTF`dy
z?fN0ndDW*gV@@Z#CDd>)duzpQ`+wiZ9lQ6lu+BJZs&kVYKQ(tqTNIcOJ(zS(F|{mX
zT3$QUEpzdSMEP&ZJspFeN2_{>a!E7to%^pO*&k0{cKzTzwqx#1_k#HS7UsvEL;Zyz
z{W11N^4y@Z9aGqvfpv@9&pt9dx~J^0xcnZ$(1Udhiz%o_X^xg}PXBqLZDDsn^tBP4
znO2D-!)(M(xd@5ho87ZM<nzeyPrSI6HeA-hdl%$Bb|9%Z-_0&JQzvz^akr3D#umF^
zqw)HO3)5$wA4Oz4?f$eEm{2GoDW0!?TYg(wlJRAYwH#N!ajdTIYGtzHFU&{{ZbGhz
z<(uVruKexIvhW$(VzsU@fGcRY{xW038lHnIBh`A_tJgr<$z<Z767nV~IkL(4a?4?7
ze(gu$^S1fAPG*7)@DYqEW{ZvmdCgfUbxNfvHsJJG1G|!l4TrJ5k(H?%H@kj(bXW4(
zo9HNEYrMaZ>(F+>frjU(_;~Woch#*8U5Xew(vLqvJQrbh#VzSbf1H-rTnzk6Rt5F^
zo%(CJ?fJ*6^{3lQyyh=73#YN?E~#FS(>|fFrQpM5-EAhv9D-_hcrYE7{gzG@Ow-TH
z-SswEqzYx<m*4WHK(sjiBu2UXq;I(xv5Bpj`8w!c{oB4QtrX?(i)oIH0i`h~D^Ez7
z6>c0wluMRBUsUXlnnstsT&{O4Zdtrs{CHwo)MH-7aELr?edgzuXXzCm@R|*HlP(@B
zis9ygEoo6Q)S>1E4U&|iH{|@nnuJC-*gMYCKfAl8<TQ2*GzBG1J<F4G>A09j5#Q|9
z{(3{FDAw&Nw&6^=f{64Uv7uxUd?6_@b<X{0@z@7oWHMqz$OMgV+*D<JJE7|kRJ%{y
zAT&6jC-QcIUMNeL^`_!ctg7v+&u4Zjv-;n6$YRxE3kW~uJ$nxSSV!J`>)i8CmxrEG
z(yL~AKanRJ^Ku8xPaa$&;jHXCCs%j+B7abN1M(!RHqiLgSXE!;o|X&P#`fcn&<%+4
zrw=9NuRpkZ{e5%8#DPc)$f=96@<M|0$ngr<l=s|1$)Hace#)Z{4Ab1x1k3}ncF;s6
z743xqv$KiZ7S^WU7-g8D-{M>ob;f%o7W*0HFU~ke_8rqhP5yF~5qA{+%42`g2g6}I
z|LtPhCVX`%?R1X!xN$o2YD(34O=Lp$BZV5J-?XK+-4)t4<WUwCW6|f4u-UF(*rws-
zi{cWs7WBZoE8>r!`*#PDccvGV774_qkK{*2wn%TF*EA_f)FC2AcHNS_Y5rP4Y(Pp8
z+9VxSc}Kp?fxADT{7d|fq-Jm3k1wxbqR$me<+>=zkSfni&?D?AE_}|F>xyN0`U!Y?
zzJ$`n=4R~BgJTDGzy7%Oy6Q~f^kCDcPqxnU3Y;pnEqCG^C?CS_<=2bBj^69f;heZP
zy(DD>I}zZF2$<b(aZ~1|$as4mVz%3v=gxIAwywk{qphqPlh-lWL_%`+&0|0Ud7{2D
zzLuz~A_+MnCpvW|l!6T}H10A!HIsqJtQ-|3Pr^DjZ*b?|<Y+@rR~J&hB(6<7mGW}S
z;AZiepE#nDhdOh|c)}Q-d_+)3o9*uT@KasXz2XsTqs*n!uU)%8&bu$G^DGasqg;Hy
z-q;)@bKiZ@Zl|p&cA}MMWz#gqdp#bkJ##H8>TEt*q-mg*;Mvf9hzBb;Ih!gf=et3o
z9FZo4xPd?2A3#dtPC;%78{|SX6U$B!TZ!fEy(q(dtl}(>_Kn8V&+``qA}Zc4J0s=8
z4u}kmO4$)<DI0z_f$#6FmeNVKth$wBjtE~jX0UU2maE%~%7<0i$@1;n`{OIjf(@j*
z;q$x1dIm3cs$i67H&p894(xs`94I-PUwkuJg!rs#`nX1m%0{K(JcF!ofiTMUEa8gw
z<l!rAHIweStQP^E=ZI2<vi<#bMc#~$wd3uFDGR2O8P5x1(~2OmwPAIQ@NEa%<*OZg
z4~QuVl{KNI9-l5-2;J-|UJ-V0X?+Mg*Zrg~A_f2;;S57V3o}E*Z+jHDGsTBq(lxCn
z%G9`6)@)Q3Za}^hNz>}syI00TJjx=a1(B^4=Qsy9m%1$Wvq@zEpI=95t*o)PU2D5X
zWC8FE@HxW1^waWnF^4CCK5t_=Gjg0UAmuRmW~;b>S{I=?^3g91+52>J1#fR8M@U}1
zL3@7Zh}rCg++f&j(9eDLO9M+X0>`>3M54k4Y;}I5dW0Ln>-41FgQxp`-4}9Dhx`g2
zDPNouxKLaC@mHSeUezm!J0v3SP}c5}eZKFmv5vXSVSK{GnXEeH0aT;Iomz*P59kej
zQ&(v@%`$tS(RK!ipTt@$jNyda`GaY8rp+hb*69z=S$;V3)Ow9#9rS(^vh>8b{%lva
zb==L*mkoTA=WBfRYPpF{$@ZN1G1odqB2ekZ-^ZNK6e3Mu`5bgKS_X2ulUL(^)N-0z
zFH8FP+ePz^tEbe?7(fE`Q<={oy+@P78iuk9Vw=|@4V|_zxu*?DWu_fNdSjy_!y`Sa
z*-Iw?-%-E2!!LU_0D#CN26$$$Ge4l^%JfnpQ<)T+N}!j|%FzPQ(GT<?yL!;rND9r3
z;jODMR{B^0$)M^g*y7DG=01ircZO+@AI&o8pp|QohpQ%4L0=D{6Q~6Oc+uEoWT2O)
zH%lu}S78-b3%p(tqZN>=Dr^s31v_&Kq#@IfhE!8gQ^BD21~LM03VH~njvtk-b;QW{
z4+!v1SHYdl_R&J4IUJ4(M^%OC=Z3~=YHFe}I5ZB20yR*q<KAp?Aj+GixB~GN!-&Rm
z^<((38BA~F3MQGt^k?fTD1hV0Z~l4tn4A9z@6Gyy1&|MPAlV0vRl%UWywKlUu-JP8
zK#)Hi`j-|gEAZ%rK0;$L{ry~Ndjn|RY{l;(sIGt7`}q5Lu7*Q(MbkWKUZ5%qoE7`S
zlqP287Jpi-P~gV!@>#V4$^Jo;&7l89)(^g|jI4(9y(6IcpSVA0e~W!p8Pqa2*D_+d
z`meZWW~8gIGQSp;>B^vLtzP1=R198~u8LB{V`wNfIvIl^6KHr8hEB%g)o}z30-gFD
zl$ke+P4;%Btw4d`Dhv>ZPQhSQ)zon)HJqk8N=*YyDH%(nqBN*9I!zNppx_Cr-$5Mm
zV}Mmj_Wa(f6(}kQrK(29;VEQQlsZ*i4fF<sMUg3Bnc(nPRk|xym5Re?u0l~=wTzj5
zUSu$x3@@@94ejIYwmPsvxYiyEGhGFo3g$0~g(sO!2Mu%;4lum^1OFPZVtCOk+2j>A
zvFcb1Mh%No(@<5%fsy~EWJB{~ft9#|iN&a>5>`i6(xL?h0}@MKsZ$VORSw3YW#~sE
zvzdNYOs1!<!ir1C70W+|&B1n}lG$V<GMfg1VsL6&7*#EdrWFpSg;NLLC=6Z;^PN7E
z%Ag<r&$L&X2dVQl<)#c4IREig(btZ$r1^fm`+DoiSZyUFa<wV6$gW>QV37l8U-J!O
zeI0UjCwsfmz}4fAa{VS}{EJd>C8(=m$P_vXOU7eSYIrgZMbXf}pj<V;5i*5BQOA&1
zS@;v3#iX-2WIx&-H;_k=E3iCQxk4(fCTi!8+8lQp$nziUp#K-*!Q*fmR5ct5^dGEm
zIt_=?B;&yP)}WCoG&MCcR{d+1{-4ByRl{H@1Og4^O2rXSY7`6wrJ?RhLD4W+8XXJ=
zkEP>&Wc>ejekhtWbyW>@DoT|~!Grlx(?C&F$(ksP8n{|uXsQ&ly6gX^cvLY|HL?a+
zZ*&YEtT#MW6Gg#MXecU`tg1<&67X0I{l6a1%7TN!sG|N_a5R2wDIN66p8IXZ&_VyZ
zHRY?qcbhcWieF{m<`14F(0?8#{^(J#KmI3Qf2?KylT#p(|4j0?`2B~jf9U#K4E!zS
zf2!*ry8adee@pqF>iTb^3-Q<E2%0zeFM<O;Z0OOpUI#v?P_;N<wHN$-FGnIBEMGQS
z1X4-y@$q6W7MrS<Nqz#$$8-`B5|)#j#HMtby3YG8H!UwOgZc@vXSv|dIv-Pe767al
zUHL$OoAHvMa4p-+eDB(i0tf+VnUq{E2LKR(W=4Cg0^f{uMF-r*h`}vtI2jYmVcOls
z#`l#JOvR_2qxZEs<X7L=Z~D~p+J}cdH!G65f^?WTfk5<em!7(PdPy%Pch^tUP%fdb
z*M}51^bJjE^>`AXA|hO1>?f|%IwIdyV0=i)#%4!p>g{%K^;^56X{B9b&5N1VhqG*2
z2hN_m(&8o*VgOw0wOzxXnK@Qq_ndBjP0l4-SpNi^A5hv58{6mdFgJ-ezqHgiGaq^)
z#MxQw3;^ra0o)#b2`MNM=5_3bV&tL+<b*q7BY2rWd}sp<IqnP5xaC#k8+Y_<kKYYi
z-G=#fyeX~vXNLUUM;9WZEZ~A6o&eoG5iN0Cjx0g`d5`3|vfpNAux*78BzkS-wwi3S
z)0<gd&k%ssZsP8QzAr38*YJ<w^`oY~gglO|F%gW}4m6X!VWh)PQkX_gS#>vh#lp;<
zxO8k69RD5i$N_bI)A0;wjATq_I#8q^aBsZRTM-D8g$`KuC5eRi0HaH{UZgfgb9Y7c
z;Tp${TWW&h$Ih!h9!gCYd4K%e6`UZ#xF)A^D-;7oS22sU<-6|&Mwc-4^f`f%s@1p5
zhh;W}cbI+A@>tOd7Z`Vh-2JF6qcE!gZT5n>6#sJWRZOJQ>ECR*51iMKie2MNtJ7?%
zC;V+<qMS~f!T9gCIxN3qKYf@hYMt6Hd2aUT8+@E8FdDE3BS}d=mxPY{<auBsffz#<
zailVFyJXmxL(-&UotBW>(C~Y^c*oSEcEXKIjM}Gyt`FoFkG&qs0LXcOjtoH@I(|g}
zBsY5(Z_*lePn?V0UgBL|&wBHgGc;wz#gO23Bc|HfgokreDlZtUp6oVDNEOeE`#@Fi
z)f&4-{HcdL%uNDMQhCNyIvHR~NE)}TvAeKYf~!o7bCf2@K=na2=R+dm$e6oA<1bHe
zKS9?IG&VauUN-6r*`-XBG?V71E&_1=yiKJtG4R(_9YZ+3Tty+2Bme33>G4Y=o9WTk
z+;Qrv;yDD*@7YXYtdO-pVP_(_&<-x>^=i!R;Ke>%gUrv`O+AHPS0BbdnLB>ry~m7P
za6iX?v7>*acsWL;6QrWii<>dAi@B@<G+)iOq`nnC9~`SYSz5B>**vYLyR=Z4wl2qt
z+ms?SE-Qd(@C_N_PLxCQ7{RY}8Wx%RI|2_ICnH3xxK}cOhr7+AEtXnAWka}Kp@~zs
zusD~2n6X8735=tQwk-wPOI)vNm}CL>ffN>ewhf};xZuB@_xSC#*;|flK@=@pZeLE|
z@l2={r0U}?-mjgbeIq^)jd;$R#!*N*=&Cs1C4zOM^$H|cZ+LWat7)6wx$C(<i#pZ3
zQoCye7euG8khX?2g-(NpU$WumdUIrO!226BiCx=)%$fTDIZd3O*(rN&11}Ig(|suH
z91rBT9+5W+6?9UGF3@LaeRe$mbkxAtZ^;=h$h3z{%W@~boRF{2hmJ4VQ^k=7?m`c2
zYHyh)WCNg&Ta|ex!Y7xPsxrW&(ctZE_~E4zbFYZ%zM4pci186fg&{yFfK(g;tMWlQ
zK;9}&vg|1&L-QUdh4lqT@}u^Glh{FO^GzR|zFHLe*=ruwIs%S-!i|DCL`PP9@N?#G
zH-uRZcHg=d9NVg^M~IH<C)z@)M7_ANqFlqZq+|LaX+nqLf`{@UHUn^P2N>UDV-2%F
zUhmaekgy%fyev4R{c*76_JU$(km1C1pxLS~7Bv&Vt3G23BXxRf6_ph2_D&CoES`zi
zb2@nA^YGXa5MP{B^6YJDefdkdMXTsV7=Q8Er*h~x2Uf_Kv4j}ZA@baNmr@+BSzkXS
z#GBZ07Qw4Oex@^jJ_G3WdIQwgl@^E#Z{p5$yKJ5`EI93K!+p^x3f3Cv&!ljE7a@CD
z_)-f_<Ad473g~$2`_N9C=uoRTFc<fQFd4#UN()o~dFipvLZPva0DW=fXDbMTw^Tb{
z=v5tD*mVdlsLa#f$gA&Zo#t>7GC`_#_@*@3+H$Y!!sZ8)+VB9{W%*K1Tbo^134v#u
zplJiCY5<;3nh4|t*|6dO&m49MoIlnU=D*F(t2EO?V0g#@?9ISEfK6&<FhFpz8We@*
zHQae{-;3k##cdl2$}Jtgh7h?R5na~_%nR{?Qyuho0JnPfhITqRN%N=1ye9{hiS8(s
zqf^g-GW?O*AgiG%%?8doo}a;;34VUi#h@=LgU1T*9#$xle=IW{Ft2N~BlNy@L{4{6
z*XWEgF~X`|KI~W$#7_No@2~5pO5r4{`qs{pOPl?>c<9dAn;@lkyx)!~LhQOKO6HG%
z4Mdi(^**5oG#{LD1Z+63=J=n~fn39sSYSbypl(cbG2zpsT`Z+Z#S2R@gU3FothA5)
zo5;?!Bu6QK!hY>w{}UJMiw)#5fcm!`-Y!3L`wI2i*2I-8XSIDQzgpBL&Yw21>|8;}
z$k|u1DEz|dm;0Tz9GCDr2$453JLN|{T04b3+499r2xZ`NFn3V-<(4lygrF7x6#P^@
zv8scr$E=s&LPcsNxC4n?q3U-q(u;R8%-v8C7#}8p3EI?1hl(tj`tSCsenf&O0c5Hh
zVPevqKN!?y8S21G&uSZ}?j9@wVB1BweRh0F75~R}pBa!;Ke_d9HMZLU(4-8lrH3^-
zNT`UUA#hivXeTh~R&@ZBOL03#ilJg$o{>P_xAD<{y_cYQZ+dbY>_|xp;}0N`cv6<_
z{CvS?#DFDCj{wvg@&|R0MbL4N#|uAkc^|C?AjO&zf%bw#l1$Y4Wy_ITJAQ8U!q7te
zlY8K<+d30`E&s!7P<93(BIyt0w6#w22Ip)EqFi2_0H!PPapJD(+;@Y1zEF|4-4H=R
zA^;IY0uUII3&6l*1yqFJ;3#}vyC=-Q!wMo8Qy(JtJEua!01t&DF>{DKC9s}Au^ynf
zlp~Nwzsv@2a-mu4c{K)b!5GH?KiL>%BI&kxGJ#0?6=K(nPy$Xea61GspEi8n1fmlG
zXh_~s!`^4j3Z;sm?U8VoE{jLEXO}K?E?xp)#!}p=1d`3J)hRO9mbD_9wqP*716d+m
zo|^EfdP9;p660Vm@jE9J8$Pi$0<>^mZnfqLp9CYonBQtxb^tSNscqEl2}ANlBuS3q
z&WolZAY6BdoXb!@TmqyJ+&yhqB8Lbb&<5Iu{2bC2p4@{U*b1oMT9zeQae2Q$F<M01
zIRHT<#c#3;!-lWuA4mXTf3XC{@$aeoCd9DkZivDxApe2N50rniYhupz>H`*#AQ=&^
z+*(+29mH80nY1*?1;n^qU?DGwBOy8a78scuf+LYW5b)6XuU>IkVJz32OmxPsm18Mj
Nw)db>jsfY^zX8?9oy-6L

literal 0
HcmV?d00001

diff --git a/games/keen/maps/loadpng.c b/games/keen/maps/loadpng.c
new file mode 100644
index 00000000..dae7fbaa
--- /dev/null
+++ b/games/keen/maps/loadpng.c
@@ -0,0 +1,236 @@
+/* Loads a 80x48 (or 40x48) PNG image into a 40x48 Apple II layout */
+/* It's not interleaved like an actual Apple II */
+/* But the top/bottom are pre-packed into a naive 40x24 array */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdarg.h>
+
+#include <png.h>
+#include "loadpng.h"
+
+static int convert_color(int color, char *filename) {
+
+	int c=0;
+
+	switch(color) {
+		case 0x000000:	c=0; break;	/* black */
+		case 0xe31e60:	c=1; break;	/* magenta */
+		case 0x604ebd:	c=2; break;	/* dark blue */
+		case 0xff44fd:	c=3; break;	/* purple */
+		case 0x00a360:	c=4; break;	/* dark green */
+		case 0x9c9c9c:	c=5; break;	/* grey 1 */
+		case 0x14cffd:	c=6; break;	/* medium blue */
+		case 0xd0c3ff:	c=7; break;	/* light blue */
+		case 0x607203:	c=8; break;	/* brown */
+		case 0xff6a3c:	c=9; break;	/* orange */
+		case 0x9d9d9d:	c=10; break;	/* grey 2 */
+		case 0xffa0d0:	c=11; break;	/* pink */
+		case 0x14f53c:	c=12; break;	/* bright green */
+		case 0xd0dd8d:	c=13; break;	/* yellow */
+		case 0x72ffd0:	c=14; break;	/* aqua */
+		case 0xffffff:	c=15; break;	/* white */
+		default:
+			fprintf(stderr,"Unknown color %x, file %s\n",
+				color,filename);
+			exit(-1);
+			break;
+	}
+
+	return c;
+}
+
+/* expects a PNG where the xsize is either 1280x200 */
+
+int loadpng(char *filename, unsigned char **image_ptr, int *xsize, int *ysize,
+	int png_type) {
+
+	int x,y,ystart,yadd,xadd;
+	int color;
+	FILE *infile;
+	int debug=0;
+	unsigned char *image,*out_ptr;
+	int width, height;
+	int a2_color;
+
+	png_byte bit_depth;
+	png_structp png_ptr;
+	png_infop info_ptr;
+	png_bytep *row_pointers;
+	png_byte color_type;
+
+	unsigned char header[8];
+
+        /* open file and test for it being a png */
+        infile = fopen(filename, "rb");
+        if (infile==NULL) {
+		fprintf(stderr,"Error!  Could not open %s\n",filename);
+		return -1;
+	}
+
+	/* Check the header */
+        fread(header, 1, 8, infile);
+        if (png_sig_cmp(header, 0, 8)) {
+		fprintf(stderr,"Error!  %s is not a PNG file\n",filename);
+		return -1;
+	}
+
+        /* initialize stuff */
+        png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
+        if (!png_ptr) {
+		fprintf(stderr,"Error create_read_struct\n");
+		exit(-1);
+	}
+
+        info_ptr = png_create_info_struct(png_ptr);
+        if (!info_ptr) {
+		fprintf(stderr,"Error png_create_info_struct\n");
+		exit(-1);
+	}
+
+	png_init_io(png_ptr, infile);
+	png_set_sig_bytes(png_ptr, 8);
+
+	png_read_info(png_ptr, info_ptr);
+
+	width = png_get_image_width(png_ptr, info_ptr);
+	height = png_get_image_height(png_ptr, info_ptr);
+
+	if (width==1280) {
+		*xsize=1280;
+		xadd=1;
+	}
+	else {
+		fprintf(stderr,"Unsupported width %d\n",width);
+		return -1;
+	}
+
+	if (png_type==PNG_WHOLETHING) {
+		*ysize=height;
+		ystart=0;
+		yadd=1;
+	}
+	else {
+		fprintf(stderr,"Unknown type\n");
+		return -1;
+	}
+
+	color_type = png_get_color_type(png_ptr, info_ptr);
+	bit_depth = png_get_bit_depth(png_ptr, info_ptr);
+
+	if (debug) {
+		printf("PNG: width=%d height=%d depth=%d\n",width,height,bit_depth);
+		if (color_type==PNG_COLOR_TYPE_RGB) printf("Type RGB\n");
+		else if (color_type==PNG_COLOR_TYPE_RGB_ALPHA) printf("Type RGBA\n");
+		else if (color_type==PNG_COLOR_TYPE_PALETTE) printf("Type palette\n");
+		printf("Generating output size %d x %d\n",*xsize,*ysize);
+	}
+
+//        number_of_passes = png_set_interlace_handling(png_ptr);
+	png_read_update_info(png_ptr, info_ptr);
+
+	row_pointers = (png_bytep*) malloc(sizeof(png_bytep) * height);
+	for (y=0; y<height; y++) {
+		/* FIXME: do we ever free these? */
+		row_pointers[y] = (png_byte*) malloc(png_get_rowbytes(png_ptr,info_ptr));
+	}
+
+	png_read_image(png_ptr, row_pointers);
+
+	fclose(infile);
+
+	image=calloc(width*height,sizeof(unsigned char));
+	if (image==NULL) {
+		fprintf(stderr,"Memory error!\n");
+		return -1;
+	}
+	out_ptr=image;
+
+	if (color_type==PNG_COLOR_TYPE_RGB_ALPHA) {
+		for(y=ystart;y<height;y+=yadd) {
+			for(x=0;x<width;x+=xadd) {
+
+				/* top color */
+				color=	(row_pointers[y][x*xadd*4]<<16)+
+					(row_pointers[y][x*xadd*4+1]<<8)+
+					(row_pointers[y][x*xadd*4+2]);
+				if (debug) {
+					printf("%x ",color);
+				}
+
+				a2_color=convert_color(color,filename);
+
+				*out_ptr=a2_color;
+				out_ptr++;
+			}
+			if (debug) printf("\n");
+		}
+	}
+	else if (color_type==PNG_COLOR_TYPE_PALETTE) {
+		for(y=ystart;y<height;y+=yadd) {
+			for(x=0;x<width;x+=xadd) {
+
+				if (bit_depth==8) {
+					/* top color */
+					a2_color=row_pointers[y][x];
+
+					/* bottom color */
+//					color=row_pointers[y+(yadd/2)][x];
+
+//					a2_color|=(color<<4);
+
+					if (debug) {
+						printf("%x ",a2_color);
+					}
+
+					*out_ptr=a2_color;
+					out_ptr++;
+				}
+				else if (bit_depth==4) {
+					/* top color */
+					a2_color=row_pointers[y][x/2];
+					if (x%2==0) {
+						a2_color=(a2_color>>4);
+					}
+					a2_color&=0xf;
+
+//					/* bottom color */
+//					color=row_pointers[y+(yadd/2)][x/2];
+//					if (x%2==0) {
+//						color=(color>>4);
+//					}
+//					color&=0xf;
+
+//					a2_color|=(color<<4);
+
+					if (debug) {
+						printf("%x ",a2_color);
+					}
+
+					*out_ptr=a2_color;
+					out_ptr++;
+
+				}
+			}
+			if (debug) printf("\n");
+		}
+	}
+	else {
+		printf("Unknown color type\n");
+	}
+
+	*image_ptr=image;
+
+	return 0;
+}
+
+
+
+
+
diff --git a/games/keen/maps/loadpng.h b/games/keen/maps/loadpng.h
new file mode 100644
index 00000000..51882f61
--- /dev/null
+++ b/games/keen/maps/loadpng.h
@@ -0,0 +1,9 @@
+#define PNG_WHOLETHING	0
+#define PNG_ODDLINES	1
+#define PNG_EVENLINES	2
+
+int loadpng(char *filename, unsigned char **image_ptr, int *xsize, int *ysize,
+	int png_type);
+int loadpng80(char *filename, unsigned char **image_ptr, int *xsize, int *ysize,
+	int png_type);
+
diff --git a/games/keen/maps/png2map.c b/games/keen/maps/png2map.c
new file mode 100644
index 00000000..37ff27ba
--- /dev/null
+++ b/games/keen/maps/png2map.c
@@ -0,0 +1,188 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdarg.h>
+
+#include "loadpng.h"
+
+
+/* converts a png of map to format by our duke engine */
+
+/* 1280x200 image */
+/* 256 sprites of size 2x4 in a 16x16 grid at 8,4 */
+
+
+static unsigned char tiles[256][2][4];
+static unsigned char tilemap[256][40];
+static unsigned char temp_tile[2][4];
+
+static int ascii_output=0;
+
+int main(int argc, char **argv) {
+
+	int i,j,x,y;
+	int numtiles=0,found_tile;
+
+	unsigned char *image;
+	int xsize,ysize;
+	FILE *outfile;
+
+	if (argc<3) {
+		fprintf(stderr,"Usage:\t%s INFILE OUTFILE\n\n",argv[0]);
+		exit(-1);
+	}
+
+	outfile=fopen(argv[2],"w");
+	if (outfile==NULL) {
+		fprintf(stderr,"Error!  Could not open %s\n",argv[2]);
+		exit(-1);
+	}
+
+	if (loadpng(argv[1],&image,&xsize,&ysize,PNG_WHOLETHING)<0) {
+		fprintf(stderr,"Error loading png!\n");
+		exit(-1);
+	}
+
+	fprintf(stderr,"Loaded image %d by %d\n",xsize,ysize);
+
+//	for(x=0;x<128;x++) {
+//		for(y=0;y<64;y++) {
+//			printf("%02X,",image[(y*xsize)+x]);
+//		}
+//		printf("\n");
+//	}
+
+	/* loading tiles */
+	for(x=0;x<16;x++) {
+		for(y=0;y<16;y++) {
+			tiles[(y*16)+x][0][0]=image[((y*4+4)*xsize)+8+(x*4)];
+			tiles[(y*16)+x][1][0]=image[((y*4+4)*xsize)+8+(x*4)+2];
+			tiles[(y*16)+x][0][1]=image[((y*4+5)*xsize)+8+(x*4)];
+			tiles[(y*16)+x][1][1]=image[((y*4+5)*xsize)+8+(x*4)+2];
+			tiles[(y*16)+x][0][2]=image[((y*4+6)*xsize)+8+(x*4)];
+			tiles[(y*16)+x][1][2]=image[((y*4+6)*xsize)+8+(x*4)+2];
+			tiles[(y*16)+x][0][3]=image[((y*4+7)*xsize)+8+(x*4)];
+			tiles[(y*16)+x][1][3]=image[((y*4+7)*xsize)+8+(x*4)+2];
+		}
+	}
+
+	i=0;
+	for(j=0;j<256;j++) {
+		if ((tiles[j][0][0]!=0) ||
+			(tiles[j][1][0]!=0) ||
+			(tiles[j][0][1]!=0) ||
+			(tiles[j][1][1]!=0) ||
+			(tiles[j][0][2]!=0) ||
+			(tiles[j][1][2]!=0) ||
+			(tiles[j][0][3]!=0) ||
+			(tiles[j][1][3]!=0)) {
+				numtiles=j+1;
+		}
+	}
+
+	printf("Found %d tiles\n",numtiles);
+
+	if (ascii_output) {
+	fprintf(outfile,"tiles:\n");
+	for(i=0;i<numtiles;i++) {
+		fprintf(outfile,"tile%02x:\t.byte ",i);
+		fprintf(outfile,"$%02x,",tiles[i][0][0]+(tiles[i][0][1]<<4));
+		fprintf(outfile,"$%02x,",tiles[i][1][0]+(tiles[i][1][1]<<4));
+		fprintf(outfile,"$%02x,",tiles[i][0][2]+(tiles[i][0][3]<<4));
+		fprintf(outfile,"$%02x" ,tiles[i][1][2]+(tiles[i][1][3]<<4));
+		fprintf(outfile,"\n");
+	}
+	}
+	else {
+		for(i=0;i<256;i++) {
+			fputc(tiles[i][0][0]+(tiles[i][0][1]<<4),outfile);
+			fputc(tiles[i][1][0]+(tiles[i][1][1]<<4),outfile);
+			fputc(tiles[i][0][2]+(tiles[i][0][3]<<4),outfile);
+			fputc(tiles[i][1][2]+(tiles[i][1][3]<<4),outfile);
+		}
+	}
+
+	if (ascii_output) fprintf(outfile,"\n");
+
+	/* loading tilemap */
+
+	/* starts at 80,12 */
+
+	for(x=0;x<256;x++) {
+		for(y=0;y<40;y++) {
+			/* get temp tile */
+			temp_tile[0][0]=image[((y*4+12)*xsize)+80+(x*4)];
+			temp_tile[1][0]=image[((y*4+12)*xsize)+80+(x*4)+2];
+			temp_tile[0][1]=image[((y*4+13)*xsize)+80+(x*4)];
+			temp_tile[1][1]=image[((y*4+13)*xsize)+80+(x*4)+2];
+			temp_tile[0][2]=image[((y*4+14)*xsize)+80+(x*4)];
+			temp_tile[1][2]=image[((y*4+14)*xsize)+80+(x*4)+2];
+			temp_tile[0][3]=image[((y*4+15)*xsize)+80+(x*4)];
+			temp_tile[1][3]=image[((y*4+15)*xsize)+80+(x*4)+2];
+
+			/* find tile */
+
+			found_tile=-1;
+
+			/* if all black, assume transparent */
+			if ((temp_tile[0][0]==0) &&
+				(temp_tile[1][0]==0) &&
+				(temp_tile[0][1]==0) &&
+				(temp_tile[1][1]==0) &&
+				(temp_tile[0][2]==0) &&
+				(temp_tile[1][2]==0) &&
+				(temp_tile[0][3]==0) &&
+				(temp_tile[1][3]==0)) {
+				found_tile=0;
+			}
+			else for(i=0;i<numtiles;i++) {
+
+				if ((temp_tile[0][0]==tiles[i][0][0]) &&
+					(temp_tile[1][0]==tiles[i][1][0]) &&
+					(temp_tile[0][1]==tiles[i][0][1]) &&
+					(temp_tile[1][1]==tiles[i][1][1]) &&
+					(temp_tile[0][2]==tiles[i][0][2]) &&
+					(temp_tile[1][2]==tiles[i][1][2]) &&
+					(temp_tile[0][3]==tiles[i][0][3]) &&
+					(temp_tile[1][3]==tiles[i][1][3])) {
+					found_tile=i;
+					break;
+				}
+			}
+			tilemap[x][y]=found_tile;
+			if (found_tile==-1) {
+				printf("Error!  Unknown tile at %d,%d\n",
+					80+(x*4),12+(y*4));
+			}
+		}
+	}
+
+	if (ascii_output) {
+		fprintf(outfile,"tilemap:\n");
+
+		for(j=0;j<40;j++) {
+			fprintf(outfile,"\t.byte ");
+			for(i=0;i<256;i++) {
+				fprintf(outfile,"$%02x",tilemap[i][j]);
+				if (i!=255) fprintf(outfile,",");
+			}
+			fprintf(outfile,"\n");
+		}
+
+		fprintf(outfile,"\n");
+	}
+	else {
+		for(j=0;j<40;j++) {
+			for(i=0;i<256;i++) {
+				fputc(tilemap[i][j],outfile);
+			}
+		}
+	}
+	fclose(outfile);
+
+	return 0;
+}
diff --git a/games/keen/move_keen.s b/games/keen/move_keen.s
new file mode 100644
index 00000000..0c95cd13
--- /dev/null
+++ b/games/keen/move_keen.s
@@ -0,0 +1,394 @@
+
+KEEN_SPEED	=	$80
+
+YDEFAULT	=	20
+
+HARD_TILES	=	32	; start at 32
+
+	;=========================
+	; move keen
+	;=========================
+move_keen:
+
+	lda	#0
+	sta	SUPPRESS_WALK
+
+	jsr	keen_get_feet_location	; get location of feet
+
+	jsr	check_falling		; check for/handle falling
+
+	jsr	keen_collide		; check for right/left collision
+
+	jsr	handle_jumping		; handle jumping
+
+	lda	KEEN_WALKING
+	beq	done_move_keen
+
+	lda	SUPPRESS_WALK
+	bne	done_move_keen
+
+	lda	KEEN_DIRECTION
+	bmi	move_left
+
+	lda	KEEN_X
+	cmp	#22
+	bcc	keen_walk_right
+
+keen_scroll_right:
+
+	clc
+	lda	KEEN_XL
+	adc	#KEEN_SPEED
+	sta	KEEN_XL
+	bcc	skip_keen_scroll_right
+
+	inc	TILEMAP_X
+
+	jsr	copy_tilemap_subset
+
+skip_keen_scroll_right:
+
+	jmp	done_move_keen
+
+keen_walk_right:
+	lda	KEEN_XL
+	clc
+	adc	#KEEN_SPEED
+	sta	KEEN_XL
+	bcc	dwr_noflo
+	inc	KEEN_X
+dwr_noflo:
+	jmp	done_move_keen
+
+move_left:
+
+	lda	KEEN_X
+	cmp	#14
+	bcs	keen_walk_left
+
+keen_scroll_left:
+
+	sec
+	lda	KEEN_XL
+	sbc	#KEEN_SPEED
+	sta	KEEN_XL
+	bcs	skip_keen_scroll_left
+
+	dec	TILEMAP_X
+
+	jsr	copy_tilemap_subset
+
+skip_keen_scroll_left:
+
+	jmp	done_move_keen
+
+keen_walk_left:
+
+	lda	KEEN_XL
+	sec
+	sbc	#KEEN_SPEED
+	sta	KEEN_XL
+	bcs	dwl_noflo
+	dec	KEEN_X
+dwl_noflo:
+	jmp	done_move_keen
+
+done_move_keen:
+
+	rts
+
+
+
+	;=========================
+	; keen collide
+	;=========================
+
+keen_collide:
+	;==================
+	; check for item
+	;==================
+keen_check_item:
+	lda	KEEN_FOOT_OFFSET
+	sec
+	sbc	#16
+	tax
+
+	jsr	check_item
+
+
+	;===================
+	; collide with head
+	;===================
+keen_check_head:
+	; only check above head if jumping
+	lda	KEEN_JUMPING
+	beq	collide_left_right
+
+	lda	KEEN_FOOT_OFFSET
+	sec
+	sbc	#16			; above head is -2 rows
+	tax
+
+	lda	TILEMAP,X
+
+	; if tile# < HARD_TILES then we are fine
+	cmp	#HARD_TILES
+	bcc	collide_left_right		; blt
+
+	lda	#0
+	sta	KEEN_JUMPING
+	lda	#1
+	sta	KEEN_FALLING
+
+	jsr	head_noise
+
+collide_left_right:
+	;===================
+	; collide left/right
+	;===================
+
+	lda	KEEN_DIRECTION
+	beq	done_keen_collide
+
+	bmi	check_left_collide
+
+check_right_collide:
+	lda	KEEN_FOOT_OFFSET
+	clc
+	adc	#1			; right is one to right
+
+	tax
+	lda	TILEMAP,X
+
+	; if tile# < HARD_TILES then we are fine
+	cmp	#HARD_TILES
+	bcc	done_keen_collide		; blt
+
+	lda	#1				;
+	sta	SUPPRESS_WALK
+	jmp	done_keen_collide
+
+check_left_collide:
+
+	lda	KEEN_FOOT_OFFSET
+	sec
+	sbc	#2			; left is one to left
+					; +1 fudge factor
+	tax
+	lda	TILEMAP,X
+
+	; if tile# < HARD_TILES then we are fine
+	cmp	#HARD_TILES
+	bcc	done_keen_collide	; blt
+
+	lda	#1
+	sta	SUPPRESS_WALK
+	jmp	done_keen_collide
+
+done_keen_collide:
+	rts
+
+
+
+	;=========================
+	; check_jumping
+	;=========================
+handle_jumping:
+
+	lda	KEEN_JUMPING
+	beq	done_handle_jumping
+
+	lda	KEEN_Y
+	beq	dont_wrap_jump
+
+	dec	KEEN_Y
+	dec	KEEN_Y
+
+dont_wrap_jump:
+	dec	KEEN_JUMPING
+	bne	done_handle_jumping
+	lda	#1			; avoid gap before falling triggered
+	sta	KEEN_FALLING
+
+
+done_handle_jumping:
+	rts
+
+
+
+
+	;=======================
+	; keen_get_feet_location
+	;=======================
+
+	;		xx	0
+	;		xx	1
+	;------		-----
+	; xx	0	xx	2
+	; xx	1	xx	3
+	; xx	2	xx	4
+	; xx	3	xx	5
+	;------		-------
+	; xx	4	xx	6
+	; xx	5	xx	7
+	; xx    6
+	; xx	7
+	;-----------------------
+
+
+	; YY = block
+	;========================
+	;     YYYY            YYYY
+	;        -XX-      -XX-
+	;         -XX-    -XX-
+	; left, foot = (X+1)/2
+	; right, foot = (X+2)/2
+keen_get_feet_location:
+
+	; + 1 is because sprite is 4 pixels wide?
+
+	; screen is 16 wide, but offset 4 in
+
+	; to get to feet add 6 to Y?
+
+	; block index of foot is (feet approximately 6 lower than Y)
+	; INT((y+4)/4)*16 + (x-4+1/2)
+
+	; FIXME: if 18,18 -> INT(26/4)*16 = 96 + 7 = 103 = 6R7
+
+	; 0 = 32 (2)
+	; 1 = 32 (2)
+	; 2 = 32 (2)
+	; 3 = 32 (2)
+	; 4 = 48 (3)
+	; 5 = 48 (3)
+	; 6 = 48 (3)
+	; 7 = 48 (3)
+
+	lda	KEEN_Y
+
+	clc
+	adc	#4		; +4
+
+	lsr			; / 4 (INT)
+	lsr
+
+	asl			; *4
+	asl
+	asl
+	asl
+
+	sta	KEEN_FOOT_OFFSET
+
+;	lda	KEEN_DIRECTION
+;	bmi	foot_left
+
+foot_right:
+
+	lda	KEEN_X
+	clc
+	adc	#2
+;	jmp	foot_done
+
+;foot_left:
+;	lda	KEEN_X
+;	sec
+;	sbc	#1
+
+foot_done:
+	lsr
+
+	; offset by two block at edge of screen
+	sec
+	sbc	#2
+
+	clc
+	adc	KEEN_FOOT_OFFSET
+	sta	KEEN_FOOT_OFFSET
+
+	rts
+
+
+	;=========================
+	; check_falling
+	;=========================
+check_falling:
+
+	lda	KEEN_JUMPING
+	bne	done_check_falling	; don't check falling if jumping
+
+	lda	KEEN_FOOT_OFFSET
+	clc
+	adc	#16			; underfoot is on next row (+16)
+
+	tax
+	lda	TILEMAP,X
+
+	; if tile# < HARD_TILES then we fall
+	cmp	#HARD_TILES
+	bcs	feet_on_ground		; bge
+
+	;=======================
+	; falling
+
+	lda	#1
+	sta	KEEN_FALLING
+
+	; scroll but only if Y>=20 (YDEFAULT)
+
+	lda	KEEN_Y
+	cmp	#YDEFAULT
+	bcs	scroll_fall	; bge
+
+	inc	KEEN_Y
+	inc	KEEN_Y
+	jmp	done_check_falling
+
+
+scroll_fall:
+	inc	TILEMAP_Y
+
+	jsr	copy_tilemap_subset
+	jmp	done_check_falling
+
+feet_on_ground:
+
+	;===========================
+	; if had been falling
+	; kick up dust, make noise
+	; stop walking?
+
+	lda	KEEN_FALLING
+	beq	was_not_falling
+
+	; clear falling
+	lda	#0
+	sta	KEEN_FALLING
+
+	lda	#2
+	sta	KICK_UP_DUST
+
+	lda	#0
+	sta	KEEN_WALKING
+
+	jsr	land_noise
+
+was_not_falling:
+	; check to see if Y still hi, if so scroll back down
+
+	lda	KEEN_Y
+	cmp	#YDEFAULT
+	bcs	done_check_falling	; bge
+
+	; too high up on screen, adjust down and also adjust tilemap down
+
+	inc	KEEN_Y
+	inc	KEEN_Y
+	dec	TILEMAP_Y		; share w above?
+	jsr	copy_tilemap_subset
+
+done_check_falling:
+	rts
+
+
+
diff --git a/games/keen/quit_yn.s b/games/keen/quit_yn.s
new file mode 100644
index 00000000..a1256c5c
--- /dev/null
+++ b/games/keen/quit_yn.s
@@ -0,0 +1,56 @@
+; Quit?  Are you sure?
+
+print_quit:
+	bit	KEYRESET		; clear keyboard
+	bit	SET_TEXT
+
+	lda     #' '|$80
+        sta     clear_all_color+1
+	jsr	clear_all
+
+	lda	#6
+	sta	drawbox_x1
+	lda	#33
+	sta	drawbox_x2
+	lda	#8
+	sta	drawbox_y1
+	lda	#13
+	sta	drawbox_y2
+	jsr	drawbox
+
+	jsr	normal_text
+
+	lda	#<quit_text
+	sta	OUTL
+	lda	#>quit_text
+	sta	OUTH
+	jsr	move_and_print_list
+
+	jsr	page_flip
+
+query_quit:
+	lda     KEYPRESS
+	bpl	query_quit
+	bit	KEYRESET
+
+	cmp	#'Y'|$80
+	beq	really_quit
+	cmp	#'y'|$80
+	beq	really_quit
+
+	bit	SET_GR
+	rts
+
+really_quit:
+	lda	#GAME_OVER
+	sta	LEVEL_OVER
+
+	lda	#LOAD_TITLE
+	sta	WHICH_LOAD
+
+	rts
+
+quit_text:
+.byte 8,10,"ARE YOU SURE YOU WANT TO",0
+.byte 14,11,"QUIT? (Y/N)",0
+.byte 255
diff --git a/games/keen/sound_effects.s b/games/keen/sound_effects.s
new file mode 100644
index 00000000..fb1c0acd
--- /dev/null
+++ b/games/keen/sound_effects.s
@@ -0,0 +1,149 @@
+	;======================
+	; noise when jump
+jump_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_jump_noise
+
+;	bit	$C030
+
+done_jump_noise:
+	rts
+
+
+	;======================
+	; noise when bump head
+head_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_head_noise
+
+	lda	#NOTE_D3
+	sta	speaker_frequency
+	lda	#5
+	sta	speaker_duration
+	jsr	speaker_tone
+
+
+;	bit	$C030
+;	bit	$C030
+
+done_head_noise:
+	rts
+
+
+	;======================
+	; noise when land after jump
+land_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_land_noise
+
+;	bit	$C030
+
+done_land_noise:
+	rts
+
+
+	;======================
+	; rumble noise
+rumble_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_rumble_noise
+
+	ldx	#50
+rumble_red:
+	bit	$C030
+	lda	#100
+	jsr	WAIT
+	dex
+	bne	rumble_red
+
+done_rumble_noise:
+	rts
+
+
+	;======================
+	; pickup noise
+	;    C, two octaves+C?
+pickup_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_pickup_noise
+
+	lda	#NOTE_C3
+	sta	speaker_frequency
+	lda	#25
+	sta	speaker_duration
+	jsr	speaker_tone
+
+	lda	#NOTE_C5
+	sta	speaker_frequency
+	lda	#20
+	sta	speaker_duration
+	jsr	speaker_tone
+
+done_pickup_noise:
+	rts
+
+
+	;======================
+	; buzzer noise
+	;    C, two octaves+C?
+buzzer_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_buzzer_noise
+
+	lda	#NOTE_C3
+	sta	speaker_frequency
+	lda	#10
+	sta	speaker_duration
+	jsr	speaker_tone
+
+done_buzzer_noise:
+	rts
+
+
+
+
+
+	;======================
+	; enemy noise
+enemy_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_enemy_noise
+
+	lda	#NOTE_A3
+	sta	speaker_frequency
+	lda	#20
+	sta	speaker_duration
+	jsr	speaker_tone
+
+	lda	#NOTE_A4
+	sta	speaker_frequency
+	lda	#10
+	sta	speaker_duration
+	jsr	speaker_tone
+
+done_enemy_noise:
+	rts
+
+	;======================
+	; laser noise
+laser_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_enemy_noise
+
+	lda	#NOTE_D4
+	sta	speaker_frequency
+	lda	#15
+	sta	speaker_duration
+	jsr	speaker_tone
+
+done_laser_noise:
+	rts
+
diff --git a/games/keen/speaker_tone.s b/games/keen/speaker_tone.s
new file mode 100644
index 00000000..069cf498
--- /dev/null
+++ b/games/keen/speaker_tone.s
@@ -0,0 +1,67 @@
+; based on code from here
+; http://eightbitsoundandfury.ld8.org/programming.html
+
+; A,X,Y trashed
+; duration also trashed
+
+NOTE_C3		=	255
+NOTE_CSHARP3	=	241
+NOTE_D3		=	227
+NOTE_DSHARP3	=	214
+NOTE_E3		=	202
+NOTE_F3		=	191
+NOTE_FSHARP3	=	180
+NOTE_G3		=	170
+NOTE_GSHARP3	=	161
+NOTE_A3		=	152
+NOTE_ASHARP3	=	143
+NOTE_B3		=	135
+
+NOTE_C4		=	128
+NOTE_CSHARP4	=	121
+NOTE_D4		=	114
+NOTE_DSHARP4	=	108
+NOTE_E4		=	102
+NOTE_F4		=	96
+NOTE_FSHARP4	=	91
+NOTE_G4		=	85
+NOTE_GSHARP4	=	81
+NOTE_A4		=	76
+NOTE_ASHARP4	=	72
+NOTE_B4		=	68
+
+NOTE_C5		=	64
+NOTE_CSHARP5	=	60
+NOTE_D5		=	57
+NOTE_DSHARP5	=	54
+NOTE_E5		=	51
+NOTE_F5		=	48
+NOTE_FSHARP5	=	45
+NOTE_G5		=	43
+NOTE_GSHARP5	=	40
+NOTE_A5		=	38
+NOTE_ASHARP5	=	36
+NOTE_B5		=	34
+
+
+
+speaker_tone:
+	lda	$C030		; click speaker
+speaker_loop:
+	dey			; y never set?
+	bne	slabel1		; duration roughly 256*?
+	dec	speaker_duration	; (Duration)
+	beq	done_tone
+slabel1:
+	dex
+	bne	speaker_loop
+	ldx	speaker_frequency	; (Frequency)
+	jmp	speaker_tone
+done_tone:
+	rts
+
+speaker_duration:
+	.byte	$00
+speaker_frequency:
+	.byte	$00
+
diff --git a/games/keen/status_bar.s b/games/keen/status_bar.s
new file mode 100644
index 00000000..d167af36
--- /dev/null
+++ b/games/keen/status_bar.s
@@ -0,0 +1,177 @@
+; Draw Status Bar
+
+	;===========================
+	; inc_score_by_10
+	;===========================
+	; FIXME: make sure interrupt routine handles d flag properly
+inc_score_by_10:
+
+	sed
+	lda	SCORE0
+	clc
+	adc	#$10
+	sta	SCORE0
+
+	lda	SCORE1
+	adc	#0
+	sta	SCORE1
+
+	lda	SCORE2
+	adc	#0
+	sta	SCORE2
+	cld
+
+	jsr	update_score
+
+	rts
+
+	;===========================
+	; update score
+	;===========================
+
+update_score:
+
+	lda	SCORE0
+	and	#$f
+	ora	#$b0		; 0 -> $b0
+	sta	status_string+6
+
+	lda	SCORE0
+	lsr
+	lsr
+	lsr
+	lsr
+	ora	#$b0		; 0 -> $b0
+	sta	status_string+5
+
+	lda	SCORE1
+	and	#$f
+	ora	#$b0		; 0 -> $b0
+	sta	status_string+4
+
+	lda	SCORE1
+	lsr
+	lsr
+	lsr
+	lsr
+	ora	#$b0		; 0 -> $b0
+	sta	status_string+3
+
+	lda	SCORE2
+	and	#$f
+	ora	#$b0		; 0 -> $b0
+	sta	status_string+2
+
+	lda	#2
+	sta	UPDATE_STATUS
+
+	rts
+
+
+	;===========================
+	; update health
+	;===========================
+
+update_health:
+
+	ldx	#0
+update_health_loop:
+	cpx	HEALTH
+	bcc	health_on
+	lda	#'_'|$80
+	bne	done_health
+health_on:
+	lda	#' '
+done_health:
+	sta	status_string+9,X
+
+	inx
+	cpx	#8
+	bne	update_health_loop
+
+	rts
+
+	;===========================
+	; update items
+	;===========================
+
+update_items:
+
+	lda	INVENTORY
+
+	and	#INV_RED_KEY
+	beq	done_red_key
+
+	lda	#'R'&$3f
+	sta	status_string+33
+
+done_red_key:
+
+	lda	INVENTORY
+
+	and	#INV_BLUE_KEY
+	beq	done_blue_key
+
+	lda	#'B'&$3f
+	sta	status_string+35
+
+done_blue_key:
+
+	rts
+
+
+
+
+	;===========================
+	; update the status bar
+	;===========================
+update_status_bar:
+
+	jsr	update_score
+
+	jsr	update_health
+
+	jsr	update_items
+
+	lda	#2
+	sta	UPDATE_STATUS
+
+	rts
+
+	;===========================
+	; draw the status bar
+	;===========================
+draw_status_bar:
+
+	; to improve frame rate, only draw if update status set?
+	; not implemented yet
+
+	jsr	inverse_text	; print help node
+	lda	#<help_string
+	sta	OUTL
+	lda	#>help_string
+	sta	OUTH
+	jsr	move_and_print
+
+	jsr	normal_text	; (normal)
+	jsr	move_and_print	; print explain text
+	jsr	raw_text
+	jsr	move_and_print	; print status line
+	rts
+
+
+help_string:
+	.byte 3,20,"        PRESS 'H' FOR HELP        ",0
+
+score_string:
+	;           012456789012345678901234567890123456789
+	.byte 0,22,"SCORE   HEALTH   FIREPOWER    INVENTORY",0
+status_string:
+;	.byte 0,23,"ZZZZZ  XXXXXXXX  =-                    ",0
+	.byte 0,23,"ZZZZZ"
+	.byte ' '|$80,' '|$80
+	.byte "XXXXXXXX"
+	.byte ' '|$80,' '|$80
+	.byte '='|$80,'-'|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80
+	.byte ' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,' '|$80,0
+
diff --git a/games/keen/text_drawbox.s b/games/keen/text_drawbox.s
new file mode 100644
index 00000000..8855c0bc
--- /dev/null
+++ b/games/keen/text_drawbox.s
@@ -0,0 +1,84 @@
+	; draw inverse box on text screen
+
+	; we could use HLIN/VLIN instead?
+
+	; note Y should be in text coords (0..23) not GR (0..47)
+
+drawbox:
+	lda	drawbox_y1
+	jsr	text_hlin
+	lda	drawbox_y2
+	jsr	text_hlin
+
+	jsr	text_vlins
+
+	rts
+
+	;========================
+	; text hlin
+	;========================
+	; draw from x1,A to x2,A
+
+text_hlin:
+	asl
+	tay
+
+	lda	gr_offsets,Y
+	sta	OUTL
+
+	lda	gr_offsets+1,Y
+	clc
+	adc	DRAW_PAGE
+	sta	OUTH
+
+	lda	#' '
+	ldy	drawbox_x1
+drawbox_hlin_loop:
+	sta	(OUTL),Y
+	iny
+	cpy	drawbox_x2
+	bne	drawbox_hlin_loop
+
+	rts
+
+	;========================
+	; text vlin
+	;========================
+	; draw from A,y1 to A,y2
+
+text_vlins:
+
+	ldx	drawbox_y1
+
+text_vlins_loop:
+	txa
+	asl
+	tay
+	lda	gr_offsets,Y
+	sta	OUTL
+
+	lda	gr_offsets+1,Y
+	clc
+	adc	DRAW_PAGE
+	sta	OUTH
+
+	lda	#' '
+
+	ldy	drawbox_x1
+	sta	(OUTL),Y
+	ldy	drawbox_x2
+	sta	(OUTL),Y
+
+	inx
+	cpx	drawbox_y2
+	bcc	text_vlins_loop
+	beq	text_vlins_loop		; ble
+
+	rts
+
+
+drawbox_x1:	.byte $00
+drawbox_x2:	.byte $00
+drawbox_y1:	.byte $00
+drawbox_y2:	.byte $00
+
diff --git a/games/keen/zp.inc b/games/keen/zp.inc
index 25419a34..5d3c3036 100644
--- a/games/keen/zp.inc
+++ b/games/keen/zp.inc
@@ -88,12 +88,12 @@ PATTERN_H       = $7F
 
 WHICH_LOAD		= $80		; which file to load
 
-DUKE_XL			= $81
-DUKE_X			= $82		; location of protagonist
-DUKE_Y			= $83
-DUKE_DIRECTION		= $84
-DUKE_WALKING		= $85
-DUKE_JUMPING		= $86
+KEEN_XL			= $81
+KEEN_X			= $82		; location of protagonist
+KEEN_Y			= $83
+KEEN_DIRECTION		= $84
+KEEN_WALKING		= $85
+KEEN_JUMPING		= $86
 
 LASER_OUT		= $87
 LASER_X			= $88
@@ -102,7 +102,7 @@ LASER_DIRECTION		= $8A
 TILEMAP_X		= $8B
 TILEMAP_Y		= $8C
 
-DUKE_FOOT_OFFSET	= $8D
+KEEN_FOOT_OFFSET	= $8D
 
 FIREPOWER		= $8E
 INVENTORY		= $8F
@@ -116,8 +116,8 @@ SCORE1			= $92
 SCORE2			= $93
 UPDATE_STATUS		= $94
 
-DUKE_FALLING		= $95
-DUKE_SHOOTING		= $96
+KEEN_FALLING		= $95
+KEEN_SHOOTING		= $96
 KICK_UP_DUST		= $97
 SUPPRESS_WALK		= $98
 ENEMY_DATAL		= $99