'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
''
''-----------------------------------------------------------------------

Main
''   Set up the world view and view port
     Let vxform.v = 1                            '' View port number
     Call setworld.r(0.0, 2000.0,0.0, 2000.0)    '' World dimensions

''   Make 1 second of real time pass for every second of simulated time
     Let TIMESCALE.V = 100

''   Create a shape and specify the display routine that will draw it
     Activate a SHAPE now
     Show SHAPE with "shape.icn"

     Start simulation
End ''Main

