'                             Katso Luemut.txt
'
'                           Mato pomppii ympäri ruutua
'                        (tehty enkun-tunnilla opettajan
'                           silmän välttäessä...)
'
'
'
'
'



SCREEN 13
vari = 0
B = 0
FOR a = 1 TO 100
vari = vari + B
IF vari > 62 THEN B = -1
IF vari < 1 THEN B = 1
PALETTE a, vari
NEXT a

FOR i = 0 TO 100
LINE (i, i)-(320 - i, 200 - i), i, B
NEXT i

a$ = "c15u10r10d10l10"

DIM kuva(1000)
x = 160
y = 100
n = 1
m = 1


erkki:
GET (x, y - 10)-(x + 10, y), kuva
'PSET (x, y), POINT(x, y)
'DRAW a$

DO
q = INT(RND * 4) - 2
w = INT(RND * 4) - 2

'GET (x, y - 10)-(x + 10, y), kuva

x = x + q
y = y + w

IF n = 1 THEN x = x + 1
IF n = 2 THEN x = x - 1
IF m = 1 THEN y = y + 1
IF m = 2 THEN y = y - 1
IF x < 11 THEN n = 1
IF x > 300 THEN n = 2
IF y < 11 THEN m = 1
IF y > 180 THEN m = 2

PUT (x, y), kuva, PSET

FOR h = 1 TO 100
FOR h1 = 1 TO 10
NEXT h1
NEXT h

LOOP WHILE INKEY$ = ""