> Van: Joe Hamilton <joeh100@CROSSWINDS.NET>
> Aan: PICLIST@MITVMA.MIT.EDU
> Onderwerp: rs232 in qbasic
> Datum: donderdag 17 februari 2000 6:10

Hello Joe,

  the statement on line 30 (did you know that QBasic does not need
line-numbers ?) will send the *letter* "1" , followed by a Carriage-return
and a Line-feed.

To send a binary number without any CR-LF combination you should use :

  print #{file-handle}, chr$({number}) ;

{file-handle} is whatever number you used with the AS in your OPEN
statement
{number} is anything from 0 upto 255

Don't forget the ";" ath the end of the line. It suppresses the CR-LF
combination.

Regards,
  Rudy Wieser

----------------------------------------------------------------------------
--------------------------------------------------

ComHnd=freefile
open "com1: 1200, n, 8, 1, RS, DS" as #ComHnd
   print #ComHnd,chr$(1) ;
close #ComHnd

> This is what I have tried, when I look at it on my scope I get like a 14
bit
> word...Help.
>
> 10    OPEN "COM1: 1200, N, 8, 1, RS, DS" AS #2
> 20    A% = 1
> 30    PRINT #2, A%
>
> Thanks,
>
> Joe