home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3ledge.zip / VENDLIST.PRG < prev   
Text File  |  1986-01-12  |  1KB  |  79 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. *************************** (VENDLIST.PRG) 08/11/85 jay kenney
  4. CLEAR
  5. SET BELL OFF
  6. SET TALK OFF
  7. SET CONFIRM ON
  8. SET EXACT ON
  9. STORE ' ' TO OPTION
  10. USE VEND
  11. STORE 1 TO N1
  12. STORE 0 TO N2
  13. STORE 0 TO X
  14. DO WHILE .NOT. EOF()
  15. IF OPTION='Y'
  16. RETURN
  17. ENDIF
  18. @ N1,N2 SAY STR(ACCT,3,0)+' '+NAME
  19. STORE N1+1 TO N1
  20. STORE X+1 TO X
  21. SKIP
  22. IF X=22
  23. STORE 1 TO N1
  24. STORE 27 TO N2
  25. ENDIF
  26. IF X=44
  27. STORE 1 TO N1
  28. STORE 54 TO N2
  29. ENDIF
  30. IF X=66
  31. WAIT
  32. CLEA
  33. STORE 1 TO N1
  34. STORE 0 TO N2
  35. STORE 0 TO X
  36. ENDIF
  37. IF EOF()
  38. @ 23,24 SAY '    Print this list ? '
  39. store ' ' TO OPTION
  40. WAIT '                                    ? ' TO OPTION
  41. ENDDO
  42. IF OPTION<>'Y'
  43. CLEA
  44. RETU
  45. ENDIF
  46. IF OPTION='Y'
  47. CLEA
  48. GO TOP
  49. STORE 0 TO T
  50. STORE 1 TO N1
  51. STORE 1 TO X
  52. STORE 0 TO N2
  53. DO WHILE .NOT. EOF()
  54. SET DEVI TO PRIN
  55. SET PRIN ON
  56. @ N1,N2 SAY STR(ACCT,3,0)+' '+NAME
  57. STORE X+1 TO X
  58. IF X=1
  59. STORE 0 TO N2
  60. STORE N1+1 TO N1
  61. ENDIF
  62. SKIP
  63. IF X=2
  64. STORE 27 TO N2
  65. ENDIF
  66. IF X=3
  67. STORE 54 TO N2
  68. *STORE N1+1 TO N1
  69. STORE 0 TO X
  70. ENDIF
  71. SET PRIN OFF
  72. SET DEVI TO SCRE
  73. ENDDO
  74. EJECT
  75. RETURN
  76. ENDIF
  77. endif
  78. ENDDO
  79. RETURN