Home » Archimedes archive » Acorn User » AU 1996-05.adf » Regulars » StarInfo/Critchley/!PaddleWar/!Run

StarInfo/Critchley/!PaddleWar/!Run

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 1996-05.adf » Regulars
Filename: StarInfo/Critchley/!PaddleWar/!Run
Read OK: ✔
File size: 0A8E bytes
Load address: 0000
Exec address: 0000
File contents
   10REM> PaddleWar
   20REM By Richard Critchley
   30REM
   40REM Version 1.75
   50REM
   60
   70REM This Program is PD
   80REM Distribute as you please!
   90REM
  100
  110MODE 12:OFF:
  120PRINTTAB(15,10)"Level":PRINTTAB(20,18)"Paddle War by Richard Critchley"
  130A=1: LY=0:
  140REPEAT:MOUSE X,Y,B:
  150IF A=1 COLOUR 1 ELSE COLOUR 7
  160PRINTTAB(15,12)"RISC OS 3.1 (EASY)"
  170IF A=2 COLOUR 1 ELSE COLOUR 7
  180PRINTTAB(15,13)"ARTHUR (A LITTLE HARDER)"
  190IF A=3 COLOUR 1 ELSE COLOUR 7
  200PRINTTAB(15,14)"WINDOWS (ROCK HARD)"
  210IF A=4 COLOUR 1 ELSE COLOUR 7
  220PRINTTAB(15,15)"DOS (INSANELY DIFFICULT)"
  230
  240IF Y<1000 AND Y>750 A=1
  250IF Y<750 AND Y>500 A=2
  260IF Y<500 AND Y>250 A=3
  270IF Y<250 AND Y>0 A=4
  280
  290UNTIL B<>0
  300
  310IF A=1 level%=3
  320IF A=2 level%=5
  330IF A=3 level%=8
  340IF A=4 level%=12
  350cs%=0:ps%=0:
  360
  370REM Initial Setup
  380paddlelength%=100
  390S1%=1
  400S2%=2
  401REPEAT inert%=RND(8)-4:UNTIL inert%<>0
  410spe%=(level%+(ps%-cs%)/100)+10:*CHANNELVOICE 2 2
  420ballx%=1248/2
  430bally%=1024/2+((inert%<0)*400)
  450playerx%=500
  460comp%=500
  470OFF
  480
  490MODE 140
  500MODE 12
  510OFF
  520COLOUR 132:PRINT "Computer ";cs%" Player ";ps%;
  530REPEAT
  540MOUSE playerx%,dump2%,mo%
  550SYS "OS_Byte",112,S1%:SYS "OS_Byte",113,S2%:SWAP S1%,S2%:CLS
  560PRINT "Computer ";cs%" Player ";ps%;
  570IF inert%=-4 ballx%=ballx%-2:bally%=bally%+spe%
  580IF inert%=-3 ballx%=ballx%-6:bally%=bally%+spe%
  590IF inert%=-2 ballx%=ballx%+2:bally%=bally%+spe%
  600IF inert%=-1 ballx%=ballx%+6:bally%=bally%+spe%
  610IF inert%=1 ballx%=ballx%+6:bally%=bally%-spe%
  620IF inert%=2 ballx%=ballx%+2:bally%=bally%-spe%
  630IF inert%=3 ballx%=ballx%-6:bally%=bally%-spe%
  640IF inert%=4 ballx%=ballx%-2:bally%=bally%-spe%
  650IF ballx%<25 IF inert%>0 inert%=2:SOUND 1,-15,90,1,1
  660IF ballx%<25 IF inert%<0 inert%=-2:SOUND 1,-15,90,1,1
  670IF ballx%>1248 IF inert%>0 inert%=4:SOUND 1,-15,90,1,1
  680IF ballx%>1248 IF inert%<0 inert%=-4:SOUND 1,-15,90,1,1
  690IF bally%<75 IF ballx%>playerx% IF ballx%<playerx%+25 inert%=-3:SOUND 1,-15,70,1,1
  700IF bally%<75 IF ballx%>playerx%+25 IF ballx%<playerx%+75 inert%=((ABS(inert%))*-1):SOUND 1,-15,70,1,1
  710IF bally%<75 IF ballx%>playerx% IF ballx%<playerx% inert%=((ABS(inert%))*-1):SOUND 1,-15,70,1,1
  720IF bally%<75 IF ballx%>playerx%+75 IF ballx%<playerx%+100 inert%=-1:SOUND 1,-15,70,1,1
  730IF bally%>950 IF ballx%>comp% IF ballx%<comp%+25 inert%=3:SOUND 1,-15,70,1,1
  740IF bally%>950 IF ballx%>comp%+25 IF ballx%<comp%+50 inert%=ABS(inert%):SOUND 1,-15,70,1,1
  750IF bally%>950 IF ballx%>comp%+50 IF ballx%<comp%+75 inert%=ABS(inert%):SOUND 1,-15,70,1,1
  760IF bally%>950 IF ballx%>comp%+75 IF ballx%<comp%+100 inert%=1:SOUND 1,-15,70,1,1
  770
  780IF bally%<10 cs%=cs%+1:SOUND 2,-15,52,10,1:UNTILTRUE:GOTO 360
  790IF bally%>1004 ps%=ps%+1:SOUND 2,-15,52,10,1:UNTILTRUE:GOTO 360
  800IF inert%<0 IF ballx%>comp%+50 comp%=comp%+7+(level%/6)
  810IF inert%<0 IF ballx%<comp%+50 comp%=comp%-7-(level%/6)
  820RECTANGLEFILL playerx%,40,100,10
  830RECTANGLEFILL comp%,976,100,10
  840size%=25:REM+(500-ABS(bally%-500))/25
  850CIRCLEFILL ballx%,bally%,size%:WAIT
  860UNTIL FALSE


�> PaddleWar
� By Richard Critchley
�
(� Version 1.75
2�
<
F� This Program is PD
P� Distribute as you please!
Z�
d
n� 12:�:
x=�15,10)"Level":�20,18)"Paddle War by Richard Critchley"
�A=1: LY=0:
��:ȗ X,Y,B:
�� A=1 � 1 � � 7
� �15,12)"RISC OS 3.1 (EASY)"
�� A=2 � 1 � � 7
�&�15,13)"ARTHUR (A LITTLE HARDER)"
�� A=3 � 1 � � 7
�!�15,14)"WINDOWS (ROCK HARD)"
�� A=4 � 1 � � 7
�&�15,15)"DOS (INSANELY DIFFICULT)"
�
�� Y<1000 � Y>750 A=1
�� Y<750 � Y>500 A=2
� Y<500 � Y>250 A=3
� Y<250 � Y>0 A=4

"
� B<>0
,
6� A=1 level%=3
@� A=2 level%=5
J� A=3 level%=8
T� A=4 level%=12
^cs%=0:ps%=0:
h
r� Initial Setup
|paddlelength%=100
�	S1%=1
�	S2%=2
�� inert%=�(8)-4:� inert%<>0
�4spe%=(level%+(ps%-cs%)/100)+10:*CHANNELVOICE 2 2
�ballx%=1248/2
�"bally%=1024/2+((inert%<0)*400)
�playerx%=500
�
comp%=500
��
�
�	� 140
�� 12
��
*� 132:� "Computer ";cs%" Player ";ps%;
�
ȗ playerx%,dump2%,mo%
&:ș "OS_Byte",112,S1%:ș "OS_Byte",113,S2%:Ȕ S1%,S2%:�
0$� "Computer ";cs%" Player ";ps%;
:2� inert%=-4 ballx%=ballx%-2:bally%=bally%+spe%
D2� inert%=-3 ballx%=ballx%-6:bally%=bally%+spe%
N2� inert%=-2 ballx%=ballx%+2:bally%=bally%+spe%
X2� inert%=-1 ballx%=ballx%+6:bally%=bally%+spe%
b1� inert%=1 ballx%=ballx%+6:bally%=bally%-spe%
l1� inert%=2 ballx%=ballx%+2:bally%=bally%-spe%
v1� inert%=3 ballx%=ballx%-6:bally%=bally%-spe%
�1� inert%=4 ballx%=ballx%-2:bally%=bally%-spe%
�2� ballx%<25 � inert%>0 inert%=2:� 1,-15,90,1,1
�3� ballx%<25 � inert%<0 inert%=-2:� 1,-15,90,1,1
�4� ballx%>1248 � inert%>0 inert%=4:� 1,-15,90,1,1
�5� ballx%>1248 � inert%<0 inert%=-4:� 1,-15,90,1,1
�O� bally%<75 � ballx%>playerx% � ballx%<playerx%+25 inert%=-3:� 1,-15,70,1,1
�`� bally%<75 � ballx%>playerx%+25 � ballx%<playerx%+75 inert%=((�(inert%))*-1):� 1,-15,70,1,1
�Z� bally%<75 � ballx%>playerx% � ballx%<playerx% inert%=((�(inert%))*-1):� 1,-15,70,1,1
�S� bally%<75 � ballx%>playerx%+75 � ballx%<playerx%+100 inert%=-1:� 1,-15,70,1,1
�I� bally%>950 � ballx%>comp% � ballx%<comp%+25 inert%=3:� 1,-15,70,1,1
�T� bally%>950 � ballx%>comp%+25 � ballx%<comp%+50 inert%=�(inert%):� 1,-15,70,1,1
�T� bally%>950 � ballx%>comp%+50 � ballx%<comp%+75 inert%=�(inert%):� 1,-15,70,1,1
�M� bally%>950 � ballx%>comp%+75 � ballx%<comp%+100 inert%=1:� 1,-15,70,1,1

3� bally%<10 cs%=cs%+1:� 2,-15,52,10,1:��:� �DhA
5� bally%>1004 ps%=ps%+1:� 2,-15,52,10,1:��:� �DhA
 9� inert%<0 � ballx%>comp%+50 comp%=comp%+7+(level%/6)
*9� inert%<0 � ballx%<comp%+50 comp%=comp%-7-(level%/6)
4ȓȐ playerx%,40,100,10
>ȓȐ comp%,976,100,10
H'size%=25:�+(500-ABS(bally%-500))/25
RȏȐ ballx%,bally%,size%:Ȗ
\� �
�
00000000  0d 00 0a 10 f4 3e 20 50  61 64 64 6c 65 57 61 72  |.....> PaddleWar|
00000010  0d 00 14 1a f4 20 42 79  20 52 69 63 68 61 72 64  |..... By Richard|
00000020  20 43 72 69 74 63 68 6c  65 79 0d 00 1e 05 f4 0d  | Critchley......|
00000030  00 28 12 f4 20 56 65 72  73 69 6f 6e 20 31 2e 37  |.(.. Version 1.7|
00000040  35 0d 00 32 05 f4 0d 00  3c 04 0d 00 46 18 f4 20  |5..2....<...F.. |
00000050  54 68 69 73 20 50 72 6f  67 72 61 6d 20 69 73 20  |This Program is |
00000060  50 44 0d 00 50 1f f4 20  44 69 73 74 72 69 62 75  |PD..P.. Distribu|
00000070  74 65 20 61 73 20 79 6f  75 20 70 6c 65 61 73 65  |te as you please|
00000080  21 0d 00 5a 05 f4 0d 00  64 04 0d 00 6e 0b eb 20  |!..Z....d...n.. |
00000090  31 32 3a 87 3a 0d 00 78  3d f1 8a 31 35 2c 31 30  |12:.:..x=..15,10|
000000a0  29 22 4c 65 76 65 6c 22  3a f1 8a 32 30 2c 31 38  |)"Level":..20,18|
000000b0  29 22 50 61 64 64 6c 65  20 57 61 72 20 62 79 20  |)"Paddle War by |
000000c0  52 69 63 68 61 72 64 20  43 72 69 74 63 68 6c 65  |Richard Critchle|
000000d0  79 22 0d 00 82 0e 41 3d  31 3a 20 4c 59 3d 30 3a  |y"....A=1: LY=0:|
000000e0  0d 00 8c 0f f5 3a c8 97  20 58 2c 59 2c 42 3a 0d  |.....:.. X,Y,B:.|
000000f0  00 96 13 e7 20 41 3d 31  20 fb 20 31 20 8b 20 fb  |.... A=1 . 1 . .|
00000100  20 37 0d 00 a0 20 f1 8a  31 35 2c 31 32 29 22 52  | 7... ..15,12)"R|
00000110  49 53 43 20 4f 53 20 33  2e 31 20 28 45 41 53 59  |ISC OS 3.1 (EASY|
00000120  29 22 0d 00 aa 13 e7 20  41 3d 32 20 fb 20 31 20  |)"..... A=2 . 1 |
00000130  8b 20 fb 20 37 0d 00 b4  26 f1 8a 31 35 2c 31 33  |. . 7...&..15,13|
00000140  29 22 41 52 54 48 55 52  20 28 41 20 4c 49 54 54  |)"ARTHUR (A LITT|
00000150  4c 45 20 48 41 52 44 45  52 29 22 0d 00 be 13 e7  |LE HARDER)".....|
00000160  20 41 3d 33 20 fb 20 31  20 8b 20 fb 20 37 0d 00  | A=3 . 1 . . 7..|
00000170  c8 21 f1 8a 31 35 2c 31  34 29 22 57 49 4e 44 4f  |.!..15,14)"WINDO|
00000180  57 53 20 28 52 4f 43 4b  20 48 41 52 44 29 22 0d  |WS (ROCK HARD)".|
00000190  00 d2 13 e7 20 41 3d 34  20 fb 20 31 20 8b 20 fb  |.... A=4 . 1 . .|
000001a0  20 37 0d 00 dc 26 f1 8a  31 35 2c 31 35 29 22 44  | 7...&..15,15)"D|
000001b0  4f 53 20 28 49 4e 53 41  4e 45 4c 59 20 44 49 46  |OS (INSANELY DIF|
000001c0  46 49 43 55 4c 54 29 22  0d 00 e6 04 0d 00 f0 18  |FICULT)"........|
000001d0  e7 20 59 3c 31 30 30 30  20 80 20 59 3e 37 35 30  |. Y<1000 . Y>750|
000001e0  20 41 3d 31 0d 00 fa 17  e7 20 59 3c 37 35 30 20  | A=1..... Y<750 |
000001f0  80 20 59 3e 35 30 30 20  41 3d 32 0d 01 04 17 e7  |. Y>500 A=2.....|
00000200  20 59 3c 35 30 30 20 80  20 59 3e 32 35 30 20 41  | Y<500 . Y>250 A|
00000210  3d 33 0d 01 0e 15 e7 20  59 3c 32 35 30 20 80 20  |=3..... Y<250 . |
00000220  59 3e 30 20 41 3d 34 0d  01 18 04 0d 01 22 0a fd  |Y>0 A=4......"..|
00000230  20 42 3c 3e 30 0d 01 2c  04 0d 01 36 12 e7 20 41  | B<>0..,...6.. A|
00000240  3d 31 20 6c 65 76 65 6c  25 3d 33 0d 01 40 12 e7  |=1 level%=3..@..|
00000250  20 41 3d 32 20 6c 65 76  65 6c 25 3d 35 0d 01 4a  | A=2 level%=5..J|
00000260  12 e7 20 41 3d 33 20 6c  65 76 65 6c 25 3d 38 0d  |.. A=3 level%=8.|
00000270  01 54 13 e7 20 41 3d 34  20 6c 65 76 65 6c 25 3d  |.T.. A=4 level%=|
00000280  31 32 0d 01 5e 10 63 73  25 3d 30 3a 70 73 25 3d  |12..^.cs%=0:ps%=|
00000290  30 3a 0d 01 68 04 0d 01  72 13 f4 20 49 6e 69 74  |0:..h...r.. Init|
000002a0  69 61 6c 20 53 65 74 75  70 0d 01 7c 15 70 61 64  |ial Setup..|.pad|
000002b0  64 6c 65 6c 65 6e 67 74  68 25 3d 31 30 30 0d 01  |dlelength%=100..|
000002c0  86 09 53 31 25 3d 31 0d  01 90 09 53 32 25 3d 32  |..S1%=1....S2%=2|
000002d0  0d 01 91 1f f5 20 69 6e  65 72 74 25 3d b3 28 38  |..... inert%=.(8|
000002e0  29 2d 34 3a fd 20 69 6e  65 72 74 25 3c 3e 30 0d  |)-4:. inert%<>0.|
000002f0  01 9a 34 73 70 65 25 3d  28 6c 65 76 65 6c 25 2b  |..4spe%=(level%+|
00000300  28 70 73 25 2d 63 73 25  29 2f 31 30 30 29 2b 31  |(ps%-cs%)/100)+1|
00000310  30 3a 2a 43 48 41 4e 4e  45 4c 56 4f 49 43 45 20  |0:*CHANNELVOICE |
00000320  32 20 32 0d 01 a4 11 62  61 6c 6c 78 25 3d 31 32  |2 2....ballx%=12|
00000330  34 38 2f 32 0d 01 ae 22  62 61 6c 6c 79 25 3d 31  |48/2..."bally%=1|
00000340  30 32 34 2f 32 2b 28 28  69 6e 65 72 74 25 3c 30  |024/2+((inert%<0|
00000350  29 2a 34 30 30 29 0d 01  c2 10 70 6c 61 79 65 72  |)*400)....player|
00000360  78 25 3d 35 30 30 0d 01  cc 0d 63 6f 6d 70 25 3d  |x%=500....comp%=|
00000370  35 30 30 0d 01 d6 05 87  0d 01 e0 04 0d 01 ea 09  |500.............|
00000380  eb 20 31 34 30 0d 01 f4  08 eb 20 31 32 0d 01 fe  |. 140..... 12...|
00000390  05 87 0d 02 08 2a fb 20  31 33 32 3a f1 20 22 43  |.....*. 132:. "C|
000003a0  6f 6d 70 75 74 65 72 20  22 3b 63 73 25 22 20 50  |omputer ";cs%" P|
000003b0  6c 61 79 65 72 20 22 3b  70 73 25 3b 0d 02 12 05  |layer ";ps%;....|
000003c0  f5 0d 02 1c 1a c8 97 20  70 6c 61 79 65 72 78 25  |....... playerx%|
000003d0  2c 64 75 6d 70 32 25 2c  6d 6f 25 0d 02 26 3a c8  |,dump2%,mo%..&:.|
000003e0  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 32 2c  |. "OS_Byte",112,|
000003f0  53 31 25 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  |S1%:.. "OS_Byte"|
00000400  2c 31 31 33 2c 53 32 25  3a c8 94 20 53 31 25 2c  |,113,S2%:.. S1%,|
00000410  53 32 25 3a db 0d 02 30  24 f1 20 22 43 6f 6d 70  |S2%:...0$. "Comp|
00000420  75 74 65 72 20 22 3b 63  73 25 22 20 50 6c 61 79  |uter ";cs%" Play|
00000430  65 72 20 22 3b 70 73 25  3b 0d 02 3a 32 e7 20 69  |er ";ps%;..:2. i|
00000440  6e 65 72 74 25 3d 2d 34  20 62 61 6c 6c 78 25 3d  |nert%=-4 ballx%=|
00000450  62 61 6c 6c 78 25 2d 32  3a 62 61 6c 6c 79 25 3d  |ballx%-2:bally%=|
00000460  62 61 6c 6c 79 25 2b 73  70 65 25 0d 02 44 32 e7  |bally%+spe%..D2.|
00000470  20 69 6e 65 72 74 25 3d  2d 33 20 62 61 6c 6c 78  | inert%=-3 ballx|
00000480  25 3d 62 61 6c 6c 78 25  2d 36 3a 62 61 6c 6c 79  |%=ballx%-6:bally|
00000490  25 3d 62 61 6c 6c 79 25  2b 73 70 65 25 0d 02 4e  |%=bally%+spe%..N|
000004a0  32 e7 20 69 6e 65 72 74  25 3d 2d 32 20 62 61 6c  |2. inert%=-2 bal|
000004b0  6c 78 25 3d 62 61 6c 6c  78 25 2b 32 3a 62 61 6c  |lx%=ballx%+2:bal|
000004c0  6c 79 25 3d 62 61 6c 6c  79 25 2b 73 70 65 25 0d  |ly%=bally%+spe%.|
000004d0  02 58 32 e7 20 69 6e 65  72 74 25 3d 2d 31 20 62  |.X2. inert%=-1 b|
000004e0  61 6c 6c 78 25 3d 62 61  6c 6c 78 25 2b 36 3a 62  |allx%=ballx%+6:b|
000004f0  61 6c 6c 79 25 3d 62 61  6c 6c 79 25 2b 73 70 65  |ally%=bally%+spe|
00000500  25 0d 02 62 31 e7 20 69  6e 65 72 74 25 3d 31 20  |%..b1. inert%=1 |
00000510  62 61 6c 6c 78 25 3d 62  61 6c 6c 78 25 2b 36 3a  |ballx%=ballx%+6:|
00000520  62 61 6c 6c 79 25 3d 62  61 6c 6c 79 25 2d 73 70  |bally%=bally%-sp|
00000530  65 25 0d 02 6c 31 e7 20  69 6e 65 72 74 25 3d 32  |e%..l1. inert%=2|
00000540  20 62 61 6c 6c 78 25 3d  62 61 6c 6c 78 25 2b 32  | ballx%=ballx%+2|
00000550  3a 62 61 6c 6c 79 25 3d  62 61 6c 6c 79 25 2d 73  |:bally%=bally%-s|
00000560  70 65 25 0d 02 76 31 e7  20 69 6e 65 72 74 25 3d  |pe%..v1. inert%=|
00000570  33 20 62 61 6c 6c 78 25  3d 62 61 6c 6c 78 25 2d  |3 ballx%=ballx%-|
00000580  36 3a 62 61 6c 6c 79 25  3d 62 61 6c 6c 79 25 2d  |6:bally%=bally%-|
00000590  73 70 65 25 0d 02 80 31  e7 20 69 6e 65 72 74 25  |spe%...1. inert%|
000005a0  3d 34 20 62 61 6c 6c 78  25 3d 62 61 6c 6c 78 25  |=4 ballx%=ballx%|
000005b0  2d 32 3a 62 61 6c 6c 79  25 3d 62 61 6c 6c 79 25  |-2:bally%=bally%|
000005c0  2d 73 70 65 25 0d 02 8a  32 e7 20 62 61 6c 6c 78  |-spe%...2. ballx|
000005d0  25 3c 32 35 20 e7 20 69  6e 65 72 74 25 3e 30 20  |%<25 . inert%>0 |
000005e0  69 6e 65 72 74 25 3d 32  3a d4 20 31 2c 2d 31 35  |inert%=2:. 1,-15|
000005f0  2c 39 30 2c 31 2c 31 0d  02 94 33 e7 20 62 61 6c  |,90,1,1...3. bal|
00000600  6c 78 25 3c 32 35 20 e7  20 69 6e 65 72 74 25 3c  |lx%<25 . inert%<|
00000610  30 20 69 6e 65 72 74 25  3d 2d 32 3a d4 20 31 2c  |0 inert%=-2:. 1,|
00000620  2d 31 35 2c 39 30 2c 31  2c 31 0d 02 9e 34 e7 20  |-15,90,1,1...4. |
00000630  62 61 6c 6c 78 25 3e 31  32 34 38 20 e7 20 69 6e  |ballx%>1248 . in|
00000640  65 72 74 25 3e 30 20 69  6e 65 72 74 25 3d 34 3a  |ert%>0 inert%=4:|
00000650  d4 20 31 2c 2d 31 35 2c  39 30 2c 31 2c 31 0d 02  |. 1,-15,90,1,1..|
00000660  a8 35 e7 20 62 61 6c 6c  78 25 3e 31 32 34 38 20  |.5. ballx%>1248 |
00000670  e7 20 69 6e 65 72 74 25  3c 30 20 69 6e 65 72 74  |. inert%<0 inert|
00000680  25 3d 2d 34 3a d4 20 31  2c 2d 31 35 2c 39 30 2c  |%=-4:. 1,-15,90,|
00000690  31 2c 31 0d 02 b2 4f e7  20 62 61 6c 6c 79 25 3c  |1,1...O. bally%<|
000006a0  37 35 20 e7 20 62 61 6c  6c 78 25 3e 70 6c 61 79  |75 . ballx%>play|
000006b0  65 72 78 25 20 e7 20 62  61 6c 6c 78 25 3c 70 6c  |erx% . ballx%<pl|
000006c0  61 79 65 72 78 25 2b 32  35 20 69 6e 65 72 74 25  |ayerx%+25 inert%|
000006d0  3d 2d 33 3a d4 20 31 2c  2d 31 35 2c 37 30 2c 31  |=-3:. 1,-15,70,1|
000006e0  2c 31 0d 02 bc 60 e7 20  62 61 6c 6c 79 25 3c 37  |,1...`. bally%<7|
000006f0  35 20 e7 20 62 61 6c 6c  78 25 3e 70 6c 61 79 65  |5 . ballx%>playe|
00000700  72 78 25 2b 32 35 20 e7  20 62 61 6c 6c 78 25 3c  |rx%+25 . ballx%<|
00000710  70 6c 61 79 65 72 78 25  2b 37 35 20 69 6e 65 72  |playerx%+75 iner|
00000720  74 25 3d 28 28 94 28 69  6e 65 72 74 25 29 29 2a  |t%=((.(inert%))*|
00000730  2d 31 29 3a d4 20 31 2c  2d 31 35 2c 37 30 2c 31  |-1):. 1,-15,70,1|
00000740  2c 31 0d 02 c6 5a e7 20  62 61 6c 6c 79 25 3c 37  |,1...Z. bally%<7|
00000750  35 20 e7 20 62 61 6c 6c  78 25 3e 70 6c 61 79 65  |5 . ballx%>playe|
00000760  72 78 25 20 e7 20 62 61  6c 6c 78 25 3c 70 6c 61  |rx% . ballx%<pla|
00000770  79 65 72 78 25 20 69 6e  65 72 74 25 3d 28 28 94  |yerx% inert%=((.|
00000780  28 69 6e 65 72 74 25 29  29 2a 2d 31 29 3a d4 20  |(inert%))*-1):. |
00000790  31 2c 2d 31 35 2c 37 30  2c 31 2c 31 0d 02 d0 53  |1,-15,70,1,1...S|
000007a0  e7 20 62 61 6c 6c 79 25  3c 37 35 20 e7 20 62 61  |. bally%<75 . ba|
000007b0  6c 6c 78 25 3e 70 6c 61  79 65 72 78 25 2b 37 35  |llx%>playerx%+75|
000007c0  20 e7 20 62 61 6c 6c 78  25 3c 70 6c 61 79 65 72  | . ballx%<player|
000007d0  78 25 2b 31 30 30 20 69  6e 65 72 74 25 3d 2d 31  |x%+100 inert%=-1|
000007e0  3a d4 20 31 2c 2d 31 35  2c 37 30 2c 31 2c 31 0d  |:. 1,-15,70,1,1.|
000007f0  02 da 49 e7 20 62 61 6c  6c 79 25 3e 39 35 30 20  |..I. bally%>950 |
00000800  e7 20 62 61 6c 6c 78 25  3e 63 6f 6d 70 25 20 e7  |. ballx%>comp% .|
00000810  20 62 61 6c 6c 78 25 3c  63 6f 6d 70 25 2b 32 35  | ballx%<comp%+25|
00000820  20 69 6e 65 72 74 25 3d  33 3a d4 20 31 2c 2d 31  | inert%=3:. 1,-1|
00000830  35 2c 37 30 2c 31 2c 31  0d 02 e4 54 e7 20 62 61  |5,70,1,1...T. ba|
00000840  6c 6c 79 25 3e 39 35 30  20 e7 20 62 61 6c 6c 78  |lly%>950 . ballx|
00000850  25 3e 63 6f 6d 70 25 2b  32 35 20 e7 20 62 61 6c  |%>comp%+25 . bal|
00000860  6c 78 25 3c 63 6f 6d 70  25 2b 35 30 20 69 6e 65  |lx%<comp%+50 ine|
00000870  72 74 25 3d 94 28 69 6e  65 72 74 25 29 3a d4 20  |rt%=.(inert%):. |
00000880  31 2c 2d 31 35 2c 37 30  2c 31 2c 31 0d 02 ee 54  |1,-15,70,1,1...T|
00000890  e7 20 62 61 6c 6c 79 25  3e 39 35 30 20 e7 20 62  |. bally%>950 . b|
000008a0  61 6c 6c 78 25 3e 63 6f  6d 70 25 2b 35 30 20 e7  |allx%>comp%+50 .|
000008b0  20 62 61 6c 6c 78 25 3c  63 6f 6d 70 25 2b 37 35  | ballx%<comp%+75|
000008c0  20 69 6e 65 72 74 25 3d  94 28 69 6e 65 72 74 25  | inert%=.(inert%|
000008d0  29 3a d4 20 31 2c 2d 31  35 2c 37 30 2c 31 2c 31  |):. 1,-15,70,1,1|
000008e0  0d 02 f8 4d e7 20 62 61  6c 6c 79 25 3e 39 35 30  |...M. bally%>950|
000008f0  20 e7 20 62 61 6c 6c 78  25 3e 63 6f 6d 70 25 2b  | . ballx%>comp%+|
00000900  37 35 20 e7 20 62 61 6c  6c 78 25 3c 63 6f 6d 70  |75 . ballx%<comp|
00000910  25 2b 31 30 30 20 69 6e  65 72 74 25 3d 31 3a d4  |%+100 inert%=1:.|
00000920  20 31 2c 2d 31 35 2c 37  30 2c 31 2c 31 0d 03 02  | 1,-15,70,1,1...|
00000930  04 0d 03 0c 33 e7 20 62  61 6c 6c 79 25 3c 31 30  |....3. bally%<10|
00000940  20 63 73 25 3d 63 73 25  2b 31 3a d4 20 32 2c 2d  | cs%=cs%+1:. 2,-|
00000950  31 35 2c 35 32 2c 31 30  2c 31 3a fd b9 3a e5 20  |15,52,10,1:..:. |
00000960  8d 44 68 41 0d 03 16 35  e7 20 62 61 6c 6c 79 25  |.DhA...5. bally%|
00000970  3e 31 30 30 34 20 70 73  25 3d 70 73 25 2b 31 3a  |>1004 ps%=ps%+1:|
00000980  d4 20 32 2c 2d 31 35 2c  35 32 2c 31 30 2c 31 3a  |. 2,-15,52,10,1:|
00000990  fd b9 3a e5 20 8d 44 68  41 0d 03 20 39 e7 20 69  |..:. .DhA.. 9. i|
000009a0  6e 65 72 74 25 3c 30 20  e7 20 62 61 6c 6c 78 25  |nert%<0 . ballx%|
000009b0  3e 63 6f 6d 70 25 2b 35  30 20 63 6f 6d 70 25 3d  |>comp%+50 comp%=|
000009c0  63 6f 6d 70 25 2b 37 2b  28 6c 65 76 65 6c 25 2f  |comp%+7+(level%/|
000009d0  36 29 0d 03 2a 39 e7 20  69 6e 65 72 74 25 3c 30  |6)..*9. inert%<0|
000009e0  20 e7 20 62 61 6c 6c 78  25 3c 63 6f 6d 70 25 2b  | . ballx%<comp%+|
000009f0  35 30 20 63 6f 6d 70 25  3d 63 6f 6d 70 25 2d 37  |50 comp%=comp%-7|
00000a00  2d 28 6c 65 76 65 6c 25  2f 36 29 0d 03 34 1b c8  |-(level%/6)..4..|
00000a10  93 c8 90 20 70 6c 61 79  65 72 78 25 2c 34 30 2c  |... playerx%,40,|
00000a20  31 30 30 2c 31 30 0d 03  3e 19 c8 93 c8 90 20 63  |100,10..>..... c|
00000a30  6f 6d 70 25 2c 39 37 36  2c 31 30 30 2c 31 30 0d  |omp%,976,100,10.|
00000a40  03 48 27 73 69 7a 65 25  3d 32 35 3a f4 2b 28 35  |.H'size%=25:.+(5|
00000a50  30 30 2d 41 42 53 28 62  61 6c 6c 79 25 2d 35 30  |00-ABS(bally%-50|
00000a60  30 29 29 2f 32 35 0d 03  52 1f c8 8f c8 90 20 62  |0))/25..R..... b|
00000a70  61 6c 6c 78 25 2c 62 61  6c 6c 79 25 2c 73 69 7a  |allx%,bally%,siz|
00000a80  65 25 3a c8 96 0d 03 5c  07 fd 20 a3 0d ff        |e%:....\.. ...|
00000a8e

© Dominic Ford 2021–2025.

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