Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Oneliners/JellyFish
Oneliners/JellyFish
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 1994-06.adf » !StarInfo_StarInfo |
| Filename: | Oneliners/JellyFish |
| Read OK: | ✔ |
| File size: | 0135 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM One line jellyfish. 20REM by Robert Bergs. 30: 40MODE12:OFF:s=5:m=12:x=640:y=512:l=200:FORb=0TO350STEPm:CLS:FORa=1TO360STEPs:v=x+(l*COSRAD(a)):w=y+(l*SINRAD(a)):t=v+(l*COSRAD(a+b)):u=w+(l*SINRAD(a)):GCOL1:LINEx,y,v,w:GCOL2:DRAW t,u:NEXT:MOVE230,99:MOVE1050,920:OSCLI"SG."+STR$(b):NEXT:CLS:REPEAT:FORh%=-820TO1280STEP5:f%=f%+m:IFf%>350f%=0:NEXT:UNTIL0:ELSE OSCLI"*SCH."+STR$(f%):WAIT:PLOT237,h%,102:NEXT:UNTIL0
� One line jellyfish. � by Robert Bergs. : (��12:�:s=5:m=12:x=640:y=512:l=200:�b=0�350�m:�:�a=1�360�s:v=x+(l*��(a)):w=y+(l*��(a)):t=v+(l*��(a+b)):u=w+(l*��(a)):�1:�x,y,v,w:�2:� t,u:�:�230,99:�1050,920:�"SG."+�(b):�:�:�:�h%=-820�1280�5:f%=f%+m:�f%>350f%=0:�:�0:� �"*SCH."+�(f%):Ȗ:�237,h%,102:�:�0 �
00000000 0d 00 0a 19 f4 20 4f 6e 65 20 6c 69 6e 65 20 6a |..... One line j| 00000010 65 6c 6c 79 66 69 73 68 2e 0d 00 14 16 f4 20 62 |ellyfish...... b| 00000020 79 20 52 6f 62 65 72 74 20 42 65 72 67 73 2e 0d |y Robert Bergs..| 00000030 00 1e 05 3a 0d 00 28 ff eb 31 32 3a 87 3a 73 3d |...:..(..12:.:s=| 00000040 35 3a 6d 3d 31 32 3a 78 3d 36 34 30 3a 79 3d 35 |5:m=12:x=640:y=5| 00000050 31 32 3a 6c 3d 32 30 30 3a e3 62 3d 30 b8 33 35 |12:l=200:.b=0.35| 00000060 30 88 6d 3a db 3a e3 61 3d 31 b8 33 36 30 88 73 |0.m:.:.a=1.360.s| 00000070 3a 76 3d 78 2b 28 6c 2a 9b b2 28 61 29 29 3a 77 |:v=x+(l*..(a)):w| 00000080 3d 79 2b 28 6c 2a b5 b2 28 61 29 29 3a 74 3d 76 |=y+(l*..(a)):t=v| 00000090 2b 28 6c 2a 9b b2 28 61 2b 62 29 29 3a 75 3d 77 |+(l*..(a+b)):u=w| 000000a0 2b 28 6c 2a b5 b2 28 61 29 29 3a e6 31 3a 86 78 |+(l*..(a)):.1:.x| 000000b0 2c 79 2c 76 2c 77 3a e6 32 3a df 20 74 2c 75 3a |,y,v,w:.2:. t,u:| 000000c0 ed 3a ec 32 33 30 2c 39 39 3a ec 31 30 35 30 2c |.:.230,99:.1050,| 000000d0 39 32 30 3a ff 22 53 47 2e 22 2b c3 28 62 29 3a |920:."SG."+.(b):| 000000e0 ed 3a db 3a f5 3a e3 68 25 3d 2d 38 32 30 b8 31 |.:.:.:.h%=-820.1| 000000f0 32 38 30 88 35 3a 66 25 3d 66 25 2b 6d 3a e7 66 |280.5:f%=f%+m:.f| 00000100 25 3e 33 35 30 66 25 3d 30 3a ed 3a fd 30 3a 8b |%>350f%=0:.:.0:.| 00000110 20 ff 22 2a 53 43 48 2e 22 2b c3 28 66 25 29 3a | ."*SCH."+.(f%):| 00000120 c8 96 3a f0 32 33 37 2c 68 25 2c 31 30 32 3a ed |..:.237,h%,102:.| 00000130 3a fd 30 0d ff |:.0..| 00000135
.