Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape17a_acorn_eu_1990_december.wav » Kinetic

Kinetic

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape17a_acorn_eu_1990_december.wav
Filename: Kinetic
Read OK: ✔
File size: 0844 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10MODE7
   20PRINT"Beeb Bodybuilding Course"
   30PRINT"Kinetic Art"
   40PRINT"THE MICRO USER"
   50PRINT"December 1990"
   60PRINT"By Mike Cook"
   70PRINT
   80TLIM=3000
   90TIME=0
  100*FX16,4
  110SCALE%=1024
  120OSET%=16
  130N%=8
  140DIM X%(40),Y%(40),OX%(N%,4),OY%(N%,4)
  150DIM SX%(4),SY%(4)
  160PROC_LOOKUP
  170REPEAT:UNTIL TIME>200
  180MODE 7
  190PROCBAR
  200REPEAT
  210MODE 2
  220VDU 29,640;512;
  230PROC_POLYGON
  240PROC_LINE
  250PROC_TRI
  260UNTIL FALSE
  270END
  280DEF PROC_LOOKUP
  290FOR A=0 TO 40
  300X%(A)=A*16
  310Y%(A)=A*12.8
  320NEXT
  330FOR A=0 TO N%
  340FOR B=1 TO 4
  350OX%(A,B)=0
  360OY%(A,B)=0
  370SX%(B)=1:SY%(B)=1
  380NEXT
  390NEXT
  400SX%(2)=-1:SX%(3)=-1
  410SY%(3)=-1:SY%(4)=-1
  420ENDPROC
  430DEF PROC_LINE
  440CLS
  450VDU23,1,0;0;0;0;
  460LOCAL A%,B%,C%,NP%
  470NP%=1
  480REPEAT
  490GCOL3,RND(7)
  500FOR A%=1 TO 4
  510PROC_SAMP(A%)
  520OX%(NP%,A%)=X%(V%)
  530OY%(NP%,A%)=Y%(V%)
  540NEXT
  550FOR A%=1 TO 4
  560FOR B%=1 TO 4
  570FOR C%=1 TO 4
  580MOVE SX%(C%)*OX%(NP%,B%),0
  590DRAW 0,SY%(C%)*OY%(NP%,A%)
  600NEXT:NEXT:NEXT
  610NP%=NP% EOR 1
  620FOR A%=1 TO 4
  630FOR B%=1 TO 4
  640FOR C%=1 TO 4
  650MOVE SX%(C%)*OX%(NP%,B%),0
  660PLOT 7,0,SY%(C%)*OY%(NP%,A%)
  670NEXT:NEXT:NEXT
  680UNTIL TIME>TLIM
  690TIME=0
  700ENDPROC
  710DEF PROC_POLYGON
  720CLS
  730VDU23,1,0;0;0;0;
  740LOCAL A%,NP%
  750NP%=1
  760REPEAT
  770GCOL1,RND(7)
  780FOR A%=1 TO 4
  790PROC_SAMP(A%)
  800OX%(NP%,A%)=SX%(A%)*X%(V%)
  810OY%(NP%,A%)=SY%(A%)*Y%(V%)
  820NEXT
  830MOVE OX%(NP%,1),OY%(NP%,1)
  840FOR A%=2 TO 4
  850DRAW OX%(NP%,A%),OY%(NP%,A%)
  860NEXT
  870DRAW OX%(NP%,1),OY%(NP%,1)
  880NP%=NP%+1
  890IF NP%>N% THEN NP%=1
  900MOVE OX%(NP%,1),OY%(NP%,1)
  910FOR A%=2 TO 4
  920PLOT 7,OX%(NP%,A%),OY%(NP%,A%)
  930NEXT
  940PLOT 7,OX%(NP%,1),OY%(NP%,1)
  950UNTIL TIME>TLIM
  960TIME=0
  970ENDPROC
  980DEF PROCBAR
  990VDU23,1,0;0;0;0;
 1000CLS
 1010PRINT"BAR GRAPH OF LIGHT SENSORS"
 1020PRINT
 1030PRINT"ADJUST THE LIGHT LEVELS"
 1040PRINT TAB(0,21)"Press a key for the art";
 1050REPEAT
 1060PRINT TAB(0,8)
 1070TIME=0
 1080FOR A=1 TO 4
 1090PROC_SAMP(A)
 1100PRINT STRING$(V%,"*");SPC(40-V%)
 1110NEXT
 1120UNTIL NOT(INKEY(0))
 1130ENDPROC
 1140DEF PROC_SAMP(C%)
 1150V%=ADVAL(C%) DIV SCALE% - OSET%
 1160IF V%<0 THEN V%=0
 1170IF V%>39 THEN V%=39
 1180ENDPROC
 1190DEF PROC_TRI
 1200LOCAL NP%
 1210NP%=1
 1220CLS
 1230REPEAT
 1240FOR A%=1 TO 4
 1250MOVE OX%(NP%,A%),OY%(NP%,A%)
 1260PLOT 7,0,OY%(NP%,A%)
 1270PLOT 7,OX%(NP%,A%),0
 1280PLOT 7,OX%(NP%,A%),OY%(NP%,A%)
 1290GCOL0,RND(7)
 1300PROC_SAMP(A%)
 1310OX%(NP%,A%)=X%(V%)*SX%(A%)
 1320OY%(NP%,A%)=Y%(V%)*SY%(A%)
 1330MOVE OX%(NP%,A%),OY%(NP%,A%)
 1340DRAW 0,OY%(NP%,A%)
 1350DRAW OX%(NP%,A%),0
 1360DRAW OX%(NP%,A%),OY%(NP%,A%)
 1370NEXT
 1380NP%=NP%+1
 1390IF NP%>N% THEN NP%=1
 1400UNTIL TIME>TLIM
 1410TIME=0
 1420ENDPROC


�7
�"Beeb Bodybuilding Course"
�"Kinetic Art"
(�"THE MICRO USER"
2�"December 1990"
<�"By Mike Cook"
F�
P
TLIM=3000
Z�=0
d*FX16,4
nSCALE%=1024
xOSET%=16
�N%=8
�'� X%(40),Y%(40),OX%(N%,4),OY%(N%,4)
�� SX%(4),SY%(4)
��_LOOKUP
�
�:� �>200
�� 7
��BAR
��
�� 2
�� 29,640;512;
�
�_POLYGON
�
�_LINE
�	�_TRI
� �
�
� �_LOOKUP
"� A=0 � 40
,X%(A)=A*16
6Y%(A)=A*12.8
@�
J� A=0 � N%
T
� B=1 � 4
^OX%(A,B)=0
hOY%(A,B)=0
rSX%(B)=1:SY%(B)=1
|�
��
�SX%(2)=-1:SX%(3)=-1
�SY%(3)=-1:SY%(4)=-1
��
�� �_LINE
��
��23,1,0;0;0;0;
�� A%,B%,C%,NP%
�	NP%=1
��
��3,�(7)
�� A%=1 � 4
��_SAMP(A%)
OX%(NP%,A%)=X%(V%)
OY%(NP%,A%)=Y%(V%)
�
&� A%=1 � 4
0� B%=1 � 4
:� C%=1 � 4
D� SX%(C%)*OX%(NP%,B%),0
N� 0,SY%(C%)*OY%(NP%,A%)
X	�:�:�
bNP%=NP% � 1
l� A%=1 � 4
v� B%=1 � 4
�� C%=1 � 4
�� SX%(C%)*OX%(NP%,B%),0
�� 7,0,SY%(C%)*OY%(NP%,A%)
�	�:�:�
�� �>TLIM
��=0
��
�� �_POLYGON
��
��23,1,0;0;0;0;
�� A%,NP%
�	NP%=1
��
�1,�(7)
� A%=1 � 4
�_SAMP(A%)
 OX%(NP%,A%)=SX%(A%)*X%(V%)
*OY%(NP%,A%)=SY%(A%)*Y%(V%)
4�
>� OX%(NP%,1),OY%(NP%,1)
H� A%=2 � 4
R� OX%(NP%,A%),OY%(NP%,A%)
\�
f� OX%(NP%,1),OY%(NP%,1)
p
NP%=NP%+1
z� NP%>N% � NP%=1
�� OX%(NP%,1),OY%(NP%,1)
�� A%=2 � 4
�� 7,OX%(NP%,A%),OY%(NP%,A%)
��
�� 7,OX%(NP%,1),OY%(NP%,1)
�� �>TLIM
��=0
��
�
� �BAR
��23,1,0;0;0;0;
��
�!�"BAR GRAPH OF LIGHT SENSORS"
��
�"ADJUST THE LIGHT LEVELS"
&� �0,21)"Press a key for the art";
�
$� �0,8)
.�=0
8
� A=1 � 4
B
�_SAMP(A)
L� �V%,"*");�(40-V%)
V�
`
� �(�(0))
j�
t� �_SAMP(C%)
~V%=�(C%) � SCALE% - OSET%
�� V%<0 � V%=0
�� V%>39 � V%=39
��
�� �_TRI
�	� NP%
�	NP%=1
��
��
�� A%=1 � 4
�� OX%(NP%,A%),OY%(NP%,A%)
�� 7,0,OY%(NP%,A%)
�� 7,OX%(NP%,A%),0
� 7,OX%(NP%,A%),OY%(NP%,A%)

�0,�(7)
�_SAMP(A%)
OX%(NP%,A%)=X%(V%)*SX%(A%)
(OY%(NP%,A%)=Y%(V%)*SY%(A%)
2� OX%(NP%,A%),OY%(NP%,A%)
<� 0,OY%(NP%,A%)
F� OX%(NP%,A%),0
P� OX%(NP%,A%),OY%(NP%,A%)
Z�
d
NP%=NP%+1
n� NP%>N% � NP%=1
x� �>TLIM
��=0
��
�
00000000  0d 00 0a 06 eb 37 0d 00  14 1f f1 22 42 65 65 62  |.....7....."Beeb|
00000010  20 42 6f 64 79 62 75 69  6c 64 69 6e 67 20 43 6f  | Bodybuilding Co|
00000020  75 72 73 65 22 0d 00 1e  12 f1 22 4b 69 6e 65 74  |urse"....."Kinet|
00000030  69 63 20 41 72 74 22 0d  00 28 15 f1 22 54 48 45  |ic Art"..(.."THE|
00000040  20 4d 49 43 52 4f 20 55  53 45 52 22 0d 00 32 14  | MICRO USER"..2.|
00000050  f1 22 44 65 63 65 6d 62  65 72 20 31 39 39 30 22  |."December 1990"|
00000060  0d 00 3c 13 f1 22 42 79  20 4d 69 6b 65 20 43 6f  |..<.."By Mike Co|
00000070  6f 6b 22 0d 00 46 05 f1  0d 00 50 0d 54 4c 49 4d  |ok"..F....P.TLIM|
00000080  3d 33 30 30 30 0d 00 5a  07 d1 3d 30 0d 00 64 0b  |=3000..Z..=0..d.|
00000090  2a 46 58 31 36 2c 34 0d  00 6e 0f 53 43 41 4c 45  |*FX16,4..n.SCALE|
000000a0  25 3d 31 30 32 34 0d 00  78 0c 4f 53 45 54 25 3d  |%=1024..x.OSET%=|
000000b0  31 36 0d 00 82 08 4e 25  3d 38 0d 00 8c 27 de 20  |16....N%=8...'. |
000000c0  58 25 28 34 30 29 2c 59  25 28 34 30 29 2c 4f 58  |X%(40),Y%(40),OX|
000000d0  25 28 4e 25 2c 34 29 2c  4f 59 25 28 4e 25 2c 34  |%(N%,4),OY%(N%,4|
000000e0  29 0d 00 96 13 de 20 53  58 25 28 34 29 2c 53 59  |)..... SX%(4),SY|
000000f0  25 28 34 29 0d 00 a0 0c  f2 5f 4c 4f 4f 4b 55 50  |%(4)....._LOOKUP|
00000100  0d 00 aa 0d f5 3a fd 20  91 3e 32 30 30 0d 00 b4  |.....:. .>200...|
00000110  07 eb 20 37 0d 00 be 08  f2 42 41 52 0d 00 c8 05  |.. 7.....BAR....|
00000120  f5 0d 00 d2 07 eb 20 32  0d 00 dc 11 ef 20 32 39  |...... 2..... 29|
00000130  2c 36 34 30 3b 35 31 32  3b 0d 00 e6 0d f2 5f 50  |,640;512;....._P|
00000140  4f 4c 59 47 4f 4e 0d 00  f0 0a f2 5f 4c 49 4e 45  |OLYGON....._LINE|
00000150  0d 00 fa 09 f2 5f 54 52  49 0d 01 04 07 fd 20 a3  |....._TRI..... .|
00000160  0d 01 0e 05 e0 0d 01 18  0e dd 20 f2 5f 4c 4f 4f  |.......... ._LOO|
00000170  4b 55 50 0d 01 22 0e e3  20 41 3d 30 20 b8 20 34  |KUP..".. A=0 . 4|
00000180  30 0d 01 2c 0e 58 25 28  41 29 3d 41 2a 31 36 0d  |0..,.X%(A)=A*16.|
00000190  01 36 10 59 25 28 41 29  3d 41 2a 31 32 2e 38 0d  |.6.Y%(A)=A*12.8.|
000001a0  01 40 05 ed 0d 01 4a 0e  e3 20 41 3d 30 20 b8 20  |.@....J.. A=0 . |
000001b0  4e 25 0d 01 54 0d e3 20  42 3d 31 20 b8 20 34 0d  |N%..T.. B=1 . 4.|
000001c0  01 5e 0e 4f 58 25 28 41  2c 42 29 3d 30 0d 01 68  |.^.OX%(A,B)=0..h|
000001d0  0e 4f 59 25 28 41 2c 42  29 3d 30 0d 01 72 15 53  |.OY%(A,B)=0..r.S|
000001e0  58 25 28 42 29 3d 31 3a  53 59 25 28 42 29 3d 31  |X%(B)=1:SY%(B)=1|
000001f0  0d 01 7c 05 ed 0d 01 86  05 ed 0d 01 90 17 53 58  |..|...........SX|
00000200  25 28 32 29 3d 2d 31 3a  53 58 25 28 33 29 3d 2d  |%(2)=-1:SX%(3)=-|
00000210  31 0d 01 9a 17 53 59 25  28 33 29 3d 2d 31 3a 53  |1....SY%(3)=-1:S|
00000220  59 25 28 34 29 3d 2d 31  0d 01 a4 05 e1 0d 01 ae  |Y%(4)=-1........|
00000230  0c dd 20 f2 5f 4c 49 4e  45 0d 01 b8 05 db 0d 01  |.. ._LINE.......|
00000240  c2 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |...23,1,0;0;0;0;|
00000250  0d 01 cc 12 ea 20 41 25  2c 42 25 2c 43 25 2c 4e  |..... A%,B%,C%,N|
00000260  50 25 0d 01 d6 09 4e 50  25 3d 31 0d 01 e0 05 f5  |P%....NP%=1.....|
00000270  0d 01 ea 0b e6 33 2c b3  28 37 29 0d 01 f4 0e e3  |.....3,.(7).....|
00000280  20 41 25 3d 31 20 b8 20  34 0d 01 fe 0e f2 5f 53  | A%=1 . 4....._S|
00000290  41 4d 50 28 41 25 29 0d  02 08 16 4f 58 25 28 4e  |AMP(A%)....OX%(N|
000002a0  50 25 2c 41 25 29 3d 58  25 28 56 25 29 0d 02 12  |P%,A%)=X%(V%)...|
000002b0  16 4f 59 25 28 4e 50 25  2c 41 25 29 3d 59 25 28  |.OY%(NP%,A%)=Y%(|
000002c0  56 25 29 0d 02 1c 05 ed  0d 02 26 0e e3 20 41 25  |V%).......&.. A%|
000002d0  3d 31 20 b8 20 34 0d 02  30 0e e3 20 42 25 3d 31  |=1 . 4..0.. B%=1|
000002e0  20 b8 20 34 0d 02 3a 0e  e3 20 43 25 3d 31 20 b8  | . 4..:.. C%=1 .|
000002f0  20 34 0d 02 44 1b ec 20  53 58 25 28 43 25 29 2a  | 4..D.. SX%(C%)*|
00000300  4f 58 25 28 4e 50 25 2c  42 25 29 2c 30 0d 02 4e  |OX%(NP%,B%),0..N|
00000310  1b df 20 30 2c 53 59 25  28 43 25 29 2a 4f 59 25  |.. 0,SY%(C%)*OY%|
00000320  28 4e 50 25 2c 41 25 29  0d 02 58 09 ed 3a ed 3a  |(NP%,A%)..X..:.:|
00000330  ed 0d 02 62 0f 4e 50 25  3d 4e 50 25 20 82 20 31  |...b.NP%=NP% . 1|
00000340  0d 02 6c 0e e3 20 41 25  3d 31 20 b8 20 34 0d 02  |..l.. A%=1 . 4..|
00000350  76 0e e3 20 42 25 3d 31  20 b8 20 34 0d 02 80 0e  |v.. B%=1 . 4....|
00000360  e3 20 43 25 3d 31 20 b8  20 34 0d 02 8a 1b ec 20  |. C%=1 . 4..... |
00000370  53 58 25 28 43 25 29 2a  4f 58 25 28 4e 50 25 2c  |SX%(C%)*OX%(NP%,|
00000380  42 25 29 2c 30 0d 02 94  1d f0 20 37 2c 30 2c 53  |B%),0..... 7,0,S|
00000390  59 25 28 43 25 29 2a 4f  59 25 28 4e 50 25 2c 41  |Y%(C%)*OY%(NP%,A|
000003a0  25 29 0d 02 9e 09 ed 3a  ed 3a ed 0d 02 a8 0c fd  |%).....:.:......|
000003b0  20 91 3e 54 4c 49 4d 0d  02 b2 07 d1 3d 30 0d 02  | .>TLIM.....=0..|
000003c0  bc 05 e1 0d 02 c6 0f dd  20 f2 5f 50 4f 4c 59 47  |........ ._POLYG|
000003d0  4f 4e 0d 02 d0 05 db 0d  02 da 12 ef 32 33 2c 31  |ON..........23,1|
000003e0  2c 30 3b 30 3b 30 3b 30  3b 0d 02 e4 0c ea 20 41  |,0;0;0;0;..... A|
000003f0  25 2c 4e 50 25 0d 02 ee  09 4e 50 25 3d 31 0d 02  |%,NP%....NP%=1..|
00000400  f8 05 f5 0d 03 02 0b e6  31 2c b3 28 37 29 0d 03  |........1,.(7)..|
00000410  0c 0e e3 20 41 25 3d 31  20 b8 20 34 0d 03 16 0e  |... A%=1 . 4....|
00000420  f2 5f 53 41 4d 50 28 41  25 29 0d 03 20 1e 4f 58  |._SAMP(A%).. .OX|
00000430  25 28 4e 50 25 2c 41 25  29 3d 53 58 25 28 41 25  |%(NP%,A%)=SX%(A%|
00000440  29 2a 58 25 28 56 25 29  0d 03 2a 1e 4f 59 25 28  |)*X%(V%)..*.OY%(|
00000450  4e 50 25 2c 41 25 29 3d  53 59 25 28 41 25 29 2a  |NP%,A%)=SY%(A%)*|
00000460  59 25 28 56 25 29 0d 03  34 05 ed 0d 03 3e 1b ec  |Y%(V%)..4....>..|
00000470  20 4f 58 25 28 4e 50 25  2c 31 29 2c 4f 59 25 28  | OX%(NP%,1),OY%(|
00000480  4e 50 25 2c 31 29 0d 03  48 0e e3 20 41 25 3d 32  |NP%,1)..H.. A%=2|
00000490  20 b8 20 34 0d 03 52 1d  df 20 4f 58 25 28 4e 50  | . 4..R.. OX%(NP|
000004a0  25 2c 41 25 29 2c 4f 59  25 28 4e 50 25 2c 41 25  |%,A%),OY%(NP%,A%|
000004b0  29 0d 03 5c 05 ed 0d 03  66 1b df 20 4f 58 25 28  |)..\....f.. OX%(|
000004c0  4e 50 25 2c 31 29 2c 4f  59 25 28 4e 50 25 2c 31  |NP%,1),OY%(NP%,1|
000004d0  29 0d 03 70 0d 4e 50 25  3d 4e 50 25 2b 31 0d 03  |)..p.NP%=NP%+1..|
000004e0  7a 14 e7 20 4e 50 25 3e  4e 25 20 8c 20 4e 50 25  |z.. NP%>N% . NP%|
000004f0  3d 31 0d 03 84 1b ec 20  4f 58 25 28 4e 50 25 2c  |=1..... OX%(NP%,|
00000500  31 29 2c 4f 59 25 28 4e  50 25 2c 31 29 0d 03 8e  |1),OY%(NP%,1)...|
00000510  0e e3 20 41 25 3d 32 20  b8 20 34 0d 03 98 1f f0  |.. A%=2 . 4.....|
00000520  20 37 2c 4f 58 25 28 4e  50 25 2c 41 25 29 2c 4f  | 7,OX%(NP%,A%),O|
00000530  59 25 28 4e 50 25 2c 41  25 29 0d 03 a2 05 ed 0d  |Y%(NP%,A%)......|
00000540  03 ac 1d f0 20 37 2c 4f  58 25 28 4e 50 25 2c 31  |.... 7,OX%(NP%,1|
00000550  29 2c 4f 59 25 28 4e 50  25 2c 31 29 0d 03 b6 0c  |),OY%(NP%,1)....|
00000560  fd 20 91 3e 54 4c 49 4d  0d 03 c0 07 d1 3d 30 0d  |. .>TLIM.....=0.|
00000570  03 ca 05 e1 0d 03 d4 0a  dd 20 f2 42 41 52 0d 03  |......... .BAR..|
00000580  de 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |...23,1,0;0;0;0;|
00000590  0d 03 e8 05 db 0d 03 f2  21 f1 22 42 41 52 20 47  |........!."BAR G|
000005a0  52 41 50 48 20 4f 46 20  4c 49 47 48 54 20 53 45  |RAPH OF LIGHT SE|
000005b0  4e 53 4f 52 53 22 0d 03  fc 05 f1 0d 04 06 1e f1  |NSORS"..........|
000005c0  22 41 44 4a 55 53 54 20  54 48 45 20 4c 49 47 48  |"ADJUST THE LIGH|
000005d0  54 20 4c 45 56 45 4c 53  22 0d 04 10 26 f1 20 8a  |T LEVELS"...&. .|
000005e0  30 2c 32 31 29 22 50 72  65 73 73 20 61 20 6b 65  |0,21)"Press a ke|
000005f0  79 20 66 6f 72 20 74 68  65 20 61 72 74 22 3b 0d  |y for the art";.|
00000600  04 1a 05 f5 0d 04 24 0b  f1 20 8a 30 2c 38 29 0d  |......$.. .0,8).|
00000610  04 2e 07 d1 3d 30 0d 04  38 0d e3 20 41 3d 31 20  |....=0..8.. A=1 |
00000620  b8 20 34 0d 04 42 0d f2  5f 53 41 4d 50 28 41 29  |. 4..B.._SAMP(A)|
00000630  0d 04 4c 17 f1 20 c4 56  25 2c 22 2a 22 29 3b 89  |..L.. .V%,"*");.|
00000640  28 34 30 2d 56 25 29 0d  04 56 05 ed 0d 04 60 0d  |(40-V%)..V....`.|
00000650  fd 20 ac 28 a6 28 30 29  29 0d 04 6a 05 e1 0d 04  |. .(.(0))..j....|
00000660  74 10 dd 20 f2 5f 53 41  4d 50 28 43 25 29 0d 04  |t.. ._SAMP(C%)..|
00000670  7e 1d 56 25 3d 96 28 43  25 29 20 81 20 53 43 41  |~.V%=.(C%) . SCA|
00000680  4c 45 25 20 2d 20 4f 53  45 54 25 0d 04 88 11 e7  |LE% - OSET%.....|
00000690  20 56 25 3c 30 20 8c 20  56 25 3d 30 0d 04 92 13  | V%<0 . V%=0....|
000006a0  e7 20 56 25 3e 33 39 20  8c 20 56 25 3d 33 39 0d  |. V%>39 . V%=39.|
000006b0  04 9c 05 e1 0d 04 a6 0b  dd 20 f2 5f 54 52 49 0d  |......... ._TRI.|
000006c0  04 b0 09 ea 20 4e 50 25  0d 04 ba 09 4e 50 25 3d  |.... NP%....NP%=|
000006d0  31 0d 04 c4 05 db 0d 04  ce 05 f5 0d 04 d8 0e e3  |1...............|
000006e0  20 41 25 3d 31 20 b8 20  34 0d 04 e2 1d ec 20 4f  | A%=1 . 4..... O|
000006f0  58 25 28 4e 50 25 2c 41  25 29 2c 4f 59 25 28 4e  |X%(NP%,A%),OY%(N|
00000700  50 25 2c 41 25 29 0d 04  ec 15 f0 20 37 2c 30 2c  |P%,A%)..... 7,0,|
00000710  4f 59 25 28 4e 50 25 2c  41 25 29 0d 04 f6 15 f0  |OY%(NP%,A%).....|
00000720  20 37 2c 4f 58 25 28 4e  50 25 2c 41 25 29 2c 30  | 7,OX%(NP%,A%),0|
00000730  0d 05 00 1f f0 20 37 2c  4f 58 25 28 4e 50 25 2c  |..... 7,OX%(NP%,|
00000740  41 25 29 2c 4f 59 25 28  4e 50 25 2c 41 25 29 0d  |A%),OY%(NP%,A%).|
00000750  05 0a 0b e6 30 2c b3 28  37 29 0d 05 14 0e f2 5f  |....0,.(7)....._|
00000760  53 41 4d 50 28 41 25 29  0d 05 1e 1e 4f 58 25 28  |SAMP(A%)....OX%(|
00000770  4e 50 25 2c 41 25 29 3d  58 25 28 56 25 29 2a 53  |NP%,A%)=X%(V%)*S|
00000780  58 25 28 41 25 29 0d 05  28 1e 4f 59 25 28 4e 50  |X%(A%)..(.OY%(NP|
00000790  25 2c 41 25 29 3d 59 25  28 56 25 29 2a 53 59 25  |%,A%)=Y%(V%)*SY%|
000007a0  28 41 25 29 0d 05 32 1d  ec 20 4f 58 25 28 4e 50  |(A%)..2.. OX%(NP|
000007b0  25 2c 41 25 29 2c 4f 59  25 28 4e 50 25 2c 41 25  |%,A%),OY%(NP%,A%|
000007c0  29 0d 05 3c 13 df 20 30  2c 4f 59 25 28 4e 50 25  |)..<.. 0,OY%(NP%|
000007d0  2c 41 25 29 0d 05 46 13  df 20 4f 58 25 28 4e 50  |,A%)..F.. OX%(NP|
000007e0  25 2c 41 25 29 2c 30 0d  05 50 1d df 20 4f 58 25  |%,A%),0..P.. OX%|
000007f0  28 4e 50 25 2c 41 25 29  2c 4f 59 25 28 4e 50 25  |(NP%,A%),OY%(NP%|
00000800  2c 41 25 29 0d 05 5a 05  ed 0d 05 64 0d 4e 50 25  |,A%)..Z....d.NP%|
00000810  3d 4e 50 25 2b 31 0d 05  6e 14 e7 20 4e 50 25 3e  |=NP%+1..n.. NP%>|
00000820  4e 25 20 8c 20 4e 50 25  3d 31 0d 05 78 0c fd 20  |N% . NP%=1..x.. |
00000830  91 3e 54 4c 49 4d 0d 05  82 07 d1 3d 30 0d 05 8c  |.>TLIM.....=0...|
00000840  05 e1 0d ff                                       |....|
00000844
Kinetic.m0
Kinetic.m1
Kinetic.m2
Kinetic.m4
Kinetic.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .