“EENIE-MEENIE-CHILLIE-BEENIE” SCORE 
(c) 1983 Paul DeMarinis

gathered from floppy disks 12-1-2019

VLIST
V    -7229  7 STARTUP
    -76E5  3 R4T
  V -76EF  3 ROK
  V -76F9  5 TEMPO
  V -7705  5 CTEMP
  V -7711  5 VHOLD
  V -771D  5 RHOLD
  V -7729  6 VTIMER
  V -7736  6 CTIMER
  V -7743  6 RTIMER
  V -7750  6 VCOUNT
  V -775D  6 MCOUNT
  V -776A  6 CCOUNT
  V -7777  6 RCOUNT
  V -7784  5 VHERE
  V -7790  5 MHERE
  V -779C  5 CHERE
  V -77A8  5 RHERE
  K -77B4  5 VPORT
  K -77C0  5 RPORT
  V -77D3  4 RCK2
  V -77DE  6 C2TEMP
  V -77EB  7 C2TIMER
  V -77F9  7 M2COUNT
  V -7807  7 C2COUNT
  V -7815  6 M2HERE
  V -7822  6 C2HERE
    -782F  4 TASK
    -784C  8 TIMERCHK
    -786B  8 TIMERSET
    -7880  7 TIMINIT
  V -788E  3 THI
  V -7898  3 TLO
  K -78A2  4 TIFR
  K -78AD  4 TACR
  K -78B8  4 T1CH
  K -78C3  4 T1CL
  V -78EF  4 VOC3
  V -78FB  4 VOC1
  V -7927  4 VOC2
  V -793D  4 RALL
  V -7949  5 RSOPR
  V -795A  5 RBASS
  V -797C  5 C2TAB
  V -799E  4 CTAB
  V -7A0D  3 *B8
  V -7A8F  3 *B7
  V -7B11  3 *B6
  V -7B93  3 *B5
  V -7C15  3 *B4
  V -7C97  3 *B3
  V -7DE1  3 *S2
  V -7F2B  3 *S1
  V -7FAD  3 *B2
  V 7FD1  3 *B1
    7F81  8 GUITTEST
    7F42  8 GUITINIT
  M 7E06  7 SCANALL
    7DE4  3 RST
  M 7DD1  8 KILLTIME
  K 7DC2  5 GPCR2
  K 7DB6  5 GPCR1
  V 7DAA  6 GUIT4A
  V 7D9D  5 GUIT4
  V 7D91  6 GUIT3A
  V 7D84  5 GUIT3
  V 7D78  6 GUIT2A
  V 7D6B  5 GUIT2
  V 7D5F  6 GUIT1A
  V 7D52  5 GUIT1
  V 7D26  5 SCAN4
  V 7CFA  5 SCAN3
  V 7CCE  5 SCAN2
  V 7CA2  5 SCAN1
  K 7C96  5 GIFR2
  K 7C8A  5 GIFR1
  K 7C7E  5 GDDRC
  K 7C72  5 GDDRD
  K 7C66  6 GPORTC
  K 7C59  6 GPORTD
  K 7C4C  5 GDDRA
  K 7C40  5 GDDRB
  K 7C34  6 GPORTA
  K 7C27  6 GPORTB
    7ADE  8 VOICESET
  V 7AC7  4 COMV
  V 7ABC  6 CASNUM
  V 7AAF  8 TONEMNUM
  V 7AA0  8 VOICENUM
  V 7A8B  9 TONETABLE
  V 7A51 10 VOICETABLE
  V 7A3A  4 FOLK
  V 7A29  8 RECORDER
  V 7A14  5 FLUTE
  V 7A02  8 CLARINET
  V 79EC  7 STRINGS
  V 79D8  5 FUNNY
  V 79C6  7 TRUMPET
  V 79B2  6 VIOLIN
  V 799F  6 SYNTHI
  V 798C  5 CELLO
  V 797A  5 BRASS
  V 7968  8 ORIENTAL
  V 7953  6 PIPEOR
  V 7940  6 ACCORD
  V 792D  5 ORGAN
  V 791B  5 GLOCK
  V 7909  7 CELESTA
  V 78F5  4 XYLO
  V 78E4  6 HPSCHD
  V 78D1  6 GUITAR
  V 78BE  5 BANJO
  V 78AC  5 PIANO
  V 789A  5 DTONE
  V 7888  5 CTONE
  V 7876  5 BTONE
  V 7864  5 ATONE
  V 7852  3 SET
    783C  7 CLROCT4
    7820  4 OCT4
    77FF  6 DTONE4
    77DC  6 CTONE4
    77B9  6 BTONE4
    7796  6 ATONE4
    777D  8 CLRSUST4
    7760  5 SUST4
    7748  7 CLRVIB4
    772C  4 VIB4
    770B  9 CLEARCOM4
    76E5 11 CLEARVOICE4
  M 7692  9 OUTVOICE4
    7676  7 CLROCT3
    765A  4 OCT3
    7639  6 DTONE3
    7616  6 CTONE3
    75F3  6 BTONE3
    75D0  6 ATONE3
    75B7  8 CLRSUST3
    759A  5 SUST3
    7582  7 CLRVIB3
    7566  4 VIB3
    7545  9 CLEARCOM3
    751F 11 CLEARVOICE3
  M 74CC  9 OUTVOICE3
    74B0  7 CLROCT2
    7494  4 OCT2
    7473  6 DTONE2
    7450  6 CTONE2
    742D  6 BTONE2
    740A  6 ATONE2
    73F1  8 CLRSUST2
    73D4  5 SUST2
    73BC  7 CLRVIB2
    73A0  4 VIB2
    737F  9 CLEARCOM2
    7359 11 CLEARVOICE2
  M 7306  9 OUTVOICE2
    72EA  7 CLROCT1
    72CE  4 OCT1
    72AD  6 DTONE1
    728A  6 CTONE1
    7267  6 BTONE1
    7244  6 ATONE1
    722B  8 CLRSUST1
    720E  5 SUST1
    71F6  7 CLRVIB1
    71DA  4 VIB1
    71B9  9 CLEARCOM1
    7193 11 CLEARVOICE1
  M 7140  9 OUTVOICE1
  M 712C  9 OUTCASIO4
  M 70DD  7 CAS4OUT
  M 70CB 11 CLEARCASIO4
  M 70A0  9 CAS4CLEAR
  M 708C  9 OUTCASIO3
  M 703D  7 CAS3OUT
  M 702B 11 CLEARCASIO3
  M 7000  9 CAS3CLEAR
  M 6FEC  9 OUTCASIO2
  M 6F9D  7 CAS2OUT
  M 6F8B 11 CLEARCASIO2
  M 6F60  9 CAS2CLEAR
  M 6F4C  9 OUTCASIO1
  M 6EFD  7 CAS1OUT
  M 6EEB 11 CLEARCASIO1
  M 6EC0  9 CAS1CLEAR
  V 6EA6  6 VOICE4
  V 6E8F  6 VOICE3
  V 6E78  6 VOICE2
  V 6E61  6 VOICE1
  V 6E4A  4 COM4
  V 6E35  4 COM3
  V 6E20  4 COM2
  V 6E0B  4 COM1
  K 6E00  5 SCORE
  K 6DF4  4 CAS4
  K 6DE9  4 CAS3
  K 6DDE  4 CAS2
  K 6DD3  4 CAS1
  K 6DC8  3 KBD
  K 6DBE  6 CASIER
  K 6DB1  6 CASIFR
  K 6DA4  6 CASPCR
  K 6D97  6 CASACR
  K 6D8A  7 CAST1CH
  K 6D7C  6 CAST1L
  K 6D6F  7 CASDDRA
  K 6D61  7 CASDDRB
  K 6D53  7 CASPRTA
  K 6D45  7 CASPRTB
    6D29  4 DGET
    6D0A  5 DSAVE
    6CA0  5 FILE!
  V 6C94  3 FIN
    6C30  5 NINAD
    6C12  4 .---
    6BDA  5 .SCRS
    6BC0  8 VIDEO-ON
    6BA3  9 VIDEO-OFF
    6B89  3 CRS
    6B73  7 RESETPR
    6B59  8 STANDARD
    6B3E  4 ITAL
    6B27  6 COMOFF
    6B0E  5 COMON
    6AF6  5 DSOFF
    6ADE  4 DSON
    6AC7  4 !OFF
    6AB0  3 !ON
    6A9A  9 DE-EXPAND
    6A7E  6 EXPAND
    6A67 10 RS-SPACING
    6A48 10 SETSPACING
    6A2D  8 SETFLASH
    6A18  6 SETINV
    6A05  7 SETNORM
    69E9  7 PBUTTON
    69CD  6 PADDLE
    69BC  5 INPUT
    69AC  3 GET
    699E  6 INPUT$
    6987  4 GET$
    696C  4 STR$
    694F  3 VAL
    68C7  3 IN$
    68B9  3 ASC
    68A7  4 CHR$
    6876  2 S+
    67ED  2 S<
    67E3  5 NULL$
    677D  2 S=
    676A  4 SUB!
    6759  5 LEFT$
    673F  6 RIGHT$
    6716  4 MID$
    6705  4 MLEN
    66F6  3 LEN
    66C6  3 DU<
    66AE  4 DMAX
    6693  4 DMIN
    6684  2 D=
    6673  3 D0=
    6665  2 D-
    6654  9 2VARIABLE
    6634  9 2CONSTANT
    6618  5 2SWAP
    6600  4 2ROT
    65E9  5 2OVER
    65D9  4 2DUP
    65CA  5 2DROP
    65B2  2 2@
    659F  2 2!
    6548  9 13-SECTOR
    64EA  9 16-SECTOR
    64B8  5 CSWAP
    647A  5 INDEX
    6444  4 DUMP
    6431  4 .ROW
    6422  8 .ADDRESS
    63F7  7 .VALUES
    63C1  6 .ASCII
    6370  6 RPLACE
    6357  2 RT
    632C  2 RW
    62F3  6 COUNT$
  V 62B6  5 RLINE
    629E  2 ST
    6269  6 SEARCH
    6208  4 SRCH
    61E8  2 SW
    61B5 10 COUNT-CHRS
  M 617F  5 -TEXT
  V 614B  5 SLINE
  V 613F  5 #CHRS
  V 6133  3 EFL
    6127  5 FLUSH
    6119  2 PR
    6102  2 H.
    60F7  1 H
    60ED  1 D
    60DF  2 ED
    60D4  1 E
    60B5  7 .SOURCE
    6099  5 .READ
    6078  6 YES/NO
    5FF8 12 LOAD-BUFFERS
    5FBB  7 BUFFERS
    5F9B  6 MAXBUF
    5F86  6 RANDOM
    5F5F  3 $RN
    5F4B  7 SETSEED
  V 5F3D  4 SEED
    5F0E  5 WHERE
    5ED8  2 LS
  V 5ECF  4 SLOT
    5E02  5 VLIST
    5DA8  4 EDIT
    5CFC  8 SCAN-ESC
    5C9D  4 SCAN
  M 5A5C  5 POWER
    51F8  5 VHTAB
    5109  7 STUFFEM
  V 50BB  4 CTRL
P   509E  1 \
    5090 10 LEFT-SLASH
    506B  1 L
    5043  5 SCOPY
    500D  5 FLUSH
P   4FFD  6 EDITOR
  M 4FC6  6 <CMOVE
    4FB9 11 79-STANDARD
    4954  4 CODE
  V 4949  7 ADRMODE
P   4931  5 ;CODE
P   4921  9 ASSEMBLER
    48EA  4 LIST
  V 48DF  3 SCR
  K 48D5  3 L/S
P   48BF  4 GODO
    488E  6 (GODO)
P   485D  7 ENDCASE
P   4835  5 ENDOF
P   4809  2 OF
P   47F4  4 CASE
    47B5  8 DESTRUCT
    4733  4 SAVE
    4706  5 BOOTS
    46D8 12 SAVE-BUFFERS
    46AD  7 .TARGET
    4690  6 .WRITE
    466A  6 READY?
    4651  4 NBUF
    4640  3 $GO
P   4614  7 TURNKEY
    45FC  4 COLD
    4573  6 $HELLO
    4546  3 $ID
  V 453C  3 $SN
    4526  2 CV
    4517  2 CH
    4508  4 HOME
    44E9  2 MS
    44BC  6 ACCEPT
    449F  4 FIND
    4474  2 D<
    4467  4 MOVE
    445A  3 NOT
P   444C  4 EXIT
    443D  1 ?
    4431  2 U.
    4424  1 .
    4416  2 D.
    4405  3 U.R
    43F3  2 .R
    43CE  3 D.R
    43B8  4 SIGN
    439F  2 #>
    4390  2 <#
    4379  2 #S
    434E  1 #
    4340  3 MON
    432E  3 U2/
    4314  5 TABLE
    42F6  5 ARRAY
    42DE  6 CTABLE
    42C5  6 CARRAY
    42AE  3 IN#
    429A  3 PR#
    428C  7 MESSAGE
    4160  4 $ERR
    4135  6 STRING
    40FA 12 STRING-ARRAY
    40CF  2 S!
P   40A4  1 "
    408E  3 (")
    405E  4 TEXT
    404D  4 BELL
  K 4042  5 B/BUF
  K 4036  3 I/L
  K 402C  3 C/L
  K 4022  2 BS
  K 4019  2 RY
  K 4010  2 RX
  K 4007  2 RA
  K 1EEB  5 HIRES
  K 1EDF  6 POPTWO
  K 1ED2  5 SETUP
  K 1EC6  4 PUSH
  M 1EB3  2 2/
  M 1EA5  2 2*
  K 1E9C  4 NEXT
  M 1E88  2 ><
  M 1E5F  4 CALL
  M 1E29  4 ROLL
  M 1E04  4 PICK
  M 1DEB  2 0>
    1DD1  5 ?WORD
  M 1DB9  2 2-
  M 1DA7  2 1-
    1D8A  6 SPACES
P   1D79  5 WHILE
P   1D57  4 ELSE
P   1D40  2 IF
P   1D21  6 REPEAT
P   1D0A  5 UNTIL
P   1CF4  5 /LOOP
P   1CDE  5 +LOOP
P   1CC8  4 LOOP
P   1CB5  2 DO
P   1C9C  4 THEN
P   1C8B  5 BEGIN
    1C79  4 BACK
    1C07  6 FORGET
P   1BEE  1 '
    1BC2  3 R/W
    1B82  3 R/S
  K 1B78  3 S/T
  K 1B6E  3 $DR
  K 1B64  4 S/DR
  V 1B4D  5 $BLKS
    1AFF  5 -DISC
  V 1AE0  6 IBLOCK
P   1A72  3 -->
    1A44  4 LOAD
    1A37  3 $#1
    1A27  5 .LINE
    1A0D  6 (LINE)
    199C  5 BLOCK
    1954  6 BUFFER
    193C 13 EMPTY-BUFFERS
    1916  6 UPDATE
    18ED  4 +BUF
  V 18E2  4 PREV
  V 18D7  3 USE
    18BB  5 M/MOD
    18A9  2 */
    1898  5 */MOD
    1888  3 MOD
    1878  1 /
    1868  4 /MOD
    1859  1 *
    1832  2 M/
    1815  2 M*
    17FE  3 MAX
    17E6  3 MIN
    17D8  4 DABS
    17C9  3 ABS
    17B7  3 D+-
    17A5  2 +-
    1796  4 S->D
  M 1753  4 BOOT
  V 1746  5 $BOOT
  K 173A  4 $MOM
    1714  5 $MAIN
    16FC  4 QUIT
    16E7  5 ABORT
P   16D3  1 (
    16C3 11 DEFINITIONS
P   16AD  5 FORTH
    167B 10 VOCABULARY
    1663  9 IMMEDIATE
    15F2  9 INTERPRET
    15CB  6 ?STACK
  M 15B5  5 DEPTH
P   159B  8 DLITERAL
P   157E  7 LITERAL
P   1562  9 [COMPILE]
    14ED  6 CREATE
    14CE  3 ID.
    1496  5 ERROR
    1473  5 -FIND
    145F  6 NUMBER
    1407  7 CONVERT
  M 13EC  1 J
    13A6  4 WORD
    1394  3 PAD
    137C  4 HOLD
    136D  6 BLANKS
    135C  5 ERASE
    133C  4 FILL
P   1323  0
    130C  5 QUERY
    1293  6 EXPECT
P   1265  2 ."
    124C  4 (.")
    120A  9 -TRAILING
    11D8  4 TYPE
    11C5  5 COUNT
    118F  6 (DOES)
P   1176  5 DOES>
    1160  7 (;CODE)
    114B  7 DECIMAL
    1136  3 HEX
    1124  6 SMUDGE
    1110  1 ]
P   1102  1 [
    10EC  7 COMPILE
    10D3  8 ?LOADING
    10B7  4 ?CSP
    10A5  6 ?PAIRS
    108F  5 ?EXEC
    1078  5 ?COMP
    105E  6 ?ERROR
    104B  4 !CSP
    1037  3 PFA
    1022  3 NFA
    1014  3 CFA
    1005  3 LFA
     FF5  6 LATEST
     FD1  8 TRAVERSE
     FB9  4 ?DUP
     FAA  5 SPACE
     F96  3 ROT
     F88  1 >
  M  F6B  1 <
  M  F52  2 U<
     F45  1 =
     F39  1 -
     F29  2 C,
     F18  1 ,
     F0C  5 ALLOT
     EFC  4 HERE
     EED  2 2+
     EE0  2 1+
  V  ED7  3 HLD
  V  ECD  3 CSP
  V  EC3  4 BASE
  V  EB8  5 STATE
  V  EAC  7 CURRENT
  V  E9E  7 CONTEXT
  V  E90  3 >IN
  V  E86  3 BLK
  V  E7C  8 VOC-LINK
  V  E6D  2 DP
  V  E64  5 FENCE
  V  E58  5 WIDTH
  V  E4C  3 TIB
  K  E42  5 LIMIT
  K  E36  5 FIRST
  K  E2A  2 BL
  K  E21  1 3
  K  E19  1 2
  K  E11  1 1
  K  E09  1 0
     DEF  8 VARIABLE
     DD1  8 CONSTANT
P    DB7  1 ;
P    D88  1 :
  M  D7B  2 C!
  M  D63  1 !
  M  D54  2 C@
  M  D3F  1 @
  M  D30  6 TOGGLE
  M  D0F  2 +!
  M  D00  3 DUP
  M  CE8  4 SWAP
     CDF  4 DROP
  M  CCE  4 OVER
  M  CB7  7 DNEGATE
  M  C9D  6 NEGATE
  M  C76  2 D+
  M  C5D  1 +
  M  C4C  2 0<
  M  C37  2 0=
  M  C21  2 R@
  M  C0F  2 R>
  M  BFD  2 >R
  M  BE2  5 LEAVE
  M  BCF  2 ;S
  M  BBE  3 RP!
  M  BB1  3 SP!
  M  BA2  3 SP@
  M  B8C  3 XOR
  M  B76  2 OR
  M  B61  3 AND
  M  B24  5 U/MOD
  M  AE7  2 U*
  M  ABE  5 CMOVE
     AB4  2 CR
     AAD  9 ?TERMINAL
     A9F  3 KEY
     A97  4 EMIT
  M  A45  7 ENCLOSE
  M  9D6  6 (FIND)
  M  9A5  5 DIGIT
     99B  1 I
  M  982  4 (DO)
  M  947  7 (/LOOP)
  M  8F9  7 (+LOOP)
  M  8C5  6 (LOOP)
  M  8A4  7 0BRANCH
  M  885  6 BRANCH
  M  86D  7 EXECUTE
  M  84A  4 CLIT
  M  810  3 LIT
OK

( screen 45 )
( LOAD SCREEN FOR THIS DISK )          
DECIMAL                                 
( LOAD THIS SCREEN FOR EENIE-M )          
DECIMAL 80 LOAD   ( GUITAR  )           
DECIMAL 65 LOAD   ( CHILLIE )           
DECIMAL 75 LOAD   ( MISC    )           
DECIMAL 100 LOAD  ( VARIABS )           
DECIMAL 102 LOAD  ( PLAYWD  )           
DECIMAL 111 LOAD  ( VOICESET)                        

( screen 46)

( SECOND SONG LOAD SCREEN )                                                     
( LOAD THIS SCREEN FOR YELLOW-Y )                                               
DECIMAL 80 LOAD                       
DECIMAL 70 LOAD                         
DECIMAL 75 LOAD                         
DECIMAL 100 LOAD                        
DECIMAL 112 LOAD   

(screen 65 )

( LOAD SCREEN )                         
DECIMAL                                 
50 DGET FILE! *B1                       
51 DGET FILE! *B2                       
52 DGET FILE! *S1                       
53 DGET FILE! *S2                       
54 DGET FILE! *B3                       
55 DGET FILE! *B4                       
56 DGET FILE! *B5                       
57 DGET FILE! *B6                       
58 DGET FILE! *B7                       
59 DGET FILE! *B8  

(12-1-19 here's the missing DGET & FILE! definitions from the casio editor disk:
 - still don't know what the *Bn is but they are definitely in the dictionary and contain the musical phrases in Casissimo format  - 10 byte groups preceded by a single byte that indicates the number of entries and followed by a single byte 0xFF indicating the end.
OK - a little more thought reveals that FILE! uses CREATE to create a word in the dictionary named *Bn which i guess is hanging around in the input stream that follows - a bit rusty on this.)

: DGET EMPTY-BUFFERS BLOCK 2000
  400 CMOVE ;

VARIABE FIN

: FILE!
  CREATE
  0 FIN !  0 C, ( SAVE FOR LENGTH)
 BEGIN 200A FIN @ + C@ C,
   FIN @ 1+ DUP FIN!
   200A + C@
   FF = UNTIL
  FF C,
  FIN @    A / DUP .
  HERE FIN @ - 2 - DUP U. C! ;

( FILES SCORE STARTING WITH LENGTH IN
  NUMBER OF 10-BYTE FRAMES )
)

(screen 66)

( TABLES )                                                                      
CREATE  CTAB                            
*B1 , *B2 , *B1 , *B2 ,                 
*B3 , *B4 , *B5 , *B6 ,                 
*B7 , *B8 , *B8 , *B8 ,                                                         
CREATE  C2TAB                           
*S1 , *S2 , *S1 , *S2 ,                 
*B3 , *B4 , *B5 , *B6 ,                 
*B7 , *B8 , *B8 , *B8 ,                                                                                                                                                                                                                                                                                                                                                                                                                                                                         -->   

(screen 67 )

( NEW DURATION TABLES )                 
HEX                                     
CREATE RBASS                            
6 C, 
3 C, 6 C, 
3 C, 6 C, 
3 C, 3 C,                                                                       
CREATE RSOPR                            
2 C, 
1 C, 2 C,                                                                       
CREATE RALL                             
0C C, 
2 C, 1 C, 2 C, 1 C, 2 C, 1 C, 
3 C, 3 C, 
3 C, 3 C, 
2 C, 1 C,                                                                                                                                                                                               
-->   

(screen 68 )

( VOICE OF FUNNY )                      
HEX  ( EENIE MEENIE CHILLIE BEENIE)     
CREATE VOC2                             
11 C,                                                                           
2C C, 2 C, 0D C, 1 C, 2C C, 2 C,                                                
0C C, 1 C, 2C C, 2 C, 0D C, 1 C, 2C C,  1 C, 2A C, 1 C,                                                                 
10 C, 1 C, 09 C, 2 C, 18 C, 1 C, 2C C,  2 C,                                                                            
0E C, 1 C, 2C C, 2 C, 0D C, 1 C, 2C C,  2 C,                                    
3F C, 1 C,                                                                                                                                                                                                                                                                              
-->   

(screen 69) 

( MORE FUNNY VOICE )                           
HEX                              
CREATE VOC1 ( SILENT)                   
1 C,                                    
3F C, 10 C,                                                                     
CREATE VOC3 ( ....  .... ...)        
11 C,                                   
2D C, 1 C, 2C C, 2 C, 0E C, 1 C, 2C C,  2 C,                                    
2D C, 1 C, 2C C, 2 C, 0D C, 1 C, 2C C,  2 C,                                                                                                                    
2C C, 2 C, 2A C, 1 C, 10 C, 1 C, 2C C,  2 C,                                    
19 C, 1 C, 2C C, 2 C, 0D C, 1 C, 2C C,  1 C, 3F C, 1 C,   

(screen 70)

( NUMBER SIX SONG 10/26 /83)            
DECIMAL                                 
120 DGET FILE! *60                      
121 DGET FILE! *61                      
122 DGET FILE! *62                      
123 DGET FILE! *63                      
124 DGET FILE! *64                      
125 DGET FILE! *65                      
126 DGET FILE! *66                      
127 DGET FILE! *67                      
128 DGET FILE! *68                      
129 DGET FILE! *69                      
130 DGET FILE! *70                      
130 DGET FILE! *71                      
131 DGET FILE! *72                                                                                                                                                                                                                                                                      
-->  

(12-1-19 here's the missing DGET & FILE! definitions from the casio editor disk:

: DGET EMPTY-BUFFERS BLOCK 2000
  400 CMOVE ;

VARIABE FIN

: FILE!
  CREATE
  0 FIN !  0 C, ( SAVE FOR LENGTH)
 BEGIN 200A FIN @ + C@ C,
   FIN @ 1+ DUP FIN!
   200A + C@
   FF = UNTIL
  FF C,
  FIN @    A / DUP .
  HERE FIN @ - 2 - DUP U. C! ;

( FILES SCORE STARTING WITH LENGTH IN
  NUMBER OF 10-BYTE FRAMES )
)                                                                                                                                   

(screen 71)

( TAVOLE PER IL CANZONE )                                                       
CREATE CTAB                             
*60 , *61 , *62 , *63 ,                 
*64 , *65 , *66 , *67 ,                 
*68 , *69 , *70 , *71 ,                 
*72 ,                                   
CREATE C2TAB                            
*60 , *61 , *62 , *63 ,                 
*64 , *65 , *66 , *67 ,                 
*68 , *69 , *70 , *71 ,                 
*72 ,                                                                                                                                                                                                                                                                                                                                                                                                                                                   --> 

(screen 72 )

( NEW DURATION TABLES )                 
HEX                                     
CREATE RBASS                            
12 C,                                   
1 C, 3 C, 1 C, 1 C, 1 C, 5 C,           
1 C, 5 C, 1 C, 5 C,                     
1 C, 5 C, 1 C, 5 C,                     
1 C, 5 C, 1 C, 5 C,                     
CREATE RSOPR                            
2 C,                                    
1 C, 1 C, ( 2ND 1 WAS 2 )                                                       
CREATE RALL                             
0C C,                                   
2 C, 1 C, 2 C, 1 C, 2 C, 1 C,           
3 C, 3 C,                               
3 C, 3 C,                               
2 C, 1 C,                                                                                                                                                                                               
--> 

(screen 73)

( VOICE OF SERIOUS)                     
HEX  ( DNA, ATP...)                     
CREATE VOC2                             
18 C,                                                                           
04 C, C C,                              
0D C, 3 C, 0C C, 2 C, 3F C, 1 C,        
21 C, 6 C,                                                                      
04 C, 3 C, 04 C, 3 C, 03 C, 3 C, 04 C,  3 C,                                    
00 C, 6 C,                              
21 C, 3 C, 23 C, 2 C, 21 C, 1 C,                                                
00 C, C C,                              
21 C, 3 C, 23 C, 2 C, 21 C, 1 C,        
04 C, 6 C,                                                                      
3F C, 6 C,                              
04 C, 3 C, 23 C, 2 C, 21 C, 1 C,        
21 C, 6 C,                              
3F C, 6 C,                              
-->  

(screen 74)

( MORE FUNNY VOICE )                           
HEX                              
CREATE VOC1 ( SILENT)                   
1 C,                                    
3F C, 10 C,                                                                     
CREATE VOC3 ( YELLOW YANKEE    )        
03 C,                                   
0D C, 3 C,                              
2C C, 3 C,                              
00 C, 3 C, 

(screen 75) 

( DRUM BOX TESTS )                      
HEX                                                                             
: BD 1 OR ;                             
: SN 2 OR ;                             
: OH 4 OR ;                             
: CH 8 OR ;                             
: CY 10 OR ;                            
: CL 20 OR ;                            
: AC 40 OR ;                                                                                                            
-->       

(screen 76)

( NEW RHYTHM 10/26/83)                  
HEX                                     
CREATE RCK1                             
3 C,                                    
0 BD C, C C,                            
0 CH C, 6 C,                            
0 CL C, 6 C,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            -->  

(screen 77)

( TIMER SETUP WORDS )                   
HEX                                     
C004 GSLOT + CONSTANT T1CL              
C005 GSLOT + CONSTANT T1CH              
C00B GSLOT + CONSTANT TACR              
C00D GSLOT + CONSTANT TIFR              
VARIABLE TLO                            
VARIABLE THI

: TIMINIT                                 
0 TACR C! ;                                                                   

: TIMERSET                                
TLO C@  T1CL C!                         
THI C@  T1CH C! ; 
                                                            
: TIMERCHK                                
BEGIN TIFR C@                           
40 AND                                  
0= NOT UNTIL ;                                                                
-->  

(screen 80)

( NEW GUITAR SCAN JUNE 1984 REVISION    
INSTALLED 11/28/84 IN RECONSTUCTION     
OF CHILLIE BEENIE                       
CHANGES ARE ON 123 AND 125 )                                                    
( NEW SLOT ASSIGNMENTS 12/1/85 :          
1 CASIO1                                
2 CASIO2                                
3 TITAN ACCELERATOR                     
4 GUITAR/RHYTHM/MIDI                    
5 SP1000                                
6 DISK                                  
7 VOTRAX SC01                                                                 
SEE SCREENS 77, 81, 101 FOR ADDR'S )                                                                                                                                                                                                                                                    --> 

(screen 81)

( NEW GUITAR SCANNING PROGRAM CONSTANTS)
( UPDATED TO 4 SERIAL GUIT'S 9/19/83   )
( MODERNIZED ON 11/28/84 )              
HEX                                     
400 CONSTANT GSLOT                                                                                                                                              
C080 GSLOT + CONSTANT GPORTB            
C081 GSLOT + CONSTANT GPORTA            
C082 GSLOT + CONSTANT GDDRB             
C083 GSLOT + CONSTANT GDDRA             
C000 GSLOT + CONSTANT GPORTD            
C001 GSLOT + CONSTANT GPORTC ( <-- )    
C002 GSLOT + CONSTANT GDDRD             
C003 GSLOT + CONSTANT GDDRC                                                     
C08D GSLOT + CONSTANT GIFR1             
C00D GSLOT + CONSTANT GIFR2                                                                                             
--> 

(screen 82)

( BIG SCAN ...)                         
HEX                                     
VARIABLE SCAN1 20 ALLOT                 
VARIABLE SCAN2 20 ALLOT                 
VARIABLE SCAN3 20 ALLOT                 
VARIABLE SCAN4 20 ALLOT                 
VARIABLE GUIT1 VARIABLE GUIT1A          
VARIABLE GUIT2 VARIABLE GUIT2A          
VARIABLE GUIT3 VARIABLE GUIT3A          
VARIABLE GUIT4 VARIABLE GUIT4A                                                  
C08C GSLOT + CONSTANT GPCR1             
C00C GSLOT + CONSTANT GPCR2                                                     
CODE KILLTIME                           
10 # LDY,                               
BEGIN, DEY, 0= UNTIL,                   
NEXT JMP, END-CODE                                                              

: RST FF GPORTC C! KILLTIME                   
00 GPORTC C! KILLTIME ;                
                                   -->   

(screen 83)

( AS NEW AS 9/17/83)                    
( NEWER EVEN 11/28/84 )                                                                                                                                         
CODE SCANALL 0 # LDY,                   
GPORTC INC, GPORTC INC, GPORTC INC,     
GPORTC INC, NOP, NOP, NOP, NOP,         
BEGIN,             
NOP, NOP, INY,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       -->  

(screen 84)

( EXPLANATION OF NEW GUITAR SCAN )                                              
( THIS ROUTINE SIMULTANEOUSLY SCANS     
ALL SIX GUITARS, CHECKS THE FLAGS       
AND FILLS SIX ARRAYS, SCAN1 THRU        
SCAN6 WITH CLOSURES RECORDED AS FF      
AND OPEN KEYS RECORDED AS 0.                                                      
IT THEN LOOKS AT EACH OF THESE        
ARRAYS TO DETERMINE THE HIGHEST         
PRIORITY CLOSURE IN EACH GROUP. 
LOWEST  NUMBER IN THE GROUP = HIGHEST PRIORITY.                                           
THE TWO GROUPS FOR EACH GUITAR RE-    
PRESENT THE NECK 9 --> 1F AND THE       
BODY 1 --> 8. A 0 IN EITHER INDICATES   
NO CLOSURE WITHIN THAT GROUP. THE       
RESULTS ARE STORED IN TWELVE VARIABLES. 
GUIT1 AND GUIT1A REPRESENT THE NECK AND BODY OF GUITAR1, 
RESPECTIVELY.                                                  
EXECUTION TIME < 10 MILLISECONDS   )    -->

(screen 85)

( NEW GUIT SCAN, ASSEMBLER VERSION )                                             
GIFR2 LDA, 2 # AND, 0= NOT IF,          
FF # LDA, ELSE, 0 # LDA, THEN,          
SCAN1 ,Y STA,                                                                   
GIFR2 LDA, 1 # AND, 0= NOT IF,          
FF # LDA, ELSE, 0 # LDA, THEN,          
SCAN2 ,Y STA,                                                                   
GIFR2 LDA, 10 # AND, 0= NOT IF,         
FF # LDA, ELSE, 0 # LDA, THEN,          
SCAN3 ,Y STA,                                                                   
GIFR2 LDA, 8 # AND, 0= NOT IF,          
FF # LDA, ELSE, 0 # LDA, THEN,          
SCAN4 ,Y STA,                          
GPORTC INC, GPORTC INC,                 
GPORTD LDA, NOP, NOP, NOP,              
NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP, 21 # CPY, 0= UNTIL,                     

-->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
(screen 86)

 (really, that's ll that is on screen 86! 12-1-19)
                                                                                                                                                                                                                                               
-->                                               

(screen 87)

( NEW GUITAR SCAN CONTINUED )                                                   
0 # LDA, GUIT1A STA,                    
8 # LDY,                                
BEGIN,                                  
SCAN1 ,Y LDA,                           
0= NOT IF,                              
GUIT1A STY,                             
THEN,                                   
DEY, 0= UNTIL,                                                                  
0 # LDA, GUIT1  STA,                    
20 # LDY,                               
BEGIN,                                  
SCAN1 ,Y LDA,                           
0= NOT IF,                              
GUIT1  STY,                             
THEN,                                   
DEY, 8 # CPY,                           
0= UNTIL,                                                                                                               
-->  

(screen 88)

( NEW GUITAR SCAN CONTINUED )                                                   
0 # LDA, GUIT2A STA,                    
8 # LDY,                                
BEGIN,                                  
SCAN2 ,Y LDA,                           
0= NOT IF,                              
GUIT2A STY,                             
THEN,                                   
DEY, 0= UNTIL,                                                                  
0 # LDA, GUIT2  STA,                    
20 # LDY,                               
BEGIN,                                  
SCAN2 ,Y LDA,                           
0= NOT IF,                              
GUIT2  STY,                             
THEN,                                   
DEY, 8 # CPY,                           
0= UNTIL,                                                                       
-->   

(screen 89)

( NEW GUITAR SCAN CONTINUED )                                                   
0 # LDA, GUIT3A STA,                    
8 # LDY,                                
BEGIN,                                  
SCAN3 ,Y LDA,                           
0= NOT IF,                              
GUIT3A STY,                             
THEN,                                   
DEY, 0= UNTIL,                                                                  
0 # LDA, GUIT3  STA,                    
20 # LDY,                               
BEGIN,                                  
SCAN3 ,Y LDA,                           
0= NOT IF,                              
GUIT3  STY,                             
THEN,                                   
DEY, 8 # CPY,                           
0= UNTIL,                                                                       
-->

(screen 90)

( NEW GUITAR SCAN CONTINUED )                                                   
0 # LDA, GUIT4A STA,                    
8 # LDY,                                
BEGIN,                                  
SCAN4 ,Y LDA,                           
0= NOT IF,                              
GUIT4A STY,                             
THEN,                                   
DEY, 0= UNTIL,                                                                  
0 # LDA, GUIT4  STA,                    
20 # LDY,                               
BEGIN,                                  
SCAN4 ,Y LDA,                           
0= NOT IF,                              
GUIT4  STY,                             
THEN,                                   
DEY, 8 # CPY,                           
0= UNTIL,                               
NEXT JMP, END-CODE                      
-->

(screen 91)

( NEW GUITAR SCAN PROG )                
HEX                                                                             
: GUITINIT                               
FF GDDRA C! FF GDDRB C! FF GDDRC C!     
FF GDDRD C!                             
55 GPCR1 C!                             
55 GPCR2 C! ;                                                                  
: GUITTEST                                
GUITINIT                                
BEGIN                                   
SCANALL                                 
GUIT1 @ . GUIT1A @ .  SPACE             
GUIT2 @ . GUIT2A @ .  SPACE             
GUIT3 @ . GUIT3A @ .  SPACE             
GUIT4 @ . GUIT4A @ .  SPACE             
CR RST                                 
?TERMINAL UNTIL ;                                                                                                   

(screen 99)

 ( NEW RCK2 11/29/84 )                   
HEX                                     
CREATE RCK2                             
2 C,                                    
01 C, C C,                              
02 C, C C,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             -->     

(screen 100)

( UH-OH...MORE LAST MINUTE VARIABLES)   
HEX                                     
: TASK ;                                
VARIABLE C2HERE                         
VARIABLE M2HERE                         
VARIABLE C2COUNT                        
VARIABLE M2COUNT                        
VARIABLE C2TIMER                        
VARIABLE C2TEMP                                                                  
( NEW RHYTHM 11/30/84 )                
CREATE RCK2                             
4 C,                                    
1 C, 3 C,                               
8 C, 3 C,                               
2 C, 3 C,                               
8 C, 3 C,                                                                                                                                                                                                                                       
-->  

(screen 101)

( PLAY WORD )                           
HEX                                     
C400 CONSTANT RPORT ( RHYTHM )          
C700 CONSTANT VPORT ( VOTRAX)                                                   
VARIABLE RHERE  ( START OF RHYTHM )     
VARIABLE CHERE  (   "   "  CASIO  )     
VARIABLE MHERE  (   "   "  METER  )     
VARIABLE VHERE  (   "   "  VOICE  )     
VARIABLE RCOUNT ( CURRENT  EVENT R)     
VARIABLE CCOUNT (    "       "   C)     
VARIABLE MCOUNT (    "       "   M)     
VARIABLE VCOUNT (    "       "   V)     
VARIABLE RTIMER ( TIMER FOR R     )     
VARIABLE CTIMER (   "    "  C   * )     
VARIABLE VTIMER (   "    "  V     )     
VARIABLE RHOLD  ( HOLDER FOR RHYTHM)    
VARIABLE VHOLD  ( HOLDER FOR VOICE )    
VARIABLE CTEMP  ( HOLDS DOLOOP POINTER) 
VARIABLE TEMPO                          
VARIABLE ROK    ( O.K. TO OUTPUT RHY ) 

(screen 102 )

( PLAYWORD SHELL EENIE MEENIE  )        
HEX                                                                             
: R4T   *B1   C2HERE ! ' RSOPR M2HERE !   
' *S1     CHERE !  ' RCK2 RHERE !       
' VOC1 VHERE !    ' RBASS MHERE !       
0 RCOUNT ! 0 CCOUNT ! 0 C2COUNT !       
0 MCOUNT ! 0 M2COUNT ! 0 VCOUNT !       
RHERE @ 2 + C@ RTIMER !                 
VHERE @ 2 + C@ VTIMER !                 
MHERE @ 1+ C@ CTIMER !                  
M2HERE @ 1+ C@ C2TIMER !                
RHERE @ 1+ C@ RHOLD ! 0 ROK !           
VHERE @ 1+ C@ VHOLD !                 
CHERE @ 1+ CTEMP ! C2HERE @ 1+ C2TEMP ! 
8 0 DO CTEMP @ I + C@ COM1 I + C! LOOP  
8 0 DO C2TEMP @ I + C@ COM2 I + C! LOOP   
OUTCASIO1 OUTCASIO2                     
01 TEMPO ! CLEARVOICE1 CLEARVOICE2      
GUITINIT TIMINIT OCT2                   
BEGIN                                                                         
-->  

(screen 103)

( PLAYWORD RHYTHM    )                                                                                                  
TIMERSET                                                                        
RTIMER @ 1- DUP RTIMER ! FF ROK !       
0= IF RCOUNT @ 1+ DUP RCOUNT !             
RHERE @ C@ = IF 0 RCOUNT !              
GUIT1A C@ CASE                          
1 OF ' VOC2 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ 1+ VTIMER ! ENDOF        
3 OF ' VOC1 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ VTIMER ! ENDOF           
2 OF ' VOC3 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ VTIMER ! ENDOF           
ENDCASE                                 
THEN                                    
RHERE @ 1+ RCOUNT @ 2* + DUP            
C@ RHOLD C!                             
1+ C@ RTIMER !                          
0 ROK !        
THEN                                                          
--> 

(screen 104)

( PLAYWORD VOICE     )                                                          
VTIMER @ 1- DUP VTIMER !                
0= IF VCOUNT @ 1+ DUP VCOUNT !             
VHERE @ C@ = IF 0 VCOUNT ! THEN         
VHERE @ 1+ VCOUNT @ 2* + DUP            
C@ VHOLD C!                             
1+ C@ VTIMER ! THEN                                                          
GUIT1A C@ CASE                          
( 2 OF ' VOC2 VHERE ! 0 VCOUNT ! ENDOF  
4 OF ' VOC1 VHERE ! 0 VCOUNT ! ENDOF    
6 OF ' VOC3 VHERE ! 0 VCOUNT ! ENDOF )  
5 OF ATONE1 ATONE2 ENDOF                
6 OF BTONE1 BTONE2 ENDOF                
7 OF CTONE1 CTONE2 ENDOF                
4 OF SUST1 ENDOF                        
8 OF CLRSUST1 ENDOF                                                               
ENDCASE                                                                       
--> 

(screen 105)

( PLAYWORD CASIO     )                  
CTIMER @ 1- DUP CTIMER !                                                        
0= IF CCOUNT @ 1+ DUP CCOUNT !             
CHERE @ C@ = IF 0 CCOUNT ! THEN         
CHERE @ 1+ CCOUNT @ A * + CTEMP !       
8 0 DO CTEMP @ I + C@ VOICE1 I + C@     
OR  COM1 I + C! LOOP                    
MCOUNT @ 1+ DUP MCOUNT !                
MHERE @ C@ = IF 0 MCOUNT ! THEN         
MHERE @ 1+ MCOUNT @ + C@ CTIMER !       
THEN                                   
GUIT1 C@ DUP                            
0= NOT IF                               
9 - 2* DUP  CTAB + @ CHERE !            
CCOUNT @ 3 AND CCOUNT !                 
C2TAB + @ C2HERE !                      
C2COUNT @ 3 AND C2COUNT !               
ELSE DROP THEN                                                                                                                                                
--> 

(screen 106)

( PLAYWORD CASIO2    )                                                          
C2TIMER @ 1- DUP C2TIMER !                                                      
0= IF C2COUNT @ 1+ DUP C2COUNT !           
C2HERE @ C@ = IF 0 C2COUNT ! THEN       
C2HERE @ 1+ C2COUNT @ A * + C2TEMP !    
8 0 DO C2TEMP @ I + C@ VOICE2 I + C@    
OR  COM2 I + C! LOOP                    
M2COUNT @ 1+ DUP M2COUNT !              
M2HERE @ C@ = IF 0 M2COUNT ! THEN       
M2HERE @ 1+ M2COUNT @ + C@ C2TIMER !    
THEN                                                                                                                                                                                                                                                                                                                                                                 --> 

(screen 107)

( PLAYWORD CLEANUP )                                                                                                    
VHOLD C@  ROK @ 0= IF 80 ELSE 00 THEN   
OR VPORT !                              
TIMERCHK                                
OUTCASIO1  OUTCASIO2                    
ROK @ 0= IF                               
RHOLD C@ RPORT C!                       
A MS 0 RPORT C!  ELSE A MS THEN       
TEMPO  @ MS                             
SCANALL RST                             
( GUIT1 C@ . GUIT1A C@ . CR  )          
?TERMINAL UNTIL                         
0 RPORT C!                              
3F VPORT C!                             
CLEARCASIO1 CLEARCASIO2 ;                            

(screen 110)

( VOICESET )                            
( 11/4/83)                                                                      
DECIMAL                                 
1 0 1  VOICESET                         
1 1 6  VOICESET                         
1 2 16 VOICESET                         
2 0 12 VOICESET                         
2 1 3 VOICESET                          
2 2 10 VOICESET                                                                                                

(screen 111)

 ( TOPWORD )                             
( 11/29/84 )                           
HEX                                     
: STARTUP                                 
1 0 0D VOICESET                         
2 0  0 VOICESET                         
1 1  1 VOICESET                         
2 1  3 VOICESET                         
1 2 12 VOICESET                         
2 2 15 VOICESET                         
80 THI C!                               
1 TEMPO !  ;                                                                  

: EENIE-MEENIE                            
01 C086 C! ( SLOW DOWN TITAN ACC .)     
STARTUP                                 
R4T ;                                             

(screen 112)

( PLAYWORD SHELL    )                   
HEX                                                                             
: R4T   *60   C2HERE ! ' RSOPR M2HERE !   
' *60 CHERE !  
' RCK1 RHERE !       
' VOC1 VHERE !    ' RBASS MHERE !       
0 RCOUNT ! 0 CCOUNT ! 0 C2COUNT !       
0 MCOUNT ! 0 M2COUNT ! 0 VCOUNT !       
RHERE @ 2 + C@ RTIMER !                 
VHERE @ 2 + C@ VTIMER !                 
MHERE @ 1+ C@ CTIMER !                  
M2HERE @ 1+ C@ C2TIMER !                
RHERE @ 1+ C@ RHOLD ! 0 ROK !           
VHERE @ 1+ C@ VHOLD !                 
CHERE @ 1+ CTEMP ! C2HERE @ 1+ C2TEMP ! 
8 0 DO CTEMP @ I + C@ COM1 I + C! LOOP  
8 0 DO C2TEMP @ I + C@ COM2 I + C! LOOP   
OUTCASIO1 OUTCASIO2                     
01 TEMPO ! CLEARVOICE1 CLEARVOICE2      
GUITINIT TIMINIT OCT2                   
BEGIN                                                                         
--> 

(screen 113)

( PLAYWORD RHYTHM    )                                                                                                  
TIMERSET                                                                        
RTIMER @ 1- DUP RTIMER ! FF ROK !       
0= IF RCOUNT @ 1+ DUP RCOUNT !             
RHERE @ C@ = IF 0 RCOUNT !              
GUIT1A C@ CASE                          
1 OF ' VOC2 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ 1+ VTIMER ! ENDOF        
3 OF ' VOC1 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ VTIMER ! ENDOF           
2 OF ' VOC3 VHERE ! 00 VCOUNT !         
VHERE @ 2 + C@ VTIMER ! ENDOF           
ENDCASE                                 
THEN                                    
RHERE @ 1+ RCOUNT @ 2* + DUP            
C@ RHOLD C!                             
1+ C@ RTIMER !                          
0 ROK !        
THEN                                                          
--> 

(screen 114)

( PLAYWORD VOICE     )                                                          
VTIMER @ 1- DUP VTIMER !                
0= IF VCOUNT @ 1+ DUP VCOUNT !             
VHERE @ C@ = IF 0 VCOUNT ! THEN         
VHERE @ 1+ VCOUNT @ 2* + DUP            
C@ VHOLD C!                             
1+ C@ VTIMER ! THEN                                                          
GUIT1A C@ CASE                          
5 OF ATONE1 ATONE2 ENDOF                
6 OF BTONE1 BTONE2 ENDOF                
7 OF CTONE1 CTONE2 ENDOF                  
ENDCASE                               
GUIT1A C@ 4 = IF SUST1 ELSE CLRSUST1      
THEN                                  
GUIT1A C@ 8 = IF 1 ELSE                                                           
2 THEN                                  
RSOPR 2+ C!                                                                   
--> 

(screen 115)

( PLAYWORD CASIO     )                  
CTIMER @ 1- DUP CTIMER !                                                        
0= IF CCOUNT @ 1+ DUP CCOUNT !             
CHERE @ C@ = IF 0 CCOUNT ! THEN         
CHERE @ 1+ CCOUNT @ A * + CTEMP !       
8 0 DO CTEMP @ I + C@ VOICE1 I + C@     
OR  COM1 I + C! LOOP                    
MCOUNT @ 1+ DUP MCOUNT !                
MHERE @ C@ = IF 0 MCOUNT ! THEN         
MHERE @ 1+ MCOUNT @ + C@ CTIMER !       
THEN                                   
GUIT1 C@ DUP                            
0= NOT IF                               
9 - 2* DUP  CTAB + @ CHERE !            
CCOUNT @ 3 AND CCOUNT !                 
C2TAB + @ C2HERE !                      
C2COUNT @ 3 AND C2COUNT !               
ELSE DROP THEN                                                                                                                                                
-->

(screen 116)

( PLAYWORD CASIO2    )                                                          
C2TIMER @ 1- DUP C2TIMER !                                                      
0= IF C2COUNT @ 1+ DUP C2COUNT !           
C2HERE @ C@ = IF 0 C2COUNT ! THEN       
C2HERE @ 1+ C2COUNT @ A * + C2TEMP !    
8 0 DO C2TEMP @ I + C@ VOICE2 I + C@    
OR  COM2 I + C! LOOP                    
M2COUNT @ 1+ DUP M2COUNT !              
M2HERE @ C@ = IF 0 M2COUNT ! THEN       
M2HERE @ 1+ M2COUNT @ + C@ C2TIMER !    
THEN                                                                                                                                                                                                                                                                                                                                                                 -->  

(screen 117)

( PLAYWORD CLEANUP )                                                                                                    
VHOLD C@  ROK @ 0= IF 80 ELSE 00 THEN   
OR VPORT !                              
TIMERCHK                                
OUTCASIO1  OUTCASIO2                    
ROK @ 0= IF                               
RHOLD C@ RPORT C!                       
A MS 0 RPORT C!  ELSE A MS THEN       
TEMPO  @ MS                             
SCANALL RST                             
( GUIT1 C@ . GUIT1A C@ . CR  )          
?TERMINAL UNTIL                         
0 RPORT C!                              
3F VPORT C!                             
CLEARCASIO1 CLEARCASIO2 ;                                                       
--> 

(screen 118)

( YELLOW YANKEE )                       
HEX                                                                             
: STARTUP                                 
1 0 0D VOICESET                         
2 0 00 VOICESET                         
1 1 0D VOICESET                         
2 1 13 VOICESET                         
1 2 00 VOICESET                         
2 2 12 VOICESET                         
80 THI C!                               
1 TEMPO ! ;             
                                                                                                                                                                                                                      
: YELLOW-YANKEE                           
01 C086 C! ( SLOW DOWN TITAN ACC. )     
STARTUP                                 
R4T ; 

**** casio MT30 data ****

(*B1)

0C

00 01 00 00 00 00 00 00 62 00

00 00 00 00 00 00 00 00 5A 02

00 00 00 01 00 00 00 00 63 00

00 00 00 00 00 00 00 00 E6 01

00 00 00 01 00 00 00 00 74 00

00 00 00 00 00 00 00 00 2D 01

00 00 04 00 00 00 00 00 8F 00

00 00 00 00 00 00 00 00 0F 02 

00 00 00 01 00 00 00 00 A2 00

00 00 00 00 00 00 00 00 AC 01

00 00 00 01 00 00 00 00 6E 00

00 00 00 00 00 00 00 00 00 00

FF

(*B2)
0C
00 04 00 00 00 00 00 00 84 00
00 00 00 00 00 00 00 00 E8 01
00 00 00 04 00 00 00 00 C6 00
00 00 00 00 00 00 00 00 82 01
00 00 20 00 00 00 00 00 76 00
00 00 00 00 00 00 00 00 1D 01
00 00 02 00 00 00 00 00 C0 00
00 00 00 00 00 00 00 00 80 01
00 00 00 20 00 00 00 00 CD 00
00 00 00 00 00 00 00 00 51 01
00 00 00 10 00 00 00 00 80 00 
00 00 00 00 00 00 00 00 00 00
FF

(*S1)
20
00 00 00 00 00 11 00 00 2A 00
00 00 00 00 00 00 00 00 AF 00
00 00 00 00 00 11 00 00 22 00
00 00 00 00 00 00 00 00 AD 00
00 00 00 00 00 11 00 00 2E 00
00 00 00 00 00 00 00 00 B3 00
00 00 00 00 00 11 00 00 27 00
00 00 00 00 00 00 00 00 B9 00
00 00 00 00 00 11 00 00 2A 00
00 00 00 00 00 00 00 00 BE 00
00 00 00 00 00 11 00 00 2D 00
00 00 00 00 00 00 00 00 BF 00
00 00 00 00 00 11 00 00 29 00
00 00 00 00 00 00 00 00 C2 00
00 00 00 00 00 11 00 00 2A 00
00 00 00 00 00 00 00 00 BD 00
00 00 00 00 00 09 00 00 32 00
00 00 00 00 00 00 00 00 B9 00
00 00 00 00 00 09 00 00 26 00
00 00 00 00 00 00 00 00 C6 00
00 00 00 00 00 09 00 00 2A 00
00 00 00 00 00 00 00 00 B4 00
00 00 00 00 00 11 00 00 31 00
00 00 00 00 00 00 00 00 BB 00
00 00 00 00 00 11 00 00 2A 00
00 00 00 00 00 00 00 00 BF 00
00 00 00 00 00 11 00 00 2E 00
00 00 00 00 00 00 00 00 BF 00
00 00 00 00 00 11 00 00 2C 00
00 00 00 00 00 00 00 00 BD 00
00 00 00 00 00 11 00 00 33 00
00 00 00 00 00 00 00 00 00 00
FF

(*S2)
20
000000 00000500 003000
00 00000000 000000A3 00
000000 00000500 003F00
00 00000000 000000B9 00
000000 00000500 003800
00 00000000 000000C5 00
000000 00000500 003900
00 00000000 000000CD 00
000000 00000500 002E00
00 00000000 000000D6 00
000000 00000500 003200
00 00000000 000000CD 00
000000 00000500 003200
00 00000000 000000CC 00
000000 00000500 003800
00 00000000 000000F6 00
000000 00000508 002400
00 00000000 000000DC 00
000000 00000508 002A00
00 00000000 000000CF 00
000000 00000508 003600
00 00000000 000000C3 00
000000 00000504 002500
00 00000000 000000BF 00
000000 00000504 003700
00 00000000 000000CA 00
000000 00000504 003600
00 00000000 000000D0 00
000000 00000502 003D00
00 00000000 000000CB 00
000000 00000502 00500
000 00000000 00000000 00
FF

(*B3)
0C
000100 00000000 004900
00 00000000 000000C3 00
001000 00000000 004000
00 00000000 000000F2 00
000002 00000000 004600
00 00000000 000000EF 00
000000 01000000 005100
00 00000000 000000DC 01
000000 01000000 005300
00 00000000 000000EA 01
000000 01000000 004100
00 00000000 00000000 00

FF

(*B4)
0C
000400 00000000 004A00
00 00000000 000000AF 00
002000 00000000 004300
00 00000000 000000CA 00
000008 00000000 005100
00 00000000 000000D7 00
000000 04000000 005200
00 00000000 000000B6 01
000000 04000000 005E00
00 00000000 000000A8 01
000000 04000000 004E00
00 00000000 00000000 00
FF

(*B5)
0C
000100 00000000 005200
00 00000000 000000A0 00
000800 00000000 003D00
00 00000000 000000B0 00
000002 00000000 003D00
00 00000000 000000C0 00
000000 01000000 004000
00 00000000 000000B2 01
000000 01000000 004700
00 00000000 0000007C 01
000000 01000000 003C00
00 00000000 00000000 00
FF

(*B6)
0C
000400 00000000 005B00
00 00000000 000000A3 00
002000 00000000 006400
00 00000000 00000099 00
000004 00000000 006400
00 00000000 000000B2 00
000000 04000000 005F00
00 00000000 000000A2 01
000000 04000000 006200
00 00000000 0000008C 01
000000 04000000 005D00
00 00000000 00000000 00
FF

(*B7)
0C
000100 00000000 004500
00 00000000 00000094 00
000800 00000000 003300
00 00000000 000000A4 00
000004 00000000 004100
00 00000000 000000A6 00
000000 01000000 004900
00 00000000 00000094 01
000000 01000000 004900
00 00000000 00000086 01
000000 01000000 003300
00 00000000 00000000 00
FF

(*B8)
0C
000100 00000000 004500
00 00000000 00000094 00
000800 00000000 003300
00 00000000 000000A4 00
000004 00000000 004100
00 00000000 000000A6 00
000000 01000000 004900
00 00000000 00000094 01
000000 01000000 004900
00 00000000 00000086 01
000000 01000000 003300
00 00000000 00000000 00
FF

******************************************************************NOTES********************************************************

******************************Unpacking the data for Casio MT-30***********************************

(*B8_example)

0A				(0A = number of frames in this data structure)

00 11 02 01 00 11 02 01 1C 04	(last 2 bytes are Duration, LowByte, HighByte)
				(Duration is not used in "..ChillieBeenie")

0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1

00 00 00 00 00 00 00 00 C0 03

0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0

00 09 04 01 00 09 04 01 57 04

0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 1
0 0 0 0 0 1 0 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 1
0 0 0 0 0 1 0 0 
0 0 0 0 0 0 0 1

00 00 00 00 00 00 00 00 D2 02

0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0

00 11 02 01 00 11 02 01 D3 03

0 0 0 0 0 0 0 0 
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0 
0 0 0 0 0 0 0 1

00 00 00 00 00 00 00 00 89 02

0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0

00 24 08 01 00 24 08 01 17 05

0 0 0 0 0 0 0 0
0 0 1 0 0 1 0 0
0 0 0 0 1 0 0 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 1 0 0 1 0 0
0 0 0 0 1 0 0 0 
0 0 0 0 0 0 0 1

00 00 00 00 00 00 00 00 DA 01

0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0

00 11 02 01 00 11 02 01 55 05

0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1

00 00 00 00 00 00 00 00 00 00

0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0

FF						(FF = end of this data )

************** How to expand data to notes ***********************

First shot at decoding the binary data to Casio MT30
first line:
00 11 02 01 00 11 02 01 1C 04

byte	binary

00	0 0 0 0 0 0 0 0
11	0 0 0 1 0 0 0 1
02	0 0 0 0 0 0 1 0
01	0 0 0 0 0 0 0 1
00	0 0 0 0 0 0 0 0
11	0 0 0 1 0 0 0 1
02	0 0 0 0 0 0 1 0
01	0 0 0 0 0 0 0 1

following from the table listed in Music Room source code SCRN #56

T7	T6	T5	T4	T3	T2	T1	T0	SENSE

H0	X	X	B	Bb	A	Ab	G	F#			high notes

H1	X	X	F	E	Eb	D	Db	C

H2	X	X	B	Bb	A	Ab	G	F#

H3	X	X	F	E	Eb	D	Db	C

H4	X	X	B	Bb	A	Ab	G	F#

H5	X	X	F	E	Eb	D	Db	C

H6	X	X	B	Bb	A	Ab	G	F#			low notes

H7	X	X	F	E	Eb	D	Db(low) 	C(high)
DRIVE

so spells chord from bottom: G-C-E-C-G-C-E

00 09 04 01 00 09 04 01 57 04

0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 1
0 0 0 0 0 1 0 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 1
0 0 0 0 0 1 0 0 
0 0 0 0 0 0 0 1

T7	T6	T5	T4	T3	T2	T1	T0	SENSE

H0	X	X	B	Bb	A	Ab	G	F#			high notes

H1	X	X	F	E	Eb	D	Db	C

H2	X	X	B	Bb	A	Ab	G	F#

H3	X	X	F	E	Eb	D	Db	C

H4	X	X	B	Bb	A	Ab	G	F#

H5	X	X	F	E	Eb	D	Db	C

H6	X	X	B	Bb	A	Ab	G	F#			low notes

H7	X	X	F	E	Eb	D	Db(low) 	C(high)
DRIVE

from bottom C-Eb-C-Ab-C-Eb-C

00 11 02 01 00 11 02 01 D3 03

0 0 0 0 0 0 0 0 
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 1
0 0 0 0 0 0 1 0 
0 0 0 0 0 0 0 1

T7	T6	T5	T4	T3	T2	T1	T0	SENSE

H0	X	X	B	Bb	A	Ab	G	F#			high notes

H1	X	X	F	E	Eb	D	Db	C

H2	X	X	B	Bb	A	Ab	G	F#

H3	X	X	F	E	Eb	D	Db	C

H4	X	X	B	Bb	A	Ab	G	F#

H5	X	X	F	E	Eb	D	Db	C

H6	X	X	B	Bb	A	Ab	G	F#			low notes

H7	X	X	F	E	Eb	D	Db(low) 	C(high)

00 24 08 01 00 24 08 01 17 05

0 0 0 0 0 0 0 0
0 0 1 0 0 1 0 0
0 0 0 0 1 0 0 0
0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0
0 0 1 0 0 1 0 0
0 0 0 0 1 0 0 0 
0 0 0 0 0 0 0 1

T7	T6	T5	T4	T3	T2	T1	T0	SENSE

H0	X	X	B	Bb	A	Ab	G	F#			high notes

H1	X	X	F	E	Eb	D	Db	C

H2	X	X	B	Bb	A	Ab	G	F#

H3	X	X	F	E	Eb	D	Db	C

H4	X	X	B	Bb	A	Ab	G	F#

H5	X	X	F	E	Eb	D	Db	C

H6	X	X	B	Bb	A	Ab	G	F#			low notes

H7	X	X	F	E	Eb	D	Db(low) 	C(high)

A-D-F-C-A-D-F-C Dm-sus7?

(c) 1983 Paul DeMarinis