#dontinclude

; coco main
	opt	forwardrefmax
#include	coco\main_lib.txt
#include	coco\disk_lib.txt
#include	coco\cg3_display.txt
#include	coco\sidchip.txt
#include	coco\joystick_lib.txt

#memstart	28672	;$7500


	org	$3500	;mem start?
start

	cls(#1)


mainlp
	keystring(#0)
	ldx	#keystring_dump
	lda	0,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#0,#myword)

	lda	1,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#32,#myword)

	lda	2,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#64,#myword)

	lda	3,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#96,#myword)

	lda	4,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#128,#myword)

	lda	5,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#160,#myword)

	lda	6,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#192,#myword)

	lda	7,x
	sta	key_chk
	binstring(key_chk,#myword)
	print(#1,#224,#myword)


	lbra	mainlp

def	myword	string	10
def	key_chk	byte


; end of program
cocoromend



	end	start


