� Odd One Out
#� Copyright (C) G.Ludinski 1983
� X(4,3),Y(4,3),C(4)
($�6:�23;8202;0;0;0;19,7,0;0;:�ins
2�5:�23;8202;0;0;0;
<NU=0:CR=0:�=0
F"�19,1,0;0;19,2,0;0;19,3,0;0;:�
PNU=NU+1
ZPT=0
d�
n� DRAW FRAMEWORK
x�
��0,2:�3
��426,255:�426,1023
��852,255:�852,1023
��0,255:�1279,255
��0,510:�1279,510
��0,765:�1279,765
��
�� GENERATE SHAPES
��
�W=�(�(1)*6+1)
�
�I=1�4
�  C(I)=�(�(1)*3+1)
�  �J=1�3

    X(I,J)=�(�(1)*370+30)

    Y(I,J)=�(�(1)*200+30)

  �J

"�I

,�

6� DRAW PATTERNS

@�

J�J=765�255�-255

T  �I=0�852�426

^    �_PATTERN(I,J)

h  �I

r�J

|�

�� QUESTION

��

�!�0,25)"Which is different ";

�*�19,1,1;0;19,2,3;0;19,3,7;0;:I$="":I=0

�(I$=�(0):�I$="" � I<800 � I=I+1:�tnA

�*� I$<>"" � (I$<�(1) � I$>�(9)) � �tnA

�A� �(I$)=W � �'"Yes, you're right":�1,-15,101,30:CR=CR+1:�dVA

�7�'"No, ";W;" is different":�1,-15,73,10:�1,-15,69,5

��'"More (Y/N)";

��R$

�� R$<>"N" � �DF@

��

�� SCORE SHEET
�
�6:�23;8202;0;0;0;19,7,0;0;
�'�(14)"Odd one out"
&�I=1�9:�:�I
0 �'"Problems completed = ";NU
:TM=�(�/100)
D�'"Problems correct = ";CR
N �'"Time taken = ";TM;" secs"
X2� CR<>0 � �'"Time/problem = ";�(TM/CR);" secs"
b�19,7,7;0;:�
l 
v��_PATTERN(XD,YD)
�PT=PT+1
�*�((20*XD)/1279)+1,31-(32*YD)/1023);PT
�H1=0:H2=0:H3=0
�?� PT=W � H1=�(�(1)*25+10):H2=�(�(1)*25+10):H3=�(�(1)*25+10)
�
�L=1�4
�
  �0,C(L)
�$  �(X(L,1)+XD+H1),(Y(L,1)+YD+H1)
�$  �(X(L,2)+XD+H2),(Y(L,2)+YD+H1)
�(  � 85,(X(L,3)+XD+H3),(Y(L,3)+YD-H1)
��L
��
�	��ins
�:�(11)"ODD ONE OUT PUZZLE"'�(11)"Genevieve Ludinski"''
��'"SETS of nine patterns are displayed on  the screen. You are given only a few"'"seconds to compare them and identify theodd one out."
��'"Each pattern is identified by a number  in its bottom left hand corner and you  play by keying in the correct oddity. Ifwrong, you are told the correct answer. If right, you hear a pleasing tune!"
��'"Every set is different and followed by  the 'More (Y/N)' prompt. Answering <N>  will display a score sheet showing how  many puzzles you completed, the time"'"taken, number correct and average time."
 �19,0,4;0;19,7,7;0;
*!�14,24)"PRESS SPACE!";:*FX21
4
���=32
>�
�

00000000  0d 00 0a 11 f4 20 4f 64  64 20 4f 6e 65 20 4f 75  |..... Odd One Ou|
00000010  74 0d 00 14 23 f4 20 43  6f 70 79 72 69 67 68 74  |t...#. Copyright|
00000020  20 28 43 29 20 47 2e 4c  75 64 69 6e 73 6b 69 20  | (C) G.Ludinski |
00000030  31 39 38 33 0d 00 1e 18  de 20 58 28 34 2c 33 29  |1983..... X(4,3)|
00000040  2c 59 28 34 2c 33 29 2c  43 28 34 29 0d 00 28 24  |,Y(4,3),C(4)..($|
00000050  eb 36 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.6:.23;8202;0;0;|
00000060  30 3b 31 39 2c 37 2c 30  3b 30 3b 3a f2 69 6e 73  |0;19,7,0;0;:.ins|
00000070  0d 00 32 16 eb 35 3a ef  32 33 3b 38 32 30 32 3b  |..2..5:.23;8202;|
00000080  30 3b 30 3b 30 3b 0d 00  3c 11 4e 55 3d 30 3a 43  |0;0;0;..<.NU=0:C|
00000090  52 3d 30 3a d1 3d 30 0d  00 46 22 ef 31 39 2c 31  |R=0:.=0..F".19,1|
000000a0  2c 30 3b 30 3b 31 39 2c  32 2c 30 3b 30 3b 31 39  |,0;0;19,2,0;0;19|
000000b0  2c 33 2c 30 3b 30 3b 3a  db 0d 00 50 0b 4e 55 3d  |,3,0;0;:...P.NU=|
000000c0  4e 55 2b 31 0d 00 5a 08  50 54 3d 30 0d 00 64 05  |NU+1..Z.PT=0..d.|
000000d0  f4 0d 00 6e 14 f4 20 44  52 41 57 20 46 52 41 4d  |...n.. DRAW FRAM|
000000e0  45 57 4f 52 4b 0d 00 78  05 f4 0d 00 82 0b e6 30  |EWORK..x.......0|
000000f0  2c 32 3a fb 33 0d 00 8c  16 ec 34 32 36 2c 32 35  |,2:.3.....426,25|
00000100  35 3a df 34 32 36 2c 31  30 32 33 0d 00 96 16 ec  |5:.426,1023.....|
00000110  38 35 32 2c 32 35 35 3a  df 38 35 32 2c 31 30 32  |852,255:.852,102|
00000120  33 0d 00 a0 14 ec 30 2c  32 35 35 3a df 31 32 37  |3.....0,255:.127|
00000130  39 2c 32 35 35 0d 00 aa  14 ec 30 2c 35 31 30 3a  |9,255.....0,510:|
00000140  df 31 32 37 39 2c 35 31  30 0d 00 b4 14 ec 30 2c  |.1279,510.....0,|
00000150  37 36 35 3a df 31 32 37  39 2c 37 36 35 0d 00 be  |765:.1279,765...|
00000160  05 f4 0d 00 c8 15 f4 20  47 45 4e 45 52 41 54 45  |....... GENERATE|
00000170  20 53 48 41 50 45 53 0d  00 d2 05 f4 0d 00 dc 11  | SHAPES.........|
00000180  57 3d a8 28 b3 28 31 29  2a 36 2b 31 29 0d 00 e6  |W=.(.(1)*6+1)...|
00000190  0a e3 49 3d 31 b8 34 0d  00 f0 16 20 20 43 28 49  |..I=1.4....  C(I|
000001a0  29 3d a8 28 b3 28 31 29  2a 33 2b 31 29 0d 00 fa  |)=.(.(1)*3+1)...|
000001b0  0c 20 20 e3 4a 3d 31 b8  33 0d 01 04 1d 20 20 20  |.  .J=1.3....   |
000001c0  20 58 28 49 2c 4a 29 3d  a8 28 b3 28 31 29 2a 33  | X(I,J)=.(.(1)*3|
000001d0  37 30 2b 33 30 29 0d 01  0e 1d 20 20 20 20 59 28  |70+30)....    Y(|
000001e0  49 2c 4a 29 3d a8 28 b3  28 31 29 2a 32 30 30 2b  |I,J)=.(.(1)*200+|
000001f0  33 30 29 0d 01 18 08 20  20 ed 4a 0d 01 22 06 ed  |30)....  .J.."..|
00000200  49 0d 01 2c 05 f4 0d 01  36 13 f4 20 44 52 41 57  |I..,....6.. DRAW|
00000210  20 50 41 54 54 45 52 4e  53 0d 01 40 05 f4 0d 01  | PATTERNS..@....|
00000220  4a 13 e3 4a 3d 37 36 35  b8 32 35 35 88 2d 32 35  |J..J=765.255.-25|
00000230  35 0d 01 54 12 20 20 e3  49 3d 30 b8 38 35 32 88  |5..T.  .I=0.852.|
00000240  34 32 36 0d 01 5e 16 20  20 20 20 f2 5f 50 41 54  |426..^.    ._PAT|
00000250  54 45 52 4e 28 49 2c 4a  29 0d 01 68 08 20 20 ed  |TERN(I,J)..h.  .|
00000260  49 0d 01 72 06 ed 4a 0d  01 7c 05 f4 0d 01 86 0e  |I..r..J..|......|
00000270  f4 20 51 55 45 53 54 49  4f 4e 0d 01 90 05 f4 0d  |. QUESTION......|
00000280  01 9a 21 f1 8a 30 2c 32  35 29 22 57 68 69 63 68  |..!..0,25)"Which|
00000290  20 69 73 20 64 69 66 66  65 72 65 6e 74 20 22 3b  | is different ";|
000002a0  0d 01 a4 2a ef 31 39 2c  31 2c 31 3b 30 3b 31 39  |...*.19,1,1;0;19|
000002b0  2c 32 2c 33 3b 30 3b 31  39 2c 33 2c 37 3b 30 3b  |,2,3;0;19,3,7;0;|
000002c0  3a 49 24 3d 22 22 3a 49  3d 30 0d 01 ae 28 49 24  |:I$="":I=0...(I$|
000002d0  3d bf 28 30 29 3a e7 49  24 3d 22 22 20 80 20 49  |=.(0):.I$="" . I|
000002e0  3c 38 30 30 20 8c 20 49  3d 49 2b 31 3a e5 8d 74  |<800 . I=I+1:..t|
000002f0  6e 41 0d 01 b8 2a e7 20  49 24 3c 3e 22 22 20 80  |nA...*. I$<>"" .|
00000300  20 28 49 24 3c c3 28 31  29 20 84 20 49 24 3e c3  | (I$<.(1) . I$>.|
00000310  28 39 29 29 20 8c 20 e5  8d 74 6e 41 0d 01 c2 41  |(9)) . ..tnA...A|
00000320  e7 20 bb 28 49 24 29 3d  57 20 8c 20 f1 27 22 59  |. .(I$)=W . .'"Y|
00000330  65 73 2c 20 79 6f 75 27  72 65 20 72 69 67 68 74  |es, you're right|
00000340  22 3a d4 31 2c 2d 31 35  2c 31 30 31 2c 33 30 3a  |":.1,-15,101,30:|
00000350  43 52 3d 43 52 2b 31 3a  e5 8d 64 56 41 0d 01 cc  |CR=CR+1:..dVA...|
00000360  37 f1 27 22 4e 6f 2c 20  22 3b 57 3b 22 20 69 73  |7.'"No, ";W;" is|
00000370  20 64 69 66 66 65 72 65  6e 74 22 3a d4 31 2c 2d  | different":.1,-|
00000380  31 35 2c 37 33 2c 31 30  3a d4 31 2c 2d 31 35 2c  |15,73,10:.1,-15,|
00000390  36 39 2c 35 0d 01 d6 13  f1 27 22 4d 6f 72 65 20  |69,5.....'"More |
000003a0  28 59 2f 4e 29 22 3b 0d  01 e0 07 e8 52 24 0d 01  |(Y/N)";.....R$..|
000003b0  ea 15 e7 20 52 24 3c 3e  22 4e 22 20 8c 20 e5 8d  |... R$<>"N" . ..|
000003c0  44 46 40 0d 01 f4 05 f4  0d 01 fe 11 f4 20 53 43  |DF@.......... SC|
000003d0  4f 52 45 20 53 48 45 45  54 0d 02 08 05 f4 0d 02  |ORE SHEET.......|
000003e0  12 1f eb 36 3a ef 32 33  3b 38 32 30 32 3b 30 3b  |...6:.23;8202;0;|
000003f0  30 3b 30 3b 31 39 2c 37  2c 30 3b 30 3b 0d 02 1c  |0;0;19,7,0;0;...|
00000400  18 f1 27 89 28 31 34 29  22 4f 64 64 20 6f 6e 65  |..'.(14)"Odd one|
00000410  20 6f 75 74 22 0d 02 26  0f e3 49 3d 31 b8 39 3a  | out"..&..I=1.9:|
00000420  f1 3a ed 49 0d 02 30 20  f1 27 22 50 72 6f 62 6c  |.:.I..0 .'"Probl|
00000430  65 6d 73 20 63 6f 6d 70  6c 65 74 65 64 20 3d 20  |ems completed = |
00000440  22 3b 4e 55 0d 02 3a 0f  54 4d 3d a8 28 91 2f 31  |";NU..:.TM=.(./1|
00000450  30 30 29 0d 02 44 1e f1  27 22 50 72 6f 62 6c 65  |00)..D..'"Proble|
00000460  6d 73 20 63 6f 72 72 65  63 74 20 3d 20 22 3b 43  |ms correct = ";C|
00000470  52 0d 02 4e 20 f1 27 22  54 69 6d 65 20 74 61 6b  |R..N .'"Time tak|
00000480  65 6e 20 3d 20 22 3b 54  4d 3b 22 20 73 65 63 73  |en = ";TM;" secs|
00000490  22 0d 02 58 32 e7 20 43  52 3c 3e 30 20 8c 20 f1  |"..X2. CR<>0 . .|
000004a0  27 22 54 69 6d 65 2f 70  72 6f 62 6c 65 6d 20 3d  |'"Time/problem =|
000004b0  20 22 3b a8 28 54 4d 2f  43 52 29 3b 22 20 73 65  | ";.(TM/CR);" se|
000004c0  63 73 22 0d 02 62 10 ef  31 39 2c 37 2c 37 3b 30  |cs"..b..19,7,7;0|
000004d0  3b 3a e0 0d 02 6c 05 20  0d 02 76 15 dd f2 5f 50  |;:...l. ..v..._P|
000004e0  41 54 54 45 52 4e 28 58  44 2c 59 44 29 0d 02 80  |ATTERN(XD,YD)...|
000004f0  0b 50 54 3d 50 54 2b 31  0d 02 8a 2a f1 8a 28 28  |.PT=PT+1...*..((|
00000500  32 30 2a 58 44 29 2f 31  32 37 39 29 2b 31 2c 33  |20*XD)/1279)+1,3|
00000510  31 2d 28 33 32 2a 59 44  29 2f 31 30 32 33 29 3b  |1-(32*YD)/1023);|
00000520  50 54 0d 02 94 12 48 31  3d 30 3a 48 32 3d 30 3a  |PT....H1=0:H2=0:|
00000530  48 33 3d 30 0d 02 9e 3f  e7 20 50 54 3d 57 20 8c  |H3=0...?. PT=W .|
00000540  20 48 31 3d a8 28 b3 28  31 29 2a 32 35 2b 31 30  | H1=.(.(1)*25+10|
00000550  29 3a 48 32 3d a8 28 b3  28 31 29 2a 32 35 2b 31  |):H2=.(.(1)*25+1|
00000560  30 29 3a 48 33 3d a8 28  b3 28 31 29 2a 32 35 2b  |0):H3=.(.(1)*25+|
00000570  31 30 29 0d 02 a8 0a e3  4c 3d 31 b8 34 0d 02 b2  |10).....L=1.4...|
00000580  0d 20 20 e6 30 2c 43 28  4c 29 0d 02 bc 24 20 20  |.  .0,C(L)...$  |
00000590  ec 28 58 28 4c 2c 31 29  2b 58 44 2b 48 31 29 2c  |.(X(L,1)+XD+H1),|
000005a0  28 59 28 4c 2c 31 29 2b  59 44 2b 48 31 29 0d 02  |(Y(L,1)+YD+H1)..|
000005b0  c6 24 20 20 ec 28 58 28  4c 2c 32 29 2b 58 44 2b  |.$  .(X(L,2)+XD+|
000005c0  48 32 29 2c 28 59 28 4c  2c 32 29 2b 59 44 2b 48  |H2),(Y(L,2)+YD+H|
000005d0  31 29 0d 02 d0 28 20 20  f0 20 38 35 2c 28 58 28  |1)...(  . 85,(X(|
000005e0  4c 2c 33 29 2b 58 44 2b  48 33 29 2c 28 59 28 4c  |L,3)+XD+H3),(Y(L|
000005f0  2c 33 29 2b 59 44 2d 48  31 29 0d 02 da 06 ed 4c  |,3)+YD-H1).....L|
00000600  0d 02 e4 05 e1 0d 02 ee  09 dd f2 69 6e 73 0d 02  |...........ins..|
00000610  f8 3a f1 89 28 31 31 29  22 4f 44 44 20 4f 4e 45  |.:..(11)"ODD ONE|
00000620  20 4f 55 54 20 50 55 5a  5a 4c 45 22 27 89 28 31  | OUT PUZZLE"'.(1|
00000630  31 29 22 47 65 6e 65 76  69 65 76 65 20 4c 75 64  |1)"Genevieve Lud|
00000640  69 6e 73 6b 69 22 27 27  0d 03 02 8b f1 27 22 53  |inski"''.....'"S|
00000650  45 54 53 20 6f 66 20 6e  69 6e 65 20 70 61 74 74  |ETS of nine patt|
00000660  65 72 6e 73 20 61 72 65  20 64 69 73 70 6c 61 79  |erns are display|
00000670  65 64 20 6f 6e 20 20 74  68 65 20 73 63 72 65 65  |ed on  the scree|
00000680  6e 2e 20 59 6f 75 20 61  72 65 20 67 69 76 65 6e  |n. You are given|
00000690  20 6f 6e 6c 79 20 61 20  66 65 77 22 27 22 73 65  | only a few"'"se|
000006a0  63 6f 6e 64 73 20 74 6f  20 63 6f 6d 70 61 72 65  |conds to compare|
000006b0  20 74 68 65 6d 20 61 6e  64 20 69 64 65 6e 74 69  | them and identi|
000006c0  66 79 20 74 68 65 6f 64  64 20 6f 6e 65 20 6f 75  |fy theodd one ou|
000006d0  74 2e 22 0d 03 0c cb f1  27 22 45 61 63 68 20 70  |t.".....'"Each p|
000006e0  61 74 74 65 72 6e 20 69  73 20 69 64 65 6e 74 69  |attern is identi|
000006f0  66 69 65 64 20 62 79 20  61 20 6e 75 6d 62 65 72  |fied by a number|
00000700  20 20 69 6e 20 69 74 73  20 62 6f 74 74 6f 6d 20  |  in its bottom |
00000710  6c 65 66 74 20 68 61 6e  64 20 63 6f 72 6e 65 72  |left hand corner|
00000720  20 61 6e 64 20 79 6f 75  20 20 70 6c 61 79 20 62  | and you  play b|
00000730  79 20 6b 65 79 69 6e 67  20 69 6e 20 74 68 65 20  |y keying in the |
00000740  63 6f 72 72 65 63 74 20  6f 64 64 69 74 79 2e 20  |correct oddity. |
00000750  49 66 77 72 6f 6e 67 2c  20 79 6f 75 20 61 72 65  |Ifwrong, you are|
00000760  20 74 6f 6c 64 20 74 68  65 20 63 6f 72 72 65 63  | told the correc|
00000770  74 20 61 6e 73 77 65 72  2e 20 49 66 20 72 69 67  |t answer. If rig|
00000780  68 74 2c 20 79 6f 75 20  68 65 61 72 20 61 20 70  |ht, you hear a p|
00000790  6c 65 61 73 69 6e 67 20  74 75 6e 65 21 22 0d 03  |leasing tune!"..|
000007a0  16 ce f1 27 22 45 76 65  72 79 20 73 65 74 20 69  |...'"Every set i|
000007b0  73 20 64 69 66 66 65 72  65 6e 74 20 61 6e 64 20  |s different and |
000007c0  66 6f 6c 6c 6f 77 65 64  20 62 79 20 20 74 68 65  |followed by  the|
000007d0  20 27 4d 6f 72 65 20 28  59 2f 4e 29 27 20 70 72  | 'More (Y/N)' pr|
000007e0  6f 6d 70 74 2e 20 41 6e  73 77 65 72 69 6e 67 20  |ompt. Answering |
000007f0  3c 4e 3e 20 20 77 69 6c  6c 20 64 69 73 70 6c 61  |<N>  will displa|
00000800  79 20 61 20 73 63 6f 72  65 20 73 68 65 65 74 20  |y a score sheet |
00000810  73 68 6f 77 69 6e 67 20  68 6f 77 20 20 6d 61 6e  |showing how  man|
00000820  79 20 70 75 7a 7a 6c 65  73 20 79 6f 75 20 63 6f  |y puzzles you co|
00000830  6d 70 6c 65 74 65 64 2c  20 74 68 65 20 74 69 6d  |mpleted, the tim|
00000840  65 22 27 22 74 61 6b 65  6e 2c 20 6e 75 6d 62 65  |e"'"taken, numbe|
00000850  72 20 63 6f 72 72 65 63  74 20 61 6e 64 20 61 76  |r correct and av|
00000860  65 72 61 67 65 20 74 69  6d 65 2e 22 0d 03 20 17  |erage time.".. .|
00000870  ef 31 39 2c 30 2c 34 3b  30 3b 31 39 2c 37 2c 37  |.19,0,4;0;19,7,7|
00000880  3b 30 3b 0d 03 2a 21 f1  8a 31 34 2c 32 34 29 22  |;0;..*!..14,24)"|
00000890  50 52 45 53 53 20 53 50  41 43 45 21 22 3b 3a 2a  |PRESS SPACE!";:*|
000008a0  46 58 32 31 0d 03 34 0a  f5 fd a5 3d 33 32 0d 03  |FX21..4....=32..|
000008b0  3e 05 e1 0d ff                                    |>....|
000008b5