'
' This procedure shuts down various things that cause
' your program to waste valuable raster time and cause your programs 
' to flicker.
'
' To use, Simply call the procedure 'smooth' from you program like this:-
'  
' SWITCH$="bsafp" : SMOOTH[SWITCH$]
'
' The flags in the SWITCH$ variable correspond to the following:-
'
' b - Disable Bob Updates
' s - Disable Sprite Updates 
' a - Disable AUTOBACK ( Autoback 0 )
' f - Disable Multitasking (Remember to turn it back on before you   
'                          exit your program etc, otherwise your keyboard will lock.)
' p - Permit Multitasking. 
'
' eg:   SWITCH$="bf" : SMOOTH[SWITCH$] - will disable bobs & multitasking
'
'       SWITCH$="p" : SMOOTH[SWITCH$] - will re-enable multitasking.   
'
'
' The flags can be in any order i.e.  SWITCH$="bf" ( To turn off bob updates 
'                        
' and forbid multitasking) will do exactly the same as SWITCH$="fb". 
'
'  Hope This is of use to you. 
'
'                                Gaz.
'
'
'
Procedure SMOOTH[SWITCH$]
   For A=1 To 5
      If Upper$(Mid$(SWITCH$,A,1))="B"
         Bob Update Off 
      End If 
   Next 
   For A=1 To 5
      If Upper$(Mid$(SWITCH$,A,1))="S"
         Sprite Update Off 
      End If 
   Next 
   For A=1 To 5
      If Upper$(Mid$(SWITCH$,A,1))="A"
         Autoback 0
      End If 
   Next 
   For A=1 To 5
      If Upper$(Mid$(SWITCH$,A,1))="F"
         F0RBID=Execall(-132)
      End If 
   Next 
   For A=1 To 5
      If Upper$(Mid$(SWITCH$,A,1))="P"
         PERMIT=Execall(-138)
      End If 
   Next 
End Proc