home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / a / awnotes.zip / SQUICK.TXT < prev    next >
Text File  |  1992-12-22  |  28KB  |  548 lines

  1. -------------------------------------------------------------------------------
  2.                 pcANYWHERE Script Language Quick Start Guide
  3. -------------------------------------------------------------------------------
  4.  
  5. Thank you for taking the time and interest in experimenting with The Norton
  6. pcANYWHERE Script Language.  To better assist your script efforts, The Norton
  7. pcANYWHERE Technical Support Staff has created this document to help you gain
  8. a better understanding of how The Norton pcANYWHERE Script Language works and
  9. how to easily create scripts to automate your everyday communication needs.
  10. If you need assistance with scripting, feel free to call our technical support
  11. number at (310) 449-4900 and select option 5 between the hours of 7:00am and
  12. 5:00pm Pacific Standard Time, Monday through Friday.  If you would like to
  13. fax us your script question(s) or code (only the portion that is not working
  14. correctly, not the whole script), feel free to send it to (310) 829-0247
  15. anytime.  When you fax, please be sure to detail your questions.  Script faxes
  16. will be answered within 72 hours.
  17.  
  18. Contents:
  19. --------
  20.  
  21. 1.    Scripting - An Automation Concept.
  22.     * What is a script?
  23.     * What can a script do for me?
  24.     * Scripts vs. Automated Procedures.
  25.  
  26. 2.    Creating A Script.
  27.     * The basics.
  28.     * Step by step to a connection.
  29.     * Entering a script.
  30.  
  31. 3.    Something Worthwhile.
  32.     * A real working example that does something.
  33.     * How it works one step at a time.
  34.  
  35. 4.    Script Commands - Quick Reference
  36.  
  37. ===============================================================================
  38.                    1. Scripting - An Automation Concept
  39.  
  40. * What is a script?
  41.  
  42. A script is typically used to automate repetitive tasks that are usually done
  43. manually.  Scripts can automate tasks so that operator intervention is not
  44. required and can be intermixed with manual operations to reduce the complexity
  45. of a task.  
  46.  
  47. To many computer users, scripts seem like a foreign language better left to the
  48. experts of that field.  It involves programming, which tends to shun many users
  49. from exploring the possibility of putting this powerful feature to use.  In fact,
  50. pcANYWHERE's script language is a programming language.  Like Automated
  51. Procedures, they both execute a series of commands in some organized and logical
  52. order.  The script language, unlike most programming languages, is interpreted,
  53. not compiled.  This means that scripts generated in pcANYWHERE require
  54. pcANYWHERE in order to interpret the commands in the script, and will not
  55. function as a stand alone program.  This limitation turns out to be an
  56. innovation which allows a user to enhance the power and flexibility of its
  57. "parent program".
  58.  
  59. * What can a script do for me?
  60.  
  61. Using the Norton pcANYWHERE, a wide variety of electronic information services
  62. can be utilized to enhance both your professional and personal life.  As you
  63. continue to explore these services , you will find that you eventually settle
  64. into a routine.
  65.  
  66. Example: 
  67.  
  68. Everyday, you call up service "A", and check your electronic mailbox.  You also
  69. control pcANYWHERE/Host "B" which you access via a terminal server.  Service "C"
  70. has an on-line encyclopedia which you frequently reference.
  71.  
  72. For these situations, scripts could be utilized to streamline access to these
  73. services.  A script could call service "A", enter whatever login sequence is
  74. required, navigate the appropriate menus to get to your mailbox, send your mail
  75. to the printer or disk file, and then disconnect.  Connecting to host "B"
  76. requires that you first enter several access codes to route your call to the
  77. host.  A script could enter this sequence for you, leaving you connected and in
  78. control of the host.  Service "C" however, is different in that you will
  79. probably wish to look up different subjects each time you call, so the script in
  80. this case would start by prompting  you for the subject you wish to inquire
  81. about, then automate the rest of the process. 
  82.  
  83. * Scripts vs. Automated Procedures
  84.  
  85. Scripts are generally used for non-pcANYWHERE sessions or for pcANYWHERE
  86. sessions where an Automated Procedure is impractical, or incapable of
  87. performing a specific function.  Automated procedures are generally used for
  88. unattended pcANYWHERE sessions requiring file transfers and/or simple DOS
  89. commands.   [Note: Automated procedures ONLY work in pcANYWHERE sessions
  90. (i.e. pcANYWHERE Host and pcANYWHERE Remote).]
  91.  
  92.                    2. Creating A Script
  93.  
  94. * The Basics
  95.  
  96. First, you must fully understand what you want your script to do.  Scripts make
  97. no assumptions, and only perform the instructions exactly as you have typed them
  98. in the script.  A common error in creating scripts is assuming that the script
  99. will take care of "obvious" things, which are normally not thought of.  To avoid
  100. errors when creating scripts, follow these three steps:
  101.  
  102. 1)    Do it manually, and carefully note each detail of the operation.
  103.  
  104. 2)    Pseudocode the operation.  This means write it down, step by step, in
  105.     plain English.  This helps to formalize the thought process, and allows
  106.     for an almost straightforward conversion to the final script.
  107.  
  108. 3)    Write the script.  Each line of psuedocode should translate to one line
  109.     (possibly two) of script code.
  110.     Example:
  111.     The purpose of this script will be to automate my login sequence to
  112.     Compuserve (Compuserve is a world wide electronic communications
  113.     service).  First, I connected manually, and noted each detail of the
  114.     operation:
  115.  
  116.     I dialed 555-1234
  117.     I waited for my screen to say "06CUI"  (It says this when I call, it
  118.                         could be different for you.)
  119.     I pressed [Enter]
  120.     It said "Host Name:"      
  121.     I typed "COMPUSERVE" and pressed [Enter]
  122.     It said "User ID:"
  123.     I typed "1234,4321", and pressed [Enter]     (This is my user ID, it is
  124.                             different for you.)
  125.     It said "Password:"
  126.     I typed "secret", and pressed [Enter]       (This is my password, it is
  127.                             different for you.)
  128.     And then I was connected.
  129.  
  130. Now we have our psuedocode.  Notice that each action taken in the script is in
  131. response to the prompts received from Compuserve.  A frequent error when writing
  132. scripts is forgetting to tell the script what to look for before sending a
  133. response.  Now let's turn the psuedocode into a script:
  134.  
  135. ;This section prepares pcANYWHERE and the modem prior to making the connection
  136.  
  137. set echo on            ;Enable local character echo
  138. load config "Serial: Modem"    ;Get communications parameters
  139. clear screen            ;Clears the screen
  140. emulate ANSI            ;Behave like an ANSI terminal
  141.  
  142. ;This section contains the main body of the script, converted from pseudocode
  143.  
  144. DIAL "555-1234"            ;I dialed 555-1234
  145. WAIT STRING "06CUI"        ;I waited for my screen to say "06CUI"
  146. SEND STRING "^M"        ;I pressed [Enter]
  147. WAIT STRING "Host Name:"    ;It said "Host Name:"
  148. SEND LINE "COMPUSERVE"        ;I typed "COMPUSERVE", and pressed [Enter]
  149. WAIT STRING "User ID:"        ;It said "User ID:"
  150. SEND LINE "1234,4321"        ;I typed "1234,4321", and pressed [Enter]
  151. WAIT STRING "Password:"        ;It said "Password:"
  152. SEND LINE "secret"        ;I typed "secret", and pressed [Enter]
  153. END TERMINAL            ;End the script because I am connected
  154.  
  155.  
  156. * Step by step to a connection
  157.  
  158. The first section of the script replaces the information which is normally
  159. contained on the Host Information screen in the Norton pcANYWHERE. The second
  160. line tells pcANYWHERE to display the incoming text.  The third line loads all
  161. of the communications parameters, such as COM port, data rate, parity, etc.,
  162. from the hardware configuration name specified between the quote marks ("").
  163. The fourth line clears the screen.  The fifth line tells the script to function
  164. in same manner as an ANSI terminal would.  The blank line in the above script is
  165. used as a separator, to make reading the script easier.  Blank lines are ignored
  166. in the script language.  Also, the semi-colon character (;) indicates that the
  167. rest of the line is just a comment.  Lines eight through sixteen are the
  168. commands translated from the psuedocode above.  Lastly, line seventeen goes into
  169. terminal operation which ends the script and allows you to interactively
  170. communicate with the host system (Compuserve, in this case).
  171.  
  172.  
  173. * Entering a script
  174.  
  175. A script can be entered using your favorite text editor.  This must be an ASCII
  176. text editor or one that will write plain ASCII text files.    Save the script
  177. file with a name you choose, but use .SCR for the file extension.  Then run
  178. pcANYWHERE/Remote, select UTILITIES, and then select PREPROCESS A SCRIPT.  This
  179. will then prompt for the sub directory containing the script file.  Enter the
  180. sub directory containing the script file, then select the script file from the
  181. list, and press [Enter].  This compiles the text file into the executable format
  182. that pcANYWHERE uses for its script files.  Now the script can be executed.
  183. Simply select RUN SCRIPT from the main menu, select the directory the script
  184. file is in, and select the script file.
  185.  
  186.  
  187.                    3. Something Worthwhile
  188.  
  189. * A real working example that does something
  190.  
  191. The example that follows will login to a pcANYWHERE host that is using any
  192. terminal emulation.  You must have the same emulation set on the remote side
  193. in the Host Information screen.  If any emulation other than pcANYWHERE
  194. emulation is used, it will allow selection of a file on the host machine and
  195. then transfer that file to the remote machine.  If pcANYWHERE emulation is used,
  196. it will login and go into terminal mode.  While in pcANYWHERE emulation, file
  197. transfers cannot be done via the script file and then return to the script.
  198. Also, the INPUT command will not work after connection while in pcANYWHERE
  199. emulation.  Please see the following script:
  200.  
  201. string d_load[79]        ;set up a string variable to hold filename
  202. string host_name[79]        ;string variable to hold host name
  203. string pass_word[79]        ;variable for password
  204. integer emul            ;variable for emulation
  205. integer infile            ;for window name
  206. emul = 0            ;set default for PCAW emulation
  207. host_name = "My host"        ;put YOUR host's name here between quotes
  208. pass_word = "hostpass^M"    ;your password for this host you're calling
  209. clear screen            ;Clears screen
  210. set echo on            ;turn character echo on
  211. set cancel on            ;Watch for ESC key to be pressed
  212. on cancel goto @ABORT        ;If ESC pressed go to label @ABORT
  213. load hostinfo host_name        ;load host info parameters
  214. type "Dialing Host^M"        ;Type message on remote (^M=Enter key)
  215. wait 1                ;Pause for 1 second to see above message
  216. dial host host_name        ;Read host info and dial this host
  217. on receive "press" goto @NONPCAW
  218. wait 3
  219. @RESUME:
  220. send string "^M"        ;send an ENTER
  221. wait string "password" 10    ;wait for string, timeout after 10sec
  222. send string pass_word        ;send your password for this host
  223. wait string ">" 30        ;wait for the dos prompt's ">" sign
  224. if emul==0 then gosub @PDIR
  225. if emul==1 then gosub @NDIR
  226. wait silence 2            ;give time to display directory
  227. if emul==0 then end terminal
  228. window open infile 22 1 80 4 3 2
  229. cursor position 2 2
  230. type "Enter file you wish to download"
  231. cursor position 3 2
  232. if emul==1 then gosub @NINFILE
  233. end terminal
  234. @NONPCAW:
  235. emul = 1
  236. goto @RESUME
  237. @PDIR:
  238. send scancode "dir/w^M"        ;get directory on host (pcANYWHERE emulation)
  239. return
  240. @NDIR:
  241. send string "dir/w^M"        ;get directory on host (Non pcANYWHERE emulation)
  242. return
  243. @NINFILE:
  244. input d_load 79            ;get file name with max of 79 characters
  245. window close infile
  246. send string "cls^M"
  247. set echo off
  248. set quiet on
  249. send string "awsend "
  250. send string d_load
  251. send string " to remote^M"
  252. set quiet off
  253. set echo on
  254. receive file d_load        ;put it in this path on the remote computer
  255. return
  256. @ABORT:                ;Label for routine
  257. hang                ;Hang up the phone
  258. end                ;End the script
  259.  
  260.  
  261.                    4. Script Commands - Quick Reference
  262.  
  263. The pcANYWHERE manual has a reference to all the script commands but most users
  264. are new to scripting and want to know WHEN to use each of these commands.  For
  265. that reason, the following reference will come in very handy.  For additional
  266. information on any of the script commands, please consult the script chapter
  267. in the manual.
  268.  
  269. answer..........Wait for a call
  270. beep............Make a beep sound on remote
  271. break...........Send a break signal to other modem
  272. cd..............Change directory on remote
  273. clear bol.......Clear characters from cursor back to beginning of that line
  274. clear bop.......Clear characters from cursor back to beginning of this page (screen)
  275. clear eol.......Clear characters from cursor to end of this line
  276. clear eop.......Clear characters from cursor to end of this page (screen)
  277. clear screen....Clear the entire screen
  278. close...........Close a file that was previously opened
  279. copy............Copy a file from one place to another on the remote system
  280. create..........Create a file on the remote that does not already exist
  281. cursor block....Make cursor look like a full rectangular block
  282. cursor down.....Move cursor down a number of lines
  283. cursor home.....Move cursor to the upper left corner of the screen
  284. cursor left.....Move cursor left a number of columns
  285. cursor line.....Make cursor look like a single underscore (line)
  286. cursor off......Turn off the display of the cursor
  287. cursor position.Set the cursor position to a row and column specified
  288. cursor restore..Restore cursor position to the place it was "SAVED" from
  289. cursor right....Move cursor right a number of columns
  290. cursor save.....Save the cursor position so you can "cursor restore" later
  291. cursor up.......Move cursor up a number of lines
  292. decrypt.........Decrypt string that was previously Encrypted
  293. del.............Delete a file on the remote
  294. delete char.....Delete a number of characters starting at cursor position
  295. delete line.....Delete a number of lines starting at current line
  296. dial host.......Dial a host
  297. dial number.....Dial a specific phone number
  298. dir.............Get a directory of remote machine
  299. emulate.........Specify emulation to use for current session
  300. encrypt.........Encrypt a string with a code (key string)
  301. end.............End current script
  302. end menu........End current script and go to pcANYWHERE menu
  303. end terminal....End current script and go into terminal mode
  304. exit............End script and go to DOS removing from memory
  305. find first......Find first file matching a file mask (i.e.  *.txt)
  306. find next.......Find next file matching a file mask
  307. get file attr...Get the attributes for a specified file
  308. get file date...Get the date a file was created
  309. get file size...Get the size of a file
  310. get file time...Get the time a file was created
  311. get free disk...Find how much disk space is available on a drive
  312. get environment.Get the environment string associated with a variable
  313. gosub...........Call a subroutine for execution
  314. goto............Go to a specified label and continue execution at that point
  315. hang............Hang up the phone
  316. if..............Conditional processing - IF expression=true THEN command
  317. index...........Locate the position of one string within another
  318. insert char.....Insert count spaces at current cursor position
  319. insert line.....Insert count lines at current line position
  320. input...........Input data from keyboard until ENTER is pressed
  321. input key.......Input a single character from keyboard (not echoed)
  322. keyboard flush..Remove all keys from type-ahead buffer
  323. keyboard hit....Check to see if key is waiting for input
  324. let.............Used if destination variable is the same as a key word
  325. link............Link to another script file and end current script file
  326. load config.....Load a hardware configuration entry
  327. load hostinfo...Load a Host information entry
  328. load fkeys......Load a function key file
  329. load translation..Load a translation table file
  330. lower...........Convert a string to all lowercase characters
  331. md..............Make a directory on remote system
  332. on cancel.......Set command to execute for cancel entry (ESC)
  333. on disconnect...Set command to execute if disconnected
  334. on error........Set command to execute if an error occurs
  335. on receive......Set command to execute when receiving string
  336. on timeout......Set command to execute if time out occurs
  337. open............Open a file
  338. print file......Print a file to currently selected print device
  339. print line......Print a string & ENTER to currently selected print device
  340. print string....Print a string to currently selected print device
  341. printer.........Turn print on - if on, screen data is printed as its displayed
  342. rd..............Remove a directory on remote system
  343. read line.......Read n characters from a file or until end-of-line character
  344. read string.....Read n characters from a file into a string variable
  345. receive char....Receive one character from com port into a variable
  346. receive clear...Clear the receive buffer
  347. receive file....Receive a file using current protocol from the Host system
  348. receive line....Receive n characters from com port or until end-of-line char
  349. receive string..Receive n characters from com port into a string variable
  350. ren.............Rename a file on remote system
  351. reset...........Reset the terminal emulation to the default emulation
  352. return..........Return to the line after the calling GOSUB
  353. run.............Run a DOS program on the remote system
  354. screen restore..Restore a screen previously saved with SCREEN SAVE
  355. screen save.....Save a screen for later restoring with SCREEN RESTORE
  356. script..........Call another script then return to current script
  357. seek............Set file read/write pointer for subsequent read or write
  358. send char.......Send one character to com port
  359. send clear......Clear the send buffer
  360. send file.......Send a file to the Host system using current protocol
  361. send line.......Send a string and ENTER key to com port
  362. send scancode...Send string converted to scan codes to com port
  363. send string.....Send string to com port
  364. set attribute...Set screen color attributes
  365. set cancel......Set cancel checking on or off
  366. set chardelay...Set the default delay between each character sent
  367. set disconnect..Set disconnect checking on or off
  368. set dtr.........Set state of DTR signal
  369. set echo........Set echoing of characters during WAIT or RECEIVE on or off
  370. set file attr...Set the attributes of a file
  371. set file date...Set the date of a file
  372. set file size...Set the size of a file
  373. set file time...Set the time of a file
  374. set flow........Set flow control setting
  375. set ignorecase..Set checking for case when comparing strings to on or off
  376. set palette.....Set the screen palette attribute
  377. set parity......Set the parity value
  378. SET PORT........Set the desired com port.
  379. set protocol....Set the file transfer protocol
  380. set quiet.......Set screen display of certain commands on or off
  381. set record......Set recording mode on or off
  382. set rts.........Set the state of the RTS signal
  383. set speed.......Set the com port speed
  384. set timeout.....Set the default timeout value for WAIT and RECEIVE
  385. set translation.Set translation table usage to on or off
  386. strcat..........Concatenate a string onto the end of another string
  387. strcmp..........Compare two strings
  388. strlen..........Get the length of a string
  389. strset..........Fill a string variable with a value
  390. substr..........Extract part of one string and store into another
  391. terminal........Go to terminal mode for user interaction
  392. trim............Remove leading/trailing spaces and control codes from string
  393. type file.......Type a file on remote system to remote screen
  394. type line.......Type a string and ENTER key to screen
  395. type string.....Type a string to screen
  396. upper...........Convert a string to all uppercase characters
  397. wait carrier....Wait for a carrier signaling a connection
  398. wait receive....Wait for any character to be received from com port
  399. wait silence....Wait for n seconds of silence from com port
  400. wait string.....Wait for a string received from com port
  401. wait time.......Wait n seconds
  402. wait until......Wait until a specific time and date
  403. window close....Close a previously OPENed window
  404. window open.....Open a window on screen
  405. window select...Select a window on screen from a currently opened window
  406. write line......Write a string and ENTER key to a file
  407. write string....Write a string to a file
  408. ===============================================================================
  409.  
  410. -------------------------------------------------------------------------------
  411.                 File Transfer Demonstration Script / SDEMO1.SCR
  412. -------------------------------------------------------------------------------
  413.  
  414. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  415. ;:           pcAnywhere File Transfer Demo Script              ::
  416. ;:                                                             ::
  417. ;:  You can put the name of this script file in AWREMOTE,      ::
  418. ;:  Host information list's 'Script to execute:' line.  It     ::
  419. ;:  will run this script on connect to the host in ANSI        ::
  420. ;:  emulation.  However, for this script to run properly, you  ::
  421. ;:  will need to use a Host information entry set for ANSI     ::
  422. ;:  terminal emulation at the Remote side, and a Caller        ::
  423. ;:  Information entry also configured for ANSI terminal        ::
  424. ;:  emulation at the Host side.  Please replace the password   ::
  425. ;:  variable to the name of your choice, but keep the ^M for   ::
  426. ;:  the carriage return.  Also replace the variable 'hostfile' ::
  427. ;:  with the file name you wish to transfer from the host to   ::
  428. ;:  the remote.                                                ::
  429. ;:                                                             ::
  430. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  431.  
  432.  
  433. ;::::::Variable Declaration::::::
  434.  
  435. STRING password[10] 
  436. password="test^M"
  437.  
  438. ;::::::::::::::::::::::::::::::::
  439.  
  440. ON CANCEL GOTO _cancel                    ;Sets error traping.
  441. SET CANCEL ON                             ;Turn error traping on.
  442.  
  443. SET PROTOCOL XMODEM                       ;Sets transfer protocol to XMODEM.
  444.  
  445. TYPE STRING "Waiting for host...  "       ;Displays message to remote user.
  446. WAIT STRING "<enter>..."                  ;Waits for text in quotes from host.
  447. WAIT 1                                    ;Waits 1 second.
  448. SEND STRING "^M"                          ;Sends carriage return.
  449. WAIT STRING "password:"                   ;Waits for text in quotes from host.
  450. WAIT 1                                    ;Waits 1 second.
  451. TYPE STRING "^MSending password..."       ;Displays message to remote user.
  452. SEND STRING password                      ;Sends password variable.
  453. WAIT STRING ">"                           ;Waits for host prompt.
  454. WAIT 1                                    ;Waits 1 second.
  455.  
  456. TYPE STRING "^MInitiating File Transfer"  ;Displays message to remote user.
  457. SEND STRING "AWSEND hostfile TO REMOTE^M" ;Sends AWSEND routine to pcA host.
  458. WAIT 5                                    ;Waits 5 seconds.
  459. TYPE STRING "^MFile Transfer In Progress" ;Displays message to remote user.
  460. RECEIVE FILE hostfile                     ;Command to receive file on remote.
  461. TYPE STRING "^MEnd of File Transfer     " ;Displays message to remote user.
  462. GOTO _end                                 ;Jump to other location in script.
  463.  
  464. _cancel:                                  ;Script label.
  465. TYPE STRING "^MSession Cancelled.       " ;Displays error message to remote.
  466.  
  467. _end:                                     ;Script label.
  468. HANG                                      ;Disconnect line, end session.
  469. ===============================================================================
  470.  
  471. -------------------------------------------------------------------------------
  472.                BBS Login Demonstration Script / SDEMO2.SCR
  473. -------------------------------------------------------------------------------
  474.  
  475. ;:::::::::::::Information::::::::::::::  ::::::::::::BBS Numbers::::::::::::       SDEMO2.SCR
  476. ;:This is a small script showing an  ::  ::    2400    (408) 973-9598     ::
  477. ;:example of how to log into the     ::  ::    9600    (408) 973-9834     ::
  478. ;:Symantec BBS automatically.        ::  ::                               ::
  479. ;:You must edit your own Host Info & ::  ::                               ::
  480. ;:hardware configurations before this::  ::                               ::
  481. ;:setup can work.  Please set your   ::  :: Once online, please use your  ::
  482. ;:terminal emulation to ANSI in your ::  :: hot key to access Terminal    ::
  483. ;:host information for Sym BBS.      ::  :: Options.                      ::
  484. ;:                                   ::  ::                               ::
  485. ;::::::::::::::::::::::::::::::::::::::  :::::::::::::::::::::::::::::::::::
  486.  
  487. ;:::::::::VARIABLE DECLARATION:::::::::
  488. STRING passname[24]                   ;Declares the use of named string(s) 
  489. STRING password[24]                   ;with character capacity bracketted.
  490. STRING cr[1]                          ;
  491. ;::::::::::::::::::::::::::::::::::::::
  492.  
  493. ;:::::::::::::SETUP SPECS::::::::::::::
  494. KEYBOARD FLUSH                        ;flush all keystrokes in buffer.
  495. CURSOR OFF                            ;turns cursor off.
  496.  
  497.  
  498. ;:::::::::::Greeting Menu::::::::::::::
  499. WINDOW OPEN greet1 5 1 80 15 3 2
  500. CURSOR POSITION 2 24
  501. TYPE "The Norton pcANYWHERE Script Demo"
  502. CURSOR POSITION 6 4
  503. TYPE "Symantec and The Norton pcANYWHERE are trademarks of Symantec Corporation."
  504. CURSOR POSITION 7 6
  505. TYPE "Other brands and products are trademarks of their respective holders."
  506. CURSOR POSITION 8 16
  507. TYPE "(C) 1992 Symantec Corporation.  All rights reserved."
  508. CURSOR POSITION 13 23
  509. TYPE "Please press <RETURN> to continue....."
  510.  
  511. HITKEY1:                              ;Lable.
  512. INPUT KEY cr[1]                       ;Waits for one character input for Keyboard.
  513. IF ($RESULT==13) GOTO KEYHIT1         ;Checks to see if input was a <RETURN>.  If result is true continue to label KEYHIT1.
  514. BEEP                                  ;Beep if incorrect.
  515. GOTO HITKEY1                          ;Return to HITKEY1 because value was false.
  516.  
  517. KEYHIT1:                              ;Lable.
  518. WINDOW CLOSE greet1                   ;Close window GREET1, from above.
  519.  
  520.  
  521. ;::::::::::::Symantec BBS::::::::::::::
  522. WINDOW OPEN option2 1 37 43 10 12 2   ;Opens new window call OPTION2. 
  523. TYPE "Please enter the following information:"
  524. CURSOR POSITION 4 2                   ;Changes cursor position within current window.
  525. TYPE "Type 'NEW' for new users & no password:";Screen information. 
  526. CURSOR POSITION 6 2                   ;Changes cursor position within current window.
  527. TYPE "Login Name: "                   ;Screen information.
  528. INPUT passname[24]                    ;Wait for keyboard input and <RETURN>.
  529. CURSOR POSITION 8 2                   ;Changes cursor position within current window.
  530. TYPE "Password  : "                   ;Screen information.
  531. INPUT password[24]                    ;Wait for keyboard input and <RETURN>.
  532.  
  533. ;:::::::::Dialing Sequence:::::::::::::                                                                                 
  534. DIALOUT:                              ;Label
  535. WINDOW CLOSE option2                  ;Close window GREET1, from above.
  536. LOAD CONFIG "COM 1:  Telebit T1600 (Fixed)";Loads modem configuration.
  537. DIAL HOST "Symantec BBS / 38400"      ;Dials host, based on Host Information in AWREMOTE.
  538. WAIT CARRIER                          ;Waits for Data Carrier Detect (DCD).
  539. RESET                                 ;Refreshes screen, like in Sessions Options.
  540. WAIT 5                                ;Waits for 5 seconds, gives time for host to send information.
  541. SEND LINE passname[24]                ;Sends passname string with <RETURN>.
  542. IF (password=="") GOTO skip            ;Checks password for input.
  543. SEND LINE password[24]                ;Sends password string with <RETURN>.
  544. SKIP:                                 ;Label.
  545. END TERMINAL                          ;Releases terminal mode to remote user.
  546.  
  547. _______________________________________________________________________________
  548. SYMANTEC has a number of other useful documents available through this BBS.