Gigi Dagostino - I'll fly with you (8-bit chiptune MSX version)

1 DEFINT I
10 DIM BS$(4)
15 RESTORE 101
20 READ BS$(0), BS$(1), BS$(2), BS$(3)
25 PLAY "T120V15L8","T120V13O5","T120V12O6L8"
30 FOR I=0 TO 3:READ V$,A$
31 IF V$="*" THEN RESTORE 1010:READ V$,A$
35 BL$="O1"+BS$(I)+"O2"+BS$(I):BL$=BL$+BL$+BL$+BL$
36 PLAY BL$,V$,A$:NEXT
40 GOTO 30
100 REM -- BASS
101 DATA D,F#,B,G
501 REM -- INTRO
510 DATA ,
520 DATA ,
530 DATA ,
540 DATA ,
1001 REM -- PATTERN 1
1010 DATA O5D4.E4.F#8,
1020 DATA C#4.D4.E8,
1030 DATA D1,
1040 DATA G4.F#4.G8,
1050 DATA A4.G4.F#8,
1060 DATA E4.F#4.A8,
1070 DATA F#1,
1080 DATA G4.F#4.D8,
2001 REM -- PATTERN 2
2010 DATA D4.E4.F#8,
2020 DATA C#4.D4.E8,
2030 DATA D1,
2040 DATA G4.F#4.G8,
2050 DATA A4.G4.F#8,
2060 DATA E4.F#4.A8,
2070 DATA F#1,
2080 DATA G4.F#4.D8,
3001 REM -- PATTERN 3
3010 DATA D1,
3020 DATA E1,
3030 DATA F#1,
3040 DATA G4.F#4.G8,
3050 DATA A1, R8DADGDF#D
3060 DATA A1, R8DADGDF#D
3070 DATA A1, R8DADGDF#D
3080 DATA A1, R8DADGDF#D
3090 DATA A1, R8DADGDF#D
3100 DATA A1, R8DADGDF#D
3110 DATA A1, R8DADGDF#D
3120 DATA A1, R8DADGDF#D
4001 REM -- PATTERN 4
4010 DATA O5D4.O4B4.A8,
4020 DATA A4.B4.O5D8,
4030 DATA O4B1,
4040 DATA O5,
8000 DATA *,

Category:

Gaming

Tags:

• msx
• chiptune
• 8bit