home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 3000.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  707 b   |  21 lines
  1. 3003 '    baud rate control
  2. 3004 ' only called if MODEMCTLOPT% <> 0
  3. 3006 '1.4    ##
  4. 3007 CR%=2: MAX%=0
  5. 3008 A$=CRLF$+"Baud rates:": GOSUB 400
  6. 3012 A$="a 110    d 450": GOSUB 400
  7. 3015 A$="b 150    e 600": GOSUB 400
  8. 3018 A$="c 300    f 710": GOSUB 400
  9. 3021 A$=CRLF$+"Press letter or RETURN for no change > ":CR%=0: GOSUB 400
  10. 3024 GOSUB 3300
  11. 3027 IF SELECTION%=0 THEN RETURN
  12. 3033 IF SELECTION% > 7 THEN GOTO 3000
  13. 3036 DATA 142,104,52,35,26,22
  14. 3039 RESTORE 3036
  15. 3042 FOR INDEX%=1 TO SELECTION%
  16. 3045    READ DIVISOR%
  17. 3048 NEXT INDEX%
  18. 3051 A$=CRLF$+CRLF$+"Change to new rate then press RETURN.": GOSUB 400
  19. 3054 OUT MODEMPORT%-1,DIVISOR%    'MODEMPORT% is PMMI disconnect port
  20. 3055 GOSUB 500: IF NKEY%<>0 THEN GOTO 3055 ELSE GOTO 3000
  21.