home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TAKE1 / SOUND.FN.PROGRA (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-13  |  1.2 KB  |  42 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM <CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08>*********************<CTRL-0x0d>* SOUND FN PROGRAM  *<CTRL-0x0d>* (C)1985 BAUDVILLE *<CTRL-0x0d>*********************<CTRL-0x0d>
  2. 10  TEXT : HOME : DIM D(9),P(9)
  3. 20  PRINT "TAKE 1 PROGRAMMER'S TOOLKIT     SOUND FN";
  4. 30  PRINT "----------------------------------------"
  5. 100  FOR N = 0 TO 9:D(N) = 0:P(N) = 0: NEXT :N = 0: PRINT : PRINT "DEFINE SOUND FN ";
  6. 200 A$ = "":B$ = "":C$ = ""
  7. 210  GET A$: IF A$ =  CHR$(13)  THEN  PRINT  CHR$(8);: PRINT " ": GOTO 1000
  8. 220  IF  ASC(A$) <48  OR  ASC(A$) >57  THEN 210
  9. 230  PRINT A$;
  10. 240  GET B$: IF B$ =  CHR$(13)  THEN 300
  11. 245  IF B$ =  CHR$(8)  THEN  PRINT B$;: GOTO 210
  12. 250  IF  ASC(B$) <48  OR  ASC(B$) >57  THEN 240
  13. 260  PRINT B$;
  14. 270  GET C$: IF C$ =  CHR$(13)  THEN 300
  15. 275  IF C$ =  CHR$(8)  THEN  PRINT C$;: GOTO 240
  16. 280  IF  ASC(C$) <48  OR  ASC(C$) >57  THEN 270
  17. 290  PRINT C$;
  18. 295  GET D$: IF D$ =  CHR$(8)  THEN  PRINT D$;: GOTO 270
  19. 296  IF D$ < > CHR$(13)  THEN 295
  20. 300 D(N) =  VAL(A$ +B$ +C$): IF D(N) >255  THEN  PRINT : PRINT : PRINT "<CTRL-0x07>DURATION VALUE TOO LARGE!": GOTO 100
  21. 400  PRINT ",";:A$ = "":B$ = "":C$ = ""
  22. 410  GET A$: IF A$ =  CHR$(13)  THEN  PRINT "0";: GOTO 500
  23. 420  IF  ASC(A$) <48  OR  ASC(A$) >57  THEN 410
  24. 430  PRINT A$;
  25. 440  GET B$: IF B$ =  CHR$(13)  THEN 500
  26. 445  IF B$ =  CHR$(8)  THEN  PRINT B$;: GOTO 410
  27. 450  IF  ASC(B$) <48  OR  ASC(B$) >57  THEN 440
  28. 460  PRINT B$;
  29. 470  GET C$: IF C$ =  CHR$(13)  THEN 500
  30. 475  IF C$ =  CHR$(8)  THEN  PRINT C$;: GOTO 440
  31. 480  IF  ASC(C$) <48  OR  ASC(C$) >57  THEN 470
  32. 490  PRINT C$;
  33. 495  GET D$: IF D$ =  CHR$(8)  THEN  PRINT D$;: GOTO 470
  34. 496  IF D$ < > CHR$(13)  THEN 495
  35. 500 P(N) =  VAL(A$ +B$ +C$): IF P(N) >255  THEN  PRINT : PRINT : PRINT "<CTRL-0x07>PITCH VALUE TOO LARGE!": GOTO 100
  36. 600  PRINT ";";:N = N +1: IF N <10  THEN 200
  37. 1000  PRINT : PRINT "[SPACE] PLAY   [RETURN] DEFINE NEW SOUND"
  38. 1010 Z =  FRE(0): GET A$: IF A$ =  CHR$(13)  THEN 100
  39. 1020  IF A$ =  CHR$(27)  THEN  PRINT : END 
  40. 1030  IF A$ < >" "  THEN 1010
  41. 2000  & SOUND FN D(0),P(0);D(1),P(1);D(2),P(2);D(3),P(3);D(4),P(4);D(5),P(5);D(6),P(6);D(7),P(7);D(8),P(8);D(9),P(9)
  42. 2010  GOTO 1010