home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / telecomm / bodoterm.asc < prev    next >
Text File  |  1993-09-18  |  2KB  |  51 lines
  1. 10 rem  Simple terminal program. Demonstrates how to change baud rate in
  2. 20 rem  STOS.  Baud rate researched by Don Smith, The Atarist BBS in
  3. 30 rem  Houston, Texas (713-541-9160) (GENIE: DON.SMITH), and the
  4. 40 rem  routine for data I/O by Bob Barton, HASTE president, Houston, TX.
  5. 50 rem  ====================================================================
  6. 60 mode 1
  7. 70 menu$ (1)=" File "
  8. 80 menu$ (1,1)="  Quit "
  9. 90 menu$ (2)=" Baud "
  10. 100 menu$ (2,1)="   300 "
  11. 110 menu$ (2,2)="  1200 "
  12. 120 menu$ (2,3)="  2400 "
  13. 130 menu$ (2,4)="  9600 "
  14. 140 menu on 
  15. 145 rem  ===================================================================
  16. 150 rem  Trap 14,15,A,B,C,D,E,F to set RS-232 parameters in STOS
  17. 160 rem  It's the same as the XBIOS(15,-1,-1,-1,-1,-1,-1) call in GFA
  18. 165 rem  ===================================================================
  19. 170 A=-1 : B=-1 : C=-1 : D=-1 : E=-1 : F=-1
  20. 180 trap 14,15,A,B,C,D,E,F
  21. 185 rem  ===================================================================
  22. 190 rem  Assigning values of -1 allows old assignment to remain unchanged.
  23. 200 rem  A=Baud Rate  1=9600 4=2400 7=1200 9=300 bps
  24. 210 rem  B=Ctrl\      0=No handshake, default after power up
  25. 220 rem    Ctrl/      1=XON/XOFF 2=RTS/CTS 3=XON/XOFF & RTS/CTS (not useful)
  26. 230 rem  C=UCR-USART Control Register D=RSR-Receiver Status Register
  27. 240 rem  E=TSR-Transmitter Status Register F=SCR-Synchronous Character Register
  28. 250 rem  The preceeding from page 174 of "Atari ST Internals" from Abacus
  29. 255 rem  ===================================================================
  30. 260 open #1,"AUX"
  31. 270 X=port(#1)
  32. 280 on mnbar goto 350,360
  33. 290 if X<0 then X=0
  34. 300 print chr$(X);
  35. 310 K$=inkey$
  36. 320 if len(K$)<1 then goto 340
  37. 330 print #1,K$;
  38. 340 goto 270
  39. 350 stop 
  40. 360 on mnselect gosub 390,410,430,450
  41. 370 trap 14,15,A,-1,-1,-1,-1,-1
  42. 380 goto 270
  43. 390 A=9
  44. 400 return 
  45. 410 A=7
  46. 420 return 
  47. 430 A=4
  48. 440 return 
  49. 450 A=1
  50. 460 return 
  51. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə