  % Title "Console Demo"
 '% Animated
  % ScaleUp
 '% PlaceCentral
 '% AnchorCentral
  % fontA     "Arial",FW_SEMIBOLD
  % fontB     "Courier New",FW_BOLD
  % MultiSamples 8
  uses ConsoleG

  'DARK ON LIGHT BACKGROUND

  sub main()
  ==========
  string s
  cls .9 , .9 , .9
  color 0 , 0 , .5
  '
  'TITLE
  pushstate
  scale 2.,1.25
  'typeface=1
  printl "Hello World"
  popstate
  '
  move 0,-3
  '
  'LISTING
  pushstate
  sys i
  scale 1
  printl "NORMAL PRINT"
  seed=12345
  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
  scale .5
  printl "SMALL PRINT"
  seed=12345
  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
  '
  scale .5
  printl "TINY PRINT"
  seed=12345
  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
  popstate
  '
  'INPUT
  move 0,-25
  PushState
  color .0,.0,.20
  print "Enter: "
  color .0
  typeface=1
  input inputs
  typeface=0
  PopState
  '
  '
  'DISPLAY LAST INPUT
  printl
  color .0,.2,.0
  if LastInput
    printl "Last input: " LastInput
  end if
  printl ""
  lastkey=0
  lastchar=0
  '
  end sub

  EndScript
