$D #HELP
;*************************** AMUS Program Label ******************************
; Filename: ACACHE.DO                                       Date: 02/07/89
; Category: UTIL         Hash Code: 523-721-775-505      Version: 1.0
; Initials: GR/AM        Name: James A. Jarboe IV
; Company: Educational Filmstrips & Video          Telephone #:(409) 295-5767
; Related Files: DCACHE.SYS, CACHE.LIT, XY.LIT, LOAD.LIT (All AMOS programs)
; Min. Op. Sys.: AMOSL 1.3                     Expertise Level: BEG
; Special: First line of this file must be $D #HELP or it will not work
; Description: Turns AMOS Disk CACHE ON or OFF from DO file by arguments.
; Type ACACHE (cr) for help.  HASH is without AMUS PROGRAM LABEL
;
;*****************************************************************************
;
; %%%%% ATTENTION %%%%% ATTENTION %%%%% ATTENTION %%%%%
;
; First line of this DO file must be: $D #HELP  
; or this DO file Won't DO right!
;
; Place ACACHE.DO on DSK0:[2,2] 
; Taking out all the Comment lines will speed this DO file up.
; DO NOT TAKE OUT THE COMMENTED LABEL lines {I.E. ;#ON ;#OFF ;#$0 etc.}
; Just the Comment lines that explain whats happening.
; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:S
; Default is #HELP to display help if no arguments are given
; GOTO will goto ON or OFF or Bad argument if one is not given
; 
LOAD DSK0:GOTO.LIT[1,4]
GOTO #$0
;
; This displays the help if no argument is given
;
;##HELP
XY=0
LOAD SYS:XY.LIT                ; Cursor display speed
LOAD SYS:LOOKUP.LIT            ; Lookup faster
XY 1 80
XY=33
XY 1 1
XY=32
xy 1 31
:<A DCACHE Utility
                                     by
                             James A. Jarboe IV

>
:<     ACACHE.DO>
xy=11
:< is a >
xy=12
:<DO>
xy=11
:< file that turns >
xy=12
:<AMOS>
xy=11
:< Disk Cache >
xy=12
:<ON>
xy=11
:< or >
xy=12
:<OFF.
>
xy=11
:<     The user will be returned to the original Disk and PPN.

>
:<     Usage :
>
xy=12
:<             ACACHE ON  >
xy=11
:< - Turns Disk Cache ON.
>
xy=12
:<             ACACHE OFF >
xy=11
:< - Turns Disk Cache OFF.


>
xy=12
:<     ACACHE.DO>
xy=11
:< will accept only >
xy=12
:<ON>
xy=11
:< or >
xy=12
:<OFF>
XY=11
:< as valid arguments.
>
XY=12
; 
; Branch to the exit 
; Do we have DCACHE?
lookup RES:DCACHE.SYS/
GOTO #NOCACH
GOTO #EXIT
;
; This turns DCACHE ON
;#ON
LOG DSK0:[1,4]
; Comment out :R if you don't want to see CACHE.LIT work
:R   
CACHE
ON
EXIT
; Comment out :S if you commented out :R above
:S
; Finished, let's exit
GOTO #EXIT
;
; This turns DCACHE OFF
;#OFF
LOG DSK0:[1,4]
; Comment out :R if you don't want to see CACHE.LIT work
:R
CACHE
OFF
EXIT
; Comment out :S if you commented out :R above
:S
; Finished, let's exit
GOTO #EXIT
;
; Tells us we don't even have DCACHE envoked on this system
;#NOCACH
:<
               DCACHE>
XY=11
:< is >
xy=12
:<NOT>
xy=11
:< in use on this >
XY=12
:<SYSTEM.
>
GOTO #EXIT
;
; Using the dollar sign 0 as a label is just in case of a bad argument.
; Since the argument did'nt match ON or OFF it must match itself.
; Since ON and OFF branch to EXIT then it can't possibly match here
;#$0
:<        ^
        ?Bad Argument given in ACACHE.DO
>
;#EXIT
;
; Delete Loaded stuff now that is not needed
DEL XY.LIT
DEL LOOKUP.LIT
DEL GOTO.LIT
; Let's get back to where we were.
LOG $:[$P]
:R