Sayfa 19

AMOS (C) 1990

Europress Software, Ltd. BASİT ANALYZER

DEMO Procedure DEMO Screen Close 0 Led Off

SONG$-Fsel$( yiniz") If

MÜzik Yükle-

Then Edit

Load SONG$ Music 1

ANALYZER| 160,4,2) Wait 200 ANALYZER| 100,32,2 Wait 200 ANALYZER| 160,2,4) Wait 200 ANALYZER)| 100,16,32) Wait 200 ANALYZER| 144,8,8) Wait Key

For A-63 To 0 Step -1 Volume A Wait 2 Next Erase 3 Rainbow Del End Proc

Procedure ANALYZER| Y,H,S)

Pause;" ; Jump

For A=0 To 3

Rainbow Channel A To Rainbow A Amal Next Amal On End Proc

AMOS (C) 1990 * ** Europress Software, Ltd.

ANALYZER #2

INIT MAIN Procedure MAIN SONG If SONG Load SONG$ Music | DISPLAY SPRITES Wait Key End Proc

Then Pop Proc

For Az0 To 3 Channel A To Sprite A*2-4-8 Amal IfA>I Then K-159 A*248,1534A*324K,129,

Sprite

16

Amal On

Procedure INIT Close Workbench Kil itor IMAGES Hide On Screen Open 0,320,80,2,Lowres Curs Off Screen Display 0,,88442,, For A-0 To 15 Colour A416,A*273 Next End Proc

Procedure İMAGES Screen Open 0,320,256,16,Lowres Curs Off : Cls 0 Screen Hide For A-0 To 15 Ink A: Draw 0,A To 15,A Next Get Bob 17,0,0 To 16,16 For A-0 To 14

15-A,0,164A*4 To 16,204 Next Get Bob 1,0,0 To 16,80 Cis 0 For A-I To 15

Paste Bob 0,A*4,1