[Coco] REPEAT UNTIL Problems in Basic09 ?

coco at jechar.ca coco at jechar.ca
Sun Jul 5 13:15:10 EDT 2020


SORRY IT WAS ME look at the codeline I added between the { }
the Basic09 compiler was actually being quite smart and detecting
an Infinite Loop

On 2020-07-05 13:05, coco at jechar.ca wrote:
> System: Emulator 6309 Basic09
> 
> Problem: This Code Fails the error says
> 
> ENDNTIL
> ERROR #27
> which is a MISSING ASSIGNMENT STATEMENT
> 
> THIS IS THE CODE
> 
> PROCEDURE t
> 
> DIM alpha$:STRING
> DIM numeric,i:INTEGER
> DIM DONE:BOOLEAN
> 
> DONE=FALSE
> i=65
> REPEAT
>   numeric=1
>   REPEAT
>     alpha$=CHR$(i)
>     PRINT alpha$;numeric
>     numeric=numeric+1
>   UNTIL (numeric>10)
    { i=i+1 } Adding this code here fixes the problem.
>   IF alpha$="Z" THEN
>      DONE=TRUE
>   ENDIF
> UNTIL DONE
> 
> END
> 
> 
> IS IT ME OR IS THERE SOMETHING
> WRONG WITH THE COMPILER?
> 
> Charlie
Sorry


More information about the Coco mailing list