Yahoo Groups archive

Casio CZ/ VZ/ FZ - Pro Series

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

Thread

miami vice!!! atari cz101

miami vice!!! atari cz101

2012-04-15 by charlie 'chop' copp

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

Re: [CZsynth] miami vice!!! atari cz101

2012-04-17 by Lee Borrell

Is it necessary to type this in or is there some way to convince the machine it is a GFA file? I just tried dumping the listing with the extension .GFA,but it did not fool the Atari. Obviously it is more sophisticated than a PC?!

--- On Sun, 15/4/12, charlie 'chop' copp <charles.copp@...> wrote:
Show quoted textHide quoted text
From: charlie 'chop' copp <charles.copp@...>
Subject: [CZsynth] miami vice!!! atari cz101
To: CZsynth@yahoogroups.com
Date: Sunday, 15 April, 2012, 1:48
















 



  


    
      
      
      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





    
     

    
    






  










[Non-text portions of this message have been removed]

Re: [CZsynth] miami vice!!! atari cz101

2012-04-17 by charlie 'chop' copp

i'll get it working tonight lee , its a source file for the atari st basic
not gfa , but i'll write out for gfa
i just found it and haven't even tried it yet

charles

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

Re: [CZsynth] Re: miami vice!!! atari cz101

2012-04-19 by Lee Borrell

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:
Show quoted textHide quoted text
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]

Re: [CZsynth] Re: miami vice!!! atari cz101

2012-04-20 by Lee Borrell

Looks like that is a typing exercise then!

--- On Thu, 19/4/12, charlie 'chop' copp <charles.copp@...> wrote:
Show quoted textHide quoted text
From: charlie 'chop' copp <charles.copp@...>
Subject: Re: [CZsynth] Re: miami vice!!! atari cz101
To: CZsynth@yahoogroups.com
Date: Thursday, 19 April, 2012, 22:24
















 



  


    
      
      
      oh you sure are manipulating



you really are an "IT" guy. 



you guess lee



i did my part



charles





    
     

    
    






  










[Non-text portions of this message have been removed]

Re: [CZsynth] Re: miami vice!!! atari cz101

2012-04-21 by charlie 'chop' copp

no 
looks like i go onto do something else 
and you  still stuck on gfa

typing is not an exercise either

depends on how we look at it

what else you got going on , your casio guitar again?

charles

Re: [CZsynth] Re: miami vice!!! atari cz101

2012-04-21 by Lee Borrell

I put the guitar on the backburner - I just upgraded my CZ1000 with a backlit display - took me two goes to refit it as it was upside down! I may have a go at the CZ101 now I know what to do - I did it on the 1000 first in case I made a mess of it.
Will send pix as soon as I make some and type up how to do the mod (as others have done).
I'm also working on solar/wind power for our green group - so I don't have as much time for programming/electronics.

It seems you maybe busy with a "randomizer" - hehehehehe.

--- On Sat, 21/4/12, charlie 'chop' copp <charles.copp@...> wrote:
Show quoted textHide quoted text
From: charlie 'chop' copp <charles.copp@...>
Subject: Re: [CZsynth] Re: miami vice!!! atari cz101
To: CZsynth@yahoogroups.com
Date: Saturday, 21 April, 2012, 1:15
















 



  


    
      
      
      no 

looks like i go onto do something else 

and you  still stuck on gfa



typing is not an exercise either



depends on how we look at it



what else you got going on , your casio guitar again?



charles





    
     

    
    






  










[Non-text portions of this message have been removed]

Re: [CZsynth] Re: miami vice!!! atari cz101

2012-04-21 by Lee Borrell

Blurb is now online concerning backlit displays:

http://templarseries.atspace.com/cz.html

Thanks to all those in the group who carried out the mod and put in photos which helped!!

--- On Sat, 21/4/12, Lee Borrell <templarser@...> wrote:
Show quoted textHide quoted text
From: Lee Borrell <templarser@...>
Subject: Re: [CZsynth] Re: miami vice!!! atari cz101
To: CZsynth@yahoogroups.com
Date: Saturday, 21 April, 2012, 17:11
















 



  


    
      
      
      I put the guitar on the backburner - I just upgraded my CZ1000 with a backlit display - took me two goes to refit it as it was upside down! I may have a go at the CZ101 now I know what to do - I did it on the 1000 first in case I made a mess of it.

Will send pix as soon as I make some and type up how to do the mod (as others have done).

I'm also working on solar/wind power for our green group - so I don't have as much time for programming/electronics.



It seems you maybe busy with a "randomizer" - hehehehehe.



--- On Sat, 21/4/12, charlie 'chop' copp <charles.copp@sympatico.ca> wrote:



From: charlie 'chop' copp <charles.copp@...>

Subject: Re: [CZsynth] Re: miami vice!!! atari cz101

To: CZsynth@yahoogroups.com

Date: Saturday, 21 April, 2012, 1:15



 



no 



looks like i go onto do something else 



and you  still stuck on gfa



typing is not an exercise either



depends on how we look at it



what else you got going on , your casio guitar again?



charles



[Non-text portions of this message have been removed]





    
     

    
    






  










[Non-text portions of this message have been removed]

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.