  #compact
  % filename "t.exe"
 'uses RTL64
  % Title "Console Input Demo"
 '% Animated
  % ScaleUp
 '% PlaceCentral
 '% AnchorCentral
 '% NoEscape

  $ filename "t.exe"
 'uses RTL64
  uses ConsoleG

  procedure main()
  ================
  sys a,i,p
  static string ins
  static string s

  cls .10,.10,.20
  '
  'LINE INPUT
  '
  PushState
  color .20,.80,.00,.88
  Scale 2
  print "Enter: "
  color .80,.80,.00,.88
  a=input ins
  lastchar=0
  if a
    s=ins
    ins="" : cp=1
  endif
  PopState
  move 0,-5
  PushState
  scale 2
  printl s
  PopState
  lastkey=0
  lastchar=0
  '
  end procedure

  EndScript
