mesg		var	byte(13)
pnt		var	byte
baud		var	word
del		var	word
startflag	var	byte
endflag		var	byte

startflag = 1
endflag = 3
baud = 27889

mesg(0) = "H"
mesg(1) = "e"
mesg(2) = "l"
mesg(3) = "l"
mesg(4) = "o"
mesg(5) = ","
mesg(6) = " "
mesg(7) = "w"
mesg(8) = "o"
mesg(9) = "r"
mesg(10) = "l"
mesg(11) = "d"
mesg(12) = "!"

main:
pnt = 0

serout 1,baud,[startflag]
serout 1,baud,[startflag]
serout 1,baud,[startflag]
serout 1,baud,[startflag]
serout 1,baud,[startflag]

for pnt = 0 to 12  
serout 1,baud,[mesg(pnt)]
next

serout 1,baud,[endflag]
serout 1,baud,[endflag]
serout 1,baud,[endflag]
serout 1,baud,[endflag]
serout 1,baud,[endflag]

random del
del = del // 3000 
pause del

goto main