StarInfo/Stoner/Vclouds2

Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » StarInfo/Stoner/Vclouds2

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 1998-06 A.adf » Regulars
Filename:	StarInfo/Stoner/Vclouds2
Read OK:	✔
File size:	07AA bytes
Load address:	0000
Exec address:	0000

File contents

    1REM Virtual Cloud Simulator
    2REM by Nigel Stoner 1997
    3
    4ON ERROR REPORT:PRINT" in line ";ERL:END
    5t%=RND(-TIME)
    6PROCinit
    7PROCsky
    8PROCperspect
    9PROCshuffle:PROCshuffle
   10REM PROCaalias
   11PROCland
   12G$=GET$:PRINTTAB(0,29);
   13END
   14
   15
   16DEFPROCinit
   17MODE13:OFF:CLS
   18SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO col%
   19REM SYScol%,((red%<<8)+(green%<<16)+(blue%<<24)),,,&100
   20DIM cx%(50),cy%(50)
   21ENDPROC
   22
   23DEFPROCsky
   24LOCAL a%,r,g,b,dr,dg,db
   25r=220:g=220:b=240:dr=r/2:dg=g/64:db=b/1024
   26FOR a%=1 TO 1024 STEP 20
   27SYScol%,((r<<8)+(g<<16)+(b<<24)),,,&100:RECTANGLEFILL0,a%,1280,32
   28g-=dg:b-=db:r=g:dg+=dg/128
   29NEXT a%
   30ENDPROC
   31
   32DEFPROCperspect
   33LOCAL y%,x%,trans%,dist%,a%,c%,step%
   34t%=RND(-TIME)
   35step%=12
   36FOR y%= 256 TO 1020 STEP step%
   37step%+=20:y%+=step%/8
   38c%=(1024-y%)
   39c%=(RND(c%)+c%/3)/60+4
   40FOR a%=1 TO c%
   41x%=RND(1920)-320:dist%=y%-128:trans%=RND(4)+16
   42PROCcloud(x%,y%,trans%,dist%)
   43NEXT a%,y%
   44ENDPROC
   45
   46DEFPROCcloud(cx%,cy%,tx%,dx%)
   47LOCAL a%,c%,g,b,sg,sb,dg,db,d1,d%
   48dx%=dx%/16:d%=dx%/4
   49c%=POINT(cx%,cy%+16):r%=c%AND3:g=(c%AND12)>>2:b=(c%AND48)>>4
   50g=196-(g*tx%):b=255-(b*tx%)
   51sg=255:sb=255
   52dg=(g/sg)*6:db=(b/sb)*6
   53
   54FOR a%=0 TO 19
   55cx%(a%)=cx%+RND(dx%*RND(6))*SINRAD(a%*36)
   56cy%(a%)=cy%+dx%*SINRAD(a%*-9)-RND(d%)
   57NEXT a%
   58d1=dx%/64
   59FOR c%=32 TO 8 STEP -4
   60SYScol%,((g<<8)+(g<<16)+(b<<24)),,,&100
   61FOR a%= 0 TO 19:CIRCLEFILLcx%(a%)+c%/2,cy%(a%)-c%/4,c%*d1:NEXT a%
   62g+=dg:b+=db
   63NEXT c%
   64ENDPROC
   65
   66DEFPROCshuffle
   67LOCAL x%
   68FOR x%=1276 TO 4 STEP -4
   69RECTANGLE 4,x%,1272,4 TO RND(x%/32)-x%/64,x%
   70RECTANGLE x%,4,4,1016 TO x%,RND(8)-4
   71NEXT x%
   72ENDPROC
   73
   74DEFPROCland
   75LOCAL g%,r%,a%
   76t%=RND(-TIME)
   77g%=255
   78FOR r%=196 TO 64 STEP -4
   79SYScol%,((r%<<8)+(r%<<16)+(r%<<24)),,,&100
   80IF RND(1)>.5 RECTANGLEFILL RND(1280),0,128-RND(r%/3),392-r%
   81SYScol%,((r%<<8)+(g%<<16)+(r%<<24)),,,&100
   82ELLIPSEFILL RND(1280),RND(32),RND(256)+256,RND(r%)+64
   83NEXT r%
   84ENDPROC
   85
   86DEFPROCaalias
   87LOCAL x%,y%,c%,p1%,p2%,p3%,p4%
   88FOR y%=252 TO 1020 STEP 4
   89FOR x%=4 TO 1276 STEP 4
   90c%=POINT(x%,y%)
   91p1%=POINT(x%,y%-4)
   92p2%=POINT(x%,y%+4)
   93p3%=POINT(x%-4,y%)
   94p4%=POINT(x%+4,y%)
   95p1%=(c%+(p1%+p2%+p3%+p4%)/4)/2
   96GCOL p1%:PLOT69,x%,y%
   97NEXT x%,y%
   98ENDPROC

� Virtual Cloud Simulator
� by Nigel Stoner 1997

� � �:�" in line ";�:�
t%=�(-�)
	�init
�sky

�perspect
	�shuffle:�shuffle

� PROCaalias
	�land
G$=�:�0,29);

�



��init
�13:�:�
=ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � col%
9� SYScol%,((red%<<8)+(green%<<16)+(blue%<<24)),,,&100
� cx%(50),cy%(50)
�

	��sky
� a%,r,g,b,dr,dg,db
.r=220:g=220:b=240:dr=r/2:dg=g/64:db=b/1024
� a%=1 � 1024 � 20
;școl%,((r<<8)+(g<<16)+(b<<24)),,,&100:ȓȐ0,a%,1280,32
g-=dg:b-=db:r=g:dg+=dg/128
� a%
�

 ��perspect
!$� y%,x%,trans%,dist%,a%,c%,step%
"t%=�(-�)
#step%=12
$� y%= 256 � 1020 � step%
%step%+=20:y%+=step%/8
&c%=(1024-y%)
'c%=(�(c%)+c%/3)/60+4
(� a%=1 � c%
).x%=�(1920)-320:dist%=y%-128:trans%=�(4)+16
*�cloud(x%,y%,trans%,dist%)
+� a%,y%
,�
-
.��cloud(cx%,cy%,tx%,dx%)
/!� a%,c%,g,b,sg,sb,dg,db,d1,d%
0dx%=dx%/16:d%=dx%/4
15c%=�cx%,cy%+16):r%=c%�3:g=(c%�12)>>2:b=(c%�48)>>4
2g=196-(g*tx%):b=255-(b*tx%)
3sg=255:sb=255
4dg=(g/sg)*6:db=(b/sb)*6
5
6� a%=0 � 19
7%cx%(a%)=cx%+�(dx%*�(6))*��(a%*36)
8#cy%(a%)=cy%+dx%*��(a%*-9)-�(d%)
9� a%
:
d1=dx%/64
;� c%=32 � 8 � -4
<*școl%,((g<<8)+(g<<16)+(b<<24)),,,&100
=9� a%= 0 � 19:ȏȐcx%(a%)+c%/2,cy%(a%)-c%/4,c%*d1:� a%
>g+=dg:b+=db
?� c%
@�
A
B
��shuffle
C� x%
D� x%=1276 � 4 � -4
E&ȓ 4,x%,1272,4 � �(x%/32)-x%/64,x%
Fȓ x%,4,4,1016 � x%,�(8)-4
G� x%
H�
I
J
��land
K� g%,r%,a%
Lt%=�(-�)
M
g%=255
N� r%=196 � 64 � -4
O-școl%,((r%<<8)+(r%<<16)+(r%<<24)),,,&100
P/� �(1)>.5 ȓȐ �(1280),0,128-�(r%/3),392-r%
Q-școl%,((r%<<8)+(g%<<16)+(r%<<24)),,,&100
R*ȝȐ �(1280),�(32),�(256)+256,�(r%)+64
S� r%
T�
U
V��aalias
W� x%,y%,c%,p1%,p2%,p3%,p4%
X� y%=252 � 1020 � 4
Y� x%=4 � 1276 � 4
Zc%=�x%,y%)
[p1%=�x%,y%-4)
\p2%=�x%,y%+4)
]p3%=�x%-4,y%)
^p4%=�x%+4,y%)
_"p1%=(c%+(p1%+p2%+p3%+p4%)/4)/2
`� p1%:�69,x%,y%
a� x%,y%
b�
�

00000000  0d 00 01 1d f4 20 56 69  72 74 75 61 6c 20 43 6c  |..... Virtual Cl|
00000010  6f 75 64 20 53 69 6d 75  6c 61 74 6f 72 0d 00 02  |oud Simulator...|
00000020  1a f4 20 62 79 20 4e 69  67 65 6c 20 53 74 6f 6e  |.. by Nigel Ston|
00000030  65 72 20 31 39 39 37 0d  00 03 04 0d 00 04 1a ee  |er 1997.........|
00000040  20 85 20 f6 3a f1 22 20  69 6e 20 6c 69 6e 65 20  | . .:." in line |
00000050  22 3b 9e 3a e0 0d 00 05  0c 74 25 3d b3 28 2d 91  |";.:.....t%=.(-.|
00000060  29 0d 00 06 09 f2 69 6e  69 74 0d 00 07 08 f2 73  |).....init.....s|
00000070  6b 79 0d 00 08 0d f2 70  65 72 73 70 65 63 74 0d  |ky.....perspect.|
00000080  00 09 15 f2 73 68 75 66  66 6c 65 3a f2 73 68 75  |....shuffle:.shu|
00000090  66 66 6c 65 0d 00 0a 10  f4 20 50 52 4f 43 61 61  |ffle..... PROCaa|
000000a0  6c 69 61 73 0d 00 0b 09  f2 6c 61 6e 64 0d 00 0c  |lias.....land...|
000000b0  11 47 24 3d be 3a f1 8a  30 2c 32 39 29 3b 0d 00  |.G$=.:..0,29);..|
000000c0  0d 05 e0 0d 00 0e 04 0d  00 0f 04 0d 00 10 0a dd  |................|
000000d0  f2 69 6e 69 74 0d 00 11  0b eb 31 33 3a 87 3a db  |.init.....13:.:.|
000000e0  0d 00 12 3d c8 99 20 22  4f 53 5f 53 57 49 4e 75  |...=.. "OS_SWINu|
000000f0  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
00000100  2c 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  |,"ColourTrans_Se|
00000110  74 47 43 4f 4c 22 20 b8  20 63 6f 6c 25 0d 00 13  |tGCOL" . col%...|
00000120  39 f4 20 53 59 53 63 6f  6c 25 2c 28 28 72 65 64  |9. SYScol%,((red|
00000130  25 3c 3c 38 29 2b 28 67  72 65 65 6e 25 3c 3c 31  |%<<8)+(green%<<1|
00000140  36 29 2b 28 62 6c 75 65  25 3c 3c 32 34 29 29 2c  |6)+(blue%<<24)),|
00000150  2c 2c 26 31 30 30 0d 00  14 15 de 20 63 78 25 28  |,,&100..... cx%(|
00000160  35 30 29 2c 63 79 25 28  35 30 29 0d 00 15 05 e1  |50),cy%(50).....|
00000170  0d 00 16 04 0d 00 17 09  dd f2 73 6b 79 0d 00 18  |..........sky...|
00000180  17 ea 20 61 25 2c 72 2c  67 2c 62 2c 64 72 2c 64  |.. a%,r,g,b,dr,d|
00000190  67 2c 64 62 0d 00 19 2e  72 3d 32 32 30 3a 67 3d  |g,db....r=220:g=|
000001a0  32 32 30 3a 62 3d 32 34  30 3a 64 72 3d 72 2f 32  |220:b=240:dr=r/2|
000001b0  3a 64 67 3d 67 2f 36 34  3a 64 62 3d 62 2f 31 30  |:dg=g/64:db=b/10|
000001c0  32 34 0d 00 1a 16 e3 20  61 25 3d 31 20 b8 20 31  |24..... a%=1 . 1|
000001d0  30 32 34 20 88 20 32 30  0d 00 1b 3b c8 99 63 6f  |024 . 20...;..co|
000001e0  6c 25 2c 28 28 72 3c 3c  38 29 2b 28 67 3c 3c 31  |l%,((r<<8)+(g<<1|
000001f0  36 29 2b 28 62 3c 3c 32  34 29 29 2c 2c 2c 26 31  |6)+(b<<24)),,,&1|
00000200  30 30 3a c8 93 c8 90 30  2c 61 25 2c 31 32 38 30  |00:....0,a%,1280|
00000210  2c 33 32 0d 00 1c 1e 67  2d 3d 64 67 3a 62 2d 3d  |,32....g-=dg:b-=|
00000220  64 62 3a 72 3d 67 3a 64  67 2b 3d 64 67 2f 31 32  |db:r=g:dg+=dg/12|
00000230  38 0d 00 1d 08 ed 20 61  25 0d 00 1e 05 e1 0d 00  |8..... a%.......|
00000240  1f 04 0d 00 20 0e dd f2  70 65 72 73 70 65 63 74  |.... ...perspect|
00000250  0d 00 21 24 ea 20 79 25  2c 78 25 2c 74 72 61 6e  |..!$. y%,x%,tran|
00000260  73 25 2c 64 69 73 74 25  2c 61 25 2c 63 25 2c 73  |s%,dist%,a%,c%,s|
00000270  74 65 70 25 0d 00 22 0c  74 25 3d b3 28 2d 91 29  |tep%..".t%=.(-.)|
00000280  0d 00 23 0c 73 74 65 70  25 3d 31 32 0d 00 24 1c  |..#.step%=12..$.|
00000290  e3 20 79 25 3d 20 32 35  36 20 b8 20 31 30 32 30  |. y%= 256 . 1020|
000002a0  20 88 20 73 74 65 70 25  0d 00 25 19 73 74 65 70  | . step%..%.step|
000002b0  25 2b 3d 32 30 3a 79 25  2b 3d 73 74 65 70 25 2f  |%+=20:y%+=step%/|
000002c0  38 0d 00 26 10 63 25 3d  28 31 30 32 34 2d 79 25  |8..&.c%=(1024-y%|
000002d0  29 0d 00 27 18 63 25 3d  28 b3 28 63 25 29 2b 63  |)..'.c%=(.(c%)+c|
000002e0  25 2f 33 29 2f 36 30 2b  34 0d 00 28 0f e3 20 61  |%/3)/60+4..(.. a|
000002f0  25 3d 31 20 b8 20 63 25  0d 00 29 2e 78 25 3d b3  |%=1 . c%..).x%=.|
00000300  28 31 39 32 30 29 2d 33  32 30 3a 64 69 73 74 25  |(1920)-320:dist%|
00000310  3d 79 25 2d 31 32 38 3a  74 72 61 6e 73 25 3d b3  |=y%-128:trans%=.|
00000320  28 34 29 2b 31 36 0d 00  2a 1e f2 63 6c 6f 75 64  |(4)+16..*..cloud|
00000330  28 78 25 2c 79 25 2c 74  72 61 6e 73 25 2c 64 69  |(x%,y%,trans%,di|
00000340  73 74 25 29 0d 00 2b 0b  ed 20 61 25 2c 79 25 0d  |st%)..+.. a%,y%.|
00000350  00 2c 05 e1 0d 00 2d 04  0d 00 2e 1c dd f2 63 6c  |.,....-.......cl|
00000360  6f 75 64 28 63 78 25 2c  63 79 25 2c 74 78 25 2c  |oud(cx%,cy%,tx%,|
00000370  64 78 25 29 0d 00 2f 21  ea 20 61 25 2c 63 25 2c  |dx%)../!. a%,c%,|
00000380  67 2c 62 2c 73 67 2c 73  62 2c 64 67 2c 64 62 2c  |g,b,sg,sb,dg,db,|
00000390  64 31 2c 64 25 0d 00 30  17 64 78 25 3d 64 78 25  |d1,d%..0.dx%=dx%|
000003a0  2f 31 36 3a 64 25 3d 64  78 25 2f 34 0d 00 31 35  |/16:d%=dx%/4..15|
000003b0  63 25 3d b0 63 78 25 2c  63 79 25 2b 31 36 29 3a  |c%=.cx%,cy%+16):|
000003c0  72 25 3d 63 25 80 33 3a  67 3d 28 63 25 80 31 32  |r%=c%.3:g=(c%.12|
000003d0  29 3e 3e 32 3a 62 3d 28  63 25 80 34 38 29 3e 3e  |)>>2:b=(c%.48)>>|
000003e0  34 0d 00 32 1f 67 3d 31  39 36 2d 28 67 2a 74 78  |4..2.g=196-(g*tx|
000003f0  25 29 3a 62 3d 32 35 35  2d 28 62 2a 74 78 25 29  |%):b=255-(b*tx%)|
00000400  0d 00 33 11 73 67 3d 32  35 35 3a 73 62 3d 32 35  |..3.sg=255:sb=25|
00000410  35 0d 00 34 1b 64 67 3d  28 67 2f 73 67 29 2a 36  |5..4.dg=(g/sg)*6|
00000420  3a 64 62 3d 28 62 2f 73  62 29 2a 36 0d 00 35 04  |:db=(b/sb)*6..5.|
00000430  0d 00 36 0f e3 20 61 25  3d 30 20 b8 20 31 39 0d  |..6.. a%=0 . 19.|
00000440  00 37 25 63 78 25 28 61  25 29 3d 63 78 25 2b b3  |.7%cx%(a%)=cx%+.|
00000450  28 64 78 25 2a b3 28 36  29 29 2a b5 b2 28 61 25  |(dx%*.(6))*..(a%|
00000460  2a 33 36 29 0d 00 38 23  63 79 25 28 61 25 29 3d  |*36)..8#cy%(a%)=|
00000470  63 79 25 2b 64 78 25 2a  b5 b2 28 61 25 2a 2d 39  |cy%+dx%*..(a%*-9|
00000480  29 2d b3 28 64 25 29 0d  00 39 08 ed 20 61 25 0d  |)-.(d%)..9.. a%.|
00000490  00 3a 0d 64 31 3d 64 78  25 2f 36 34 0d 00 3b 14  |.:.d1=dx%/64..;.|
000004a0  e3 20 63 25 3d 33 32 20  b8 20 38 20 88 20 2d 34  |. c%=32 . 8 . -4|
000004b0  0d 00 3c 2a c8 99 63 6f  6c 25 2c 28 28 67 3c 3c  |..<*..col%,((g<<|
000004c0  38 29 2b 28 67 3c 3c 31  36 29 2b 28 62 3c 3c 32  |8)+(g<<16)+(b<<2|
000004d0  34 29 29 2c 2c 2c 26 31  30 30 0d 00 3d 39 e3 20  |4)),,,&100..=9. |
000004e0  61 25 3d 20 30 20 b8 20  31 39 3a c8 8f c8 90 63  |a%= 0 . 19:....c|
000004f0  78 25 28 61 25 29 2b 63  25 2f 32 2c 63 79 25 28  |x%(a%)+c%/2,cy%(|
00000500  61 25 29 2d 63 25 2f 34  2c 63 25 2a 64 31 3a ed  |a%)-c%/4,c%*d1:.|
00000510  20 61 25 0d 00 3e 0f 67  2b 3d 64 67 3a 62 2b 3d  | a%..>.g+=dg:b+=|
00000520  64 62 0d 00 3f 08 ed 20  63 25 0d 00 40 05 e1 0d  |db..?.. c%..@...|
00000530  00 41 04 0d 00 42 0d dd  f2 73 68 75 66 66 6c 65  |.A...B...shuffle|
00000540  0d 00 43 08 ea 20 78 25  0d 00 44 16 e3 20 78 25  |..C.. x%..D.. x%|
00000550  3d 31 32 37 36 20 b8 20  34 20 88 20 2d 34 0d 00  |=1276 . 4 . -4..|
00000560  45 26 c8 93 20 34 2c 78  25 2c 31 32 37 32 2c 34  |E&.. 4,x%,1272,4|
00000570  20 b8 20 b3 28 78 25 2f  33 32 29 2d 78 25 2f 36  | . .(x%/32)-x%/6|
00000580  34 2c 78 25 0d 00 46 1e  c8 93 20 78 25 2c 34 2c  |4,x%..F... x%,4,|
00000590  34 2c 31 30 31 36 20 b8  20 78 25 2c b3 28 38 29  |4,1016 . x%,.(8)|
000005a0  2d 34 0d 00 47 08 ed 20  78 25 0d 00 48 05 e1 0d  |-4..G.. x%..H...|
000005b0  00 49 04 0d 00 4a 0a dd  f2 6c 61 6e 64 0d 00 4b  |.I...J...land..K|
000005c0  0e ea 20 67 25 2c 72 25  2c 61 25 0d 00 4c 0c 74  |.. g%,r%,a%..L.t|
000005d0  25 3d b3 28 2d 91 29 0d  00 4d 0a 67 25 3d 32 35  |%=.(-.)..M.g%=25|
000005e0  35 0d 00 4e 16 e3 20 72  25 3d 31 39 36 20 b8 20  |5..N.. r%=196 . |
000005f0  36 34 20 88 20 2d 34 0d  00 4f 2d c8 99 63 6f 6c  |64 . -4..O-..col|
00000600  25 2c 28 28 72 25 3c 3c  38 29 2b 28 72 25 3c 3c  |%,((r%<<8)+(r%<<|
00000610  31 36 29 2b 28 72 25 3c  3c 32 34 29 29 2c 2c 2c  |16)+(r%<<24)),,,|
00000620  26 31 30 30 0d 00 50 2f  e7 20 b3 28 31 29 3e 2e  |&100..P/. .(1)>.|
00000630  35 20 c8 93 c8 90 20 b3  28 31 32 38 30 29 2c 30  |5 .... .(1280),0|
00000640  2c 31 32 38 2d b3 28 72  25 2f 33 29 2c 33 39 32  |,128-.(r%/3),392|
00000650  2d 72 25 0d 00 51 2d c8  99 63 6f 6c 25 2c 28 28  |-r%..Q-..col%,((|
00000660  72 25 3c 3c 38 29 2b 28  67 25 3c 3c 31 36 29 2b  |r%<<8)+(g%<<16)+|
00000670  28 72 25 3c 3c 32 34 29  29 2c 2c 2c 26 31 30 30  |(r%<<24)),,,&100|
00000680  0d 00 52 2a c8 9d c8 90  20 b3 28 31 32 38 30 29  |..R*.... .(1280)|
00000690  2c b3 28 33 32 29 2c b3  28 32 35 36 29 2b 32 35  |,.(32),.(256)+25|
000006a0  36 2c b3 28 72 25 29 2b  36 34 0d 00 53 08 ed 20  |6,.(r%)+64..S.. |
000006b0  72 25 0d 00 54 05 e1 0d  00 55 04 0d 00 56 0c dd  |r%..T....U...V..|
000006c0  f2 61 61 6c 69 61 73 0d  00 57 1e ea 20 78 25 2c  |.aalias..W.. x%,|
000006d0  79 25 2c 63 25 2c 70 31  25 2c 70 32 25 2c 70 33  |y%,c%,p1%,p2%,p3|
000006e0  25 2c 70 34 25 0d 00 58  17 e3 20 79 25 3d 32 35  |%,p4%..X.. y%=25|
000006f0  32 20 b8 20 31 30 32 30  20 88 20 34 0d 00 59 15  |2 . 1020 . 4..Y.|
00000700  e3 20 78 25 3d 34 20 b8  20 31 32 37 36 20 88 20  |. x%=4 . 1276 . |
00000710  34 0d 00 5a 0e 63 25 3d  b0 78 25 2c 79 25 29 0d  |4..Z.c%=.x%,y%).|
00000720  00 5b 11 70 31 25 3d b0  78 25 2c 79 25 2d 34 29  |.[.p1%=.x%,y%-4)|
00000730  0d 00 5c 11 70 32 25 3d  b0 78 25 2c 79 25 2b 34  |..\.p2%=.x%,y%+4|
00000740  29 0d 00 5d 11 70 33 25  3d b0 78 25 2d 34 2c 79  |)..].p3%=.x%-4,y|
00000750  25 29 0d 00 5e 11 70 34  25 3d b0 78 25 2b 34 2c  |%)..^.p4%=.x%+4,|
00000760  79 25 29 0d 00 5f 22 70  31 25 3d 28 63 25 2b 28  |y%).._"p1%=(c%+(|
00000770  70 31 25 2b 70 32 25 2b  70 33 25 2b 70 34 25 29  |p1%+p2%+p3%+p4%)|
00000780  2f 34 29 2f 32 0d 00 60  13 e6 20 70 31 25 3a f0  |/4)/2..`.. p1%:.|
00000790  36 39 2c 78 25 2c 79 25  0d 00 61 0b ed 20 78 25  |69,x%,y%..a.. x%|
000007a0  2c 79 25 0d 00 62 05 e1  0d ff                    |,y%..b....|
000007aa

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