A demonstration of the musical capabilities of the 2068 onboard sound chip, using all three channels with a rather nice rendition of “And I Love Her”.
Content
Image Gallery
Source Code
10 REM TS2068 SINGING MODE I
15 REM THE BEATLES
20 REM BY GARIN GANIS
25 LET TEMPO=500
100 BORDER 4: PAPER 4: INK 0: CLS
110 PRINT AT 4,2;"******************************"
120 PRINT AT 6,6;"TS2068 MUSIC DEMO I:"
130 PRINT AT 8,6;"TO START:";AT 10,6;"1. CHOOSE THE TEMPO BY";TAB 6;" PUSHING [1] OR [2].";TAB 6;"2. PRESS ANY KEY TO PLAY."
140 PRINT AT 18,2;"******************************"
500 PAUSE TEMPO
510 PRINT AT 15,5; FLASH 1;"READY"; FLASH 0
520 PAUSE 200
600 CLS : BORDER 4: PAPER 0: INK 7: CLS
610 REM PRINT AT 0,16; PAPER 4;" "
612 PRINT AT 0,16; PAPER 4;" "
614 PRINT AT 1,18;"MUSIC DEMO 1"
618 PRINT AT 2,16; PAPER 4;" "
620 PRINT AT 5,1; PAPER 3;" "
621 PRINT AT 6,1; PAPER 3;" "
622 PRINT AT 7,1; PAPER 3;" "
624 PRINT AT 5,2; INK 0; PAPER 3;"TITLE: And I Love Her"
625 PRINT AT 6,9;"(THE BEATLES)"
626 PRINT #1;AT 1,0; PAPER 0; INK 7;" PRESS ANY KEY TO START! "
630 PRINT AT 9,1;"PRESS THE NUMBER FOR TEMPO:"
631 PRINT AT 10,1;"[1] slow"
632 PRINT AT 11,1;"[2] fast/extreme"
640 PRINT AT 12,1; PAPER 4; INK 0;"STATUS REPORT:"
645 PRINT AT 13,1;"CHANNEL:";AT 13,14;"a";AT 13,19;"b";AT 13,25;"c"
650 PLOT 90,60: DRAW 140,0: DRAW 0,-20: DRAW -140,0: DRAW 0,20
651 PLOT 136,60: DRAW 0,-20: PLOT 184,60: DRAW 0,-20
670 IF INKEY$="1" THEN PRINT AT 10,2; FLASH 1;"1"; FLASH 0: LET T1=15: LET T2=15: LET T3=16: LET T4=16: GO TO 0699
671 IF INKEY$="2" THEN PRINT AT 11,2; FLASH 1;"2"; FLASH 0: LET T1=5: LET T2=5: LET T3=5: LET T4=5: GO TO 0699
675 PRINT AT 18,1; INK 0; PAPER 4;"MODE 1: CYMBAL/SNARE/BASS/BASS"
677 PRINT AT 20,1;"©1985/LIST"
680 GO TO 670
699 PAUSE 0
739 LET S1=15: LET S2=15
740 RESTORE 1097: PAUSE 100
741 PRINT AT 15,12;"USED"
745 FOR Z=1 TO 100
746 IF Z=9 THEN PRINT AT 15,18;"USED"
747 IF Z=29 THEN PRINT AT 15,24;"USED"
748 IF Z=87 THEN PRINT AT 15,24;" "
749 IF Z=88 THEN PRINT AT 15,24;"USED"
750 IF Z=89 THEN PRINT AT 15,18;" ";AT 15,24;" "
751 READ A1,B1,A2,B2
752 IF A1=9999 OR B1=9999 THEN PRINT AT 15,12;" ": GO TO 1500
800 SOUND 7,49;6,0;12,13;13,1;8,16;9,S1;2,A1;3,B1;10,S2;4,A2;5,B2
810 PAUSE T1
815 READ C1,D1,C2,D2
816 IF C1=9999 OR D1=9999 THEN PRINT AT 15,12;" ": GO TO 1500
820 SOUND 7,49;8,16;6,5;12,5;13,0;0,100;1,6;9,S1;2,C1;3,D1;10,S2;4,C2;5,D2
825 PAUSE T2
830 READ E1,F1,E2,F2
831 IF E1=9999 OR F1=9999 THEN PRINT AT 15,12;" ": GO TO 1500
840 SOUND 7,49;8,16;6,31;12,6;13,0;0,255;1,0;9,S1;2,E1;3,F1;10,S2;4,E2;5,F2
845 PAUSE T3
858 READ G1,H1,G2,H2
859 IF G1=9999 OR H1=9999 THEN PRINT AT 15,12;" ": GO TO 1500
860 SOUND 7,49;8,16;6,31;12,6;13,0;0,255;1,0;9,S1;2,G1;3,H1;10,S2;4,G2;5,H2
865 PAUSE T4
900 NEXT Z
1097 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1098 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1099 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,186,0,0,0,186,0,0,0,165,0,0,0,165,0,0,0,156,0,0,0,156,0,0,0,110,0,0,0,110,0,0,0,124,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0
1110 DATA 186,0,0,0,186,0,0,0,165,0,0,0,165,0,0,0,156,0,0,0,156,0,0,0,110,0,0,0,110,0,0,0,124,0,0,0,124,0,0,0,124,0,0,0,124,0,0,0,124,0,0,0,124,0,0,0,124,0,0,0
1120 DATA 0,0,0,0,186,0,0,0,186,0,0,0,165,0,0,0,165,0,0,0,156,0,0,0,156,0,0,0,110,0,0,0,110,0,0,0,124,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0,104,0,0,0
1130 DATA 104,0,0,0,104,0,0,0,124,0,0,0,124,0,0,0,156,0,0,0,156,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,186,0,0,0,186,0,0,0
1140 DATA 23,1,0,0,248,0,0,0,23,1,0,0,248,0,0,0,248,0,0,0,248,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0,165,0,0,0
1150 DATA 139,0,0,0,165,0,0,0,186,0,0,0,209,0,0,0,186,0,0,0,186,0,0,0
1151 DATA 186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,104,0,162,1,104,0,57,1,104,0,162,1,104,0,75,1,104,0,162,1,104,0,241,1,104,0,162,1
1152 DATA 186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,124,0,162,1,124,0,57,1,124,0,162,1,124,0,75,1,124,0,162,1,124,0,241,1
1153 DATA 0,0,57,1,186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,104,0,162,1,104,0,46,2,104,0,162,1,104,0,116,1,104,0,162,1,104,0,114,2,104,0,241,1
1154 DATA 104,0,46,2,104,0,241,1,124,0,162,1,124,0,241,1,156,0,46,2,156,0,241,1,165,0,46,2,165,0,186,1,165,0,241,1,186,0,186,1,186,0,46,2
1155 DATA 23,1,186,1,248,0,241,1,23,1,186,1,248,0,162,1,248,0,75,1,248,0,116,1,165,0,75,1,165,0,23,1,165,0,75,1,165,0,116,1,165,0,75,1,165,0,162,1,165,0,75,1,165,0,116,1,165,0,75,1,165,0,23,1,165,0,75,1,165,0,116,1,0,0,75,1
1156 DATA 248,0,241,1,248,0,162,1,165,0,75,1,165,0,162,1,165,0,241,1,165,0,162,1,165,0,75,1,165,0,162,1,139,0,186,1,139,0,75,1,139,0,23,1,139,0,75,1,139,0,186,1,139,0,75,1,139,0,23,1,139,0,75,1
1157 DATA 165,0,241,1,165,0,162,1,110,0,75,1,110,0,162,1,139,0,241,1,139,0,162,1,165,0,75,1,165,0,162,1,139,0,186,1,139,0,75,1,139,0,23,1,139,0,75,1,139,0,248,0,139,0,75,1,139,0,23,1,139,0,75,1
1158 DATA 165,0,241,1,165,0,162,1,110,0,75,1,110,0,162,1,139,0,241,1,139,0,162,1,165,0,75,1,165,0,162,1,139,0,186,1,139,0,75,1,139,0,23,1,139,0,75,1,165,0,186,1,165,0,75,1,139,0,23,1,139,0,75,1
1159 DATA 165,0,241,1,165,0,116,1,156,0,57,1,165,0,116,1,186,0,241,1,186,0,116,1,186,0,57,1,186,0,116,1,209,0,46,2,209,0,186,1,209,0,116,1,209,0,186,1,221,0,46,2,221,0,186,1,221,0,116,1,221,0,186,1
1160 DATA 0,0,116,1,0,0,57,1,186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,104,0,162,1,104,0,57,1,104,0,162,1,104,0,75,1,104,0,162,1,104,0,241,1,104,0,162,1
1162 DATA 186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,124,0,162,1,124,0,57,1,124,0,162,1,124,0,75,1,124,0,162,1,124,0,241,1
1163 DATA 0,0,57,1,186,0,248,0,186,0,57,1,165,0,221,0,165,0,57,1,156,0,248,0,156,0,75,1,110,0,241,1,110,0,162,1,124,0,75,1,104,0,162,1,104,0,46,2,104,0,162,1,104,0,116,1,104,0,162,1,104,0,114,2,104,0,241,1
1164 DATA 104,0,46,2,104,0,241,1,124,0,162,1,124,0,241,1,156,0,46,2,156,0,241,1,165,0,46,2,165,0,186,1,165,0,241,1,186,0,186,1,186,0,46,2
1165 DATA 23,1,186,1,248,0,241,1,23,1,186,1,248,0,162,1,248,0,75,1,248,0,116,1,165,0,75,1,165,0,23,1,165,0,75,1,165,0,116,1,165,0,75,1,165,0,162,1,165,0,75,1,165,0,116,1,165,0,75,1,165,0,23,1,165,0,75,1,165,0,116,1,165,0,75,1
1166 DATA 209,0,162,1,209,0,75,1,209,0,116,1,209,0,75,1,209,0,23,1,209,0,75,1,209,0,116,1,209,0,75,1
1167 DATA 209,0,0,0,209,0,0,0,209,0,0,0,209,0,0,0,209,0,0,0,0,0,0,0
1168 DATA 186,0,186,0,165,0,165,0,209,0,209,0,162,1,162,1,23,1,23,1
1169 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1170 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1172 DATA 9999,9999,9999,9999
1500 PAUSE 400
1600 LET TEMPO=100: GO TO 30
9998 SAVE "BEATLES" LINE 1Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.