StarInfo/Mellor/Textured

Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars » StarInfo/Mellor/Textured

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-09 B.adf » Regulars
Filename:	StarInfo/Mellor/Textured
Read OK:	✔
File size:	0260 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Textured
   20REM By Philip Mellor (aged 15)
   30REM Acorn User/Star Info
   40:
   50MODE9:OFF:dummy=RND(-TIME)
   60ON ERROR REPORT:PRINT" - ";ERL:END
   70FOR I=0 TO 15
   80COLOUR I,17*I,17*I,17*I
   90NEXT
  100:
  110C=RND(15)
  120IF RND(2)=1 D=-1 ELSE D=1
  130FOR Y=0 TO 1279 STEP 4
  140GCOL C
  150REMIF RND(((C+1)/2)+1)=1 C+=D
  160IF RND(10)=1 C+=D
  170IF C=15 D=-1
  180IF C=1 D=+1
  190POINT 0,Y
  200POINT Y,0
  210NEXT
  220FOR X=4 TO 1279 STEP 4
  230FOR Y=4 TO 1023 STEP 4
  240CASE RND(7) OF
  250WHEN 1:P=POINT(X-4,Y)
  260WHEN 2:P=POINT(X,Y-4)
  270WHEN 3:P=POINT(X-4,Y-4)
  280WHEN 4:P=POINT(X-4,Y+4)
  290WHEN 5:P=POINT(X,Y-8)
  300WHEN 6:P=POINT(X-4,Y-8)
  310WHEN 7:P=POINT(X-4,Y+8)
  320ENDCASE
  330IF RND(8)=1 P+=1
  340IF RND(8)=1 P-=1
  350IF P>15 P=15
  360IF P<0 P=0
  370GCOL P
  380POINT X,Y
  390NEXT
  400NEXT
  410:


� Textured
 � By Philip Mellor (aged 15)
� Acorn User/Star Info
(:
2�9:�:dummy=�(-�)
<� � �:�" - ";�:�
F� I=0 � 15
P� I,17*I,17*I,17*I
Z�
d:
nC=�(15)
x� �(2)=1 D=-1 � D=1
�� Y=0 � 1279 � 4
�� C
��IF RND(((C+1)/2)+1)=1 C+=D
�� �(10)=1 C+=D
�� C=15 D=-1
�� C=1 D=+1
�
Ȓ 0,Y
�
Ȓ Y,0
��
�� X=4 � 1279 � 4
�� Y=4 � 1023 � 4
�
Ȏ �(7) �
�� 1:P=�X-4,Y)
� 2:P=�X,Y-4)
� 3:P=�X-4,Y-4)
� 4:P=�X-4,Y+4)
"� 5:P=�X,Y-8)
,� 6:P=�X-4,Y-8)
6� 7:P=�X-4,Y+8)
@�
J� �(8)=1 P+=1
T� �(8)=1 P-=1
^� P>15 P=15
h
� P<0 P=0
r� P
|
Ȓ X,Y
��
��
�:
�

00000000  0d 00 0a 0e f4 20 54 65  78 74 75 72 65 64 0d 00  |..... Textured..|
00000010  14 20 f4 20 42 79 20 50  68 69 6c 69 70 20 4d 65  |. . By Philip Me|
00000020  6c 6c 6f 72 20 28 61 67  65 64 20 31 35 29 0d 00  |llor (aged 15)..|
00000030  1e 1a f4 20 41 63 6f 72  6e 20 55 73 65 72 2f 53  |... Acorn User/S|
00000040  74 61 72 20 49 6e 66 6f  0d 00 28 05 3a 0d 00 32  |tar Info..(.:..2|
00000050  14 eb 39 3a 87 3a 64 75  6d 6d 79 3d b3 28 2d 91  |..9:.:dummy=.(-.|
00000060  29 0d 00 3c 14 ee 20 85  20 f6 3a f1 22 20 2d 20  |)..<.. . .:." - |
00000070  22 3b 9e 3a e0 0d 00 46  0e e3 20 49 3d 30 20 b8  |";.:...F.. I=0 .|
00000080  20 31 35 0d 00 50 16 fb  20 49 2c 31 37 2a 49 2c  | 15..P.. I,17*I,|
00000090  31 37 2a 49 2c 31 37 2a  49 0d 00 5a 05 ed 0d 00  |17*I,17*I..Z....|
000000a0  64 05 3a 0d 00 6e 0b 43  3d b3 28 31 35 29 0d 00  |d.:..n.C=.(15)..|
000000b0  78 17 e7 20 b3 28 32 29  3d 31 20 44 3d 2d 31 20  |x.. .(2)=1 D=-1 |
000000c0  8b 20 44 3d 31 0d 00 82  14 e3 20 59 3d 30 20 b8  |. D=1..... Y=0 .|
000000d0  20 31 32 37 39 20 88 20  34 0d 00 8c 07 e6 20 43  | 1279 . 4..... C|
000000e0  0d 00 96 1f f4 49 46 20  52 4e 44 28 28 28 43 2b  |.....IF RND(((C+|
000000f0  31 29 2f 32 29 2b 31 29  3d 31 20 43 2b 3d 44 0d  |1)/2)+1)=1 C+=D.|
00000100  00 a0 12 e7 20 b3 28 31  30 29 3d 31 20 43 2b 3d  |.... .(10)=1 C+=|
00000110  44 0d 00 aa 0f e7 20 43  3d 31 35 20 44 3d 2d 31  |D..... C=15 D=-1|
00000120  0d 00 b4 0e e7 20 43 3d  31 20 44 3d 2b 31 0d 00  |..... C=1 D=+1..|
00000130  be 0a c8 92 20 30 2c 59  0d 00 c8 0a c8 92 20 59  |.... 0,Y...... Y|
00000140  2c 30 0d 00 d2 05 ed 0d  00 dc 14 e3 20 58 3d 34  |,0.......... X=4|
00000150  20 b8 20 31 32 37 39 20  88 20 34 0d 00 e6 14 e3  | . 1279 . 4.....|
00000160  20 59 3d 34 20 b8 20 31  30 32 33 20 88 20 34 0d  | Y=4 . 1023 . 4.|
00000170  00 f0 0d c8 8e 20 b3 28  37 29 20 ca 0d 00 fa 11  |..... .(7) .....|
00000180  c9 20 31 3a 50 3d b0 58  2d 34 2c 59 29 0d 01 04  |. 1:P=.X-4,Y)...|
00000190  11 c9 20 32 3a 50 3d b0  58 2c 59 2d 34 29 0d 01  |.. 2:P=.X,Y-4)..|
000001a0  0e 13 c9 20 33 3a 50 3d  b0 58 2d 34 2c 59 2d 34  |... 3:P=.X-4,Y-4|
000001b0  29 0d 01 18 13 c9 20 34  3a 50 3d b0 58 2d 34 2c  |)..... 4:P=.X-4,|
000001c0  59 2b 34 29 0d 01 22 11  c9 20 35 3a 50 3d b0 58  |Y+4)..".. 5:P=.X|
000001d0  2c 59 2d 38 29 0d 01 2c  13 c9 20 36 3a 50 3d b0  |,Y-8)..,.. 6:P=.|
000001e0  58 2d 34 2c 59 2d 38 29  0d 01 36 13 c9 20 37 3a  |X-4,Y-8)..6.. 7:|
000001f0  50 3d b0 58 2d 34 2c 59  2b 38 29 0d 01 40 05 cb  |P=.X-4,Y+8)..@..|
00000200  0d 01 4a 11 e7 20 b3 28  38 29 3d 31 20 50 2b 3d  |..J.. .(8)=1 P+=|
00000210  31 0d 01 54 11 e7 20 b3  28 38 29 3d 31 20 50 2d  |1..T.. .(8)=1 P-|
00000220  3d 31 0d 01 5e 0f e7 20  50 3e 31 35 20 50 3d 31  |=1..^.. P>15 P=1|
00000230  35 0d 01 68 0d e7 20 50  3c 30 20 50 3d 30 0d 01  |5..h.. P<0 P=0..|
00000240  72 07 e6 20 50 0d 01 7c  0a c8 92 20 58 2c 59 0d  |r.. P..|... X,Y.|
00000250  01 86 05 ed 0d 01 90 05  ed 0d 01 9a 05 3a 0d ff  |.............:..|
00000260

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .