home *** CD-ROM | disk | FTP | other *** search
- FAILAT 21
- ALIAS MV_K SYS:UTILITIES/MULTIVIEW
- LAB START
- requestchoice >env:FIND "InfoK ©November 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT TYPE OF INFORMATION" "VAST" "STANDARD" "DEVICE" "STARTUP-SEQ" "USER-STARTUP" "BYE"
- IF $FIND EQ "0"
- SKIP DONE
- ENDIF
- IF $FIND EQ "1"
- INFO >RAM:INF
- echo >ram:MSG1 "============RESIDENT COMMANDS============"
- RESIDENT >RAM:RES
- JOIN RAM:INF RAM:MSG1 RAM:RES AS RAM:FLE1
- DELETE RAM:INF RAM:RES QUIET
- ECHO >RAM:MSG2 "============ALIASES============"
- ALIAS >RAM:ALI
- ECHO >RAM:MSG3 "============ASSIGNS============"
- ASSIGN >RAM:ASG
- JOIN RAM:MSG2 RAM:ALI RAM:MSG3 RAM:ASG AS RAM:FLE2
- DELETE RAM:ALI RAM:ASG QUIET
- ECHO >RAM:MSG4 "============DATE============"
- DATE >RAM:DAY
- ECHO >RAM:MSG5 "============CUP CACHE============"
- CPU >RAM:CP
- JOIN RAM:MSG4 RAM:DAY RAM:MSG5 RAM:CP AS RAM:FLE3
- DELETE RAM:DAY RAM:CP QUIET
- ECHO >RAM:MSG6 "============STACK============"
- STACK >RAM:STK
- ECHO >RAM:MSG7 "============STATUS============"
- STATUS FULL >RAM:STF
- JOIN RAM:MSG6 RAM:STK RAM:MSG7 RAM:STF AS RAM:FLE4
- DELETE RAM:STK RAM:STF QUIET
- ECHO >RAM:MSG8 "============CONGIGURATION============"
- SHOWCONFIG >RAM:CONF
- ECHO >RAM:MSG9 "============VERSION INFO============"
- VERSION >RAM:VER
- JOIN RAM:MSG8 RAM:CONF RAM:MSG9 RAM:VER AS RAM:FLE5
- DELETE RAM:VER RAM:CONF QUIET
- ECHO >RAM:MSG10 "============GLOBAL ENV VARIABLES============"
- SETENV >RAM:SENV
- ECHO >RAM:MSG11 "=============LOCAL ENV VARIABLES============"
- SET >RAM:ST
- JOIN RAM:MSG10 RAM:SENV RAM:MSG11 RAM:ST AS RAM:FLE6
- DELETE RAM:SENV RAM:ST QUIET
- ECHO >RAM:MSG12 "=============LIBRARIES============"
- LIST SYS:LIBS >RAM:LTEST
- ECHO >RAM:MSG13 "============SYSTEM C DIRECTORY============"
- LIST SYS:C >RAM:CTEST
- ECHO >RAM:MSG14 "============WORKBENCH STARTUP DRAWER CONTENTS============="
- LIST SYS:WBSTARTUP >RAM:WBTEST
- ECHO >RAM:MSG15 "============DATATYPES IN PATH============"
- LIST SYS:DEVS/DATATYPES LFORMAT %S >RAM:DTEST
- ECHO >RAM:MSG16 "============PRINTERS AVAILABLE============"
- DIR SYS:DEVS/PRINTERS >RAM:PTR
- ECHO >RAM:MSG17 "============.DEVICES IN DEVS============"
- LIST #?.devices SYS:DEVS >RAM:DDTEST
- ECHO >RAM:MSG18 "============FONTS============"
- DIR SYS:FONTS >RAM:SFTEST
- ECHO >RAM:MSG19 "============HANDLERS & BRAIN FILES============"
- LIST SYS:L >RAM:SHAND
- ECHO >RAM:MSG20 "============SYS:S============"
- LIST SYS:S >RAM:SSTEST
- JOIN RAM:FLE1 RAM:FLE2 RAM:FLE3 RAM:FLE4 RAM:FLE5 RAM:FLE6 RAM:MSG12 RAM:LTEST RAM:MSG13 RAM:CTEST RAM:MSG14 RAM:WBTEST RAM:MSG15 RAM:DTEST AS RAM:INFORMATION2
- JOIN RAM:INFORMATION2 RAM:MSG16 RAM:PTR RAM:MSG17 RAM:DDTEST RAM:MSG18 RAM:SFTEST RAM:MSG19 RAM:SHAND RAM:MSG20 RAM:SSTEST AS RAM:INFORMATION
- DELETE RAM:FLE1 RAM:FLE2 RAM:FLE3 RAM:FLE4 RAM:FLE5 RAM:FLE6 QUIET
- DELETE RAM:MSG#? QUIET
- DELETE RAM:LTEST RAM:CTEST RAM:WBTEST RAM:LIBTEST RAM:DTEST RAM:PTR RAM:DDTEST QUIET
- DELETE RAM:MSG18 RAM:SFTEST RAM:MSG19 RAM:SHAND RAM:MSG20 RAM:SSTEST QUIET
- MV_K RAM:INFORMATION
- DELETE RAM:INFORMATION#? QUIET
- ENDIF
- IF $FIND EQ "2"
- INFO >RAM:INFORMATION
- MV_K RAM:INFORMATION
- DELETE RAM:INFORMATION QUIET
- ENDIF
- IF $FIND EQ "3"
- requestfile >env:DVC TITLE="SELECT DEVICE"
- setenv dvc
- REQUESTCHOICE >ENV:ANS " " "SELECT AN ACTION" "SEE" "ABORT"
- IF $ANS EQ "1"
- INFO $DVC
- ELSE
- SKIP START BACK
- ENDIF
- ENDIF
- IF $FIND EQ "4"
- sys:utilities/multiview sys:s/startup-sequence
- ENDIF
- IF $FIND EQ "5"
- sys:utilities/multiview sys:s/user-startup
- ENDIF
-
- SKIP START BACK
- LAB DONE
-