home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl05.pom < prev    next >
Text File  |  2001-07-15  |  653b  |  27 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. ;   Extract the fields
  7. ;
  8. IF       LineNum = ""  THEN Name    = $FLUPC[ 1  35]
  9. IF       LineNum = "1" THEN Phone   = $FLINE[53  67]
  10. IF       LineNum = "2" THEN Descrip = $FLINE[ 1  76]
  11. ;
  12. ;   Remove surrounding spaces
  13. ;
  14. TRIM     Name     "B"  " "
  15. TRIM     Phone    "B"  " "
  16. TRIM     Descrip  "B"  " "
  17. ;
  18. ;   Build the line
  19. ;
  20. OUT      LineNum = ""  |"{Name}",
  21. OUT      LineNum = "1" |"{Phone}",
  22. OUTEND   LineNum = "2" |"{Descrip}"
  23. ;
  24. ;   Reset line counter
  25. ;
  26. IF       LineNum = "2" THEN LineNum = "" ELSE LineNum+
  27.