Date   : Wed, 09 Feb 2005 14:54:40 +0000
From   : Tony <kilm02@...>
Subject: Re: Programming tips.

A daft question, but shouldn't line 50 be inside the first loop?. 
(ie: line 59)

Tony.

On Wed, 9 Feb 2005 13:43:57 +0000 (GMT), you wrote:

>
>On Wed, 9 Feb 2005, Richard Gellman wrote:
>
>> ugh. :)
>>
>> 10 MODE 4
>> 20 REM MAGIC NUMBER
>> 30 REM BY THOMAS DRAGE - BBC BASIC
>> 40 PRINTTAB(0,1);"WELCOME TO MAGIC NUMBER!"'"FOR BBC BASIC"'"BY THOMAS
>> DRAGE"'
>> 50 B%=RND(20)
>
>> 55 Q%=0
>> 56 E%=0
>
>Delete 55 and 56
>
>> 58 REPEAT
>> 60 REPEAT
>> 70 PRINT "GUESS: ";
>> 80 INPUT LINE G%
>> 90 IF G%=B% THEN Q%=0
>
>Delete line 90
>
>> 100 IF G% > B% THEN PRINT "TOO BIG"
>> 110 IF G% < B% THEN PRINT "TOO SMALL"
>> 120 IF G% = 0 THEN Q%=1
>
>Delete line 120
>
>> 130 UNTIL Q%
>
>130 UNTIL G% = Q% OR G% = 0
>
>> 140 IF G% = 0 THEN PRINT "GOODBYE!":END
>> 150 CLS
>> 160 GCOL 0,1
>> 170 MOVE 200,300
>> 180 DRAW 250,250
>> 190 DRAW 460,575
>> 200 PRINTTAB(18,6),"CORRECT!"
>> 210 PRINTTAB(18,9),"AGAIN? Y OR N";
>> 220 INPUT LINE Y$
>> 230 CLS
>> 240 IF (ASC(Y$) AND &DF) = ASC("Y") THEN E%=1
>
>240 UNTIL (ASC(Y$) AND &DF) <> ASC("Y")
>
>> 250 UNTIL E%
>
>Delete 250
>
>Alternatively...
>
>220 REPEAT K%=GET AND &DF: UNTIL K% = ASC("Y") OR K% = ASC("N")
>230 UNTIL K% = ASC("N")
>240
>250
>
>
>Oh, and run RENUMBER
>
>Brian