home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 13 / CD_ASCQ_13_0494.iso / maj / 2090 / parmatic / example5.pom < prev    next >
Text File  |  1994-02-13  |  685b  |  32 lines
  1. ;
  2. ; Divide up the input line because it is more than 255 characters wide
  3. ;
  4. SPLIT  005-100   102-168   170-300
  5.  
  6. ;
  7. ; Extract the fields
  8. ;
  9. IF     LineNum = ""  THEN Name    = $FLUPC[ 1  35]
  10. IF     LineNum = "1" THEN Phone   = $FLINE[53  67]
  11. IF     LineNum = "2" THEN Descrip = $FLINE[ 1  76]
  12.  
  13. ;
  14. ;  Remove surrounding spaces
  15. ;
  16. TRIM   Name     "B"  " "
  17. TRIM   Phone    "B"  " "
  18. TRIM   Descrip  "B"  " "
  19.  
  20. ;
  21. ; Build the line (but be sure that no OUT or OUTEND exceeds 255 character)
  22. ;
  23. OUT    LineNum = ""  |"{Name}",
  24. OUT    LineNum = "1" |"{Phone}",
  25. OUTEND LineNum = "2" |"{Descrip}"
  26.  
  27. ;
  28. ;  Reset line counter
  29. ;
  30. IF LineNum = "2" THEN LineNum = "" ELSE LineNum+
  31.  
  32.