1     goto 160
5     AUDIO 15,1
10    A$ = TRANSLATE$("HELLO I AM THE NEW AMIGA PERSONAL COMPUTER FROM COMMODORE!")
15    B$ = TRANSLATE$("I HAVE A SHORT DEMO FOR YOU TO SEE. BUT FIRST I WANT TO TELL YOU A LITTLE ABOUT MYSELF.")
20    C$ = TRANSLATE$("FIRST OFF I AM RUNNING IN AE BASIC CREATED BY METACOMP, FOR THE AMIGA, IT CAME FREE WITH ME.")
25    D$ = TRANSLATE$("I HAVE BUILT IN SPRITES ,BLITTERS ,SPEECH SYNTHISYS ,STEREO SOUND ,AND I AM I.B.M COMPATIBLE. THE LIST GOES ON AND ON.")
30    E$ = TRANSLATE$("I HAVE GRAPHIC CAPABILITIES THAT WILL BLOW YOUR MINDTHEY ARE SECOND TO NONE LISA MY GRAPHICS CHIP HANDLES THAT.")
35    F$ = TRANSLATE$("MY SOUND IS EXCELENT THANKS TO DAFNEE MY SOUND CHIP SHE MADE THIS PROGRAM SO EASY.")
110   X% = NARRATE (A$) 
111   X% = NARRATE (B$)
112   X% = NARRATE (C$)
113   X% = NARRATE (D$)
114   X% = NARRATE (E$)
115   X5 = NARRATE (F$)
116   END
160   SCNCLR
161   c = 1 : x = 10 : y = 10 : d = 10 : h = 1
162   penb 2
163   paint (0,50)
165   circle (x,y), d, h
170   x1 = x1+3 
175   y = y+3
180   d = d+2
182   peno c
183   c = c + 1
184   if c = 31 then c = 1
185   circle (x1,y), d, h
190   IF Y = 166 THEN SLEEP 5*10^6 :SCNCLR :GOTO 200 
195   goto 170
200   CIRCLE (145,90), 0, 1
201   penb 4 : paint (0,0) :c = 1 : peno c
205   S1 = S1+1
206   c = c + 1 : if c = 31 then c = 1
207   peno c
210   CIRCLE (145,90), S1, 1
215   IF S1 = 90 THEN SLEEP 5*10^6 :SCNCLR : GOTO 225
220   GOTO 205
225   draw (1,1 to 320,1)
230   y1 = y1+1
231   c = c+1 : pena c : if c = 31 then c = 1
235   draw (1,y1 to 320,y1)
240   if y1 = 190 then sleep 5*10^6 : scnclr : goto 265 
245   goto 230
250   B$ = TRANSLATE$("THANK YOU FOR WATCHING THE DEMO.")
255   X% = NARRATE (B$)
260   end
265   draw (1,1 to 1,190)
270   x2 = x2+1
271   c = c+1 : pena c : if c = 31 then c = 1
275   draw (x2,1 to x2,190)
280   if x2 = 300 then sleep 5*10^6 :scnclr : goto 290
285   goto 270
290   draw (1,1 to 1,1)
295   x3 = x3+1 
300   y3 = y3+1 
301   c =c+1 : pena c : if c = 31 then c = 1
305   draw (x3,1 to 1,y3)
310   if y3 = 200 then sleep 5*10^6 : scnclr : goto 320
315   goto 295
320   draw (1,190 to 1,1)
325   x5 = x5+1
326   c = c+1 : pena c : if c = 31 then c = 1
330   draw (1,190 to x5,1)
335   if x5 = 320 then goto 345
340   goto 325
345   y6 = y6+1
346   c = c+1 : pena c : if c = 31 then c = 1
350   draw (1,190 to 320,y6)
355   if y6 = 190 then sleep 5*10^6 : scnclr : goto 370
360   goto 345
370   ? "TO EXIT NEXT DEMO PRESS LEFT"
371   ? "           MOUSE BUTTON"
380   SLEEP 5*10^6
400   scnclr
401   penb 6
402   paint (50,50)
405   c=1
410   x = 24 : y = 50
415   z = 24 : k = 100
420   dx = 3 : dy =3
425   dz = 6 : dk = 6
430   draw (x,y to z,k)
435   c = c+1 : pena c
440   x = x + dx
445   z = z + dz
450   if x < 4 or x > 300 then dx = - dx
455   if z < 4 or z > 300 then dz = - dz
460   y = y + dy
465   k = k + dk
470   if y < 5 or y > 190 then dy = - dy
475   if k < 5 or k > 190 then dk = -dk
480   if c = 31 then c = 1
485   ask mouse x%, y%, b%
486   if b% <> 0 then goto 250
490   goto 430
495   end