home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 9
/
FreshFishVol9-CD2.bin
/
bbs
/
util
/
dosk-1.0.lha
/
DosK
/
Commands
/
InfoK
< prev
next >
Wrap
Text File
|
1995-01-04
|
3KB
|
95 lines
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