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 >
Encoding:
BASIC Source File  |  1988-05-22  |  468 b   |  20 lines
  1. 0     for x=1 to 5 step 2
  2. 1     if x=1 or x=2 then x$="right"
  3. 2     if x=3 or x=4 then x$="left"
  4. 3     if x=5 then x$="CENTER"
  5. 10    a%(0)=200:rem express 65-320
  6. 11    a%(1)=0:rem hum/mon 0/1U
  7. 12    a%(2)=165:rem speed 1-400
  8. 13    a%(3)=0:rem saprano/falceto
  9. 14    a%(4)=23400:rem freq 15000-28000
  10. 15    a%(5)=64:rem vol. 1-64
  11. 16    a%(6)=x
  12. 17    a%(7)=0
  13. 18    a%(8)=0
  14. 20    goto 80
  15. 80    a$=translate$(x$)
  16. 90    i%=narrate(a$,a%())
  17. 95    ?x
  18. 100   next x
  19. 110   goto 0
  20.