Yahoo Groups archive

Casio CZ/ VZ/ FZ - Pro Series

Index last updated: 2026-04-28 22:42 UTC

Message

Re: miami vice!!! atari cz101

2012-04-19 by charles c

ok lee and group , her eit is in gfa , may need some extra resitting 
but seemed to play some good drums to me!even on gm sound card!!! 

enjoy
charles copp


' SOF
' ***********************************************************
' * Miami Vice Theme for Casio CZ-101                       *
' * Theme from the Universal Television Series by Jan Hammer*
' * ST transcription by Greg Gorsiski 75166.303             * 
' * REWRITTEN APRIL 18 2012 in gfa by charles copp          *
' * January 16,1986                                         *
' ***********************************************************
'
' The Song uses alot of the preprogrammed preset from Casio, if you
' changed any of them I cant tell you what its going to sound like.
' There is one preset change that must be done for the drum sound.
'
' January 16,1986
'
' The following preset must be programmed into internal #16
' That's INTERNAL-SELECT-8, Its the drum fill needed for miaim vice.
'
' VIBRATO-all zeros... OCTAVE -1 ...DETUNE(+)ALL ZEROS
' NOISE OFF... RING ON ....LINE SELECT 1+1'
' DCO #1 Wave Form=5,0
' DCO #1 Envelope Step 1 *** Rate 99 Level 99
' Step 2 *** Rate 87 Level 30
' Step 3 END Rate 40 Level 00
' DCA #1 Key Range=4
' DCA #1 Envelope Step 1 *** Rate 99 Level 99
' Step 2 *** rate 60 Level 70
' Step 3 END Rate 40 Level 00
' DCW #1 Key Range=6
' DCW #1 Envelope Step 1 *** Rate 99 Level 99
' Step 2 *** Rate 62 Level 28
' Step 3 END Rate 72 Level 00
'
' This must be written to preset Internal 16 to sound (I hope)
' correct
' Once written to the preset bank the only thing left to do is
' press the SOLO button on your CASIO load and run the program
'
' I'm also working on this program and one like it only a creator
' not just a player,written in FORTH and a standalone application
' PLEASE send me any comments good or bad I have a few more songs if
' anyone is interested in them.
'
' Thanks Greg Gorsiski 75166.303(CIS) or SYSTOLE(Delphi)
'
'
'
'
' actual program by GREG GORSISKI REWRITTEn BY CHARLES COPP
'
OUT 3,192
OUT 3,44
'
OUT 3,193
OUT 3,44
'
OUT 3,194
OUT 3,47
'
en%=0
'
OUT 3,144
OUT 3,45
'
OUT 3,64
OUT 3,145
'
OUT 3,57
OUT 3,64
'
f%=0
'
FOR wait%=0 TO 9000
NEXT wait%
'
FOR wow%=1 TO 4
  GOSUB drum_fill
  IF wow%=3
    f%=1
  ENDIF
NEXT wow%
'
FOR intro%=0 TO 21
  RESTORE intro_data
  '
  IF intro%=1 THEN
    GOSUB drum_fill
  ELSE IF intro%=2
    GOSUB drum_fill
  ENDIF
  IF intro%>12
    FOR n%=193 TO 195
      OUT 3,n%
      OUT 3,32
    NEXT n%
    RESTORE diter_data
  ENDIF
  '
  IF intro%=17 OR intro%=19
    RESTORE dit_dah_data
  ELSE IF intro%=18 OR intro%=20
    RESTORE dah_dit_data
  ELSE IF intro%=21
    RESTORE intro_data
  ENDIF
  '
  intro%=3
  en%=en%+1
  '
  IF en%=2 THEN
    GOSUB end_of_song
  ENDIF
  '
  FOR song%=1 TO 32
    FOR voice%=144 TO 147
      '
      READ note%,cond%
      '
      IF intro%>3 AND voice%=145 THEN
        note%=note%+12
      ENDIF
      '
      IF intro%>5 AND intro%<7 THEN
        note%=note%-2
      ENDIF
      '
      IF intro%>8 AND intro%<10 THEN
        note%=note%-2
      ENDIF
      '
      IF intro%=14 AND voice%=144 OR intro%=16 AND voice%=144 THEN
        note%=note%-2
      ENDIF
      '
      IF intro%=14 AND voice%>144 OR intro%=16 AND voice%>144 THEN
        note%=note%+4
      ENDIF
      '
      OUT 3,voice%
      OUT 3,note%
      OUT 3,cond%
      '
      FOR wait%=1 TO 25
      NEXT wait%
      '
    NEXT voice%
  NEXT song%
  '
NEXT intro%
'
'
'
'
PROCEDURE end_of_song
  FOR voice%=144 TO 147
    OUT 3,48+voice%
    OUT 3,34
    OUT 3,voice%
    OUT 3,69
    OUT 3,64
  NEXT voice%
  '
  FOR b|=0 TO 15
    ~BIOS(3,3,ADD(176,b|))
    ~BIOS(3,3,123)
    ~BIOS(3,3,0)
  NEXT b|
  '
  END
  '
RETURN
> PROCEDURE drum_fill
  FOR drum%=90 TO 36 STEP -2
    OUT 3,146
    OUT 3,drum%
    OUT 3,64
    IF f%=1 THEN
      OUT 3,144
      OUT 3,drum%
      OUT 3,64
    ENDIF
    IF f%=1 THEN
      OUT 3,145
      OUT 3,drum%
      OUT 3,64
    ENDIF
    FOR wait%=0 TO 130
    NEXT wait%
  NEXT drum%
  f%=0
RETURN
'
intro_data:
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
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
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
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
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
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
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
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
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
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
DATA 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0
'
'
diter_data:
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
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
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
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
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
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
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
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
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
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
DATA 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
'
'
dit_dah_data:
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
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
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
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
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
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
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
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
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
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
DATA 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
'
'
dah_dit_data:
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
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
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
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
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
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
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
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
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
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
DATA 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
'
' eof

Attachments

  • No local attachments were found for this message.

Move to quarantaine

This moves the raw source file on disk only. The archive index is not changed automatically, so you still need to run a manual refresh afterward.