FM 6-9

Page 2/2
1 |

By NYYRIKKI

Enlighted (5366)

NYYRIKKI's picture

20-07-2019, 22:47

Some random stupid test stuff to play with:

10 _MUSIC
20 _BGM(1)
30 PLAY #2,"C","E","G","C8"
40 _MUSIC (0,0,1,1,1,1,1,1,1,1,1)
50 PLAY #2,"C","E","G","C","E","G","C","E","G"
60 GOSUB 230
70 _AUDREG(&H20,0)
80 _AUDREG(&H21,0)
90 _AUDREG(&H22,0)
100 _AUDREG(&H20,25)
110 _AUDREG(&H21,25)
120 _AUDREG(&H22,25)
130 GOSUB 230
140 _AUDREG(&H26,0)
150 _AUDREG(&H26,25)
160 GOSUB 230
170 _AUDREG(&H26,0)
180 _AUDREG(14,R)
190 _AUDREG(14,R+2)
200 GOSUB 230
210 _AUDREG(14,R)
220 GOTO 60
230 A$=INPUT$(1):IFA$=" " THEN R=RXOR32:_AUDREG(14,R)
240 RETURN

By NYYRIKKI

Enlighted (5366)

NYYRIKKI's picture

20-07-2019, 23:04

...maybe good idea to try to add something like:

55 CALL VOICE (@2,@2,@2,@2,@2,@2,@2,@2,@2)
Page 2/2
1 |