<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/