' {$STAMP BS2sx}
' {$PBASIC 2.5}

btnwrk0   VAR   Byte
btnwrk1   VAR   Byte
btnwrk2   VAR   Byte
btnwrk3   VAR   Byte
game      VAR   Byte
number    VAR   Nib
jogomb    VAR   Byte
roszgomb  VAR   Byte
btna PIN 8
btnb PIN 9
btnc PIN 10
btnd PIN 11

INPUT 8
INPUT 9
INPUT 10
INPUT 11

Start:    'ledek tesztelése
HIGH 4
HIGH 5
HIGH 6
HIGH 7
PAUSE 1000
LOW 4
LOW 5
LOW 6
LOW 7

Main:     'próbálkozási lehetőségek

FOR game = 1 TO 10

Hold:     'esetek?

RANDOM number
HIGH (number)
PAUSE 2000
LOW (number)
IF (number = 4) THEN
BUTTON btna, 0, 255, 0, btnwrk0, 1, Btn1
ELSE
GOTO Rgb

IF (number = 5) THEN
BUTTON btnb, 0, 255, 0, btnwrk1, 1, Btn2
ELSE
GOTO Rgb
ENDIF

IF (number = 6) THEN
BUTTON btnc, 0, 255, 0, btnwrk2, 1, Btn2
ELSE
GOTO Rgb
ENDIF

IF (number = 7) THEN
BUTTON btnd, 0, 255, 0, btnwrk3, 1, Btn2
ELSE
GOTO Rgb
ENDIF

NEXT

Btn1:

HIGH 2
PAUSE 1000
LOW 2
GOTO Jgb

Btn2:

HIGH 3
PAUSE 1000
LOW 2
GOTO Rgb

Jgb:
jogomb = jogomb + 1
IF (jogomb = 10) THEN GOTO Vege
ENDIF
GOTO Main

Rgb:
roszgomb = roszgomb +1
IF (roszgomb = 6) THEN GOTO Vege

GOTO Main

Vege:

HIGH 2
HIGH 3
HIGH 4
HIGH 5
HIGH 6
HIGH 7
PAUSE 100
LOW 2
LOW 3
LOW 4
LOW 5
LOW 6
LOW 7

HIGH 2
HIGH 3
HIGH 4
HIGH 5
HIGH 6
HIGH 7
PAUSE 100
LOW 2
LOW 3
LOW 4
LOW 5
LOW 6
LOW 7

HIGH 2
HIGH 3
HIGH 4
HIGH 5
HIGH 6
HIGH 7
PAUSE 100
LOW 2
LOW 3
LOW 4
LOW 5
LOW 6
LOW 7

END