Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_53.ADF » U/SPOTTHE

U/SPOTTHE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_53.ADF
Filename: U/SPOTTHE
Read OK: ✔
File size: 0DB2 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10REM SPOT THE DIFFERENCE
   20REM COPYRIGHT (C) G.LUDINSKI 1983
   30MODE6:VDU23;8202;0;0;0;19,7,0;0;:PROCins
   40MODE5:VDU23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
   50DIM WH(6),AN$(6)
   60 
   70TIME=0:CR=0:NQ=0
   80GOTO250
   90REM
  100REM RANDOM NUMBER IN RANGE
  110REM
  120DEF FNM(MIN,MAX)=INT((MAX-MIN)*RND(1)+MIN)
  130REM
  140REM U.D.G. CALCULATOR
  150REM
  160DEF FNB(N$)
  170TF=0
  180FOR L=0 TO 7
  190  TF=TF+(2^L)*VAL(MID$(N$,8-L,1))
  200NEXTL
  210=TF
  220REM
  230REM STARS AND STRIPES
  240REM
  250VDU23,224,30,30,30,30,30,30,30,30
  260VDU23,225,0,FNB("00010000"),FNB("00111000"),FNB("11111110"),FNB("01111100"),FNB("01101100"),FNB("11000110"),FNB("10000010")
  270RI$=CHR$(224):ST$=CHR$(225)
  280REM
  290REM START
  300REM
  310CLS
  320NQ=NQ+1
  330REM
  340REM FRAMEWORK
  350REM
  360GCOL 0,3:COLOUR3:COLOUR128
  370MOVE0,256:DRAW1279,256
  380DRAW1279,1023:DRAW0,1023:DRAW0,256
  390MOVE640,256:DRAW640,1023
  400REM
  410REM DRAW PATTERNS
  420REM
  430NZ=0
  440FOR I=1 TO 6
  450  WH(I)=INT(2*RND(1))
  460  IF WH(I)=1 THEN NZ=NZ+1
  470NEXTI
  480IFNZ=0 THEN GOTO440
  490FOR S=0 TO 1
  500  FOR J=1 TO 3
  510    IF S<>0 THEN GOTO590
  520    X=FNM(J*160-80,160*(J+1)-80)
  530    W=FNM(20,80)
  540    IJ=J
  550    CL=J:IF J=2 THEN CL=3
  560    IF J=3 THEN CL=2
  570    PROC_STRIPE(X,W,CL)
  580    PROC_STRIPE(X+640+(WH(IJ)*FNM(20,40)),W+(WH(IJ)*FNM(20,40)),CL)
  590    IF S<>1 THEN GOTO690
  600    X=FNM(160,480)
  610    Y=FNM(256,896)
  620    W=FNM(80,2*(640-X)/3)
  630    H=FNM(128,768-Y)
  640    IJ=J+3
  650    CL=J:IF J=2 THEN CL=3
  660    IF J=3 THEN CL=2
  670    PROC_STAR(X,Y,W,H,CL)
  680    PROC_STAR(X+640+(WH(IJ)*FNM(20,40)),Y+(WH(IJ)*FNM(20,40)),W+(WH(IJ)*FNM(20,40)),H+(WH(IJ)*FNM(20,40)),CL)
  690  NEXT J
  700NEXT S
  710REM
  720REM QUESTION
  730REM
  740PRINTTAB(0,25)"Which are different?";:COLOUR1:PRINT"   1. ";RI$;:COLOUR3:PRINT" 2. ";RI$;:COLOUR2:PRINT" 3. ";RI$
  750COLOUR1:PRINT"   4. ";ST$;:COLOUR3:PRINT" 5. ";ST$;:COLOUR2:PRINT" 6. ";ST$
  760VDU19,1,1;0;19,2,4;0;19,3,7;0;:PROC_ANSWER
  770COLOUR3
  780IR$=""
  790FOR I=1 TO (LEN(A$)+1)/2
  800  I$=INKEY$(0):IF I$="" THEN GOTO800
  810  PRINTI$;" (";IR$;")";
  820  KI=0
  830  FOR K=1 TO NA
  840    IF I$=AN$(K) THEN AN$(K)="0":KI=1:SOUND 1,-15,101,10:IR$=IR$+I$
  850  NEXT K
  860  IF K-0 THEN PRINT" X" ELSE PRINT
  870  RB$=INKEY$(100):VDU11:PRINT"              ":VDU11
  880NEXT I
  890FOR I=1 TO NA
  900  IF AN$(I)<>"0" THEN GOTO 930
  910NEXTI
  920GOTO 940
  930PRINT'"No, ans=";A$:SOUND 1,-15,73,10:SOUND 1,-15,69,5:GOTO950
  940PRINT'"Yes, you're right":SOUND 1,-15,101,30:CR=CR+1
  950PRINT'"More (Y/N)";
  960INPUT R$:VDU19,1,0;0;19,2,0;0;19,3,0;0;
  970IF R$<> "N" THEN GOTO 310
  980REM
  990REM SCORE SHEET
 1000REM
 1010CLS:PRINT:PRINT"Spot the difference":FOR I=1 TO 9:PRINT:NEXTI
 1020PRINT:PRINT"Puzzles attempted=";NQ
 1030PRINT:PRINT"Puzzles correct=";CR
 1040PRINT:PRINT"Time taken=";INT(TIME/100):PRINT"secs"
 1050IF CR<>0 THEN PRINT:PRINT"Time/puzzle=";INT(TIME/(CR*100)):PRINT"secs"
 1060PRINTTAB(0,25);:VDU19,3,7;0;:END
 1070DEFPROC_STRIPE(X,W,CL)
 1080GCOL 0,CL
 1090MOVE X,256:MOVE X+W,256
 1100PLOT 85,X,1024
 1110PLOT 85,X+W,1024
 1120ENDPROC
 1130DEFPROC_STAR(X,Y,W,H,CL)
 1140GCOL 0,CL
 1150MOVE X+(W/2),Y+(H/3)
 1160MOVE X,Y:PLOT 85,X+(W/2),Y+H
 1170MOVE X+(W/2),Y+(H/3)
 1180MOVE X+W,Y:PLOT 85,X+(W/2),Y+H
 1190MOVE X+(W/2),Y+(H/3)
 1200MOVE X-(W/2),Y+(2*H/3):PLOT 85,X+(3*W/2),Y+(2*H/3)
 1210ENDPROC
 1220DEFPROC_ANSWER
 1230A$="":IM=0
 1240FOR L=1 TO 6
 1250  IF WH(L)=1 THEN IM=IM+1:AN$(IM)=STR$(L):A$=A$+STR$(L)+","
 1260NEXT L
 1270A$=LEFT$(A$,LEN(A$)-1)
 1280NA=IM
 1290ENDPROC
 1300DEFPROCins
 1310PRINTSPC(5)"SPOT THE DIFFERENCE (EYE TEST)"'SPC(11)"Genevieve Ludinski"'
 1320PRINT'"TWO pictures, composed of stars and"'"stripes, in red, white and blue appear  on the screen. You must identify the"'"differences between each picture."
 1330PRINT'"Press the appropriate number key to"'"input which element(s) are different. Ifcorrect, you will hear a high pitched"'"tune. If wrong, your answer will be"'"crossed."
 1340PRINT'"There are often several differences so  any numbers previously keyed in are"'"displayed in brackets. Only when all"'"differences have been attempted will youpass or fail!"
 1350PRINT'"A score sheet is displayed at the end."
 1360VDU19,0,4;0;19,7,7;0;
 1370PRINTTAB(13,24)"PRESS SPACE!";:*FX21
 1380REPEATUNTILGET=32
 1390ENDPROC


� SPOT THE DIFFERENCE
#� COPYRIGHT (C) G.LUDINSKI 1983
$�6:�23;8202;0;0;0;19,7,0;0;:�ins
(1�5:�23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
2� WH(6),AN$(6)
< 
F�=0:CR=0:NQ=0
P	�dz@
Z�
d� RANDOM NUMBER IN RANGE
n�
x'� �M(MIN,MAX)=�((MAX-MIN)*�(1)+MIN)
��
�� U.D.G. CALCULATOR
��
�� �B(N$)
�TF=0
�
� L=0 � 7
�  TF=TF+(2^L)*�(�N$,8-L,1))
��L
�=TF
��
�� STARS AND STRIPES
��
�#�23,224,30,30,30,30,30,30,30,30
v�23,225,0,�B("00010000"),�B("00111000"),�B("11111110"),�B("01111100"),�B("01101100"),�B("11000110"),�B("10000010")
RI$=�(224):ST$=�(225)
�
"� START
,�
6�
@NQ=NQ+1
J�
T� FRAMEWORK
^�
h� 0,3:�3:�128
r�0,256:�1279,256
|�1279,1023:�0,1023:�0,256
��640,256:�640,1023
��
�� DRAW PATTERNS
��
�NZ=0
�
� I=1 � 6
�  WH(I)=�(2*�(1))
�  � WH(I)=1 � NZ=NZ+1
��I
��NZ=0 � �txA
�
� S=0 � 1
�  � J=1 � 3
�    � S<>0 � �DNB
#    X=�M(J*160-80,160*(J+1)-80)
    W=�M(20,80)
    IJ=J
&    CL=J:� J=2 � CL=3
0    � J=3 � CL=2
:    �_STRIPE(X,W,CL)
DB    �_STRIPE(X+640+(WH(IJ)*�M(20,40)),W+(WH(IJ)*�M(20,40)),CL)
N    � S<>1 � �trB
X    X=�M(160,480)
b    Y=�M(256,896)
l    W=�M(80,2*(640-X)/3)
v    H=�M(128,768-Y)
�    IJ=J+3
�    CL=J:� J=2 � CL=3
�    � J=3 � CL=2
�    �_STAR(X,Y,W,H,CL)
�j    �_STAR(X+640+(WH(IJ)*�M(20,40)),Y+(WH(IJ)*�M(20,40)),W+(WH(IJ)*�M(20,40)),H+(WH(IJ)*�M(20,40)),CL)
�	  � J
�� S
��
�� QUESTION
��
�S�0,25)"Which are different?";:�1:�"   1. ";RI$;:�3:�" 2. ";RI$;:�2:�" 3. ";RI$
�4�1:�"   4. ";ST$;:�3:�" 5. ";ST$;:�2:�" 6. ";ST$
�)�19,1,1;0;19,2,4;0;19,3,7;0;:�_ANSWER
�3

IR$=""
� I=1 � (�(A$)+1)/2
   I$=�(0):� I$="" � �T`C
*  �I$;" (";IR$;")";
4
  KI=0
>  � K=1 � NA
H?    � I$=AN$(K) � AN$(K)="0":KI=1:� 1,-15,101,10:IR$=IR$+I$
R	  � K
\  � K-0 � �" X" � �
f*  RB$=�(100):�11:�"              ":�11
p� I
z� I=1 � NA
�  � AN$(I)<>"0" � � �tbC
��I
�
� �tlC
�4�'"No, ans=";A$:� 1,-15,73,10:� 1,-15,69,5:�tvC
�0�'"Yes, you're right":� 1,-15,101,30:CR=CR+1
��'"More (Y/N)";
�%� R$:�19,1,0;0;19,2,0;0;19,3,0;0;
�� R$<> "N" � � �TvA
��
�� SCORE SHEET
��
�-�:�:�"Spot the difference":� I=1 � 9:�:�I
��:�"Puzzles attempted=";NQ
�:�"Puzzles correct=";CR
%�:�"Time taken=";�(�/100):�"secs"
5� CR<>0 � �:�"Time/puzzle=";�(�/(CR*100)):�"secs"
$�0,25);:�19,3,7;0;:�
.��_STRIPE(X,W,CL)
8
� 0,CL
B� X,256:� X+W,256
L� 85,X,1024
V� 85,X+W,1024
`�
j��_STAR(X,Y,W,H,CL)
t
� 0,CL
~� X+(W/2),Y+(H/3)
�� X,Y:� 85,X+(W/2),Y+H
�� X+(W/2),Y+(H/3)
�� X+W,Y:� 85,X+(W/2),Y+H
�� X+(W/2),Y+(H/3)
�0� X-(W/2),Y+(2*H/3):� 85,X+(3*W/2),Y+(2*H/3)
��
�
��_ANSWER
�A$="":IM=0
�
� L=1 � 6
�5  � WH(L)=1 � IM=IM+1:AN$(IM)=�(L):A$=A$+�(L)+","
�� L
�A$=�A$,�(A$)-1)
	NA=IM

�
	��ins
D�(5)"SPOT THE DIFFERENCE (EYE TEST)"'�(11)"Genevieve Ludinski"'
(��'"TWO pictures, composed of stars and"'"stripes, in red, white and blue appear  on the screen. You must identify the"'"differences between each picture."
2��'"Press the appropriate number key to"'"input which element(s) are different. Ifcorrect, you will hear a high pitched"'"tune. If wrong, your answer will be"'"crossed."
<��'"There are often several differences so  any numbers previously keyed in are"'"displayed in brackets. Only when all"'"differences have been attempted will youpass or fail!"
F.�'"A score sheet is displayed at the end."
P�19,0,4;0;19,7,7;0;
Z!�13,24)"PRESS SPACE!";:*FX21
d
���=32
n�
�
00000000  0d 00 0a 19 f4 20 53 50  4f 54 20 54 48 45 20 44  |..... SPOT THE D|
00000010  49 46 46 45 52 45 4e 43  45 0d 00 14 23 f4 20 43  |IFFERENCE...#. C|
00000020  4f 50 59 52 49 47 48 54  20 28 43 29 20 47 2e 4c  |OPYRIGHT (C) G.L|
00000030  55 44 49 4e 53 4b 49 20  31 39 38 33 0d 00 1e 24  |UDINSKI 1983...$|
00000040  eb 36 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.6:.23;8202;0;0;|
00000050  30 3b 31 39 2c 37 2c 30  3b 30 3b 3a f2 69 6e 73  |0;19,7,0;0;:.ins|
00000060  0d 00 28 31 eb 35 3a ef  32 33 3b 38 32 30 32 3b  |..(1.5:.23;8202;|
00000070  30 3b 30 3b 30 3b 31 39  2c 31 2c 30 3b 30 3b 31  |0;0;0;19,1,0;0;1|
00000080  39 2c 32 2c 30 3b 30 3b  31 39 2c 33 2c 30 3b 30  |9,2,0;0;19,3,0;0|
00000090  3b 0d 00 32 12 de 20 57  48 28 36 29 2c 41 4e 24  |;..2.. WH(6),AN$|
000000a0  28 36 29 0d 00 3c 05 20  0d 00 46 11 d1 3d 30 3a  |(6)..<. ..F..=0:|
000000b0  43 52 3d 30 3a 4e 51 3d  30 0d 00 50 09 e5 8d 64  |CR=0:NQ=0..P...d|
000000c0  7a 40 0d 00 5a 05 f4 0d  00 64 1c f4 20 52 41 4e  |z@..Z....d.. RAN|
000000d0  44 4f 4d 20 4e 55 4d 42  45 52 20 49 4e 20 52 41  |DOM NUMBER IN RA|
000000e0  4e 47 45 0d 00 6e 05 f4  0d 00 78 27 dd 20 a4 4d  |NGE..n....x'. .M|
000000f0  28 4d 49 4e 2c 4d 41 58  29 3d a8 28 28 4d 41 58  |(MIN,MAX)=.((MAX|
00000100  2d 4d 49 4e 29 2a b3 28  31 29 2b 4d 49 4e 29 0d  |-MIN)*.(1)+MIN).|
00000110  00 82 05 f4 0d 00 8c 17  f4 20 55 2e 44 2e 47 2e  |......... U.D.G.|
00000120  20 43 41 4c 43 55 4c 41  54 4f 52 0d 00 96 05 f4  | CALCULATOR.....|
00000130  0d 00 a0 0c dd 20 a4 42  28 4e 24 29 0d 00 aa 08  |..... .B(N$)....|
00000140  54 46 3d 30 0d 00 b4 0d  e3 20 4c 3d 30 20 b8 20  |TF=0..... L=0 . |
00000150  37 0d 00 be 1f 20 20 54  46 3d 54 46 2b 28 32 5e  |7....  TF=TF+(2^|
00000160  4c 29 2a bb 28 c1 4e 24  2c 38 2d 4c 2c 31 29 29  |L)*.(.N$,8-L,1))|
00000170  0d 00 c8 06 ed 4c 0d 00  d2 07 3d 54 46 0d 00 dc  |.....L....=TF...|
00000180  05 f4 0d 00 e6 17 f4 20  53 54 41 52 53 20 41 4e  |....... STARS AN|
00000190  44 20 53 54 52 49 50 45  53 0d 00 f0 05 f4 0d 00  |D STRIPES.......|
000001a0  fa 23 ef 32 33 2c 32 32  34 2c 33 30 2c 33 30 2c  |.#.23,224,30,30,|
000001b0  33 30 2c 33 30 2c 33 30  2c 33 30 2c 33 30 2c 33  |30,30,30,30,30,3|
000001c0  30 0d 01 04 76 ef 32 33  2c 32 32 35 2c 30 2c a4  |0...v.23,225,0,.|
000001d0  42 28 22 30 30 30 31 30  30 30 30 22 29 2c a4 42  |B("00010000"),.B|
000001e0  28 22 30 30 31 31 31 30  30 30 22 29 2c a4 42 28  |("00111000"),.B(|
000001f0  22 31 31 31 31 31 31 31  30 22 29 2c a4 42 28 22  |"11111110"),.B("|
00000200  30 31 31 31 31 31 30 30  22 29 2c a4 42 28 22 30  |01111100"),.B("0|
00000210  31 31 30 31 31 30 30 22  29 2c a4 42 28 22 31 31  |1101100"),.B("11|
00000220  30 30 30 31 31 30 22 29  2c a4 42 28 22 31 30 30  |000110"),.B("100|
00000230  30 30 30 31 30 22 29 0d  01 0e 19 52 49 24 3d bd  |00010")....RI$=.|
00000240  28 32 32 34 29 3a 53 54  24 3d bd 28 32 32 35 29  |(224):ST$=.(225)|
00000250  0d 01 18 05 f4 0d 01 22  0b f4 20 53 54 41 52 54  |.......".. START|
00000260  0d 01 2c 05 f4 0d 01 36  05 db 0d 01 40 0b 4e 51  |..,....6....@.NQ|
00000270  3d 4e 51 2b 31 0d 01 4a  05 f4 0d 01 54 0f f4 20  |=NQ+1..J....T.. |
00000280  46 52 41 4d 45 57 4f 52  4b 0d 01 5e 05 f4 0d 01  |FRAMEWORK..^....|
00000290  68 11 e6 20 30 2c 33 3a  fb 33 3a fb 31 32 38 0d  |h.. 0,3:.3:.128.|
000002a0  01 72 14 ec 30 2c 32 35  36 3a df 31 32 37 39 2c  |.r..0,256:.1279,|
000002b0  32 35 36 0d 01 7c 1d df  31 32 37 39 2c 31 30 32  |256..|..1279,102|
000002c0  33 3a df 30 2c 31 30 32  33 3a df 30 2c 32 35 36  |3:.0,1023:.0,256|
000002d0  0d 01 86 16 ec 36 34 30  2c 32 35 36 3a df 36 34  |.....640,256:.64|
000002e0  30 2c 31 30 32 33 0d 01  90 05 f4 0d 01 9a 13 f4  |0,1023..........|
000002f0  20 44 52 41 57 20 50 41  54 54 45 52 4e 53 0d 01  | DRAW PATTERNS..|
00000300  a4 05 f4 0d 01 ae 08 4e  5a 3d 30 0d 01 b8 0d e3  |.......NZ=0.....|
00000310  20 49 3d 31 20 b8 20 36  0d 01 c2 15 20 20 57 48  | I=1 . 6....  WH|
00000320  28 49 29 3d a8 28 32 2a  b3 28 31 29 29 0d 01 cc  |(I)=.(2*.(1))...|
00000330  19 20 20 e7 20 57 48 28  49 29 3d 31 20 8c 20 4e  |.  . WH(I)=1 . N|
00000340  5a 3d 4e 5a 2b 31 0d 01  d6 06 ed 49 0d 01 e0 11  |Z=NZ+1.....I....|
00000350  e7 4e 5a 3d 30 20 8c 20  e5 8d 74 78 41 0d 01 ea  |.NZ=0 . ..txA...|
00000360  0d e3 20 53 3d 30 20 b8  20 31 0d 01 f4 0f 20 20  |.. S=0 . 1....  |
00000370  e3 20 4a 3d 31 20 b8 20  33 0d 01 fe 16 20 20 20  |. J=1 . 3....   |
00000380  20 e7 20 53 3c 3e 30 20  8c 20 e5 8d 44 4e 42 0d  | . S<>0 . ..DNB.|
00000390  02 08 23 20 20 20 20 58  3d a4 4d 28 4a 2a 31 36  |..#    X=.M(J*16|
000003a0  30 2d 38 30 2c 31 36 30  2a 28 4a 2b 31 29 2d 38  |0-80,160*(J+1)-8|
000003b0  30 29 0d 02 12 13 20 20  20 20 57 3d a4 4d 28 32  |0)....    W=.M(2|
000003c0  30 2c 38 30 29 0d 02 1c  0c 20 20 20 20 49 4a 3d  |0,80)....    IJ=|
000003d0  4a 0d 02 26 19 20 20 20  20 43 4c 3d 4a 3a e7 20  |J..&.    CL=J:. |
000003e0  4a 3d 32 20 8c 20 43 4c  3d 33 0d 02 30 14 20 20  |J=2 . CL=3..0.  |
000003f0  20 20 e7 20 4a 3d 33 20  8c 20 43 4c 3d 32 0d 02  |  . J=3 . CL=2..|
00000400  3a 18 20 20 20 20 f2 5f  53 54 52 49 50 45 28 58  |:.    ._STRIPE(X|
00000410  2c 57 2c 43 4c 29 0d 02  44 42 20 20 20 20 f2 5f  |,W,CL)..DB    ._|
00000420  53 54 52 49 50 45 28 58  2b 36 34 30 2b 28 57 48  |STRIPE(X+640+(WH|
00000430  28 49 4a 29 2a a4 4d 28  32 30 2c 34 30 29 29 2c  |(IJ)*.M(20,40)),|
00000440  57 2b 28 57 48 28 49 4a  29 2a a4 4d 28 32 30 2c  |W+(WH(IJ)*.M(20,|
00000450  34 30 29 29 2c 43 4c 29  0d 02 4e 16 20 20 20 20  |40)),CL)..N.    |
00000460  e7 20 53 3c 3e 31 20 8c  20 e5 8d 74 72 42 0d 02  |. S<>1 . ..trB..|
00000470  58 15 20 20 20 20 58 3d  a4 4d 28 31 36 30 2c 34  |X.    X=.M(160,4|
00000480  38 30 29 0d 02 62 15 20  20 20 20 59 3d a4 4d 28  |80)..b.    Y=.M(|
00000490  32 35 36 2c 38 39 36 29  0d 02 6c 1c 20 20 20 20  |256,896)..l.    |
000004a0  57 3d a4 4d 28 38 30 2c  32 2a 28 36 34 30 2d 58  |W=.M(80,2*(640-X|
000004b0  29 2f 33 29 0d 02 76 17  20 20 20 20 48 3d a4 4d  |)/3)..v.    H=.M|
000004c0  28 31 32 38 2c 37 36 38  2d 59 29 0d 02 80 0e 20  |(128,768-Y).... |
000004d0  20 20 20 49 4a 3d 4a 2b  33 0d 02 8a 19 20 20 20  |   IJ=J+3....   |
000004e0  20 43 4c 3d 4a 3a e7 20  4a 3d 32 20 8c 20 43 4c  | CL=J:. J=2 . CL|
000004f0  3d 33 0d 02 94 14 20 20  20 20 e7 20 4a 3d 33 20  |=3....    . J=3 |
00000500  8c 20 43 4c 3d 32 0d 02  9e 1a 20 20 20 20 f2 5f  |. CL=2....    ._|
00000510  53 54 41 52 28 58 2c 59  2c 57 2c 48 2c 43 4c 29  |STAR(X,Y,W,H,CL)|
00000520  0d 02 a8 6a 20 20 20 20  f2 5f 53 54 41 52 28 58  |...j    ._STAR(X|
00000530  2b 36 34 30 2b 28 57 48  28 49 4a 29 2a a4 4d 28  |+640+(WH(IJ)*.M(|
00000540  32 30 2c 34 30 29 29 2c  59 2b 28 57 48 28 49 4a  |20,40)),Y+(WH(IJ|
00000550  29 2a a4 4d 28 32 30 2c  34 30 29 29 2c 57 2b 28  |)*.M(20,40)),W+(|
00000560  57 48 28 49 4a 29 2a a4  4d 28 32 30 2c 34 30 29  |WH(IJ)*.M(20,40)|
00000570  29 2c 48 2b 28 57 48 28  49 4a 29 2a a4 4d 28 32  |),H+(WH(IJ)*.M(2|
00000580  30 2c 34 30 29 29 2c 43  4c 29 0d 02 b2 09 20 20  |0,40)),CL)....  |
00000590  ed 20 4a 0d 02 bc 07 ed  20 53 0d 02 c6 05 f4 0d  |. J..... S......|
000005a0  02 d0 0e f4 20 51 55 45  53 54 49 4f 4e 0d 02 da  |.... QUESTION...|
000005b0  05 f4 0d 02 e4 53 f1 8a  30 2c 32 35 29 22 57 68  |.....S..0,25)"Wh|
000005c0  69 63 68 20 61 72 65 20  64 69 66 66 65 72 65 6e  |ich are differen|
000005d0  74 3f 22 3b 3a fb 31 3a  f1 22 20 20 20 31 2e 20  |t?";:.1:."   1. |
000005e0  22 3b 52 49 24 3b 3a fb  33 3a f1 22 20 32 2e 20  |";RI$;:.3:." 2. |
000005f0  22 3b 52 49 24 3b 3a fb  32 3a f1 22 20 33 2e 20  |";RI$;:.2:." 3. |
00000600  22 3b 52 49 24 0d 02 ee  34 fb 31 3a f1 22 20 20  |";RI$...4.1:."  |
00000610  20 34 2e 20 22 3b 53 54  24 3b 3a fb 33 3a f1 22  | 4. ";ST$;:.3:."|
00000620  20 35 2e 20 22 3b 53 54  24 3b 3a fb 32 3a f1 22  | 5. ";ST$;:.2:."|
00000630  20 36 2e 20 22 3b 53 54  24 0d 02 f8 29 ef 31 39  | 6. ";ST$...).19|
00000640  2c 31 2c 31 3b 30 3b 31  39 2c 32 2c 34 3b 30 3b  |,1,1;0;19,2,4;0;|
00000650  31 39 2c 33 2c 37 3b 30  3b 3a f2 5f 41 4e 53 57  |19,3,7;0;:._ANSW|
00000660  45 52 0d 03 02 06 fb 33  0d 03 0c 0a 49 52 24 3d  |ER.....3....IR$=|
00000670  22 22 0d 03 16 17 e3 20  49 3d 31 20 b8 20 28 a9  |""..... I=1 . (.|
00000680  28 41 24 29 2b 31 29 2f  32 0d 03 20 1d 20 20 49  |(A$)+1)/2.. .  I|
00000690  24 3d bf 28 30 29 3a e7  20 49 24 3d 22 22 20 8c  |$=.(0):. I$="" .|
000006a0  20 e5 8d 54 60 43 0d 03  2a 17 20 20 f1 49 24 3b  | ..T`C..*.  .I$;|
000006b0  22 20 28 22 3b 49 52 24  3b 22 29 22 3b 0d 03 34  |" (";IR$;")";..4|
000006c0  0a 20 20 4b 49 3d 30 0d  03 3e 10 20 20 e3 20 4b  |.  KI=0..>.  . K|
000006d0  3d 31 20 b8 20 4e 41 0d  03 48 3f 20 20 20 20 e7  |=1 . NA..H?    .|
000006e0  20 49 24 3d 41 4e 24 28  4b 29 20 8c 20 41 4e 24  | I$=AN$(K) . AN$|
000006f0  28 4b 29 3d 22 30 22 3a  4b 49 3d 31 3a d4 20 31  |(K)="0":KI=1:. 1|
00000700  2c 2d 31 35 2c 31 30 31  2c 31 30 3a 49 52 24 3d  |,-15,101,10:IR$=|
00000710  49 52 24 2b 49 24 0d 03  52 09 20 20 ed 20 4b 0d  |IR$+I$..R.  . K.|
00000720  03 5c 17 20 20 e7 20 4b  2d 30 20 8c 20 f1 22 20  |.\.  . K-0 . ." |
00000730  58 22 20 8b 20 f1 0d 03  66 2a 20 20 52 42 24 3d  |X" . ...f*  RB$=|
00000740  bf 28 31 30 30 29 3a ef  31 31 3a f1 22 20 20 20  |.(100):.11:."   |
00000750  20 20 20 20 20 20 20 20  20 20 20 22 3a ef 31 31  |           ":.11|
00000760  0d 03 70 07 ed 20 49 0d  03 7a 0e e3 20 49 3d 31  |..p.. I..z.. I=1|
00000770  20 b8 20 4e 41 0d 03 84  1c 20 20 e7 20 41 4e 24  | . NA....  . AN$|
00000780  28 49 29 3c 3e 22 30 22  20 8c 20 e5 20 8d 74 62  |(I)<>"0" . . .tb|
00000790  43 0d 03 8e 06 ed 49 0d  03 98 0a e5 20 8d 74 6c  |C.....I..... .tl|
000007a0  43 0d 03 a2 34 f1 27 22  4e 6f 2c 20 61 6e 73 3d  |C...4.'"No, ans=|
000007b0  22 3b 41 24 3a d4 20 31  2c 2d 31 35 2c 37 33 2c  |";A$:. 1,-15,73,|
000007c0  31 30 3a d4 20 31 2c 2d  31 35 2c 36 39 2c 35 3a  |10:. 1,-15,69,5:|
000007d0  e5 8d 74 76 43 0d 03 ac  30 f1 27 22 59 65 73 2c  |..tvC...0.'"Yes,|
000007e0  20 79 6f 75 27 72 65 20  72 69 67 68 74 22 3a d4  | you're right":.|
000007f0  20 31 2c 2d 31 35 2c 31  30 31 2c 33 30 3a 43 52  | 1,-15,101,30:CR|
00000800  3d 43 52 2b 31 0d 03 b6  13 f1 27 22 4d 6f 72 65  |=CR+1.....'"More|
00000810  20 28 59 2f 4e 29 22 3b  0d 03 c0 25 e8 20 52 24  | (Y/N)";...%. R$|
00000820  3a ef 31 39 2c 31 2c 30  3b 30 3b 31 39 2c 32 2c  |:.19,1,0;0;19,2,|
00000830  30 3b 30 3b 31 39 2c 33  2c 30 3b 30 3b 0d 03 ca  |0;0;19,3,0;0;...|
00000840  17 e7 20 52 24 3c 3e 20  22 4e 22 20 8c 20 e5 20  |.. R$<> "N" . . |
00000850  8d 54 76 41 0d 03 d4 05  f4 0d 03 de 11 f4 20 53  |.TvA.......... S|
00000860  43 4f 52 45 20 53 48 45  45 54 0d 03 e8 05 f4 0d  |CORE SHEET......|
00000870  03 f2 2d db 3a f1 3a f1  22 53 70 6f 74 20 74 68  |..-.:.:."Spot th|
00000880  65 20 64 69 66 66 65 72  65 6e 63 65 22 3a e3 20  |e difference":. |
00000890  49 3d 31 20 b8 20 39 3a  f1 3a ed 49 0d 03 fc 1e  |I=1 . 9:.:.I....|
000008a0  f1 3a f1 22 50 75 7a 7a  6c 65 73 20 61 74 74 65  |.:."Puzzles atte|
000008b0  6d 70 74 65 64 3d 22 3b  4e 51 0d 04 06 1c f1 3a  |mpted=";NQ.....:|
000008c0  f1 22 50 75 7a 7a 6c 65  73 20 63 6f 72 72 65 63  |."Puzzles correc|
000008d0  74 3d 22 3b 43 52 0d 04  10 25 f1 3a f1 22 54 69  |t=";CR...%.:."Ti|
000008e0  6d 65 20 74 61 6b 65 6e  3d 22 3b a8 28 91 2f 31  |me taken=";.(./1|
000008f0  30 30 29 3a f1 22 73 65  63 73 22 0d 04 1a 35 e7  |00):."secs"...5.|
00000900  20 43 52 3c 3e 30 20 8c  20 f1 3a f1 22 54 69 6d  | CR<>0 . .:."Tim|
00000910  65 2f 70 75 7a 7a 6c 65  3d 22 3b a8 28 91 2f 28  |e/puzzle=";.(./(|
00000920  43 52 2a 31 30 30 29 29  3a f1 22 73 65 63 73 22  |CR*100)):."secs"|
00000930  0d 04 24 19 f1 8a 30 2c  32 35 29 3b 3a ef 31 39  |..$...0,25);:.19|
00000940  2c 33 2c 37 3b 30 3b 3a  e0 0d 04 2e 15 dd f2 5f  |,3,7;0;:......._|
00000950  53 54 52 49 50 45 28 58  2c 57 2c 43 4c 29 0d 04  |STRIPE(X,W,CL)..|
00000960  38 0a e6 20 30 2c 43 4c  0d 04 42 15 ec 20 58 2c  |8.. 0,CL..B.. X,|
00000970  32 35 36 3a ec 20 58 2b  57 2c 32 35 36 0d 04 4c  |256:. X+W,256..L|
00000980  0f f0 20 38 35 2c 58 2c  31 30 32 34 0d 04 56 11  |.. 85,X,1024..V.|
00000990  f0 20 38 35 2c 58 2b 57  2c 31 30 32 34 0d 04 60  |. 85,X+W,1024..`|
000009a0  05 e1 0d 04 6a 17 dd f2  5f 53 54 41 52 28 58 2c  |....j..._STAR(X,|
000009b0  59 2c 57 2c 48 2c 43 4c  29 0d 04 74 0a e6 20 30  |Y,W,H,CL)..t.. 0|
000009c0  2c 43 4c 0d 04 7e 15 ec  20 58 2b 28 57 2f 32 29  |,CL..~.. X+(W/2)|
000009d0  2c 59 2b 28 48 2f 33 29  0d 04 88 1a ec 20 58 2c  |,Y+(H/3)..... X,|
000009e0  59 3a f0 20 38 35 2c 58  2b 28 57 2f 32 29 2c 59  |Y:. 85,X+(W/2),Y|
000009f0  2b 48 0d 04 92 15 ec 20  58 2b 28 57 2f 32 29 2c  |+H..... X+(W/2),|
00000a00  59 2b 28 48 2f 33 29 0d  04 9c 1c ec 20 58 2b 57  |Y+(H/3)..... X+W|
00000a10  2c 59 3a f0 20 38 35 2c  58 2b 28 57 2f 32 29 2c  |,Y:. 85,X+(W/2),|
00000a20  59 2b 48 0d 04 a6 15 ec  20 58 2b 28 57 2f 32 29  |Y+H..... X+(W/2)|
00000a30  2c 59 2b 28 48 2f 33 29  0d 04 b0 30 ec 20 58 2d  |,Y+(H/3)...0. X-|
00000a40  28 57 2f 32 29 2c 59 2b  28 32 2a 48 2f 33 29 3a  |(W/2),Y+(2*H/3):|
00000a50  f0 20 38 35 2c 58 2b 28  33 2a 57 2f 32 29 2c 59  |. 85,X+(3*W/2),Y|
00000a60  2b 28 32 2a 48 2f 33 29  0d 04 ba 05 e1 0d 04 c4  |+(2*H/3)........|
00000a70  0d dd f2 5f 41 4e 53 57  45 52 0d 04 ce 0e 41 24  |..._ANSWER....A$|
00000a80  3d 22 22 3a 49 4d 3d 30  0d 04 d8 0d e3 20 4c 3d  |="":IM=0..... L=|
00000a90  31 20 b8 20 36 0d 04 e2  35 20 20 e7 20 57 48 28  |1 . 6...5  . WH(|
00000aa0  4c 29 3d 31 20 8c 20 49  4d 3d 49 4d 2b 31 3a 41  |L)=1 . IM=IM+1:A|
00000ab0  4e 24 28 49 4d 29 3d c3  28 4c 29 3a 41 24 3d 41  |N$(IM)=.(L):A$=A|
00000ac0  24 2b c3 28 4c 29 2b 22  2c 22 0d 04 ec 07 ed 20  |$+.(L)+","..... |
00000ad0  4c 0d 04 f6 13 41 24 3d  c0 41 24 2c a9 28 41 24  |L....A$=.A$,.(A$|
00000ae0  29 2d 31 29 0d 05 00 09  4e 41 3d 49 4d 0d 05 0a  |)-1)....NA=IM...|
00000af0  05 e1 0d 05 14 09 dd f2  69 6e 73 0d 05 1e 44 f1  |........ins...D.|
00000b00  89 28 35 29 22 53 50 4f  54 20 54 48 45 20 44 49  |.(5)"SPOT THE DI|
00000b10  46 46 45 52 45 4e 43 45  20 28 45 59 45 20 54 45  |FFERENCE (EYE TE|
00000b20  53 54 29 22 27 89 28 31  31 29 22 47 65 6e 65 76  |ST)"'.(11)"Genev|
00000b30  69 65 76 65 20 4c 75 64  69 6e 73 6b 69 22 27 0d  |ieve Ludinski"'.|
00000b40  05 28 9e f1 27 22 54 57  4f 20 70 69 63 74 75 72  |.(..'"TWO pictur|
00000b50  65 73 2c 20 63 6f 6d 70  6f 73 65 64 20 6f 66 20  |es, composed of |
00000b60  73 74 61 72 73 20 61 6e  64 22 27 22 73 74 72 69  |stars and"'"stri|
00000b70  70 65 73 2c 20 69 6e 20  72 65 64 2c 20 77 68 69  |pes, in red, whi|
00000b80  74 65 20 61 6e 64 20 62  6c 75 65 20 61 70 70 65  |te and blue appe|
00000b90  61 72 20 20 6f 6e 20 74  68 65 20 73 63 72 65 65  |ar  on the scree|
00000ba0  6e 2e 20 59 6f 75 20 6d  75 73 74 20 69 64 65 6e  |n. You must iden|
00000bb0  74 69 66 79 20 74 68 65  22 27 22 64 69 66 66 65  |tify the"'"diffe|
00000bc0  72 65 6e 63 65 73 20 62  65 74 77 65 65 6e 20 65  |rences between e|
00000bd0  61 63 68 20 70 69 63 74  75 72 65 2e 22 0d 05 32  |ach picture."..2|
00000be0  ac f1 27 22 50 72 65 73  73 20 74 68 65 20 61 70  |..'"Press the ap|
00000bf0  70 72 6f 70 72 69 61 74  65 20 6e 75 6d 62 65 72  |propriate number|
00000c00  20 6b 65 79 20 74 6f 22  27 22 69 6e 70 75 74 20  | key to"'"input |
00000c10  77 68 69 63 68 20 65 6c  65 6d 65 6e 74 28 73 29  |which element(s)|
00000c20  20 61 72 65 20 64 69 66  66 65 72 65 6e 74 2e 20  | are different. |
00000c30  49 66 63 6f 72 72 65 63  74 2c 20 79 6f 75 20 77  |Ifcorrect, you w|
00000c40  69 6c 6c 20 68 65 61 72  20 61 20 68 69 67 68 20  |ill hear a high |
00000c50  70 69 74 63 68 65 64 22  27 22 74 75 6e 65 2e 20  |pitched"'"tune. |
00000c60  49 66 20 77 72 6f 6e 67  2c 20 79 6f 75 72 20 61  |If wrong, your a|
00000c70  6e 73 77 65 72 20 77 69  6c 6c 20 62 65 22 27 22  |nswer will be"'"|
00000c80  63 72 6f 73 73 65 64 2e  22 0d 05 3c b2 f1 27 22  |crossed."..<..'"|
00000c90  54 68 65 72 65 20 61 72  65 20 6f 66 74 65 6e 20  |There are often |
00000ca0  73 65 76 65 72 61 6c 20  64 69 66 66 65 72 65 6e  |several differen|
00000cb0  63 65 73 20 73 6f 20 20  61 6e 79 20 6e 75 6d 62  |ces so  any numb|
00000cc0  65 72 73 20 70 72 65 76  69 6f 75 73 6c 79 20 6b  |ers previously k|
00000cd0  65 79 65 64 20 69 6e 20  61 72 65 22 27 22 64 69  |eyed in are"'"di|
00000ce0  73 70 6c 61 79 65 64 20  69 6e 20 62 72 61 63 6b  |splayed in brack|
00000cf0  65 74 73 2e 20 4f 6e 6c  79 20 77 68 65 6e 20 61  |ets. Only when a|
00000d00  6c 6c 22 27 22 64 69 66  66 65 72 65 6e 63 65 73  |ll"'"differences|
00000d10  20 68 61 76 65 20 62 65  65 6e 20 61 74 74 65 6d  | have been attem|
00000d20  70 74 65 64 20 77 69 6c  6c 20 79 6f 75 70 61 73  |pted will youpas|
00000d30  73 20 6f 72 20 66 61 69  6c 21 22 0d 05 46 2e f1  |s or fail!"..F..|
00000d40  27 22 41 20 73 63 6f 72  65 20 73 68 65 65 74 20  |'"A score sheet |
00000d50  69 73 20 64 69 73 70 6c  61 79 65 64 20 61 74 20  |is displayed at |
00000d60  74 68 65 20 65 6e 64 2e  22 0d 05 50 17 ef 31 39  |the end."..P..19|
00000d70  2c 30 2c 34 3b 30 3b 31  39 2c 37 2c 37 3b 30 3b  |,0,4;0;19,7,7;0;|
00000d80  0d 05 5a 21 f1 8a 31 33  2c 32 34 29 22 50 52 45  |..Z!..13,24)"PRE|
00000d90  53 53 20 53 50 41 43 45  21 22 3b 3a 2a 46 58 32  |SS SPACE!";:*FX2|
00000da0  31 0d 05 64 0a f5 fd a5  3d 33 32 0d 05 6e 05 e1  |1..d....=32..n..|
00000db0  0d ff                                             |..|
00000db2
U/SPOTTHE.m0
U/SPOTTHE.m1
U/SPOTTHE.m2
U/SPOTTHE.m4
U/SPOTTHE.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .