Home » Archimedes archive » Acorn User » AU 1993-09.adf » !StarInfo_StarInfo » M
M
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-09.adf » !StarInfo_StarInfo |
| Filename: | M |
| Read OK: | ✔ |
| File size: | 0411 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >MLETtro (Info3) 20REM By Jan Vibe 30REM For 32-bit machines 40REM (c) BAU September 1993 50: 60MODE 13:OFF 70DIM x(500,1),y(500,1),dx(500,1),dy(500,1),c(500,1) 80REPEAT 90 CLS 100 d=1:e=0:e2=1 110 x(d,e)=640 120 y(d,e)=512 130 dx(d,e)=4*(RND(3)-2) 140 dy(d,e)=4*(RND(3)-2) 150 c(d,e)=RND(62) 160 REPEAT 170 d2=0 180 FOR i=1 TO d 190 GCOL c(i,e) 200 POINT x(i,e),y(i,e) 210 IF RND(1)>.85 THEN 220 j=0 230 REPEAT 240 j+=1 250 dx(i,e)=4*(RND(3)-2) 260 dy(i,e)=4*(RND(3)-2) 270 UNTIL POINT(x(i,e)+dx(i,e),y(i,e)+dy(i,e))=0 OR j=3 280 ENDIF 290 x1=x(i,e)+dx(i,e) 300 y1=y(i,e)+dy(i,e) 310 IF POINT(x1,y1)=0 THEN 320 d2+=1 330 x(d2,e2)=x1 340 y(d2,e2)=y1 350 c(d2,e2)=c(i,e) 360 dx(d2,e2)=dx(i,e) 370 dy(d2,e2)=dy(i,e) 380 GCOL 63:POINT x1,y1 390 IF RND(1)>.9 THEN 400 d2+=1 410 x(d2,e2)=x1 420 y(d2,e2)=y1 430 c(d2,e2)=RND(62) 440 j=0 450 REPEAT 460 j+=1 470 dx(d2,e2)=4*(RND(3)-2) 480 dy(d2,e2)=4*(RND(3)-2) 490 UNTIL POINT(x1+dx(d2,e2),y1+dy(d2,e2))=0 OR j=3 500 ENDIF 510 ENDIF 520 NEXT 530 SWAP d,d2:SWAP e,e2 540 UNTIL d=0 550 IFINKEY(300) 560UNTIL FALSE
� >M�tro (Info3)
� By Jan Vibe
� For 32-bit machines
( � (c) BAU September 1993
2:
<
� 13:�
F4� x(500,1),y(500,1),dx(500,1),dy(500,1),c(500,1)
P�
Z �
d d=1:e=0:e2=1
n x(d,e)=640
x y(d,e)=512
� dx(d,e)=4*(�(3)-2)
� dy(d,e)=4*(�(3)-2)
� c(d,e)=�(62)
� �
�
d2=0
� � i=1 � d
� � c(i,e)
� Ȓ x(i,e),y(i,e)
� � �(1)>.85 �
� j=0
� �
�
j+=1
� dx(i,e)=4*(�(3)-2)
dy(i,e)=4*(�(3)-2)
1 � �x(i,e)+dx(i,e),y(i,e)+dy(i,e))=0 � j=3
�
" x1=x(i,e)+dx(i,e)
, y1=y(i,e)+dy(i,e)
6 � �x1,y1)=0 �
@
d2+=1
J x(d2,e2)=x1
T y(d2,e2)=y1
^ c(d2,e2)=c(i,e)
h dx(d2,e2)=dx(i,e)
r dy(d2,e2)=dy(i,e)
| � 63:Ȓ x1,y1
� � �(1)>.9 �
� d2+=1
� x(d2,e2)=x1
� y(d2,e2)=y1
� c(d2,e2)=�(62)
� j=0
�
�
� j+=1
� dx(d2,e2)=4*(�(3)-2)
� dy(d2,e2)=4*(�(3)-2)
�. � �x1+dx(d2,e2),y1+dy(d2,e2))=0 � j=3
� �
� �
�
Ȕ d,d2:Ȕ e,e2
� d=0
& �(300)
0� �
� 00000000 0d 00 0a 18 f4 20 20 20 20 20 3e 4d e9 74 72 6f |..... >M.tro| 00000010 20 28 49 6e 66 6f 33 29 0d 00 14 12 f4 20 42 79 | (Info3)..... By| 00000020 20 20 4a 61 6e 20 56 69 62 65 0d 00 1e 19 f4 20 | Jan Vibe..... | 00000030 46 6f 72 20 33 32 2d 62 69 74 20 6d 61 63 68 69 |For 32-bit machi| 00000040 6e 65 73 0d 00 28 1c f4 20 28 63 29 20 42 41 55 |nes..(.. (c) BAU| 00000050 20 53 65 70 74 65 6d 62 65 72 20 31 39 39 33 0d | September 1993.| 00000060 00 32 05 3a 0d 00 3c 0a eb 20 31 33 3a 87 0d 00 |.2.:..<.. 13:...| 00000070 46 34 de 20 78 28 35 30 30 2c 31 29 2c 79 28 35 |F4. x(500,1),y(5| 00000080 30 30 2c 31 29 2c 64 78 28 35 30 30 2c 31 29 2c |00,1),dx(500,1),| 00000090 64 79 28 35 30 30 2c 31 29 2c 63 28 35 30 30 2c |dy(500,1),c(500,| 000000a0 31 29 0d 00 50 05 f5 0d 00 5a 06 20 db 0d 00 64 |1)..P....Z. ...d| 000000b0 11 20 64 3d 31 3a 65 3d 30 3a 65 32 3d 31 0d 00 |. d=1:e=0:e2=1..| 000000c0 6e 0f 20 78 28 64 2c 65 29 3d 36 34 30 0d 00 78 |n. x(d,e)=640..x| 000000d0 0f 20 79 28 64 2c 65 29 3d 35 31 32 0d 00 82 17 |. y(d,e)=512....| 000000e0 20 64 78 28 64 2c 65 29 3d 34 2a 28 b3 28 33 29 | dx(d,e)=4*(.(3)| 000000f0 2d 32 29 0d 00 8c 17 20 64 79 28 64 2c 65 29 3d |-2).... dy(d,e)=| 00000100 34 2a 28 b3 28 33 29 2d 32 29 0d 00 96 11 20 63 |4*(.(3)-2).... c| 00000110 28 64 2c 65 29 3d b3 28 36 32 29 0d 00 a0 06 20 |(d,e)=.(62).... | 00000120 f5 0d 00 aa 0a 20 20 64 32 3d 30 0d 00 b4 0f 20 |..... d2=0.... | 00000130 20 e3 20 69 3d 31 20 b8 20 64 0d 00 be 0f 20 20 | . i=1 . d.... | 00000140 20 e6 20 63 28 69 2c 65 29 0d 00 c8 17 20 20 20 | . c(i,e).... | 00000150 c8 92 20 78 28 69 2c 65 29 2c 79 28 69 2c 65 29 |.. x(i,e),y(i,e)| 00000160 0d 00 d2 13 20 20 20 e7 20 b3 28 31 29 3e 2e 38 |.... . .(1)>.8| 00000170 35 20 8c 0d 00 dc 0b 20 20 20 20 6a 3d 30 0d 00 |5 ..... j=0..| 00000180 e6 09 20 20 20 20 f5 0d 00 f0 0d 20 20 20 20 20 |.. ..... | 00000190 6a 2b 3d 31 0d 00 fa 1b 20 20 20 20 20 64 78 28 |j+=1.... dx(| 000001a0 69 2c 65 29 3d 34 2a 28 b3 28 33 29 2d 32 29 0d |i,e)=4*(.(3)-2).| 000001b0 01 04 1b 20 20 20 20 20 64 79 28 69 2c 65 29 3d |... dy(i,e)=| 000001c0 34 2a 28 b3 28 33 29 2d 32 29 0d 01 0e 31 20 20 |4*(.(3)-2)...1 | 000001d0 20 20 fd 20 b0 78 28 69 2c 65 29 2b 64 78 28 69 | . .x(i,e)+dx(i| 000001e0 2c 65 29 2c 79 28 69 2c 65 29 2b 64 79 28 69 2c |,e),y(i,e)+dy(i,| 000001f0 65 29 29 3d 30 20 84 20 6a 3d 33 0d 01 18 08 20 |e))=0 . j=3.... | 00000200 20 20 cd 0d 01 22 18 20 20 20 78 31 3d 78 28 69 | ...". x1=x(i| 00000210 2c 65 29 2b 64 78 28 69 2c 65 29 0d 01 2c 18 20 |,e)+dx(i,e)..,. | 00000220 20 20 79 31 3d 79 28 69 2c 65 29 2b 64 79 28 69 | y1=y(i,e)+dy(i| 00000230 2c 65 29 0d 01 36 14 20 20 20 e7 20 b0 78 31 2c |,e)..6. . .x1,| 00000240 79 31 29 3d 30 20 8c 0d 01 40 0d 20 20 20 20 64 |y1)=0 ...@. d| 00000250 32 2b 3d 31 0d 01 4a 13 20 20 20 20 78 28 64 32 |2+=1..J. x(d2| 00000260 2c 65 32 29 3d 78 31 0d 01 54 13 20 20 20 20 79 |,e2)=x1..T. y| 00000270 28 64 32 2c 65 32 29 3d 79 31 0d 01 5e 17 20 20 |(d2,e2)=y1..^. | 00000280 20 20 63 28 64 32 2c 65 32 29 3d 63 28 69 2c 65 | c(d2,e2)=c(i,e| 00000290 29 0d 01 68 19 20 20 20 20 64 78 28 64 32 2c 65 |)..h. dx(d2,e| 000002a0 32 29 3d 64 78 28 69 2c 65 29 0d 01 72 19 20 20 |2)=dx(i,e)..r. | 000002b0 20 20 64 79 28 64 32 2c 65 32 29 3d 64 79 28 69 | dy(d2,e2)=dy(i| 000002c0 2c 65 29 0d 01 7c 15 20 20 20 20 e6 20 36 33 3a |,e)..|. . 63:| 000002d0 c8 92 20 78 31 2c 79 31 0d 01 86 13 20 20 20 20 |.. x1,y1.... | 000002e0 e7 20 b3 28 31 29 3e 2e 39 20 8c 0d 01 90 0e 20 |. .(1)>.9 ..... | 000002f0 20 20 20 20 64 32 2b 3d 31 0d 01 9a 14 20 20 20 | d2+=1.... | 00000300 20 20 78 28 64 32 2c 65 32 29 3d 78 31 0d 01 a4 | x(d2,e2)=x1...| 00000310 14 20 20 20 20 20 79 28 64 32 2c 65 32 29 3d 79 |. y(d2,e2)=y| 00000320 31 0d 01 ae 17 20 20 20 20 20 63 28 64 32 2c 65 |1.... c(d2,e| 00000330 32 29 3d b3 28 36 32 29 0d 01 b8 0c 20 20 20 20 |2)=.(62).... | 00000340 20 6a 3d 30 0d 01 c2 0a 20 20 20 20 20 f5 0d 01 | j=0.... ...| 00000350 cc 0e 20 20 20 20 20 20 6a 2b 3d 31 0d 01 d6 1e |.. j+=1....| 00000360 20 20 20 20 20 20 64 78 28 64 32 2c 65 32 29 3d | dx(d2,e2)=| 00000370 34 2a 28 b3 28 33 29 2d 32 29 0d 01 e0 1e 20 20 |4*(.(3)-2).... | 00000380 20 20 20 20 64 79 28 64 32 2c 65 32 29 3d 34 2a | dy(d2,e2)=4*| 00000390 28 b3 28 33 29 2d 32 29 0d 01 ea 2e 20 20 20 20 |(.(3)-2).... | 000003a0 20 fd 20 b0 78 31 2b 64 78 28 64 32 2c 65 32 29 | . .x1+dx(d2,e2)| 000003b0 2c 79 31 2b 64 79 28 64 32 2c 65 32 29 29 3d 30 |,y1+dy(d2,e2))=0| 000003c0 20 84 20 6a 3d 33 0d 01 f4 09 20 20 20 20 cd 0d | . j=3.... ..| 000003d0 01 fe 08 20 20 20 cd 0d 02 08 07 20 20 ed 0d 02 |... ..... ...| 000003e0 12 14 20 c8 94 20 64 2c 64 32 3a c8 94 20 65 2c |.. .. d,d2:.. e,| 000003f0 65 32 0d 02 1c 0a 20 fd 20 64 3d 30 0d 02 26 0c |e2.... . d=0..&.| 00000400 20 e7 a6 28 33 30 30 29 0d 02 30 07 fd 20 a3 0d | ..(300)..0.. ..| 00000410 ff |.| 00000411
.