home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XSHOP.SCR < prev    next >
Encoding:
Text File  |  1987-03-23  |  1.2 KB  |  42 lines
  1. field("payment",str,1,18,14)
  2. field("name",str,1,55,23)
  3. field("street",str,2,55,23)
  4. field("delivery",str,3,18,3)
  5. field("city",str,3,55,23)
  6. field("state",str,4,55,23)
  7. field("warranty",str,5,18,3)
  8. field("tel",str,6,55,19)
  9. field("item1",int,9,0,10)
  10. field("make1",str,9,12,37)
  11. field("price1",real,9,52,8)
  12. field("item2",int,11,0,10)
  13. field("make2",str,11,12,37)
  14. field("price2",real,11,52,8)
  15. field("item3",int,13,0,10)
  16. field("make3",str,13,12,37)
  17. field("price3",real,13,52,8)
  18. field("total",real,15,52,8)
  19. field("date",str,16,6,10)
  20. field("money",real,17,52,8)
  21. field("time",str,18,6,8)
  22. field("change",real,19,52,8)
  23. txtfield(1,0,17,"Means of payment:")
  24. txtfield(3,0,8,"Deliver:")
  25. txtfield(5,0,15,"Extra Warranty:")
  26. txtfield(8,0,9,"Item Code")
  27. txtfield(8,12,14,"Make and Model")
  28. txtfield(8,52,5,"Price")
  29. txtfield(15,41,1," ")
  30. txtfield(15,42,10,"    Total:")
  31. txtfield(17,0,52,"                               Amount from customer:")
  32. txtfield(19,0,52,"                                             Change:")
  33. txtfield(1,41,14,"Customer Name:")
  34. txtfield(2,44,1," ")
  35. txtfield(2,45,10,"  Address:")
  36. txtfield(3,50,5,"     ")
  37. txtfield(6,43,1," ")
  38. txtfield(6,44,11," Telephone:")
  39. txtfield(16,0,6," Date:")
  40. txtfield(18,1,5,"Time:")
  41. windowsize(20,77)
  42.