OpenEuphoria

Need translation from QBasic to EUPHRIA... Please.

• Posted by Dr. Science <kmlmanu at yahoo.es> Apr 17, 2005
• 455 views

Hi friends I'm a newby, in the past I was able to code a litle with QBasic.

I have bought a relay board that can be programed with any language that can
send bits to the parallel port. This is quite simple in QBasic:

DO
  CLS
  LOCATE 22,20:PRINT "CTRL+PAUSE TO EXIT"
  LOCATE 10,20
  INPUT "OUTS BINRY:",X
  LPRINT CHR$(X);
LOOP
END

This piece of code should ask for bits to send then to the parallel port.

Answering...

0 : disconnects all relays
1 : connects relay 1
2 : connects relay 2
11: connects relay 1 and 2 and so on...

Is it posible to translate this to Euphoria?

I'm quite new to programming and I would like to begin whith this language.
I've read all documentation and have Googled for a long time but no luck!

Anybody helps?


PS: First time I had news from Euphoria was 10 years ago, I'm very impressed
to see that it is still in development, mantained, and all contributions it
has... almost all "hi level" or "Basic" languages I've been interested in 
had been abandoned... that's the reason I want to learn Euphoria.

Thank you.