StarInfo/Vibe/JellyStar

Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » StarInfo/Vibe/JellyStar

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 1996-01.adf » Regulars
Filename:	StarInfo/Vibe/JellyStar
Read OK:	✔
File size:	035F bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > JELLYSTAR
   20
   30MODE157:MODE 29
   40DIM X(39,1),Y(39,1),DX(39),DY(39),OX(39),OY(39)
   50P1%=0:P2%=1:S1%=1:S2%=2:*POINTER
   60FORN%=0TO39:T=RAD(9*N%+54):Z=200*(SINRAD(45*N%)+2)
   70X(N%,0)=800+400*SINT:OX(N%)=800+Z*SINT
   80Y(N%,0)=600+400*COST:OY(N%)=600+Z*COST
   90NEXT
  100ONERRORGOTO320
  110REPEAT:SWAP P1%,P2%
  120SYS 6,112,S1%:SYS 6,113,S2%:WAIT:CLS:SWAP S1%,S2%
  130MOVEX(39,P2%),Y(39,P2%)
  140FORN%=0TO39:DRAWX(N%,P2%),Y(N%,P2%):NEXT
  150FORN%=0TO39:N1%=(N%+1)MOD40:N2%=(N%+39)MOD40
  160OB%=B%:MOUSE X%,Y%,B%:IF B%<>0 THEN
  170IF B%<>OB% THEN
  180D=1E9:M%=0:FORI%=0TO39:Z=(X%-X(I%,P2%))^2+(Y%-Y(I%,P2%))^2
  190IF Z<D D=Z:M%=I%
  200NEXT
  210ENDIF
  220X(M%,P1%)=X%:Y(M%,P1%)=Y%
  230ENDIF
  240X(N%,P1%)=(3*X(N%,P2%)+X(N1%,P2%)+X(N2%,P2%)+OX(N%))/6+DX(N%)
  250Y(N%,P1%)=(3*Y(N%,P2%)+Y(N1%,P2%)+Y(N2%,P2%)+OY(N%))/6+DY(N%)
  260IF B%=0 OR N%<>M% THEN
  270DX(N%)=(X(N%,P1%)-X(N%,P2%))*.98:DY(N%)=(Y(N%,P1%)-Y(N%,P2%))*.98
  280ENDIF
  290NEXT
  300UNTIL0
  310
  320SYS 6,112,S1%:REPORT:PRINT" at line "STR$ERL:ON


� > JELLYSTAR


�157:� 29
(1� X(39,1),Y(39,1),DX(39),DY(39),OX(39),OY(39)
2$P1%=0:P2%=1:S1%=1:S2%=2:*POINTER
<-�N%=0�39:T=�(9*N%+54):Z=200*(��(45*N%)+2)
F&X(N%,0)=800+400*�T:OX(N%)=800+Z*�T
P&Y(N%,0)=600+400*�T:OY(N%)=600+Z*�T
Z�
d��D@A
n�:Ȕ P1%,P2%
x-ș 6,112,S1%:ș 6,113,S2%:Ȗ:�:Ȕ S1%,S2%
��X(39,P2%),Y(39,P2%)
�#�N%=0�39:�X(N%,P2%),Y(N%,P2%):�
�)�N%=0�39:N1%=(N%+1)�40:N2%=(N%+39)�40
� OB%=B%:ȗ X%,Y%,B%:� B%<>0 �
�� B%<>OB% �
�;D=1E9:M%=0:�I%=0�39:Z=(X%-X(I%,P2%))^2+(Y%-Y(I%,P2%))^2
�� Z<D D=Z:M%=I%
��
��
�X(M%,P1%)=X%:Y(M%,P1%)=Y%
��
�AX(N%,P1%)=(3*X(N%,P2%)+X(N1%,P2%)+X(N2%,P2%)+OX(N%))/6+DX(N%)
�AY(N%,P1%)=(3*Y(N%,P2%)+Y(N1%,P2%)+Y(N2%,P2%)+OY(N%))/6+DY(N%)
� B%=0 � N%<>M% �
EDX(N%)=(X(N%,P1%)-X(N%,P2%))*.98:DY(N%)=(Y(N%,P1%)-Y(N%,P2%))*.98
�
"�
,�0
6
@#ș 6,112,S1%:�:�" at line "Þ:�
�

00000000  0d 00 0a 11 f4 20 3e 20  4a 45 4c 4c 59 53 54 41  |..... > JELLYSTA|
00000010  52 0d 00 14 04 0d 00 1e  0d eb 31 35 37 3a eb 20  |R.........157:. |
00000020  32 39 0d 00 28 31 de 20  58 28 33 39 2c 31 29 2c  |29..(1. X(39,1),|
00000030  59 28 33 39 2c 31 29 2c  44 58 28 33 39 29 2c 44  |Y(39,1),DX(39),D|
00000040  59 28 33 39 29 2c 4f 58  28 33 39 29 2c 4f 59 28  |Y(39),OX(39),OY(|
00000050  33 39 29 0d 00 32 24 50  31 25 3d 30 3a 50 32 25  |39)..2$P1%=0:P2%|
00000060  3d 31 3a 53 31 25 3d 31  3a 53 32 25 3d 32 3a 2a  |=1:S1%=1:S2%=2:*|
00000070  50 4f 49 4e 54 45 52 0d  00 3c 2d e3 4e 25 3d 30  |POINTER..<-.N%=0|
00000080  b8 33 39 3a 54 3d b2 28  39 2a 4e 25 2b 35 34 29  |.39:T=.(9*N%+54)|
00000090  3a 5a 3d 32 30 30 2a 28  b5 b2 28 34 35 2a 4e 25  |:Z=200*(..(45*N%|
000000a0  29 2b 32 29 0d 00 46 26  58 28 4e 25 2c 30 29 3d  |)+2)..F&X(N%,0)=|
000000b0  38 30 30 2b 34 30 30 2a  b5 54 3a 4f 58 28 4e 25  |800+400*.T:OX(N%|
000000c0  29 3d 38 30 30 2b 5a 2a  b5 54 0d 00 50 26 59 28  |)=800+Z*.T..P&Y(|
000000d0  4e 25 2c 30 29 3d 36 30  30 2b 34 30 30 2a 9b 54  |N%,0)=600+400*.T|
000000e0  3a 4f 59 28 4e 25 29 3d  36 30 30 2b 5a 2a 9b 54  |:OY(N%)=600+Z*.T|
000000f0  0d 00 5a 05 ed 0d 00 64  0b ee 85 e5 8d 44 40 41  |..Z....d.....D@A|
00000100  0d 00 6e 10 f5 3a c8 94  20 50 31 25 2c 50 32 25  |..n..:.. P1%,P2%|
00000110  0d 00 78 2d c8 99 20 36  2c 31 31 32 2c 53 31 25  |..x-.. 6,112,S1%|
00000120  3a c8 99 20 36 2c 31 31  33 2c 53 32 25 3a c8 96  |:.. 6,113,S2%:..|
00000130  3a db 3a c8 94 20 53 31  25 2c 53 32 25 0d 00 82  |:.:.. S1%,S2%...|
00000140  18 ec 58 28 33 39 2c 50  32 25 29 2c 59 28 33 39  |..X(39,P2%),Y(39|
00000150  2c 50 32 25 29 0d 00 8c  23 e3 4e 25 3d 30 b8 33  |,P2%)...#.N%=0.3|
00000160  39 3a df 58 28 4e 25 2c  50 32 25 29 2c 59 28 4e  |9:.X(N%,P2%),Y(N|
00000170  25 2c 50 32 25 29 3a ed  0d 00 96 29 e3 4e 25 3d  |%,P2%):....).N%=|
00000180  30 b8 33 39 3a 4e 31 25  3d 28 4e 25 2b 31 29 83  |0.39:N1%=(N%+1).|
00000190  34 30 3a 4e 32 25 3d 28  4e 25 2b 33 39 29 83 34  |40:N2%=(N%+39).4|
000001a0  30 0d 00 a0 20 4f 42 25  3d 42 25 3a c8 97 20 58  |0... OB%=B%:.. X|
000001b0  25 2c 59 25 2c 42 25 3a  e7 20 42 25 3c 3e 30 20  |%,Y%,B%:. B%<>0 |
000001c0  8c 0d 00 aa 0f e7 20 42  25 3c 3e 4f 42 25 20 8c  |...... B%<>OB% .|
000001d0  0d 00 b4 3b 44 3d 31 45  39 3a 4d 25 3d 30 3a e3  |...;D=1E9:M%=0:.|
000001e0  49 25 3d 30 b8 33 39 3a  5a 3d 28 58 25 2d 58 28  |I%=0.39:Z=(X%-X(|
000001f0  49 25 2c 50 32 25 29 29  5e 32 2b 28 59 25 2d 59  |I%,P2%))^2+(Y%-Y|
00000200  28 49 25 2c 50 32 25 29  29 5e 32 0d 00 be 13 e7  |(I%,P2%))^2.....|
00000210  20 5a 3c 44 20 44 3d 5a  3a 4d 25 3d 49 25 0d 00  | Z<D D=Z:M%=I%..|
00000220  c8 05 ed 0d 00 d2 05 cd  0d 00 dc 1d 58 28 4d 25  |............X(M%|
00000230  2c 50 31 25 29 3d 58 25  3a 59 28 4d 25 2c 50 31  |,P1%)=X%:Y(M%,P1|
00000240  25 29 3d 59 25 0d 00 e6  05 cd 0d 00 f0 41 58 28  |%)=Y%........AX(|
00000250  4e 25 2c 50 31 25 29 3d  28 33 2a 58 28 4e 25 2c  |N%,P1%)=(3*X(N%,|
00000260  50 32 25 29 2b 58 28 4e  31 25 2c 50 32 25 29 2b  |P2%)+X(N1%,P2%)+|
00000270  58 28 4e 32 25 2c 50 32  25 29 2b 4f 58 28 4e 25  |X(N2%,P2%)+OX(N%|
00000280  29 29 2f 36 2b 44 58 28  4e 25 29 0d 00 fa 41 59  |))/6+DX(N%)...AY|
00000290  28 4e 25 2c 50 31 25 29  3d 28 33 2a 59 28 4e 25  |(N%,P1%)=(3*Y(N%|
000002a0  2c 50 32 25 29 2b 59 28  4e 31 25 2c 50 32 25 29  |,P2%)+Y(N1%,P2%)|
000002b0  2b 59 28 4e 32 25 2c 50  32 25 29 2b 4f 59 28 4e  |+Y(N2%,P2%)+OY(N|
000002c0  25 29 29 2f 36 2b 44 59  28 4e 25 29 0d 01 04 15  |%))/6+DY(N%)....|
000002d0  e7 20 42 25 3d 30 20 84  20 4e 25 3c 3e 4d 25 20  |. B%=0 . N%<>M% |
000002e0  8c 0d 01 0e 45 44 58 28  4e 25 29 3d 28 58 28 4e  |....EDX(N%)=(X(N|
000002f0  25 2c 50 31 25 29 2d 58  28 4e 25 2c 50 32 25 29  |%,P1%)-X(N%,P2%)|
00000300  29 2a 2e 39 38 3a 44 59  28 4e 25 29 3d 28 59 28  |)*.98:DY(N%)=(Y(|
00000310  4e 25 2c 50 31 25 29 2d  59 28 4e 25 2c 50 32 25  |N%,P1%)-Y(N%,P2%|
00000320  29 29 2a 2e 39 38 0d 01  18 05 cd 0d 01 22 05 ed  |))*.98......."..|
00000330  0d 01 2c 06 fd 30 0d 01  36 04 0d 01 40 23 c8 99  |..,..0..6...@#..|
00000340  20 36 2c 31 31 32 2c 53  31 25 3a f6 3a f1 22 20  | 6,112,S1%:.:." |
00000350  61 74 20 6c 69 6e 65 20  22 c3 9e 3a ee 0d ff     |at line "..:...|
0000035f

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