  % Title "Console Demo"
 '% Animated
 '% ScaleUp
 '% PlaceCentral
 '% AnchorCentral
  uses ConsoleG

  sub main()
  ==========
  string s
  cls 0,0,0
  scale 2.,1.25
  'typeface=1
  printl "Hello World"
  '
  'TABLE
  '
  scale .5,.80
  sys i
  for i=1 to 10
    PushState
    color .99,.00,.00
    print i
    PopState
    PushState
    move 4 ' tab
    print chr(i+64)
    PopState
    PushState
    move 8 'tab
    print hex(i+64,2)+"h"
    PopState
    move 0,-1 'linefeed
  next
  printl 
  printl
  PushState
  color .20,.80,.00,.88
  Scale 2.,2.
  print "Enter: "
  color .80,.80,.00,.88
  typeface=1
  input inputs
  typeface=0
  PopState
  printl
  color .00,.80,.80,1.
  if LastInput
    printl "Last input: " LastInput
  end if
  printl ""
  lastkey=0
  lastchar=0
  '
  shading 'opposite of 'flat'
  '
  Material Gold
  move 2.,-2.,-1.0
  go sphere
  glTranslatef 0.,-2.0,0.
  Material Red
  go cube
  move 2.00,.00,.00
  rotateX -70
  scale 4
  color .70,.70,.20,.99
  print3d "Solids",1
  
  end sub

  EndScript
