StarInfo/VanMourik/Splash

Home » Archimedes archive » Acorn User » AU 1994-Xmas.adf » Programs » StarInfo/VanMourik/Splash

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 1994-Xmas.adf » Programs
Filename:	StarInfo/VanMourik/Splash
Read OK:	✔
File size:	0417 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >Splash
   20REM (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ U.K. 94
   30PROCMODE
   40DIMA%(23456),B%(23456)
   41F%=4
   42IF MODE=20 F%=2
   50
   60FOR X=1TO15
   61 Y=16*X
   62 COLOUR X,Y,Y,Y
   63NEXT
   71N%=1
   72
   80FOR X=0TON%
   81A%(X)=640:B%(X)=512
   82NEXT
   83GCOL 15
   84POINT 640-F%,512-F%
   85POINT 640+F%,512-F%
   86POINT 640+F%,512+F%
   87POINT 640-F%,512+F%
   90 
  100REM THE BRIGHTEST OF 4 NEIGHBOUR PIXELS IS FOUND.   THIS + A RANDOM FACTOR BECOMES THE CENTRAL PIXEL'S SHADE.
  110REPEAT
  111 P%=RND(N%)
  112 X%=A%(P%)
  113 Y%=B%(P%)
  114 A%(P%)=A%(N%)
  115 B%(P%)=B%(N%)
  116 N%-=1
  117 M%=1
  118 IF POINT(X%,Y%) UNTIL N%<3:END
  120 E%=POINT(X%,Y%+F%):IF E%=0 N%+=1:A%(N%)=X%:B%(N%)=Y%+F% ELSE M%=E%
  130 E%=POINT(X%-F%,Y%):IF E%=0 N%+=1:A%(N%)=X%-F%:B%(N%)=Y% ELSE IF M%<E% M%=E%
  140 E%=POINT(X%,Y%-F%):IF E%=0 N%+=1:A%(N%)=X%:B%(N%)=Y%-F% ELSE IF M%<E% M%=E%
  150 E%=POINT(X%+F%,Y%):IF E%=0 N%+=1:A%(N%)=X%+F%:B%(N%)=Y% ELSE IF M%<E% M%=E%
  160 M%=M%-.75+RND(1)*2:IF M%<1 M%=1
  170 IF M%>15 M%=15
  180 GCOL M%
  181 POINTX%,Y%
  182UNTIL N%<3
  183END
  190 
  210DEF PROCMODE
  211LOCAL C%,F%
  220SYS "OS_CheckModeValid",20 TO ;F%
  230C%=(F%AND%0010)>>1
  240IF NOT (C%=1) MODE 20 ELSE MODE 9
  250OFF:ENDPROC



� >Splash
M� (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ U.K. 94
	�MODE
(�A%(23456),B%(23456)
)F%=4
*� �=20 F%=2
2
<� X=1�15
= Y=16*X
> � X,Y,Y,Y
?�
GN%=1
H
P� X=0�N%
QA%(X)=640:B%(X)=512
R�
S� 15
TȒ 640-F%,512-F%
UȒ 640+F%,512-F%
VȒ 640+F%,512+F%
WȒ 640-F%,512+F%
Z 
do� THE BRIGHTEST OF 4 NEIGHBOUR PIXELS IS FOUND.   THIS + A RANDOM FACTOR BECOMES THE CENTRAL PIXEL'S SHADE.
n�
o
 P%=�(N%)
p X%=A%(P%)
q Y%=B%(P%)
r A%(P%)=A%(N%)
s B%(P%)=B%(N%)
t
 N%-=1
u	 M%=1
v � �X%,Y%) � N%<3:�
x> E%=�X%,Y%+F%):� E%=0 N%+=1:A%(N%)=X%:B%(N%)=Y%+F% � M%=E%
�F E%=�X%-F%,Y%):� E%=0 N%+=1:A%(N%)=X%-F%:B%(N%)=Y% � � M%<E% M%=E%
�F E%=�X%,Y%-F%):� E%=0 N%+=1:A%(N%)=X%:B%(N%)=Y%-F% � � M%<E% M%=E%
�F E%=�X%+F%,Y%):� E%=0 N%+=1:A%(N%)=X%+F%:B%(N%)=Y% � � M%<E% M%=E%
�! M%=M%-.75+�(1)*2:� M%<1 M%=1
� � M%>15 M%=15
�	 � M%
� ȒX%,Y%
�
� N%<3
��
� 
�� �MODE
�� C%,F%
�#ș "OS_CheckModeValid",20 � ;F%
�C%=(F%�%0010)>>1
�� � (C%=1) � 20 � � 9
��:�
�

00000000  0d 00 0a 0d f4 20 3e 53  70 6c 61 73 68 0d 00 14  |..... >Splash...|
00000010  4d f4 20 28 43 29 20 4a  45 41 4e 20 56 41 4e 20  |M. (C) JEAN VAN |
00000020  4d 4f 55 52 49 4b 20 4d  49 4c 4c 43 4f 54 54 41  |MOURIK MILLCOTTA|
00000030  47 45 20 44 45 52 57 59  44 44 20 41 4d 4d 41 4e  |GE DERWYDD AMMAN|
00000040  46 4f 52 44 20 44 59 46  45 44 20 53 41 31 38 33  |FORD DYFED SA183|
00000050  4c 51 20 55 2e 4b 2e 20  39 34 0d 00 1e 09 f2 4d  |LQ U.K. 94.....M|
00000060  4f 44 45 0d 00 28 18 de  41 25 28 32 33 34 35 36  |ODE..(..A%(23456|
00000070  29 2c 42 25 28 32 33 34  35 36 29 0d 00 29 08 46  |),B%(23456)..).F|
00000080  25 3d 34 0d 00 2a 0f e7  20 eb 3d 32 30 20 46 25  |%=4..*.. .=20 F%|
00000090  3d 32 0d 00 32 04 0d 00  3c 0c e3 20 58 3d 31 b8  |=2..2...<.. X=1.|
000000a0  31 35 0d 00 3d 0b 20 59  3d 31 36 2a 58 0d 00 3e  |15..=. Y=16*X..>|
000000b0  0e 20 fb 20 58 2c 59 2c  59 2c 59 0d 00 3f 05 ed  |. . X,Y,Y,Y..?..|
000000c0  0d 00 47 08 4e 25 3d 31  0d 00 48 04 0d 00 50 0c  |..G.N%=1..H...P.|
000000d0  e3 20 58 3d 30 b8 4e 25  0d 00 51 17 41 25 28 58  |. X=0.N%..Q.A%(X|
000000e0  29 3d 36 34 30 3a 42 25  28 58 29 3d 35 31 32 0d  |)=640:B%(X)=512.|
000000f0  00 52 05 ed 0d 00 53 08  e6 20 31 35 0d 00 54 14  |.R....S.. 15..T.|
00000100  c8 92 20 36 34 30 2d 46  25 2c 35 31 32 2d 46 25  |.. 640-F%,512-F%|
00000110  0d 00 55 14 c8 92 20 36  34 30 2b 46 25 2c 35 31  |..U... 640+F%,51|
00000120  32 2d 46 25 0d 00 56 14  c8 92 20 36 34 30 2b 46  |2-F%..V... 640+F|
00000130  25 2c 35 31 32 2b 46 25  0d 00 57 14 c8 92 20 36  |%,512+F%..W... 6|
00000140  34 30 2d 46 25 2c 35 31  32 2b 46 25 0d 00 5a 05  |40-F%,512+F%..Z.|
00000150  20 0d 00 64 6f f4 20 54  48 45 20 42 52 49 47 48  | ..do. THE BRIGH|
00000160  54 45 53 54 20 4f 46 20  34 20 4e 45 49 47 48 42  |TEST OF 4 NEIGHB|
00000170  4f 55 52 20 50 49 58 45  4c 53 20 49 53 20 46 4f  |OUR PIXELS IS FO|
00000180  55 4e 44 2e 20 20 20 54  48 49 53 20 2b 20 41 20  |UND.   THIS + A |
00000190  52 41 4e 44 4f 4d 20 46  41 43 54 4f 52 20 42 45  |RANDOM FACTOR BE|
000001a0  43 4f 4d 45 53 20 54 48  45 20 43 45 4e 54 52 41  |COMES THE CENTRA|
000001b0  4c 20 50 49 58 45 4c 27  53 20 53 48 41 44 45 2e  |L PIXEL'S SHADE.|
000001c0  0d 00 6e 05 f5 0d 00 6f  0d 20 50 25 3d b3 28 4e  |..n....o. P%=.(N|
000001d0  25 29 0d 00 70 0e 20 58  25 3d 41 25 28 50 25 29  |%)..p. X%=A%(P%)|
000001e0  0d 00 71 0e 20 59 25 3d  42 25 28 50 25 29 0d 00  |..q. Y%=B%(P%)..|
000001f0  72 12 20 41 25 28 50 25  29 3d 41 25 28 4e 25 29  |r. A%(P%)=A%(N%)|
00000200  0d 00 73 12 20 42 25 28  50 25 29 3d 42 25 28 4e  |..s. B%(P%)=B%(N|
00000210  25 29 0d 00 74 0a 20 4e  25 2d 3d 31 0d 00 75 09  |%)..t. N%-=1..u.|
00000220  20 4d 25 3d 31 0d 00 76  17 20 e7 20 b0 58 25 2c  | M%=1..v. . .X%,|
00000230  59 25 29 20 fd 20 4e 25  3c 33 3a e0 0d 00 78 3e  |Y%) . N%<3:...x>|
00000240  20 45 25 3d b0 58 25 2c  59 25 2b 46 25 29 3a e7  | E%=.X%,Y%+F%):.|
00000250  20 45 25 3d 30 20 4e 25  2b 3d 31 3a 41 25 28 4e  | E%=0 N%+=1:A%(N|
00000260  25 29 3d 58 25 3a 42 25  28 4e 25 29 3d 59 25 2b  |%)=X%:B%(N%)=Y%+|
00000270  46 25 20 8b 20 4d 25 3d  45 25 0d 00 82 46 20 45  |F% . M%=E%...F E|
00000280  25 3d b0 58 25 2d 46 25  2c 59 25 29 3a e7 20 45  |%=.X%-F%,Y%):. E|
00000290  25 3d 30 20 4e 25 2b 3d  31 3a 41 25 28 4e 25 29  |%=0 N%+=1:A%(N%)|
000002a0  3d 58 25 2d 46 25 3a 42  25 28 4e 25 29 3d 59 25  |=X%-F%:B%(N%)=Y%|
000002b0  20 8b 20 e7 20 4d 25 3c  45 25 20 4d 25 3d 45 25  | . . M%<E% M%=E%|
000002c0  0d 00 8c 46 20 45 25 3d  b0 58 25 2c 59 25 2d 46  |...F E%=.X%,Y%-F|
000002d0  25 29 3a e7 20 45 25 3d  30 20 4e 25 2b 3d 31 3a  |%):. E%=0 N%+=1:|
000002e0  41 25 28 4e 25 29 3d 58  25 3a 42 25 28 4e 25 29  |A%(N%)=X%:B%(N%)|
000002f0  3d 59 25 2d 46 25 20 8b  20 e7 20 4d 25 3c 45 25  |=Y%-F% . . M%<E%|
00000300  20 4d 25 3d 45 25 0d 00  96 46 20 45 25 3d b0 58  | M%=E%...F E%=.X|
00000310  25 2b 46 25 2c 59 25 29  3a e7 20 45 25 3d 30 20  |%+F%,Y%):. E%=0 |
00000320  4e 25 2b 3d 31 3a 41 25  28 4e 25 29 3d 58 25 2b  |N%+=1:A%(N%)=X%+|
00000330  46 25 3a 42 25 28 4e 25  29 3d 59 25 20 8b 20 e7  |F%:B%(N%)=Y% . .|
00000340  20 4d 25 3c 45 25 20 4d  25 3d 45 25 0d 00 a0 21  | M%<E% M%=E%...!|
00000350  20 4d 25 3d 4d 25 2d 2e  37 35 2b b3 28 31 29 2a  | M%=M%-.75+.(1)*|
00000360  32 3a e7 20 4d 25 3c 31  20 4d 25 3d 31 0d 00 aa  |2:. M%<1 M%=1...|
00000370  12 20 e7 20 4d 25 3e 31  35 20 4d 25 3d 31 35 0d  |. . M%>15 M%=15.|
00000380  00 b4 09 20 e6 20 4d 25  0d 00 b5 0c 20 c8 92 58  |... . M%.... ..X|
00000390  25 2c 59 25 0d 00 b6 0a  fd 20 4e 25 3c 33 0d 00  |%,Y%..... N%<3..|
000003a0  b7 05 e0 0d 00 be 05 20  0d 00 d2 0b dd 20 f2 4d  |....... ..... .M|
000003b0  4f 44 45 0d 00 d3 0b ea  20 43 25 2c 46 25 0d 00  |ODE..... C%,F%..|
000003c0  dc 23 c8 99 20 22 4f 53  5f 43 68 65 63 6b 4d 6f  |.#.. "OS_CheckMo|
000003d0  64 65 56 61 6c 69 64 22  2c 32 30 20 b8 20 3b 46  |deValid",20 . ;F|
000003e0  25 0d 00 e6 14 43 25 3d  28 46 25 80 25 30 30 31  |%....C%=(F%.%001|
000003f0  30 29 3e 3e 31 0d 00 f0  19 e7 20 ac 20 28 43 25  |0)>>1..... . (C%|
00000400  3d 31 29 20 eb 20 32 30  20 8b 20 eb 20 39 0d 00  |=1) . 20 . . 9..|
00000410  fa 07 87 3a e1 0d ff                              |...:...|
00000417

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