home *** CD-ROM | disk | FTP | other *** search
/ Chaos Computer Club 1997 February / cccd_beta_feb_97.iso / chaos / habi1 / txt / hb1_86.txt < prev    next >
Text File  |  1997-02-28  |  8KB  |  218 lines
  1.     
  2.  
  3.  
  4.  
  5.  
  6.  
  7.     IEHLIST
  8.     
  9.     Ein nützliches Utility Programm ist IEHLIST aus der 'SYS1.LINKLIB'.
  10.     Beispiel:
  11.     
  12.     FREE F(SYSIN,SYSPRINT)
  13.     ALLOC F(SYSIN) DA(~)
  14.     
  15.     ALLOC F(SYSPRINT) DA(')
  16.     CALL 'SYS1.LINKLIB(IEHLIST)'
  17.     LISTVROC VOL = SYSDA = diskname,DUMP
  18.     
  19.     L ISTVfOC VOL = SYSDA = d i skname, FORMAT'DSNAME = (-
  20.     MEYER.TEST.ASM,MEYER.TEST.OBJ)
  21.     
  22.     LISTCTLG VOL = SYSDA = diskname,NODE = SYSC
  23.     
  24.     LISTPDS VOL = SYSDA = diskname,DUMP,DSNAME= MEYER.TEST.ASM
  25.     LISTPDS
  26.     
  27.     MEYER.TEST. LOAD
  28.     /
  29.     
  30.     Zu beachten ist: Alle Kommandos an IEHLIST beginnen mit einem
  31.     Leerzeichen! Für diskname ist der tatsächliche Name einer Platte einzu-
  32.     setzen. Für diese Platte muss schon eine Allozierung bestehen, d.h.
  33.     mindestens eine Datei auf dieser Platte muss unter beliebigem DDNamen
  34.     alleziert sein. Für LISTCTLG muss als diskname natürlich die Platte
  35.     genannt werden, auf der sich der Katalog für diesen NODE auch
  36.     
  37.     VOL = SYSDA = diskname, FORMAT,DSNAME = -
  38.     
  39.     PHINEAS v2.o - Das D,alogsystem für VAX-Besucher
  40.     
  41.     tatsächlich befindet. Ein Nachteil des Programms ist, dass die Ausgabe-
  42.     zeilen bis zu 132 Zeichen lang und damit auf dem Bildschirm schwer zu
  43.     lesen sind.
  44.     
  45.     Disknamen kann man mit TEST herausfinden (siehe oben}. Eine einfa-
  46.     chere Möglichkeit bietet das LISTALC Kommando. Es gibt allerdings nur
  47.     die Volumes der gerade allozierten Dateien aus. Da nicht alle Dateien
  48.     im Katalog stehen müssen, findet man mit LISTVROC oft Dateien, die nur
  49.     durch Löschen aus dem Katalog "geschützt" sind. Es ist sogar schon
  50.     vorgekommen, dass der 'SYS1.UADS' als 'SYS1.TESTUADS' kopiert und
  51.     dann nicht wieder durch ein Passwort geschützt wurde.
  52.     
  53.     Ganz simpel
  54.     
  55.     Zum Schluss noch ein ganz alter und sehr einfacher Trick' um an ein
  56.     Passwort zu kommen: Oft verlässt ein TSO Benutzer nach Eingabe seines
  57.     Passwortes das Terminal, um sich etwas zu trinken zu holen oder so
  58.     (das Einloggen kann bei vielen Benutzern recht lange dauern: LOGON
  59.     PROCEEDING ...). Wenn man Glück hat, löscht die LOGiON Prozedur nicht
  60.     den Bildschirm. Dann steht das Passwort noch auf dem Bildschirm; man
  61.     kann es nur nicht sehen Nun geht man mit den Cursortasten in die Zeile,
  62.     in der das Passwort steht. So ab der 20 Stelle gibt man ein Leerzeichen
  63.     e~n (zum Positionieren nicht die Space Taste benutzen, sonst wird das
  64.     Passwo*** Texteingabe durch Verbindungsabruch beendet**
  65.     
  66.     18MTSOH1.ws 85/08106 04-33 Guten Morgen
  67.     
  68.     Phineas Version 2.0 ist ein in DCL geschriebenes Dialogprogramm, auf jedem VAX/VM~System läuft, welches das REPLY-Kommando
  69.     unterstützt.
  70.     Das Programm muß als Kommandodatei, also als Datei mit der Extension ".COM" erstellt werden. Dies geschieht mit dem Befehl
  71.     "CREATEt', also z B.: CREATE DIALOG.COM.
  72.     Anschließend wird der Programmtext upgeloaded und die Eingabe mit Ctrl Z abgeschlossen.
  73.     Das Dialogprogramm kann nun m~t "Klammeraffe`DIALOG gestartet werden.
  74.     Nach Eingabe des Dialognamens befindet man sich im Befehlsmodus und kann mit HELP eine kurze Bedrenungsanleitung abrufen.
  75.     Mit diesem Programm können auch ungeübte Hasen problemlos chatten. Abtippen des Programms kann enffallen, da es in einigen
  76.     VAXen schon rumliegt. Ansonsten kann es über eine Relhe Mailboxen geladen werden. Gut Chat! Xav'er&Friends
  77.     
  78.     Phineas (c) 1985 by CCC.
  79.     ~ Contact FRIMP, DEEP THOUGHT or WANDERER for moditications.
  80.     ⌡ SET ON
  81.     ⌡ ON ERROR THEN GOTO ERRL
  82.     ⌡ W := WRITE SYS⌡COMMAND
  83.     ⌡ w "''
  84.     ⌡ W "Dialog and conferencing system PHINEAS V2.0"
  85.     ⌡W ""
  86.     ⌡ W "{C) 1985 by CCC. Use HELP for commands''
  87.     ⌡W "'
  88.     ⌡ OLDTRM := 'F⌡GETJPI{"","TERMINAL")
  89.     ⌡ OWN: = 'F⌡GET3PI("", "USERNAME")
  90.     ⌡ W ''You are "OWN' on "OLDTRM' at "F⌡TIME{}'"
  91.     ⌡W '"'
  92.     ⌡ LABEL := "LOOP"
  93.     ⌡ IF 1P] EOS. "") THEN GOTO NAME
  94.     ⌡ P := 'P1
  95.     ⌡ LOOP:
  96.     ⌡ INQUIRE`NOPUNC CMD "Cmd: "
  97.     IF (CMD .EQS. "WHO") .OR. (CMD .EQS. "W") THEN GOTO WHO
  98.     ~ IF (CMD .EQS. "CALL'') .OR. (CMD .EGS. "C"} THEN GOTO CALL
  99.     ⌡ IF (GMD .EQS. "EXIT") THEN EXIT
  100.     ⌡ IF (CMD.EQS. "E"l .OR. (CMD.EQS. "Q") THEN EXIT
  101.     ⌡ IF (CMD.EQS. "HELP") .OR, {CMD.EQS. "?") THEN GOTO HLP
  102.     ⌡ IF (CMD .EQS. "NAMEt') .OR. (CMD .EQS. ''N") THEN GOTO NAME
  103.     ⌡ W "%COM-ERR Invalid command"
  104.     ⌡ GOTO LOOP
  105.     ⌡ WHO:
  106.     ⌡SH U
  107.     ⌡ TRM := 'OLDTRM
  108.     ⌡ GOTO 'LABEL
  109.     ⌡ NOTRM:
  110.     ~ W "°oTR~ERR Terminal not online''
  111.     ⌡ CALL:
  112.     ⌡ INQUIREINOPUNC TRM "Terminal: "
  113.     ⌡ PORT;
  114.     ⌡ IF ITRM .EQS. "") THEN GOTO LOOP
  115.     ⌡ TNR = 'F⌡CVU110,8,TRM)
  116.     ⌡ VNR = TNR - 48
  117.     ⌡ IF iTNR .GT 48) .AND. (TNR .LT. 58) THEN TRM := "NVA''VNR':"
  118.     ~ EXISTS := 'F⌡GETDVI1TRM,"EXISTS")
  119.     ⌡ ~F EX~STS .EO. ''FALSE" THEN GOTO NOTRM
  120.     W "Sending to ''TRM'''
  121.     ~ LABEL: = "SEND''
  122.     ⌡ SEND:
  123.     ⌡ READIPROMPT="''TRM: " SYS⌡COMMAND TEXT
  124.     ⌡ LEN := 'F⌡LENGHT(TEXT)
  125.     ⌡ IF'LEN .LT. t THEN C;OTO SEND
  126.  
  127.     
  128.  
  129.  
  130.  
  131.  
  132.  
  133.     ⌡ FIRST := 'F⌡EXTRACT(0,1,TEXT)
  134.     ⌡ IF IFIRST EQS ''%") THEN GOTO CHANGE
  135.     ⌡ IF IFIRST EQS "&") THEN GOTO VMS
  136.     ⌡ I = 'F⌡LOCATE("%",TEXT)
  137.     ⌡ IF (I .GT. 0) .AND. {I LT. 'LEN) .AND (I .LE. 9) THEN GOTO MULTI
  138.     REPLY/TERM='TRM' ""P': "TEXT'"
  139.     ~ GOTO SEND
  140.     ⌡ CHANGE:
  141.     ⌡ OLDTRM := 'TRM
  142.     ⌡ TRM := 'F⌡EXTRACT(1,LEN,TEXT)
  143.     ⌡ IF 1TRM .EGS. "W") .OR. (TRM .EQS, "WHO") THEN GOTO WHO
  144.     ⌡;F (TRM .EQS. "E''l .OR. (TRM .EQS. ''EXIT''I .OR. (TRM .EQS. "Q") THEN
  145.     ~ IF (TRM .EQS. "N") .OR. (TRM .EQS. ''NAME") THEN GOTO NAME
  146.     ⌡ ~F gRM .EQS. "H'') .OR. (TRM .E()S. "?") .OR (TRM .E{:)S. "HELP") THEN
  147.     ⌡ GOTO PORT
  148.     ⌡ VMS:
  149.     ⌡ IF (TEXT .EQS "~"' THEN GOTO EMULATE
  150.     
  151.     , 66 1
  152.     
  153.     ⌡ 'F⌡EXTRACT(1,LEN,TEXT)
  154.     ⌡ GOTO SEN
  155.     ⌡ EMULATE:
  156.     ⌡ ON ERROR THEN GOTO VLOOP
  157.     ⌡ W "VMS-Emulator entered. Type QUIT to return to PHINEAS''
  158.     ⌡ VLOOP:
  159.     ⌡ INQUIRE/NOPUNC VCMD "~⌡ "
  160.     ⌡ IF (VCMD.EQS "QUIT") THEN GOTO RETURN
  161.     ⌡ 'VCMD
  162.     ⌡ GOTO VLOOP
  163.     ⌡ RETURN:
  164.     ⌡ ON ERROR THEN GOTO ERRL
  165.     ⌡ GOTO SEND
  166.     ⌡ ERRL:
  167.     ⌡ W "%DIA-ERR Dialog mode error"
  168.     ⌡ GOTO 'LABEL
  169.     ⌡ HLP:
  170.     ⌡ W ""
  171.     ⌡ w ''Valid Cmds are: NAME WHO CALL EXIT HELP"
  172.     ⌡ W "Type NAME (N} to enter session name."
  173.     ⌡ W "Type WHO (W) to show users."
  174.     ⌡ W "Type CALL (C) to connect to terminal"
  175.     ⌡ W ''To Ghar~ge terminal in call mode, type %TERMINAL, e.g. %TTA2 "
  176.     ⌡ W "It terminal is NVA-termina! use %2 instead of %NVA2:"
  177.     ⌡ W "To quit in call mode, type %E or %a"
  178.     ⌡ W "To show users in call mode type %W OR %WHO"
  179.     ⌡ W "To execute VMS Cmds type &COMMAND e.g. &DIR"
  180.     ⌡ W "Type %h or %? or %help for help in cali mode."
  181.     ⌡ W ''Type 8~& in call mode to enter the VMS emulator. Type QUIT to return."
  182.     ⌡ W ""
  183.     ⌡ W "It is possible to send a msg to more than one user at NVA terminals.''
  184.     ⌡ W "Syntax: abc%Your message.''
  185.     ⌡ W "While a, b and c are the term~nal numbers."
  186.     ⌡W ""
  187.     ⌡ w "Don't use % nor the exclamation mark in your msg."
  188.     ⌡ W
  189.     ⌡ TRIV : = 'OLDTRM
  190.     ⌡ GOTO 'LABEL
  191.     ⌡ NAME:
  192.     ⌡ INQUIRE/NOPUNC P "Please enter session name: '
  193.     ⌡ TRM := 'OLDTRM
  194.     ⌡ GOTO 'LABEL
  195.     ⌡ MULTI:
  196.     ⌡ MSG: = 'F⌡EXTRACT(I + 1,LEN-I,TEXT)
  197.     ⌡ CON := 'F⌡EXTRACT(0,1,TEXT)
  198.     ⌡d = 0
  199.     ⌡ ON ERROR THEN GOTO NOTSENT
  200.     ⌡ SENDM:
  201.     ⌡ MTRM := "NVA"F⌡EXTRACT(~J1 TEXT)':"
  202.     ⌡ EXISTS := 'F⌡GETDVI(MTRM,"EXISTS")
  203.     ⌡ IF EXISTS .EQS. "FALSE" THEN GOTO NOTSENT
  204.     ⌡ REPLY/TERM='MTRM ""P':''CON': "MSG'"
  205.     ⌡ INCR:
  206.     ⌡U =U + 1
  207.     ⌡ IF J.LT. I THEN GOTO SENDM
  208.     ⌡ ON ERROR THEN GOTO SEND
  209.     ⌡ GOTO SEND
  210.     ⌡ NOTSENT
  211.     ⌡ W "%DIA-NOTSENT Not sent to "MTRM"'
  212.     ⌡ GOTO INCR
  213.     
  214.     Bei Eingabe anstatt ⌡ das Dol/arzeichen eingeben
  215.     
  216.     PHINEAH1.WS B50731 1106
  217.     
  218.