home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / let12.zip / READ-DB.LET < prev    next >
Text File  |  1987-09-17  |  402b  |  10 lines

  1. Rec=(+ Rec 1)
  2. Deleted=(replace (read DB-File (+ 139 (* Rec 87)) 1) " " "No" "*" "Yes")
  3. FirstName=(trim (read DB-File (+ 140 (* Rec 87)) 10))
  4. LastName=(trim (read DB-File (+ 150 (* Rec 87)) 12))
  5. Street=(trim (read DB-File (+ 162 (* Rec 87)) 32))
  6. City=(trim (read DB-File (+ 194 (* Rec 87)) 20))
  7. State=(trim (read DB-File (+ 214 (* Rec 87)) 2))
  8. ZIP=(trim (read DB-File (+ 216 (* Rec 87)) 10))
  9.  
  10.