.nolist
#include "asm.inc"
.list
.org $9D93
	.db $BB,$6D
	bcall(_clrscrnfull)
	bcall(_zeroop1)
	ld a,5
	ld (op1),a
loop:
	ei \ halt
	bcall(_getcsc)
	or a
	jr z,loop
	cp skLeft
	jr z,MoveLeft
	cp skRight
	jr z,MoveRight
	cp sk2nd
	jr z,copy
	cp skEnter
	jr z,copy
	ret
MoveLeft:
	bcall(_findalphadn)
	bcall(_Clrlcdfull)
	bcall(_homeup)
	ld hl,op1+1
	bcall(_puts)
	jr loop
MoveRight:
	bcall(_findalphaup)
	bcall(_Clrlcdfull)
	bcall(_homeup)
	ld hl,op1+1
	bcall(_puts)
	jr loop
copy:
	bcall(_chkfindsym)
	ex de,hl
	ld c,(hl)
	inc hl
	ld a,(hl)
	ld b,a
	cp 2
	ret nc
	dec hl
	ld de,$8000
	ldir
	bcall(_clrlcdfull)
	bcall(_homeup)
	ld hl,success
	bcall(_puts)
	ret
success:
	.db "Copied!",0
.end