2     scnclr
4     screen 0,4,0
10    a%(0)=110 : a%(1)=0 : a%(2)=150
20    A%(3)=0:A%(4)=22200:A%(5)=64
30    A%(6)=10:A%(7)=0:A%(8)=0
40    A$="WHAT IS YOUR NAME"
50    GOSUB 1000
80    INPUT "What is your name";N$
90    IF N$="" THEN 10
100   A$="HELLO THERE "+N$
110   GOSUB 1000
120   A$="ARE YOU LOOKING TO BUY A COMPUTER?"
130   GOSUB 1000
140   print "Press 'Y' or 'N' ==> ";:GETKEY AN$
145   PRINT AN$
150   IF AN$="Y" OR AN$="y" THEN 200
155   IF AN$="N" OR AN$="n" THEN 160
157   GOTO 140
160   A$="WELL THATS TOO BAD. YOU WILL PROBABLY LIKE THE AMIGA AFTER YOU SEE THE POTENTIAL OF THIS AMAZING MACHINE. FOR EXAMPLE"
170   GOSUB 1000
180   GOTO 220
200   A$="THE AMIGA IS THE PERFECT COMPUTER FOR ALL OF YOUR NEEDS, WHETHER THEY ARE EDUCATIONAL, HOME, OR EVEN BIZNESS."
210   GOSUB 1000
220   A$="THE AMIGA HAS THE BEST ANIMATION, GRAPHICS, AND SOUND THAN ANY OTHER COMPUTER."
230   GOSUB 1000
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"
250   GOSUB 1000
260   A$="BY THE WAY, THIS PROGRAM WAS WRITTEN IN BASIC. ASK YOUR SALES PERSON FOR DETAILS."
270   GOSUB 1000
280   A$="WHAT TYPE OF COMPUTER DO YOU OWN?"
285   GOSUB 1000
290   ?"1) APPLE II SERIES"
300   ?"2) MACINTOSH"
310   ?"3) COMMODORE"
320   ?"4) IBM"
330   ?"5) OTHER"
340   ?"6) NONE."
350   PRINT:PRINT "Press the corresponding number ==> ";:GETKEY CH$:PRINT CH$
355   T=VAL(CH$)
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"
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."
380   IF T=3 THEN A$="WELL YOU CERTAINLY MADE A GOOD CHOICE."+N$
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."
392   IF T=6 THEN A$="THE AMIGA COMPUTER IS THE BEST CHOICE FOR YOU TO START AND GROW WITH."
400   GOSUB 1000
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."
420   GOSUB 1000
700   END
1000  X$=TRANSLATE$(A$)
1010  I%=NARRATE(X$,A%())
1020  RETURN
9999  END