| There is a DCL-like shell in Germany (see atari_old 636.1). The name is
ST-DCL. The costs are 298.00 DM, including an editor ST-EDT. You can get
it in Germany from:
LogiTeam, Koelner Str. 132, D-5210 Troisdorf, West Germany.
The program is from:
Johannes Tschebisch, Burbacher Str. 129, D-5300 Bonn 1
I use it since Feb-88 in a version 1.3. I like the symbols, procedures
with parameters and the F1-key, which stops the output like the VT220.
The editor is only 32726 bytes, therefore I have it allways in my
RAM-Disk.
ST-DCL looks like VAX/VMS-Digital Command Language (DCL), but in my
version all the messages from the system are in German (LOLA GERMAN ?).
I don't know, wether there is an English version.
Here is a list of functions:
* APPEND, COPY, CREATE, DELETE, DIRECTORY, DUMP, INITIALIZE, PRINT,
RECALL, RENAME, RUN, SEARCH, LOGOFF, TYPE
* SET
.. BUFFER;DEFAULT;NOVERIFY;PRINTER;PROMPT;TERMINAL;TIME;VERIFY
* SHOW
.. BUFFER; DEFAULT;DEVICE; LOG; KEY; MEMORY; STATUS; SYMBOL;
TIME; VERSION
* DEFINE, DEFINE/KEY, DELETE/SYMBOL
* CLOSE, OPEN, READ, WRITE
* EXIT, GOTO, IF..THEN.., INQUIRE, STOP, @procedure params
* symbol =[=] symboldefinition
* internal functions:
F$DIRECTORY, F$EXTRACT, F$LENGTH, F$LOCATE, F$INTEGER,
F$MESSAGE, F$STRING, F$TIME, F$TYPE
Some functions have parameters, like I/O redirection (/OUTPUT=filename)
etc.
The ST-EDT editor is like EDT and runs with TOS (that means without
GEM). The editor uses the keypad-functions like the EDT on the VAX, but
has an overstrike mode :-). You can store key-definitions (F2-F10,
F11-F20) in a file EDTINI.EDT, which is loaded automatically.
| GOLD HELP FNDNXT DEL_L | gold HELP FIND U_DEL_L |
| PAGE SECTION APPEND DEL_W | COMMAND FILL REPLACE U_DEL_W |
| ADV BACK CUT DEL_C | BOTTOM TOP PASTE U_DEL_C |
| WORD EOL CHAR ENTER | CH_CASE DEL_EOL SPECINS SUBSTI. |
| LINE SELECT | OPEN LINE SELECT " |
Here is my procedure for TeX, as an example:
!TEX3.COM 'P1'
! *** TEX$, TEXZG$ und TEXDR$ aus LOGIN.COM z.Z. D:, D: u. E:
TXTDIR = F$DIRECTORY()
!dahin zur�ck
DEF TXTD$ 'TXTDIR'
SC*HREIB == "WRITE SYS$OUTPUT "
!******************************
LOOP:
IF P1 .EQS. "" THEN INQUIRE P1 "TeX-File (ohne DIR und .EXT) "
P1 = TXTDIR + P1
! ersetze f�r TeX im Pfad \ durch /
POS0 = 0
POS1 = 0
POS2 = 0
TPFAD$ = P1
PLANG = F$LENGTH(TPFAD$)
TSUCHE:
POS1 = F$LOCATE("\",TPFAD$)
IF POS1 .GE. PLANG THEN GOTO EINGABE
POS2 = POS1 + 1
TPFAD$ = F$EXTRACT(POS0,POS1,TPFAD$) + "/" + F$EXTRACT(POS2,PLANG,TPFAD$)
GOTO TSUCHE
EINGABE:
SC " "
INQUIRE AUSWAHL " Wahl : T Z P F E L D S N Q ?"
IF AUSWAHL .EQS. "?" THEN GOTO MENUE
IF AUSWAHL .NES. "" THEN GOTO WAHL
!
MENUE:
AUSWAHL = ""
SC "E q MEN� |"
SC " p<T>q TeX (LaTeX) |"
SC " p<Z>q Zeigen |"
SC " p<P>q Print |"
........
INQUIRE AUSWAHL "W�hle "
WAHL:
IF AUSWAHL .EQS. "T" THEN GOTO TEX
IF AUSWAHL .EQS. "Z" THEN GOTO ZEIGE
IF AUSWAHL .EQS. "P" THEN GOTO PRINT
.......
GOTO EINGABE
!T (wg. TeX mit TPFAD$: \ -> / )
TEX:
SC "E LaTeX von ''TPFAD$'"
SET DEFAULT TEX$
RUN TEX.TTP &LPLAIN 'TPFAD$'
GOTO EINGABE
... etc.
Reiner Sell @COO
|