Add chords to tunes written with beep. Chords are played by the AY-3-8910 sound chip.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Gallery
Source Code
1 SOUND 7,63: BORDER 6: PAPER 6: CLS : PRINT AT 5,7; INVERSE 1; FLASH 1;"C H O R D I Z E R"; INVERSE 0; FLASH 0;AT 12,0; PAPER 5; BRIGHT 1;"ADDS TRIAD CHORDS TO BEEP MUSIC FOR EASY TRANSCRIPTION FROM SHEET MUSIC TO TS2068 "; PAPER 6; BRIGHT 0;AT 21,3;"PRESS ANY KEY TO CONTINUE" 2 POKE 23658,8 3 PAUSE 0: CLS : PRINT '''"USE ANY SYSTEM YOU LIKE TO ENTERBEEPS, BUT YOU WILL ALSO FLESH OUT BEEPS WITH ANY OF 27 CHORDS";' PAPER 2; INK 7;" AS YOU ENTER BEEPS! ": PAPER 6: INK 0 5 PRINT '''" FOR INSTANCE, USE BLECHMAN'S CHAPTER 16 OF ";'" BEGINNER/INTERMED-IATE GUIDE ": PRINT AT 20,0;"PRESS <B> TO COPY ALA BLECHMAN ANY OTHER KEY TO CONTINUE": PAUSE 0: IF INKEY$="B" THEN GO SUB 5000 8 CLS 10 PRINT ''"YOU WILL ENTER THE TOP NOTE FROMTHE TREBLE CLEFF AS THE LEAD TO BE BEEPED ONLY AFTER YOU HAVE GONE SUB TO THE PROPER CHORD." 12 PRINT ''"USUALLY CHORD ACCOMPANIMENT WILLSHOWUP ABOVE STAFF AT START OF AMEASURE BUT OCCASIONALLY WITHINSO BE ALERT FOR THIS. CHORD WILLCONTINUE TILL A CHANGE OF CHORD.YOU WILL GOSUB 1000 TO TURN ONTHE SOUND & GOSUB 1999 TO TURN OFF AT END OF TUNE." 15 PRINT AT 21,3;"PRESS ANY KEY TO CONTINUE": PAUSE 0: CLS 20 PRINT "BECAUSE THERE ARE ONLY 3 SOUND CHANNELS YOU WILL HAVE TO FORGET4 NOTE CHORDS SO IF YOU SEE G7, FOR INSTANCE, JUST USE G CHORD; THUS YOU WILL GET GBD INSTEAD OFGBDF# FOR THE CHORD--STILL MUCH NICER THAN PLAIN BEEPS." 22 PRINT '"DIMINISHED CHORDS WILL DROP THE 6TH or 7TH AUTOMATICALLY FOR A TRIAD." 25 PRINT '"SURELY YOU CAN DELETE LINES 1- 250 AND MERGE THE CHORD ROUTINE WITH YOUR OWN PROGRAMS OR USE THE TABLES pp. 186-7 OF 2068 MANUAL TO LOWER PITCH OF CHORDS." 28 PRINT '"AFTER TUNE BUILT DELETE CHORDS UNUSED; ABOUT 1/4 OF 27 NEEDED FOR A SIMPLE TUNE.";AT 21,8;"PRESS ANY KEY" 30 PAUSE 0: CLS : PRINT INVERSE 1;"TURN ON TS2040 TO COPY THIS INFO"; INVERSE 0;''"AT 1000--ON","AT 1005--A MAJ";'"AT 1010--B MAJ","AT 1015--C MAJ";'"AT 1020--D MAJ","AT 1025--E MAJ";'"AT 1030--F MAJ","AT 1035--G MAJ" 32 PRINT '"MINOR, DIMINISHED, & AUGMENTED;";''"AT 1040--C MIN","AT 1045--F MIN";'"AT 1050--D MIN","AT 1055--A MIN";'"AT 1060--E MIN","AT 1065--G MIN";'"AT 1070--B DIM","AT 1075--E DIM" 34 PRINT "AT 1080--D DIM","AT 1085--F AUG";'"AT 1090--D AUG","AT 1095--G AUG";'"AT 1100--C AUG","AT 1105--Bb MAJ";'"AT 1110--B MIN","AT 1115--F# MIN";'"AT 1120--D# DIM OR Eb DIM" 36 PRINT "AT 1125--Eb","AT 1130--Ab";'"AT 1999--OFF" 38 PRINT '"PRESS ANY KEY TO COPY": PAUSE 0: COPY 40 CLS : LET N=1005: PRINT AT 0,1;"PLAYING CHORD CHOICES FOR YOU";''"PROP 2068 ONE INCH OFF DESK TO CLEAR SPEAKER FOR BEST TONE! ": GO SUB 1000 42 GO SUB N: PAUSE 90 45 LET N=N+5: IF N=1125 THEN CLS : SOUND 7,63: PRINT AT 5,0;"PLAYING DEMO:"; PAPER 5; '"""JUST A CLOSER WALK""": GO TO 55 50 GO TO 42 60 PRINT '"PROG WILL LIST DEMO TO SHOW HOW TO USE READY-MADE CHORDS AS YOU ENTER BEEPS." 100 RESTORE : REM DEMO FOR "CHORDIZE" 105 GO SUB 1001: GO SUB 1015 110 FOR B=1 TO 6: READ D,P: BEEP D,P: NEXT B 115 DATA 1.5,7,.5,8,.5,9,.5,4,.5,7,.5,6 120 GO SUB 1050: GO SUB 1030: FOR B=1 TO 7: READ D,P: BEEP D,P: NEXT B 125 DATA 2,5,1.5,14,.5,12,.5,11,.5,7,.5,9,.5,12 130 GO SUB 1015: FOR B=1 TO 9: READ D,P: BEEP D,P: NEXT B 135 DATA .25,12,.25,9,1.5,7,1.5,16,.5,16,.5,16,.5,12,.5,14,.5,16 140 GO SUB 1030: BEEP .25,16: BEEP .25,14: BEEP 2,12: GO SUB 1020: BEEP .5,12: BEEP .5,9: GO SUB 1015: BEEP 1.5,7: BEEP .5,7 145 GO SUB 1035: BEEP 1,7: BEEP .5,7: BEEP .5,7 150 GO SUB 1015: BEEP 3,7: BEEP 3,16: BEEP .5,16: BEEP .5,15: GO SUB 1050: BEEP 3,14 155 GO SUB 1035: FOR B=1 TO 8: READ D,P: BEEP D,P: NEXT B 160 DATA 1.5,14,.5,7,1,9,.5,12,.5,11,.5,7,.5,9,.5,12 165 SOUND 9,15: GO SUB 1015: FOR B=1 TO 9: READ D,P: BEEP D,P: NEXT B 170 DATA .25,12,.25,9,2.5,7,1.5,16,.5,16,.5,16,.5,12,.5,14,.5,16 175 GO SUB 1030: BEEP .25,16: BEEP .25,14: BEEP 2,9: GO SUB 1020: BEEP 2,6: BEEP .5,12: BEEP .5,9 180 GO SUB 1015: BEEP 1.5,7: BEEP .5,7 185 GO SUB 1050: FOR B=1 TO 5: READ D,P: BEEP D,P: NEXT B 190 DATA 1.5,7,.5,7,.5,9,1,12,.5,12 195 GO SUB 1015: SOUND 1,1;2,75;3,1;8,10;9,15;10,5;13,13: BEEP 4,12 200 GO SUB 1999 205 LIST 100: STOP 1000 SOUND 7,56;8,15;9,15;10,15;11,255;12,255;13,13: RETURN : REM ON 1001 SOUND 7,56;8,15;9,16;10,12;11,128;12,128;13,9: RETURN : REM ON 1005 SOUND 0,248;1,0;2,197;3,0;4,165;5,0: RETURN : REM A MAJ 1010 SOUND 0,221;1,0;2,175;3,0;4,147;5,0: RETURN : REM B MAJ 1015 SOUND 0,209;1,0;2,165;3,0;4,139;5,0: RETURN : REM C MAJ 1020 SOUND 0,186;1,0;2,147;3,0;4,124;5,0: RETURN : REM D MAJ 1025 SOUND 0,165;1,0;2,131;3,0;4,110;5,0: RETURN : REM E MAJ 1030 SOUND 0,156;1,0;2,124;3,0;4,104;5,0: RETURN : REM F MAJ 1035 SOUND 0,139;1,0;2,110;3,0;4,93;5,0: RETURN : REM G MAJ 1040 SOUND 0,209;1,0;2,175;3,0;4,139;5,0: RETURN : REM C MINOR (FLAT THE 3RD ANY MINOR) 1045 SOUND 0,156;1,0;2,131;3,0;4,104: RETURN : REM F MINOR 1050 SOUND 0,186;1,0;2,156;3,0;4,124;5,0: RETURN : REM D MINOR D FNATURAL A 1055 SOUND 0,248;1,0;2,209;3,0;4,165;5,0: RETURN : REM A MIN 1060 SOUND 0,165;1,0;2,139;3,0;4,110;5,0: RETURN : REM E MIN 1065 SOUND 0,23;1,1;2,234;3,0;4,186;5,0: RETURN : REM G MIN 1070 SOUND 0,221;1,0;2,186;3,0;4,156;5,0: RETURN : REM B DIMINISHED FLAT 3RD & 5TH 1075 SOUND 0,165;1,0;2,139;3,0;4,117;5,0: RETURN : REM E DIM 1080 SOUND 0,186;1,0;2,156;3,0;4,131;5,0: RETURN : REM D DIM 1085 SOUND 0,156;1,0;2,124;3,0;4,98;5,0: RETURN : REM F AUGMENTED(MAJOR SHARP THE 5TH) 1090 SOUND 0,186;1,0;2,147;3,0;4,117;5,0: RETURN : REM D AUG 1095 SOUND 0,23;1,1;2,221;3,0;4,175;5,0: RETURN : REM G AUG 1100 SOUND 0,209;1,0;2,165;3,0;4,131;5,0: RETURN : REM C AUG 1105 SOUND 0,234;1,0;2,186;3,0;4,156;5,0: RETURN : REM B FLAT MAJ 1110 SOUND 0,221;1,0;2,186;3,0;4,147;5,0: RETURN : REM B MIN 1115 SOUND 0,147;1,0;2,124;3,0;4,98;5,0: RETURN : REM F# MIN 1120 SOUND 0,175;1,0;2,117;3,0;4,124;5,0: RETURN : REM D# DIM OR Eb DIM 1122 SOUND 0,95;1,1;2,39;3,1;4,248;5,0: RETURN : REM D# DIM(D#F#A)lower version 1125 SOUND 0,165;1,0;2,139;3,0;4,117;5,0: RETURN : REM Eb 1130 SOUND 0,7;1,1;2,209;3,0;4,175;5,0: RETURN : REM Ab 1999 SOUND 7,63;8,0;9,0;10,0: RETURN : REM OFF 5000 CLS : PRINT "D#=3;Bb=10;KEY UNIMPORTANT;HALF STEPS(12 EVERY OCTAVE) EACH HALF WORTH 1 IN PITCH ": LET X=60: LET Y=20: PLOT X,Y: DRAW 30,0 5005 FOR S=1 TO 5: LET Y=Y+24: PLOT X,Y: DRAW 150,0: NEXT S 5010 PRINT AT 4,18;"F 17";AT 5,8;"E 16";AT 7,18;"D 14";AT 8,8;"C 12";AT 10,18;"B 11";AT 11,8;"A 9";AT 13,18;"G 7";AT 14,8;"F 5";AT 16,18;"E 4";AT 17,8;"D 2";AT 19,5;"C 0";AT 20,8;"B -1" 5015 PRINT AT 19,10; PAPER 1; INK 5;"LINE BELOW STAFF" 5020 PRINT PAPER 3; INK 6;AT 4,0;"T";AT 5,30;"P";AT 6,2;"C";AT 7,0;"R";AT 8,30;"I";AT 9,2;"L";AT 10,0;"E";AT 11,30;"T";AT 12,2;"E";AT 13,0;"B";AT 14,30;"C";AT 15,2;"F";AT 16,0;"L";AT 17,30;"H";AT 19,0;"E" 5025 PRINT PAPER 5; BRIGHT 1;AT 21,10;"ALA BLECHMAN": PAPER 6: BRIGHT 0: COPY 5030 RETURN 9997 STOP : REM to enable Channel A:}7,62;B-SOUND 7,61;C-SOUND 7,59;A & B-SOUND 7,60;A & C-SOUND 7,58;B & C-SOUND 7,57;A,B,C--SOUND 7,56 MOST FREQUENT 9998 CLEAR : SAVE "CHORDIZE" LINE 1