Home » Archimedes archive » Acorn User » AU 1997-12.adf » Regulars » StarInfo/Twine/Twine0
StarInfo/Twine/Twine0
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 1997-12.adf » Regulars |
| Filename: | StarInfo/Twine/Twine0 |
| Read OK: | ✔ |
| File size: | 00F4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 25:OFF 20max=100 30DIM x(max),y(max) 40FOR i=0 TO max-1 50 x(i)=RND(1280) 60 y(i)=RND(1024) 70NEXT 80REPEAT 90 FOR i=0 TO max-1 100 POINT x(i),y(i) 101 x1=x((i+1)MODmax) 102 y1=y((i+1)MODmax) 103 x(i)+=(x1-x(i))/100 104 y(i)+=(y1-y(i))/100 110 NEXT 111UNTIL 0
� 25:� max=100 � x(max),y(max) (� i=0 � max-1 2 x(i)=�(1280) < y(i)=�(1024) F� P� Z � i=0 � max-1 d Ȓ x(i),y(i) e x1=x((i+1)�max) f y1=y((i+1)�max) g x(i)+=(x1-x(i))/100 h y(i)+=(y1-y(i))/100 n � o� 0 �
00000000 0d 00 0a 0a eb 20 32 35 3a 87 0d 00 14 0b 6d 61 |..... 25:.....ma| 00000010 78 3d 31 30 30 0d 00 1e 13 de 20 78 28 6d 61 78 |x=100..... x(max| 00000020 29 2c 79 28 6d 61 78 29 0d 00 28 11 e3 20 69 3d |),y(max)..(.. i=| 00000030 30 20 b8 20 6d 61 78 2d 31 0d 00 32 11 20 78 28 |0 . max-1..2. x(| 00000040 69 29 3d b3 28 31 32 38 30 29 0d 00 3c 11 20 79 |i)=.(1280)..<. y| 00000050 28 69 29 3d b3 28 31 30 32 34 29 0d 00 46 05 ed |(i)=.(1024)..F..| 00000060 0d 00 50 05 f5 0d 00 5a 12 20 e3 20 69 3d 30 20 |..P....Z. . i=0 | 00000070 b8 20 6d 61 78 2d 31 0d 00 64 12 20 20 c8 92 20 |. max-1..d. .. | 00000080 78 28 69 29 2c 79 28 69 29 0d 00 65 15 20 20 78 |x(i),y(i)..e. x| 00000090 31 3d 78 28 28 69 2b 31 29 83 6d 61 78 29 0d 00 |1=x((i+1).max)..| 000000a0 66 15 20 20 79 31 3d 79 28 28 69 2b 31 29 83 6d |f. y1=y((i+1).m| 000000b0 61 78 29 0d 00 67 19 20 20 78 28 69 29 2b 3d 28 |ax)..g. x(i)+=(| 000000c0 78 31 2d 78 28 69 29 29 2f 31 30 30 0d 00 68 19 |x1-x(i))/100..h.| 000000d0 20 20 79 28 69 29 2b 3d 28 79 31 2d 79 28 69 29 | y(i)+=(y1-y(i)| 000000e0 29 2f 31 30 30 0d 00 6e 06 20 ed 0d 00 6f 07 fd |)/100..n. ...o..| 000000f0 20 30 0d ff | 0..| 000000f4
.