FUJIbauddata UUUORGANY dataA UUpoNMVOTESYMENGIAANZEI P%%ϠЯԠҠқZKK͠٠ϠȠנȪ瀞_;@,d!!BY PETER BLUEMER, 4370 MARLn +AR@1ACA O6-@[6-@g6-Aus6-@6-@6-xM@@d'B7t@dMZABEZPIECZ. PRZED KLAWISZEM >BREAK<m-@@)-@57(>:@,; O-@@#[-@i(>:A`,m l-@@)-@57(>:@,; O-@@[-@h(>:AS,l s-@@)-@57(>:@,; M-@@#a-@@6o(>:@,s 96-@ Ap%6-@"/ Ap9 Ab-@@-b(>:A0,>:@2,>:A0,>:@2 data< UU,>:A`,>:A0,d](>:A0,>:@2,>:A0,>:@2,>:A0,>:@2,>:A`,>:A0,a d$X-@ @##-@7-@P(>:A`,>:A0,T X u-@@5(C D E F G A H C D E F G A HG-@#U(>:AP,g-@7@#u(>:A0,M-@"#-0(>:AP,<-@7I(>:A0,M ;-@)-@57(>:AB,; ]-@@!(VOLUME:3-@@?(TEMPO :Q-@@](SYNCRO:b-@@ 3( Ǡ->Zalicz dzwiek E-@@b( Ԡ->Muzyka ON/OFF]-@@1( Ԡ->Na ú lub ĺC-@@]( Π->Kasowanie ;-@@"(TAB=C1-@@;(Π^-@@>($P-@@^( Przyklad:--@@-( ->STRIG->STRIG"--@@-(נ->STRIG->STRIG,--@@-(Ҡdata9 UU->STRIG->STRIG6P-@@&( Ԡ->STRIG8-@@P(Ҡ->STRIG->@q-@ @#-@'0(>:AS,4 F-@(@ R(Πd-@(@q( J4-@@#-@40(>:AS,4 T/ #AP!-AVAx%"+/ ^kk104,72,173,252,2,201,255,240,31,162,0,224,25,240,25,232,173,252,2,221,71,1,208,243,188,96,1,140,125,1h88169,255,141,252,2,169,175,141,124,1,169,1,141,24,2rdd173,124,1,201,160,240,3,206,124,1,173,124,1,141,1,210,169,255,141,252,2,173,125,1,141,0,210,96|NN44,31,47,30,46,42,24,40,29,45,27,43,11,53,13,48,8,10,54,14,55,15,52,12,0__243,230,217,204,193,182,173,162,153,144,136,128,121,114,108,102,96,91,85,81,76,72,68,64,09AP'AQ@9A6@/ #A !-A6A%"+/ ``104,72,174,46,6,189,47,6,141,6,210,24,105,2,141,4,210,169,175,141,5,210,141,7,210,238,46,6<<173,46,6,201,2,208,5,169,0,141,46,6,169,10,141,24,2,96 A0S-@data; UU@&(F:A, ;F:A,"M-@@S( I6-R:,("@*@.-;(>:@2,I6-&@:"@*@-,(>:@2,:6-%@ -(>:@,Y-@@%(&A` 7-@@?( Q-@@Y( 1#"@*"@*!A`16-&@1#"@*"@* Au16-%@1#"@*"@*!@16-&@1#"@*"@* @16-%@1#"@*"@*!16-&@&1#"@*"@* @16-%@0k@#-@E2@@@g2k :ADtT:,@/A%F:A,=6-%@OAc-@ g t((BUZZER)N!A 6-A Xb8-@1@(.F:B2y,"@8 Al<-@@&( Ԡ26-< A@v0-@@data= UU$( 06-@,"F:B2y,"@*", A**F:B2y,"@*"A3ATAw'AI3Ah AP-@  A!"@-6-?A6QAQ@cA6@w-@2 $jA6'AQ@36-@EA6@g2j$j-@@"(KASUJE8-AA%Df2AC@@j L6-!-@@/( ΠA-@0@I( L$u #A)-AA%@u-"3A6-%@MQ cAI@uATAuA'Aw@9Ah@vKA6]AQ@oA6@2A @S-@@(1-@@ ;(O-@S p-@@Hdata< UU( 1-@@ ;( O-@S pF:B2y,@AP/6-@6-@% A/ A gg102,114,173,85,85,102,114,173,85,85,102,114,173,85,204,85,230,91,91,102,114,230,91,91,102,114,230++91,91,102,114,230,91,204,91,173,85,85 (>:A%,*(WYJASNIENIA DODATKOWE:4l(/($Podprogram uzywa generatory nr 2 i 32(P(POKE 536,1:SOUND 0,0,0,0l( ->W(-("POKE 536,0:SOUND2,0,0,0:SO.3,0,0,0W(% -H/(/($POKE 1554,(161-175) -R0(0(%POKE 1577,(1-255) -\-(-("Poczatek podprogramu w linii 31000fQ(Q(FPodaj nazwe podprogramu w postaci: ú lub ĺ p( (z|A6)-@E2I U6-Br@@| A 6-%@$YY(@RESTORE 31000:FOR I=1536 TOA%:READ A:POKE I,A:N.I:GOSUB 900DD(@1POKE 550,0data) UU:POKE551,6:POKE 536,1:SO.0,0,0,0:RETURN! A!-A6AT(@F:,,$"AV<(@F:%@,J6-%@T A (@F:A,6- A!-AA%&@6(@F:,,D6-%@P"@&h(@F:%@,v6-%@6- A* (@F:A%,*@1 A (@.(@DATA 1$y/ #B!-A6A%"+/ "y[AP'AQ@9A6@[2,yMM104,72,174,46,6,189,47,6,141,6,210,24,105,1,141,4,210,169,175,141,5,2106yOO141,7,210,238,46,6,173,46,6,201,8,208,5,169,0,141,46,6,169,10,141,24,2,96@y''0,121,144,144,128,162,162,193,182F:ORGANY@@@0d$9 Z @[T @sYY(@RESTORE 31000:FOR I=1536 TOA%:READ A:POKE I,A:N.I:GOSUB 900DD(@1POKE 550,08