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