Category : Word Processors
Archive   : PAR233.ZIP
Filename : EXAMPLE2.POM

 
Output of file : EXAMPLE2.POM contained in archive : PAR233.ZIP
MINLEN "85"
;
IGNORE $FLINE[ 01 08] "Date: "
IGNORE $FLINE[ 49 67] "Order Expected"
IGNORE $FLINE[ 49 68] "Date Ship Date"
IGNORE $FLINE[ 10 32] "Item number/Description"
;
; Tidy up file line
;
CHANGE $FLINE """" "'"
;
; Determine where we are
;
IF $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
;
; Set variables
;
IF ITEMCNTR = "0" THEN REFNUM = $FLINE[ 1 8]
IF ITEMCNTR = "0" THEN CUSTCODE = $FLINE[ 10 15]
IF ITEMCNTR = "0" THEN CUSTDESC = $FLINE[ 17 47]
IF ITEMCNTR = "0" THEN ORDRDATE = $FLINE[ 49 57]
IF ITEMCNTR = "0" THEN MSTRCVDT = $FLINE[ 60 68]
IF ITEMCNTR = "1" THEN PRICE = $FLINE[105 114]
IF ITEMCNTR = "1" THEN QTY = $FLINE[ 76 86]
IF ITEMCNTR = "1" THEN PARTNUM = $FLINE[ 10 32]
IF ITEMCNTR = "2" THEN DESCRIP = $FLINE[ 10 43]
;
; Tidy up variables
;
TRIM REFNUM "B" " "
TRIM CUSTCODE "B" " "
TRIM CUSTDESC "B" " "
TRIM ORDRDATE "B" " "
TRIM MSTRCVDT "B" " "
TRIM PRICE "B" " "
TRIM PRICE "A" ","
TRIM QTY "B" " "
TRIM PARTNUM "B" " "
TRIM DESCRIP "B" " "
IF PRICE = "" THEN PRICE = "0.00"
IF QTY = "" THEN QTY = "0"
;
; Output
;
OUT ITEMCNTR = "2" |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
OUTEND ITEMCNTR = "2" |"{DESCRIP}"
;
; Reset item counter
;
IF ITEMCNTR = "2" THEN ITEMCNTR = "0"


  3 Responses to “Category : Word Processors
Archive   : PAR233.ZIP
Filename : EXAMPLE2.POM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/