home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Save Values.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.1 KB  |  25 lines
  1. 'Since there is not a patch specified will put results in folder the macro is in
  2. sys(130)=-10                'X placement of input box
  3. sys(131)=-10                'Y placement of input box
  4. input "Enter the String." str$    'allows user input into str
  5. sys(130)=-10                'X placement of input box
  6. sys(131)=-10                'Y placement of input box
  7. input "Enter the First Number." x1    'allows user input into x1
  8. sys(130)=-10                'X placement of input box
  9. sys(131)=-10                'Y placement of input box
  10. input "Enter the Second Number." x2     'allows user input into x2
  11. sys(130)=-10                'X placement of input box
  12. sys(131)=-10                'Y placement of input box
  13. input "Enter the Third Number." x3    'allows user input into x3
  14. y1$=x1                    'converts numeric to string
  15. y2$=x2                    'converts numeric to string
  16. y3$=x3                    'converts numeric to string
  17. open "a", 1, "steve.txt"        'open file to place input in
  18. print #1, str$;              'inserts string    
  19. print #1, ",";                'places comma
  20. print #1, y1$;                'inserts number
  21. print #1, ",";                'places comma
  22. print #1, y2$;                'places 2nd number
  23. print #1, ",";                'places comma
  24. print #1, y3$                'places last number
  25.