Loading a textfile into an INFO program

1. Download the textfile and place it in the WORKSPACE, above the info directory.
2. I think that it is a good idea to edit off the first line, ie the

   PROGRAM SECTION ONE

   line so that the compiler doesn't get confused.
3. Start up Arc and INFO.
4. Create an INFO program file using the PROGRAM command. I found that I have to put in a single line to make it save the new file, perhaps

   DISPLAY 'Starting program'

5. Enter the CHANGE <program> command
6. Go to the end of the file
7. Enter the LOAD <path_to_file> SYSTEM command
8. quit to exit the CHANGE session.

Now you should be able to TYPE the program file. Here is a screen grab of an example session.

Arc: info
 INFO  EXCHANGE  CALL
31/05/1996  10:09:51
 INFO  9.42  11/11/86  52.74.63*
 Copyright (C) 1994 Doric Computer Systems International Ltd.
 All rights reserved.
 Proprietary to Doric Computer Systems International Ltd.
 US Govt Agencies see usage restrictions in Help files (Help Restrictions)
 ENTER USER NAME>ARC
 
 ENTER COMMAND >PROGRAM WRITEWRL
 10000  PROGRAM SECTION ONE
 >DISPLAY '..STARTING WRITEWRL'
 >
 
 ENTER COMMAND >CHANGE WRITEWRL
 ENTER OPTIONS>N
 10000  PROGRAM SECTION ONE
 ENTER OPTIONS>N
 10001 DISPLAY '..STARTING WRITEWRL'
 ENTER OPTIONS>N
 END OF FILE
 ENTER OPTIONS>LOAD ../writewrl SYSTEM
 50004 END
 ENTER OPTIONS>
 END OF FILE
 ENTER OPTIONS>Q
  
 ENTER COMMAND >TYPE WRITEWRL
 PROGRAM NAME: WRITEWRL                                             05/31/1996
 10000  PROGRAM SECTION ONE
 10001 DISPLAY '..STARTING WRITEWRL'
 10002 SEL TNPOLY.NAT
 10003 DISPLAY '...WRITING VRML HEADER'
 10004 DISPLAY '#VRML V1.0 ascii' PRINT
 10005 DISPLAY ' ' PRINT
 10006 DISPLAY 'PerspectiveCamera { ' PRINT
 10007 DISPLAY '  position ',$NUM2,$NUM3,$NUM4 PRINT
 10008 DISPLAY '  orientation 0.0 1.0 0.0 3.14' PRINT
 10009 DISPLAY '}' PRINT
 10010 DISPLAY ' ' PRINT
 10011 DISPLAY 'DirectionalLight {' PRINT
 10012 DISPLAY '   intensity 1.5 ' PRINT
 10013 DISPLAY '   direction 1.0 -0.2 1.0' PRINT
 10014 DISPLAY '}' PRINT
 10015 DISPLAY ' ' PRINT
 10016 DISPLAY 'ShapeHints {' PRINT
 10017 DISPLAY '  shapeType UNKNOWN_SHAPE_TYPE ' PRINT
 10018 DISPLAY '}' PRINT
 10019 DISPLAY ' ' PRINT
 10020 DISPLAY 'Coordinate3 {' PRINT
 10021 DISPLAY '  point [' PRINT
 20000 PROGRAM SECTION
 MORE?N