$regfile = "m8def.dat"

Enable Interrupts

$crystal = 8000000
$baud = 9600

Dim Test As String * 10

Do

Input Test
waitms 500
print test

Loop

End

mfg pebisoft