BLOCK NUMBER 11

( CF83-11: Sound, etc. - Load Block )                           
decimal                                                         
cr cr .( Loading 'Sound, etc.' blocks )                         
cr cr .(     Block 1 of 4 ) 12 load                             
   cr .(     Block 2 of 4 ) 13 load                             
   cr .(     Block 3 of 4 ) 14 load                             
   cr .(     Block 4 of 4 ) 15 load                             
cr cr .( 'Sound, etc.' package LOADED. )                        
cr cr                                                           
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                

BLOCK NUMBER 12

( CF83-11: Sound, etc. - 1/4 )                                  
decimal 16 base !                                               
create sound ( 8b u -- ) here dup 2- ! 3436 , 3706 , 8604 ,     
     3DDD , 8D37 , 06D7 , 8CB6 , FF03 , 8A01 , B7FF , 038D ,    
     328D , 168D , 2386 , FE8D , 218D , 1D86 , 028D , 1B9E ,    
     8D26 , F035 , 36AE , A16E , 9186 , 08A7 , E2B6 , FF23 ,    
     84F7 , AAE0 , B7FF , 2339 , 867E , B7FF , 2096 , 8C4C ,    
     26FD , 3910 , BEFF , 018D , 00A6 , A484 , F757 , 2402 ,    
     8A08 , A7A4 , 3912 ,                                       
decimal                                                         
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                

BLOCK NUMBER 13

( CF83-11: Sound, etc. - 2/4 )                                  
decimal 16 base !                                               
B7FF 011D ! DEAD 011F ! 9FA0 0121 ! 0AB7 0123 ! FFDF 0125 ! 39  
0127 c!                                                         
create joyrh ( -- 6b ) here dup 2- ! 3406 , 3450 , BD01 , 1D35 ,
     504F , F601 , 5A36 , 0635 , 06AE , A16E , 9112 ,           
create joyrv ( -- 6b ) here dup 2- ! 3406 , 3450 , BD01 , 1D35 ,
     504F , F601 , 5B36 , 0635 , 06AE , A16E , 9112 ,           
create joylh ( -- 6b ) here dup 2- ! 3406 , 3450 , BD01 , 1D35 ,
     504F , F601 , 5C36 , 0635 , 06AE , A16E , 9112 ,           
create joylv ( -- 6b ) here dup 2- ! 3406 , 3450 , BD01 , 1D35 ,
     504F , F601 , 5D36 , 0635 , 06AE , A16E , 9112 ,           
: firer1 ( -- flag ) FF00 c@ 1 and if 0 else -1 then ;          
: firel1 ( -- flag ) FF00 c@ 2 and if 0 else -1 then ;          
: firer2 ( -- flag ) FF00 c@ 4 and if 0 else -1 then ;          
: firel2 ( -- flag ) FF00 c@ 8 and if 0 else -1 then ; decimal  

BLOCK NUMBER 14

( CF83-11: Sound, etc. - 3/4 )                                  
decimal 16 base !                                               
: gtimer ( -- u ) 0112 @ ;                                      
: stimer ( u -- ) 0112 ! ;                                      
decimal                                                         
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                

BLOCK NUMBER 15

( CF83-11: Sound, etc. - 4/4 )                                  
decimal                                                         
16 base !                                                       
variable seed                                                   
: randomize ( -- ) 112 @ negate seed ! ;                        
  randomize                                                     
decimal                                                         
: rnd ( -- +n ) seed @ 259 * 3 + 32767 and dup seed ! ;         
: random ( n1 -- n2 ) rnd 32767 */ ;