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


======================MEMORY=====================
:0W
:0
:int (rand100)+1rand
:18dim L
:Fill(0,L
:prgmCLRDATA
:{2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10L
:Lbl 7
:Menu("******MEMORY*****","PLAY",1,"ABOUT",9,"QUIT",2
:Lbl 9
:Disp "BY VOLRATH AT:","IAMSERGIO@HOTMAI","L.COM","","AQUI EM PORTUGAL"
:Pause 
:prgmMEMORY
:Lbl 2
:ClrHome
:ClrDraw
:Stop
:Lbl 1
:For(X,1,94,16
:For(Z,0,61,21
:Line(X,Z,X,Z+17
:Line(X+13,Z,X+13,Z+17
:Line(X,Z,X+13,Z
:Line(X,Z+18,X+13,Z+18
:End
:End
:8X
:51Z
:5A
:Repeat sum L=108
:1+int (rand18C
:If 0=L(C
:Then
:+1
:L()L(C
:End
:End
:3D
:3B
:1C
:Goto D
:Lbl C
:Repeat G=45 or G=105 or G=26 or G=24 or G=25 or G=34
:getKeyG
:End
:If G=45
:Stop
:Lbl D
:0
:If 0=pxl-Test(55-Z,X-6
:1
:Pt-Change(X-6,Z-7
:Pt-Change(X-6,Z+7
:Pt-Change(X+5,Z-7
:Pt-Change(X+5,Z+7
:For(Y,X-6,X+4,10
:Line(Y,Z+8,Y+1,Z+8,
:Line(Y,Z-8,Y+1,Z-8,
:End
:If =1
:Goto C
:If G=26
:Then
:X+16X
:C+1C
:End
:If G=24
:Then
:X-16X
:C-1C
:End
:If G=34
:Then
:C+6C
:Z-21Z
:B+21B
:End
:If G=25
:Then
:C-6C
:Z+21Z
:B-21B
:End
:If G=26 and X=104
:Then
:8X
:C-6C
:End
:If G=24 and X=8
:Then
:88X
:C+6C
:End
:If G=25 and Z=72
:Then
:9Z
:C+18C
:45B
:End
:If G=34 and Z=12
:Then
:3B
:51Z
:C-18C
:End
:If G105
:Goto D
:L(C
:If =0
:Goto D
:Line(X-4,Z-5,X+3,Z+5
:X-5D
:If =10
:Text(B,D,"A
:If =9
:Text(B,D,"K
:If =8
:Text(B,D,"J 
:If =7
:Text(B,D,"Q
:If 6
:Text(B,D,
:1+int (rand4T
:If CW
:Then
:If T=1
:Then
:Line(X,Z-6,X+4,Z-6
:Line(X+1,Z-5,X+3,Z-5
:Line(X+2,Z-4,X+2,Z-7
:End
:If T=2
:Then
:Line(X+1,Z-4,X+3,Z-4
:Line(X,Z-5,X+4,Z-5
:Line(X,Z-6,X+4,Z-6
:Pt-On(X+2,Z-7
:End
:If T=3
:Then
:Line(X+1,Z-4,X+1,Z-6
:Line(X+3,Z-4,X+3,Z-6
:Line(X+2,Z-5,X+2,Z-7
:Line(X,Z-5,X+4,Z-5
:End
:If T=4
:Then
:Line(X,Z-5,X+4,Z-5
:Line(X+1,Z-6,X+3,Z-6
:Line(X+1,Z-4,X+3,Z-4
:Line(X+2,Z-3,X+2,Z-7
:End
:End
:0G
:If W=0
:Then
:BL
:DN
:CW
:Goto D
:End
:If C=W
:Goto D
:If =L(W
:Then
:0L(W
:0L(C
:If sum L=0
:Goto 8
:0W
:For(J,B-1,B+12
:Text(J,D-2,"              ;14teen spaces
:End
:For(J,L-1,L+12
:Text(J,N-2,"              ;also
:End
:Goto D
:End
:If L(W
:Then
:For(Y,0,100
:End
:For(J,B,B+11,5
:Text(J,D-1,"            ;12 spaces
:End
:For(J,L,L+11,5
:Text(J,N-1,"            ;also
:End
:0W
:Goto D
:Lbl 8
:For(,1,8
:Disp "
:End
:Disp "    YOU WIN
:For(Y,0,100
:End
:Disp "
:For(Y,0,100
:End
:Disp "  ----------- 
:For(Y,0,100
:End
:Disp "  INSERT COIN
:For(Y,0,100
:End
:Disp "  ----------- 
:For(Y,0,100
:End

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


