home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
35.dms
/
35.adf
/
sp.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
468b
|
20 lines
0 for x=1 to 5 step 2
1 if x=1 or x=2 then x$="right"
2 if x=3 or x=4 then x$="left"
3 if x=5 then x$="CENTER"
10 a%(0)=200:rem express 65-320
11 a%(1)=0:rem hum/mon 0/1U
12 a%(2)=165:rem speed 1-400
13 a%(3)=0:rem saprano/falceto
14 a%(4)=23400:rem freq 15000-28000
15 a%(5)=64:rem vol. 1-64
16 a%(6)=x
17 a%(7)=0
18 a%(8)=0
20 goto 80
80 a$=translate$(x$)
90 i%=narrate(a$,a%())
95 ?x
100 next x
110 goto 0