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

StarInfo/Vibe/Jelly

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/Jelly
Read OK:
File size: 0345 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > JELLY
   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%)
   70X(N%,0)=800+400*SINT:OX(N%)=X(N%,0)
   80Y(N%,0)=600+400*COST:OY(N%)=Y(N%,0)
   90NEXT
  100ONERRORGOTO330
  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
  280DY(N%)=(Y(N%,P1%)-Y(N%,P2%))*.98
  290ENDIF
  300NEXT
  310UNTIL0
  320
  330SYS 6,112,S1%:REPORT:PRINT" at line "STR$ERL:ON


� > JELLY


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