

Sintax:
======================
=[STO]
L=[L1]
L=[L2]
L=[L3]
L=[L4]
=[Alpha+3]
=[not equal to]
=[smaller or equal than]
=[bigger or equal]


==========================MASTER MIND==================;
:int (rand100)+1rand        ; otherwise not so random!
:Lbl 9
:Menu("***MASTER MIND***","PLAY",7,"ABOUT",V,"QUIT",6
:Lbl V
:ClrHome
:Disp "BY ME AT:","IAMSERGIOHOTMAI","L.COM,","","AQUI EM PORTUGAL
:Pause 
:Goto 9
:Lbl 6
:ClrDraw
:ClrHome
:Stop
:Lbl 7
:0M
:0E
:EF
:0H
:0I
:prgmCLRDATA
:For(Y,0,94,8
:For(,2,40,10
:If Y=80
:88Y
:Line(Y+1,,Y+5,
:Line(Y+1,+8,Y+5,+8
:Line(Y,+1,Y,+7
:Line(Y+6,+1,Y+6,+7
:End
:End
:Text(23,81,"M
:Text(29,82,"A
:Text(35,82,"S
:Text(41,82,"T
:Text(47,82,"E
:Text(53,82,"R
:0dim L
:seq(X,X,1,9,1L
:Repeat dim L=4
:1+int (rand8L
:If 0L(L
:Then
:M+1M
:LL(M
:0L(L
:End
:End
:23X
:2Z
:Lbl 0
:Repeat Ans=45 or Ans=73 or Ans=72 or (Ans92 and Ans94) or (Ans82 and Ans84
:getKey
:End
:If Ans=45
:Then
:ClrHome
:ClrDraw
:Stop
:End
:If X=53 and Z74
:Text(13,77,"WAIT
:If Z=74
:Text(13,77,"                 
:If Ans92
:Ans-91K
:If Ans82 and Ans84
:Ans-78K
:If Ans=72 or Ans=73
:Ans-65K
:If X=23
:KA
:If X=33
:KB
:If X=43
:KC
:If X=53
:KD
:Text(X,Z,K
:If X53
:Then
:10+XX
:Goto 0
:End
:{A,B,C,DL
:If A=L(1
:1E
:If B=L(2
:1F
:If C=L(3
:1H
:If D=L(4
:1I
:For(,1,4
:If E1 and L(1)=L(
:2E
:If F1 and L(2)=L(
:2F
:If H1 and L(3)=L(
:2H
:If I1 and L(4)=L(
:2I
:End
:42U
:0M
:0dim L
:{E,F,H,IL
:Repeat dim L=4
:1+int (rand4L
:If 9L(L
:Then
:1+MM
:L(L)L(M
:9L(L
:End
:End
:For(,1,4
:If 1=L(
:Then
:Line(Z,U,Z+2,U
:Line(Z-1,U+1,Z+3,U+1
:Line(Z-1,U+2,Z+3,U+2
:Line(Z,U+3,Z+2,U+3
:U+5U
:End
:If 2=L(
:Then
:Line(Z,U,Z+2,U
:Line(Z,U+3,Z+2,U+3
:Line(Z-1,U+1,Z-1,U+2
:Line(Z+3,U+1,Z+3,U+2
:U+5U
:End
:End
:If A=L(1) and B=L(2) and C=L(3) and D=L(4
:Goto 4
:If Z=74
:Goto 5
:Z+8Z
:23X
:0E
:0F
:0I
:0H
:Text(13,77,"PLAY
:Goto 0
:Lbl 4
:1B
:For(A,23,53,10
:Text(A,90,L(B
:B+1B
:End
:Pause 
:Output(1,1,"GOOD GAME!      YOU WON AGAINST THE GAME MASTER!
:Pause 
:Goto 9
:Lbl 5
:1B
:For(A,23,53,10
:Text(A,90,L(B
:B+1B
:End
:Pause 
:For(,1,8
:Disp "
:End
:Disp "    YOU LOSE
:For(Y,0,100
:End
:Disp "
:For(Y,0,100
:End
:Disp "   -----------
:For(Y,0,100
:End
:Disp "    GAME OVER
:For(Y,0,100
:End
:Disp "   -----------
:For(Y,0,100
:End
:Disp "
:Pause 
:Goto 9

======================CLRDATA==================;
:0Xmin
:94Xmax
:0Xscl
:0Ymin
:62Ymax
:0Yscl
:AxesOff
:PlotsOff 
:GridOff
:FnOff 
:ClrDraw
:ClrHome


