  includepath "$/inc/"
  '$filename  "t.exe"
  'include    "rtl32.inc"
  include     "console.inc"
  '
  int a,i,le
  SetConsoleTitle "Console demo:"
  '
  RepeatProg:
  '
  color 0xf0
  cls
  print "helo" cr cr
  color 0xf9
  for i=1 to 10
    print i tab i*10 cr
  next
  color 0xf0
  '
  RepeatAscii:
  '
  print cr "Enter text: "
  color 0xf2
  string s=input
  if len s
    le=len s
    color 0xf4
    print cr "Ascii codes:" cr
    for i=1 to le
       print asc(s,i) " | "
    next
    print cr
  end if
  color 0xf0
  print cr "press key to continue"
  Waitkey
  cls
  setpos 0,1
  print "Options: Q quit  R repeat  M more ascii  "
  do
    a=getkey
    s=lcase chr a
    if s="r"
      cls : goto RepeatProg
    elseif s="m"
      cls : goto RepeatAscii
    elseif s="q"
      exit do
    end if
  end do
  'WaitKey
  end
