Has it to be typed in or is there any way to take the text and turn it in to GFA file for use with Atari?
--- On Thu, 19/4/12, charles c <charles.copp@...> wrote:
From: charles c <charles.copp@...>
Subject: [CZsynth] Re: miami vice!!! atari cz101
To: CZsynth@yahoogroups.com
Date: Thursday, 19 April, 2012, 1:26
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
[Non-text portions of this message have been removed]Message
Re: [CZsynth] Re: miami vice!!! atari cz101
2012-04-19 by Lee Borrell