_________________________________________________________________________

           Title: mem-shinkeisuijyaku 
         Version: v0.6
          Author: Hidetake Jo
            Size:
	     Model: 9850+
     Description: Memory game by Hidetake Jo

When you execute this game, you will see something like this:
  +---------------------+
  |  O O O O O O O O O  |
  |  O O O O O O O O O  |
  |  O O O O O O O O O  |
  |  O O O O O O O O O  |
  +---------------------+

Each "O" is a card, all the cards are facing down.  
Your task is basically to match up all the cards 
with the same number.  

When you pair up 2 cards with the same number, they 
cancel each other out and they will disppear from the screen.

The controls are:
Arrow keys to move Up, Down, Left, Right
and [EXE] to pick up the card and see what the value is.

You can only have 2 cards facing up at a time, so if the 
2 cards you picked up were not the same number then they 
will face down again.So you must try to memorize where each cards are.  

Hope you enjoy it.
_______________________________________________________________________

 Program :

ClrText
0->A~Z
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}->List 1     //32 0's
"PLACING CARDS..."
Locate 1,3,"PERCENT COMPLETE:"
For 1->A To 16
Locate 19,3,(Int (A/16*100)
For 1->C To 2
Lbl 1
Int 32Ran#+1->B
List 1[B]=/=0=>Goto 1
A->List 1[B]
Next
Next
ClrText
For 1->B To 7 Step 2
For 4->A To 18 Step 2
Locate A,B,"O"
Next
Next
1->Z
4->G
1->H
1->I
While Z=1
Lbl 2
GetKey->L
L=/=0=>8(((H+1)/2)-1)+(G-2)/2->I
Locate G,H," "
If E=0 Or E=1
Then List 1[I]=/=0=>Locate G,H,"O"
IfEnd
E=/=0=>List 1[I]=/=0=>Locate U,W,N
L=0=>Goto 2
If L=28
Then H=1=>3->H
H-2->H
IfEnd
If L=37
Then H=7=>5->H
H+2->H
IfEnd
If L=38
Then G=4=>6->G
G-2->G
IfEnd
If L=27
Then G=18=>16->G
G+2->G
IfEnd
If L=31
Then If E=1
Then If G=U And H=W
Then Goto 3
IfEnd
0->E
If N=List1[I]
Then 0->List 1[I]
8(((W-1)/2)-1)+(U-2)/2->R
0->List 1[R]
Locate U,W,"  "   //2 spaces here
Locate G,H,"  "    //2 spaces here
Isz K
Isz T
Goto 3
IfEnd
If N=/=List 1[I]
Then 0->E
Isz T
Locate G,H,List 1[I]
For 1->A To 50
cos 30
Next
Locate U,W,"O "   //a O and a space in quotations
Locate G,H,"O "    //a O and a space in quoatations
IfEnd
Goto 3
IfEnd
If E=0
Then 1->E
G->U:H->W
List 1[I]->N
IfEnd
IfEnd
Lbl 3
K=16=>Goto 4
WhileEnd
Lbl 4
ClrText
ClrList
Locate 8,2,"YOU WIN"
Locate 7,4,"TRIES:"
Locate 14,4,T