Home » Archimedes archive » Acorn User » AU 1995-04.adf » !StarInfo_StarInfo » Beech/Predict
Beech/Predict
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 1995-04.adf » !StarInfo_StarInfo |
| Filename: | Beech/Predict |
| Read OK: | ✔ |
| File size: | 0084 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1t=1000:DIM u(49):u()=0:FOR w=1 TO t:u(RND(49))+=1:NEXT:x=1:FOR y=t TO 0 STEP -1:z=1:WHILE(x<=6 AND z<=49):IF (u(z)=y) THEN PRINT z:x+=1
2z+=1:ENDWHILE:NEXT
3
4
nt=1000:� u(49):u()=0:� w=1 � t:u(�(49))+=1:�:x=1:� y=t � 0 � -1:z=1:ȕ(x<=6 � z<=49):� (u(z)=y) � � z:x+=1 z+=1:�:� �
00000000 0d 00 01 6e 74 3d 31 30 30 30 3a de 20 75 28 34 |...nt=1000:. u(4| 00000010 39 29 3a 75 28 29 3d 30 3a e3 20 77 3d 31 20 b8 |9):u()=0:. w=1 .| 00000020 20 74 3a 75 28 b3 28 34 39 29 29 2b 3d 31 3a ed | t:u(.(49))+=1:.| 00000030 3a 78 3d 31 3a e3 20 79 3d 74 20 b8 20 30 20 88 |:x=1:. y=t . 0 .| 00000040 20 2d 31 3a 7a 3d 31 3a c8 95 28 78 3c 3d 36 20 | -1:z=1:..(x<=6 | 00000050 80 20 7a 3c 3d 34 39 29 3a e7 20 28 75 28 7a 29 |. z<=49):. (u(z)| 00000060 3d 79 29 20 8c 20 f1 20 7a 3a 78 2b 3d 31 0d 00 |=y) . . z:x+=1..| 00000070 02 0c 7a 2b 3d 31 3a ce 3a ed 0d 00 03 04 0d 00 |..z+=1:.:.......| 00000080 04 04 0d ff |....| 00000084
.