lineCount = 9
DIM lines(lineCount) AS INTEGER
DIM myPosInLine(2) AS INTEGER
DIM myLine(2) AS INTEGER
REM init
CLS
RANDOMIZE TIMER
FOR i = 0 TO lineCount - 1 STEP 1
lines(i) = INT(RND * 10) + 6
REM PRINT lines(i)
NEXT i
FOR i = 0 TO 1 STEP 1
myPosInLine(i) = 99
myLine(i) = 99
NEXT i
myLine(1) = INT(RND * (lineCount - 1))
myPosInLine(1) = lines(myLine(1)) - 1
REM PRINT myLine(0)
REM PRINT myPisInLine(0)
FOR i = 0 TO lineCount - 1 STEP 1
COLOR 2
PRINT i + 1;
COLOR 3
PRINT CHR$(8);
COLOR 6
FOR j = 0 TO lines(i) - 1 STEP 1
IF i = myLine(0) AND j = myPosInLine(0) THEN
COLOR 10
PRINT CHR$(2);
ELSEIF i = myLine(1) AND j = myPosInLine(1) THEN
COLOR 12
PRINT CHR$(2);
ELSE
COLOR 6
PRINT CHR$(1);
END IF
NEXT j
PRINT ""
NEXT i
IF myPosInLine(0) = 0 THEN
GOTO 9000
END IF
IF myPosInLine(1) = 0 THEN
GOTO 8000
END IF
PRINT ""
2000
COLOR 11
firstTime = 0
IF myLine(0) = 99 THEN
firstTime = 1
PRINT "Valitse jono 1 -"; lineCount:
ELSE
PRINT "Valitse jono 1 - "; lineCount; "tai <enter>"
END IF
INPUT ""; inputLine
PRINT inputLine
IF firstTime = 1 THEN
IF inputLine = 0 THEN
GOTO 2000
END IF
ELSE
IF inputLine > 9 THEN
GOTO 2000
END IF
END IF
IF inputLine = 0 THEN
GOTO 200
ELSEIF inputLine < lineCount + 1 THEN
myLine(0) = inputLine - 1
myPosInLine(0) = lines(myLine(0))
lines(myLine(0)) = lines(myLine(0)) + 1
GOTO 200
END IF
GOTO 10000
200
REM GAMELOOP
FOR i = 0 TO lineCount - 1 STEP 1
isShrinking = INT(RND * 2)
IF isShrinking = 1 THEN
lines(i) = lines(i) - 1
IF lines(i) < 0 THEN
lines(i) = 0
END IF
IF i = myLine(0) THEN
myPosInLine(0) = myPosInLine(0) - 1
END IF
IF i = myLine(1) THEN
myPosInLine(1) = myPosInLine(1) - 1
END IF
