Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Regulars_2 » StarInfo/Waters/!Conundrum/!RunImage
StarInfo/Waters/!Conundrum/!RunImage
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 1996-12 B.adf » Regulars_2 |
| Filename: | StarInfo/Waters/!Conundrum/!RunImage |
| Read OK: | ✔ |
| File size: | 025F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM a%(260),l%(260),i$(10100)
20f%=OPENIN("<Conun$Dir>.CON")
30SYS "Hourglass_On":FOR i%=10 TO 260
40INPUT#f%,a%(i%),l%(i%)
50NEXT:i%=0:WHILE NOT(EOF#f%)
60i%+=1:INPUT#f%,i$(i%)
70SYS "Hourglass_Percentage",i%/101
80ENDWHILE:CLOSE#f%:SYS "Hourglass_Off"
90REPEAT:v%=1
100INPUT " => "c$
110IF LEN(c$)<>9 v%=0
120FOR i%=1 TO 9:IF MID$(c$,i%)>"@" AND MID$(c$,i%)<"[" MID$(c$,i%)=CHR$(ASC(MID$(c$,i%))+32)
130IF MID$(c$,i%)<"a" OR MID$(c$,i%)>="{" v%=0
140NEXT:IF v%=0 THEN
150PRINT "Not a valid conundrum"
160ELSE:v%=-864:FOR i%=1 TO 9:v%+=ASC(MID$(c$,i%)):NEXT
170FOR i%=a%(v%) TO a%(v%)+l%(v%)-1:x$=i$(i%)
180FOR j%=1 TO 9:IF INSTR(x$,MID$(c$,j%,1)) MID$(x$,INSTR(x$,MID$(c$,j%,1)))=" "
190NEXT:IF x$=" " PRINT " "i$(i%)
200NEXT
210ENDIF
230UNTIL 0
� a%(260),l%(260),i$(10100)
f%=�("<Conun$Dir>.CON")
#ș "Hourglass_On":� i%=10 � 260
(�#f%,a%(i%),l%(i%)
2�:i%=0:ȕ �(�#f%)
<i%+=1:�#f%,i$(i%)
F$ș "Hourglass_Percentage",i%/101
P �:�#f%:ș "Hourglass_Off"
Z
�:v%=1
d� " => "c$
n� �(c$)<>9 v%=0
xC� i%=1 � 9:� �c$,i%)>"@" � �c$,i%)<"[" �c$,i%)=�(�(�c$,i%))+32)
�%� �c$,i%)<"a" � �c$,i%)>="{" v%=0
��:� v%=0 �
� � "Not a valid conundrum"
�)�:v%=-864:� i%=1 � 9:v%+=�(�c$,i%)):�
�+� i%=a%(v%) � a%(v%)+l%(v%)-1:x$=i$(i%)
�7� j%=1 � 9:� �x$,�c$,j%,1)) �x$,�x$,�c$,j%,1)))=" "
�%�:� x$=" " � " "i$(i%)
��
��
�� 0
� 00000000 0d 00 0a 1f de 20 61 25 28 32 36 30 29 2c 6c 25 |..... a%(260),l%|
00000010 28 32 36 30 29 2c 69 24 28 31 30 31 30 30 29 0d |(260),i$(10100).|
00000020 00 14 1b 66 25 3d 8e 28 22 3c 43 6f 6e 75 6e 24 |...f%=.("<Conun$|
00000030 44 69 72 3e 2e 43 4f 4e 22 29 0d 00 1e 23 c8 99 |Dir>.CON")...#..|
00000040 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 3a | "Hourglass_On":|
00000050 e3 20 69 25 3d 31 30 20 b8 20 32 36 30 0d 00 28 |. i%=10 . 260..(|
00000060 16 e8 23 66 25 2c 61 25 28 69 25 29 2c 6c 25 28 |..#f%,a%(i%),l%(|
00000070 69 25 29 0d 00 32 15 ed 3a 69 25 3d 30 3a c8 95 |i%)..2..:i%=0:..|
00000080 20 ac 28 c5 23 66 25 29 0d 00 3c 15 69 25 2b 3d | .(.#f%)..<.i%+=|
00000090 31 3a e8 23 66 25 2c 69 24 28 69 25 29 0d 00 46 |1:.#f%,i$(i%)..F|
000000a0 24 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 50 |$.. "Hourglass_P|
000000b0 65 72 63 65 6e 74 61 67 65 22 2c 69 25 2f 31 30 |ercentage",i%/10|
000000c0 31 0d 00 50 1d ce 3a d9 23 66 25 3a c8 99 20 22 |1..P..:.#f%:.. "|
000000d0 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 00 |Hourglass_Off"..|
000000e0 5a 0a f5 3a 76 25 3d 31 0d 00 64 0e e8 20 22 20 |Z..:v%=1..d.. " |
000000f0 3d 3e 20 22 63 24 0d 00 6e 13 e7 20 a9 28 63 24 |=> "c$..n.. .(c$|
00000100 29 3c 3e 39 20 76 25 3d 30 0d 00 78 43 e3 20 69 |)<>9 v%=0..xC. i|
00000110 25 3d 31 20 b8 20 39 3a e7 20 c1 63 24 2c 69 25 |%=1 . 9:. .c$,i%|
00000120 29 3e 22 40 22 20 80 20 c1 63 24 2c 69 25 29 3c |)>"@" . .c$,i%)<|
00000130 22 5b 22 20 c1 63 24 2c 69 25 29 3d bd 28 97 28 |"[" .c$,i%)=.(.(|
00000140 c1 63 24 2c 69 25 29 29 2b 33 32 29 0d 00 82 25 |.c$,i%))+32)...%|
00000150 e7 20 c1 63 24 2c 69 25 29 3c 22 61 22 20 84 20 |. .c$,i%)<"a" . |
00000160 c1 63 24 2c 69 25 29 3e 3d 22 7b 22 20 76 25 3d |.c$,i%)>="{" v%=|
00000170 30 0d 00 8c 0e ed 3a e7 20 76 25 3d 30 20 8c 0d |0.....:. v%=0 ..|
00000180 00 96 1d f1 20 22 4e 6f 74 20 61 20 76 61 6c 69 |.... "Not a vali|
00000190 64 20 63 6f 6e 75 6e 64 72 75 6d 22 0d 00 a0 29 |d conundrum"...)|
000001a0 cc 3a 76 25 3d 2d 38 36 34 3a e3 20 69 25 3d 31 |.:v%=-864:. i%=1|
000001b0 20 b8 20 39 3a 76 25 2b 3d 97 28 c1 63 24 2c 69 | . 9:v%+=.(.c$,i|
000001c0 25 29 29 3a ed 0d 00 aa 2b e3 20 69 25 3d 61 25 |%)):....+. i%=a%|
000001d0 28 76 25 29 20 b8 20 61 25 28 76 25 29 2b 6c 25 |(v%) . a%(v%)+l%|
000001e0 28 76 25 29 2d 31 3a 78 24 3d 69 24 28 69 25 29 |(v%)-1:x$=i$(i%)|
000001f0 0d 00 b4 37 e3 20 6a 25 3d 31 20 b8 20 39 3a e7 |...7. j%=1 . 9:.|
00000200 20 a7 78 24 2c c1 63 24 2c 6a 25 2c 31 29 29 20 | .x$,.c$,j%,1)) |
00000210 c1 78 24 2c a7 78 24 2c c1 63 24 2c 6a 25 2c 31 |.x$,.x$,.c$,j%,1|
00000220 29 29 29 3d 22 20 22 0d 00 be 25 ed 3a e7 20 78 |)))=" "...%.:. x|
00000230 24 3d 22 20 20 20 20 20 20 20 20 20 22 20 f1 20 |$=" " . |
00000240 22 20 20 20 20 22 69 24 28 69 25 29 0d 00 c8 05 |" "i$(i%)....|
00000250 ed 0d 00 d2 05 cd 0d 00 e6 07 fd 20 30 0d ff |........... 0..|
0000025f 
.