Nibble Magazine/nib26b.dsk/DUET.DEMO.bas

BASIC Source File | 2023-02-26 | 6KB | 120 lines

10  REM **********************
20  REM *     DUET.DEMO      *
30  REM *  BY DOUG JEFFERYS  *
40  REM * COPYRIGHT (C) 1985 *
50  REM * BY MICROSPARC, INC *
60  REM * CONCORD, MA  01742 *
70  REM **********************
80  REM
90  REM
100  PRINT  CHR$(4);"BLOAD NIBBLE.DUET"
110  TEXT : HOME : PRINT "   TWO-VOICE SOUND, BY DOUG JEFFERYS": PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC **"
120  POKE 34,2
130  PRINT
140  PRINT "WELCOME TO THE WORLD OF TWO-VOICE SOUND.REMEMBER WHEN THIS ";: POKE 768,255: POKE 769,2: POKE 770,200: CALL 771: PRINT "USED TO BE IMPOSSIBLE": PRINT
150  PRINT "NOT ANY MORE. YOU, TOO, CAN NOW DO IT,  FROM ANY PROGRAM YOU WRITE.": PRINT
160 VP =  PEEK(37): GOSUB 1090: VTAB VP +1
170  PRINT "AFTER BLOADING IN THE ROUTINE, ONLY     THREE POKES ARE NEEDED."
180  PRINT
190  PRINT "]POKE 768,DEPTH OF WAVE"
200  PRINT "]POKE 769,LENGTH OF TONE"
210  PRINT "]POKE 770,OVERALL PITCH"
220  PRINT "]CALL 771"
240  PRINT
250  PRINT "WILL EXECUTE THE ROUTINE."
260  GOSUB 1080
270  HOME
280  PRINT "FOR EXAMPLE, THE TONE YOU HEARD AT THE  START OF THIS PROGRAM WAS DONE LIKE THIS"
290  PRINT "]POKE 768,255: POKE 769,2: POKE 771,200"
300  PRINT "]CALL 771"
310 VP =  PEEK(37): GOSUB 1090: VTAB VP +1
340  PRINT : PRINT "THE HIGHER THE PITCH, THE SHORTER THE   SOUND.  THIS WAS DONE CHANGING ONLY THE PITCH.": POKE 770,100: CALL 771: FOR I = 1 TO 3000: NEXT I
350  PRINT : PRINT "ALSO NOTE THAT INCREASING THE PITCH     NUMBER LOWERS THE PITCH.": PRINT "FOR EXAMPLE:  PITCH=255": POKE 770,255: CALL 771: PRINT
360  GOSUB 1080
370  HOME
380  PRINT "LOW DEPTH VALUES GREATLY SHORTEN TONES.": POKE 768,2: POKE 769,50: CALL 771: PRINT "THAT WAS A LOW DEPTH VALUE."
390  PRINT "(THE DEPTH WAS '2', AS COMPARED TO THE  '255' YOU HAVE BEEN USED TO, AND JUST TOMAKE IT AUDIBLE, THE LENGTH WAS         INCREASED TO '50', RATHER THAN THE USUAL'2'."
400  GOSUB 1080
410  HOME
420  PRINT "CHANGING THE PITCH IN A FOR-NEXT LOOP   CAN BE INTERESTING.  FOR EXAMPLE:": PRINT
430  PRINT "]POKE 768,100: POKE 769,1"
440  PRINT "]FOR I = 100 TO 10 STEP -1: POKE 770,I: CALL 771: NEXT I"
450  PRINT : PRINT "YIELDS THIS"
460 VP =  PEEK(37): GOSUB 1090: VTAB VP +1
470  POKE 768,100: POKE 769,1
480  FOR I = 100 TO 10  STEP  -1: POKE 770,I: CALL 771: NEXT
490  PRINT : PRINT "OF COURSE, IT CAN GO THE OTHER WAY..."
500  FOR I = 10 TO 100: POKE 770,I: CALL 771: NEXT I
510  GOSUB 1080
520  HOME
530  PRINT "EVER THOUGHT THAT THE OLD BEEP OF A     CONTROL-G WAS DULL?"
540  PRINT  CHR$(7): REM  DULL CONTROL-G
550  FOR I = 1 TO 20
560 X =  INT( RND(1) *2)
570  IF X = 1  THEN  PRINT  CHR$(7);
580  NEXT I
590  PRINT "JUST THINK HOW MUCH MORE LIVELY THIS    SOUNDS!": PRINT
600  POKE 768,25: POKE 769,1: POKE 770,175
610  FOR I = 1 TO 20
620 X =  INT( RND(1) *2)
630  IF X = 1  THEN  CALL 771
640  NEXT I
650 VP =  PEEK(37): GOSUB 1090: VTAB VP +1
660  PRINT "HOW ABOUT A SHORT, SWEET ROCKET LAUNCH  FOR OUR NEXT VIDEO GAME?"
670  GOSUB 1080
680  VTAB 12
690  PRINT "]POKE 768,5: POKE 769,5"
700  PRINT "]FOR I = 50 TO 2 STEP -1: POKE 770,I:   CALL 771: NEXT I"
710  POKE 768,5: POKE 769,5
720  FOR I = 50 TO 2  STEP  -1: POKE 770,I: CALL 771: NEXT I
730  GOSUB 1080
740  HOME
750  PRINT "THE SYNTHESIZER CAN ALSO BE USED FOR    MUSICAL NOTES."
760  PRINT : PRINT "NOTE   OCTAVE 1 (LOW)   OCTAVE 2 (HIGH) "
770  PRINT " C          240              120"
780  PRINT " C#         228              113"
790  PRINT " D          215              105"
800  PRINT " D#         203               99"
810  PRINT " E          190               93"
820  PRINT " F          180               86"
830  PRINT " F#         170               82"
840  PRINT " G          160               78"
850  PRINT " G#         151               74"
860  PRINT " A          142               70"
870  PRINT " A#         134               66"
880  PRINT " B          125               62"
890  GOSUB 1080
900  HOME
910  PRINT "FOR MOST MUSIC, A VALUE OF '1' IS       SUFFICIENT FOR THE DEPTH OF THE WAVE."
920  PRINT : PRINT "PICK A VALUE FOR A SHORT NOTE, LIKE AN  EIGHTH NOTE, AND USE IT AS A BASE FOR   THE LONGER NOTES. (QUARTERS, ETC...)"
930  PRINT : PRINT "USE THE PREVIOUSLY PRESENTED TABLE TO   ENTER THE NOTE VALUES THEMSELVES."
940  PRINT : PRINT "YOU MAY THEN ENTER THE NOTES IN THE FORMOF 'DATA' STATEMENTS."
950  PRINT : PRINT "USE A FOR-NEXT LOOP TO READ THE VALUES, POKE THEM IN, AND CALL 771."
960  PRINT : PRINT "THE DATA FOR 'THE ENTERTAINER' HAS      ALREADY BEEN TYPED IN.  HERE IS THE CODEUSED TO PLAY IT."
970  GOSUB 1080
980  HOME
990  PRINT : PRINT
1000  PRINT : PRINT "]FOR I = 1 TO 79: READ D,L,P: POKE 768,D: POKE 769,L: POKE 770,P: CALL 771: NEXT";
1010  FOR I = 1 TO 79: READ D,L,P: POKE 768,D: POKE 769,L: POKE 770,P: CALL 771: NEXT
1020  PRINT : PRINT : PRINT "ENTERTAINED?"
1030  GOSUB 1080
1040  HOME
1050  PRINT "... AND SO ENDS THIS DEMONSTRATION OF   TWO-VOICE SOUND ON THE APPLE COMPUTER."
1060  PRINT : PRINT : PRINT : PRINT "BYE FOR NOW!"
1070  TEXT : VTAB 23: END
1080  REM  CONTINUE
1090  POKE  -16368,0
1100  VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE"
1110  IF  PEEK( -16384) <128  THEN 1110
1120  POKE  -16368,0
1130  RETURN
1140  REM  DATA FOR 'THE ENTERTAINER'
1150  DATA  1,50,215,1,50,203,1,50,190,1,120,120,1,50,190,1,120,120,1,50,190,1,180,120
1160  DATA  1,70,113,1,70,105,1,70,99,1,70,93,1,70,120,1,120,105,1,70,93,1,70,120,1,120,105,1,180,120
1170  DATA  1,50,215,1,50,203,1,50,190,1,120,120,1,50,190,1,120,120,1,50,190,1,180,120
1180  DATA  1,50,142,1,50,160,1,50,170,1,50,142,1,70,120,1,140,93,1,70,120,1,65,125,1,60,142,1,180,105
1190  DATA  1,50,215,1,50,203,1,50,190,1,120,120,1,50,190,1,120,120,1,50,190,1,180,120
1200  DATA  1,70,113,1,70,105,1,70,99,1,70,93,1,70,120,1,120,105,1,70,93,1,70,125,1,120,105,1,180,120
1210  DATA  1,60,120,1,60,105,1,70,93,1,60,120,1,60,105,1,140,93,1,60,105,1,60,120,1,60,105
1220  DATA  1,70,93,1,60,120,1,60,105,1,140,93,1,60,105,1,60,120,1,60,105
1230  DATA  1,70,93,1,60,120,1,120,105,1,70,93,1,60,125,1,120,105,1,120,120,1,100,160,1,120,120