Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_54.ADF » U/RELATIO

U/RELATIO

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_54.ADF
Filename: U/RELATIO
Read OK: ✔
File size: 0B12 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10REM RELATIONS
   20REM COPYRIGHT (C) G.LUDINSKI 1983
   30REM ON ERROR PROC_ERROR:GOTO 830
   40MODE6:VDU23;8202;0;0;0;19,7,0;0;:PROCins
   50MODE5:VDU23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
   60DIM A(4,4),X(16),Y(16)
   70REM
   80REM CREATE DOUBLE HEIGHT CHARACTERS
   90REM
  100A%=&A
  110X%=0:Y%=&A
  120FOR I=0 TO 9
  130  ?&A00=ASC(STR$(I))
  140  CALL (&FFF1)
  150  VDU23,128+(2*I),?&A01,?&A01,?&A02,?&A02,?&A03,?&A03,?&A04,?&A04
  160  VDU23,128+(2*I)+1,?&A05,?&A05,?&A06,?&A06,?&A07,?&A07,?&A08,?&A08
  170NEXT I
  180TIME=0:NO=0:CR=0
  190REM
  200REM GENERATE NUMBERS
  210REM
  220CLS
  230PRINT'"     Relations"
  240PRINT'
  250IF TIME >= 20000 THEN GOTO 890
  260NO=NO+1
  270FOR I=1 TO 4
  280  FOR J=1 TO 4
  290    A(I,J)=RND(9)
  300  NEXT J
  310NEXT I
  320REM
  330REM DISPLAY NUMBERS
  340REM
  350COLOUR128:COLOUR2
  360FOR I=1 TO 4
  370  PRINT
  380  FOR T=1 TO 2
  390    FOR J=1 TO 4
  400      IF T=1 THEN PRINT" ";CHR$(128+(2*A(I,J)));
  410      IF T=2 THEN PRINT" ";CHR$(128+(2*A(I,J))+1);
  420    NEXT J
  430  PRINT
  440  NEXT T
  450NEXT I
  460REM
  470REM GENERATE RED NUMBER
  480REM
  490S1=RND(2):S2=INT(RND(1)*10):SM=VAL(STR$(S1)+STR$(S2))
  500COLOUR 1
  510PRINTTAB(13,9);CHR$(128+(2*S1));CHR$(128+(2*S2))
  520PRINTTAB(13,10);CHR$(128+(2*S1)+1);CHR$(128+(2*S2)+1)
  530COLOUR3
  540REM
  550REM CHECK ANSWER
  560REM
  570PRINTTAB(0,17)"Combine a row or    column to be equal  to the red number"
  580PRINT
  590PRINT"Use + - * / ^ SQR ()"
  600VDU19,1,1;0;19,2,3;0;19,3,7;0;
  610INPUT'I$
  620IF I$="" THEN PROC_ERROR:GOTO 830
  630IF EVAL(I$) <> SM THEN PRINT'"No,they are not = ";SM:GOTO830
  640N$=""
  650FOR I=1 TO LEN(I$)
  660  NU$=MID$(I$,I,1)
  670  IF NU$ >= "0" AND NU$ <= "9" THEN N$=N$+NU$
  680NEXT I
  690IF LEN(N$) > 4 OR LEN(N$) = 0 THEN PROC_ERROR:GOTO830
  700SG$=""
  710FOR T=1 TO 2
  720  FOR I=1 TO 4
  730    SG$=SG$+"X"
  740    FOR J=1 TO 4
  750      IF T=1 THEN SG$=SG$+STR$(A(I,J))
  760      IF T=2 THEN SG$=SG$+STR$(A(J,I))
  770    NEXT J
  780  NEXT I
  790SG$=SG$+"X"
  800NEXT T
  810IF INSTR(SG$,N$)=0 THEN PROC_ERROR:GOTO830
  820PRINT:PRINT"Yes, you're right":CR=CR+1
  830PRINT:PRINT"Do you want more Y/N";
  840INPUT R$
  850IF R$ <> "N" THEN GOTO220
  860REM
  870REM SCORE SHEET
  880REM
  890CLS
  900TM=TIME/100
  910PRINT'"Number attempted=";NO
  920PRINT'"Number correct=";CR
  930PRINT'"Time taken=";INT(TM);"secs"
  940IQ=INT((CR*100)/5.3):IF IQ > 150 THEN IQ=150
  950PRINT'"IQ lvl (reasoning)=";IQ
  960IF CR >= 7 THEN PRINT'"This is SUPERIOR    (upper 10%)":END
  970IF CR = 6 THEN PRINT'"This is GOOD (upper 30%)":END
  980IF CR > 4 THEN PRINT'"This is FAIR (upper 60%)":END
  990GOTO1030
 1000DEFPROC_ERROR
 1010PRINTTAB(0,26)"Error, wrong numbers"
 1020ENDPROC
 1030END
 1040DEFPROCins
 1050PRINTSPC(15);"RELATIONS"'SPC(9);"By Genevieve Ludinski"'
 1060PRINT"THIS brainteaser displays a four by fourmatrix of numbers on the left, and a rednumber on the right."
 1070PRINT'"Using the following operators, combine  two or more numbers in the same row or  column to produce the red figure:"
 1080PRINT'"      +      plus"
 1090PRINT"      -      minus"
 1100PRINT"      *      multiplication"
 1110PRINT"      /      division"
 1120PRINT"      ^      to the power of"
 1130PRINT"      SQR()  square root of"
 1140PRINT'"You may NOT 'jump' numbers between row/ column combinations and, if you want"'"real mental exercise, you should deny"'"yourself the use of paper or pencil!"
 1150VDU19,0,4;0;19,7,7;0;
 1160PRINTTAB(13,24)"PRESS SPACE!";:*FX21
 1170REPEATUNTILGET=32
 1180ENDPROC


� RELATIONS
#� COPYRIGHT (C) G.LUDINSKI 1983
"� ON ERROR PROC_ERROR:GOTO 830
($�6:�23;8202;0;0;0;19,7,0;0;:�ins
21�5:�23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
<� A(4,4),X(16),Y(16)
F�
P%� CREATE DOUBLE HEIGHT CHARACTERS
Z�
d	A%=&A
nX%=0:Y%=&A
x
� I=0 � 9
�  ?&A00=�(�(I))
�  � (&FFF1)
�C  �23,128+(2*I),?&A01,?&A01,?&A02,?&A02,?&A03,?&A03,?&A04,?&A04
�E  �23,128+(2*I)+1,?&A05,?&A05,?&A06,?&A06,?&A07,?&A07,?&A08,?&A08
�� I
��=0:NO=0:CR=0
��
�� GENERATE NUMBERS
��
��
��'"     Relations"
��'
�� � >= 20000 � � �DzC
NO=NO+1

� I=1 � 4
  � J=1 � 4
"    A(I,J)=�(9)
,	  � J
6� I
@�
J� DISPLAY NUMBERS
T�
^�128:�2
h
� I=1 � 4
r  �
|  � T=1 � 2
�    � J=1 � 4
�)      � T=1 � �" ";�(128+(2*A(I,J)));
�+      � T=2 � �" ";�(128+(2*A(I,J))+1);
�    � J
�  �
�	  � T
�� I
��
�� GENERATE RED NUMBER
��
�+S1=�(2):S2=�(�(1)*10):SM=�(�(S1)+�(S2))
�� 1
�'�13,9);�(128+(2*S1));�(128+(2*S2))
,�13,10);�(128+(2*S1)+1);�(128+(2*S2)+1)
�3
�
&� CHECK ANSWER
0�
:F�0,17)"Combine a row or    column to be equal  to the red number"
D�
N�"Use + - * / ^ SQR ()"
X �19,1,1;0;19,2,3;0;19,3,7;0;
b�'I$
l� I$="" � �_ERROR:� �T~C
v3� �(I$) <> SM � �'"No,they are not = ";SM:�T~C
�	N$=""
�� I=1 � �(I$)
�  NU$=�I$,I,1)
�+  � NU$ >= "0" � NU$ <= "9" � N$=N$+NU$
�� I
�+� �(N$) > 4 � �(N$) = 0 � �_ERROR:�T~C
�
SG$=""
�
� T=1 � 2
�  � I=1 � 4
�    SG$=SG$+"X"
�    � J=1 � 4
�#      � T=1 � SG$=SG$+�(A(I,J))
�#      � T=2 � SG$=SG$+�(A(J,I))
    � J
	  � I
SG$=SG$+"X"
 � T
* � �SG$,N$)=0 � �_ERROR:�T~C
4"�:�"Yes, you're right":CR=CR+1
>�:�"Do you want more Y/N";
H� R$
R� R$ <> "N" � �d\@
\�
f� SCORE SHEET
p�
z�
�TM=�/100
��'"Number attempted=";NO
��'"Number correct=";CR
� �'"Time taken=";�(TM);"secs"
�*IQ=�((CR*100)/5.3):� IQ > 150 � IQ=150
��'"IQ lvl (reasoning)=";IQ
�5� CR >= 7 � �'"This is SUPERIOR    (upper 10%)":�
�-� CR = 6 � �'"This is GOOD (upper 30%)":�
�-� CR > 4 � �'"This is FAIR (upper 60%)":�
�	�TFD
���_ERROR
�!�0,26)"Error, wrong numbers"
��
�
	��ins
4�(15);"RELATIONS"'�(9);"By Genevieve Ludinski"'
$k�"THIS brainteaser displays a four by fourmatrix of numbers on the left, and a rednumber on the right."
.y�'"Using the following operators, combine  two or more numbers in the same row or  column to produce the red figure:"
8�'"      +      plus"
B�"      -      minus"
L"�"      *      multiplication"
V�"      /      division"
`#�"      ^      to the power of"
j"�"      SQR()  square root of"
t��'"You may NOT 'jump' numbers between row/ column combinations and, if you want"'"real mental exercise, you should deny"'"yourself the use of paper or pencil!"
~�19,0,4;0;19,7,7;0;
�!�13,24)"PRESS SPACE!";:*FX21
�
���=32
��
�
00000000  0d 00 0a 0f f4 20 52 45  4c 41 54 49 4f 4e 53 0d  |..... RELATIONS.|
00000010  00 14 23 f4 20 43 4f 50  59 52 49 47 48 54 20 28  |..#. COPYRIGHT (|
00000020  43 29 20 47 2e 4c 55 44  49 4e 53 4b 49 20 31 39  |C) G.LUDINSKI 19|
00000030  38 33 0d 00 1e 22 f4 20  4f 4e 20 45 52 52 4f 52  |83...". ON ERROR|
00000040  20 50 52 4f 43 5f 45 52  52 4f 52 3a 47 4f 54 4f  | PROC_ERROR:GOTO|
00000050  20 38 33 30 0d 00 28 24  eb 36 3a ef 32 33 3b 38  | 830..($.6:.23;8|
00000060  32 30 32 3b 30 3b 30 3b  30 3b 31 39 2c 37 2c 30  |202;0;0;0;19,7,0|
00000070  3b 30 3b 3a f2 69 6e 73  0d 00 32 31 eb 35 3a ef  |;0;:.ins..21.5:.|
00000080  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 31 39  |23;8202;0;0;0;19|
00000090  2c 31 2c 30 3b 30 3b 31  39 2c 32 2c 30 3b 30 3b  |,1,0;0;19,2,0;0;|
000000a0  31 39 2c 33 2c 30 3b 30  3b 0d 00 3c 18 de 20 41  |19,3,0;0;..<.. A|
000000b0  28 34 2c 34 29 2c 58 28  31 36 29 2c 59 28 31 36  |(4,4),X(16),Y(16|
000000c0  29 0d 00 46 05 f4 0d 00  50 25 f4 20 43 52 45 41  |)..F....P%. CREA|
000000d0  54 45 20 44 4f 55 42 4c  45 20 48 45 49 47 48 54  |TE DOUBLE HEIGHT|
000000e0  20 43 48 41 52 41 43 54  45 52 53 0d 00 5a 05 f4  | CHARACTERS..Z..|
000000f0  0d 00 64 09 41 25 3d 26  41 0d 00 6e 0e 58 25 3d  |..d.A%=&A..n.X%=|
00000100  30 3a 59 25 3d 26 41 0d  00 78 0d e3 20 49 3d 30  |0:Y%=&A..x.. I=0|
00000110  20 b8 20 39 0d 00 82 13  20 20 3f 26 41 30 30 3d  | . 9....  ?&A00=|
00000120  97 28 c3 28 49 29 29 0d  00 8c 0f 20 20 d6 20 28  |.(.(I))....  . (|
00000130  26 46 46 46 31 29 0d 00  96 43 20 20 ef 32 33 2c  |&FFF1)...C  .23,|
00000140  31 32 38 2b 28 32 2a 49  29 2c 3f 26 41 30 31 2c  |128+(2*I),?&A01,|
00000150  3f 26 41 30 31 2c 3f 26  41 30 32 2c 3f 26 41 30  |?&A01,?&A02,?&A0|
00000160  32 2c 3f 26 41 30 33 2c  3f 26 41 30 33 2c 3f 26  |2,?&A03,?&A03,?&|
00000170  41 30 34 2c 3f 26 41 30  34 0d 00 a0 45 20 20 ef  |A04,?&A04...E  .|
00000180  32 33 2c 31 32 38 2b 28  32 2a 49 29 2b 31 2c 3f  |23,128+(2*I)+1,?|
00000190  26 41 30 35 2c 3f 26 41  30 35 2c 3f 26 41 30 36  |&A05,?&A05,?&A06|
000001a0  2c 3f 26 41 30 36 2c 3f  26 41 30 37 2c 3f 26 41  |,?&A06,?&A07,?&A|
000001b0  30 37 2c 3f 26 41 30 38  2c 3f 26 41 30 38 0d 00  |07,?&A08,?&A08..|
000001c0  aa 07 ed 20 49 0d 00 b4  11 d1 3d 30 3a 4e 4f 3d  |... I.....=0:NO=|
000001d0  30 3a 43 52 3d 30 0d 00  be 05 f4 0d 00 c8 16 f4  |0:CR=0..........|
000001e0  20 47 45 4e 45 52 41 54  45 20 4e 55 4d 42 45 52  | GENERATE NUMBER|
000001f0  53 0d 00 d2 05 f4 0d 00  dc 05 db 0d 00 e6 16 f1  |S...............|
00000200  27 22 20 20 20 20 20 52  65 6c 61 74 69 6f 6e 73  |'"     Relations|
00000210  22 0d 00 f0 06 f1 27 0d  00 fa 19 e7 20 91 20 3e  |".....'..... . >|
00000220  3d 20 32 30 30 30 30 20  8c 20 e5 20 8d 44 7a 43  |= 20000 . . .DzC|
00000230  0d 01 04 0b 4e 4f 3d 4e  4f 2b 31 0d 01 0e 0d e3  |....NO=NO+1.....|
00000240  20 49 3d 31 20 b8 20 34  0d 01 18 0f 20 20 e3 20  | I=1 . 4....  . |
00000250  4a 3d 31 20 b8 20 34 0d  01 22 13 20 20 20 20 41  |J=1 . 4..".    A|
00000260  28 49 2c 4a 29 3d b3 28  39 29 0d 01 2c 09 20 20  |(I,J)=.(9)..,.  |
00000270  ed 20 4a 0d 01 36 07 ed  20 49 0d 01 40 05 f4 0d  |. J..6.. I..@...|
00000280  01 4a 15 f4 20 44 49 53  50 4c 41 59 20 4e 55 4d  |.J.. DISPLAY NUM|
00000290  42 45 52 53 0d 01 54 05  f4 0d 01 5e 0b fb 31 32  |BERS..T....^..12|
000002a0  38 3a fb 32 0d 01 68 0d  e3 20 49 3d 31 20 b8 20  |8:.2..h.. I=1 . |
000002b0  34 0d 01 72 07 20 20 f1  0d 01 7c 0f 20 20 e3 20  |4..r.  ...|.  . |
000002c0  54 3d 31 20 b8 20 32 0d  01 86 11 20 20 20 20 e3  |T=1 . 2....    .|
000002d0  20 4a 3d 31 20 b8 20 34  0d 01 90 29 20 20 20 20  | J=1 . 4...)    |
000002e0  20 20 e7 20 54 3d 31 20  8c 20 f1 22 20 22 3b bd  |  . T=1 . ." ";.|
000002f0  28 31 32 38 2b 28 32 2a  41 28 49 2c 4a 29 29 29  |(128+(2*A(I,J)))|
00000300  3b 0d 01 9a 2b 20 20 20  20 20 20 e7 20 54 3d 32  |;...+      . T=2|
00000310  20 8c 20 f1 22 20 22 3b  bd 28 31 32 38 2b 28 32  | . ." ";.(128+(2|
00000320  2a 41 28 49 2c 4a 29 29  2b 31 29 3b 0d 01 a4 0b  |*A(I,J))+1);....|
00000330  20 20 20 20 ed 20 4a 0d  01 ae 07 20 20 f1 0d 01  |    . J....  ...|
00000340  b8 09 20 20 ed 20 54 0d  01 c2 07 ed 20 49 0d 01  |..  . T..... I..|
00000350  cc 05 f4 0d 01 d6 19 f4  20 47 45 4e 45 52 41 54  |........ GENERAT|
00000360  45 20 52 45 44 20 4e 55  4d 42 45 52 0d 01 e0 05  |E RED NUMBER....|
00000370  f4 0d 01 ea 2b 53 31 3d  b3 28 32 29 3a 53 32 3d  |....+S1=.(2):S2=|
00000380  a8 28 b3 28 31 29 2a 31  30 29 3a 53 4d 3d bb 28  |.(.(1)*10):SM=.(|
00000390  c3 28 53 31 29 2b c3 28  53 32 29 29 0d 01 f4 07  |.(S1)+.(S2))....|
000003a0  fb 20 31 0d 01 fe 27 f1  8a 31 33 2c 39 29 3b bd  |. 1...'..13,9);.|
000003b0  28 31 32 38 2b 28 32 2a  53 31 29 29 3b bd 28 31  |(128+(2*S1));.(1|
000003c0  32 38 2b 28 32 2a 53 32  29 29 0d 02 08 2c f1 8a  |28+(2*S2))...,..|
000003d0  31 33 2c 31 30 29 3b bd  28 31 32 38 2b 28 32 2a  |13,10);.(128+(2*|
000003e0  53 31 29 2b 31 29 3b bd  28 31 32 38 2b 28 32 2a  |S1)+1);.(128+(2*|
000003f0  53 32 29 2b 31 29 0d 02  12 06 fb 33 0d 02 1c 05  |S2)+1).....3....|
00000400  f4 0d 02 26 12 f4 20 43  48 45 43 4b 20 41 4e 53  |...&.. CHECK ANS|
00000410  57 45 52 0d 02 30 05 f4  0d 02 3a 46 f1 8a 30 2c  |WER..0....:F..0,|
00000420  31 37 29 22 43 6f 6d 62  69 6e 65 20 61 20 72 6f  |17)"Combine a ro|
00000430  77 20 6f 72 20 20 20 20  63 6f 6c 75 6d 6e 20 74  |w or    column t|
00000440  6f 20 62 65 20 65 71 75  61 6c 20 20 74 6f 20 74  |o be equal  to t|
00000450  68 65 20 72 65 64 20 6e  75 6d 62 65 72 22 0d 02  |he red number"..|
00000460  44 05 f1 0d 02 4e 1b f1  22 55 73 65 20 2b 20 2d  |D....N.."Use + -|
00000470  20 2a 20 2f 20 5e 20 53  51 52 20 28 29 22 0d 02  | * / ^ SQR ()"..|
00000480  58 20 ef 31 39 2c 31 2c  31 3b 30 3b 31 39 2c 32  |X .19,1,1;0;19,2|
00000490  2c 33 3b 30 3b 31 39 2c  33 2c 37 3b 30 3b 0d 02  |,3;0;19,3,7;0;..|
000004a0  62 08 e8 27 49 24 0d 02  6c 1c e7 20 49 24 3d 22  |b..'I$..l.. I$="|
000004b0  22 20 8c 20 f2 5f 45 52  52 4f 52 3a e5 20 8d 54  |" . ._ERROR:. .T|
000004c0  7e 43 0d 02 76 33 e7 20  a0 28 49 24 29 20 3c 3e  |~C..v3. .(I$) <>|
000004d0  20 53 4d 20 8c 20 f1 27  22 4e 6f 2c 74 68 65 79  | SM . .'"No,they|
000004e0  20 61 72 65 20 6e 6f 74  20 3d 20 22 3b 53 4d 3a  | are not = ";SM:|
000004f0  e5 8d 54 7e 43 0d 02 80  09 4e 24 3d 22 22 0d 02  |..T~C....N$=""..|
00000500  8a 11 e3 20 49 3d 31 20  b8 20 a9 28 49 24 29 0d  |... I=1 . .(I$).|
00000510  02 94 12 20 20 4e 55 24  3d c1 49 24 2c 49 2c 31  |...  NU$=.I$,I,1|
00000520  29 0d 02 9e 2b 20 20 e7  20 4e 55 24 20 3e 3d 20  |)...+  . NU$ >= |
00000530  22 30 22 20 80 20 4e 55  24 20 3c 3d 20 22 39 22  |"0" . NU$ <= "9"|
00000540  20 8c 20 4e 24 3d 4e 24  2b 4e 55 24 0d 02 a8 07  | . N$=N$+NU$....|
00000550  ed 20 49 0d 02 b2 2b e7  20 a9 28 4e 24 29 20 3e  |. I...+. .(N$) >|
00000560  20 34 20 84 20 a9 28 4e  24 29 20 3d 20 30 20 8c  | 4 . .(N$) = 0 .|
00000570  20 f2 5f 45 52 52 4f 52  3a e5 8d 54 7e 43 0d 02  | ._ERROR:..T~C..|
00000580  bc 0a 53 47 24 3d 22 22  0d 02 c6 0d e3 20 54 3d  |..SG$=""..... T=|
00000590  31 20 b8 20 32 0d 02 d0  0f 20 20 e3 20 49 3d 31  |1 . 2....  . I=1|
000005a0  20 b8 20 34 0d 02 da 13  20 20 20 20 53 47 24 3d  | . 4....    SG$=|
000005b0  53 47 24 2b 22 58 22 0d  02 e4 11 20 20 20 20 e3  |SG$+"X"....    .|
000005c0  20 4a 3d 31 20 b8 20 34  0d 02 ee 23 20 20 20 20  | J=1 . 4...#    |
000005d0  20 20 e7 20 54 3d 31 20  8c 20 53 47 24 3d 53 47  |  . T=1 . SG$=SG|
000005e0  24 2b c3 28 41 28 49 2c  4a 29 29 0d 02 f8 23 20  |$+.(A(I,J))...# |
000005f0  20 20 20 20 20 e7 20 54  3d 32 20 8c 20 53 47 24  |     . T=2 . SG$|
00000600  3d 53 47 24 2b c3 28 41  28 4a 2c 49 29 29 0d 03  |=SG$+.(A(J,I))..|
00000610  02 0b 20 20 20 20 ed 20  4a 0d 03 0c 09 20 20 ed  |..    . J....  .|
00000620  20 49 0d 03 16 0f 53 47  24 3d 53 47 24 2b 22 58  | I....SG$=SG$+"X|
00000630  22 0d 03 20 07 ed 20 54  0d 03 2a 20 e7 20 a7 53  |".. .. T..* . .S|
00000640  47 24 2c 4e 24 29 3d 30  20 8c 20 f2 5f 45 52 52  |G$,N$)=0 . ._ERR|
00000650  4f 52 3a e5 8d 54 7e 43  0d 03 34 22 f1 3a f1 22  |OR:..T~C..4".:."|
00000660  59 65 73 2c 20 79 6f 75  27 72 65 20 72 69 67 68  |Yes, you're righ|
00000670  74 22 3a 43 52 3d 43 52  2b 31 0d 03 3e 1e f1 3a  |t":CR=CR+1..>..:|
00000680  f1 22 44 6f 20 79 6f 75  20 77 61 6e 74 20 6d 6f  |."Do you want mo|
00000690  72 65 20 59 2f 4e 22 3b  0d 03 48 08 e8 20 52 24  |re Y/N";..H.. R$|
000006a0  0d 03 52 17 e7 20 52 24  20 3c 3e 20 22 4e 22 20  |..R.. R$ <> "N" |
000006b0  8c 20 e5 8d 64 5c 40 0d  03 5c 05 f4 0d 03 66 11  |. ..d\@..\....f.|
000006c0  f4 20 53 43 4f 52 45 20  53 48 45 45 54 0d 03 70  |. SCORE SHEET..p|
000006d0  05 f4 0d 03 7a 05 db 0d  03 84 0c 54 4d 3d 91 2f  |....z......TM=./|
000006e0  31 30 30 0d 03 8e 1c f1  27 22 4e 75 6d 62 65 72  |100.....'"Number|
000006f0  20 61 74 74 65 6d 70 74  65 64 3d 22 3b 4e 4f 0d  | attempted=";NO.|
00000700  03 98 1a f1 27 22 4e 75  6d 62 65 72 20 63 6f 72  |....'"Number cor|
00000710  72 65 63 74 3d 22 3b 43  52 0d 03 a2 20 f1 27 22  |rect=";CR... .'"|
00000720  54 69 6d 65 20 74 61 6b  65 6e 3d 22 3b a8 28 54  |Time taken=";.(T|
00000730  4d 29 3b 22 73 65 63 73  22 0d 03 ac 2a 49 51 3d  |M);"secs"...*IQ=|
00000740  a8 28 28 43 52 2a 31 30  30 29 2f 35 2e 33 29 3a  |.((CR*100)/5.3):|
00000750  e7 20 49 51 20 3e 20 31  35 30 20 8c 20 49 51 3d  |. IQ > 150 . IQ=|
00000760  31 35 30 0d 03 b6 1e f1  27 22 49 51 20 6c 76 6c  |150.....'"IQ lvl|
00000770  20 28 72 65 61 73 6f 6e  69 6e 67 29 3d 22 3b 49  | (reasoning)=";I|
00000780  51 0d 03 c0 35 e7 20 43  52 20 3e 3d 20 37 20 8c  |Q...5. CR >= 7 .|
00000790  20 f1 27 22 54 68 69 73  20 69 73 20 53 55 50 45  | .'"This is SUPE|
000007a0  52 49 4f 52 20 20 20 20  28 75 70 70 65 72 20 31  |RIOR    (upper 1|
000007b0  30 25 29 22 3a e0 0d 03  ca 2d e7 20 43 52 20 3d  |0%)":....-. CR =|
000007c0  20 36 20 8c 20 f1 27 22  54 68 69 73 20 69 73 20  | 6 . .'"This is |
000007d0  47 4f 4f 44 20 28 75 70  70 65 72 20 33 30 25 29  |GOOD (upper 30%)|
000007e0  22 3a e0 0d 03 d4 2d e7  20 43 52 20 3e 20 34 20  |":....-. CR > 4 |
000007f0  8c 20 f1 27 22 54 68 69  73 20 69 73 20 46 41 49  |. .'"This is FAI|
00000800  52 20 28 75 70 70 65 72  20 36 30 25 29 22 3a e0  |R (upper 60%)":.|
00000810  0d 03 de 09 e5 8d 54 46  44 0d 03 e8 0c dd f2 5f  |......TFD......_|
00000820  45 52 52 4f 52 0d 03 f2  21 f1 8a 30 2c 32 36 29  |ERROR...!..0,26)|
00000830  22 45 72 72 6f 72 2c 20  77 72 6f 6e 67 20 6e 75  |"Error, wrong nu|
00000840  6d 62 65 72 73 22 0d 03  fc 05 e1 0d 04 06 05 e0  |mbers"..........|
00000850  0d 04 10 09 dd f2 69 6e  73 0d 04 1a 34 f1 89 28  |......ins...4..(|
00000860  31 35 29 3b 22 52 45 4c  41 54 49 4f 4e 53 22 27  |15);"RELATIONS"'|
00000870  89 28 39 29 3b 22 42 79  20 47 65 6e 65 76 69 65  |.(9);"By Genevie|
00000880  76 65 20 4c 75 64 69 6e  73 6b 69 22 27 0d 04 24  |ve Ludinski"'..$|
00000890  6b f1 22 54 48 49 53 20  62 72 61 69 6e 74 65 61  |k."THIS braintea|
000008a0  73 65 72 20 64 69 73 70  6c 61 79 73 20 61 20 66  |ser displays a f|
000008b0  6f 75 72 20 62 79 20 66  6f 75 72 6d 61 74 72 69  |our by fourmatri|
000008c0  78 20 6f 66 20 6e 75 6d  62 65 72 73 20 6f 6e 20  |x of numbers on |
000008d0  74 68 65 20 6c 65 66 74  2c 20 61 6e 64 20 61 20  |the left, and a |
000008e0  72 65 64 6e 75 6d 62 65  72 20 6f 6e 20 74 68 65  |rednumber on the|
000008f0  20 72 69 67 68 74 2e 22  0d 04 2e 79 f1 27 22 55  | right."...y.'"U|
00000900  73 69 6e 67 20 74 68 65  20 66 6f 6c 6c 6f 77 69  |sing the followi|
00000910  6e 67 20 6f 70 65 72 61  74 6f 72 73 2c 20 63 6f  |ng operators, co|
00000920  6d 62 69 6e 65 20 20 74  77 6f 20 6f 72 20 6d 6f  |mbine  two or mo|
00000930  72 65 20 6e 75 6d 62 65  72 73 20 69 6e 20 74 68  |re numbers in th|
00000940  65 20 73 61 6d 65 20 72  6f 77 20 6f 72 20 20 63  |e same row or  c|
00000950  6f 6c 75 6d 6e 20 74 6f  20 70 72 6f 64 75 63 65  |olumn to produce|
00000960  20 74 68 65 20 72 65 64  20 66 69 67 75 72 65 3a  | the red figure:|
00000970  22 0d 04 38 19 f1 27 22  20 20 20 20 20 20 2b 20  |"..8..'"      + |
00000980  20 20 20 20 20 70 6c 75  73 22 0d 04 42 19 f1 22  |     plus"..B.."|
00000990  20 20 20 20 20 20 2d 20  20 20 20 20 20 6d 69 6e  |      -      min|
000009a0  75 73 22 0d 04 4c 22 f1  22 20 20 20 20 20 20 2a  |us"..L"."      *|
000009b0  20 20 20 20 20 20 6d 75  6c 74 69 70 6c 69 63 61  |      multiplica|
000009c0  74 69 6f 6e 22 0d 04 56  1c f1 22 20 20 20 20 20  |tion"..V.."     |
000009d0  20 2f 20 20 20 20 20 20  64 69 76 69 73 69 6f 6e  | /      division|
000009e0  22 0d 04 60 23 f1 22 20  20 20 20 20 20 5e 20 20  |"..`#."      ^  |
000009f0  20 20 20 20 74 6f 20 74  68 65 20 70 6f 77 65 72  |    to the power|
00000a00  20 6f 66 22 0d 04 6a 22  f1 22 20 20 20 20 20 20  | of"..j"."      |
00000a10  53 51 52 28 29 20 20 73  71 75 61 72 65 20 72 6f  |SQR()  square ro|
00000a20  6f 74 20 6f 66 22 0d 04  74 a3 f1 27 22 59 6f 75  |ot of"..t..'"You|
00000a30  20 6d 61 79 20 4e 4f 54  20 27 6a 75 6d 70 27 20  | may NOT 'jump' |
00000a40  6e 75 6d 62 65 72 73 20  62 65 74 77 65 65 6e 20  |numbers between |
00000a50  72 6f 77 2f 20 63 6f 6c  75 6d 6e 20 63 6f 6d 62  |row/ column comb|
00000a60  69 6e 61 74 69 6f 6e 73  20 61 6e 64 2c 20 69 66  |inations and, if|
00000a70  20 79 6f 75 20 77 61 6e  74 22 27 22 72 65 61 6c  | you want"'"real|
00000a80  20 6d 65 6e 74 61 6c 20  65 78 65 72 63 69 73 65  | mental exercise|
00000a90  2c 20 79 6f 75 20 73 68  6f 75 6c 64 20 64 65 6e  |, you should den|
00000aa0  79 22 27 22 79 6f 75 72  73 65 6c 66 20 74 68 65  |y"'"yourself the|
00000ab0  20 75 73 65 20 6f 66 20  70 61 70 65 72 20 6f 72  | use of paper or|
00000ac0  20 70 65 6e 63 69 6c 21  22 0d 04 7e 17 ef 31 39  | pencil!"..~..19|
00000ad0  2c 30 2c 34 3b 30 3b 31  39 2c 37 2c 37 3b 30 3b  |,0,4;0;19,7,7;0;|
00000ae0  0d 04 88 21 f1 8a 31 33  2c 32 34 29 22 50 52 45  |...!..13,24)"PRE|
00000af0  53 53 20 53 50 41 43 45  21 22 3b 3a 2a 46 58 32  |SS SPACE!";:*FX2|
00000b00  31 0d 04 92 0a f5 fd a5  3d 33 32 0d 04 9c 05 e1  |1.......=32.....|
00000b10  0d ff                                             |..|
00000b12
U/RELATIO.m0
U/RELATIO.m1
U/RELATIO.m2
U/RELATIO.m4
U/RELATIO.m5

© Dominic Ford 2021–2024.

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