home *** CD-ROM | disk | FTP | other *** search
- 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
-
-
-
-
-
-
-
-