home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / PRINT.PRG < prev    next >
Text File  |  1988-08-08  |  2KB  |  82 lines

  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * print.sig 08/18/83
  6. * this module prints the displayed record
  7. SET DEVICE TO PRINT
  8. SET CONSOLE OFF
  9. * put your printer code for 12 characters per inch here
  10. ? CHR(28)
  11. SET CONSOLE ON
  12. EJECT
  13. @ 1,10 SAY 'SIG/M SOFTWARE - BOX 97 - ISELIN, NJ 08830'
  14. @ 3,6 SAY 'ORDER NUMBER'
  15. @ 3,19 SAY ':'
  16. @ 3,20 SAY ORDER
  17. @ 3,42 SAY 'COMPLETE'
  18. @ 3,51 SAY ':'
  19. @ 3,52 SAY COMP
  20. @ 5,9 SAY 'LAST NAME'
  21. @ 5,19 SAY ':'
  22. @ 5,20 SAY LNAME
  23. @ 5,45 SAY 'FIRST'
  24. @ 5,51 SAY ':'
  25. @ 5,52 SAY FNAME
  26. @ 7,11 SAY 'ADDRESS'
  27. @ 7,19 SAY ':'
  28. @ 7,20 SAY ADDR1
  29. @ 8,10 SAY '(line 2)'
  30. @ 8,19 SAY ':'
  31. @ 8,20 SAY ADDR2
  32. @ 9,10 SAY '(line 3)'
  33. @ 9,19 SAY ':'
  34. @ 9,20 SAY ADDR3
  35. @ 10,14 SAY 'CITY'
  36. @ 10,19 SAY ':'
  37. @ 10,20 SAY CITY
  38. @ 10,48 SAY 'ST'
  39. @ 10,51 SAY ':'
  40. @ 10,52 SAY STATE
  41. @ 10,67 SAY 'ZIP'
  42. @ 10,71 SAY ':'
  43. @ 10,72 SAY ZIP
  44. @ 13,3 SAY 'VOLUMES'
  45. @ 13,11 SAY ':'
  46. @ 13,12 SAY VOL1
  47. @ 16,4 SAY 'AMOUNT'
  48. @ 16,11 SAY ':'
  49. @ 16,12 SAY AMT PICTURE '$###.##'
  50. @ 16,43 SAY 'ENTERED'
  51. @ 16,51 SAY ':'
  52. @ 16,52 SAY ENTERED
  53. @ 16,62 SAY 'SHIPPED'
  54. @ 16,70 SAY ':'
  55. @ 16,71 SAY SHIPPED
  56. @ 17,43 SAY 'CATALOG'
  57. @ 17,51 SAY ':'
  58. @ 17,52 SAY CATALOG
  59. @ 18,3 SAY 'REMARKS'
  60. @ 18,11 SAY ':'
  61. @ 18,12 SAY REM1
  62. @ 19,3 SAY 'REMARKS'
  63. @ 19,11 SAY ':'
  64. @ 19,12 SAY REM2
  65. @ 20,1 SAY 'BACKORDER'
  66. @ 20,11 SAY ':'
  67. @ 20,12 SAY BO
  68. @ 22,01 SAY 'BACKORDER SHIPPED'
  69. @ 22,19 SAY ':'
  70. @ 22,20 SAY BO_SHIP
  71. @ 22,40 SAY 'BACKORDER SHIPPED'
  72. @ 22,58 SAY ':'
  73. @ 22,59 SAY BO2_SHIP
  74. @ 26,40 SAY DTOC(DATE())
  75. @ 52,0 SAY ' '
  76. SET CONSOLE OFF
  77. * put printer code here for back to 10 cpi
  78. ? CHR(30)
  79. SET CONSOLE ON
  80. SET DEVICE TO SCREEN
  81.  
  82.