'A0 levo oko
'A1 desno oko
'B3 piskač
'B2 prednje noge
'B1 zadnje noge
'variabla za zanke > X <
'variabla za zanke > Y <

VarB X
VarB Y

Low B1
Low B2

Sound B3, 1000, 300, 1200, 200
Pause 1000
Beep B3
 

Naprej:
Y = 1

Do

X = 1
Do
Pulsout B1, 180
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 120
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 120
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 180
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 25

Inc Y
Loop until Y = 10

GoTo Naprej

Inter 0

Sound B3, 1000, 200, 1200, 100
Beep B3

Y = 1
Do

X = 1
Do
Pulsout B1, 180
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 180
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 120
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 120
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 15

Inc Y
Loop until Y = 3

EndInter