home *** CD-ROM | disk | FTP | other *** search
- ;
- ; NOTE: A quick-reference summary of POM commands appears in EXAMPLE4.POM
- ;
- ;-----------------------------------------------------------------------------
- ;
- ; Replace the tab characters with spaces
- ;
- CHANGE $FLINE $TAB " "
- ;
- ; Extract the columns
- ;
- SET PROGNAME = $FLINE[ 1 20]
- SET DESCRIP = $FLINE[22 99]
- ;
- ; Trim the spaces
- ;
- TRIM PROGNAME "B" " "
- TRIM DESCRIP "B" " "
- ;
- ; Output the result
- ;
- OUTEND "X" = "X" |"{PROGNAME}","{DESCRIP}"
-