StarInfo/Alexandrou/<1KWaves

Home » Archimedes archive » Acorn User » AU 1998-07.adf » Regulars » StarInfo/Alexandrou/<1KWaves

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 1998-07.adf » Regulars
Filename:	StarInfo/Alexandrou/<1KWaves
Read OK:	✔
File size:	03D0 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM *** <1K Waves
   20REM *** Written by Dean Alexandrou
   30
   40MODE9:PRINT"Requires 480K Screen Memory":FORn%=0TO15:COLOUR n%,n%*17,n%*17,n%*17:NEXT:DIMs%(128,100):INPUT"Wave type (1/2):"w%:t%=0:TIME=0:REPEAT:t%+=1:UNTILTIME>=100
   50r1%=5:r2%=100::FORb%=1TO12:od=b%*((w%-1)*-9+15):FORx%=0TO128:FORy%=0TO100:IFw%=1h%=SIN(RAD(od+x%/128*360))*SIN(RAD(od+y%/100*360))*180ELSEdis=SQR((x%-64)^2+(y%-50)^2):h%=100-LOG(dis+0.1)*r2%*SIN(RAD((dis+od)*r1%))
   60s%(x%,y%)=h%:NEXT:NEXT:PRINTTAB(0,0)"Written by Dean Alexandrou"'"Use arrow keys to control speed":SYS6,112,b%:SYS6,113,b%:CLS:PRINT"Frame ";b%
   70FORy%=99TO0STEP-1:xmf=(3-y%/100*3)+7:xmf2=(3-(y%+1)/100*3)+7:xo%=(1000-100*xmf)/2:xo2%=(1000-100*xmf2)/2:FORx%=0TO127:c%=s%(x%+1,y%+1)-s%(x%,y%)+1:IFc%>15c%=15
   80IFc%<0c%=0
   90GCOL0,c%:MOVExmf*x%+xo%,y%*7+s%(x%,y%):MOVExmf*(x%+1)+xo%,y%*7+s%(x%+1,y%):PLOT85,xmf2*x%+xo2%,(y%+1)*7+s%(x%,y%+1):PLOT85,xmf2*(x%+1)+xo2%,(y%+1)*7+s%(x%+1,y%+1):NEXT:NEXT:NEXT:PRINTTAB(0,0)"Written by Dean Alexandrou"'"Use arrow keys to control speed"
  100REPEAT:FORb%=1TO12:IFINKEY-58ANDt%>0t%-=100
  110IFINKEY-42t%+=100
  120FORn%=0TOt%:NEXT:SYS6,113,b%:NEXT:UNTIL0


� *** <1K Waves
$� *** Written by Dean Alexandrou

(��9:�"Requires 480K Screen Memory":�n%=0�15:� n%,n%*17,n%*17,n%*17:�:�s%(128,100):�"Wave type (1/2):"w%:t%=0:�=0:�:t%+=1:��>=100
2�r1%=5:r2%=100::�b%=1�12:od=b%*((w%-1)*-9+15):�x%=0�128:�y%=0�100:�w%=1h%=�(�(od+x%/128*360))*�(�(od+y%/100*360))*180�dis=�((x%-64)^2+(y%-50)^2):h%=100-�(dis+0.1)*r2%*�(�((dis+od)*r1%))
<~s%(x%,y%)=h%:�:�:�0,0)"Written by Dean Alexandrou"'"Use arrow keys to control speed":ș6,112,b%:ș6,113,b%:�:�"Frame ";b%
F��y%=99�0�-1:xmf=(3-y%/100*3)+7:xmf2=(3-(y%+1)/100*3)+7:xo%=(1000-100*xmf)/2:xo2%=(1000-100*xmf2)/2:�x%=0�127:c%=s%(x%+1,y%+1)-s%(x%,y%)+1:�c%>15c%=15
P
�c%<0c%=0
Z��0,c%:�xmf*x%+xo%,y%*7+s%(x%,y%):�xmf*(x%+1)+xo%,y%*7+s%(x%+1,y%):�85,xmf2*x%+xo2%,(y%+1)*7+s%(x%,y%+1):�85,xmf2*(x%+1)+xo2%,(y%+1)*7+s%(x%+1,y%+1):�:�:�:�0,0)"Written by Dean Alexandrou"'"Use arrow keys to control speed"
d �:�b%=1�12:�-58�t%>0t%-=100
n�-42t%+=100
x�n%=0�t%:�:ș6,113,b%:�:�0
�

00000000  0d 00 0a 13 f4 20 2a 2a  2a 20 3c 31 4b 20 57 61  |..... *** <1K Wa|
00000010  76 65 73 0d 00 14 24 f4  20 2a 2a 2a 20 57 72 69  |ves...$. *** Wri|
00000020  74 74 65 6e 20 62 79 20  44 65 61 6e 20 41 6c 65  |tten by Dean Ale|
00000030  78 61 6e 64 72 6f 75 0d  00 1e 04 0d 00 28 83 eb  |xandrou......(..|
00000040  39 3a f1 22 52 65 71 75  69 72 65 73 20 34 38 30  |9:."Requires 480|
00000050  4b 20 53 63 72 65 65 6e  20 4d 65 6d 6f 72 79 22  |K Screen Memory"|
00000060  3a e3 6e 25 3d 30 b8 31  35 3a fb 20 6e 25 2c 6e  |:.n%=0.15:. n%,n|
00000070  25 2a 31 37 2c 6e 25 2a  31 37 2c 6e 25 2a 31 37  |%*17,n%*17,n%*17|
00000080  3a ed 3a de 73 25 28 31  32 38 2c 31 30 30 29 3a  |:.:.s%(128,100):|
00000090  e8 22 57 61 76 65 20 74  79 70 65 20 28 31 2f 32  |."Wave type (1/2|
000000a0  29 3a 22 77 25 3a 74 25  3d 30 3a d1 3d 30 3a f5  |):"w%:t%=0:.=0:.|
000000b0  3a 74 25 2b 3d 31 3a fd  91 3e 3d 31 30 30 0d 00  |:t%+=1:..>=100..|
000000c0  32 bc 72 31 25 3d 35 3a  72 32 25 3d 31 30 30 3a  |2.r1%=5:r2%=100:|
000000d0  3a e3 62 25 3d 31 b8 31  32 3a 6f 64 3d 62 25 2a  |:.b%=1.12:od=b%*|
000000e0  28 28 77 25 2d 31 29 2a  2d 39 2b 31 35 29 3a e3  |((w%-1)*-9+15):.|
000000f0  78 25 3d 30 b8 31 32 38  3a e3 79 25 3d 30 b8 31  |x%=0.128:.y%=0.1|
00000100  30 30 3a e7 77 25 3d 31  68 25 3d b5 28 b2 28 6f  |00:.w%=1h%=.(.(o|
00000110  64 2b 78 25 2f 31 32 38  2a 33 36 30 29 29 2a b5  |d+x%/128*360))*.|
00000120  28 b2 28 6f 64 2b 79 25  2f 31 30 30 2a 33 36 30  |(.(od+y%/100*360|
00000130  29 29 2a 31 38 30 8b 64  69 73 3d b6 28 28 78 25  |))*180.dis=.((x%|
00000140  2d 36 34 29 5e 32 2b 28  79 25 2d 35 30 29 5e 32  |-64)^2+(y%-50)^2|
00000150  29 3a 68 25 3d 31 30 30  2d ab 28 64 69 73 2b 30  |):h%=100-.(dis+0|
00000160  2e 31 29 2a 72 32 25 2a  b5 28 b2 28 28 64 69 73  |.1)*r2%*.(.((dis|
00000170  2b 6f 64 29 2a 72 31 25  29 29 0d 00 3c 7e 73 25  |+od)*r1%))..<~s%|
00000180  28 78 25 2c 79 25 29 3d  68 25 3a ed 3a ed 3a f1  |(x%,y%)=h%:.:.:.|
00000190  8a 30 2c 30 29 22 57 72  69 74 74 65 6e 20 62 79  |.0,0)"Written by|
000001a0  20 44 65 61 6e 20 41 6c  65 78 61 6e 64 72 6f 75  | Dean Alexandrou|
000001b0  22 27 22 55 73 65 20 61  72 72 6f 77 20 6b 65 79  |"'"Use arrow key|
000001c0  73 20 74 6f 20 63 6f 6e  74 72 6f 6c 20 73 70 65  |s to control spe|
000001d0  65 64 22 3a c8 99 36 2c  31 31 32 2c 62 25 3a c8  |ed":..6,112,b%:.|
000001e0  99 36 2c 31 31 33 2c 62  25 3a db 3a f1 22 46 72  |.6,113,b%:.:."Fr|
000001f0  61 6d 65 20 22 3b 62 25  0d 00 46 99 e3 79 25 3d  |ame ";b%..F..y%=|
00000200  39 39 b8 30 88 2d 31 3a  78 6d 66 3d 28 33 2d 79  |99.0.-1:xmf=(3-y|
00000210  25 2f 31 30 30 2a 33 29  2b 37 3a 78 6d 66 32 3d  |%/100*3)+7:xmf2=|
00000220  28 33 2d 28 79 25 2b 31  29 2f 31 30 30 2a 33 29  |(3-(y%+1)/100*3)|
00000230  2b 37 3a 78 6f 25 3d 28  31 30 30 30 2d 31 30 30  |+7:xo%=(1000-100|
00000240  2a 78 6d 66 29 2f 32 3a  78 6f 32 25 3d 28 31 30  |*xmf)/2:xo2%=(10|
00000250  30 30 2d 31 30 30 2a 78  6d 66 32 29 2f 32 3a e3  |00-100*xmf2)/2:.|
00000260  78 25 3d 30 b8 31 32 37  3a 63 25 3d 73 25 28 78  |x%=0.127:c%=s%(x|
00000270  25 2b 31 2c 79 25 2b 31  29 2d 73 25 28 78 25 2c  |%+1,y%+1)-s%(x%,|
00000280  79 25 29 2b 31 3a e7 63  25 3e 31 35 63 25 3d 31  |y%)+1:.c%>15c%=1|
00000290  35 0d 00 50 0d e7 63 25  3c 30 63 25 3d 30 0d 00  |5..P..c%<0c%=0..|
000002a0  5a e2 e6 30 2c 63 25 3a  ec 78 6d 66 2a 78 25 2b  |Z..0,c%:.xmf*x%+|
000002b0  78 6f 25 2c 79 25 2a 37  2b 73 25 28 78 25 2c 79  |xo%,y%*7+s%(x%,y|
000002c0  25 29 3a ec 78 6d 66 2a  28 78 25 2b 31 29 2b 78  |%):.xmf*(x%+1)+x|
000002d0  6f 25 2c 79 25 2a 37 2b  73 25 28 78 25 2b 31 2c  |o%,y%*7+s%(x%+1,|
000002e0  79 25 29 3a f0 38 35 2c  78 6d 66 32 2a 78 25 2b  |y%):.85,xmf2*x%+|
000002f0  78 6f 32 25 2c 28 79 25  2b 31 29 2a 37 2b 73 25  |xo2%,(y%+1)*7+s%|
00000300  28 78 25 2c 79 25 2b 31  29 3a f0 38 35 2c 78 6d  |(x%,y%+1):.85,xm|
00000310  66 32 2a 28 78 25 2b 31  29 2b 78 6f 32 25 2c 28  |f2*(x%+1)+xo2%,(|
00000320  79 25 2b 31 29 2a 37 2b  73 25 28 78 25 2b 31 2c  |y%+1)*7+s%(x%+1,|
00000330  79 25 2b 31 29 3a ed 3a  ed 3a ed 3a f1 8a 30 2c  |y%+1):.:.:.:..0,|
00000340  30 29 22 57 72 69 74 74  65 6e 20 62 79 20 44 65  |0)"Written by De|
00000350  61 6e 20 41 6c 65 78 61  6e 64 72 6f 75 22 27 22  |an Alexandrou"'"|
00000360  55 73 65 20 61 72 72 6f  77 20 6b 65 79 73 20 74  |Use arrow keys t|
00000370  6f 20 63 6f 6e 74 72 6f  6c 20 73 70 65 65 64 22  |o control speed"|
00000380  0d 00 64 20 f5 3a e3 62  25 3d 31 b8 31 32 3a e7  |..d .:.b%=1.12:.|
00000390  a6 2d 35 38 80 74 25 3e  30 74 25 2d 3d 31 30 30  |.-58.t%>0t%-=100|
000003a0  0d 00 6e 10 e7 a6 2d 34  32 74 25 2b 3d 31 30 30  |..n...-42t%+=100|
000003b0  0d 00 78 1e e3 6e 25 3d  30 b8 74 25 3a ed 3a c8  |..x..n%=0.t%:.:.|
000003c0  99 36 2c 31 31 33 2c 62  25 3a ed 3a fd 30 0d ff  |.6,113,b%:.:.0..|
000003d0

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