OpenEuphoria

QBasic to Euphoria

• Posted by Steve Elder <SteveElde at AOL.COM> Feb 16, 1997
• 1499 views

Hi everybody,

I'm new to Euphoria, and this mailing list.

I have this QBasic program I would like to translate to Euphoria.  Any ideas?

'Computes points earned by hockey teams.
CLS
INPUT "   TEAM:       ", team$ 'Enter team name.
INPUT "   WON :       ", won   'Number of games won.
INPUT "   LOST:       ", lost  'Number of games lost.
INPUT "   TIE :       ", tie   'Number of ties.
    points = won * 2 + tie     'Compute number of points.
PRINT "TEAM", " WON", " LOST", " TIE", " POINTS" 'Display results.
PRINT team$, won, lost, tie, points              'Display results.

Thanks in advance,
Steve Elder