i found this all hope to impress! 10 rem Miami Vice Theme for Casio CZ-101 15 rem Theme from the Universal Television Series by Jan Hammer 20 rem ST transcription by Greg Gorsiski 75166.303 21 rem January 16,1986 22 rem The Song uses alot of the preprogrammed preset from Casio, if you 23 rem changed any of them I cant tell you what its going to sound like. 24 rem There is one preset change that must be done for the drum sound. 30 rem January 16,1986 31 rem The following preset must be programmed into internal #16 32 rem That's INTERNAL-SELECT-8, Its the drum fill needed for miaim vice. 33 rem VIBRATO-all zeros OCTAVE -1 DETUNE(+)ALL ZEROS 34 rem NOISE OFF, RING ON LINE SELECT 1+1' 35 rem DCO #1 Wave Form=5,0 36 rem DCO #1 Envelope Step 1 *** Rate 99 Level 99 37 rem Step 2 *** Rate 87 Level 30 38 rem Step 3 END Rate 40 Level 00 39 rem DCA #1 Key Range=4 40 rem DCA #1 Envelope Step 1 *** Rate 99 Level 99 41 rem Step 2 *** rate 60 Level 70 42 rem Step 3 END Rate 40 Level 00 43 rem DCW #1 Key Range=6 44 rem DCW #1 Envelope Step 1 *** Rate 99 Level 99 45 rem Step 2 *** Rate 62 Level 28 46 rem Step 3 END Rate 72 Level 00 47 rem This must be written to preset Internal 16 to sound (I hope) correct 48 rem Once written to the preset bank the only thing left to do is 49 rem press the SOLO button on your CASIO load and run the program 50 rem I'm also working on this program and one like it only a creator 51 rem not just a player,written in FORTH and a standalone application 52 rem PLEASE send me any comments good or bad I have a few more songs if 53 rem anyone is interested in them. 54 rem Thanks Greg Gorsiski 75166.303(CIS) or SYSTOLE(Delphi) 55 rem 56 rem 59 out 3,192:out 3,44:out 3,193:out 3,44:out 3,194:out 3,47:en%=0 60 out 3,144:out 3,45:out 3,64:out 3,145:out 3,57:out 3,64:f%=0 70 for wait%=0 to 9000:next:for wow%=1 to 4:gosub 390:if wow%=3 then f%=1 90 next:for intro%=0 to 21:restore 280:if intro%=1 then gosub 390 100 if intro%=2 then gosub 390 110 if intro%>12 then for n%=193 to 195:out 3,n%:out 3,32:next:restore 450 120 if intro%=17 or intro%=19 then restore 570 130 if intro%=18 or intro%=20 then restore 690 140 if intro%=21 then restore 250:intro%=3:en%=en%+1:if en%=2 then 230 150 for song%=1 to 32:for voice%=144 to 147 160 read note%,cond%:if intro%>3 and voice%=145 then note%=note%+12 170 if intro%>5 and intro%<7 then note%=note%-2 180 if intro%>8 and intro%<10 then note%=note%-2 190 if intro%=14 and voice%=144 or intro%=16 and voice%=144 then note%=note%-2 200 if intro%=14 and voice%>144 or intro%=16 and voice%>144 then note%=note%+4 210 out 3,voice%:out 3,note%:out 3,cond% 220 for wait%=1 to 25:next:next:next:next 230 rem end of song 240 for voice%=144 to 147:out 3,48+voice%:out 3,34 250 out 3,voice%:out 3,69:out 3,64:next:end 270 rem intro data 280 data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0,43,64,43,64,0,0,0,0 290 data 38,64,38,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0 300 data 33,64,33,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0 310 data 45,64,45,64,0,0,0,0,43,64,43,64,0,0,0,0,45,64,45,64,0,0,0,0 320 data 47,64,47,64,0,0,0,0,43,64,43,64,0,0,0,0,40,64,40,64,0,0,0,0 330 data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0 340 data 45,64,45,64,0,0,0,0,33,64,33,64,0,0,0,0,45,64,45,64,0,0,0,0 350 data 45,64,45,64,0,0,0,0,38,64,38,64,0,0,0,0,45,64,45,64,0,0,0,0 360 data 43,64,43,64,0,0,0,0,47,64,47,64,0,0,0,0,45,64,45,64,0,0,0,0 370 data 45,64,45,64,0,0,0,0,47,64,47,64,0,0,0,0,45,64,45,64,0,0,0,0 380 data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0 390 rem drum fill 400 for drum%=90 to 36 step -2:out 3,146:out 3,drum%:out 3,64 410 if f%=1 then out 3,144:out 3,drum%:out 3,64 420 if f%=1 then out 3,145:out 3,drum%:out 3,64 430 for wait%=0 to 130:next:next:f%=0:return 440 rem diter data 450 data 45,64,59,64,62,64,67,64,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0 460 data 38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 470 data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 480 data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 490 data 47,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0 500 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 510 data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 520 data 45,64,0,0,0,0,0,0,38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 530 data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 540 data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 550 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 560 rem dit dah data 570 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0 580 data 38,64,0,0,0,0,0,0,45,64,66,64,66,64,66,64,45,64,0,0,0,0,0,0 590 data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,64,64,64,64,57,64 600 data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 610 data 47,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0 620 data 45,64,0,0,0,0,0,0,45,64,59,64,59,64,59,64,45,64,0,0,0,0,0,0 630 data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,57,64,57,64,57,64 640 data 45,64,0,0,0,0,0,0,38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 650 data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 660 data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 670 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 680 rem dah dit data 690 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0 700 data 38,64,0,0,0,0,0,0,45,64,69,64,65,64,60,64,45,64,0,0,0,0,0,0 710 data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,69,64,67,64,62,64 720 data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 730 data 47,64,69,64,66,64,62,64,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0 740 data 45,64,0,0,0,0,0,0,45,64,69,64,67,64,62,64,45,64,0,0,0,0,0,0 750 data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,69,64,66,64,62,64 760 data 45,64,0,0,0,0,0,0,38,64,69,64,64,64,61,64,45,64,0,0,0,0,0,0 770 data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 780 data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0 790 data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
Message
miami vice!!! atari cz101
2012-04-15 by charlie 'chop' copp