[Chaos CD]
[HaBi 1]    PHINEAS v2.o
[Gescannte Version] [ -- ] [ ++ ] [Suchen]  

 

PHINEAS v2.o

Das Dialogsystem für VAX-Besucher

Phineas Version 2.0 ist ein in DCL geschriebenes Dialogprogramm, auf jedem VAXJVMS-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 denn Befehl
"CREATE", also z-B.: CREATE DIALOG.COM.
Anschließend wird der Programmtext upgeloaded und die Eingabe mit Ctrl Z abgeschlossen. Das Dialogprogramm kann nun mit "Klammeraffe" DIALOG gestartet werden. Nach Eingabe des Dialognamens befindet man sich im Befehlsmodus und kann mit HELP eine kurze Bedienungsanleitung abrufen. Mit diesem Programm können auch ungeübte Hasen problemlos chatten. Abtippen des Programms kann entfallen, da es in einigen VAXen schon rumliegt. Ansonsten kann es über eine Reihe Mailboxen geladen werden. Gut Chat! Xav'er&Friends

! Phineas (c) 1985 by CCC.
! Contact FRIMP, DEEP THOUGHT or WANDERER for modifications.
§ 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('' ",7ERMINAL")
§ OWN : = 'F§GETJPI(-', 'LISERNAME")
§ W "You are---OWK on---OLDTIRM' at
§ W ""
§ LABEL: = "LOOP"
§ IF (P1 -EOS, "") THEN GOTO NAME
§ P:= 'P1
§ LOOP:
§ INOUIRE/NOPUNC CMD ''Cmd:
§ IF (CMD.E0S. "WHO").OR. (CMD.E0S. ''W") THEN GOTO WHO
§ IF (CMD.EQS. "CALL`) OR. (CMD.EQS. "C") THEN GOTO CALL
§ IF (CMD.EQ5. "EXIT") THEN EXIT
§ IF (CMD.EGS. "E") OR. (CMD.IE0S. "Q") THEN EXIT
§ IF (CMD.EQS. "HELID") OR. (CMD.EQS.---T') THEN GOTO HLP
§ IF (CMD.E0S. "NAME").OR. (CMD,1E0S. "N") THEN GOTO NAME
§ W "%COM-ERR Invalid command"
§ GOTO LOOP
§ WHO:
§ SH U
§ TRM 'OLDTRM
§ GOTO 'LABEL
§ NOTRM:
§ W "%TRIWERR Terminal not online
§ CALL:
§ INQUIRE/NOPUNC TRM "Terminal: "
§ PORT:
§ IF (TRM EQS "") THEN GOTO LOOP
§ TNR = F§CVUI(0,6,TRM)
§ VNR = TNR - 48
§ IF (TNIR.GT. 48) AND. (TNR LT. 58) THEN TRM "NVA'VNR':"
§ EXISTS : = 'I'§GETDVI(TRIVI, "EMSTS")
§ IF EXISTS.EQ. THEN GOTO NOTRM
§ W "Sending to " TRM
§ LABEL:= "SEND"
§ SEND:
§ READIPROMPT ''TRM', * SYS§COMMAND TEXT
§ LEN : = 'F§LENGHT(TEXT)
§ IF1EN 1T. 1 THEN GOTO SEND
§ FIRST: - F§EXTRACT(0, 1,TEXT)
§ IF (FIRST EQS. "%") THEN GOTO CHANGE
§ IF (FIRST -EQS. "&") THEN GOTO VMS
§ 1 = 'F§LOCATE(" %",TEXT)
§ IF (1 GT. 0) AND. (1 1T. 'LEN) AND. (1 LE. 9) THEN GOTO MULTI
§ REPLY/TERM ='TRM' ""P': 'TEXT"
§ GOTO SEND
§CHANGE '
§ OLDTRM 'TRM
§ TRM ' = 'F§EXTRACT(1, LEN, TEXT)
§ IF (TRM,EOS. "W").OR. (TRM.E0S. 'WHO") THEN GOTO WHO
§ IF (TRM EOS. "E") OR. (TRM EQS. "EXIT") OR. (TRM EQS. 'Q") THEN EXIT
§ IF (TRM.EQS. "N") OR. (TRM.IE0S. "NAME") THEN GOTO NAME
§ IF (TRM EOS- "H") OR. (TRM EQS. "?") OR. (TIRM E0S. "HELP") THEN GOTO HLP
§ GOTO PORT
§ VMS:
§ IF (TEXT.EQS "&&-) THEN GOTO EMULATE
§ '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 change terminal in call mode, type %TERMINAL, e.g. %TTA2:"
§ W "if terminal is NVA-termina~ use %2 instead of %NVA2:"
§ W "To quit in call mode, type %E or %0"
§ W "To show users in call mode type %W OR %WHO"
§ W "To execute VMS Cmds type &COMMAND, e.g. &DIR"
§ W "Type I/oh or %? or %help for help in call mode."
§ W "Type && in call mode to enter the VMS emulator. Type QUIT to return."
§ W ""
§ W "it is possible to send a rnsg to more than one user at NVA terminals."
§ W "Syntax: abc%Your message."
§ W "While a, b and c are the terminal numbers."
§ W ""
§ w "Don't use % nor the exclamation mark in your msg."
§ W ""
§ TRM, 'OLDTRM
§ GOTO 'LABEL
§ NAME:
§ INOUIRE/NOPUNC P "Please enter session name
§ TRM := 'OLDTRM
§ GOTO 'LABEL
§ MULTI:
§ MSG F§EXTRACT(l + 1,LEN-1,TEXT)
§ CON 'F§EXTRACT(O, 1, TEXT)
§J = 0
§ ON ERROR THEN GOTO NOTSENT
§ SENDM:
§ MTRM := " NVA- F§EXTRACT(J, 1, TEXT)':"
§ EXISTS:= 'F§GETDVI(MTRM," EXISTS")
§ IF EXISTS EQS. "FALSE" THEN GOTO NOTSENT
§ REPLY/TERM='MTRM -'P':"CON': "MSG"'
§ INCR:
§J = J + 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 anstaff § das Dollarzeichen eingeben

PHINEAWMS 850731 1106

 

  [Chaos CD]
[HaBi 1]    PHINEAS v2.o
[Gescannte Version] [ -- ] [ ++ ] [Suchen]