REM THOMAS MOYER
REM CONRAD WEISER HS
REM CONTEST 3
REM TrueBASIC

DIM x(25),fill(25)

INPUT prompt "How many squares are filled initially: ":hm

FOR i=1 to 25
    LET x(i)=i
NEXT i

FOR i=1 to hm
    INPUT fill(i)
    LET x(fill(i))=0
NEXT i

FOR five = 1 to 5
    LET error=0

    INPUT prompt "Which pattern? ":patt

    FOR i=1 to 25
        LET error=0

        DO

           IF i<>25 and x(i)=0 then
              EXIT DO

           ELSE

              IF patt=1 then

                 PRINT x(i)
                 LET x(i)=0
                 EXIT FOR
              ELSE IF patt=2 then

                 IF x(i)=0 or x(i)=21 or x(i)=22 or x(i)=23 or x(i)=24 or x(i)=25 then
                    LET error=1
                    EXIT DO
                 ELSE IF x(i+5)=0 then
                    LET error=1
                 END IF

                 IF error=0 then
                    PRINT x(i)
                    LET x(i)=0
                    LET x(i+5)=0
                    EXIT FOR
                 END IF

              ELSE IF patt=3 then

                 IF x(i)=0 or x(i)=5 or x(i)=10 or x(i)=15 or x(i)=20 or x(i)=25 then
                    LET error=1
                    EXIT DO
                 ELSE IF x(i+1)=0 then
                    LET error=1
                 END IF
                 IF error=0 then
                    PRINT x(i)
                    LET x(i)=0
                    LET x(i+1)=0
                    EXIT FOR
                 END IF

              ELSE IF patt=4 then

                 IF x(i)=0 or x(i)=21 or x(i)=22 or x(i)=23 or x(i)=24 or x(i)=25 then
                    LET error=1
                    EXIT DO
                 ELSE IF x(i+5)=0 then
                    LET error=1
                 END IF

                 IF x(i)=0 or x(i)=5 or x(i)=10 or x(i)=15 or x(i)=20 then
                    LET error=1
                    EXIT DO
                 ELSE IF x(i+6)=0 then
                    LET error=1
                 END IF

                 IF error=0 then
                    PRINT x(i)
                    LET x(i)=0
                    LET x(i+5)=0
                    LET x(i+6)=0
                    EXIT FOR
                 END IF

              ELSE IF patt=5 then

                 IF x(i)=0 or x(i)=5 or x(i)=10 or x(i)=15 or x(i)=20 or x(i)=25 or x(i)=21 or x(i)=22 or x(i)=23 or x(i)=24 or x(i)=25 then
                    LET error=1
                    EXIT DO
                 ELSE IF x(i+5)=0 then
                    LET error=1
                 ELSE IF x(i+1)=0 then
                    LET error=1
                 END IF

                 IF error=0 then
                    PRINT x(i)
                    LET x(i)=0
                    LET x(i+5)=0
                    LET x(i+1)=0
                    EXIT FOR
                 END IF

              END IF

           END IF

           EXIT DO

        LOOP

        IF i=25 and error=1 then
           PRINT "NONE"
        END IF

    NEXT i

NEXT five

END