Bears 1

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."