EightBit/Water

Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » EightBit/Water

EightBit/Water

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 1993-08.adf » !StarInfo_StarInfo
Filename:	EightBit/Water
Read OK:	✔
File size:	0B89 bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » EightBit/Water
AEW website » au » au_5_25_discs_Acorn_User_93_08_tau93-08.ssd » Water
AEW website » au » au_5_25_discs_Acorn_User_93_09_tau93-09.ssd » Water

File contents

   10REM     >Water (Info6)
   20REM By  Christopher Bassett
   30REM For 8-bit machines
   40REM (c) BAU August 1993
   50:
   60MODE 2
   70VDU 19,15,5;0;
   80:
   90REM The rock
  100GCOL 0,15
  110MOVE 1279,1000
  120DRAW 1100,1000
  130PLOT 85,1279,1023
  140MOVE 1279,950
  150DRAW 1100,950
  160PLOT 85,1279,0
  170MOVE0,1023
  180MOVE0,600
  190PLOT 85,200,1023
  200PLOT 85,900,600
  210MOVE 1279,0
  220MOVE 1279,200
  230PLOT 85,640,0
  240MOVE 700,0
  250MOVE 300,0
  260PLOT 85,450,150
  270MOVE 0,0
  280MOVE 0,400
  290PLOT 85,200,400
  300PLOT 85,0,600
  310PLOT 85,900,600
  320:
  330REM Water in the hole
  340c=1
  350FOR y=954 TO 1000 STEP 4
  360 MOVE 1279,y
  370 FOR x=1279 TO 1076 STEP -(RND(21)+3)
  380  GCOL 0,c
  390  DRAW x,y
  400  c=c+1
  410  IF c=15 THEN c=1
  420 NEXT
  430NEXT
  440:
  450REM Waterfall - part 1
  460nx=2000
  470ny=0
  480g=0.5
  490FOR N=1 TO 25
  500 x=1100
  510 y=953+RND(43)
  520 MOVE x,y
  530 xs=-(RND(11)+10)
  540 ys=0
  550 REPEAT
  560  GCOL 0,c
  570  DRAW x,y
  580  c=c+1
  590  IF c=15 THEN c=1
  600  x=x+xs
  610  y=y+ys
  620  ys=ys-g
  630 UNTIL POINT(x,y)=15 OR y<600
  640 IF x<nx THEN nx=x:ny=y
  650NEXT
  660:
  670REM Waterfall - Part 2
  680REPEAT
  690 ny=ny+4
  700UNTIL POINT(nx,ny)<>15
  710FOR n=1 TO 20
  720 x=nx
  730 y=ny
  740 nx=nx+8
  750 ny=ny-4
  760 MOVE x,y
  770 xs=3+RND(9)
  780 ys=-2
  790 REPEAT
  800  GCOL 0,c
  810  DRAW x,y
  820  c=c+1
  830  IF c=15 THEN c=1
  840  x=x+xs
  850  y=y+ys
  860  ys=ys-g
  870  IF POINT(x,y)=15 AND x<910 THEN REPEAT:y=y+4:UNTIL POINT(x,y)<>15:ys=RND(2)-1
  880  IF POINT(x,y)=15 AND (x>910 AND y>200) THEN REPEAT:x=x-8:UNTIL POINT(x,y)<>15:xs=-2+RND(3)
  890 UNTIL POINT(x,y)=15 AND y<200
  900NEXT
  910:
  920REM Bottom of waterfall
  930nx=0
  940FOR n=1 TO 20
  950 x=1220
  960 y=190+nx
  970 nx=nx+4
  980 MOVE x,y
  990 xs=-(7+RND(13))
 1000 ys=-2
 1010 REPEAT
 1020  GCOL 0,c
 1030  DRAW x,y
 1040  c=c+1
 1050  IF c=15 THEN c=1
 1060  x=x+xs
 1070  y=y+ys
 1080  ys=ys-g
 1090  IF POINT(x,y)=15 AND x>680 THEN REPEAT:y=y+4:UNTIL POINT(x,y)<>15:ys=RND(2)
 1100  IF POINT(x,y)=15 AND (x<=680 AND x>450) THEN REPEAT:y=y+4:UNTIL POINT(x,y)<>15:ys=7+RND(5)
 1110  IF POINT(x,y)=15 AND x<450 THEN REPEAT:x=x+8:UNTIL POINT(x,y)<>15:xs=-4+RND(2)
 1120 UNTIL POINT(x,y)=-1
 1130NEXT
 1140:
 1150REM Water-wheel
 1160GCOL 0,15
 1170MOVE 850,500
 1180FOR p=0 TO 6.3 STEP 0.08
 1190 x=850+200*SIN(p)
 1200 y=300+200*COS(p)
 1210 DRAW x,y
 1220NEXT
 1230c=1
 1240FOR p=0 TO 6.3 STEP 0.035
 1250 x=850+190*SIN(p)
 1260 y=300+190*COS(p)
 1270 MOVE 850,300
 1280 GCOL 0,c
 1290 DRAW x,y
 1300 c=c+1
 1310 IF c=15 THEN c=1
 1320 IF INKEY-99 THEN d=359
 1330NEXT
 1340GCOL 0,15
 1350MOVE 852,350
 1360FOR p=0 TO 6.3 STEP 0.08
 1370 MOVE 852,300
 1380 x=852+50*SIN(p)
 1390 y=300+50*COS(p)
 1400 PLOT 85,x,y
 1410NEXT
 1420:
 1430REM The lift and balls
 1440GCOL 0,0
 1450MOVE 0,500
 1460MOVE 100,500
 1470PLOT 85,0,600
 1480PLOT 85,100,600
 1490MOVE 500,1000
 1500PLOT 85,100,500
 1510PLOT 85,600,1000
 1520c=1
 1530x=0
 1540y=500
 1550REPEAT
 1560 GCOL 0,c
 1570 PLOT 69,x,y
 1580 PLOT 69,x,y+4
 1590 x=x+8
 1600 c=c+1
 1610 IF c=15 THEN c=1
 1620UNTIL x=72
 1630x=100
 1640c=c-1
 1650REPEAT
 1660 GCOL 0,c
 1670 MOVE x,y
 1680 DRAW x-25,y
 1690 PLOT 69,x-25,y+4
 1700 PLOT 69,x-25,y+8
 1710 y=y+8
 1720 x=x+8
 1730 c=c+1
 1740 IF c=15 THEN c=1
 1750UNTIL y>865
 1760oc=c
 1770ox=x+8
 1780oy=y-8
 1790xs=8
 1800ys=8
 1810g=0.5
 1820x=x-25
 1830REPEAT
 1840 x=x+xs
 1850 y=y+ys
 1860 ys=ys-g
 1870 IF POINT(x,y)<>15 THEN GCOL 0,c:PLOT 69,x,y:PLOT 69,x,y+4
 1880 c=c+1
 1890 IF c=15 THEN c=1
 1900UNTIL POINT(x,y)=15
 1910FOR x=x TO 0 STEP -8
 1920 y=y-1.5
 1930 GCOL 0,c
 1940 PLOT 69,x,y
 1950 PLOT 69,x,y+4
 1960 c=c+1
 1970 IF c=15 THEN c=1
 1980NEXT
 1990c=oc
 2000FOR p=-1.05 TO 2.09 STEP 0.52
 2010 MOVE ox,oy
 2020 x=ox+25*SIN(p)
 2030 y=oy+25*COS(p)
 2040 GCOL 0,c
 2050 DRAW x,y
 2060 c=c+1
 2070 IF c=15 THEN c=1
 2080NEXT
 2090*SAVE"WatrScr" 3000 8000
 2100END


�     >Water (Info6)
� By  Christopher Bassett
� For 8-bit machines
(� (c) BAU August 1993
2:
<� 2
F� 19,15,5;0;
P:
Z� The rock
d
� 0,15
n� 1279,1000
x� 1100,1000
�� 85,1279,1023
�� 1279,950
�� 1100,950
�� 85,1279,0
��0,1023
�
�0,600
�� 85,200,1023
�� 85,900,600
�� 1279,0
�� 1279,200
�� 85,640,0
�� 700,0
�� 300,0
� 85,450,150
	� 0,0
� 0,400
"� 85,200,400
,� 85,0,600
6� 85,900,600
@:
J� Water in the hole
Tc=1
^� y=954 � 1000 � 4
h
 � 1279,y
r! � x=1279 � 1076 � -(�(21)+3)
|  � 0,c
�  � x,y
�  c=c+1
�  � c=15 � c=1
� �
��
�:
�� Waterfall - part 1
�nx=2000
�ny=0
�	g=0.5
�� N=1 � 25
� x=1100
� y=953+�(43)

 � x,y
 xs=-(�(11)+10)
	 ys=0
& �
0  � 0,c
:  � x,y
D  c=c+1
N  � c=15 � c=1
X  x=x+xs
b  y=y+ys
l
  ys=ys-g
v � �x,y)=15 � y<600
� � x<nx � nx=x:ny=y
��
�:
�� Waterfall - Part 2
��
� ny=ny+4
�� �nx,ny)<>15
�� n=1 � 20
�	 x=nx
�	 y=ny
� nx=nx+8
� ny=ny-4
�
 � x,y
 xs=3+�(9)

 ys=-2
 �
   � 0,c
*  � x,y
4  c=c+1
>  � c=15 � c=1
H  x=x+xs
R  y=y+ys
\
  ys=ys-g
f8  � �x,y)=15 � x<910 � �:y=y+4:� �x,y)<>15:ys=�(2)-1
pC  � �x,y)=15 � (x>910 � y>200) � �:x=x-8:� �x,y)<>15:xs=-2+�(3)
z � �x,y)=15 � y<200
��
�:
�� Bottom of waterfall
�nx=0
�� n=1 � 20
� x=1220
�
 y=190+nx
� nx=nx+4
�
 � x,y
� xs=-(7+�(13))
�
 ys=-2
� �
�  � 0,c
  � x,y
  c=c+1
  � c=15 � c=1
$  x=x+xs
.  y=y+ys
8
  ys=ys-g
B6  � �x,y)=15 � x>680 � �:y=y+4:� �x,y)<>15:ys=�(2)
LC  � �x,y)=15 � (x<=680 � x>450) � �:y=y+4:� �x,y)<>15:ys=7+�(5)
V9  � �x,y)=15 � x<450 � �:x=x+8:� �x,y)<>15:xs=-4+�(2)
` � �x,y)=-1
j�
t:
~� Water-wheel
�
� 0,15
�
� 850,500
�� p=0 � 6.3 � 0.08
� x=850+200*�(p)
� y=300+200*�(p)
�
 � x,y
��
�c=1
�� p=0 � 6.3 � 0.035
� x=850+190*�(p)
� y=300+190*�(p)
� � 850,300

 � 0,c


 � x,y

 c=c+1
 � c=15 � c=1
( � �-99 � d=359
2�
<
� 0,15
F
� 852,350
P� p=0 � 6.3 � 0.08
Z � 852,300
d x=852+50*�(p)
n y=300+50*�(p)
x
 � 85,x,y
��
�:
�� The lift and balls
�	� 0,0
�� 0,500
�
� 100,500
�� 85,0,600
�� 85,100,600
�� 500,1000
�� 85,100,500
�� 85,600,1000
�c=1
�x=0
	y=500
�

 � 0,c
"
 � 69,x,y
, � 69,x,y+4
6
 x=x+8
@
 c=c+1
J � c=15 � c=1
T
� x=72
^	x=100
h	c=c-1
r�
|
 � 0,c
�
 � x,y
�
 � x-25,y
� � 69,x-25,y+4
� � 69,x-25,y+8
�
 y=y+8
�
 x=x+8
�
 c=c+1
� � c=15 � c=1
�� y>865
�oc=c
�
ox=x+8
�
oy=y-8
�xs=8
ys=8
	g=0.5

x=x-25
&�
0 x=x+xs
: y=y+ys
D ys=ys-g
N, � �x,y)<>15 � � 0,c:� 69,x,y:� 69,x,y+4
X
 c=c+1
b � c=15 � c=1
l� �x,y)=15
v� x=x � 0 � -8
� y=y-1.5
�
 � 0,c
�
 � 69,x,y
� � 69,x,y+4
�
 c=c+1
� � c=15 � c=1
��
�c=oc
�� p=-1.05 � 2.09 � 0.52
� � ox,oy
� x=ox+25*�(p)
� y=oy+25*�(p)
�
 � 0,c

 � x,y

 c=c+1
 � c=15 � c=1
 �
**SAVE"WatrScr" 3000 8000
4�
�

00000000  0d 00 0a 18 f4 20 20 20  20 20 3e 57 61 74 65 72  |.....     >Water|
00000010  20 28 49 6e 66 6f 36 29  0d 00 14 1d f4 20 42 79  | (Info6)..... By|
00000020  20 20 43 68 72 69 73 74  6f 70 68 65 72 20 42 61  |  Christopher Ba|
00000030  73 73 65 74 74 0d 00 1e  18 f4 20 46 6f 72 20 38  |ssett..... For 8|
00000040  2d 62 69 74 20 6d 61 63  68 69 6e 65 73 0d 00 28  |-bit machines..(|
00000050  19 f4 20 28 63 29 20 42  41 55 20 41 75 67 75 73  |.. (c) BAU Augus|
00000060  74 20 31 39 39 33 0d 00  32 05 3a 0d 00 3c 07 eb  |t 1993..2.:..<..|
00000070  20 32 0d 00 46 10 ef 20  31 39 2c 31 35 2c 35 3b  | 2..F.. 19,15,5;|
00000080  30 3b 0d 00 50 05 3a 0d  00 5a 0e f4 20 54 68 65  |0;..P.:..Z.. The|
00000090  20 72 6f 63 6b 0d 00 64  0a e6 20 30 2c 31 35 0d  | rock..d.. 0,15.|
000000a0  00 6e 0f ec 20 31 32 37  39 2c 31 30 30 30 0d 00  |.n.. 1279,1000..|
000000b0  78 0f df 20 31 31 30 30  2c 31 30 30 30 0d 00 82  |x.. 1100,1000...|
000000c0  12 f0 20 38 35 2c 31 32  37 39 2c 31 30 32 33 0d  |.. 85,1279,1023.|
000000d0  00 8c 0e ec 20 31 32 37  39 2c 39 35 30 0d 00 96  |.... 1279,950...|
000000e0  0e df 20 31 31 30 30 2c  39 35 30 0d 00 a0 0f f0  |.. 1100,950.....|
000000f0  20 38 35 2c 31 32 37 39  2c 30 0d 00 aa 0b ec 30  | 85,1279,0.....0|
00000100  2c 31 30 32 33 0d 00 b4  0a ec 30 2c 36 30 30 0d  |,1023.....0,600.|
00000110  00 be 11 f0 20 38 35 2c  32 30 30 2c 31 30 32 33  |.... 85,200,1023|
00000120  0d 00 c8 10 f0 20 38 35  2c 39 30 30 2c 36 30 30  |..... 85,900,600|
00000130  0d 00 d2 0c ec 20 31 32  37 39 2c 30 0d 00 dc 0e  |..... 1279,0....|
00000140  ec 20 31 32 37 39 2c 32  30 30 0d 00 e6 0e f0 20  |. 1279,200..... |
00000150  38 35 2c 36 34 30 2c 30  0d 00 f0 0b ec 20 37 30  |85,640,0..... 70|
00000160  30 2c 30 0d 00 fa 0b ec  20 33 30 30 2c 30 0d 01  |0,0..... 300,0..|
00000170  04 10 f0 20 38 35 2c 34  35 30 2c 31 35 30 0d 01  |... 85,450,150..|
00000180  0e 09 ec 20 30 2c 30 0d  01 18 0b ec 20 30 2c 34  |... 0,0..... 0,4|
00000190  30 30 0d 01 22 10 f0 20  38 35 2c 32 30 30 2c 34  |00..".. 85,200,4|
000001a0  30 30 0d 01 2c 0e f0 20  38 35 2c 30 2c 36 30 30  |00..,.. 85,0,600|
000001b0  0d 01 36 10 f0 20 38 35  2c 39 30 30 2c 36 30 30  |..6.. 85,900,600|
000001c0  0d 01 40 05 3a 0d 01 4a  17 f4 20 57 61 74 65 72  |..@.:..J.. Water|
000001d0  20 69 6e 20 74 68 65 20  68 6f 6c 65 0d 01 54 07  | in the hole..T.|
000001e0  63 3d 31 0d 01 5e 16 e3  20 79 3d 39 35 34 20 b8  |c=1..^.. y=954 .|
000001f0  20 31 30 30 30 20 88 20  34 0d 01 68 0d 20 ec 20  | 1000 . 4..h. . |
00000200  31 32 37 39 2c 79 0d 01  72 21 20 e3 20 78 3d 31  |1279,y..r! . x=1|
00000210  32 37 39 20 b8 20 31 30  37 36 20 88 20 2d 28 b3  |279 . 1076 . -(.|
00000220  28 32 31 29 2b 33 29 0d  01 7c 0b 20 20 e6 20 30  |(21)+3)..|.  . 0|
00000230  2c 63 0d 01 86 0b 20 20  df 20 78 2c 79 0d 01 90  |,c....  . x,y...|
00000240  0b 20 20 63 3d 63 2b 31  0d 01 9a 12 20 20 e7 20  |.  c=c+1....  . |
00000250  63 3d 31 35 20 8c 20 63  3d 31 0d 01 a4 06 20 ed  |c=15 . c=1.... .|
00000260  0d 01 ae 05 ed 0d 01 b8  05 3a 0d 01 c2 18 f4 20  |.........:..... |
00000270  57 61 74 65 72 66 61 6c  6c 20 2d 20 70 61 72 74  |Waterfall - part|
00000280  20 31 0d 01 cc 0b 6e 78  3d 32 30 30 30 0d 01 d6  | 1....nx=2000...|
00000290  08 6e 79 3d 30 0d 01 e0  09 67 3d 30 2e 35 0d 01  |.ny=0....g=0.5..|
000002a0  ea 0e e3 20 4e 3d 31 20  b8 20 32 35 0d 01 f4 0b  |... N=1 . 25....|
000002b0  20 78 3d 31 31 30 30 0d  01 fe 10 20 79 3d 39 35  | x=1100.... y=95|
000002c0  33 2b b3 28 34 33 29 0d  02 08 0a 20 ec 20 78 2c  |3+.(43).... . x,|
000002d0  79 0d 02 12 13 20 78 73  3d 2d 28 b3 28 31 31 29  |y.... xs=-(.(11)|
000002e0  2b 31 30 29 0d 02 1c 09  20 79 73 3d 30 0d 02 26  |+10).... ys=0..&|
000002f0  06 20 f5 0d 02 30 0b 20  20 e6 20 30 2c 63 0d 02  |. ...0.  . 0,c..|
00000300  3a 0b 20 20 df 20 78 2c  79 0d 02 44 0b 20 20 63  |:.  . x,y..D.  c|
00000310  3d 63 2b 31 0d 02 4e 12  20 20 e7 20 63 3d 31 35  |=c+1..N.  . c=15|
00000320  20 8c 20 63 3d 31 0d 02  58 0c 20 20 78 3d 78 2b  | . c=1..X.  x=x+|
00000330  78 73 0d 02 62 0c 20 20  79 3d 79 2b 79 73 0d 02  |xs..b.  y=y+ys..|
00000340  6c 0d 20 20 79 73 3d 79  73 2d 67 0d 02 76 17 20  |l.  ys=ys-g..v. |
00000350  fd 20 b0 78 2c 79 29 3d  31 35 20 84 20 79 3c 36  |. .x,y)=15 . y<6|
00000360  30 30 0d 02 80 17 20 e7  20 78 3c 6e 78 20 8c 20  |00.... . x<nx . |
00000370  6e 78 3d 78 3a 6e 79 3d  79 0d 02 8a 05 ed 0d 02  |nx=x:ny=y.......|
00000380  94 05 3a 0d 02 9e 18 f4  20 57 61 74 65 72 66 61  |..:..... Waterfa|
00000390  6c 6c 20 2d 20 50 61 72  74 20 32 0d 02 a8 05 f5  |ll - Part 2.....|
000003a0  0d 02 b2 0c 20 6e 79 3d  6e 79 2b 34 0d 02 bc 11  |.... ny=ny+4....|
000003b0  fd 20 b0 6e 78 2c 6e 79  29 3c 3e 31 35 0d 02 c6  |. .nx,ny)<>15...|
000003c0  0e e3 20 6e 3d 31 20 b8  20 32 30 0d 02 d0 09 20  |.. n=1 . 20.... |
000003d0  78 3d 6e 78 0d 02 da 09  20 79 3d 6e 79 0d 02 e4  |x=nx.... y=ny...|
000003e0  0c 20 6e 78 3d 6e 78 2b  38 0d 02 ee 0c 20 6e 79  |. nx=nx+8.... ny|
000003f0  3d 6e 79 2d 34 0d 02 f8  0a 20 ec 20 78 2c 79 0d  |=ny-4.... . x,y.|
00000400  03 02 0e 20 78 73 3d 33  2b b3 28 39 29 0d 03 0c  |... xs=3+.(9)...|
00000410  0a 20 79 73 3d 2d 32 0d  03 16 06 20 f5 0d 03 20  |. ys=-2.... ... |
00000420  0b 20 20 e6 20 30 2c 63  0d 03 2a 0b 20 20 df 20  |.  . 0,c..*.  . |
00000430  78 2c 79 0d 03 34 0b 20  20 63 3d 63 2b 31 0d 03  |x,y..4.  c=c+1..|
00000440  3e 12 20 20 e7 20 63 3d  31 35 20 8c 20 63 3d 31  |>.  . c=15 . c=1|
00000450  0d 03 48 0c 20 20 78 3d  78 2b 78 73 0d 03 52 0c  |..H.  x=x+xs..R.|
00000460  20 20 79 3d 79 2b 79 73  0d 03 5c 0d 20 20 79 73  |  y=y+ys..\.  ys|
00000470  3d 79 73 2d 67 0d 03 66  38 20 20 e7 20 b0 78 2c  |=ys-g..f8  . .x,|
00000480  79 29 3d 31 35 20 80 20  78 3c 39 31 30 20 8c 20  |y)=15 . x<910 . |
00000490  f5 3a 79 3d 79 2b 34 3a  fd 20 b0 78 2c 79 29 3c  |.:y=y+4:. .x,y)<|
000004a0  3e 31 35 3a 79 73 3d b3  28 32 29 2d 31 0d 03 70  |>15:ys=.(2)-1..p|
000004b0  43 20 20 e7 20 b0 78 2c  79 29 3d 31 35 20 80 20  |C  . .x,y)=15 . |
000004c0  28 78 3e 39 31 30 20 80  20 79 3e 32 30 30 29 20  |(x>910 . y>200) |
000004d0  8c 20 f5 3a 78 3d 78 2d  38 3a fd 20 b0 78 2c 79  |. .:x=x-8:. .x,y|
000004e0  29 3c 3e 31 35 3a 78 73  3d 2d 32 2b b3 28 33 29  |)<>15:xs=-2+.(3)|
000004f0  0d 03 7a 17 20 fd 20 b0  78 2c 79 29 3d 31 35 20  |..z. . .x,y)=15 |
00000500  80 20 79 3c 32 30 30 0d  03 84 05 ed 0d 03 8e 05  |. y<200.........|
00000510  3a 0d 03 98 19 f4 20 42  6f 74 74 6f 6d 20 6f 66  |:..... Bottom of|
00000520  20 77 61 74 65 72 66 61  6c 6c 0d 03 a2 08 6e 78  | waterfall....nx|
00000530  3d 30 0d 03 ac 0e e3 20  6e 3d 31 20 b8 20 32 30  |=0..... n=1 . 20|
00000540  0d 03 b6 0b 20 78 3d 31  32 32 30 0d 03 c0 0d 20  |.... x=1220.... |
00000550  79 3d 31 39 30 2b 6e 78  0d 03 ca 0c 20 6e 78 3d  |y=190+nx.... nx=|
00000560  6e 78 2b 34 0d 03 d4 0a  20 ec 20 78 2c 79 0d 03  |nx+4.... . x,y..|
00000570  de 12 20 78 73 3d 2d 28  37 2b b3 28 31 33 29 29  |.. xs=-(7+.(13))|
00000580  0d 03 e8 0a 20 79 73 3d  2d 32 0d 03 f2 06 20 f5  |.... ys=-2.... .|
00000590  0d 03 fc 0b 20 20 e6 20  30 2c 63 0d 04 06 0b 20  |....  . 0,c.... |
000005a0  20 df 20 78 2c 79 0d 04  10 0b 20 20 63 3d 63 2b  | . x,y....  c=c+|
000005b0  31 0d 04 1a 12 20 20 e7  20 63 3d 31 35 20 8c 20  |1....  . c=15 . |
000005c0  63 3d 31 0d 04 24 0c 20  20 78 3d 78 2b 78 73 0d  |c=1..$.  x=x+xs.|
000005d0  04 2e 0c 20 20 79 3d 79  2b 79 73 0d 04 38 0d 20  |...  y=y+ys..8. |
000005e0  20 79 73 3d 79 73 2d 67  0d 04 42 36 20 20 e7 20  | ys=ys-g..B6  . |
000005f0  b0 78 2c 79 29 3d 31 35  20 80 20 78 3e 36 38 30  |.x,y)=15 . x>680|
00000600  20 8c 20 f5 3a 79 3d 79  2b 34 3a fd 20 b0 78 2c  | . .:y=y+4:. .x,|
00000610  79 29 3c 3e 31 35 3a 79  73 3d b3 28 32 29 0d 04  |y)<>15:ys=.(2)..|
00000620  4c 43 20 20 e7 20 b0 78  2c 79 29 3d 31 35 20 80  |LC  . .x,y)=15 .|
00000630  20 28 78 3c 3d 36 38 30  20 80 20 78 3e 34 35 30  | (x<=680 . x>450|
00000640  29 20 8c 20 f5 3a 79 3d  79 2b 34 3a fd 20 b0 78  |) . .:y=y+4:. .x|
00000650  2c 79 29 3c 3e 31 35 3a  79 73 3d 37 2b b3 28 35  |,y)<>15:ys=7+.(5|
00000660  29 0d 04 56 39 20 20 e7  20 b0 78 2c 79 29 3d 31  |)..V9  . .x,y)=1|
00000670  35 20 80 20 78 3c 34 35  30 20 8c 20 f5 3a 78 3d  |5 . x<450 . .:x=|
00000680  78 2b 38 3a fd 20 b0 78  2c 79 29 3c 3e 31 35 3a  |x+8:. .x,y)<>15:|
00000690  78 73 3d 2d 34 2b b3 28  32 29 0d 04 60 0f 20 fd  |xs=-4+.(2)..`. .|
000006a0  20 b0 78 2c 79 29 3d 2d  31 0d 04 6a 05 ed 0d 04  | .x,y)=-1..j....|
000006b0  74 05 3a 0d 04 7e 11 f4  20 57 61 74 65 72 2d 77  |t.:..~.. Water-w|
000006c0  68 65 65 6c 0d 04 88 0a  e6 20 30 2c 31 35 0d 04  |heel..... 0,15..|
000006d0  92 0d ec 20 38 35 30 2c  35 30 30 0d 04 9c 16 e3  |... 850,500.....|
000006e0  20 70 3d 30 20 b8 20 36  2e 33 20 88 20 30 2e 30  | p=0 . 6.3 . 0.0|
000006f0  38 0d 04 a6 13 20 78 3d  38 35 30 2b 32 30 30 2a  |8.... x=850+200*|
00000700  b5 28 70 29 0d 04 b0 13  20 79 3d 33 30 30 2b 32  |.(p).... y=300+2|
00000710  30 30 2a 9b 28 70 29 0d  04 ba 0a 20 df 20 78 2c  |00*.(p).... . x,|
00000720  79 0d 04 c4 05 ed 0d 04  ce 07 63 3d 31 0d 04 d8  |y.........c=1...|
00000730  17 e3 20 70 3d 30 20 b8  20 36 2e 33 20 88 20 30  |.. p=0 . 6.3 . 0|
00000740  2e 30 33 35 0d 04 e2 13  20 78 3d 38 35 30 2b 31  |.035.... x=850+1|
00000750  39 30 2a b5 28 70 29 0d  04 ec 13 20 79 3d 33 30  |90*.(p).... y=30|
00000760  30 2b 31 39 30 2a 9b 28  70 29 0d 04 f6 0e 20 ec  |0+190*.(p).... .|
00000770  20 38 35 30 2c 33 30 30  0d 05 00 0a 20 e6 20 30  | 850,300.... . 0|
00000780  2c 63 0d 05 0a 0a 20 df  20 78 2c 79 0d 05 14 0a  |,c.... . x,y....|
00000790  20 63 3d 63 2b 31 0d 05  1e 11 20 e7 20 63 3d 31  | c=c+1.... . c=1|
000007a0  35 20 8c 20 63 3d 31 0d  05 28 13 20 e7 20 a6 2d  |5 . c=1..(. . .-|
000007b0  39 39 20 8c 20 64 3d 33  35 39 0d 05 32 05 ed 0d  |99 . d=359..2...|
000007c0  05 3c 0a e6 20 30 2c 31  35 0d 05 46 0d ec 20 38  |.<.. 0,15..F.. 8|
000007d0  35 32 2c 33 35 30 0d 05  50 16 e3 20 70 3d 30 20  |52,350..P.. p=0 |
000007e0  b8 20 36 2e 33 20 88 20  30 2e 30 38 0d 05 5a 0e  |. 6.3 . 0.08..Z.|
000007f0  20 ec 20 38 35 32 2c 33  30 30 0d 05 64 12 20 78  | . 852,300..d. x|
00000800  3d 38 35 32 2b 35 30 2a  b5 28 70 29 0d 05 6e 12  |=852+50*.(p)..n.|
00000810  20 79 3d 33 30 30 2b 35  30 2a 9b 28 70 29 0d 05  | y=300+50*.(p)..|
00000820  78 0d 20 f0 20 38 35 2c  78 2c 79 0d 05 82 05 ed  |x. . 85,x,y.....|
00000830  0d 05 8c 05 3a 0d 05 96  18 f4 20 54 68 65 20 6c  |....:..... The l|
00000840  69 66 74 20 61 6e 64 20  62 61 6c 6c 73 0d 05 a0  |ift and balls...|
00000850  09 e6 20 30 2c 30 0d 05  aa 0b ec 20 30 2c 35 30  |.. 0,0..... 0,50|
00000860  30 0d 05 b4 0d ec 20 31  30 30 2c 35 30 30 0d 05  |0..... 100,500..|
00000870  be 0e f0 20 38 35 2c 30  2c 36 30 30 0d 05 c8 10  |... 85,0,600....|
00000880  f0 20 38 35 2c 31 30 30  2c 36 30 30 0d 05 d2 0e  |. 85,100,600....|
00000890  ec 20 35 30 30 2c 31 30  30 30 0d 05 dc 10 f0 20  |. 500,1000..... |
000008a0  38 35 2c 31 30 30 2c 35  30 30 0d 05 e6 11 f0 20  |85,100,500..... |
000008b0  38 35 2c 36 30 30 2c 31  30 30 30 0d 05 f0 07 63  |85,600,1000....c|
000008c0  3d 31 0d 05 fa 07 78 3d  30 0d 06 04 09 79 3d 35  |=1....x=0....y=5|
000008d0  30 30 0d 06 0e 05 f5 0d  06 18 0a 20 e6 20 30 2c  |00......... . 0,|
000008e0  63 0d 06 22 0d 20 f0 20  36 39 2c 78 2c 79 0d 06  |c..". . 69,x,y..|
000008f0  2c 0f 20 f0 20 36 39 2c  78 2c 79 2b 34 0d 06 36  |,. . 69,x,y+4..6|
00000900  0a 20 78 3d 78 2b 38 0d  06 40 0a 20 63 3d 63 2b  |. x=x+8..@. c=c+|
00000910  31 0d 06 4a 11 20 e7 20  63 3d 31 35 20 8c 20 63  |1..J. . c=15 . c|
00000920  3d 31 0d 06 54 0a fd 20  78 3d 37 32 0d 06 5e 09  |=1..T.. x=72..^.|
00000930  78 3d 31 30 30 0d 06 68  09 63 3d 63 2d 31 0d 06  |x=100..h.c=c-1..|
00000940  72 05 f5 0d 06 7c 0a 20  e6 20 30 2c 63 0d 06 86  |r....|. . 0,c...|
00000950  0a 20 ec 20 78 2c 79 0d  06 90 0d 20 df 20 78 2d  |. . x,y.... . x-|
00000960  32 35 2c 79 0d 06 9a 12  20 f0 20 36 39 2c 78 2d  |25,y.... . 69,x-|
00000970  32 35 2c 79 2b 34 0d 06  a4 12 20 f0 20 36 39 2c  |25,y+4.... . 69,|
00000980  78 2d 32 35 2c 79 2b 38  0d 06 ae 0a 20 79 3d 79  |x-25,y+8.... y=y|
00000990  2b 38 0d 06 b8 0a 20 78  3d 78 2b 38 0d 06 c2 0a  |+8.... x=x+8....|
000009a0  20 63 3d 63 2b 31 0d 06  cc 11 20 e7 20 63 3d 31  | c=c+1.... . c=1|
000009b0  35 20 8c 20 63 3d 31 0d  06 d6 0b fd 20 79 3e 38  |5 . c=1..... y>8|
000009c0  36 35 0d 06 e0 08 6f 63  3d 63 0d 06 ea 0a 6f 78  |65....oc=c....ox|
000009d0  3d 78 2b 38 0d 06 f4 0a  6f 79 3d 79 2d 38 0d 06  |=x+8....oy=y-8..|
000009e0  fe 08 78 73 3d 38 0d 07  08 08 79 73 3d 38 0d 07  |..xs=8....ys=8..|
000009f0  12 09 67 3d 30 2e 35 0d  07 1c 0a 78 3d 78 2d 32  |..g=0.5....x=x-2|
00000a00  35 0d 07 26 05 f5 0d 07  30 0b 20 78 3d 78 2b 78  |5..&....0. x=x+x|
00000a10  73 0d 07 3a 0b 20 79 3d  79 2b 79 73 0d 07 44 0c  |s..:. y=y+ys..D.|
00000a20  20 79 73 3d 79 73 2d 67  0d 07 4e 2c 20 e7 20 b0  | ys=ys-g..N, . .|
00000a30  78 2c 79 29 3c 3e 31 35  20 8c 20 e6 20 30 2c 63  |x,y)<>15 . . 0,c|
00000a40  3a f0 20 36 39 2c 78 2c  79 3a f0 20 36 39 2c 78  |:. 69,x,y:. 69,x|
00000a50  2c 79 2b 34 0d 07 58 0a  20 63 3d 63 2b 31 0d 07  |,y+4..X. c=c+1..|
00000a60  62 11 20 e7 20 63 3d 31  35 20 8c 20 63 3d 31 0d  |b. . c=15 . c=1.|
00000a70  07 6c 0e fd 20 b0 78 2c  79 29 3d 31 35 0d 07 76  |.l.. .x,y)=15..v|
00000a80  12 e3 20 78 3d 78 20 b8  20 30 20 88 20 2d 38 0d  |.. x=x . 0 . -8.|
00000a90  07 80 0c 20 79 3d 79 2d  31 2e 35 0d 07 8a 0a 20  |... y=y-1.5.... |
00000aa0  e6 20 30 2c 63 0d 07 94  0d 20 f0 20 36 39 2c 78  |. 0,c.... . 69,x|
00000ab0  2c 79 0d 07 9e 0f 20 f0  20 36 39 2c 78 2c 79 2b  |,y.... . 69,x,y+|
00000ac0  34 0d 07 a8 0a 20 63 3d  63 2b 31 0d 07 b2 11 20  |4.... c=c+1.... |
00000ad0  e7 20 63 3d 31 35 20 8c  20 63 3d 31 0d 07 bc 05  |. c=15 . c=1....|
00000ae0  ed 0d 07 c6 08 63 3d 6f  63 0d 07 d0 1b e3 20 70  |.....c=oc..... p|
00000af0  3d 2d 31 2e 30 35 20 b8  20 32 2e 30 39 20 88 20  |=-1.05 . 2.09 . |
00000b00  30 2e 35 32 0d 07 da 0c  20 ec 20 6f 78 2c 6f 79  |0.52.... . ox,oy|
00000b10  0d 07 e4 11 20 78 3d 6f  78 2b 32 35 2a b5 28 70  |.... x=ox+25*.(p|
00000b20  29 0d 07 ee 11 20 79 3d  6f 79 2b 32 35 2a 9b 28  |).... y=oy+25*.(|
00000b30  70 29 0d 07 f8 0a 20 e6  20 30 2c 63 0d 08 02 0a  |p).... . 0,c....|
00000b40  20 df 20 78 2c 79 0d 08  0c 0a 20 63 3d 63 2b 31  | . x,y.... c=c+1|
00000b50  0d 08 16 11 20 e7 20 63  3d 31 35 20 8c 20 63 3d  |.... . c=15 . c=|
00000b60  31 0d 08 20 05 ed 0d 08  2a 1c 2a 53 41 56 45 22  |1.. ....*.*SAVE"|
00000b70  57 61 74 72 53 63 72 22  20 33 30 30 30 20 38 30  |WatrScr" 3000 80|
00000b80  30 30 0d 08 34 05 e0 0d  ff                       |00..4....|
00000b89

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