10000  PROGRAM SECTION ONE
 10001 SEL TNPOLY.NAT
 10002 DISPLAY '...WRITING VRML HEADER'
 10003 DISPLAY '#VRML V1.0 ascii' PRINT
 10004 DISPLAY ' ' PRINT
 10005 DISPLAY 'PerspectiveCamera { ' PRINT
 10006 DISPLAY '  position ',$NUM2,$NUM3,$NUM4 PRINT
 10007 DISPLAY '  orientation 0.0 1.0 0.0 3.14' PRINT
 10008 DISPLAY '}' PRINT
 10009 DISPLAY ' ' PRINT
 10010 DISPLAY 'DirectionalLight {' PRINT
 10011 DISPLAY '   intensity 1.5 ' PRINT
 10012 DISPLAY '   direction 1.0 -0.2 1.0' PRINT
 10013 DISPLAY '}' PRINT
 10014 DISPLAY ' ' PRINT
 10015 DISPLAY 'ShapeHints {' PRINT
 10016 DISPLAY '  shapeType UNKNOWN_SHAPE_TYPE ' PRINT
 10017 DISPLAY '}' PRINT
 10018 DISPLAY ' ' PRINT
 10019 DISPLAY 'Coordinate3 {' PRINT
 10020 DISPLAY '  point [' PRINT
 20000 PROGRAM SECTION
 20001 IF $RECNO EQ $NOSEL
 20002    DISPLAY X-COORD,SPOT,Y-COORD PRINT
 20003 ELSE
 20004   DISPLAY X-COORD,SPOT,Y-COORD,',' PRINT
 20005 ENDIF
 30000 PROGRAMSECTION
 30001 DISPLAY '   ]' PRINT
 30002 DISPLAY '}' PRINT
 30003 DISPLAY '..WRITING IndexedFaceSet NODE'
 30004 SELECT POLYNODES
 30005 DISPLAY ' ' PRINT
 30006 DISPLAY 'IndexedFaceSet {' PRINT
 30007 DISPLAY '   coordIndex [' PRINT
 40000 PROGRAM SECTION
 40001 IF $RECNO EQ $NOSEL
 40002   DISPLAY NODE1,',',NODE2,',',NODE3,', -1' PRINT
 40003 ELSE
 40004   DISPLAY NODE1,',',NODE2,',',NODE3,', -1,' PRINT
 40005 ENDIF
 50000 PROGRAM SECTION
 50001 DISPLAY '   ]' PRINT
 50002 DISPLAY '}' PRINT
 50003 DISPLAY 'VRML FILE CREATED'
 50004 END