; Whack-An-Apple v1.0
; By Michael Vincent - michael@radicalsoft.org
;
; http://www.radicalsoft.org
;
;
.nolist
#include "asm.inc"
#include "ion.inc"
.list
#define curpos saferam1
#define score saferam1+1
#define counter saferam1+3
.org $9D93
	.db $BB,$6D
	ret
	jr nc,start
	.db "Whack-Windows v1.0",0
start:
	bcall(_clrscrnfull)
	ld hl,0
	ld (currow),hl
	ld hl,title
	bcall(_puts)
	bcall(_newline)
	ld hl,author
	bcall(_puts)
	bcall(_newline)
	bcall(_newline)
	ld hl,scorelbl
	bcall(_puts)
	ld hl,(highscore)
	bcall(_disphl)
titlepause:
	ei \ halt
	bcall(_getcsc)
	or a
	jr z,titlepause
	bcall(_clrscrnfull)
	ld hl,0
	ld (score),hl
	xor a
	ld (counter),a
	inc a
	ld (curpos),a
	ld h,1
	ld bc,63
	ld de,60*256+63
	bcall(_iline)
	ld bc,64-21
	ld de,60*256+(64-21)
	bcall(_iline)
	ld bc,64-42
	ld de,60*256+(64-42)
	bcall(_iline)
	ld bc,64-63
	ld de,60*256+(64-63)
	bcall(_iline)
	ld bc,63
	ld de,64-(42+21)
	bcall(_iline)
	ld bc,20*256+63
	ld de,20*256+(64-(42+21))
	bcall(_iline)
	ld bc,40*256+63
	ld de,40*256+(64-(42+21))
	bcall(_iline)
	ld bc,60*256+63
	ld de,60*256+(64-(42+21))
	bcall(_iline)
	bcall(_getkey)
	ret
	call XorLogo
XorLogo:
	ld a,(curpos)
	cp 3
	jr nc,firstrow
firstrow:
	dec a
	jr z,firstcol
title:
	.db "Whack-Windows",0
author:
	.db "Michael Vincent",0
scorelbl:
	.db "High Score:",0
highscore:
	.dw 0000
logo:
	.db %00000000,%00111110,%00000000
	.db %00000000,%11111111,%10000000
	.db %10000001,%11111111,%11000000
	.db %10100111,%11011101,%11000000
	.db %10100111,%10011100,%11000000
	.db %00111111,%10011100,%11000000
	.db %10000001,%10111110,%11000000
	.db %10100111,%11111111,%11000000
	.db %00111111,%11011101,%11000000
	.db %10000001,%10011100,%11000000
	.db %10100111,%10011100,%11000000
	.db %00111111,%10111100,%11000000
	.db %10000001,%11111111,%11000000
	.db %10000001,%11111111,%11000000
	.db %10100111,%11000001,%11000000
	.db %00111111,%00000000,%01000000
.end