Plays the Chicago Bears Fight Song; can show notation for the tune, too.
Related Content
- Bears (computer_media)
Gallery
Source Code
2 PRINT "Do you desire a note printout? (y/n). A note printout option takes longer to run (in some cases it may take 10 minutes to load the dimension holding the notes). Also the sounds will be at the incorrect tempo. Without the printout the sounds will be at the correct tempo."
3 INPUT q$
4 IF q$="n" OR q$="N" THEN GO TO 6
6 LET s=164
8 GO SUB 4000
10 DIM a(s): DIM b(s)
11 DIM c$(s): DIM d$(s)
15 RESTORE 1000
20 FOR i=1 TO s: READ b(i)
25 IF i=83 THEN RESTORE 1005
30 IF i=163 THEN RESTORE 1070
90 NEXT i
95 RESTORE 2000
99 RESTORE 2000
100 FOR i=1 TO s: READ a(i)
110 IF i=83 THEN RESTORE 2005
113 IF i=163 THEN RESTORE 2075
190 NEXT i
195 IF q$="n" OR q$="N" THEN GO TO 215
200 GO SUB 5000
205 CLS : GO SUB 3000
210 LET y=8
215 FOR i=1 TO s
217 IF q$="n" OR q$="N" THEN GO TO 450
220 LET j=i
225 IF b(i)=0 THEN LET z=0
230 IF b(i)=-1 THEN LET z=-1
235 IF b(i)=1 OR b(i)=2 THEN LET z=0
240 IF b(i)=3 OR b(i)=4 THEN LET z=1
245 IF b(i)=5 OR b(i)=6 THEN LET z=1
250 IF b(i)=7 OR b(i)=8 THEN LET z=2
255 IF b(i)=9 OR b(i)=10 THEN LET z=2
260 IF b(i)=11 THEN LET z=3
265 IF b(i)=12 OR b(i)=13 THEN LET z=3
270 IF b(i)=14 OR b(i)=15 OR b(i)=16 THEN LET z=4
280 IF b(i)=17 OR b(i)=18 OR b(i)=19 THEN LET z=5
285 IF b(i)=20 OR b(i)=21 THEN LET z=6
290 IF b(i)=22 OR b(i)=23 THEN LET z=6
295 IF b(i)=-2 THEN LET z=-2
300 IF i=31 THEN GO SUB 3030
305 IF i>30 THEN LET j=i-30
310 IF i=61 OR i=121 OR i=181 OR i=241 OR i=301 OR i=361 OR i=421 THEN GO SUB 3200
315 IF i>60 THEN LET j=i-60
320 IF i=91 OR i=151 OR i=211 OR i=271 OR i=331 OR i=391 OR i=451 THEN GO SUB 3210
325 IF i>90 THEN LET j=i-90
330 IF i>120 THEN LET j=i-120
335 IF i>150 THEN LET j=i-150
340 IF i>180 THEN LET j=i-180
345 IF i>210 THEN LET j=i-210
350 IF i>240 THEN LET j=i-240
355 IF i>270 THEN LET j=i-270
360 IF i>300 THEN LET j=i-300
365 IF i>330 THEN LET j=i-330
370 IF i>360 THEN LET j=i-360
375 IF i>390 THEN LET j=i-390
380 IF i>420 THEN LET j=i-420
385 IF i>450 THEN LET j=i-450
400 PRINT INK 3; OVER 1;AT y-z,1+j;c$(i);AT (y-z-1),1+j;d$(i)
450 BEEP a(i),b(i)
455 IF i=17 OR i=68 OR i=82 OR i=91 OR i=150 THEN PAUSE 10
500 NEXT i
899 RANDOMIZE USR 23296
999 STOP
1000 DATA 10
1005 DATA 10,9,12,10,7,9,4,7
1010 DATA 10,9,10,12,10,10,9,8
1015 DATA 12,12,11,14,12,8,0
1020 DATA 5,8,12,11,12,14,12,12,11
1025 DATA 10,12,15,15,15,15,12
1030 DATA 15,12,10,8,7,10
1035 DATA 5,9,12,14,12,10.1,10,10,9
1040 DATA 12,10,7,-1,4,7,10,9,10
1045 DATA 12,10,4,12
1050 DATA 8,7,5,7,8,12,10
1055 DATA 14,15,15,12,15,14
1060 DATA 15
1065 DATA 10
1070 DATA 15
2000 DATA .3
2005 DATA .7,.2,.3,.2,.7,.2,.3,.2
2010 DATA .3,.3,.2,.3,.3,.3,.2,.5
2015 DATA .35,.7,.2,.3,.2,.7,.2,.3
2020 DATA .2,.3,.3,.2,.35,.35,.3
2025 DATA .2,.5,.35,.2,.2,.2,.3,.2
2030 DATA .3,.2,.3,.2,.7,.2
2035 DATA .35,.35,.35,.35,.7,.35,.35,1,.2
2040 DATA .3,.2,1,.2,.3,.2,.35,.3,.2
2045 DATA .35,.3,.2,1
2050 DATA .3,.2,.35,.35,.35,.35,.35
2055 DATA .35,.35,.2,.2,.5,.35
2065 DATA 1
2070 DATA .3
2075 DATA 1.25
2999 STOP
3000 LET y=8: PRINT AT 3,0;"F-------------------------------"
3005 PRINT AT 4,0;"D-------------------------------"
3010 PRINT AT 5,0;"B-------------------------------"
3015 PRINT AT 6,0;"G-------------------------------"
3020 PRINT AT 7,0;"E-------------------------------"
3025 PRINT AT 8,0;"C-------------------------------"
3027 RETURN
3030 LET y=17: PRINT AT 12,0;"F-------------------------------"
3035 PRINT AT 13,0;"D-------------------------------"
3040 PRINT AT 14,0;"B-------------------------------"
3045 PRINT AT 15,0;"G-------------------------------"
3050 PRINT AT 16,0;"E-------------------------------"
3054 PRINT AT 17,0;"C-------------------------------"
3055 RETURN
3200 RANDOMIZE USR 23296: CLS : GO TO 3000
3210 GO TO 3030
3999 STOP
4000 RESTORE 4010: FOR i=0 TO 143: READ byte: POKE USR "\a"+i,byte: NEXT i: RETURN
4005 STOP
4010 DATA 4,28,60,124,124,60,48,0
4015 DATA 0,0,0,7,4,7,4,4
4020 DATA 0,0,0,7,4,4,4,4
4025 DATA 0,0,0,4,4,4,4,4
4030 DATA 124,60,48,0,0,0,0,0
4035 DATA 7,4,7,4,4,28,60,124
4040 DATA 7,4,4,4,4,28,60,124
4045 DATA 4,4,4,4,4,28,60,124
4050 DATA 4,28,36,68,68,36,48,0
4055 DATA 0,48,36,68,68,36,48,0
4060 DATA 68,36,48,0,0,0,0,0
4065 DATA 4,4,4,4,4,60,36,68
4070 DATA 0,0,0,0,0,48,36,68
4075 DATA 4,28,60,125,124,60,48,0
4080 DATA 7,4,4,4,4,28,60,125
4085 DATA 4,4,4,4,4,28,60,125
4090 DATA 4,4,4,4,4,28,38,69
4095 DATA 4,28,36,69,68,36,48,0
4999 STOP
5000 FOR i=1 TO s
5049 IF a(i)=.1 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=16 OR b(i)=22 OR b(i)=19 OR b(i)=23) THEN LET c$(i)="\e": LET d$(i)="\f"
5050 IF a(i)=.2 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\e": LET d$(i)="\g"
5051 IF a(i)=.3 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\e": LET d$(i)="\h"
5052 IF a(i)=.35 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\e": LET d$(i)="\p"
5053 IF a(i)=.25 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\e": LET d$(i)="\o"
5054 IF a(i)=.5 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\k": LET d$(i)="\l"
5055 IF a(i)=.7 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\k": LET d$(i)="\q"
5056 IF a(i)=1 AND (b(i)=-1 OR b(i)=1 OR b(i)=2 OR b(i)=5 OR b(i)=6 OR b(i)=9 OR b(i)=10 OR b(i)=12 OR b(i)=13 OR b(i)=19 OR b(i)=16 OR b(i)=22 OR b(i)=23) THEN LET c$(i)="\k": LET d$(i)="\m"
5057 IF a(i)=.1 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\a": LET d$(i)="\b"
5058 IF a(i)=.2 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\a": LET d$(i)="\c"
5059 IF a(i)=.25 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\a": LET d$(i)="\d"
5060 IF a(i)=.3 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\a": LET d$(i)="\d"
5061 IF a(i)=.35 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\n": LET d$(i)="\d"
5062 IF a(i)=.5 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\i": LET d$(i)="\d"
5063 IF a(i)=.7 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\r": LET d$(i)="\d"
5064 IF a(i)=1 AND (b(i)=-2 OR b(i)=0 OR b(i)=3 OR b(i)=4 OR b(i)=7 OR b(i)=8 OR b(i)=11 OR b(i)=14 OR b(i)=17 OR b(i)=18 OR b(i)=15 OR b(i)=20 OR b(i)=21) THEN LET c$(i)="\j": LET d$(i)=CHR$ 32
5065 IF a(i)>1 THEN LET c$(i)="O": LET d$(i)="#"
5099 NEXT i
5100 RETURN
8999 STOP
9000 SAVE "BEARS-1": PRINT "Rewind & press ENTER to VERIFY.": PAUSE 0: VERIFY "BEARS-1": PRINT "BEARS-1 VERIFIED."