IEHLIST
    
    Ein n�tzliches Utility Programm ist IEHLIST aus der 'SYS1.LINKLIB'.
    Beispiel:
    
    FREE F(SYSIN,SYSPRINT)
    ALLOC F(SYSIN) DA(~)
    
    ALLOC F(SYSPRINT) DA(')
    CALL 'SYS1.LINKLIB(IEHLIST)'
    LISTVROC VOL = SYSDA = diskname,DUMP
    
    L ISTVfOC VOL = SYSDA = d i skname, FORMAT'DSNAME = (-
    MEYER.TEST.ASM,MEYER.TEST.OBJ)
    
    LISTCTLG VOL = SYSDA = diskname,NODE = SYSC
    
    LISTPDS VOL = SYSDA = diskname,DUMP,DSNAME= MEYER.TEST.ASM
    LISTPDS
    
    MEYER.TEST. LOAD
    /
    
    Zu beachten ist: Alle Kommandos an IEHLIST beginnen mit einem
    Leerzeichen! F�r diskname ist der tats�chliche Name einer Platte einzu-
    setzen. F�r diese Platte muss schon eine Allozierung bestehen, d.h.
    mindestens eine Datei auf dieser Platte muss unter beliebigem DDNamen
    alleziert sein. F�r LISTCTLG muss als diskname nat�rlich die Platte
    genannt werden, auf der sich der Katalog f�r diesen NODE auch
    
    VOL = SYSDA = diskname, FORMAT,DSNAME = -
    
    PHINEAS v2.o - Das D,alogsystem f�r VAX-Besucher
    
    tats�chlich befindet. Ein Nachteil des Programms ist, dass die Ausgabe-
    zeilen bis zu 132 Zeichen lang und damit auf dem Bildschirm schwer zu
    lesen sind.
    
    Disknamen kann man mit TEST herausfinden (siehe oben}. Eine einfa-
    chere M�glichkeit bietet das LISTALC Kommando. Es gibt allerdings nur
    die Volumes der gerade allozierten Dateien aus. Da nicht alle Dateien
    im Katalog stehen m�ssen, findet man mit LISTVROC oft Dateien, die nur
    durch L�schen aus dem Katalog "gesch�tzt" sind. Es ist sogar schon
    vorgekommen, dass der 'SYS1.UADS' als 'SYS1.TESTUADS' kopiert und
    dann nicht wieder durch ein Passwort gesch�tzt wurde.
    
    Ganz simpel
    
    Zum Schluss noch ein ganz alter und sehr einfacher Trick' um an ein
    Passwort zu kommen: Oft verl�sst ein TSO Benutzer nach Eingabe seines
    Passwortes das Terminal, um sich etwas zu trinken zu holen oder so
    (das Einloggen kann bei vielen Benutzern recht lange dauern: LOGON
    PROCEEDING ...). Wenn man Gl�ck hat, l�scht die LOGiON Prozedur nicht
    den Bildschirm. Dann steht das Passwort noch auf dem Bildschirm; man
    kann es nur nicht sehen Nun geht man mit den Cursortasten in die Zeile,
    in der das Passwort steht. So ab der 20 Stelle gibt man ein Leerzeichen
    e~n (zum Positionieren nicht die Space Taste benutzen, sonst wird das
    Passwo*** Texteingabe durch Verbindungsabruch beendet**
    
    18MTSOH1.ws 85/08106 04-33 Guten Morgen
    
    Phineas Version 2.0 ist ein in DCL geschriebenes Dialogprogramm, auf jedem VAX/VM~System l�uft, welches das REPLY-Kommando
    unterst�tzt.
    Das Programm mu� als Kommandodatei, also als Datei mit der Extension ".COM" erstellt werden. Dies geschieht mit dem Befehl
    "CREATEt', also z B.: CREATE DIALOG.COM.
    Anschlie�end wird der Programmtext upgeloaded und die Eingabe mit Ctrl Z abgeschlossen.
    Das Dialogprogramm kann nun m~t "Klammeraffe`DIALOG gestartet werden.
    Nach Eingabe des Dialognamens befindet man sich im Befehlsmodus und kann mit HELP eine kurze Bedrenungsanleitung abrufen.
    Mit diesem Programm k�nnen auch unge�bte Hasen problemlos chatten. Abtippen des Programms kann enffallen, da es in einigen
    VAXen schon rumliegt. Ansonsten kann es �ber eine Relhe Mailboxen geladen werden. Gut Chat! Xav'er&Friends
    
    Phineas (c) 1985 by CCC.
    ~ Contact FRIMP, DEEP THOUGHT or WANDERER for moditications.
    � SET ON
    � ON ERROR THEN GOTO ERRL
    � W := WRITE SYS�COMMAND
    � w "''
    � W "Dialog and conferencing system PHINEAS V2.0"
    �W ""
    � W "{C) 1985 by CCC. Use HELP for commands''
    �W "'
    � OLDTRM := 'F�GETJPI{"","TERMINAL")
    � OWN: = 'F�GET3PI("", "USERNAME")
    � W ''You are "OWN' on "OLDTRM' at "F�TIME{}'"
    �W '"'
    � LABEL := "LOOP"
    � IF 1P] EOS. "") THEN GOTO NAME
    � P := 'P1
    � LOOP:
    � INQUIRE`NOPUNC CMD "Cmd: "
    IF (CMD .EQS. "WHO") .OR. (CMD .EQS. "W") THEN GOTO WHO
    ~ IF (CMD .EQS. "CALL'') .OR. (CMD .EGS. "C"} THEN GOTO CALL
    � IF (GMD .EQS. "EXIT") THEN EXIT
    � IF (CMD.EQS. "E"l .OR. (CMD.EQS. "Q") THEN EXIT
    � IF (CMD.EQS. "HELP") .OR, {CMD.EQS. "?") THEN GOTO HLP
    � IF (CMD .EQS. "NAMEt') .OR. (CMD .EQS. ''N") THEN GOTO NAME
    � W "%COM-ERR Invalid command"
    � GOTO LOOP
    � WHO:
    �SH U
    � TRM := 'OLDTRM
    � GOTO 'LABEL
    � NOTRM:
    ~ W "�oTR~ERR Terminal not online''
    � CALL:
    � INQUIREINOPUNC TRM "Terminal: "
    � PORT;
    � IF ITRM .EQS. "") THEN GOTO LOOP
    � TNR = 'F�CVU110,8,TRM)
    � VNR = TNR - 48
    � IF iTNR .GT 48) .AND. (TNR .LT. 58) THEN TRM := "NVA''VNR':"
    ~ EXISTS := 'F�GETDVI1TRM,"EXISTS")
    � ~F EX~STS .EO. ''FALSE" THEN GOTO NOTRM
    W "Sending to ''TRM'''
    ~ LABEL: = "SEND''
    � SEND:
    � READIPROMPT="''TRM: " SYS�COMMAND TEXT
    � LEN := 'F�LENGHT(TEXT)
    � IF'LEN .LT. t THEN C;OTO SEND

    





    � FIRST := 'F�EXTRACT(0,1,TEXT)
    � IF IFIRST EQS ''%") THEN GOTO CHANGE
    � IF IFIRST EQS "&") THEN GOTO VMS
    � I = 'F�LOCATE("%",TEXT)
    � IF (I .GT. 0) .AND. {I LT. 'LEN) .AND (I .LE. 9) THEN GOTO MULTI
    REPLY/TERM='TRM' ""P': "TEXT'"
    ~ GOTO SEND
    � CHANGE:
    � OLDTRM := 'TRM
    � TRM := 'F�EXTRACT(1,LEN,TEXT)
    � IF 1TRM .EGS. "W") .OR. (TRM .EQS, "WHO") THEN GOTO WHO
    �;F (TRM .EQS. "E''l .OR. (TRM .EQS. ''EXIT''I .OR. (TRM .EQS. "Q") THEN
    ~ IF (TRM .EQS. "N") .OR. (TRM .EQS. ''NAME") THEN GOTO NAME
    � ~F gRM .EQS. "H'') .OR. (TRM .E()S. "?") .OR (TRM .E{:)S. "HELP") THEN
    � GOTO PORT
    � VMS:
    � IF (TEXT .EQS "~"' THEN GOTO EMULATE
    
    , 66 1
    
    � 'F�EXTRACT(1,LEN,TEXT)
    � GOTO SEN
    � EMULATE:
    � ON ERROR THEN GOTO VLOOP
    � W "VMS-Emulator entered. Type QUIT to return to PHINEAS''
    � VLOOP:
    � INQUIRE/NOPUNC VCMD "~� "
    � IF (VCMD.EQS "QUIT") THEN GOTO RETURN
    � 'VCMD
    � GOTO VLOOP
    � RETURN:
    � ON ERROR THEN GOTO ERRL
    � GOTO SEND
    � ERRL:
    � W "%DIA-ERR Dialog mode error"
    � GOTO 'LABEL
    � HLP:
    � W ""
    � w ''Valid Cmds are: NAME WHO CALL EXIT HELP"
    � W "Type NAME (N} to enter session name."
    � W "Type WHO (W) to show users."
    � W "Type CALL (C) to connect to terminal"
    � W ''To Ghar~ge terminal in call mode, type %TERMINAL, e.g. %TTA2 "
    � W "It terminal is NVA-termina! use %2 instead of %NVA2:"
    � W "To quit in call mode, type %E or %a"
    � W "To show users in call mode type %W OR %WHO"
    � W "To execute VMS Cmds type &COMMAND e.g. &DIR"
    � W "Type %h or %? or %help for help in cali mode."
    � W ''Type 8~& in call mode to enter the VMS emulator. Type QUIT to return."
    � W ""
    � W "It is possible to send a msg to more than one user at NVA terminals.''
    � W "Syntax: abc%Your message.''
    � W "While a, b and c are the term~nal numbers."
    �W ""
    � w "Don't use % nor the exclamation mark in your msg."
    � W
    � TRIV : = 'OLDTRM
    � GOTO 'LABEL
    � NAME:
    � INQUIRE/NOPUNC P "Please enter session name: '
    � TRM := 'OLDTRM
    � GOTO 'LABEL
    � MULTI:
    � MSG: = 'F�EXTRACT(I + 1,LEN-I,TEXT)
    � CON := 'F�EXTRACT(0,1,TEXT)
    �d = 0
    � ON ERROR THEN GOTO NOTSENT
    � SENDM:
    � MTRM := "NVA"F�EXTRACT(~J1 TEXT)':"
    � EXISTS := 'F�GETDVI(MTRM,"EXISTS")
    � IF EXISTS .EQS. "FALSE" THEN GOTO NOTSENT
    � REPLY/TERM='MTRM ""P':''CON': "MSG'"
    � INCR:
    �U =U + 1
    � IF J.LT. I THEN GOTO SENDM
    � ON ERROR THEN GOTO SEND
    � GOTO SEND
    � NOTSENT
    � W "%DIA-NOTSENT Not sent to "MTRM"'
    � GOTO INCR
    
    Bei Eingabe anstatt � das Dol/arzeichen eingeben
    
    PHINEAH1.WS B50731 1106