Home » Archimedes archive » Acorn User » AU 1998-04 A.adf » Regulars » StarInfo/Boham/!Cradle/Balls

StarInfo/Boham/!Cradle/Balls

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-04 A.adf » Regulars
Filename: StarInfo/Boham/!Cradle/Balls
Read OK: ✔
File size: 056C bytes
Load address: 0000
Exec address: 0000
File contents
    1DIM ba(5),bv(5)
    2REM the next five lines set the starting angle of all the marbles
    3ba(1)=-45
    4ba(2)=0
    5ba(3)=0
    6ba(4)=0
    7ba(5)=0
    8REM 0 is vertically downwards and -90 is 90POINT( clockwise
    9
   10ON ERROR: ON ERROR OFF: MODE 25:PRINT REPORT$;" at line ";ERL:END
   11MODE 26
   12MODE 25:OFF
   13bv()=0
   14VOICES 4
   15VOICE 1,"Click"
   16VOICE 2,"Click"
   17VOICE 3,"Click"
   18VOICE 4,"Click"
   19S1=1
   20S2=2
   21f%=0
   22force%=0
   23v%=1
   24disp%=4  
   25radius%=46
   26REPEAT
   27IF (f% MOD disp%)= 0 THEN WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2
   28
   29FOR n%=1 TO 5
   30accel = -SINRADba(n%)*0.1
   31bv(n%)=(bv(n%)+accel)*0.998
   32ba(n%)=ba(n%)+bv(n%)
   33hit%=FALSE
   34
   35IF n%<5 THEN
   36dx = SINRADba(n%)*500 - SINRADba(n%+1)*500 -100
   37dy = COSRADba(n%)*500 - COSRADba(n%+1)*500
   38d = SQR(dx*dx+dy*dy)
   39IF d<radius%*2 THEN
   40ba(n%)=ba(n%)-bv(n%)
   41bv(n%)=bv(n%)-accel
   42SWAP bv(n%),bv(n%+1)
   43hit%=TRUE
   44force%=ABS(bv(n%)-bv(n%+1))*25
   45ENDIF
   46ENDIF
   47
   48IF n%>1 AND NOT(hit%) THEN
   49dx = SINRADba(n%-1)*500 - SINRADba(n%)*500 -100
   50dy = COSRADba(n%-1)*500 - COSRADba(n%)*500
   51d = SQR(dx*dx+dy*dy)
   52IF d<radius%*2 THEN
   53ba(n%)=ba(n%)-bv(n%)
   54bv(n%)=bv(n%)-accel
   55SWAP bv(n%),bv(n%-1)
   56hit%=TRUE
   57force%=ABS(bv(n%)-bv(n%-1))*25
   58ENDIF
   59ENDIF
   60
   61IF force%>15 THEN force%=15
   62IF hit% THEN SOUND v%,-force%,&4500,1:v% = v%+1
   63IF v%>4 THEN v%=1
   64
   65IF (f% MOD disp%)=0 THEN
   66MOVE n%*100+300,800
   67x%=SINRADba(n%)*500
   68y%=COSRADba(n%)*500
   69DRAW n%*100+300+x%,800-y%
   70CIRCLE n%*100+300+x%,800-y%,radius%
   71ENDIF
   72NEXT n%
   73
   74f%=f%+1
   75UNTIL FALSE

� ba(5),bv(5)
C� the next five lines set the starting angle of all the marbles

ba(1)=-45
ba(2)=0
ba(3)=0
ba(4)=0
ba(5)=0
8� 0 is vertically downwards and -90 is 90� clockwise
	

)� �: � � �: � 25:� �$;" at line ";�:�
� 26

� 25:�

bv()=0
Ƞ 4
ȡ 1,"Click"
ȡ 2,"Click"
ȡ 3,"Click"
ȡ 4,"Click"
S1=1
S2=2
f%=0
force%=0
v%=1

disp%=4  
radius%=46
�
=� (f% � disp%)= 0 � Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2

� n%=1 � 5
accel = -��ba(n%)*0.1
bv(n%)=(bv(n%)+accel)*0.998
 ba(n%)=ba(n%)+bv(n%)
!
hit%=�
"
#� n%<5 �
$+dx = ��ba(n%)*500 - ��ba(n%+1)*500 -100
%&dy = ��ba(n%)*500 - ��ba(n%+1)*500
&d = �(dx*dx+dy*dy)
'� d<radius%*2 �
(ba(n%)=ba(n%)-bv(n%)
)bv(n%)=bv(n%)-accel
*Ȕ bv(n%),bv(n%+1)
+
hit%=�
, force%=�(bv(n%)-bv(n%+1))*25
-�
.�
/
0� n%>1 � �(hit%) �
1+dx = ��ba(n%-1)*500 - ��ba(n%)*500 -100
2&dy = ��ba(n%-1)*500 - ��ba(n%)*500
3d = �(dx*dx+dy*dy)
4� d<radius%*2 �
5ba(n%)=ba(n%)-bv(n%)
6bv(n%)=bv(n%)-accel
7Ȕ bv(n%),bv(n%-1)
8
hit%=�
9 force%=�(bv(n%)-bv(n%-1))*25
:�
;�
<
=� force%>15 � force%=15
>+� hit% � � v%,-force%,&4500,1:v% = v%+1
?� v%>4 � v%=1
@
A� (f% � disp%)=0 �
B� n%*100+300,800
Cx%=��ba(n%)*500
Dy%=��ba(n%)*500
E� n%*100+300+x%,800-y%
F#ȏ n%*100+300+x%,800-y%,radius%
G�
H� n%
I
Jf%=f%+1
K� �
�
00000000  0d 00 01 11 de 20 62 61  28 35 29 2c 62 76 28 35  |..... ba(5),bv(5|
00000010  29 0d 00 02 43 f4 20 74  68 65 20 6e 65 78 74 20  |)...C. the next |
00000020  66 69 76 65 20 6c 69 6e  65 73 20 73 65 74 20 74  |five lines set t|
00000030  68 65 20 73 74 61 72 74  69 6e 67 20 61 6e 67 6c  |he starting angl|
00000040  65 20 6f 66 20 61 6c 6c  20 74 68 65 20 6d 61 72  |e of all the mar|
00000050  62 6c 65 73 0d 00 03 0d  62 61 28 31 29 3d 2d 34  |bles....ba(1)=-4|
00000060  35 0d 00 04 0b 62 61 28  32 29 3d 30 0d 00 05 0b  |5....ba(2)=0....|
00000070  62 61 28 33 29 3d 30 0d  00 06 0b 62 61 28 34 29  |ba(3)=0....ba(4)|
00000080  3d 30 0d 00 07 0b 62 61  28 35 29 3d 30 0d 00 08  |=0....ba(5)=0...|
00000090  38 f4 20 30 20 69 73 20  76 65 72 74 69 63 61 6c  |8. 0 is vertical|
000000a0  6c 79 20 64 6f 77 6e 77  61 72 64 73 20 61 6e 64  |ly downwards and|
000000b0  20 2d 39 30 20 69 73 20  39 30 b0 20 63 6c 6f 63  | -90 is 90. cloc|
000000c0  6b 77 69 73 65 0d 00 09  04 0d 00 0a 29 ee 20 85  |kwise.......). .|
000000d0  3a 20 ee 20 85 20 87 3a  20 eb 20 32 35 3a f1 20  |: . . .: . 25:. |
000000e0  f6 24 3b 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.$;" at line ";.|
000000f0  3a e0 0d 00 0b 08 eb 20  32 36 0d 00 0c 0a eb 20  |:...... 26..... |
00000100  32 35 3a 87 0d 00 0d 0a  62 76 28 29 3d 30 0d 00  |25:.....bv()=0..|
00000110  0e 08 c8 a0 20 34 0d 00  0f 10 c8 a1 20 31 2c 22  |.... 4...... 1,"|
00000120  43 6c 69 63 6b 22 0d 00  10 10 c8 a1 20 32 2c 22  |Click"...... 2,"|
00000130  43 6c 69 63 6b 22 0d 00  11 10 c8 a1 20 33 2c 22  |Click"...... 3,"|
00000140  43 6c 69 63 6b 22 0d 00  12 10 c8 a1 20 34 2c 22  |Click"...... 4,"|
00000150  43 6c 69 63 6b 22 0d 00  13 08 53 31 3d 31 0d 00  |Click"....S1=1..|
00000160  14 08 53 32 3d 32 0d 00  15 08 66 25 3d 30 0d 00  |..S2=2....f%=0..|
00000170  16 0c 66 6f 72 63 65 25  3d 30 0d 00 17 08 76 25  |..force%=0....v%|
00000180  3d 31 0d 00 18 0d 64 69  73 70 25 3d 34 20 20 0d  |=1....disp%=4  .|
00000190  00 19 0e 72 61 64 69 75  73 25 3d 34 36 0d 00 1a  |...radius%=46...|
000001a0  05 f5 0d 00 1b 3d e7 20  28 66 25 20 83 20 64 69  |.....=. (f% . di|
000001b0  73 70 25 29 3d 20 30 20  8c 20 c8 96 3a c8 99 20  |sp%)= 0 . ..:.. |
000001c0  36 2c 31 31 32 2c 53 31  3a c8 99 20 36 2c 31 31  |6,112,S1:.. 6,11|
000001d0  33 2c 53 32 3a db 3a c8  94 20 53 31 2c 53 32 0d  |3,S2:.:.. S1,S2.|
000001e0  00 1c 04 0d 00 1d 0e e3  20 6e 25 3d 31 20 b8 20  |........ n%=1 . |
000001f0  35 0d 00 1e 19 61 63 63  65 6c 20 3d 20 2d b5 b2  |5....accel = -..|
00000200  62 61 28 6e 25 29 2a 30  2e 31 0d 00 1f 1f 62 76  |ba(n%)*0.1....bv|
00000210  28 6e 25 29 3d 28 62 76  28 6e 25 29 2b 61 63 63  |(n%)=(bv(n%)+acc|
00000220  65 6c 29 2a 30 2e 39 39  38 0d 00 20 18 62 61 28  |el)*0.998.. .ba(|
00000230  6e 25 29 3d 62 61 28 6e  25 29 2b 62 76 28 6e 25  |n%)=ba(n%)+bv(n%|
00000240  29 0d 00 21 0a 68 69 74  25 3d a3 0d 00 22 04 0d  |)..!.hit%=..."..|
00000250  00 23 0c e7 20 6e 25 3c  35 20 8c 0d 00 24 2b 64  |.#.. n%<5 ...$+d|
00000260  78 20 3d 20 b5 b2 62 61  28 6e 25 29 2a 35 30 30  |x = ..ba(n%)*500|
00000270  20 2d 20 b5 b2 62 61 28  6e 25 2b 31 29 2a 35 30  | - ..ba(n%+1)*50|
00000280  30 20 2d 31 30 30 0d 00  25 26 64 79 20 3d 20 9b  |0 -100..%&dy = .|
00000290  b2 62 61 28 6e 25 29 2a  35 30 30 20 2d 20 9b b2  |.ba(n%)*500 - ..|
000002a0  62 61 28 6e 25 2b 31 29  2a 35 30 30 0d 00 26 16  |ba(n%+1)*500..&.|
000002b0  64 20 3d 20 b6 28 64 78  2a 64 78 2b 64 79 2a 64  |d = .(dx*dx+dy*d|
000002c0  79 29 0d 00 27 13 e7 20  64 3c 72 61 64 69 75 73  |y)..'.. d<radius|
000002d0  25 2a 32 20 8c 0d 00 28  18 62 61 28 6e 25 29 3d  |%*2 ...(.ba(n%)=|
000002e0  62 61 28 6e 25 29 2d 62  76 28 6e 25 29 0d 00 29  |ba(n%)-bv(n%)..)|
000002f0  17 62 76 28 6e 25 29 3d  62 76 28 6e 25 29 2d 61  |.bv(n%)=bv(n%)-a|
00000300  63 63 65 6c 0d 00 2a 16  c8 94 20 62 76 28 6e 25  |ccel..*... bv(n%|
00000310  29 2c 62 76 28 6e 25 2b  31 29 0d 00 2b 0a 68 69  |),bv(n%+1)..+.hi|
00000320  74 25 3d b9 0d 00 2c 20  66 6f 72 63 65 25 3d 94  |t%=..., force%=.|
00000330  28 62 76 28 6e 25 29 2d  62 76 28 6e 25 2b 31 29  |(bv(n%)-bv(n%+1)|
00000340  29 2a 32 35 0d 00 2d 05  cd 0d 00 2e 05 cd 0d 00  |)*25..-.........|
00000350  2f 04 0d 00 30 16 e7 20  6e 25 3e 31 20 80 20 ac  |/...0.. n%>1 . .|
00000360  28 68 69 74 25 29 20 8c  0d 00 31 2b 64 78 20 3d  |(hit%) ...1+dx =|
00000370  20 b5 b2 62 61 28 6e 25  2d 31 29 2a 35 30 30 20  | ..ba(n%-1)*500 |
00000380  2d 20 b5 b2 62 61 28 6e  25 29 2a 35 30 30 20 2d  |- ..ba(n%)*500 -|
00000390  31 30 30 0d 00 32 26 64  79 20 3d 20 9b b2 62 61  |100..2&dy = ..ba|
000003a0  28 6e 25 2d 31 29 2a 35  30 30 20 2d 20 9b b2 62  |(n%-1)*500 - ..b|
000003b0  61 28 6e 25 29 2a 35 30  30 0d 00 33 16 64 20 3d  |a(n%)*500..3.d =|
000003c0  20 b6 28 64 78 2a 64 78  2b 64 79 2a 64 79 29 0d  | .(dx*dx+dy*dy).|
000003d0  00 34 13 e7 20 64 3c 72  61 64 69 75 73 25 2a 32  |.4.. d<radius%*2|
000003e0  20 8c 0d 00 35 18 62 61  28 6e 25 29 3d 62 61 28  | ...5.ba(n%)=ba(|
000003f0  6e 25 29 2d 62 76 28 6e  25 29 0d 00 36 17 62 76  |n%)-bv(n%)..6.bv|
00000400  28 6e 25 29 3d 62 76 28  6e 25 29 2d 61 63 63 65  |(n%)=bv(n%)-acce|
00000410  6c 0d 00 37 16 c8 94 20  62 76 28 6e 25 29 2c 62  |l..7... bv(n%),b|
00000420  76 28 6e 25 2d 31 29 0d  00 38 0a 68 69 74 25 3d  |v(n%-1)..8.hit%=|
00000430  b9 0d 00 39 20 66 6f 72  63 65 25 3d 94 28 62 76  |...9 force%=.(bv|
00000440  28 6e 25 29 2d 62 76 28  6e 25 2d 31 29 29 2a 32  |(n%)-bv(n%-1))*2|
00000450  35 0d 00 3a 05 cd 0d 00  3b 05 cd 0d 00 3c 04 0d  |5..:....;....<..|
00000460  00 3d 1b e7 20 66 6f 72  63 65 25 3e 31 35 20 8c  |.=.. force%>15 .|
00000470  20 66 6f 72 63 65 25 3d  31 35 0d 00 3e 2b e7 20  | force%=15..>+. |
00000480  68 69 74 25 20 8c 20 d4  20 76 25 2c 2d 66 6f 72  |hit% . . v%,-for|
00000490  63 65 25 2c 26 34 35 30  30 2c 31 3a 76 25 20 3d  |ce%,&4500,1:v% =|
000004a0  20 76 25 2b 31 0d 00 3f  11 e7 20 76 25 3e 34 20  | v%+1..?.. v%>4 |
000004b0  8c 20 76 25 3d 31 0d 00  40 04 0d 00 41 16 e7 20  |. v%=1..@...A.. |
000004c0  28 66 25 20 83 20 64 69  73 70 25 29 3d 30 20 8c  |(f% . disp%)=0 .|
000004d0  0d 00 42 14 ec 20 6e 25  2a 31 30 30 2b 33 30 30  |..B.. n%*100+300|
000004e0  2c 38 30 30 0d 00 43 13  78 25 3d b5 b2 62 61 28  |,800..C.x%=..ba(|
000004f0  6e 25 29 2a 35 30 30 0d  00 44 13 79 25 3d 9b b2  |n%)*500..D.y%=..|
00000500  62 61 28 6e 25 29 2a 35  30 30 0d 00 45 1a df 20  |ba(n%)*500..E.. |
00000510  6e 25 2a 31 30 30 2b 33  30 30 2b 78 25 2c 38 30  |n%*100+300+x%,80|
00000520  30 2d 79 25 0d 00 46 23  c8 8f 20 6e 25 2a 31 30  |0-y%..F#.. n%*10|
00000530  30 2b 33 30 30 2b 78 25  2c 38 30 30 2d 79 25 2c  |0+300+x%,800-y%,|
00000540  72 61 64 69 75 73 25 0d  00 47 05 cd 0d 00 48 08  |radius%..G....H.|
00000550  ed 20 6e 25 0d 00 49 04  0d 00 4a 0b 66 25 3d 66  |. n%..I...J.f%=f|
00000560  25 2b 31 0d 00 4b 07 fd  20 a3 0d ff              |%+1..K.. ...|
0000056c

© Dominic Ford 2021–2025.

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