home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Fish 3
/
goldfish_volume_3.bin
/
files
/
util
/
cli
/
dosk
/
commands
/
availk
< prev
next >
Wrap
Text File
|
1995-01-04
|
984b
|
46 lines
failat 21
alias rq requestchoice
LAB MORE
rq >env:ans "AvailK ©November 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT A BUTTON" "CHIP" "FAST" "AVAIL" "FLUSH" "BYE"
ENDIF
IF $ANS EQ "1"
AVAIL chip >RAM:AVAILBALE_CHIP_MEMORY
SYS:UTILITIES/MULTIVIEW RAM:AVAILBALE_CHIP_MEMORY
ENDIF
IF $ANS EQ "2"
AVAIL fast >RAM:AVAILABLE_FAST_MEMORY
SYS:UTILITIES/MULTIVIEW RAM:AVAILABLE_FAST_MEMORY
ENDIF
IF $ANS EQ "3"
AVAIL >RAM:AVAILABLE_TOTAL_MEMORY
SYS:UTILITIES/MULTIVIEW RAM:AVAILABLE_TOTAL_MEMORY
ENDIF
IF $ANS EQ "4"
AVAIL FLUSH >ram:FLUSHED_MEMORY
SYS:UTILITIES/MULTIVIEW RAM:FLUSHED_MEMORY
ENDIF
IF $ANS EQ "0"
SKIP DONE
ENDIF
SKIP MORE BACK
LAB DONE
IF EXISTS RAM:AVAILBALE_CHIP_MEMORY
delete RAM:AVAILBALE_CHIP_MEMORY QUIET
ENDIF
IF EXISTS RAM:AVAILABLE_FAST_MEMORY
DELETE RAM:AVAILABLE_FAST_MEMORY QUIET
ENDIF
IF EXISTS RAM:AVAILABLE_TOTAL_MEMORY
DELETE RAM:AVAILABLE_TOTAL_MEMORY QUIET
ENDIF
IF EXISTS RAM:FLUSHED_MEMORY
DELETE RAM:FLUSHED_MEMORY QUIET
ENDIF