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