home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / shoppr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  76 lines
  1. 0 'SHOPPR.BA - Author Unknown
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 100 MAXFILES=2
  4. 110 MSG$="Shopper!"
  5. 120 GOSUB600
  6. 130 CLS
  7. 140 PRINT@160,"(S)imple shopping or (L)ist ";
  8. 150 A$=INPUT$(1)
  9. 160 IF A$="S"ORA$="L"THEN170ELSE130
  10. 170 IFA$="L"THENOPEN"SHPLST.DO"FORAPPENDAS1:PRINT#1,"List for ";DAY$;", ";DATE$;" at ";TIME$
  11. 180 CLS
  12. 190 PRINT@40,"L=LST, ==TTL, T=TAX, E=END, *=END/KILL"
  13. 200 PRINT@130,"COST     QTY  CODE   TOTAL"
  14. 210 PRINT@160,"PREVIOUS ";
  15. 220 PRINTUSING"$$#.##  ##.##    !   $$#.##";PC,PN,TX$,PT
  16. 230 PRINT@200,"----->   ";
  17. 240 INPUTCC
  18. 250 PRINT@215," ";
  19. 260 INPUTCN
  20. 270 PRINT@223," ";
  21. 280 INPUTTX$
  22. 290 IFTX$="E"ANDA$="L"THENPRINT#1,"Total for this list is ";USING"$$##.##";RT:CLOSE1:MSG$="The End - List Kept!":GOSUB600:MENU
  23. 300 IF TX$="E"THENMSG$="The End - No List!":GOSUB600:MENU
  24. 310 IFTX$="*"ANDA$="L"THENCLOSE1:CLS:KILL"SHPLST.DO":MSG$="The End - List Killed!":GOSUB600:MENU
  25. 320 IFTX$="*"THENMSG$="The End - No List!":GOSUB600:MENU
  26. 330 IFTX$="="THENCLS:PRINT@160,"Total at this point is: ";:PRINTUSING"$$##.##";RT:SOUND2348,25:GOTO180
  27. 340 IFTX$="L"THENGOSUB460:GOTO180
  28. 350 CT=CC*CN
  29. 360 IFTX$="T"THENCT=((CT*.06)+CT):CT=INT((100*CT)+.5)/100
  30. 370 PRINT@229," ";
  31. 380 PRINTUSING"$$#.##";CT
  32. 390 PC=CC
  33. 400 PN=CN
  34. 410 PT=CT
  35. 420 SOUND2348,25
  36. 430 RT=RT+CT
  37. 440 IFA$="L"THENPRINT#1,USING"$$#.##  ##.##  !  $$#.##";PC;PN;TX$;PT
  38. 450 GOTO 180
  39. 460 IFA$="S"THENCLS:PRINT@200,"SORRY, THERE IS NO LIST!":SOUND2348,100:RETURN
  40. 470 CLOSE1
  41. 480 OPEN"SHPLST.DO"FORINPUTAS2
  42. 490 CLS
  43. 500 FORX=1TO6
  44. 510 LINEINPUT#2,LI$
  45. 520 PRINTLI$
  46. 530 IFEOF(2)THEN130ELSENEXTX
  47. 540 PRINT"<ENTER> TO CONT, <R> TO RETURN";
  48. 550 X$=INPUT$(1)
  49. 560 IFEOF(2)THEN570ELSEIFX$="R"THEN570ELSE490
  50. 570 CLOSE2
  51. 580 OPEN"SHPLST.DO"FORAPPENDAS1
  52. 590 RETURN
  53. 600 ' OPENING DISPLAY
  54. 610 CLS
  55. 620 LINE(0,0)-(239,63)
  56. 630 LINE(239,0)-(0,63)
  57. 640 A=0
  58. 650 B=0
  59. 660 C=239
  60. 670 D=63
  61. 680 A=A+2
  62. 690 B=B+2
  63. 700 C=C-2
  64. 710 D=D-2
  65. 720 LINE(A,B)-(C,D),1,B
  66. 730 IFA=60THEN740ELSE680
  67. 740 SP=LEN(MSG$)
  68. 750 TM=40-SP
  69. 760 SP=TM/2
  70. 770 SP=SP+120
  71. 780 PRINT@SP,CHR$(27)"p";MSG$;CHR$(27)"q"
  72. 790 FORX=1TO400
  73. 800 Y=RND(X)
  74. 810 NEXTX
  75. 820 RETURN
  76.