home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / salestalk.bas < prev    next >
BASIC Source File  |  1988-05-22  |  2KB  |  53 lines
  1. 2     scnclr
  2. 4     screen 0,4,0
  3. 10    a%(0)=110 : a%(1)=0 : a%(2)=150
  4. 20    A%(3)=0:A%(4)=22200:A%(5)=64
  5. 30    A%(6)=10:A%(7)=0:A%(8)=0
  6. 40    A$="WHAT IS YOUR NAME"
  7. 50    GOSUB 1000
  8. 80    INPUT "What is your name";N$
  9. 90    IF N$="" THEN 10
  10. 100   A$="HELLO THERE "+N$
  11. 110   GOSUB 1000
  12. 120   A$="ARE YOU LOOKING TO BUY A COMPUTER?"
  13. 130   GOSUB 1000
  14. 140   print "Press 'Y' or 'N' ==> ";:GETKEY AN$
  15. 145   PRINT AN$
  16. 150   IF AN$="Y" OR AN$="y" THEN 200
  17. 155   IF AN$="N" OR AN$="n" THEN 160
  18. 157   GOTO 140
  19. 160   A$="WELL THATS TOO BAD. YOU WILL PROBABLY LIKE THE AMIGA AFTER YOU SEE THE POTENTIAL OF THIS AMAZING MACHINE. FOR EXAMPLE"
  20. 170   GOSUB 1000
  21. 180   GOTO 220
  22. 200   A$="THE AMIGA IS THE PERFECT COMPUTER FOR ALL OF YOUR NEEDS, WHETHER THEY ARE EDUCATIONAL, HOME, OR EVEN BIZNESS."
  23. 210   GOSUB 1000
  24. 220   A$="THE AMIGA HAS THE BEST ANIMATION, GRAPHICS, AND SOUND THAN ANY OTHER COMPUTER."
  25. 230   GOSUB 1000
  26. 240   A$="FOR YOU I B M LOVERS, THE AMIGA CAN ALSO RUN I B M SOFTWARE WITH THE TRANS FORMER PROGRAM. THAT PROGRAM RETAILES FOR UNDER A HUNDRED DOLLARS"
  27. 250   GOSUB 1000
  28. 260   A$="BY THE WAY, THIS PROGRAM WAS WRITTEN IN BASIC. ASK YOUR SALES PERSON FOR DETAILS."
  29. 270   GOSUB 1000
  30. 280   A$="WHAT TYPE OF COMPUTER DO YOU OWN?"
  31. 285   GOSUB 1000
  32. 290   ?"1) APPLE II SERIES"
  33. 300   ?"2) MACINTOSH"
  34. 310   ?"3) COMMODORE"
  35. 320   ?"4) IBM"
  36. 330   ?"5) OTHER"
  37. 340   ?"6) NONE."
  38. 350   PRINT:PRINT "Press the corresponding number ==> ";:GETKEY CH$:PRINT CH$
  39. 355   T=VAL(CH$)
  40. 360   IF T=1 THEN A$="HA HA HA HA HA HA HA HA HA.   YOU BOUGHT AN APPLE. HA HA HA HA HA HA HA HA HA"
  41. 370   IF T=2 THEN A$="WELL THE AMIGA RUNS OFF OF THE SAME CHIP AS THE MAC BUT AS YOU CAN SEE, IT USES ALOT MORE OF IT. NOT TO MENTION THE COLOR."
  42. 380   IF T=3 THEN A$="WELL YOU CERTAINLY MADE A GOOD CHOICE."+N$
  43. 390   IF T=4 THEN A$="I BET YOU PAID ALOT FOR YOUR I B M. THE AMIGA IS ALOT LOWER IN PRICE FOR ALOT MORE COMPUTER."
  44. 392   IF T=6 THEN A$="THE AMIGA COMPUTER IS THE BEST CHOICE FOR YOU TO START AND GROW WITH."
  45. 400   GOSUB 1000
  46. 410   A$="YOU SHOULD GET AN AMIGA WHETHER YOU PRESENTLY OWN A COMPUTER OR NOT. YOU WILL GET A LOT MORE COMPUTER FOR YOUR MONEY.  THIS IS THE NEW GENERATION OF COMPUTERS."
  47. 420   GOSUB 1000
  48. 700   END
  49. 1000  X$=TRANSLATE$(A$)
  50. 1010  I%=NARRATE(X$,A%())
  51. 1020  RETURN
  52. 9999  END
  53.