<flame-on> GOTO's are for the mentally challenged!!! <flame-off>
Have a nice day.
Will
In a message dated 10/22/2004 8:17:50 PM Pacific Daylight Time,
[EMAIL PROTECTED] writes:
> Ditto: This could be replaced with my single PRINT statement.
> <snip>
>
> P.S. I'm surprised that this doesn't get flamed for the GOTO's. This list is
> usually GOTO-phobic.
> ----- Original Message -----
> From: "Burwell, Edward" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, October 22, 2004 2:03 PM
> Subject: RE: [U2] [UD] running a subroutine
>
>
> >001: PROMPT ""
> >002: 10 PRINT STR("-",79)
> >003: PRINT "'O'conv or 'I'conv ":;INPUT OI
> >004: IF OI="" THEN STOP
> >005: IF OI#"O" AND OI#"I" THEN GO 10
> >006: IF OI="O" THEN ELB="OCONV"
> >007: IF OI="I" THEN ELB="ICONV"
> >008: 20 PRINT STR("-",79)
> >009: PRINT "enter conversion ":;INPUT CONV
> >010: IF CONV="" THEN GO 10
> >011: 30 PRINT STR("-",79)
> >012: PRINT "enter data to test ":;INPUT X
> >013: IF X="" THEN GO 20
> >014: PRINT ELB:'(':X:',"':CONV:'") --> ':
> >015: IF OI="O" THEN
> >016: PRINT OCONV(X,CONV)
> >017: END ELSE
> >018: PRINT ICONV(X,CONV)
> >019: END
> >020: GO 30
> >021: END
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
