Az ismert Simon memóriajáték, mindössze 395 byte-on.
Írta: Csetneki Sándor
21 -> Dim List 1;
ClrText;
Locate 3,1,"SIMON MEMORY GAME";
For 1 -> X To 21;
Locate X,2,"-";
Next;
0 -> A;
Lbl 1;
Isz A;
Locate 1,3,"SIMON SAYS: ";
1 + Int 4 Ran# -> List 1[A;
Locate A,4,List 1[A;
For 1 -> X To 21;
Locate X,5,".";
Next;
Locate 1,3,"WHAT SAID SIMON?";
For 4 -> Y To 5;
Locate 1,Y," ";
Next;
1 -> M;
Lbl G;
Do;
Getkey -> Z;
LpWhile Z = 0;
For 1 -> X To 20: Next;
(Z=72) + 2(Z=62) + 3(Z=52) + 4(Z=73 -> T;
T = 0 => Goto G;
Locate M,4,T;
T = List 1[M -> N;
Isz M;
N(M<=A => Goto G;
N => Goto 1;
Locate 1,5,"GAME OVER! SCORE:";
Locate 19,5,A-1;
For 1 -> X To A;
Locate X,6,List 1[X;
Next
