Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
5 REM ODTWARZANIE MELODII W PETLI
10 REM MELODY0 (KANAL 0): 6 NUT
20 DATA 0,81,10,8,32
30 DATA 0,91,10,8,32
40 DATA 0,68,10,8,32
50 DATA 0,60,10,8,16
60 DATA 0,45,10,8,16
70 DATA 0,53,10,8,32
80 REM MELODY1 (KANAL 1): 6 NUT
90 DATA 1,81,10,8,32
100 DATA 1,91,10,8,32
110 DATA 1,68,10,8,32
120 DATA 1,60,10,8,16
130 DATA 1,45,10,8,16
140 DATA 1,53,10,8,32
150 REM MELODY2 (KANAL 2): 6 NUT
160 DATA 2,81,10,8,32
170 DATA 2,91,10,8,32
180 DATA 2,68,10,8,32
190 DATA 2,60,10,8,16
200 DATA 2,45,10,8,16
210 DATA 2,53,10,8,32
220 REM MELODY3 (KANAL 3): 6 NUT
230 DATA 3,81,10,8,32
240 DATA 3,91,10,8,32
250 DATA 3,68,10,8,32
260 DATA 3,60,10,8,16
270 DATA 3,45,10,8,16
280 DATA 3,53,10,8,32
290 REM RESET KANALOW
291 DATA 0,0,0,0,100
292 DATA 1,0,0,0,100
293 DATA 2,0,0,0,100
294 DATA 3,0,0,0,100
1000 TRAP 1100
1010 RESTORE 20:REM RESET DATA DO POCZATKU
1020 FOR K=1 TO 4:REM 4 KANALY
1030 FOR N=1 TO 7:REM 6 NUT NA KANAL
1040 READ VOICE,PITCH,DIST,VOL,DELAY
1050 SOUND VOICE,PITCH,DIST,VOL
1060 FOR I=1 TO DELAY*5:NEXT I:REM OPOZNIENIE W RAMKACH VBL (50HZ/10, DOSTOSUJ DLA NTSC 60HZ/10)
1070 NEXT N
1080 NEXT K
1090 RETURN
1100 GOTO 1000
Od 1 do 1 z 1
