100 ! CONCERTO3              Changes: Ollie Hebert, 1987  *shortened lines test- Ed in SoDak
110 DATA 1,392,196,1,370,196,2,392,247,1,294,3E4,1,262,3E4,2,294,247,1,392,196,1,370,196,2,392,247,1,247
120 CALL DELSPRITE(ALL):: CALL CLEAR :: CALL SCREEN(2):: CALL CHARSET :: CALL MAGNIFY(1)
125 ! Also UPPER CASE only, all for RUN ALL sequencing.
130 CALL VCHAR(1,31,31,96):: FOR I=1 TO 8 :: CALL COLOR(I,16,14):: NEXT I
135 DISPLAY AT(9,9):"CONCERTO  #3": : : : :TAB(11);"BY COREY"
140 DISPLAY AT(15,12):"AGE 12":"      FRAMINGHAM, MASS." :: CALL SOUND(1,111,30):: A,B,C=L
145 S=7 :: M=202 :: !@P-
150 FOR I=L TO 605 :: READ A,B,C :: CALL SOUND(A*M,B,L,C,S):: NEXT I :: FOR I=L TO 109 :: READ A,B
155 CALL SOUND(A*M,B,L):: NEXT I :: FOR I=L TO 166
160 READ A,B,C :: CALL SOUND(A*M,B,L,C,S):: NEXT I :: FOR I=L TO 50 :: READ A,B
165 CALL SOUND(A*M,B,L):: NEXT I :: FOR I=L TO 53 :: READ A,B,C
170 CALL SOUND(A*M,B,L,C,S):: NEXT I :: CALL SOUND(A,B,30):: RUN "DSK1.LOAD"
180 DATA 294,1,220,294,2,247,3E4,1,392,196,1,370,196,2,392,247,1,196,294,1,220
185 DATA 294,1,247,392,1,247,494,1
190 DATA 277,440,1,277,392,1,294,370,1,277,370,1,294,3E4,1,330,3E4,1
195 DATA 294,3E4,1,370,3E4,1,294,494,1,392,494
200 DATA 1,294,370,1,277,370,1,294,3E4,1,330,3E4,1,294,3E4,1,440,3E4,1
205 DATA 294,392,1,494,392,1,294,370,1,277
210 DATA 370,1,294,3E4,1,330,294,1,294,3E4,1,523,3E4,1
215 DATA 294,440,1,587,440,2,494,294,1,440,262,1,392,247,2
220 DATA 440,262,1,392,247,1,370,220,2,392,196,1,370,392,1,330,392,1
225 DATA 294,392,1,392,3E4,1,294,3E4,1,392,294
230 DATA 2,330,196,1,294,392,1,262,392,1,247,392,1,392,3E4,1
235 DATA 247,196,1,392,196,2,262,196,1,247,392,1,220
240 DATA 392,1,196,392,1,392,3E4,1,220,196,1,392,196,1,247,296,1,392
245 DATA 196,1,277,196,1,392,3E4,1,294,370,1
250 DATA 370,3E4,1,294,392,1,392,3E4,1,294,440,1,440,3E4,1,294,494,1
255 DATA 494,3E4,1,294,523,1,523,3E4,1,294,587
260 DATA 1,587,3E4,2,494,196,1,440,262,1,392,262,2,294,3E4,2,370
265 DATA 147,2,392,247,1,370,196,1,330,196,1,294
270 DATA 185,1,262,165,1,247,147,1,220,131,1,247,123,1,247,110,1
275 DATA 220,123,1,196,123,2,294,3E4,2,294,147,2
280 DATA 196,3E4,2,196,294,2,3E4,3E4,1,784,587,1,740,523,2,784,587,1
285 DATA 587,494,1,523,440,2,587,494,1,494,392
290 DATA 1,440,370,2,494,392,1,392,330,1,370,294,2,392,330,1
295 DATA 294,3E4,1,262,3E4,2,3E4,3E4,1,587,196,1,587
300 DATA 220,1,784,294,1,988,294,1,880,330,1,784,330,1,740,185,1
305 DATA 880,185,1,587,3E4,1,659,523,1,740,587,1
310 DATA 784,587,1,880,3E4,1,740,3E4,1,740,3E4,1,740,880,1,1175,587,1
315 DATA 1175,440,1,3E4,740,1,3E4,784,1,1109,880
320 DATA 1,1109,784,2,1175,740,2,880,1175,2,587,3E4,2,659,1109,2,740,440,1
325 DATA 659,330,1,587,294,2,659,330,1,587
330 DATA 370,1,554,330,2,587,294,1,554,587,1,494,587,1,440,587,1,587,3E4,1,440,294,1,587,294,2,494,294,1
340 DATA 440,587,1,392,587,1,370,587,1,587,3E4,1,370,294,1,587,294,2,392,294,1,440,587,1,392,587,1,370,294
350 DATA 1,587,294,1,415,587,1,587,3E4,1,440,523,1,554,3E4,1,440,494,1,587,494,1,440,3E4,1,659,440,1,440
360 DATA 294,1,740,294,1,440,277,1,784,277,1,440,330,1,880,330,2,740,294,1,659,330,1,587,370,2,440,330,2
370 DATA 554,440,4,587,370,2,3E4,3E4,1,784,587,1,740,523,2,784,587,1,587,494,1,523,440,2,587,494,1,494,392
380 DATA 1,440,370,2,494,392,1,392,294,1,370,262,2,392,294,1,196,294,1,185,262,1,196,247,1,196,262,1,494
390 DATA 294,1,523,294,1,587,392,1,587,494,1,659,440,1,659,392,1,440,370,1,440,3E4,1,1175,587,1,1109,587,2
400 DATA 1175,3E4,2,3E4,523,2,3E4,587,1,1175,440,1,1109,440,2,1175,294,1,587,3E4,1,554,3E4,2,587,3E4,1,587
410 DATA 440,1,587,392,2,740,440,1,880,587,1,880,554,2,740,554,1,587,440,1,587,392,2,740,440,1,880,587,1
420 DATA 880,554,2,740,554,1,440,294,1,440,294,1,587,370,1,740,370,1,659,415,1,587,415,2,554,440,1,554,3E4
430 DATA 1,554,494,2,440,3E4,2,3E4,554,4,784,494,2,3E4,3E4,2,784,659,1,587,740,1,740,3E4,1,494,740,1,554
440 DATA 740,1,587,3E4,1,659,3E4,1,740,3E4,1,784,740,2,880,740,2,880,740,2,880,740,1,784,659,1,740,3E4,2
450 DATA 784,659,2,784,659,2,784,659,1,740,587,1,659,3E4,2,740,587,2,740,587,1,659,494,1,587,494,2,440,3E4
460 DATA 2,554,440,1,587,440,1,554,440,1,587,440,1,659,440,1,587,3E4,1,740,3E4,1,587,3E4,1,784,523,1,587
470 DATA 3E4,1,554,587,1,587,3E4,1,659,3E4,1,587,3E4,1,880,3E4,1,587,3E4,1,988,523,1,740,587,1,659,587,1
480 DATA 740,587,1,784,587,1,740,587,1,440,587,1,784,587,1,494,587,1,740,587,1,659,587,1,740,587,1,784,587
490 DATA 1,740,587,1,523,587,1,784,587,1,494,587,1,440,587,1,392,587,1,440,587,1,494,587,1,440,587,1,784
500 DATA 587,1,440,3E4,1,740,440,1,784,392,1,784,370,1,784,392,1,784,440,1,3E4,392,1,3E4,494,1,392,3E4,1
510 DATA 370,523,1,392,3E4,1,392,370,1,3E4,392,1,3E4,440,1,3E4,392,1,3E4,587,1,392,3E4,1,370,659,1,392,3E4
520 DATA 1,392,370,1,392,3E4,1,392,440,1,392,494,1,392,294,1,392,523,1,392,330,1,392,494,1,392,440,1,392
530 DATA 494,1,392,523,1,392,494,1,392,349,1,392,523,1,392,330,1,392,294,1,392,262,1,392,294,1,392,330,1
540 DATA 392,294,1,392,523,1,294,3E4,1,294,494,1,262,523,1,392,3E4,1,440,3E4,1,494,3E4,1,3E4,330,1,3E4,370
550 DATA 2,3E4,392,1,1047,880,1,988,3E4,2,1047,880,2,1047,880,2,1047,880,1,988,784,1,880,3E4,2,988,784,2,988
560 DATA 784,2,932,784,1,880,698,1,784,659,2,880,698,1,784,440,1,698,440,1,659,494,1,587,494,1,392,494,1
570 DATA 440,494,1,494,3E4,1,523,440,1,587,494,1,659,523,1,698,587,1,784,587,1,659,392,1,784,392,3,587,392
580 DATA 1,523,392,1,523,392,1,494,349,1,523,392,1,587,440,1,523,392,1,659,523,1,587,494,1,698,587,1,659
590 DATA 523,1,587,494,1,659,523,1,698,587,1,659,523,1,784,659,1,740,587,1,880,698,1,784,659,1,740,587,1
600 DATA 784,659,1,880,740,1,784,659,1,880,740,1,784,659,1,740,587,1,659,523,1,698,587,1,659,523,1,587,494
610 DATA 1,523,3E4,1,659,523,1,587,440,1,523,440,1,494,392,1,494,370,1,392,3E4,1,392,440,1,3E4,392,1,3E4
620 DATA 494,1,440,196,1,523,196,1,494,247,1,440,247,1,494,294,1,523,294,1,494,247,1,587,247,1,523,196,1
630 DATA 659,196,1,587,247,1,523,247,1,587,294,1,659,294,1,587,247,1,659,247,1,587,196,1,523,196,1,294,494
640 DATA 1,294,523,1,294,494,1,294,440,1,294,392,1,294,494,1,3E4,440,1,3E4,392,1,294,147,1,294,131,1,587
650 DATA 147,1,554,165,1,587,147,1,587,185,1,3E4,147,1,3E4,196,2,3E4,370,1,587,440,1,554,392,2,587,440,2
660 DATA 3E4,392,2,3E4,440,1,523,440,1,494,440,2,523,440,1,494,392,1,494,370,2,587,392,1,523,392,1,494,392
670 DATA 2,523,370,1,494,392,1,440,3E4,2,494,392,2,392,3E4,2,3E4,494,2,392,294,2,247,3E4,1,196,392,1,196
680 DATA 370,2,3E4,392,1,3E4,494,1,3E4,440,2,3E4,494,1,587,494,1,523,440,2,587,494,1,784,587,1,740,523,2
690 DATA 784,587,1,587,494,1,523,440,2,587,494,1,392,294,1,370,277,2,392,294,1,247,196,1,220,185,2,247,196
700 DATA 1,784,392,1,740,370,2,784,392,1,392,196,1,440,220,2,494,247,2,554,277,1,587,440,1,554,392,1,587
710 DATA 440,1,659,494,1,587,440,1,740,523,1,587,494,1,784,587,1,587,440,1,554,392,1,587,440,1,659,494,1
720 DATA 587,440,1,880,740,1,587,494,1,988,784,1,587,440,1,554,392,1,587,392,1,659,494,1,587,440,1,1047,784
730 DATA 1,587,740,1,1175,880,2,988,392,1,880,440,1,784,494,2,880,523,1,784,494,1,740,440,2,784,392,1,740
740 DATA 196,1,659,196,1,587,196,1,784,196,1,587,392,1,784,392,2,659,392,1,587,196,1,523,196,1,494,196,1
750 DATA 784,196,1,494,392,1,784,392,2,523,3E4,1,494,3E4,1,440,3E4,1,392,196,1,784,196,1,440,330,1,784,330
760 DATA 1,494,294,1,784,294,1,554,330,1,784,330,1,587,370,1,740,370,1,587,294,1,784,330,1,587,370,1,880
770 DATA 370,1,587,392,1,988,392,1,587,440,1,1047,440,1,587,440,1,1175,440,2,988,392,1,880,440,1,784,440,2
780 DATA 587,440,2,740,440,2,784,392,1,740,370,1,659,330,1,587,294,1,523,262,1,494,247,1,440,220,2,494,247
790 DATA 1,440,220,1,392,196,2,587,294,2,294,147,2,392,3E4,1,392,370,1,392,330,1,392,1,294,1,330,1,349,1
800 DATA 330,1,349,1,587,1,494,1,370,1,294,1,196,1,349,1,330,1,349,1,587,1,494,1,370,1,294,1,196,1,330
810 DATA 1,294,1,330,1,523,1,392,1,330,1,262,1,196,1,330,1,294,1,330,1,523,1,392,1,330,1,262,1,196,1
820 DATA 370,1,330,1,370,1,523,1,440,1,370,1,262,1,220,1,370,1,330,1,370,1,523,1,440,1,370,1,262,1,220
830 DATA 1,247,1,294,1,330,1,370,1,392,1,440,1,494,1,554,2,587,2,294,1,3E4,1,587,1,440,1,494,1,523,1
840 DATA 494,1,523,1,880,1,740,1,622,1,494,1,370,1,523,1,494,1,523,1,880,1,740,1,622,1,494,1,370,1,494
850 DATA 1,440,1,494,1,880,1,740,1,622,1,494,1,370,1,494,1,440,1,494,1,880,1,740,1,622,1,494,1,370,1
860 DATA 440,1,392,1,440,1,740,1,622,1,494,1,440,1,370,1,440,1,392,1,440,1,740,1,622,1,659,440,2,622,370
870 DATA 2,659,392,1,494,392,1,440,370,2,494,392,1,392,330,1,370,311,2,392,330,1,330,247,1,294,220,2,330
880 DATA 247,1,196,165,1,185,156,2,165,3E4,1,330,165,1,370,185,2,392,196,2,440,220,2,494,247,1,622,247,1
890 DATA 554,247,2,622,196,1,740,247,1,659,220,2,740,247,1,440,370,1,392,330,2,440,370,1,523,440,1,494,392
900 DATA 2,523,440,1,311,3E4,1,277,3E4,2,311,3E4,2,880,494,2,784,392,1,740,370,1,659,330,2,740,370,1,659
910 DATA 330,1,622,311,3,1047,523,1,988,494,1,880,440,1,784,392,1,740,370,1,659,330,2,988,370,1,880,494,1
920 DATA 784,494,2,740,440,1,659,392,1,622,370,1,659,392,1,659,494,1,659,330,1,622,370,1,659,392,1,659,440
930 DATA 1,3E4,494,1,3E4,440,2,3E4,392,1,659,3E4,1,622,659,2,659,3E4,2,523,3E4,2,587,3E4,1,659,494,1,622
940 DATA 494,2,659,330,2,370,3E4,2,392,3E4,1,659,330,1,740,330,1,784,247,1,740,247,1,659,330,1,587,330,1
950 DATA 554,440,1,659,440,1,440,3E4,1,494,392,1,554,440,1,587,440,1,659,494,1,587,494,1,554,3E4,1,554,659
960 DATA 1,880,440,1,880,494,1,3E4,554,1,3E4,587,1,831,659,1,831,587,2,880,554,2,659,880,2,440,3E4,1,494
970 DATA 831,1,554,494,1,587,494,1,659,370,1,587,370,1,554,247,1,659,247,1,880,311,1,784,311,2,740,330,1
980 DATA 1175,147,1,1109,165,1,1175,185,1,1175,196,1,3E4,220,1,3E4,196,2,3E4,185,1,1175,294,1
985 DATA 1109,294,2,1175
990 DATA 3E4,2,3E4,220,2,3E4,294,1,1175,220,1,1109,220,2,1175,185,1,1175,110,1,1109,110,2,1175,3E4,1,3E4,247
1000 DATA 1,3E4,294,1,3E4,262,1,3E4,247,1,3E4,220,1,3E4,196,1,3E4,196,1,587,147,1,587,131,1,494,147,1,587
1010 DATA 147,1,392,196,1,440,185,1,494,185,1,523,196,1,494,220,1,440,220,1,392,247,1,392,294,1,784,196,1
1020 DATA 740,220,1,784,247,1,784,262,1,3E4,294,1,3E4,262,2,3E4,247,1,3E4,392,1,3E4,370,2,3E4,392,1,784,494
1030 DATA 1,740,523,2,784,587,1,587,494,1,523,3E4,2,587,494,1,494,392,1,440,370,2,494,392,1,392,247,1,370
1040 DATA 262,2,392,294,1,294,1,330,1,370,1,392,1,370,1,392,1,659,1,554,1,466,1,392,1,330,1,392,1,370,1
1050 DATA 392,1,659,1,554,1,466,1,392,1,330,1,370,1,330,1,370,1,659,1,554,1,466,1,370,1,277,1,370,1,330
1060 DATA 1,370,1,659,1,554,1,466,1,370,1,277,1,330,1,294,1,330,1,554,1,466,1,370,1,330,1,277,1,330,1
1070 DATA 294,1,330,1,554,1,466,1,370,1,330,1,277,2,988,196,1,740,587,1,659,587,2,740,494,1,988,370,1,932
1080 DATA 370,2,988,494,1,587,3E4,1,554,587,2,587,494,1,988,370,1,932,370,2,988,494,1,494,587,1,554,3E4,2
1090 DATA 587,494,1,659,440,1,659,392,1,740,370,1,659,370,1,740,330,1,784,294,1,740,277,1,659,277,1,587,440
1100 DATA 1,554,440,1,587,494,1,659,494,1,587,247,1,659,247,2,740,247,2,740,494,1,988,247,1,932,247,2,988
1110 DATA 247,1,740,494,1,659,494,2,587,370,1,554,330,1,494,294,2,554,330,1,494,294,1,466,277,3,784,392,1
1120 DATA 740,370,1,659,330,1,587,294,1,554,277,1,494,247,3,740,494,1,784,494,3,554,370,1,494,370,4,494,370,