$export namefile formatted for Solar Fire import PTMP 1 CARY ,,,,N,S,E,W,-,+, ,BC $ 0 1 SYSTR ;get current namefile name 0 20000 FOR ;get namefile entries from start 1 CNT NFI XIF ;until end of file or blank entry DNORM $ 13 MEGET 100 ADD ;latitude minutes 15 MEGET BOO 4 ADD ;latitude direction 12 MEGET 100 ADD ;latitude degrees 17 MEGET 100 ADD ;longitude minutes 19 MEGET BOO 6 ADD ;longitude direction 16 MEGET 1000 ADD ;longitude degrees 6 MEGET 30 < ;round minutes up if seconds > 30 5 MEGET 59 > AND ;and if minutes less than 59 5 MEGET ADD ; 60 MOD 100 ADD 100 ADD ;time minutes 4 MEGET ;time hours 11 MEGET BOO 8 ADD ;string index of zone sign (W+ E-) 8 MEGET 0 NTOS ;zone hours in string 0 0 2 STCAT ;signed zone hours in string 2 9 MEGET 100 ADD 3 NTOS ;zone minutes 58 1 3 STCHR DEC ;replace 1mm with :mm 2 3 2 STCAT ;add to end of zone string 2 ;zone string 3 MEGET BOO 10 ADD 2 MEGET ;year 1 MEGET 100 ADD ;month 0 MEGET 100 ADD ;dat 3 MENAM 3 :name NUMS 1 UTFIL NAMEFILE.TXT @@@@@@@@@@@@@@@@@@@@## ## #### @@0 3 @@@@@@ ##:## ###@## 00 ##@## 00 $ NEXT 0 UTFIL 1 NUMS File: NAMEFILE.TXT written The file mirrors the current namefile, formatted to import into Solar Fire using ASCII field definitions. $$$