home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / HST20.ZIP / HST20.SCR < prev    next >
Encoding:
Text File  |  1989-02-06  |  32.0 KB  |  1,325 lines
  1. ;HST Service Script, release 2.0, production release
  2. ;(c) Copyright Dan Moore 1987,1988,1989
  3. ;
  4. STRING QMBS WAIT1 FUNC MENU CMDSW
  5. ASSIGN WAIT1 "6000"
  6. ASSIGN CMDSW "0"
  7. IF "$0" <> "" MCMDFILE
  8. ASSIGN 0 AUTOEXEC
  9. EXIST $SCPATH$0.HSF MCMDFILE
  10. GOTO FIRST
  11. ;
  12. MCMDFILE:
  13. CLRSCR
  14. FLUSH ALL
  15. EXIST $SCPATH$0.HSF SCRIPTOK
  16. DISPLAYLN "HST Command file $0.HSF not found."
  17. IF "$CMDSW" = "1" MCMDOK
  18. DISPLAYLN "HST20 script terminated due to above error."
  19. EXIT
  20. MCMDOK:
  21. DISPLAYLN "Press [ENTER] to return to menu."
  22. GOTOXY 1,4
  23. GET 0 1
  24. GOTO GETFUNC2
  25. ;
  26. SCRIPTOK:
  27. DISPLAYLN "HST20 - Processing modem command file $0.HSF"
  28. DISPLAYLN " "
  29. OPENFILE $SCPATH$0.HSF READ
  30. READCMD:
  31. READFILE 1
  32. IF "$1" = "_EOF_" ENDFILE
  33. IF "$1" = "@PROMPT" ASKPRMPT
  34. IF "$1" = "@CLRSCR" ERASCR
  35. IF "$1" = "@CMD" EXECCMD
  36. IF "$1" = "" READCMD
  37. GOTO SENDCMD
  38. EXECCMD:
  39. READFILE 1
  40. $1
  41. GOTO READCMD
  42. ;
  43. ERASCR:
  44. CLRSCR
  45. GOTOXY 1,1
  46. GOTO READCMD
  47. ASKPRMPT:
  48. DISPLAYLN " "
  49. DISPLAYLN "Press <Enter> to continue command file processing."
  50. GET 2 1
  51. GOTO READCMD
  52. SENDCMD:
  53. DISPLAYLN "Modem command:"
  54. DISPLAYLN " "
  55. DISPLAYLN "$1"
  56. SEND "$1^M"
  57. DISPLAYLN " "
  58. DISPLAYLN "Modem response"
  59. TIMEOUT 5 NOMODEM
  60. WAITFOR "OK^M"
  61. DISPLAYLN " "
  62. GOTO READCMD
  63. ENDFILE:
  64. DISPLAYLN " "
  65. DISPLAYLN "HST20 - Processing of command file $0.HSF complete"
  66. CLOSEFILE
  67. IF "$CMDSW" = "1" GETFUNC
  68. DISPLAYLN " "
  69. DISPLAYLN "HST20 - Script terminated successfully"
  70. DISPLAYLN "HST20 - Returning to Qmodem terminal mode"
  71. EXIT
  72.  
  73. NOMODEM:
  74. DISPLAYLN "Modem timeout.  Script terminated."
  75. EXIT
  76.  
  77. FIRST:
  78. FLUSH ALL
  79. GETSCR
  80. CLRSCR
  81. ASSIGN 5 000
  82. IF $ONLINE NOGOOD
  83. TIMEOUT 10 NOTUSR
  84.  
  85. FLUSH ALL
  86. NOTE HST20 Script - Testing for HST Modem and ROM Release level....
  87. WHEN "961" ROM961
  88. WHEN "963" ROM963
  89. WHEN "964" ROM964
  90. SEND "ATI0^M"
  91. WAITFOR "OK"
  92.  
  93. CLRSCR
  94. GOTO USROK
  95.  
  96. NOTUSR:
  97. CLRSCR
  98. DISPLAYLN "Sorry, your modem is not a USRobotics Courier HST or"
  99. DISPLAYLN "the ROM level is higher than 964 or lower than 961."
  100. DISPLAYLN "HST Service Script terminated due to above error."
  101. PAUSE 2000
  102. GOTO GETOUT
  103.  
  104. ROM961:
  105. ASSIGN 5 961
  106. GOTO USROK
  107. ROM963:
  108. ASSIGN 5 963
  109. GOTO USROK
  110. ROM964:
  111. ASSIGN 5 964
  112. GOTO USROK
  113.  
  114. NORESP:
  115. CLRSCR
  116. DISPLAYLN "WAITFOR timeout: expected response not received after 20 seconds"
  117. DISPLAYLN "Script terminated due to error...."
  118. GOTO GETOUT
  119.  
  120.  
  121. CONTINUE:
  122. WHEN
  123. GOTOXY 19,24
  124. DISPLAY "Press (Enter) to return to function menu......"
  125. FLUSH ALL
  126. GOTOXY 1,1
  127. GET 1 1
  128.  
  129. GETFUNC:
  130. PUTSCR
  131. GETSCR
  132. FLUSH ALL
  133. GOTOXY 57,19
  134. GET FUNC 2
  135. IF "$FUNC" = "1" ROMLEVEL
  136. IF "$FUNC" = "2" CKSUM
  137. IF "$FUNC" = "3" RAMTEST
  138. IF "$FUNC" = "4" CURSET
  139. IF "$FUNC" = "5" NRAM
  140. IF "$FUNC" = "6" INTCLOCK
  141. IF "$FUNC" = "7" DISPFONE
  142. IF "$FUNC" = "8" BASHELP
  143. IF "$FUNC" = "9" EXTHELP
  144. IF "$FUNC" = "10" DIALHELP
  145. IF "$FUNC" = "11" SETSREG
  146. IF "$FUNC" = "12" SWITHELP
  147. IF "$FUNC" = "13" INTEST
  148. IF "$FUNC" = "14" ANLOOP
  149. IF "$FUNC" = "15" FREQTEST
  150. IF "$FUNC" = "16" DATAMODE
  151. IF "$FUNC" = "17" SETDEF
  152. IF "$FUNC" = "18" WRTNRAM
  153. IF "$FUNC" = "19" FONEDIAL
  154. IF "$FUNC" = "20" LINKDIAG
  155. IF "$FUNC" = "21" S13REG
  156. IF "$FUNC" = "CF" CMDFILE
  157. IF "$FUNC" = "cf" CMDFILE
  158. IF "$FUNC" = "AD" ADVANCED
  159. IF "$FUNC" = "ad" ADVANCED
  160. IF "$FUNC" = "QM" QMDMDEF
  161. IF "$FUNC" = "qm" QMDMDEF
  162. IF "$FUNC" = "99" GETOUT
  163. IF "$FUNC" > "49" CKMENU
  164. BEEP 400
  165. GOTO GETFUNC
  166.  
  167. CMDFILE:
  168. CLRSCR
  169. DISPLAYLN "Type filename ONLY of modem command file and [ENTER]"
  170. DISPLAYLN " "
  171. DISPLAYLN "File extension .HSF is assumed and must not be included."
  172. DISPLAYLN "The file must be located in your script directory...."
  173. GOTOXY 1,6
  174. GET 0 12
  175. ASSIGN CMDSW "1"
  176. GOTO MCMDFILE
  177.  
  178. CKMENU:
  179. IF "$MENU" = "2" ADVFUNC
  180. BEEP 400
  181. GOTO GETFUNC
  182.  
  183. ADVFUNC:
  184. IF "$FUNC" = "50" DISCOMP
  185. IF "$FUNC" = "51" AUTOCOMP
  186. IF "$FUNC" = "52" ENACOMP
  187. IF "$FUNC" = "53" S15REG
  188. IF "$FUNC" = "54" NEWRATE
  189. IF "$FUNC" = "55" MODINQ
  190. IF "$FUNC" = "98" MAINMENU
  191. BEEP 400
  192. GOTO GETFUNC
  193.  
  194. MAINMENU:
  195. PUTSCR
  196. ASSIGN MENU "1"
  197. GOTO GETFUNC
  198.  
  199. TOOLONG:
  200. CLRSCR
  201. NOTE DATA NOT RECEIVED AFTER SPECIFIED TIMEOUT - ERROR
  202. PAUSE 3000
  203. GETOUT:
  204. PUTSCR
  205. CLRSCR
  206. GOTOXY 1,1
  207. DISPLAYLN "USR HST SERVICE SCRIPT - EXIT"
  208. DISPLAYLN " "
  209. DISPLAYLN "The HST20 script sets your serial port to 2400-N-8-1 during"
  210. DISPLAYLN "its operation and resets these parameters to 19200-N-8-1"
  211. DISPLAYLN "prior to exit. If your default COM parameters are different,"
  212. DISPLAYLN "Use the QMODEM Alt-P command to restore the desired COM "
  213. DISPLAYLN "parameters before going back online."
  214. DISPLAYLN " "
  215. DISPLAYLN "Thanks for using HST20 and QModem 4.0.  Have a nice day."
  216. GOTOXY 24,23
  217. DISPLAYLN "Press <Enter> to return to Qmodem"
  218. GOTOXY 1,1
  219. GET 0 1
  220. SETCOMM FJLM
  221. TURNOFF ECHO
  222. EXIT
  223.  
  224.  
  225. FONEDIAL:
  226. CLRSCR
  227. DISPLAYLN "(T) for tone, (P) for pulse dialing and (Enter)..."
  228. GOTOXY 1,3
  229. GET 0 1
  230. IF "$0" = "t" TONE
  231. IF "$0" = "T" TONE
  232. IF "$0" = "P" PULSE 
  233. IF "$0" = "p" PULSE
  234. BEEP 450
  235. GOTO FONEDIAL
  236.  
  237. TONE:
  238. ASSIGN 0 "ATDT"
  239. GOTO DIALER
  240.  
  241. PULSE:
  242. ASSIGN 0 "ATDP"
  243.  
  244. DIALER:
  245. GOTOXY 1,6
  246. DISPLAYLN "Type desired telephone number and (Enter)"
  247. GOTOXY 1,8
  248. GET 1 25
  249. GOTOXY 1,10
  250. HANGUP
  251. DISPLAYLN "Dialing and exitting script......."
  252. SEND "$0$1^M"
  253. GOTO GETOUT
  254.  
  255. ROMLEVEL:
  256. CLRSCR
  257. DISPLAYLN "USR HST ROM LEVEL DISPLAY -- ATI0"
  258. SEND "ATI0^M"
  259. TIMEOUT 10 TOOLONG
  260. WAITFOR "OK"
  261. GOTO CONTINUE
  262.  
  263. CKSUM:
  264. CLRSCR
  265. DISPLAYLN "USR HST MEMORY CHECKSUM (ROM) DISPLAY -- ATI1"
  266. SEND "ATI1^M"
  267. TIMEOUT 10 TOOLONG
  268. WAITFOR "OK"
  269. GOTO CONTINUE
  270.  
  271. RAMTEST:
  272. CLRSCR
  273. DISPLAYLN "USR HST RAM MEMORY TEST -- ATI2"
  274. SEND "ATI2^M"
  275. TIMEOUT 10 TOOLONG
  276. WAITFOR "OK"
  277. GOTO CONTINUE
  278.  
  279. CURSET:
  280. CLRSCR
  281. DISPLAYLN "USR HST CURRENT MODEM SETTINGS -- ATI4"
  282. SEND "ATI4^M"
  283. TIMEOUT 10 TOOLONG
  284. WAITFOR "HOOK"
  285. TIMEOUT 10 TOOLONG
  286. WAITFOR "OK"
  287. GOTO CONTINUE
  288.  
  289.  
  290. NRAM:
  291. CLRSCR
  292. DISPLAYLN "USR HST NON-VOLATILE RAM SETTINGS -- ATI5"
  293. SEND "ATI5^M"
  294. TIMEOUT 10 TOOLONG
  295. WAITFOR "OK"
  296. GOTO CONTINUE
  297.  
  298. LINKDIAG:
  299. CLRSCR
  300. DISPLAYLN "USR HST lINK DIAGNOSTICS DISPLAY -- ATI6"
  301. SEND "ATI6^M"
  302. TIMEOUT 40 TOOLONG
  303. WAITFOR "OK"
  304. GOTO CONTINUE
  305.  
  306. INTCLOCK:
  307. CLRSCR
  308. DISPLAYLN "USR HST INTERNAL CLOCK DISPLAY -- ATI3"
  309. DISPLAYLN "Current modem clock value is:"
  310. SEND "ATI3^M"
  311. TIMEOUT 10 TOOLONG
  312. WAITFOR "OK"
  313. DISPLAYLN " "
  314. DISPLAYLN "Do you wish to set the modem clock (Y/N) "
  315. GET 0 1
  316. IF "$0" = "Y" SETCLOCK
  317. IF "$0" = "y" SETCLOCK
  318. GOTO CONTINUE
  319.  
  320. SETCLOCK:
  321. CLRSCR
  322. DISPLAYLN "USR HST INTERNAL CLOCK SETTING"
  323. GOTOXY 1,3
  324. DISPLAYLN "OPTION 1: Synchronize to system clock"
  325. DISPLAYLN "OPTION 2: Specify your own clock value"
  326.  
  327. ASKCLOCK:
  328. GOTOXY 1,6
  329. DISPLAY   "Type 1 or 2 and (Enter):  "
  330. GET 0 1
  331. IF "$0" = "1" SYSCLOCK
  332. IF "$0" = "2" USRCLOCK
  333. BEEP 450
  334. GOTO ASKCLOCK
  335.  
  336. SYSCLOCK:
  337. CLRSCR
  338. DISPLAYLN "SYNCHRONIZING MODEM CLOCK TO SYSTEM CLOCK"
  339. GOTOXY 1,3
  340. DISPLAYLN "Current system clock is $TIME"
  341. TIMEOUT 10 TOOLONG
  342. SEND "ATK1^M"
  343. WAITFOR "OK"
  344. DISPLAYLN " "
  345. ASSIGN 0 "K1"
  346. TIMEOUT 10 TOOLONG
  347. SEND "ATI3=$TIME$0^M"
  348. WAITFOR "OK"
  349.  
  350. SHOWTIME:
  351. GOTOXY 1,12
  352. DISPLAYLN "Modem Internal clock value is now:"
  353. SEND "ATI3^M"
  354. TIMEOUT 10 TOOLONG
  355. WAITFOR "OK"
  356. GOTO CONTINUE
  357.  
  358. USRCLOCK:
  359. CLRSCR
  360. DISPLAYLN "MANUAL SETTING OF USR HST INTERNAL CLOCK"
  361. GOTOXY 1,3
  362. DISPLAYLN "WARNING: The script does not validate the clock value;"
  363. DISPLAYLN "         an incorrect clock value will return an error."
  364. GOTOXY 1,7
  365. DISPLAY  "Type a clock value in HH:MM:SS format and  (Enter): "
  366. GET 1 8
  367. ASSIGN 0 "K1"
  368. DISPLAYLN " "
  369. SEND "ATK1^M"
  370. TIMEOUT 10 TOOLONG
  371. WAITFOR "OK"
  372. SEND "ATI3=$1$0^M"
  373. TIMEOUT 10 TOOLONG
  374. WAITFOR "OK"
  375. GOTO SHOWTIME
  376.  
  377. SETSREG:
  378. CLRSCR
  379. DISPLAYLN "SET HST S-REGISTER(S)"
  380. TIMEOUT 10 TOOLONG
  381. SEND "ATS$$^M"
  382. WAITFOR "OK"
  383.  
  384. ASKREG:
  385. GOTOXY 1,18
  386. DISPLAYLN "Enter register you want to set (0-13,16-17,19-23) <Enter>=None:    "
  387. GOTOXY 65,18
  388. GET 1 2
  389. IF "$1" = "" CONTINUE
  390. IF "$1" > "23" BADREG
  391. IF "$1" = "14" BADREG
  392. IF "$1" = "15" BADREG
  393. IF "$1" = "18" BADREG
  394. GOTO DISPREG
  395.  
  396. BADREG:
  397. BEEP 400
  398. GOTO ASKREG
  399.  
  400. DISPREG:
  401. CLRSCR
  402. DISPLAYLN "Current value of register S$1:"
  403. SEND "ATS$1?^M"
  404. TIMEOUT 10 TOOLONG
  405. WAITFOR "OK"
  406.  
  407. ASKSET:
  408. GOTOXY 1,8
  409. DISPLAYLN "Type new S$1 register value or (Enter) to leave as is: "
  410. GET 0 3
  411. IF "$0" = "" CONTINUE
  412. IF "$0" < "0"  BADSET
  413. IF "$0" > "255" BADSET
  414. SEND "ATS$1=$0^M"
  415. TIMEOUT 10 TOOLONG
  416. WAITFOR "OK"
  417. GOTOXY 1,15
  418. DISPLAYLN "New S$1 register value returned by modem is:"
  419. SEND "ATS$1?^M"
  420. TIMEOUT 10 TOOLONG
  421. WAITFOR "OK"
  422. GOTO CONTINUE
  423.  
  424. BADSET:
  425. BEEP 400
  426. GOTO ASKSET
  427.  
  428. SETDEF:
  429. CLRSCR
  430. DISPLAYLN "Resetting the NRAM defaults may erase changes made to the modem"
  431. DISPLAYLN "operational parameters or S-Registers if these changes were not"
  432. DISPLAYLN "copied to NRAM."
  433. DISPLAYLN "Do you wish to continue (Y/N):  "
  434. GOTOXY 31,4
  435. GET 0 1
  436. IF "$0" = "Y" RESETDEF
  437. IF "$0" = "y" RESETDEF
  438. IF "$0" = "N" CONTINUE
  439. IF "$0" = "n" CONTINUE
  440. BEEP 400
  441. GOTO SETDEF
  442.  
  443. RESETDEF:
  444. SEND "ATZ^M"
  445. TIMEOUT 10 TOOLONG
  446. WAITFOR "OK"
  447. GOTO CONTINUE
  448.  
  449. BASHELP:
  450. CLRSCR
  451. SEND "AT$$^M"
  452. TIMEOUT 10 TOOLONG
  453. WAITFOR "Hook"
  454. WAITFOR "Hook"
  455. WAITFOR "OK"
  456. GOTO CONTINUE
  457.  
  458. EXTHELP:
  459. CLRSCR
  460. SEND "AT&$$^M"
  461. TIMEOUT 30 TOOLONG
  462. WAITFOR "OK"
  463. GOTO CONTINUE
  464.  
  465. DIALHELP:
  466. CLRSCR
  467. SEND "ATD$$^M"
  468. TIMEOUT 30 TOOLONG
  469. WAITFOR "Hook"
  470. WAITFOR "OK"
  471. GOTO CONTINUE
  472.  
  473. SREGHELP:
  474. CLRSCR
  475. SEND "ATS$$^M"
  476. TIMEOUT 30 TOOLONG
  477. WAITFOR "OK"
  478. GOTO CONTINUE
  479.  
  480. SWITHELP:
  481. CLRSCR
  482. DISPLAYLN "HST DIP SWITCH HELP SCREEN"
  483. DISPLAYLN " "
  484. DISPLAYLN "    ▄  ▄   "
  485. DISPLAYLN "   ┌──────┐┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐"
  486. DISPLAYLN " UP│██████││ │█│ │█│ │ │█│ │ │█│   FACTORY"
  487. DISPLAYLN " DN│      ││█│ │█│ │█│█│ │█│█│ │   SETTINGS"
  488. DISPLAYLN "   └──────┘└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  489. DISPLAYLN "      ▀  ▀  1 2 3 4 5 6 7 8 9 10"
  490. DISPLAYLN " "
  491. NOTE  Sw#         Description                 Sw#           Description
  492. NOTE  ------------------------------------------------------------------------
  493. NOTE   1...Data Terminal Ready Override        6...Carrier Detect Override
  494. NOTE       UP=DTR Normal  DN=DTR always ON         UP=Pin 8     DN=Always ON
  495. NOTE   2...Verbal/Numeric Result Codes         7...Single/Multiple Phone
  496. NOTE       UP=Verbal      DN=Numeric               UP=Single    DN=Multiple
  497. NOTE   3...Result Code Display                 8...Command Set Recognition
  498. NOTE       UP=No Display  DN=Display               UP=Dumb Mode DN=Smart Mode
  499. NOTE   4...Command Mode Local Echo             9...Normal Mode Escape Code op.
  500. NOTE       UP=Echo        DN=No Echo               UP=Hang Up   DN=Keep Connect
  501. NOTE   5...Auto Answer                        10...Power-on Software Defaults
  502. NOTE       UP=AA 1st ring DN=No AA                 UP=Use NRAM  DN=Use ROM
  503. NOTE
  504. NOTE   Quad Switch: Send/Receive UP=Pin2 Xmit/Pin3 Rcv DN=Pin2 Rcv/Pin3 Xmit
  505. GOTO CONTINUE
  506.  
  507. DISPFONE:
  508. CLRSCR
  509. DISPLAYLN "RAM-STORED NUMBERS (BLANK INDICATES NO NUMBER STORED)"
  510. GOTOXY  1,3
  511. FLUSH ALL
  512. SEND "AT&Z0?^M"
  513. GETX 0 36 "^M"
  514. ;DISPLAYLN "[$0]"
  515. GETX 0 36 "^M"
  516. ;DISPLAYLN "[$0]"
  517. GETX 0 36 "^M"
  518. ;DISPLAYLN "[$0]"
  519. GETX 9 36 "^M"
  520. ;DISPLAYLN "[$9]"
  521. GETX 9 36 "^M"
  522. ;DISPLAYLN "[$9]"
  523. DISPLAYLN "         "
  524.  
  525. FLUSH ALL
  526. SEND "AT&Z1?^M"
  527. GETX 1 36 "^M"
  528. ;DISPLAYLN "[$1]"
  529. GETX 1 36 "^M"
  530. ;DISPLAYLN "[$1]"
  531. GETX 1 36 "^M"
  532. ;DISPLAYLN "[$1]"
  533. GETX 9 36 "^M"
  534. ;DISPLAYLN "[$9]"
  535. GETX 9 36 "^M"
  536. ;DISPLAYLN "[$9]"
  537. DISPLAYLN "         "
  538.  
  539. FLUSH ALL
  540. SEND "AT&Z2?^M"
  541. GETX 2 36 "^M"
  542. ;DISPLAYLN "[$2]"
  543. GETX 2 36 "^M"
  544. ;DISPLAYLN "[$2]"
  545. GETX 2 36 "^M"
  546. ;DISPLAYLN "[$2]"
  547. GETX 9 36 "^M"
  548. ;DISPLAYLN "[$9]"
  549. GETX 9 36 "^M"
  550. ;DISPLAYLN "[$9]"
  551. DISPLAYLN "         "
  552.  
  553. FLUSH ALL
  554. SEND "AT&Z3?^M"
  555. GETX 3 36 "^M"
  556. ;DISPLAYLN "[$2]"
  557. GETX 3 36 "^M"
  558. ;DISPLAYLN "[$2]"
  559. GETX 3 36 "^M"
  560. ;DISPLAYLN "[$2]"
  561. GETX 9 36 "^M"
  562. ;DISPLAYLN "[$9]"
  563. GETX 9 36 "^M"
  564. ;DISPLAYLN "[$9]"
  565. DISPLAYLN "         "
  566.  
  567. ;GOTOXY  1,3
  568.  
  569. DISPLAYLN "NUMBER 0:  $0"
  570. DISPLAYLN "NUMBER 1:  $1"
  571. DISPLAYLN "NUMBER 2:  $2"
  572. DISPLAYLN "NUMBER 3:  $3"
  573.  
  574. ASKNUM:
  575. GOTOXY  1,16
  576. DISPLAY "Number to change (0-3) or (Enter) to leave unchanged:   "
  577. GOTOXY  54,16
  578. GET 0 1
  579. IF "$0" = "" CONTINUE
  580. IF "$0" < "0" ASKNUM
  581. IF "$0" > "3" ASKNUM
  582. GOTOXY  1,18
  583. DISPLAY "Enter new number (36 pos.max.) ...................................."
  584. GOTOXY  32,18
  585. GET 1 36
  586. SEND    "AT&Z$0=$1^M"
  587. GOTOXY  1,22
  588. DISPLAYLN "New number has been stored in RAM at position $0"
  589. delay 2000
  590. GOTO DISPFONE
  591.  
  592.  
  593. WRTNRAM:
  594. CLRSCR
  595. DISPLAYLN "WRITING CHANGES TO NRAM MAY CHANGE YOUR POWER-UP MODEM DEFAULTS."
  596.  
  597. ASKREW:
  598. GOTOXY 1,3
  599. DISPLAYLN "Do you wish to continue (Y/N):  "
  600. GOTOXY 31,3
  601. GET 0 1
  602. IF "$0" = "Y" REWRTRAM
  603. IF "$0" = "y" REWRTRAM
  604. IF "$0" = "N" CONTINUE
  605. IF "$0" = "n" CONTINUE
  606. BEEP 400
  607. GOTO ASKREW
  608.  
  609. REWRTRAM:
  610. SEND "AT&W^M"
  611. TIMEOUT 10 TOOLONG
  612. WAITFOR "OK"
  613. GOTO NRAM
  614.  
  615. INTEST:
  616. CLRSCR
  617. DISPLAYLN "PC/MODEM INTERFACE TEST: If the Modem/PC Interface is functional,"
  618. DISPLAYLN "the modem will respond with 'OK'..."
  619. PAUSE $WAIT1
  620. SEND "AT^M"
  621. TIMEOUT 10 TOOLONG
  622. WAITFOR "OK"
  623. GOTO CONTINUE
  624.  
  625. ANLOOP:
  626. CLRSCR
  627. DISPLAYLN "ANALOG LOOPBACK SELF-TEST OF THE HST MODEM:  The HST will"
  628. DISPLAYLN "modulate and demodulate its own internal test pattern and return"
  629. DISPLAYLN "the pattern to the screen.  The first step, upon success, will"
  630. DISPLAYLN "display 'CONNECT 2400'.  The second step will display 'NO CARRIER'"
  631. DISPLAYLN " "
  632. SEND "AT&M0S16=5D^M"
  633. TIMEOUT 20 TOOLONG
  634. WAITFOR "CONNECT 2400"
  635. PAUSE 3000
  636. SEND "X"
  637. TIMEOUT 20 TOOLONG
  638. WAITFOR "NO CARRIER"
  639. DISPLAYLN " "
  640. SEND "AT&M4S16=0^M"
  641. TIMEOUT 20 TOOLONG
  642. WAITFOR "OK"
  643. GOTO CONTINUE
  644.  
  645.  
  646. FREQTEST:
  647. CLRSCR
  648. DISPLAYLN "EXERCISING THE ANSWER FREQUENCY OF THE HST.  In a stand-alone mode,"
  649. DISPLAYLN "the modem will return a 'NO CARRIER' response to this command."
  650. SEND "AT&MOS16=5A^M"
  651. TIMEOUT 20 TOOLONG
  652. WAITFOR "NO CARRIER"
  653. DISPLAYLN " "
  654. SEND "AT&M4S16=0^M"
  655. TIMEOUT 20 TOOLONG
  656. WAITFOR "OK"
  657. GOTO CONTINUE
  658.  
  659. DATAMODE:
  660. CLRSCR
  661. DISPLAYLN "RESET STANDARD HST DATA MODE.  This function will reset the HST"
  662. DISPLAYLN "modem error control and data mode defaults for normal operation."
  663. DISPLAYLN " "
  664. SEND "AT&M4S16=0^M"
  665. TIMEOUT 20 TOOLONG
  666. WAITFOR "OK"
  667. GOTO CONTINUE
  668.  
  669.  
  670. QMDMDEF:
  671. ASSIGN QMBS "0"
  672. FLUSH ALL
  673. CLRSCR
  674. DISPLAYLN "MODEM SWITCH SETTINGS FOR QMODEM 4.0 ORIGINATE OPERATIONS"
  675. DISPLAYLN " "
  676. DISPLAYLN "    ▄  ▄   "
  677. DISPLAYLN "   ┌──────┐┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐"
  678. DISPLAYLN " UP│██████││█│█│ │ │ │█│█│ │ │█│"
  679. DISPLAYLN " DN│      ││ │ │█│█│█│ │ │█│█│ │"
  680. DISPLAYLN "   └──────┘└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  681. DISPLAYLN "      ▀  ▀  1 2 3 4 5 6 7 8 9 10"
  682. DISPLAYLN " "
  683. DISPLAYLN "Note: Do NOT change the modem's switch settings at this time. "
  684. DISPLAYLN "      Once the script is terminated and all internal parameters "
  685. DISPLAYLN "      have been set and written to non-volatile RAM (NRAM), "
  686. DISPLAYLN "      terminate Qmodem via the Alt-X-Y command, power off the"
  687. DISPLAYLN "      HST modem, set the switches to match the diagram above,"
  688. DISPLAYLN "      and power the modem back on.  The new switch settings"
  689. DISPLAYLN "      will go into effect at that time."
  690. DISPLAYLN " "
  691. DISPLAYLN "Press <Enter> to continue with other modem parameters"
  692. GET 1 1
  693. CLRSCR
  694. DISPLAYLN "This function will set all modem operational parameters and"
  695. DISPLAYLN "S-Registers to their optimum values for 19200 bps operation"
  696. DISPLAYLN "when using Qmodem SST 4.0 in originate mode.
  697.  
  698. REJOIN:
  699. DISPLAYLN " "
  700. DISPLAYLN "You May chose the 'FAST' method which will set all parameters"
  701. DISPLAYLN "at once without any accompanying display, or the 'SLOW' method"
  702. DISPLAYLN "which walks you throught the process one parameter at a time."
  703. DISPLAYLN "The SLOW method may take a couple minutes to complete."
  704. DISPLAYLN " "
  705. DISPLAY   "Type 'F' for FAST method, 'S' for SLOW, (null) to cancel request."
  706. ASKFAST1:
  707. GOTOXY 1,13
  708. GET 0 1
  709. IF "$0" = "" CONTINUE
  710. IF "$0" = "f" FASTSET1
  711. IF "$0" = "F" FASTSET1
  712. IF "$0" = "S" SLOWSET1
  713. IF "$0" = "s" SLOWSET1
  714. BEEP 400
  715. GOTO ASKFAST1
  716.  
  717. SLOWSET1:
  718. CLRSCR
  719. DISPLAYLN "SET TRANSMITTER ENABLED : ATC1"
  720. SEND "ATC1^M"
  721. TIMEOUT 10 TOOLONG
  722. WAITFOR "OK"
  723. PAUSE 1000
  724. CLRSCR
  725. DISPLAYLN "SET COMMAND MODE ECHO OFF: ATE0"
  726. SEND "ATE0^M"
  727. WAITFOR "OK"
  728. PAUSE 1000
  729. CLRSCR
  730. DISPLAYLN "SET LOCAL ECHO OFF AFTER CONNECT: ATF1"
  731. SEND "ATF1^M"
  732. WAITFOR "OK"
  733. PAUSE 1000
  734. CLRSCR
  735. IF "$QMBS" = "1" SETM0
  736. DISPLAYLN "SET SPEAKER ON UNTIL CARRIER ESTABLISHED: ATM1"
  737. SEND "ATM1^M"
  738. WAITFOR "OK"
  739. PAUSE 1000
  740. GOTO SETQ
  741. SETM0:
  742. DISPLAYLN "DISABLE SPEAKER: ATM0"
  743. SEND "ATM0^M"
  744. WAITFOR "OK"
  745. PAUSE 1000
  746. SETQ:
  747. CLRSCR
  748. DISPLAYLN "SET QUIET MODE OFF-RESULT CODES DISPLAYED: ATQ0"
  749. SEND "ATQ0^M"
  750. WAITFOR "OK"
  751. PAUSE 1000
  752. CLRSCR
  753. DISPLAYLN "SET RESULTS TO VERBAL MODE: ATV1"
  754. SEND "ATV1^M"
  755. WAITFOR "OK"
  756. PAUSE 1000
  757. CLRSCR
  758. DISPLAYLN "SET EXTENDED RESULT CODE OPTION: ATX7"
  759. SEND "ATX7^M"
  760. WAITFOR "OK"
  761. PAUSE 1000
  762. CLRSCR
  763. DISPLAYLN "SET U.S. ANSWER SEQUENCE DEFAULT: ATB1"
  764. SEND "ATB1^M"
  765. WAITFOR "OK"
  766. PAUSE 1000
  767. CLRSCR
  768. DISPLAYLN "EXTENDED FUNCTION-ENABLE ARQ RESULT CODE: AT&A1"
  769. SEND "AT&A1^M"
  770. WAITFOR "OK"
  771. PAUSE 1000
  772. CLRSCR
  773. DISPLAYLN "EXTENDED FUNCTION-FIX DTE RATE: AT&B1"
  774. SEND "AT&B1^M"
  775. WAITFOR "OK"
  776. PAUSE 1000
  777. CLRSCR
  778. DISPLAYLN "EXTENDED FUNCTION-XMIT DATA CTS HARDWARE FLOW CONTROL: AT&H1"
  779. SEND "AT&H1^M"
  780. WAITFOR "OK"
  781. PAUSE 1000
  782. CLRSCR
  783. DISPLAYLN "EXTENDED FUNCTION-RCV DATA FLOW CONTROL DISABLED: AT&I0"
  784. SEND "AT&I0^M"
  785. WAITFOR "OK"
  786. PAUSE 1000
  787. IF "$5" < "964" NOCOMPRESS
  788. CLRSCR
  789. DISPLAYLN "EXTENDED FUNCTION (964)-DISABLE DATA COMPRESSION: AT&K0"
  790. SEND "AT&K0^M"
  791. WAITFOR "OK"
  792. PAUSE 1000
  793. CLRSCR
  794.  
  795. NOCOMPRESS:
  796. CLRSCR
  797. DISPLAYLN "EXTENDED FUNCTION-ERROR CONTROL MODE NORMAL/ARQ: AT&M4"
  798. SEND "AT&M4^M"
  799. WAITFOR "OK"
  800. PAUSE 1000
  801. CLRSCR
  802. DISPLAYLN "EXTENDED FUNCTION-DATA RATE SET TO NORMAL LINK OPERATIONS: AT&N0"
  803. SEND "AT&N0^M"
  804. WAITFOR "OK"
  805. PAUSE 1000
  806. CLRSCR
  807. DISPLAYLN "EXTENDED FUNCTION-SET PULSE DIAL MAKE/BREAK RATIO TO U.S.: AT&P0"
  808. SEND "AT&P0^M"
  809. WAITFOR "OK"
  810. PAUSE 1000
  811. CLRSCR
  812. DISPLAYLN "EXTENDED FUNCTION-RCV DATA FLOW CONTROL->PASS ON RTS HIGH: AT&R2"
  813. SEND "AT&R2^M"
  814. WAITFOR "OK"
  815. PAUSE 1000
  816. CLRSCR
  817. DISPLAYLN "EXTENDED FUNCTION-MODEM CONTROLS DATA SET READY LINE: AT&S1"
  818. SEND "AT&S1^M"
  819. WAITFOR "OK"
  820. PAUSE 1000
  821. CLRSCR
  822. DISPLAYLN "EXTENDED FUNCTION-SEND DESTRUCTIVE, EXPEDITED BREAKS: AT&Y1"
  823. SEND "AT&Y1^M"
  824. WAITFOR "OK"
  825. PAUSE 1000
  826. CLRSCR
  827. DISPLAYLN "S-REGISTER- DISABLE AUTO ANSWER: ATS0=0"
  828. SEND "ATS0=0^M"
  829. WAITFOR "OK"
  830. PAUSE 1000
  831. CLRSCR
  832. DISPLAYLN "S-REGISTER-RESET INCOMING RING COUNT TO ZERO: ATS1=0"
  833. SEND "ATS1=0^M"
  834. WAITFOR "OK"
  835. PAUSE 1000
  836. CLRSCR
  837. DISPLAYLN "S-REGISTER- SET ASCII ESCAPE CODE DEFAULT TO '+': ATS2=43"
  838. SEND "ATS2=43^M"
  839. WAITFOR "OK"
  840. PAUSE 1000
  841. CLRSCR
  842. DISPLAYLN "S-REGISTER- SET ASCII CARRIAGE RETURN TO 13: ATS3=13"
  843. SEND "ATS3=13^M"
  844. WAITFOR "OK"
  845. PAUSE 1000
  846. CLRSCR
  847. DISPLAYLN "S-REGISTER- SET ASCII LINE FEED TO 10: ATS4=10"
  848. SEND "ATS4=10^M"
  849. WAITFOR "OK"
  850. PAUSE 1000
  851. CLRSCR
  852. DISPLAYLN "S-REGISTER- SET ASCII BACKSPACE TO 8: ATS5=8"
  853. SEND "ATS5=8^M"
  854. WAITFOR "OK"
  855. PAUSE 1000
  856. CLRSCR
  857. DISPLAYLN "S-REGISTER- SET #SECONDS MODEM WAITS BEFORE DIALING T0 2: ATS6=2"
  858. SEND "ATS6=2^M"
  859. WAITFOR "OK"
  860. PAUSE 1000
  861. CLRSCR
  862. DISPLAYLN "S-REGISTER- SET #SECONDS MODEM WAITS FOR CARRIER TO 30: ATS7=30"
  863. SEND "ATS7=30^M"
  864. WAITFOR "OK"
  865. PAUSE 1000
  866. CLRSCR
  867. DISPLAYLN "S-REGISTER- SET DURATION OF PAUSE (,) TO 2/10TH SECOND: ATS8=2"
  868. SEND "ATS8=2^M"
  869. WAITFOR "OK"
  870. PAUSE 1000
  871. CLRSCR
  872. DISPLAYLN "S-REGISTER- REQUIRED DURATION OF REMOTE CARRIER 6/10TH SEC: ATS9=6"
  873. SEND "ATS9=6^M"
  874. WAITFOR "OK"
  875. PAUSE 1000
  876. CLRSCR
  877. DISPLAYLN "S-REGISTER- HANG UP 5 SEC AFTER LOSS OF CARRIER: ATS10=50"
  878. SEND "ATS10=50^M"
  879. WAITFOR "OK"
  880. PAUSE 1000
  881. CLRSCR
  882. DISPLAYLN "S-REGISTER- TOUCH-TONE DURATION AND SPACING IS 70 MILLISECS: ATS11=70"
  883. SEND "ATS11=70^M"
  884. WAITFOR "OK"
  885. PAUSE 1000
  886. CLRSCR
  887. DISPLAYLN "S-REGISTER- ESCAPE CODE SEQUENCE GUARD TIME IS 50 MICSSECS: ATS12=50"
  888. SEND "ATS12=50^M"
  889. WAITFOR "OK"
  890. PAUSE 1000
  891. CLRSCR
  892. DISPLAYLN "S-REGISTER- SET BIT-MAPPED REGISTER TO ZERO: ATS13=0"
  893. SEND "ATS13=0^M"
  894. WAITFOR "OK"
  895. PAUSE 1000
  896. CLRSCR
  897. DISPLAYLN "S-REGISTER- SET SELF-TEST REGISTER TO DATA MODE (NO TEST): ATS16=0"
  898. SEND "ATS16=0^M"
  899. WAITFOR "OK"
  900. PAUSE 1000
  901. CLRSCR
  902. DISPLAYLN "S-REGISTER- SET ARQ LINK DISCONNECT REASON REGISTER TO ZERO: ATS17=0"
  903. SEND "ATS17=0^M"
  904. WAITFOR "OK"
  905. PAUSE 1000
  906. CLRSCR
  907. DISPLAYLN "S-REGISTER- SET INACTIVITY TIMER TO ZERO (NO AUTO HANGUP): ATS19=0"
  908. SEND "ATS19=0^M"
  909. WAITFOR "OK"
  910. PAUSE 1000
  911. CLRSCR
  912. DISPLAYLN "S-REGISTER- SET NO CARRIER REASON CODE REGISTER TO ZERO: ATS20=0"
  913. SEND "ATS20=0^M"
  914. WAITFOR "OK"
  915. PAUSE 1000
  916. CLRSCR
  917. DISPLAYLN "S-REGISTER- SET LENGTH OF BREAKS TO 100 MILLISECONDS: ATS21=10"
  918. SEND "ATS21=10^M"
  919. WAITFOR "OK"
  920. PAUSE 1000
  921. CLRSCR
  922. DISPLAYLN "S-REGISTER- SET ASCII VALUE OF XON TO 17: ATS22=17"
  923. SEND "ATS22=17^M"
  924. WAITFOR "OK"
  925. PAUSE 1000
  926. CLRSCR
  927. DISPLAYLN "S-REGISTER- SET ASCII VALUE OF XOFF TO 19: ATS23=19"
  928. SEND "ATS23=19^M"
  929. WAITFOR "OK"
  930. PAUSE 1000
  931. GOTO WRITEPARMS
  932.  
  933. FASTSET1:
  934. CLRSCR
  935. DISPLAYLN "SENDING QMODEM SETUP PARAMETERS TO HST MODEM......."
  936. DISPLAYLN " "
  937. SEND "AT C1 E0 F1 M1 Q0 V1 X7 B1^M"
  938. TIMEOUT 10 TOOLONG
  939. WAITFOR "OK"
  940. PAUSE 1000
  941. SEND "AT &A1 &B1 &G0 &H1 &I0 ^M"
  942. WAITFOR "OK"
  943. PAUSE 1000
  944. SEND "AT $7 &M4 &N0 &P0 &R2 &S1 &Y1^M"
  945. WAITFOR "OK"
  946. PAUSE 1000
  947. SEND "AT S0=0 S1=0 S2=43 S3=13 ^M"
  948. WAITFOR "OK"
  949. PAUSE 1000
  950. SEND "AT S4=10 S5=8 S6=2 S7=60 S8=2 ^M"
  951. WAITFOR "OK"
  952. PAUSE 1000
  953. SEND "AT S9=6 S10=7 S11=70 S12=50 ^M"
  954. WAITFOR "OK"
  955. PAUSE 1000
  956. SEND "AT S13=0 S16=0 S17=0 ^M"
  957. WAITFOR "OK"
  958. PAUSE 1000
  959. SEND "AT S19=0 S20=0 S21=10 S22=17 S23=19^M"
  960. WAITFOR "OK"
  961. PAUSE 1000
  962. GOTO WRITEPARMS
  963.  
  964.  
  965. WRITEPARMS:
  966. CLRSCR
  967. DISPLAYLN "ALL DEFAULTS HAVE BEEN SET...."
  968. DISPLAYLN " "
  969. DISPLAYLN "Y to write defaults to NRAM"
  970. DISPLAYLN "N to cancel request"
  971.  
  972. ASKDEFYN:
  973. GOTOXY 1,5
  974. DISPLAYLN "Type Y/N and (Enter)   "
  975. GOTOXY 22,5
  976. GET 1 1
  977. IF "$1" = "Y" WRITEDEF
  978. IF "$1" = "y" WRITEDEF
  979. IF "$1" = "n" CONTINUE
  980. IF "$1" = "N" CONTINUE
  981. BEEP 400
  982. GOTO ASKDEFYN
  983.  
  984. WRITEDEF:
  985. SEND "AT&W^M"
  986. TIMEOUT 10 TOOLONG
  987. WAITFOR "OK"
  988. CLRSCR
  989. DISPLAYLN "If you changed switch settings 2,3,4,5 OR 9, a hardware reset"
  990. DISPLAYLN "must be performed for the new switch settings to go into effect."
  991. DISPLAYLN "(hardware reset can be done now or later via power-off/power-on)."
  992. DISPLAYLN " "
  993. DISPLAY "Do you wish a hardware reset to be performed now (Y/N):   "
  994.  
  995.  
  996. ASKRESET:
  997. GET 1 1
  998. IF "$1" = "Y" RESET
  999. IF "$1" = "y" RESET
  1000. IF "$1" = "n" CONTINUE
  1001. IF "$1" = "N" CONTINUE
  1002. BEEP 400
  1003. GOTO ASKRESET
  1004.  
  1005.  
  1006. RESET:
  1007. CLRSCR
  1008. DISPLAYLN "RESETTING HARDWARE TO NRAM AND NEW SWITCH SETTINGS"
  1009. SEND "ATZ^M"
  1010. TIMEOUT 10 TOOLONG
  1011. WAITFOR "OK"
  1012. GOTO CONTINUE
  1013.  
  1014. DISCOMP:
  1015. CLRSCR
  1016. DISPLAYLN "DISABLE MNP LEVEL 5 DATA COMPRESSION - AT&K0"
  1017. SEND "AT&K0^M"
  1018. TIMEOUT 10 TOOLONG
  1019. WAITFOR "OK"
  1020. GOTO CONTINUE
  1021.  
  1022. AUTOCOMP:
  1023. CLRSCR
  1024. DISPLAYLN "AUTO ENABLE/DISABLE MNP LEVEL 5 DATA COMPRESSION - AT&K1"
  1025. SEND "AT&K1^M"
  1026. TIMEOUT 10 TOOLONG
  1027. WAITFOR "OK"
  1028. GOTO CONTINUE
  1029.  
  1030. ENACOMP:
  1031. CLRSCR
  1032. DISPLAYLN "FORCE ENABLE MNP LEVEL 5 DATA COMPRESSION - AT&K2"
  1033. SEND "AT&K2^M"
  1034. TIMEOUT 10 TOOLONG
  1035. WAITFOR "OK"
  1036. GOTO CONTINUE
  1037.  
  1038. S13REG:
  1039. CLRSCR
  1040. DISPLAYLN "ROM LEVEL 964 - S-REGISTER 13 SETTINGS"
  1041. DISPLAYLN " "
  1042. DISPLAYLN "S-register 13 control certain little-used features of the HST modem.
  1043. DISPLAYLN "Each bit in the register controls a modem feature or function,"
  1044. DISPLAYLN "as shown below.  The corresponding bit value precedes each feature"
  1045. DISPLAYLN "description.  To select a feature, add its bit value to the total"
  1046. DISPLAYLN "and store the total in the register.  The register's maximum"
  1047. DISPLAYLN "value is 222 (2+4+8+16+64+128)
  1048. DISPLAYLN " "
  1049. DISPLAYLN "Bit value   1: reserved"
  1050. DISPLAYLN "Bit value   2: auto-answer in originate mode"
  1051. DISPLAYLN "Bit value   4: disable result code pause"
  1052. DISPLAYLN "Bit value   8: DS0 on DTR low-to-high"
  1053. DISPLAYLN "Bit Value  16: DS0 on power-up, ATZ"
  1054. DISPLAYLN "Bit Value  32: reserved"
  1055. DISPLAYLN "Bit Value  64: disable MNP level 3"
  1056. DISPLAYLN "Bit Value 128: watchdog hardware reset"
  1057. DISPLAYLN " "
  1058. DISPLAYLN "NOTE: Please refer to your HST manual for additional information"
  1059. DISPLAYLN "      on the above features and S13 register settings."
  1060. DISPLAYLN " "
  1061. DISPLAYLN "Do you wish to change the value of S-register 13 (Y/N)?"
  1062. GET 0 1
  1063. IF "$0" = "Y" SETS13
  1064. IF "$0" = "y" SETS13
  1065. GOTO CONTINUE
  1066.  
  1067. SETS13:
  1068. GOTOXY 1,22
  1069. DISPLAYLN "New total bit value for S-register 13 (0-222) or <Enter> to cancel:    "
  1070. GOTOXY 69,22
  1071. GET 1 2
  1072. IF "$1" = "" CONTINUE
  1073. IF "$1" < "0" BADS13
  1074. IF "$1" > "222" BADS13
  1075. GOTO S13OK
  1076. BADS13:
  1077. BEEP
  1078. CLRSCR
  1079. GOTO SETS13
  1080. S13OK:
  1081. CLRSCR
  1082. DISPLAYLN "SETTING NEW S-REGISTER 13 VALUE - ATS13=$1"
  1083. DISPLAYLN " "
  1084. SEND "ATS13=$1^M"
  1085. TIMEOUT 10 TOOLONG
  1086. WAITFOR "OK"
  1087. GOTO CONTINUE
  1088.  
  1089. S15REG:
  1090. CLRSCR
  1091. DISPLAYLN "ROM LEVEL 964 - S-REGISTER 15 SETTINGS"
  1092. DISPLAYLN " "
  1093. DISPLAYLN "S-register 15 controls level 964 ROM features. Each bit in the register"
  1094. DISPLAYLN "controls a modem feature or function, as shown below."
  1095. DISPLAYLN "The corresponding bit value precedes each feature description."
  1096. DISPLAYLN "To select a feature, add its bit value to the total and store the"
  1097. DISPLAYLN "the total in the register.  Maximum is 255 (128+64+32+16+8+2+1)."
  1098. DISPLAYLN " "
  1099. DISPLAYLN "Bit value   1: disable high-frequency equalization"
  1100. DISPLAYLN "Bit value   2: disable 7200/4800bps online fallback"
  1101. DISPLAYLN "Bit value   4: force 300bps back channel"
  1102. DISPLAYLN "Bit value   8: use 128-byte buffer in non-MNP operation"
  1103. DISPLAYLN "Bit Value  16: disable MNP Level 4"
  1104. DISPLAYLN "Bit Value  32: set DEL as backspace key"
  1105. DISPLAYLN "Bit Value  64: Unusual MNP incompatibility"
  1106. DISPLAYLN "Bit Value 128: Interbridge network compatibility"
  1107. DISPLAYLN " "
  1108. DISPLAYLN "NOTE: Please refer to your HST manual for additional information"
  1109. DISPLAYLN "      on the above features and S15 register settings."
  1110. DISPLAYLN " "
  1111. DISPLAYLN "Do you wish to change the value of S-register 15 (Y/N)?"
  1112. GET 0 1
  1113. IF "$0" = "Y" SETS15
  1114. IF "$0" = "y" SETS15
  1115. GOTO CONTINUE
  1116.  
  1117. SETS15:
  1118. GOTOXY 1,22
  1119. DISPLAYLN "New total bit value for S-register 15 (0-255) or <Enter> to cancel:    "
  1120. GOTOXY 69,22
  1121. GET 1 2
  1122. IF "$1" = "" CONTINUE
  1123. IF "$1" < "0" BADS15
  1124. IF "$1" > "255" BADS15
  1125. GOTO S15OK
  1126. BADS15:
  1127. BEEP
  1128. CLRSCR
  1129. GOTO SETS15
  1130. S15OK:
  1131. CLRSCR
  1132. DISPLAYLN "SETTING NEW S-REGISTER 15 VALUE - ATS15=$1"
  1133. DISPLAYLN " "
  1134. SEND "ATS15=$1^M"
  1135. TIMEOUT 10 TOOLONG
  1136. WAITFOR "OK"
  1137. GOTO CONTINUE
  1138.  
  1139. NEWRATE:
  1140. CLRSCR
  1141. DISPLAYLN "MODEM LINK RATE SETTINGS - AT&Nx"
  1142. DISPLAYLN " "
  1143. DISPLAYLN "This command allows you to set the modem LINK rate (the data rate "
  1144. DISPLAYLN "on the modem-modem connection) to a FIXED value between 300cps and"
  1145. DISPLAYLN "9600cps.  Normally, the default (&N0) allows the modem to adapt its"
  1146. DISPLAYLN "rate to that of the receiving modem.  Forcing a fixed link rate  "
  1147. DISPLAYLN "will cause your modem to disconnect if the other modem is not set "
  1148. DISPLAYLN "at the same rate.  Unless you have a need for this feature, use of "
  1149. DISPLAYLN "the default value is recommended."
  1150. DISPLAYLN " "
  1151.  
  1152. ASKRATE:
  1153. DISPLAYLN "Do you want to change the modem's link rate setting (Y/N):   "
  1154. GOTOXY 59,11
  1155. GET 1 1
  1156. IF "$1" = "Y" CHGRATE
  1157. IF "$1" = "y" CHGRATE
  1158. IF "$1" = "N" CONTINUE
  1159. IF "$1" = "n" CONTINUE
  1160. BEEP  400
  1161. GOTO ASKRATE
  1162.  
  1163. CHGRATE:
  1164. CLRSCR
  1165. DISPLAYLN "CHANGE LINK RATE SETTING - AT&Nx"
  1166. DISPLAYLN " "
  1167. DISPLAYLN "0=set link rate to DEFAULT - AUTO SPEED DETECT"
  1168. DISPLAYLN "1=set link rate to 300bps"
  1169. DISPLAYLN "2=set link rate to 1200bps"
  1170. DISPLAYLN "3=set link rate to 2400bps"
  1171. DISPLAYLN "4=set link rate to 4800bps"
  1172. DISPLAYLN "5=set link rate to 7200bps"
  1173. DISPLAYLN "6=set link rate to 9600bps"
  1174.  
  1175. ASKRATE2:
  1176. GOTOXY 1,11
  1177. DISPLAYLN "Enter new link rate value (0-6) or <Enter> to cancel:   "
  1178. GOTOXY 54,11
  1179. GET 1 1
  1180. IF "$1" = "" CONTINUE
  1181. IF "$1" = "0" SETZERO
  1182. IF "$1" = "1" SET300
  1183. IF "$1" = "2" SET1200
  1184. IF "$1" = "3" SET2400
  1185. IF "$1" = "4" SET4800
  1186. IF "$1" = "5" SET7200
  1187. IF "$1" = "6" SET9600
  1188. BEEP 400
  1189. GOTO ASKRATE2
  1190.  
  1191. SETZERO:
  1192. ASSIGN 9 "AUTO"
  1193. GOTO SETLRATE
  1194. SET300:
  1195. ASSIGN 9 "300"
  1196. GOTO SETLRATE
  1197. SET1200:
  1198. ASSIGN 9 "1200"
  1199. GOTO SETLRATE
  1200. SET2400:
  1201. ASSIGN 9 "2400"
  1202. GOTO SETLRATE
  1203. SET4800:
  1204. ASSIGN 9 "4800"
  1205. GOTO SETLRATE
  1206. SET7200:
  1207. ASSIGN 9 "7200"
  1208. GOTO SETLRATE
  1209. SET9600:
  1210. ASSIGN 9 "9600"
  1211.  
  1212. SETLRATE:
  1213. CLRSCR
  1214. DISPLAYLN "SETTING NEW LINK RATE TO $9 BPS - AT&N$1"
  1215. DISPLAYLN " "
  1216. SEND "AT&N$1^M"
  1217. TIMEOUT 10 TOOLONG
  1218. WAITFOR "OK"
  1219. GOTO CONTINUE
  1220.  
  1221. MODINQ:
  1222. CLRSCR
  1223. DISPLAYLN "MODEM CONFIGURATION INQUIRY SCREEN - ATI7"
  1224. DISPLAYLN " "
  1225. SEND "ATI7^M"
  1226. TIMEOUT 30 TOOLONG
  1227. WAITFOR "OK"
  1228. GOTO CONTINUE
  1229.  
  1230. USROK:
  1231. TIMEOUT 10 TOOLONG
  1232. WAITFOR "OK"
  1233. IF "$5" = "000" NOTUSR
  1234. WHEN
  1235. SEND "AT&B0^M"
  1236. WAITFOR "OK"
  1237. SETCOMM CJLM
  1238. TURNOFF ECHO
  1239. TURNOFF LINEFEED
  1240. CLRSCR
  1241. WINDOW 1 1 80 24
  1242. WRTSCR:
  1243. CLRSCR
  1244. NOTE                  ┌────────────────────────────────────────────┐
  1245. NOTE    ╒═════════════╡ USR COURIER HST MODEM SERVICE SCRIPT v 2.0 ╞═════════════╕
  1246. NOTE    │             └────────────────────────────────────────────┘             │
  1247. NOTE    │  1.  Display HST ROM Level             13. Check Modem-PC Interface    │
  1248. NOTE    │  2.  Display HST Memory Checksum       14. Self-Test: Analog Loopback  │
  1249. NOTE    │  3.  HST RAM Test                      15. Self-Test: Answer Frequency │
  1250. NOTE    │  4.  Display HST RAM Settings          16. Self-Test: Reset Data Mode  │
  1251. NOTE    │  5.  Display HST NRAM Settings         17. Reset Modem to NRAM Default │
  1252. NOTE    │  6.  Display/Set Internal TOD Clock    18. Copy RAM Settings to NRAM   │
  1253. NOTE    │  7.  Display/Store Internal Phone #s   19. Dial a number & exit        │
  1254. NOTE    │  8.  Display Basic Command Help        20. Link Diagnostics display    │
  1255. NOTE    │  9.  Display Extended Command Help     21. S13 register settings       │
  1256. NOTE    │ 10.  Display Dial Command Help                                         │
  1257. NOTE    │ 11.  Display S-Reg Help/Set S-Reg      QM. Set Qmodem 4.0 defaults     │
  1258. NOTE    │ 12.  Display Modem Switch Help         CF. Execute Modem Command File  │
  1259. NOTE    │                                        99. EXIT                        │
  1260. NOTE    ╞════════════════════════════════════════════════════════════════════════╡
  1261. NOTE    │                                                                        │
  1262. NOTE    │            Type desired function code and (Enter): __                  │
  1263. NOTE    │ ┌──────────┐                                   ┌────────────────────┐  │
  1264. NOTE    ╘═╡ DPM 1989 ╞═══════════════════════════════════╡ HST ROM Level:     ╞══╛
  1265. NOTE      └──────────┘                                   └────────────────────┘
  1266. GOTOXY 70,21
  1267. DISPLAY "$5"
  1268. ASSIGN 7 " "
  1269. IF "$5" < "964" NOADV 
  1270. ASSIGN 7  "&K0"
  1271. GOTOXY 45,13
  1272. DISPLAY "AD. Advanced Functions"
  1273. NOADV:
  1274. GETSCR
  1275. ASSIGN MENU "1"
  1276. GOTO GETFUNC
  1277.  
  1278. NOGOOD:
  1279. CLRSCR
  1280. NOTE This Script MUST be run OFFLINE (while in terminal mode)
  1281. NOTE Script terminated due to above error.
  1282. EXIT
  1283.  
  1284. ADVANCED:
  1285. CLRSCR
  1286. IF "$5" >= "964" ADVOK
  1287. NOTE Your USR HST Modem is at ROM level $5.
  1288. NOTE Advanced functions require ROM level 964 or higher.
  1289. NOTE
  1290. NOTE Press <Enter> to return to menu.....
  1291. GOTO CONTINUE
  1292.  
  1293. ADVOK:
  1294. WINDOW 1 1 80 24
  1295. CLRSCR
  1296. NOTE                  ┌────────────────────────────────────────────┐
  1297. NOTE    ╒═════════════╡ HST Service Script 2.0 Advanced Functions  ╞═════════════╕
  1298. NOTE    │             └────────────────────────────────────────────┘             │
  1299. NOTE    │ 50.  Disable data compression                                          │
  1300. NOTE    │ 51.  Auto enable/disable compression                                   │
  1301. NOTE    │ 52.  Enable data compression                                           │
  1302. NOTE    │ 53.  S15 register settings                                             │
  1303. NOTE    │ 54.  Set modem-to-modem link rate                                      │
  1304. NOTE    │ 55.  Modem configuration inquiry                                       │
  1305. NOTE    │                                                                        │
  1306. NOTE    │                                                                        │
  1307. NOTE    │ 98.  Return to Main Menu                                               │
  1308. NOTE    │ 99.  EXIT HST20                                                        │
  1309. NOTE    │                                                                        │
  1310. NOTE    │                                                                        │
  1311. NOTE    │                                                                        │
  1312. NOTE    ╞════════════════════════════════════════════════════════════════════════╡
  1313. NOTE    │                                                                        │
  1314. NOTE    │            Type desired function code and (Enter): __                  │
  1315. NOTE    │ ┌─────────────────────────┐                    ┌────────────────────┐  │
  1316. NOTE    ╘═╡ (c) Dan Moore 1987,1989 ╞════════════════════╡ HST ROM Level:     ╞══╛
  1317. NOTE      └─────────────────────────┘                    └────────────────────┘
  1318. GOTOXY 70,21
  1319. DISPLAY "$5"
  1320. GETSCR
  1321. ASSIGN MENU "2"
  1322. GOTO GETFUNC
  1323. EXIT
  1324.  
  1325.