Home » Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo » Challenge/Procs/Stupid
Challenge/Procs/Stupid
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 1993-06.adf » !StarInfo_StarInfo |
| Filename: | Challenge/Procs/Stupid |
| Read OK: | ✔ |
| File size: | 00F7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Stupid (Info17) 20REM By Dave Acton 30REM For 32-bit machines 40REM (c) BAU June 1993 50: 60DEF FNstupid(board%,player%,turn%,size%,first%,left%) 70IF turn%=-1 THEN =0 80LOCAL best% 90REPEAT 100 best%=RND(size%*size%)-1 110UNTIL board%?best%=0 120=best%
� >Stupid (Info17) � By Dave Acton � For 32-bit machines (� (c) BAU June 1993 2: <6� �stupid(board%,player%,turn%,size%,first%,left%) F� turn%=-1 � =0 P � best% Z� d best%=�(size%*size%)-1 n� board%?best%=0 x =best% �
00000000 0d 00 0a 1a f4 20 20 20 20 20 3e 53 74 75 70 69 |..... >Stupi| 00000010 64 20 28 49 6e 66 6f 31 37 29 0d 00 14 14 f4 20 |d (Info17)..... | 00000020 42 79 20 20 44 61 76 65 20 41 63 74 6f 6e 0d 00 |By Dave Acton..| 00000030 1e 19 f4 20 46 6f 72 20 33 32 2d 62 69 74 20 6d |... For 32-bit m| 00000040 61 63 68 69 6e 65 73 0d 00 28 17 f4 20 28 63 29 |achines..(.. (c)| 00000050 20 42 41 55 20 4a 75 6e 65 20 31 39 39 33 0d 00 | BAU June 1993..| 00000060 32 05 3a 0d 00 3c 36 dd 20 a4 73 74 75 70 69 64 |2.:..<6. .stupid| 00000070 28 62 6f 61 72 64 25 2c 70 6c 61 79 65 72 25 2c |(board%,player%,| 00000080 74 75 72 6e 25 2c 73 69 7a 65 25 2c 66 69 72 73 |turn%,size%,firs| 00000090 74 25 2c 6c 65 66 74 25 29 0d 00 46 13 e7 20 74 |t%,left%)..F.. t| 000000a0 75 72 6e 25 3d 2d 31 20 8c 20 3d 30 0d 00 50 0b |urn%=-1 . =0..P.| 000000b0 ea 20 62 65 73 74 25 0d 00 5a 05 f5 0d 00 64 1b |. best%..Z....d.| 000000c0 20 62 65 73 74 25 3d b3 28 73 69 7a 65 25 2a 73 | best%=.(size%*s| 000000d0 69 7a 65 25 29 2d 31 0d 00 6e 14 fd 20 62 6f 61 |ize%)-1..n.. boa| 000000e0 72 64 25 3f 62 65 73 74 25 3d 30 0d 00 78 0a 3d |rd%?best%=0..x.=| 000000f0 62 65 73 74 25 0d ff |best%..| 000000f7
.