Home » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo » Simmons/FindError
Simmons/FindError
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 » Archimedes archive » Acorn User » AU 1994-03.adf » !StarInfo_StarInfo |
| Filename: | Simmons/FindError |
| Read OK: | ✔ |
| File size: | 0688 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >FindError
2REM By Jonathan Simmons
3REM For all machines
4REM (c) AU March 1994
5:
6MODE 0
7PROCinit
8:
9FOR a%=1 TO 7
10 PRINT TAB(5,a%*2);a%;") ";list$(a%)
11NEXT
12PRINT'"Think of a number between 0 and 15."
13PRINT'"Look at the above lists and enter which lists your number appears in."
14PRINT"Remember, you are allowed to lie about one of your answers!"'
15REPEAT
16 REPEAT
17 PRINT TAB(0,21);SPC80;TAB(0,21);"Enter your numbers: ";
18 INPUT""in$
19 ok=FNconv(in$)
20 IF NOT ok PRINT TAB(0,23);SPC80;TAB(0,23);"Only digits 0-7 please"
21 UNTIL ok
22 PRINT TAB(0,23);SPC80;TAB(0,23);CHR$34;in$;CHR$34;", ";
23
24 FOR n%=1 TO 3
25 t%=0
26 FOR m%=1 TO 7
27 t%+=m%(n%,m%)*in%(m%)
28 NEXT
29 a%(n%) = t% MOD 2
30 NEXT
31
32 ch% = 4*a%(1)+2*a%(2)+a%(3)
33 IF ch%=0 PRINT "you didn't lie";
34 IF in%(ch%)=0 PRINT ;ch%;" was wrong";
35 IF in%(ch%)=1 PRINT "you should have included ";ch%;
36 IF ch%<>0 in%(ch%) = 1-in%(ch%)
37 number% = in%(4)+2*in%(3)+4*in%(2)+8*in%(1)
38 PRINT ", your number was ";number%
39UNTIL FALSE
40:
41END
42:
43DEF FNconv(i$)
44FOR a%=1 TO 7:in%(a%)=1:NEXT
45ok=TRUE
46a%=1
47IF i$="" THEN =ok
48REPEAT
49 c$=MID$(i$,a%,1)
50 IF c$<"0" OR c$>"7" ok=FALSE ELSE in%(VALc$)=0:a%=a%+1
51UNTIL a%>LENi$ OR ok=FALSE
52=ok
53:
54DEF PROCinit
55LOCAL a%,b%,r%
56DIM a%(3),m%(3,7),in%(7),list$(7)
57FOR a%=1 TO 3
58 FOR b%=1 TO 7
59 READ m%(a%,b%)
60 NEXT
61NEXT
62READ c%
63FOR a%=1 TO 7
64 l$=""
65 FOR b%=0 TO 15
66 IF b%=c% l$=l$+RIGHT$(" "+STR$b%,2)+" ":READ c% ELSE l$=l$+".. "
67 NEXT
68 list$(a%)=l$
69NEXT
70IF c%<>-1 PRINT "Error in data":END
71in%(0)=-1
72ENDPROC
73:
74DATA 0,0,0,1,1,1,1
75DATA 0,1,1,0,0,1,1
76DATA 1,0,1,0,1,0,1
77:
78DATA 0,1,2,3,4,5,6,7
79DATA 0,1,2,3,8,9,10,11
80DATA 0,1,4,5,8,9,12,13
81DATA 0,2,4,6,8,10,12,14
82DATA 0,3,5,6,8,11,13,14
83DATA 0,3,4,7,9,10,13,14
84DATA 0,2,5,7,9,11,12,14
85DATA -1
� >FindError
� By Jonathan Simmons
� For all machines
� (c) AU March 1994
:
� 0
�init
:
� a%=1 � 7
! � �5,a%*2);a%;") ";list$(a%)
�
+�'"Think of a number between 0 and 15."
M�'"Look at the above lists and enter which lists your number appears in."
C�"Remember, you are allowed to lie about one of your answers!"'
�
�
1 � �0,21);�80;�0,21);"Enter your numbers: ";
�""in$
ok=�conv(in$)
9 � � ok � �0,23);�80;�0,23);"Only digits 0-7 please"
� ok
* � �0,23);�80;�0,23);�34;in$;�34;", ";
� n%=1 � 3
t%=0
� m%=1 � 7
t%+=m%(n%,m%)*in%(m%)
�
a%(n%) = t% � 2
�
ch% = 4*a%(1)+2*a%(2)+a%(3)
! � ch%=0 � "you didn't lie";
"& � in%(ch%)=0 � ;ch%;" was wrong";
#4 � in%(ch%)=1 � "you should have included ";ch%;
$# � ch%<>0 in%(ch%) = 1-in%(ch%)
%0 number% = in%(4)+2*in%(3)+4*in%(2)+8*in%(1)
&# � ", your number was ";number%
'� �
(:
)�
*:
+� �conv(i$)
,� a%=1 � 7:in%(a%)=1:�
-ok=�
.a%=1
/� i$="" � =ok
0�
1 c$=�i$,a%,1)
20 � c$<"0" � c$>"7" ok=� � in%(�c$)=0:a%=a%+1
3� a%>�i$ � ok=�
4=ok
5:
6 � �init
7� a%,b%,r%
8#� a%(3),m%(3,7),in%(7),list$(7)
9� a%=1 � 3
: � b%=1 � 7
; � m%(a%,b%)
< �
=�
>� c%
?� a%=1 � 7
@
l$=""
A � b%=0 � 15
B7 � b%=c% l$=l$+�" "+�b%,2)+" ":� c% � l$=l$+".. "
C �
D list$(a%)=l$
E�
F � c%<>-1 � "Error in data":�
G
in%(0)=-1
H�
I:
J� 0,0,0,1,1,1,1
K� 0,1,1,0,0,1,1
L� 1,0,1,0,1,0,1
M:
N� 0,1,2,3,4,5,6,7
O� 0,1,2,3,8,9,10,11
P� 0,1,4,5,8,9,12,13
Q� 0,2,4,6,8,10,12,14
R� 0,3,5,6,8,11,13,14
S� 0,3,4,7,9,10,13,14
T� 0,2,5,7,9,11,12,14
U� -1
� 00000000 0d 00 01 13 f4 20 20 20 20 3e 46 69 6e 64 45 72 |..... >FindEr| 00000010 72 6f 72 0d 00 02 1a f4 20 42 79 20 20 4a 6f 6e |ror..... By Jon| 00000020 61 74 68 61 6e 20 53 69 6d 6d 6f 6e 73 0d 00 03 |athan Simmons...| 00000030 16 f4 20 46 6f 72 20 61 6c 6c 20 6d 61 63 68 69 |.. For all machi| 00000040 6e 65 73 0d 00 04 17 f4 20 28 63 29 20 41 55 20 |nes..... (c) AU | 00000050 4d 61 72 63 68 20 31 39 39 34 0d 00 05 05 3a 0d |March 1994....:.| 00000060 00 06 07 eb 20 30 0d 00 07 09 f2 69 6e 69 74 0d |.... 0.....init.| 00000070 00 08 05 3a 0d 00 09 0e e3 20 61 25 3d 31 20 b8 |...:..... a%=1 .| 00000080 20 37 0d 00 0a 21 20 f1 20 8a 35 2c 61 25 2a 32 | 7...! . .5,a%*2| 00000090 29 3b 61 25 3b 22 29 20 22 3b 6c 69 73 74 24 28 |);a%;") ";list$(| 000000a0 61 25 29 0d 00 0b 05 ed 0d 00 0c 2b f1 27 22 54 |a%)........+.'"T| 000000b0 68 69 6e 6b 20 6f 66 20 61 20 6e 75 6d 62 65 72 |hink of a number| 000000c0 20 62 65 74 77 65 65 6e 20 30 20 61 6e 64 20 31 | between 0 and 1| 000000d0 35 2e 22 0d 00 0d 4d f1 27 22 4c 6f 6f 6b 20 61 |5."...M.'"Look a| 000000e0 74 20 74 68 65 20 61 62 6f 76 65 20 6c 69 73 74 |t the above list| 000000f0 73 20 61 6e 64 20 65 6e 74 65 72 20 77 68 69 63 |s and enter whic| 00000100 68 20 6c 69 73 74 73 20 79 6f 75 72 20 6e 75 6d |h lists your num| 00000110 62 65 72 20 61 70 70 65 61 72 73 20 69 6e 2e 22 |ber appears in."| 00000120 0d 00 0e 43 f1 22 52 65 6d 65 6d 62 65 72 2c 20 |...C."Remember, | 00000130 79 6f 75 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 |you are allowed | 00000140 74 6f 20 6c 69 65 20 61 62 6f 75 74 20 6f 6e 65 |to lie about one| 00000150 20 6f 66 20 79 6f 75 72 20 61 6e 73 77 65 72 73 | of your answers| 00000160 21 22 27 0d 00 0f 05 f5 0d 00 10 06 20 f5 0d 00 |!"'......... ...| 00000170 11 31 20 20 f1 20 8a 30 2c 32 31 29 3b 89 38 30 |.1 . .0,21);.80| 00000180 3b 8a 30 2c 32 31 29 3b 22 45 6e 74 65 72 20 79 |;.0,21);"Enter y| 00000190 6f 75 72 20 6e 75 6d 62 65 72 73 3a 20 22 3b 0d |our numbers: ";.| 000001a0 00 12 0c 20 20 e8 22 22 69 6e 24 0d 00 13 13 20 |... .""in$.... | 000001b0 20 6f 6b 3d a4 63 6f 6e 76 28 69 6e 24 29 0d 00 | ok=.conv(in$)..| 000001c0 14 39 20 20 e7 20 ac 20 6f 6b 20 f1 20 8a 30 2c |.9 . . ok . .0,| 000001d0 32 33 29 3b 89 38 30 3b 8a 30 2c 32 33 29 3b 22 |23);.80;.0,23);"| 000001e0 4f 6e 6c 79 20 64 69 67 69 74 73 20 30 2d 37 20 |Only digits 0-7 | 000001f0 70 6c 65 61 73 65 22 0d 00 15 09 20 fd 20 6f 6b |please".... . ok| 00000200 0d 00 16 2a 20 f1 20 8a 30 2c 32 33 29 3b 89 38 |...* . .0,23);.8| 00000210 30 3b 8a 30 2c 32 33 29 3b bd 33 34 3b 69 6e 24 |0;.0,23);.34;in$| 00000220 3b bd 33 34 3b 22 2c 20 22 3b 0d 00 17 04 0d 00 |;.34;", ";......| 00000230 18 0f 20 e3 20 6e 25 3d 31 20 b8 20 33 0d 00 19 |.. . n%=1 . 3...| 00000240 0a 20 20 74 25 3d 30 0d 00 1a 10 20 20 e3 20 6d |. t%=0.... . m| 00000250 25 3d 31 20 b8 20 37 0d 00 1b 1c 20 20 20 74 25 |%=1 . 7.... t%| 00000260 2b 3d 6d 25 28 6e 25 2c 6d 25 29 2a 69 6e 25 28 |+=m%(n%,m%)*in%(| 00000270 6d 25 29 0d 00 1c 07 20 20 ed 0d 00 1d 15 20 20 |m%).... ..... | 00000280 61 25 28 6e 25 29 20 3d 20 74 25 20 83 20 32 0d |a%(n%) = t% . 2.| 00000290 00 1e 06 20 ed 0d 00 1f 04 0d 00 20 20 20 63 68 |... ....... ch| 000002a0 25 20 3d 20 34 2a 61 25 28 31 29 2b 32 2a 61 25 |% = 4*a%(1)+2*a%| 000002b0 28 32 29 2b 61 25 28 33 29 0d 00 21 20 20 e7 20 |(2)+a%(3)..! . | 000002c0 63 68 25 3d 30 20 f1 20 22 79 6f 75 20 64 69 64 |ch%=0 . "you did| 000002d0 6e 27 74 20 6c 69 65 22 3b 0d 00 22 26 20 e7 20 |n't lie";.."& . | 000002e0 69 6e 25 28 63 68 25 29 3d 30 20 f1 20 3b 63 68 |in%(ch%)=0 . ;ch| 000002f0 25 3b 22 20 77 61 73 20 77 72 6f 6e 67 22 3b 0d |%;" was wrong";.| 00000300 00 23 34 20 e7 20 69 6e 25 28 63 68 25 29 3d 31 |.#4 . in%(ch%)=1| 00000310 20 f1 20 22 79 6f 75 20 73 68 6f 75 6c 64 20 68 | . "you should h| 00000320 61 76 65 20 69 6e 63 6c 75 64 65 64 20 22 3b 63 |ave included ";c| 00000330 68 25 3b 0d 00 24 23 20 e7 20 63 68 25 3c 3e 30 |h%;..$# . ch%<>0| 00000340 20 69 6e 25 28 63 68 25 29 20 3d 20 31 2d 69 6e | in%(ch%) = 1-in| 00000350 25 28 63 68 25 29 0d 00 25 30 20 6e 75 6d 62 65 |%(ch%)..%0 numbe| 00000360 72 25 20 3d 20 69 6e 25 28 34 29 2b 32 2a 69 6e |r% = in%(4)+2*in| 00000370 25 28 33 29 2b 34 2a 69 6e 25 28 32 29 2b 38 2a |%(3)+4*in%(2)+8*| 00000380 69 6e 25 28 31 29 0d 00 26 23 20 f1 20 22 2c 20 |in%(1)..&# . ", | 00000390 79 6f 75 72 20 6e 75 6d 62 65 72 20 77 61 73 20 |your number was | 000003a0 22 3b 6e 75 6d 62 65 72 25 0d 00 27 07 fd 20 a3 |";number%..'.. .| 000003b0 0d 00 28 05 3a 0d 00 29 05 e0 0d 00 2a 05 3a 0d |..(.:..)....*.:.| 000003c0 00 2b 0f dd 20 a4 63 6f 6e 76 28 69 24 29 0d 00 |.+.. .conv(i$)..| 000003d0 2c 1a e3 20 61 25 3d 31 20 b8 20 37 3a 69 6e 25 |,.. a%=1 . 7:in%| 000003e0 28 61 25 29 3d 31 3a ed 0d 00 2d 08 6f 6b 3d b9 |(a%)=1:...-.ok=.| 000003f0 0d 00 2e 08 61 25 3d 31 0d 00 2f 11 e7 20 69 24 |....a%=1../.. i$| 00000400 3d 22 22 20 8c 20 3d 6f 6b 0d 00 30 05 f5 0d 00 |="" . =ok..0....| 00000410 31 11 20 63 24 3d c1 69 24 2c 61 25 2c 31 29 0d |1. c$=.i$,a%,1).| 00000420 00 32 30 20 e7 20 63 24 3c 22 30 22 20 84 20 63 |.20 . c$<"0" . c| 00000430 24 3e 22 37 22 20 6f 6b 3d a3 20 8b 20 69 6e 25 |$>"7" ok=. . in%| 00000440 28 bb 63 24 29 3d 30 3a 61 25 3d 61 25 2b 31 0d |(.c$)=0:a%=a%+1.| 00000450 00 33 13 fd 20 61 25 3e a9 69 24 20 84 20 6f 6b |.3.. a%>.i$ . ok| 00000460 3d a3 0d 00 34 07 3d 6f 6b 0d 00 35 05 3a 0d 00 |=...4.=ok..5.:..| 00000470 36 0b dd 20 f2 69 6e 69 74 0d 00 37 0e ea 20 61 |6.. .init..7.. a| 00000480 25 2c 62 25 2c 72 25 0d 00 38 23 de 20 61 25 28 |%,b%,r%..8#. a%(| 00000490 33 29 2c 6d 25 28 33 2c 37 29 2c 69 6e 25 28 37 |3),m%(3,7),in%(7| 000004a0 29 2c 6c 69 73 74 24 28 37 29 0d 00 39 0e e3 20 |),list$(7)..9.. | 000004b0 61 25 3d 31 20 b8 20 33 0d 00 3a 0f 20 e3 20 62 |a%=1 . 3..:. . b| 000004c0 25 3d 31 20 b8 20 37 0d 00 3b 11 20 20 f3 20 6d |%=1 . 7..;. . m| 000004d0 25 28 61 25 2c 62 25 29 0d 00 3c 06 20 ed 0d 00 |%(a%,b%)..<. ...| 000004e0 3d 05 ed 0d 00 3e 08 f3 20 63 25 0d 00 3f 0e e3 |=....>.. c%..?..| 000004f0 20 61 25 3d 31 20 b8 20 37 0d 00 40 0a 20 6c 24 | a%=1 . 7..@. l$| 00000500 3d 22 22 0d 00 41 10 20 e3 20 62 25 3d 30 20 b8 |=""..A. . b%=0 .| 00000510 20 31 35 0d 00 42 37 20 20 e7 20 62 25 3d 63 25 | 15..B7 . b%=c%| 00000520 20 6c 24 3d 6c 24 2b c2 22 20 20 22 2b c3 62 25 | l$=l$+." "+.b%| 00000530 2c 32 29 2b 22 20 22 3a f3 20 63 25 20 8b 20 6c |,2)+" ":. c% . l| 00000540 24 3d 6c 24 2b 22 2e 2e 20 22 0d 00 43 06 20 ed |$=l$+".. "..C. .| 00000550 0d 00 44 11 20 6c 69 73 74 24 28 61 25 29 3d 6c |..D. list$(a%)=l| 00000560 24 0d 00 45 05 ed 0d 00 46 20 e7 20 63 25 3c 3e |$..E....F . c%<>| 00000570 2d 31 20 f1 20 22 45 72 72 6f 72 20 69 6e 20 64 |-1 . "Error in d| 00000580 61 74 61 22 3a e0 0d 00 47 0d 69 6e 25 28 30 29 |ata":...G.in%(0)| 00000590 3d 2d 31 0d 00 48 05 e1 0d 00 49 05 3a 0d 00 4a |=-1..H....I.:..J| 000005a0 13 dc 20 30 2c 30 2c 30 2c 31 2c 31 2c 31 2c 31 |.. 0,0,0,1,1,1,1| 000005b0 0d 00 4b 13 dc 20 30 2c 31 2c 31 2c 30 2c 30 2c |..K.. 0,1,1,0,0,| 000005c0 31 2c 31 0d 00 4c 13 dc 20 31 2c 30 2c 31 2c 30 |1,1..L.. 1,0,1,0| 000005d0 2c 31 2c 30 2c 31 0d 00 4d 05 3a 0d 00 4e 15 dc |,1,0,1..M.:..N..| 000005e0 20 30 2c 31 2c 32 2c 33 2c 34 2c 35 2c 36 2c 37 | 0,1,2,3,4,5,6,7| 000005f0 0d 00 4f 17 dc 20 30 2c 31 2c 32 2c 33 2c 38 2c |..O.. 0,1,2,3,8,| 00000600 39 2c 31 30 2c 31 31 0d 00 50 17 dc 20 30 2c 31 |9,10,11..P.. 0,1| 00000610 2c 34 2c 35 2c 38 2c 39 2c 31 32 2c 31 33 0d 00 |,4,5,8,9,12,13..| 00000620 51 18 dc 20 30 2c 32 2c 34 2c 36 2c 38 2c 31 30 |Q.. 0,2,4,6,8,10| 00000630 2c 31 32 2c 31 34 0d 00 52 18 dc 20 30 2c 33 2c |,12,14..R.. 0,3,| 00000640 35 2c 36 2c 38 2c 31 31 2c 31 33 2c 31 34 0d 00 |5,6,8,11,13,14..| 00000650 53 18 dc 20 30 2c 33 2c 34 2c 37 2c 39 2c 31 30 |S.. 0,3,4,7,9,10| 00000660 2c 31 33 2c 31 34 0d 00 54 18 dc 20 30 2c 32 2c |,13,14..T.. 0,2,| 00000670 35 2c 37 2c 39 2c 31 31 2c 31 32 2c 31 34 0d 00 |5,7,9,11,12,14..| 00000680 55 08 dc 20 2d 31 0d ff |U.. -1..| 00000688
.