home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / invet.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  48 lines
  1. 1 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 20 'INVENT.BA
  3. 40 DEFINTA-Z
  4. 60 DIMN$(20),Q(20),WP(20),DT$(20)
  5. 80 E$=CHR$(27):RS$=E$+"p":NS$=E$+"q"
  6. 100 CLS:PRINT@8,RS$"INVENTORY UPDATE & REVIEW"NS$
  7. 120 PRINT@87,"1-UPDATE EXISTING INVENTORY
  8. 140 PRINT@127,"2-ADD NEW TO INVENTORY
  9. 160 PRINT@167,"3-DISPLAY SUMMARY
  10. 180 PRINT@207,"9-EXIT
  11. 200 PRINT:INPUT" ENTER SELECTION NUMBER";A:ONAGOTO220,460,660,,,,,,780
  12. 220 CLS:PRINT@11,RS$"INVENTORY UPDATE"NS$:GOSUB800
  13. 240 PRINT"SELECT FROM PRODUCT LIST:
  14. 260 FORI=1TOK:PRINTI"-> "N$(I):NEXT
  15. 280 INPUT"ENTER SELECTION NUMBER";I
  16. 300 CLS:PRINT@8,RS$"UPDATE ITEM #"I"- "N$(I)NS$
  17. 320 PRINT@44,"LAST TOTAL & DATE ="Q(I)" ON  "DT$(I)
  18. 340 PRINT:INPUT"REVISED TOTAL QUANITY";Q(I)
  19. 360 INPUT"UNIT VALUE";WP(I)
  20. 380 INPUT"DATE";DT$(I):GOSUB880
  21. 400 PRINT"PRESS ANY KEY TO CONTINUE";
  22. 420 A$=INKEY$:IFA$=""THEN420
  23. 440 GOTO100
  24. 460 CLS:PRINT@6,RS$"ADD A NEW PRODUCT TO INVENTORY"NS$
  25. 480 PRINT:INPUT"PRODUCT NAME";N$
  26. 500 INPUT"STARTING QUANITY";Q
  27. 520 INPUT"UNIT VALUE";WP
  28. 540 INPUT"DATE";DT$
  29. 560 OPEN"INVDTA"FORAPPENDAS1
  30. 580 PRINT#1,N$","Q","WP","DT$:CLOSE
  31. 600 PRINT"PRESS ANY KEY TO CONTINUE";
  32. 620 A$=INKEY$:IFA$=""THEN620
  33. 640 GOTO100
  34. 660 CLS:PRINT@12,RS$"INVENTORY SUMMARY"NS$:GOSUB800
  35. 680 PRINTRS$" ITEM     QTY    UNIT    DATE    VALUE "NS$
  36. 700 FORI=1TOK
  37. 720 PRINTN$(I);TAB(9)Q(I);TAB(17)WP(I);TAB(25)DT$(I);TAB(33);Q(I)*WP(I):NEXT
  38. 740 A$=INKEY$:IFA$=""THEN740
  39. 760 GOTO100
  40. 780 MENU
  41. 800 OPEN"INVDTA"FORINPUTAS1
  42. 820 FORI=1TO999:INPUT#1,N$(I),Q(I),WP(I),DT$(I)
  43. 840 SOUND4000,1:K=I:IFEOF(1)THENGOTO860ELSENEXT
  44. 860 CLOSE:RETURN
  45. 880 OPEN"INVDTA"FOROUTPUTAS1
  46. 900 FORI=1TOK:SOUND3000,1
  47. 920 PRINT#1,N$(I)","Q(I)","WP(I)","DT$(I):NEXT:CLOSE:RETURN
  48.