main

'' Open graphics window with specified coordinates,
'' and a title
''--------------------------------------------------
   
     Define WINDOW.ID as integer variable

     call OPENWINDOW.R given 4096, 28672, 0 , 32767,
                          " San Diego streets",
                          0
                          yielding WINDOW.ID

     call SETWINDOW.R given WINDOW.ID


'' Set world view and view port
''-----------------------------

     Let  VXFORM.V =1

     call SETWORLD.R ( -32767.0, 32767.0, -32767.0, 32767.0)

'' Display icons from default graphics.sg2 library
''-------------------------------------------------

     show CITY.MAP with "sandiego.icn" at ( 0.0, 0.0)

     show COMPANY.LOCATION with "caci.icn"      at (-27000.00, 11000.00)

     show VEHICLE1 with   "token.icn"           at (-4500.0, 0.0)


     Let TIMESCALE.V = 100

     Activate a VEHICLE.MOTION  now

     Start Simulation




'' This message will keep window open untill you click "OK"

   call MESSAGEBOX.R ("Exit", "End of the program")

end
