home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / pac4 / order.bas < prev    next >
BASIC Source File  |  1984-09-30  |  3KB  |  60 lines
  1. 1 REM: This program will generate an order letter for ordering from Mail Order
  2. 2 REM: Suppliers. You will first have to enter your personal information where
  3. 3 REM: indicated for Name, Address, Credit Card Info, Etc.
  4. 4 REM:
  5. 5 CLS:LOCATE 10,25:PRINT "Mail Order Invoice Generator"
  6. 6 LOCATE 12,33:PRINT "Version 1.3"
  7. 7 FOR X=1 TO 2000:NEXT X
  8. 10 CLS:X=0
  9. 20 LINE INPUT "DATE --> ";D$
  10. 30 LINE INPUT "COMPANY NAME --> ";A$
  11. 40 LINE INPUT "COMPANY STREET ADDRESS --> ";B$
  12. 50 LINE INPUT "CITY AND STATE --> ";C$
  13. 60 CLS
  14. 70 INPUT "QUANTITY";Q(1,X)
  15. 80 IF Q(1,X)=0 THEN 140
  16. 90 LINE INPUT "DESCRIPTION (20 CHARS or Less) --> ";D$(1,X):D=LEN(D$(1,X)):IF D>20 THEN 90
  17. 100 INPUT "PRICE EACH";P(1,X)
  18. 110 T(1,X)=Q(1,X)*P(1,X)
  19. 120 X=X+1:N=X
  20. 130 GOTO 60
  21. 140 INPUT "SHIPPING COST";SH
  22. 150 INPUT "(1) CHECK OR (2) CHARGE";CC
  23. 160 CLS:X=0
  24. 162 PRINT "Position paper at Top-Of-Forms    ";:COLOR 0,7:PRINT "Strike <ENTER> To Continue";:COLOR 7,0
  25. 164 I$=INKEY$:IF I$="" THEN 164
  26. 170 LPRINT TAB(50)D$
  27. 180 LPRINT TAB(5)A$
  28. 190 LPRINT TAB(5)B$
  29. 200 LPRINT TAB(5)C$
  30. 210 LPRINT:LPRINT:LPRINT TAB(5)"DEAR SIRS:":LPRINT:LPRINT
  31. 220 LPRINT TAB(5)"PLEASE SHIP THE ITEMS LISTED AS SOON AS POSSIBLE:":LPRINT
  32. 230 LPRINT
  33. 240 LPRINT "     QUANTITY   DESCRIPTION            UNIT PRICE    TOTAL PRICE"
  34. 250 LPRINT
  35. 260 F$="      ###      \                     \ $$####.##   $$######.##"
  36. 270 FOR Z=1 TO N
  37. 280 LPRINT USING F$;Q(1,X);D$(1,X);P(1,X);T(1,X)
  38. 290 TT=TT+T(1,X)
  39. 300 X=X+1
  40. 310 NEXT Z
  41. 320 LPRINT TAB(54)"----------"
  42. 330 TP$="$$#####.##"
  43. 340 LPRINT TAB(42)"TOTAL      ";:LPRINT USING TP$;TT
  44. 350 IF SH=0 THEN 390
  45. 360 LPRINT TAB(42)"SHIPPING   ";:LPRINT USING TP$;SH
  46. 370 TS=TT+SH
  47. 380 LPRINT TAB(42)"GRAND TOTAL";:LPRINT USING TP$;TS
  48. 390 IF CC=2 THEN 480
  49. 400 LPRINT:LPRINT:LPRINT TAB(5)"I AM ENCLOSING A CHECK TO COVER THE AMOUNT."
  50. 410 LPRINT:LPRINT:LPRINT TAB(5)"THANK YOU"
  51. 420 LPRINT:LPRINT:LPRINT
  52. 430 LPRINT TAB(5) "YOUR NAME"
  53. 440 LPRINT TAB(5) "YOUR ADDRESS"
  54. 450 LPRINT TAB(5) "YOUR CITY AND STATE"
  55. 460 LPRINT TAB(5) "YOUR ZIP CODE"
  56. 470 END
  57. 480 LPRINT:LPRINT:LPRINT TAB(5)"CREDIT CARD TYPE AND NUMBER":'ADD YOUR PERSONAL INFO
  58. 490 LPRINT TAB(13)"EXP DATE OR BANK #":'ADD YOUR PERSONAL INFORMATION
  59. 500 GOTO41
  60.