home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR2
/
CU_210.ZIP
/
_MAIN.EXE
/
SCRIPT.CSF
< prev
next >
Wrap
Text File
|
1993-10-15
|
4KB
|
75 lines
(******************************************************************************)
(* Sample Communiqué Script File *)
(* ─────────────────────────── *)
(* version 2.xx *)
(* *)
(* IMPORTANT NOTICE: This is only a sample script file for the shareware *)
(* version of Communiqué. The Communiqué scripting language has not been *)
(* finalised yet and may be subject to changes without notice. The script *)
(* language is an interpretive language, meaning that it compiles on the *)
(* fly, saving the hassle of compiling the language beforehand. Because *)
(* of this, the syntax of the language must be give careful consideration *)
(* before development and with development. The syntax must be such that *)
(* it is easy for the user and easy for the builtin interpretive compiler *)
(* to interpret and check for errors. The Communiqué script language is *)
(* a fast script language that compares to other packages compilers. At a *)
(* later stage more details of the Communiqué scripting language will be *)
(* released and documented. The language is a culmination of the Pascal, *)
(* C, and Basic programming languages. Any suggestions are quite welcome. *)
(* *)
(* Use 'CONTROL C' to break out of a running script. *)
(* *)
(******************************************************************************)
begin
Delay(500) (*** Delay for 500 1/1000ths of a second ***)
%IEMSI = On (*** Turn IEMSI ON or OFF ***)
%AVATAR = On (*** Turn AVATAR ON or OFF ***)
%AUTOZMODEM = On (*** Turn AUTO-ZMODEM downloads ON or OFF ***)
%AUTOHYDRA = On (*** Turn AUTO-HYDRA downloads ON or OFF ***)
BaudRate(2400) (*** Set DTE baudrate, all speeds accepted ***)
TextColor(10) (*** Set foreground color to light green ***)
BackGround(0) (*** Set background color of black ***)
Cls (*** Clear the screen ***)
Alarm(1) (*** Sets of an alarm, the number is the tune to play ***)
Delay(500) (*** Delay for 500 1/1000ths of a second ***)
ComWriteLn('AT&V') (*** Sends AT&V to the com port with CR & LF ***)
Pause(500) (*** Pauses for 500 1/100ths of a second printing ***)
(*** any text received from the modem ***)
MakeWindow(10,5,70,20) (*** Draw a window {XHi,YHi,XLo,YLo} ***)
WriteLn('') (*** Write a CR & LF to the screen ***)
WriteLn('Dialling...') (*** Write Dialling... to the screen with CR & LF ***)
AutoDial(5) (*** Dial dialling directory entry 9 ***)
AutoDialQueue(2,3,6,7,8,9,10) (*** Dial listed entries in a dial queue ***)
WaitFor('NAME','BRUCE',30)
(*** Wait for first string, then send second string to modem, the 3rd ***)
(*** parameter is the timeout value, the amount of time to wait ***)
WriteLn('')
WriteLn('Finished...')
Delay(600)
KillWindow (*** Remove window ***)
Upload(7,'C:\Term\Docs\Term.DOC')
(*** Upload specified file. 1 specifies ASCII, 8 Hydra, this is in the ***)
(*** same order as the the protocol selection window ***)
(* Download(7,'') *)
(*** Same as above except to receive a file, for ASCII and XMODEM the ***)
(*** filename must be given, otherwise it is not needed, the path can ***)
(*** be specified. Not need with Zmodem or Hydra AutoDownload ***)
ShellEms('Test.bat') (*** Shell to EMS or Disk and run Test.BAT ***)
(* HaltScript *) (*** Exits the script and goes back into command mode ***)
(* Halt *) (*** Exit Communiqué ***)
end