1 f={@Soma b,(@Mult a,x)}
2 Limpar
3 ? "Jogo das sequencias"
4 a=@Subt (@Int (@Mult @Sort,5)),(@Int (@Mult @Sort,3))
5 se @ou (@Igual a,0),(@Igual a,1) entao 4
6 b=@Subt (@Int (@Mult @Sort,10)),(@Int (@Mult @Sort,6))
7 x=@Int (@Mult @Sort,10)
8 n=0
9 n++
10 se @Igual n,5 entao 14
11 ? x
12 x=@soma f,0
13 IrPara 9
14 ? "Proximo numero ?";
15 Digite y
16 Se @Igual x,y entao 17 senao 19
17 ? "Acertou!!!"
18 IrPara 21
19 ? "Errou... Era o ";
20 ? x
21 ? "Continua [S/N] ?"
22 t=@Tecla
23 se @Ou (@Igual t,83),(@Igual t,115) entao 2
24 se @Ou (@Igual t,78),(@Igual t,110) entao fim
25 IrPara 22