Graphics/WindowBox

Home » Archimedes archive » Acorn Computing » 1994 09.adf » 9409 » Graphics/WindowBox

Graphics/WindowBox

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 Computing » 1994 09.adf » 9409
Filename:	Graphics/WindowBox
Read OK:	✔
File size:	0916 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM> WINDOWBOX
   20REM Acorn (appropriately) Computing
   30REM by MAG,CAT and John Innes No3
   40MODE13
   50OFF
   60VDU28,9,28,39,0
   70PRINT''''''''
   80PRINT"Slow or fast growth?"
   90PRINT
  100PRINT"   ( 0 =Fastest)"
  110PRINT"   ( 9 =Slowest)"
  120VDU26
  130G=GET-48
  140delay%=G
  150PROCdims
  160PROCbackg
  170REPEAT
  180PROCinit
  190PROCstalk
  200PROCleaves
  210PROCstamen
  220UNTIL0
  230 
  240REMLINEDIMS
  250DEFPROCdims
  260DIMsx%(32),sy%(32)
  270DIMLX%(8),LY%(8)
  280ENDPROC
  290 
  300REMEORINIT
  310DEFPROCinit
  320TINT2,0
  330X%=640
  340Y%=32
  350ENDPROC
  360 
  370REMDIVsquare
  380DEFPROCsquare
  390MOVEX%(1),Y%(1)
  400DRAWX%(2),Y%(2)
  410PLOT85,X%(3),Y%(3)
  420PLOT85,X%(4),Y%(4)
  430ENDPROC
  440 
  450REMEORSTALK
  460DEFPROCstalk
  470sw%=16+RND(32)
  480sh%=16+RND(24)
  490sa%=RND(4)
  500stalklength%=4+RND(20)
  510SL%=stalklength%
  520GCOL4
  530sx%(0)=RND(1120)+64
  540sy%(0)=Y%
  550FORI%=1TOstalklength%
  560sx%(I%)=sx%(I%-1)+8-RND(3)*4
  570sy%(I%)=sy%(I%-1)+sh%
  580 
  590FORJ%=0TO3
  600TIME=0:REPEATUNTILTIME>delay%
  610TINT2,J%*64
  620RECTANGLEFILLsx%(I%)+J%*4,sy%(I%),sw%,sh%
  630NEXT
  640sw%-=sa%
  650NEXT
  660ENDPROC
  670 
  680REMDIVLEAVES
  690DEFPROCleaves
  700FORK%=1TORND(8):REMDIVnum of leaves
  710P%=RND(SL%)
  720 
  730WW%=RND(2)-1
  740 
  750LX%(0)=sx%(P%)
  760LY%(0)=sy%(P%)
  770 
  780LX%(1)=sx%(P%)-RND(64)
  790IFWW%=1LX%(1)=sx%(P%)+RND(64)
  800LY%(1)=sy%(P%)+RND(64)
  810 
  820LX%(2)=LX%(1)+16-RND(7)*4
  830LY%(2)=LY%(1)-RND(96)
  840 
  850LX%(3)=LX%(2)-RND(64)
  860IFWW%=1LX%(3)=LX%(2)+RND(64)
  870LY%(3)=LY%(1)-RND(16)
  880 
  890LX%(4)=LX%(3)+16-RND(7)*4
  900LY%(4)=LY%(3)-RND(96)
  910 
  920LX%(5)=LX%(4)-RND(64)
  930IFWW%=1LX%(5)=LX%(4)+RND(64)
  940LY%(5)=LY%(4)+RND(32)
  950 
  960GCOL5
  970MOVELX%(0),LY%(0)
  980DRAWLX%(1),LY%(1)
  990TIME=0:REPEATUNTILTIME>delay%
 1000 
 1010FORJ%=2TO5
 1020TIME=0:REPEATUNTILTIME>delay%
 1030TINT2,J%*64
 1040PLOT85,LX%(J%),LY%(J%)
 1050NEXT
 1060 
 1070NEXT
 1080ENDPROC
 1090 
 1100REMMODFLOWERERRORmiddle bit
 1110DEFPROCstamen
 1120SS%=32
 1130PROCpetals
 1140GCOLRND(63)
 1150FORK%=0TORND(12)
 1160TIME=0:REPEATUNTILTIME>delay%
 1170TINT2,K%*64
 1180CIRCLEFILLsx%(SL%),sy%(SL%)+SS%,SS%-(K%*4)
 1190NEXT
 1200ENDPROC
 1210 
 1220REMLINEPETALS
 1230DEFPROCpetals
 1240ps%=32+RND(32)
 1250cm%=RND(63)
 1260cp%=RND(63)
 1270R%=SS%+RND(32)
 1280np%=RND(12)+2
 1290mins%=np%:X%=sx%(SL%):Y%=sy%(SL%)+SS%
 1300GCOLcp%
 1310WP%=2
 1320CASE WP% OF
 1330 WHEN 1
 1340FORI%=0TOmins%-1
 1350TIME=0:REPEATUNTILTIME>delay%
 1360x%=X%+R%*SINRAD(I%*(360/mins%))
 1370y%=Y%+R%*COSRAD(I%*(360/mins%))
 1380CIRCLEFILLx%,y%,ps%
 1390NEXT
 1400 
 1410 WHEN 2
 1420FORJ%=R%TOR%+RND(64)STEPRND(12)
 1430TIME=0:REPEATUNTILTIME>delay%
 1440TINT2,(J%MOD4)*64
 1450FORI%=0TOmins%-1
 1460TIME=0:REPEATUNTILTIME>delay%
 1470x%=X%+J%*SINRAD(I%*(360/mins%))
 1480y%=Y%+J%*COSRAD(I%*(360/mins%))
 1490CIRCLEFILLx%,y%,ps%
 1500NEXT
 1510ps%-=4
 1520NEXT
 1530 
 1540ENDCASE
 1550ENDPROC
 1560 
 1570REMLINEBACKGROUND
 1580DEFPROCbackg
 1590TINT2,0
 1600COLOUR128+48:CLS
 1610GCOL63
 1620RECTANGLEFILL0,0,1280,128
 1630GCOL1
 1640RECTANGLEFILL32,32,1280-64,64
 1650ENDPROC

�> WINDOWBOX
%� Acorn (appropriately) Computing
#� by MAG,CAT and John Innes No3
(�13
2�
<�28,9,28,39,0
F
�''''''''
P�"Slow or fast growth?"
Z�
d�"   ( 0 =Fastest)"
n�"   ( 9 =Slowest)"
x�26
�
G=�-48
�delay%=G
�	�dims
�
�backg
��
�	�init
�
�stalk
��leaves
��stamen
��0
� 
�
�DIMS
�
��dims
�sx%(32),sy%(32)
�LX%(8),LY%(8)
�
" 
,
�INIT
6
��init
@	Ȝ2,0
J
X%=640
T	Y%=32
^�
h 
r�square
|��square
��X%(1),Y%(1)
��X%(2),Y%(2)
��85,X%(3),Y%(3)
��85,X%(4),Y%(4)
��
� 
��STALK
���stalk
�sw%=16+�(32)
�sh%=16+�(24)
�sa%=�(4)
�stalklength%=4+�(20)
�SL%=stalklength%
�4
sx%(0)=�(1120)+64

sy%(0)=Y%
&�I%=1�stalklength%
0sx%(I%)=sx%(I%-1)+8-�(3)*4
:sy%(I%)=sy%(I%-1)+sh%
D 
N�J%=0�3
X�=0:���>delay%
b
Ȝ2,J%*64
l$ȓȐsx%(I%)+J%*4,sy%(I%),sw%,sh%
v�
�sw%-=sa%
��
��
� 
��LEAVES
���leaves
��K%=1��(8):�num of leaves
�
P%=�(SL%)
� 
�WW%=�(2)-1
� 
�LX%(0)=sx%(P%)
�LY%(0)=sy%(P%)
 
LX%(1)=sx%(P%)-�(64)
�WW%=1LX%(1)=sx%(P%)+�(64)
 LY%(1)=sy%(P%)+�(64)
* 
4LX%(2)=LX%(1)+16-�(7)*4
>LY%(2)=LY%(1)-�(96)
H 
RLX%(3)=LX%(2)-�(64)
\�WW%=1LX%(3)=LX%(2)+�(64)
fLY%(3)=LY%(1)-�(16)
p 
zLX%(4)=LX%(3)+16-�(7)*4
�LY%(4)=LY%(3)-�(96)
� 
�LX%(5)=LX%(4)-�(64)
��WW%=1LX%(5)=LX%(4)+�(64)
�LY%(5)=LY%(4)+�(32)
� 
��5
��LX%(0),LY%(0)
��LX%(1),LY%(1)
��=0:���>delay%
� 
��J%=2�5
��=0:���>delay%

Ȝ2,J%*64
�85,LX%(J%),LY%(J%)
�
$ 
.�
8�
B 
L�FLOWER�middle bit
V��stamen
`
SS%=32
j�petals
t
�(63)
~�K%=0��(12)
��=0:���>delay%
�
Ȝ2,K%*64
�(ȏȐsx%(SL%),sy%(SL%)+SS%,SS%-(K%*4)
��
��
� 
��PETALS
���petals
�ps%=32+�(32)
�
cm%=�(63)
�
cp%=�(63)
�R%=SS%+�(32)
np%=�(12)+2

)mins%=np%:X%=sx%(SL%):Y%=sy%(SL%)+SS%
�cp%
	WP%=2
(Ȏ WP% �
2 � 1
<�I%=0�mins%-1
F�=0:���>delay%
Px%=X%+R%*��(I%*(360/mins%))
Zy%=Y%+R%*��(I%*(360/mins%))
dȏȐx%,y%,ps%
n�
x 
� � 2
��J%=R%�R%+�(64)��(12)
��=0:���>delay%
�Ȝ2,(J%�4)*64
��I%=0�mins%-1
��=0:���>delay%
�x%=X%+J%*��(I%*(360/mins%))
�y%=Y%+J%*��(I%*(360/mins%))
�ȏȐx%,y%,ps%
��
�
ps%-=4
��
� 
�
�
 
"�BACKGROUND
,��backg
6	Ȝ2,0
@
�128+48:�
J�63
TȓȐ0,0,1280,128
^�1
hȓȐ32,32,1280-64,64
r�
�

00000000  0d 00 0a 10 f4 3e 20 57  49 4e 44 4f 57 42 4f 58  |.....> WINDOWBOX|
00000010  0d 00 14 25 f4 20 41 63  6f 72 6e 20 28 61 70 70  |...%. Acorn (app|
00000020  72 6f 70 72 69 61 74 65  6c 79 29 20 43 6f 6d 70  |ropriately) Comp|
00000030  75 74 69 6e 67 0d 00 1e  23 f4 20 62 79 20 4d 41  |uting...#. by MA|
00000040  47 2c 43 41 54 20 61 6e  64 20 4a 6f 68 6e 20 49  |G,CAT and John I|
00000050  6e 6e 65 73 20 4e 6f 33  0d 00 28 07 eb 31 33 0d  |nnes No3..(..13.|
00000060  00 32 05 87 0d 00 3c 11  ef 32 38 2c 39 2c 32 38  |.2....<..28,9,28|
00000070  2c 33 39 2c 30 0d 00 46  0d f1 27 27 27 27 27 27  |,39,0..F..''''''|
00000080  27 27 0d 00 50 1b f1 22  53 6c 6f 77 20 6f 72 20  |''..P.."Slow or |
00000090  66 61 73 74 20 67 72 6f  77 74 68 3f 22 0d 00 5a  |fast growth?"..Z|
000000a0  05 f1 0d 00 64 17 f1 22  20 20 20 28 20 30 20 3d  |....d.."   ( 0 =|
000000b0  46 61 73 74 65 73 74 29  22 0d 00 6e 17 f1 22 20  |Fastest)"..n.." |
000000c0  20 20 28 20 39 20 3d 53  6c 6f 77 65 73 74 29 22  |  ( 9 =Slowest)"|
000000d0  0d 00 78 07 ef 32 36 0d  00 82 0a 47 3d a5 2d 34  |..x..26....G=.-4|
000000e0  38 0d 00 8c 0c 64 65 6c  61 79 25 3d 47 0d 00 96  |8....delay%=G...|
000000f0  09 f2 64 69 6d 73 0d 00  a0 0a f2 62 61 63 6b 67  |..dims.....backg|
00000100  0d 00 aa 05 f5 0d 00 b4  09 f2 69 6e 69 74 0d 00  |..........init..|
00000110  be 0a f2 73 74 61 6c 6b  0d 00 c8 0b f2 6c 65 61  |...stalk.....lea|
00000120  76 65 73 0d 00 d2 0b f2  73 74 61 6d 65 6e 0d 00  |ves.....stamen..|
00000130  dc 06 fd 30 0d 00 e6 05  20 0d 00 f0 0a f4 86 44  |...0.... ......D|
00000140  49 4d 53 0d 00 fa 0a dd  f2 64 69 6d 73 0d 01 04  |IMS......dims...|
00000150  14 de 73 78 25 28 33 32  29 2c 73 79 25 28 33 32  |..sx%(32),sy%(32|
00000160  29 0d 01 0e 12 de 4c 58  25 28 38 29 2c 4c 59 25  |).....LX%(8),LY%|
00000170  28 38 29 0d 01 18 05 e1  0d 01 22 05 20 0d 01 2c  |(8).......". ..,|
00000180  0a f4 82 49 4e 49 54 0d  01 36 0a dd f2 69 6e 69  |...INIT..6...ini|
00000190  74 0d 01 40 09 c8 9c 32  2c 30 0d 01 4a 0a 58 25  |t..@...2,0..J.X%|
000001a0  3d 36 34 30 0d 01 54 09  59 25 3d 33 32 0d 01 5e  |=640..T.Y%=32..^|
000001b0  05 e1 0d 01 68 05 20 0d  01 72 0c f4 81 73 71 75  |....h. ..r...squ|
000001c0  61 72 65 0d 01 7c 0c dd  f2 73 71 75 61 72 65 0d  |are..|...square.|
000001d0  01 86 10 ec 58 25 28 31  29 2c 59 25 28 31 29 0d  |....X%(1),Y%(1).|
000001e0  01 90 10 df 58 25 28 32  29 2c 59 25 28 32 29 0d  |....X%(2),Y%(2).|
000001f0  01 9a 13 f0 38 35 2c 58  25 28 33 29 2c 59 25 28  |....85,X%(3),Y%(|
00000200  33 29 0d 01 a4 13 f0 38  35 2c 58 25 28 34 29 2c  |3).....85,X%(4),|
00000210  59 25 28 34 29 0d 01 ae  05 e1 0d 01 b8 05 20 0d  |Y%(4)......... .|
00000220  01 c2 0b f4 82 53 54 41  4c 4b 0d 01 cc 0b dd f2  |.....STALK......|
00000230  73 74 61 6c 6b 0d 01 d6  10 73 77 25 3d 31 36 2b  |stalk....sw%=16+|
00000240  b3 28 33 32 29 0d 01 e0  10 73 68 25 3d 31 36 2b  |.(32)....sh%=16+|
00000250  b3 28 32 34 29 0d 01 ea  0c 73 61 25 3d b3 28 34  |.(24)....sa%=.(4|
00000260  29 0d 01 f4 18 73 74 61  6c 6b 6c 65 6e 67 74 68  |)....stalklength|
00000270  25 3d 34 2b b3 28 32 30  29 0d 01 fe 14 53 4c 25  |%=4+.(20)....SL%|
00000280  3d 73 74 61 6c 6b 6c 65  6e 67 74 68 25 0d 02 08  |=stalklength%...|
00000290  06 e6 34 0d 02 12 15 73  78 25 28 30 29 3d b3 28  |..4....sx%(0)=.(|
000002a0  31 31 32 30 29 2b 36 34  0d 02 1c 0d 73 79 25 28  |1120)+64....sy%(|
000002b0  30 29 3d 59 25 0d 02 26  16 e3 49 25 3d 31 b8 73  |0)=Y%..&..I%=1.s|
000002c0  74 61 6c 6b 6c 65 6e 67  74 68 25 0d 02 30 1e 73  |talklength%..0.s|
000002d0  78 25 28 49 25 29 3d 73  78 25 28 49 25 2d 31 29  |x%(I%)=sx%(I%-1)|
000002e0  2b 38 2d b3 28 33 29 2a  34 0d 02 3a 19 73 79 25  |+8-.(3)*4..:.sy%|
000002f0  28 49 25 29 3d 73 79 25  28 49 25 2d 31 29 2b 73  |(I%)=sy%(I%-1)+s|
00000300  68 25 0d 02 44 05 20 0d  02 4e 0b e3 4a 25 3d 30  |h%..D. ..N..J%=0|
00000310  b8 33 0d 02 58 12 d1 3d  30 3a f5 fd 91 3e 64 65  |.3..X..=0:...>de|
00000320  6c 61 79 25 0d 02 62 0d  c8 9c 32 2c 4a 25 2a 36  |lay%..b...2,J%*6|
00000330  34 0d 02 6c 24 c8 93 c8  90 73 78 25 28 49 25 29  |4..l$....sx%(I%)|
00000340  2b 4a 25 2a 34 2c 73 79  25 28 49 25 29 2c 73 77  |+J%*4,sy%(I%),sw|
00000350  25 2c 73 68 25 0d 02 76  05 ed 0d 02 80 0c 73 77  |%,sh%..v......sw|
00000360  25 2d 3d 73 61 25 0d 02  8a 05 ed 0d 02 94 05 e1  |%-=sa%..........|
00000370  0d 02 9e 05 20 0d 02 a8  0c f4 81 4c 45 41 56 45  |.... ......LEAVE|
00000380  53 0d 02 b2 0c dd f2 6c  65 61 76 65 73 0d 02 bc  |S......leaves...|
00000390  1e e3 4b 25 3d 31 b8 b3  28 38 29 3a f4 81 6e 75  |..K%=1..(8):..nu|
000003a0  6d 20 6f 66 20 6c 65 61  76 65 73 0d 02 c6 0d 50  |m of leaves....P|
000003b0  25 3d b3 28 53 4c 25 29  0d 02 d0 05 20 0d 02 da  |%=.(SL%).... ...|
000003c0  0e 57 57 25 3d b3 28 32  29 2d 31 0d 02 e4 05 20  |.WW%=.(2)-1.... |
000003d0  0d 02 ee 12 4c 58 25 28  30 29 3d 73 78 25 28 50  |....LX%(0)=sx%(P|
000003e0  25 29 0d 02 f8 12 4c 59  25 28 30 29 3d 73 79 25  |%)....LY%(0)=sy%|
000003f0  28 50 25 29 0d 03 02 05  20 0d 03 0c 18 4c 58 25  |(P%).... ....LX%|
00000400  28 31 29 3d 73 78 25 28  50 25 29 2d b3 28 36 34  |(1)=sx%(P%)-.(64|
00000410  29 0d 03 16 1e e7 57 57  25 3d 31 4c 58 25 28 31  |).....WW%=1LX%(1|
00000420  29 3d 73 78 25 28 50 25  29 2b b3 28 36 34 29 0d  |)=sx%(P%)+.(64).|
00000430  03 20 18 4c 59 25 28 31  29 3d 73 79 25 28 50 25  |. .LY%(1)=sy%(P%|
00000440  29 2b b3 28 36 34 29 0d  03 2a 05 20 0d 03 34 1b  |)+.(64)..*. ..4.|
00000450  4c 58 25 28 32 29 3d 4c  58 25 28 31 29 2b 31 36  |LX%(2)=LX%(1)+16|
00000460  2d b3 28 37 29 2a 34 0d  03 3e 17 4c 59 25 28 32  |-.(7)*4..>.LY%(2|
00000470  29 3d 4c 59 25 28 31 29  2d b3 28 39 36 29 0d 03  |)=LY%(1)-.(96)..|
00000480  48 05 20 0d 03 52 17 4c  58 25 28 33 29 3d 4c 58  |H. ..R.LX%(3)=LX|
00000490  25 28 32 29 2d b3 28 36  34 29 0d 03 5c 1d e7 57  |%(2)-.(64)..\..W|
000004a0  57 25 3d 31 4c 58 25 28  33 29 3d 4c 58 25 28 32  |W%=1LX%(3)=LX%(2|
000004b0  29 2b b3 28 36 34 29 0d  03 66 17 4c 59 25 28 33  |)+.(64)..f.LY%(3|
000004c0  29 3d 4c 59 25 28 31 29  2d b3 28 31 36 29 0d 03  |)=LY%(1)-.(16)..|
000004d0  70 05 20 0d 03 7a 1b 4c  58 25 28 34 29 3d 4c 58  |p. ..z.LX%(4)=LX|
000004e0  25 28 33 29 2b 31 36 2d  b3 28 37 29 2a 34 0d 03  |%(3)+16-.(7)*4..|
000004f0  84 17 4c 59 25 28 34 29  3d 4c 59 25 28 33 29 2d  |..LY%(4)=LY%(3)-|
00000500  b3 28 39 36 29 0d 03 8e  05 20 0d 03 98 17 4c 58  |.(96).... ....LX|
00000510  25 28 35 29 3d 4c 58 25  28 34 29 2d b3 28 36 34  |%(5)=LX%(4)-.(64|
00000520  29 0d 03 a2 1d e7 57 57  25 3d 31 4c 58 25 28 35  |).....WW%=1LX%(5|
00000530  29 3d 4c 58 25 28 34 29  2b b3 28 36 34 29 0d 03  |)=LX%(4)+.(64)..|
00000540  ac 17 4c 59 25 28 35 29  3d 4c 59 25 28 34 29 2b  |..LY%(5)=LY%(4)+|
00000550  b3 28 33 32 29 0d 03 b6  05 20 0d 03 c0 06 e6 35  |.(32).... .....5|
00000560  0d 03 ca 12 ec 4c 58 25  28 30 29 2c 4c 59 25 28  |.....LX%(0),LY%(|
00000570  30 29 0d 03 d4 12 df 4c  58 25 28 31 29 2c 4c 59  |0).....LX%(1),LY|
00000580  25 28 31 29 0d 03 de 12  d1 3d 30 3a f5 fd 91 3e  |%(1).....=0:...>|
00000590  64 65 6c 61 79 25 0d 03  e8 05 20 0d 03 f2 0b e3  |delay%.... .....|
000005a0  4a 25 3d 32 b8 35 0d 03  fc 12 d1 3d 30 3a f5 fd  |J%=2.5.....=0:..|
000005b0  91 3e 64 65 6c 61 79 25  0d 04 06 0d c8 9c 32 2c  |.>delay%......2,|
000005c0  4a 25 2a 36 34 0d 04 10  17 f0 38 35 2c 4c 58 25  |J%*64.....85,LX%|
000005d0  28 4a 25 29 2c 4c 59 25  28 4a 25 29 0d 04 1a 05  |(J%),LY%(J%)....|
000005e0  ed 0d 04 24 05 20 0d 04  2e 05 ed 0d 04 38 05 e1  |...$. .......8..|
000005f0  0d 04 42 05 20 0d 04 4c  17 f4 83 46 4c 4f 57 45  |..B. ..L...FLOWE|
00000600  52 85 6d 69 64 64 6c 65  20 62 69 74 0d 04 56 0c  |R.middle bit..V.|
00000610  dd f2 73 74 61 6d 65 6e  0d 04 60 0a 53 53 25 3d  |..stamen..`.SS%=|
00000620  33 32 0d 04 6a 0b f2 70  65 74 61 6c 73 0d 04 74  |32..j..petals..t|
00000630  0a e6 b3 28 36 33 29 0d  04 7e 0f e3 4b 25 3d 30  |...(63)..~..K%=0|
00000640  b8 b3 28 31 32 29 0d 04  88 12 d1 3d 30 3a f5 fd  |..(12).....=0:..|
00000650  91 3e 64 65 6c 61 79 25  0d 04 92 0d c8 9c 32 2c  |.>delay%......2,|
00000660  4b 25 2a 36 34 0d 04 9c  28 c8 8f c8 90 73 78 25  |K%*64...(....sx%|
00000670  28 53 4c 25 29 2c 73 79  25 28 53 4c 25 29 2b 53  |(SL%),sy%(SL%)+S|
00000680  53 25 2c 53 53 25 2d 28  4b 25 2a 34 29 0d 04 a6  |S%,SS%-(K%*4)...|
00000690  05 ed 0d 04 b0 05 e1 0d  04 ba 05 20 0d 04 c4 0c  |........... ....|
000006a0  f4 86 50 45 54 41 4c 53  0d 04 ce 0c dd f2 70 65  |..PETALS......pe|
000006b0  74 61 6c 73 0d 04 d8 10  70 73 25 3d 33 32 2b b3  |tals....ps%=32+.|
000006c0  28 33 32 29 0d 04 e2 0d  63 6d 25 3d b3 28 36 33  |(32)....cm%=.(63|
000006d0  29 0d 04 ec 0d 63 70 25  3d b3 28 36 33 29 0d 04  |)....cp%=.(63)..|
000006e0  f6 10 52 25 3d 53 53 25  2b b3 28 33 32 29 0d 05  |..R%=SS%+.(32)..|
000006f0  00 0f 6e 70 25 3d b3 28  31 32 29 2b 32 0d 05 0a  |..np%=.(12)+2...|
00000700  29 6d 69 6e 73 25 3d 6e  70 25 3a 58 25 3d 73 78  |)mins%=np%:X%=sx|
00000710  25 28 53 4c 25 29 3a 59  25 3d 73 79 25 28 53 4c  |%(SL%):Y%=sy%(SL|
00000720  25 29 2b 53 53 25 0d 05  14 08 e6 63 70 25 0d 05  |%)+SS%.....cp%..|
00000730  1e 09 57 50 25 3d 32 0d  05 28 0c c8 8e 20 57 50  |..WP%=2..(... WP|
00000740  25 20 ca 0d 05 32 08 20  c9 20 31 0d 05 3c 11 e3  |% ...2. . 1..<..|
00000750  49 25 3d 30 b8 6d 69 6e  73 25 2d 31 0d 05 46 12  |I%=0.mins%-1..F.|
00000760  d1 3d 30 3a f5 fd 91 3e  64 65 6c 61 79 25 0d 05  |.=0:...>delay%..|
00000770  50 1f 78 25 3d 58 25 2b  52 25 2a b5 b2 28 49 25  |P.x%=X%+R%*..(I%|
00000780  2a 28 33 36 30 2f 6d 69  6e 73 25 29 29 0d 05 5a  |*(360/mins%))..Z|
00000790  1f 79 25 3d 59 25 2b 52  25 2a 9b b2 28 49 25 2a  |.y%=Y%+R%*..(I%*|
000007a0  28 33 36 30 2f 6d 69 6e  73 25 29 29 0d 05 64 11  |(360/mins%))..d.|
000007b0  c8 8f c8 90 78 25 2c 79  25 2c 70 73 25 0d 05 6e  |....x%,y%,ps%..n|
000007c0  05 ed 0d 05 78 05 20 0d  05 82 08 20 c9 20 32 0d  |....x. .... . 2.|
000007d0  05 8c 19 e3 4a 25 3d 52  25 b8 52 25 2b b3 28 36  |....J%=R%.R%+.(6|
000007e0  34 29 88 b3 28 31 32 29  0d 05 96 12 d1 3d 30 3a  |4)..(12).....=0:|
000007f0  f5 fd 91 3e 64 65 6c 61  79 25 0d 05 a0 11 c8 9c  |...>delay%......|
00000800  32 2c 28 4a 25 83 34 29  2a 36 34 0d 05 aa 11 e3  |2,(J%.4)*64.....|
00000810  49 25 3d 30 b8 6d 69 6e  73 25 2d 31 0d 05 b4 12  |I%=0.mins%-1....|
00000820  d1 3d 30 3a f5 fd 91 3e  64 65 6c 61 79 25 0d 05  |.=0:...>delay%..|
00000830  be 1f 78 25 3d 58 25 2b  4a 25 2a b5 b2 28 49 25  |..x%=X%+J%*..(I%|
00000840  2a 28 33 36 30 2f 6d 69  6e 73 25 29 29 0d 05 c8  |*(360/mins%))...|
00000850  1f 79 25 3d 59 25 2b 4a  25 2a 9b b2 28 49 25 2a  |.y%=Y%+J%*..(I%*|
00000860  28 33 36 30 2f 6d 69 6e  73 25 29 29 0d 05 d2 11  |(360/mins%))....|
00000870  c8 8f c8 90 78 25 2c 79  25 2c 70 73 25 0d 05 dc  |....x%,y%,ps%...|
00000880  05 ed 0d 05 e6 0a 70 73  25 2d 3d 34 0d 05 f0 05  |......ps%-=4....|
00000890  ed 0d 05 fa 05 20 0d 06  04 05 cb 0d 06 0e 05 e1  |..... ..........|
000008a0  0d 06 18 05 20 0d 06 22  10 f4 86 42 41 43 4b 47  |.... .."...BACKG|
000008b0  52 4f 55 4e 44 0d 06 2c  0b dd f2 62 61 63 6b 67  |ROUND..,...backg|
000008c0  0d 06 36 09 c8 9c 32 2c  30 0d 06 40 0d fb 31 32  |..6...2,0..@..12|
000008d0  38 2b 34 38 3a db 0d 06  4a 07 e6 36 33 0d 06 54  |8+48:...J..63..T|
000008e0  14 c8 93 c8 90 30 2c 30  2c 31 32 38 30 2c 31 32  |.....0,0,1280,12|
000008f0  38 0d 06 5e 06 e6 31 0d  06 68 18 c8 93 c8 90 33  |8..^..1..h.....3|
00000900  32 2c 33 32 2c 31 32 38  30 2d 36 34 2c 36 34 0d  |2,32,1280-64,64.|
00000910  06 72 05 e1 0d ff                                 |.r....|
00000916

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