12 lines
648 B
Plaintext
12 lines
648 B
Plaintext
$!******************************************************************************
|
|
$! DIESE KOMMANDOPROZEDUR DEFINIERT ALLGEMEINE LOGICALS UND SYMBOLS FUER DIE
|
|
$! ARBEIT MIT ACCEL (ALS BATCH UND INTERAKTIV)
|
|
$! SIE WIRD VON LOGIN.COM AUS AUFGERUFEN.
|
|
$!******************************************************************************
|
|
$ define accel$directory "UD1:[simula.accel.calc]"
|
|
$ define accel$READdirectory "accel$directory"
|
|
$ define accel$OUTdirectory "accel$directory"
|
|
$ define accel$NrDirectory "accel$directory"
|
|
$ accalc :== "SET DEF accel$directory"
|
|
$!==============================================================================
|