ksp: add sound

This commit is contained in:
Vince Weaver 2016-04-13 16:16:16 -04:00
parent 9b332497fd
commit d6cc8c39ff
3 changed files with 18 additions and 2 deletions

View File

@ -4,16 +4,20 @@ TXT2BAS = ../asoft_basic-utils/tokenize_asoft
all: ksp.dsk all: ksp.dsk
basic: VAB.BAS basic: VAB.BAS THEME.BAS
VAB.BAS: vab.bas VAB.BAS: vab.bas
$(TXT2BAS) < vab.bas > VAB.BAS $(TXT2BAS) < vab.bas > VAB.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR VAB.BAS THEME.BAS: theme.bas
$(TXT2BAS) < theme.bas > THEME.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR THEME.BAS VAB.BAS
$(DOS33) -y ksp.dsk SAVE B LOADING.HGR $(DOS33) -y ksp.dsk SAVE B LOADING.HGR
$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR $(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
$(DOS33) -y ksp.dsk SAVE B TITLE.HGR $(DOS33) -y ksp.dsk SAVE B TITLE.HGR
$(DOS33) -y ksp.dsk SAVE A VAB.BAS $(DOS33) -y ksp.dsk SAVE A VAB.BAS
$(DOS33) -y ksp.dsk SAVE A THEME.BAS
LOADING.HGR: loading.pcx LOADING.HGR: loading.pcx

1
ksp/qbasic/theme.bas Normal file
View File

@ -0,0 +1 @@
PLAY "l2ecgl8cegl2b-agl8cegl2b-agcd"

11
ksp/theme.bas Normal file
View File

@ -0,0 +1,11 @@
5 REM SEE http://eightbitsoundandfury.ld8.org/programming.html
10 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
20 DATA 173,48,192,136,208,5,206,1,3,240,9
30 DATA 202,208,245,174,0,3,76,2,3,96
35 REM L2ECGL4CEGL2B-AGL4CEGL2B-AGCD
40 FOR I=1 TO 17: READ F: READ D: POKE 768,F: POKE 769,D: CALL 770: NEXT I
50 DATA 202,216,255,216,170,216
55 DATA 255,108,202,108,170,108
60 DATA 143,216,152,216,170,216
65 DATA 255,108,202,108,170,108
70 DATA 143,216,152,216,170,216,255,216,227,255