Chloe

' Chloe Program
data "C", "h", "l", "o", "e", " ", "G", "r", "a", "c", "e"
data " ", "M", "o", "r", "e", "t", "z", ",", " ", "I", " "
data "l", "o", "v", "e", " ", "y", "o", "u", "!", chr$(13), "I"
data " ", "w", "a", "n", "t", " ", "t", "o", " ", "m", "a"
data "k", "e", " ", "l", "o", "v", "e", " ", "t", "o", " "
data "y", "o", "u", "!", chr$(13), chr$(26)

dim a as integer
dim c as string * 1

const newline=chr$(13)
const endline=chr$(26)

do while c<>endline
	read c
	select case c
	case newline
		print
	case endline
	case else
		print c;
	end select
loop
end