March 28, 2024, 03:41:31 PM

News:

Own IWBasic 2.x ? -----> Get your free upgrade to 3.x now.........


Is this code corrected

Started by Techno, September 22, 2008, 12:35:19 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Techno

Dear Support

I try with an large program ported from pascal into EBASIC because I have need this code for an project written full in ebasic.

I try reprogram this



OPENCONSOLE
/* Blokgolfgenerator */
DEF tijd : WORD
DEF key : CHAR
DEF A$ : STRING

                /* repeat; */
DO
                                /* write("aantal herhalingen"); */
                                /* readln(tijd);
INPUT "Aantal herhalingen 0...65535 ", A$
                                tijd = val(a$)
DO
                                                /* Generator(tijd); */
Generator(tijd)
                                /* until keypressed */
UNTIL INKEY$ <> ""
                                /* key = ReadKey; */
                /* until key = chr527); */
UNTIL INKEY$ = CHR$(27)
CLOSECONSOLE


What functions can I use for Readkey(), Keypressed(), Readln() or how can I change it into Ebasic commands

With kind regards
Stephane

Sapero thanks for your worked code
Paul your ebasic en aurora it's very great !