Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_34.ADF » G/S/BALGAME

G/S/BALGAME

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 ADFS disks » Electron_User_Group » EUG_34.ADF
Filename: G/S/BALGAME
Read OK:
File size: 0A74 bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
   10*RUN BALCODE
   20MODE1:HIMEM=&2800
   30*LOAD BALBASE
   50bat$=" "+CHR$230+STRING$(5,CHR$231)+CHR$232+" "
   60VDU23;8202;0;0;0;0;
   70CLOSE#0
   75PROCtitle
   76PRINTTAB(12,30)"   "TAB(26,30)"     "
   80fl%=OPENIN("BALLVLS")
   90lvl=1:scr=0:lvs=5
  100PROCload
  105IF lvl=31 PROCwin:GOTO70
  110X=15
  120C%=80:D%=48:W%=2:Z%=7:CALLU%
  130cx=0:cy=4
  140PROCupdt
  150bp=0:ta=0:W%=3:Z%=7:CALLU%
  160REPEAT
  170d=0
  180IFINKEY-98X=X-1:d=-2*RND(2):IFX<0X=0
  190IFINKEY-67X=X+1:d=2*RND(2):IFX>31X=31
  200PRINTTAB(X,26);bat$
  210C%=C%+cx:D%=D%+cy
  220IFC%>150C%=150:cx=0-cx
  230IFC%<2C%=2:cx=0-cx
  240IFD%>239D%=239:cy=0-cy
  250C=C%/4:IFD%<48ANDC>X-1ANDC<X+8cy=ABS(cy):cx=d:PROCta
  255IFta=6C%=(X+4)*4:D%=48:IFINKEY-99ta=0
  260IFD%<32PROCdie
  270IFC%>8ANDC%<140ANDD%>116PROCchk
  290W%=2:CALLS%
  291IFbp=1PROCbp
  300UNTILtt=0ORlvs=0
  310W%=258:CALLS%
  320IFtt=0PROCclr:lvl=lvl+1:GOTO100
  325GOTO70
  330END
  331DEFPROCta:IFta=5ta=6
  332IFta=4ANDABS(cy)=4cy=8ELSEIFta=4cy=4
  333IFta=4ta=0
  339ENDPROC
  340DEFPROCthg(x,y):n=ASC(MID$(scr$,x+y*16+1,1))-64
  350IFn<1ENDPROC ELSEtt=tt+1
  360p=INT(n/2+.5):W%=1:Z%=p:CALLU%
  370z=0:IFn/2=INT(n/2)z=1
  380W%=1:A%=16+x*8+z:B%=239-y*16:CALLS%
  390CALLP%
  400ENDPROC
  410DEFPROCload
  420tt=0
  430FORI=1TO3
  440INPUT#fl%,n
  450VDU19,I,n;0;
  460NEXT
  470INPUT#fl%,scr$
  480FORA=0TO15:FORB=0TO7
  490PROCthg(A,B)
  500NEXT
  510NEXT
  520ENDPROC
  530DEFPROCupdt
  540PRINTTAB(12,30);lvl
  550PRINTTAB(18,30)STRING$(lvs,CHR$233)
  560PRINTTAB(26,30);scr
  570ENDPROC
  580DEFPROCdie
  590W%=258:CALLS%
  600FORI=-15TO0
  610SOUND0,I,6,1
  620NEXT
  630lvs=lvs-1:PRINTTAB(18+lvs,30)" "
  640C%=(X+5)*4:D%=48:cx=2:cy=4
  650ENDPROC
  660DEFPROCchk
  670c%=C%/8-1.5
  680d%=(239-D%)/16
  690IFMID$(scr$,c%+d%*16+1,1)<>" "PROCbrk(c%,d%):cy=0-cy:ENDPROC
  700IFMID$(scr$,c%+d%*16+1,1)<>" "PROCbrk(c%,d%):cy=0-cy:ENDPROC
  710ENDPROC
  720DEFPROCbrk(x,y)
  730W%=258:CALLS%:W%=259:CALLS%:PROCthg(x,y)
  740r=x+y*16
  750scr$=LEFT$(scr$,r)+" "+RIGHT$(scr$,127-r)
  760tt=tt-2:scr=scr+1:PROCupdt
  770IFbp=0ANDRND(20)=20bp=1:E%=17+x*8:F%=239-y*16
  780ENDPROC
  790DEFPROCbp
  800F%=F%-6:W%=3:CALLS%
  810E=E%/4:IFF%<48ANDE>X-1ANDE<X+8bp=0:ta=RND(5):PROCbsnd
  820IFF%<32bp=0
  830IFbp=0W%=259:CALLS%
  840ENDPROC
  850DEFPROCbsnd
  901IFta=1ANDRND(8)=8tt=0ELSEIFta=1ta=2
  902IFta=2scr=scr+5:PROCupdt:ta=0
  903IFta=3ANDlvs<5lvs=lvs+1:PROCupdt:ta=0
  904SOUND1,1,ta*28,5
  910ENDPROC
 1000DEFPROCclr:VDU28,0,27,39,0,12,26:ENDPROC
 1010DEFPROCtitle
 1020scr$="A   BBCCCDDDE  EA   B C C  DE E AAAAB CCCDDDEE  A  AB C  D DE E AAAAB CCCDDDE  E                EEE  DDD GGG AAAE  E D D GGG A AEEE  DDD CCC A A"
 1030PROCclr
 1040FORB=0TO8:FORA=0TO15:PROCthg(A,B):NEXT:NEXT
 1050RESTORE10000:a$="":b$=""
 1052PROCexch
 1055TIME=0
 1060REPEAT:IFTIME>200PROCexch:TIME=0
 1062UNTILINKEY-99
 1069PROCclr
 1070ENDPROC
 1071DEFPROCwin:PRINTTAB(5,20)"You have completed BREAK DOWN!"TAB(15,22)"scoring :";scr;TAB(10,24)"Press SPACE to play":FORA=0TO200STEP8:SOUND1,-15,A,1:SOUND2,-14,A+16,1:SOUND1,-13,A+28,1:SOUND2,-12,A+48,1:NEXT:REPEATUNTILINKEY-99:ENDPROC
 1080DEFPROCexch
 1085a$=b$:READb$:IFb$="***"RESTORE10000:READb$
 1090a=LEN(a$):b=LEN(b$)
 1100FORI=a/2TO0STEP-1
 1110PRINTTAB(19-I,24)" "LEFT$(a$,I)RIGHT$(a$,I)" "
 1115SOUND1,0,I*10,1:SOUND0,-15,7,1
 1120NEXT
 1121c=RND(7):d=RND(7):e=RND(7):IF c=d OR d=e OR c=e GOTO 1121
 1122VDU19,1,c;0;19,2,d;0;19,3,e;0;
 1130FORI=1TOb/2
 1140PRINTTAB(20-I,24)LEFT$(b$,I)RIGHT$(b$,I)
 1145SOUND1,0,I*10,1:SOUND0,-15,7,1
 1150NEXT
 1160ENDPROC
10000DATA"by Joshua Westbury  1992","for BBC PD","press SPACEBAR to play","Z left X right","***"

*RUN BALCODE
�1:�=&2800
*LOAD BALBASE
2#bat$=" "+�230+�5,�231)+�232+" "
<�23;8202;0;0;0;0;
F�#0
K
�title
L�12,30)"   "�26,30)"     "
Pfl%=�("BALLVLS")
Zlvl=1:scr=0:lvs=5
d	�load
i� lvl=31 �win:�DF@
nX=15
xC%=80:D%=48:W%=2:Z%=7:�U%
�
cx=0:cy=4
�	�updt
�bp=0:ta=0:W%=3:Z%=7:�U%
��
�d=0
� �-98X=X-1:d=-2*�(2):�X<0X=0
�!�-67X=X+1:d=2*�(2):�X>31X=31
��X,26);bat$
�C%=C%+cx:D%=D%+cy
��C%>150C%=150:cx=0-cx
��C%<2C%=2:cx=0-cx
��D%>239D%=239:cy=0-cy
�.C=C%/4:�D%<48�C>X-1�C<X+8cy=�(cy):cx=d:�ta
�#�ta=6C%=(X+4)*4:D%=48:�-99ta=0
�D%<32�die
�C%>8�C%<140�D%>116�chk
"W%=2:�S%
#�bp=1�bp
,�tt=0�lvs=0
6W%=258:�S%
@�tt=0�clr:lvl=lvl+1:�Dd@
E	�DF@
J�
K��ta:�ta=5ta=6
L�ta=4��(cy)=4cy=8��ta=4cy=4
M
�ta=4ta=0
S�
T(��thg(x,y):n=�(�scr$,x+y*16+1,1))-64
^�n<1� �tt=tt+1
hp=�(n/2+.5):W%=1:Z%=p:�U%
rz=0:�n/2=�(n/2)z=1
|$W%=1:A%=16+x*8+z:B%=239-y*16:�S%
��P%
��
�
��load
�tt=0
�
�I=1�3
��#fl%,n
��19,I,n;0;
��
��#fl%,scr$
��A=0�15:�B=0�7
�
�thg(A,B)
��
��
�

��updt
�12,30);lvl
&�18,30)�lvs,�233)
0�26,30);scr
:�
D	��die
NW%=258:�S%
X�I=-15�0
b�0,I,6,1
l�
vlvs=lvs-1:�18+lvs,30)" "
�C%=(X+5)*4:D%=48:cx=2:cy=4
��
�	��chk
�c%=C%/8-1.5
�d%=(239-D%)/16
�2�scr$,c%+d%*16+1,1)<>" "�brk(c%,d%):cy=0-cy:�
�2�scr$,c%+d%*16+1,1)<>" "�brk(c%,d%):cy=0-cy:�
��
���brk(x,y)
�#W%=258:�S%:W%=259:�S%:�thg(x,y)
�r=x+y*16
�"scr$=�scr$,r)+" "+�scr$,127-r)
�tt=tt-2:scr=scr+1:�updt
,�bp=0��(20)=20bp=1:E%=17+x*8:F%=239-y*16
�
��bp
 F%=F%-6:W%=3:�S%
*/E=E%/4:�F%<48�E>X-1�E<X+8bp=0:ta=�(5):�bsnd
4�F%<32bp=0
>�bp=0W%=259:�S%
H�
R
��bsnd
��ta=1��(8)=8tt=0��ta=1ta=2
��ta=2scr=scr+5:�updt:ta=0
�#�ta=3�lvs<5lvs=lvs+1:�updt:ta=0
��1,1,ta*28,5
��
���clr:�28,0,27,39,0,12,26:�
���title
��scr$="A   BBCCCDDDE  EA   B C C  DE E AAAAB CCCDDDEE  A  AB C  D DE E AAAAB CCCDDDE  E                EEE  DDD GGG AAAE  E D D GGG A AEEE  DDD CCC A A"
�clr
 �B=0�8:�A=0�15:�thg(A,B):�:�
��TPg:a$="":b$=""
	�exch
�=0
$�:�>200�exch:�=0
&	��-99
-�clr
.�
/���win:�5,20)"You have completed BREAK DOWN!"�15,22)"scoring :";scr;�10,24)"Press SPACE to play":�A=0�200�8:�1,-15,A,1:�2,-14,A+16,1:�1,-13,A+28,1:�2,-12,A+48,1:�:���-99:�
8
��exch
= a$=b$:�b$:�b$="***"��TPg:�b$
Ba=�(a$):b=�(b$)
L�I=a/2�0�-1
V �19-I,24)" "�a$,I)�a$,I)" "
[�1,0,I*10,1:�0,-15,7,1
`�
a1c=�(7):d=�(7):e=�(7):� c=d � d=e � c=e � �DaD
b �19,1,c;0;19,2,d;0;19,3,e;0;
j�I=1�b/2
t�20-I,24)�b$,I)�b$,I)
y�1,0,I*10,1:�0,-15,7,1
~�
��
'\�"by Joshua Westbury  1992","for BBC PD","press SPACEBAR to play","Z left X right","***"
�
00000000  0d 00 0a 10 2a 52 55 4e  20 42 41 4c 43 4f 44 45  |....*RUN BALCODE|
00000010  0d 00 14 0e eb 31 3a d3  3d 26 32 38 30 30 0d 00  |.....1:.=&2800..|
00000020  1e 11 2a 4c 4f 41 44 20  42 41 4c 42 41 53 45 0d  |..*LOAD BALBASE.|
00000030  00 32 23 62 61 74 24 3d  22 20 22 2b bd 32 33 30  |.2#bat$=" "+.230|
00000040  2b c4 35 2c bd 32 33 31  29 2b bd 32 33 32 2b 22  |+.5,.231)+.232+"|
00000050  20 22 0d 00 3c 15 ef 32  33 3b 38 32 30 32 3b 30  | "..<..23;8202;0|
00000060  3b 30 3b 30 3b 30 3b 0d  00 46 07 d9 23 30 0d 00  |;0;0;0;..F..#0..|
00000070  4b 0a f2 74 69 74 6c 65  0d 00 4c 1f f1 8a 31 32  |K..title..L...12|
00000080  2c 33 30 29 22 20 20 20  22 8a 32 36 2c 33 30 29  |,30)"   ".26,30)|
00000090  22 20 20 20 20 20 22 0d  00 50 14 66 6c 25 3d 8e  |"     "..P.fl%=.|
000000a0  28 22 42 41 4c 4c 56 4c  53 22 29 0d 00 5a 15 6c  |("BALLVLS")..Z.l|
000000b0  76 6c 3d 31 3a 73 63 72  3d 30 3a 6c 76 73 3d 35  |vl=1:scr=0:lvs=5|
000000c0  0d 00 64 09 f2 6c 6f 61  64 0d 00 69 17 e7 20 6c  |..d..load..i.. l|
000000d0  76 6c 3d 33 31 20 f2 77  69 6e 3a e5 8d 44 46 40  |vl=31 .win:..DF@|
000000e0  0d 00 6e 08 58 3d 31 35  0d 00 78 1d 43 25 3d 38  |..n.X=15..x.C%=8|
000000f0  30 3a 44 25 3d 34 38 3a  57 25 3d 32 3a 5a 25 3d  |0:D%=48:W%=2:Z%=|
00000100  37 3a d6 55 25 0d 00 82  0d 63 78 3d 30 3a 63 79  |7:.U%....cx=0:cy|
00000110  3d 34 0d 00 8c 09 f2 75  70 64 74 0d 00 96 1b 62  |=4.....updt....b|
00000120  70 3d 30 3a 74 61 3d 30  3a 57 25 3d 33 3a 5a 25  |p=0:ta=0:W%=3:Z%|
00000130  3d 37 3a d6 55 25 0d 00  a0 05 f5 0d 00 aa 07 64  |=7:.U%.........d|
00000140  3d 30 0d 00 b4 20 e7 a6  2d 39 38 58 3d 58 2d 31  |=0... ..-98X=X-1|
00000150  3a 64 3d 2d 32 2a b3 28  32 29 3a e7 58 3c 30 58  |:d=-2*.(2):.X<0X|
00000160  3d 30 0d 00 be 21 e7 a6  2d 36 37 58 3d 58 2b 31  |=0...!..-67X=X+1|
00000170  3a 64 3d 32 2a b3 28 32  29 3a e7 58 3e 33 31 58  |:d=2*.(2):.X>31X|
00000180  3d 33 31 0d 00 c8 10 f1  8a 58 2c 32 36 29 3b 62  |=31......X,26);b|
00000190  61 74 24 0d 00 d2 15 43  25 3d 43 25 2b 63 78 3a  |at$....C%=C%+cx:|
000001a0  44 25 3d 44 25 2b 63 79  0d 00 dc 19 e7 43 25 3e  |D%=D%+cy.....C%>|
000001b0  31 35 30 43 25 3d 31 35  30 3a 63 78 3d 30 2d 63  |150C%=150:cx=0-c|
000001c0  78 0d 00 e6 15 e7 43 25  3c 32 43 25 3d 32 3a 63  |x.....C%<2C%=2:c|
000001d0  78 3d 30 2d 63 78 0d 00  f0 19 e7 44 25 3e 32 33  |x=0-cx.....D%>23|
000001e0  39 44 25 3d 32 33 39 3a  63 79 3d 30 2d 63 79 0d  |9D%=239:cy=0-cy.|
000001f0  00 fa 2e 43 3d 43 25 2f  34 3a e7 44 25 3c 34 38  |...C=C%/4:.D%<48|
00000200  80 43 3e 58 2d 31 80 43  3c 58 2b 38 63 79 3d 94  |.C>X-1.C<X+8cy=.|
00000210  28 63 79 29 3a 63 78 3d  64 3a f2 74 61 0d 00 ff  |(cy):cx=d:.ta...|
00000220  23 e7 74 61 3d 36 43 25  3d 28 58 2b 34 29 2a 34  |#.ta=6C%=(X+4)*4|
00000230  3a 44 25 3d 34 38 3a e7  a6 2d 39 39 74 61 3d 30  |:D%=48:..-99ta=0|
00000240  0d 01 04 0e e7 44 25 3c  33 32 f2 64 69 65 0d 01  |.....D%<32.die..|
00000250  0e 1b e7 43 25 3e 38 80  43 25 3c 31 34 30 80 44  |...C%>8.C%<140.D|
00000260  25 3e 31 31 36 f2 63 68  6b 0d 01 22 0c 57 25 3d  |%>116.chk..".W%=|
00000270  32 3a d6 53 25 0d 01 23  0c e7 62 70 3d 31 f2 62  |2:.S%..#..bp=1.b|
00000280  70 0d 01 2c 0f fd 74 74  3d 30 84 6c 76 73 3d 30  |p..,..tt=0.lvs=0|
00000290  0d 01 36 0e 57 25 3d 32  35 38 3a d6 53 25 0d 01  |..6.W%=258:.S%..|
000002a0  40 1d e7 74 74 3d 30 f2  63 6c 72 3a 6c 76 6c 3d  |@..tt=0.clr:lvl=|
000002b0  6c 76 6c 2b 31 3a e5 8d  44 64 40 0d 01 45 09 e5  |lvl+1:..Dd@..E..|
000002c0  8d 44 46 40 0d 01 4a 05  e0 0d 01 4b 12 dd f2 74  |.DF@..J....K...t|
000002d0  61 3a e7 74 61 3d 35 74  61 3d 36 0d 01 4c 1f e7  |a:.ta=5ta=6..L..|
000002e0  74 61 3d 34 80 94 28 63  79 29 3d 34 63 79 3d 38  |ta=4..(cy)=4cy=8|
000002f0  8b e7 74 61 3d 34 63 79  3d 34 0d 01 4d 0d e7 74  |..ta=4cy=4..M..t|
00000300  61 3d 34 74 61 3d 30 0d  01 53 05 e1 0d 01 54 28  |a=4ta=0..S....T(|
00000310  dd f2 74 68 67 28 78 2c  79 29 3a 6e 3d 97 28 c1  |..thg(x,y):n=.(.|
00000320  73 63 72 24 2c 78 2b 79  2a 31 36 2b 31 2c 31 29  |scr$,x+y*16+1,1)|
00000330  29 2d 36 34 0d 01 5e 12  e7 6e 3c 31 e1 20 8b 74  |)-64..^..n<1. .t|
00000340  74 3d 74 74 2b 31 0d 01  68 1d 70 3d a8 28 6e 2f  |t=tt+1..h.p=.(n/|
00000350  32 2b 2e 35 29 3a 57 25  3d 31 3a 5a 25 3d 70 3a  |2+.5):W%=1:Z%=p:|
00000360  d6 55 25 0d 01 72 16 7a  3d 30 3a e7 6e 2f 32 3d  |.U%..r.z=0:.n/2=|
00000370  a8 28 6e 2f 32 29 7a 3d  31 0d 01 7c 24 57 25 3d  |.(n/2)z=1..|$W%=|
00000380  31 3a 41 25 3d 31 36 2b  78 2a 38 2b 7a 3a 42 25  |1:A%=16+x*8+z:B%|
00000390  3d 32 33 39 2d 79 2a 31  36 3a d6 53 25 0d 01 86  |=239-y*16:.S%...|
000003a0  07 d6 50 25 0d 01 90 05  e1 0d 01 9a 0a dd f2 6c  |..P%...........l|
000003b0  6f 61 64 0d 01 a4 08 74  74 3d 30 0d 01 ae 0a e3  |oad....tt=0.....|
000003c0  49 3d 31 b8 33 0d 01 b8  0b e8 23 66 6c 25 2c 6e  |I=1.3.....#fl%,n|
000003d0  0d 01 c2 0e ef 31 39 2c  49 2c 6e 3b 30 3b 0d 01  |.....19,I,n;0;..|
000003e0  cc 05 ed 0d 01 d6 0e e8  23 66 6c 25 2c 73 63 72  |........#fl%,scr|
000003f0  24 0d 01 e0 12 e3 41 3d  30 b8 31 35 3a e3 42 3d  |$.....A=0.15:.B=|
00000400  30 b8 37 0d 01 ea 0d f2  74 68 67 28 41 2c 42 29  |0.7.....thg(A,B)|
00000410  0d 01 f4 05 ed 0d 01 fe  05 ed 0d 02 08 05 e1 0d  |................|
00000420  02 12 0a dd f2 75 70 64  74 0d 02 1c 10 f1 8a 31  |.....updt......1|
00000430  32 2c 33 30 29 3b 6c 76  6c 0d 02 26 16 f1 8a 31  |2,30);lvl..&...1|
00000440  38 2c 33 30 29 c4 6c 76  73 2c bd 32 33 33 29 0d  |8,30).lvs,.233).|
00000450  02 30 10 f1 8a 32 36 2c  33 30 29 3b 73 63 72 0d  |.0...26,30);scr.|
00000460  02 3a 05 e1 0d 02 44 09  dd f2 64 69 65 0d 02 4e  |.:....D...die..N|
00000470  0e 57 25 3d 32 35 38 3a  d6 53 25 0d 02 58 0c e3  |.W%=258:.S%..X..|
00000480  49 3d 2d 31 35 b8 30 0d  02 62 0c d4 30 2c 49 2c  |I=-15.0..b..0,I,|
00000490  36 2c 31 0d 02 6c 05 ed  0d 02 76 1d 6c 76 73 3d  |6,1..l....v.lvs=|
000004a0  6c 76 73 2d 31 3a f1 8a  31 38 2b 6c 76 73 2c 33  |lvs-1:..18+lvs,3|
000004b0  30 29 22 20 22 0d 02 80  1e 43 25 3d 28 58 2b 35  |0)" "....C%=(X+5|
000004c0  29 2a 34 3a 44 25 3d 34  38 3a 63 78 3d 32 3a 63  |)*4:D%=48:cx=2:c|
000004d0  79 3d 34 0d 02 8a 05 e1  0d 02 94 09 dd f2 63 68  |y=4...........ch|
000004e0  6b 0d 02 9e 0f 63 25 3d  43 25 2f 38 2d 31 2e 35  |k....c%=C%/8-1.5|
000004f0  0d 02 a8 12 64 25 3d 28  32 33 39 2d 44 25 29 2f  |....d%=(239-D%)/|
00000500  31 36 0d 02 b2 32 e7 c1  73 63 72 24 2c 63 25 2b  |16...2..scr$,c%+|
00000510  64 25 2a 31 36 2b 31 2c  31 29 3c 3e 22 20 22 f2  |d%*16+1,1)<>" ".|
00000520  62 72 6b 28 63 25 2c 64  25 29 3a 63 79 3d 30 2d  |brk(c%,d%):cy=0-|
00000530  63 79 3a e1 0d 02 bc 32  e7 c1 73 63 72 24 2c 63  |cy:....2..scr$,c|
00000540  25 2b 64 25 2a 31 36 2b  31 2c 31 29 3c 3e 22 20  |%+d%*16+1,1)<>" |
00000550  22 f2 62 72 6b 28 63 25  2c 64 25 29 3a 63 79 3d  |".brk(c%,d%):cy=|
00000560  30 2d 63 79 3a e1 0d 02  c6 05 e1 0d 02 d0 0e dd  |0-cy:...........|
00000570  f2 62 72 6b 28 78 2c 79  29 0d 02 da 23 57 25 3d  |.brk(x,y)...#W%=|
00000580  32 35 38 3a d6 53 25 3a  57 25 3d 32 35 39 3a d6  |258:.S%:W%=259:.|
00000590  53 25 3a f2 74 68 67 28  78 2c 79 29 0d 02 e4 0c  |S%:.thg(x,y)....|
000005a0  72 3d 78 2b 79 2a 31 36  0d 02 ee 22 73 63 72 24  |r=x+y*16..."scr$|
000005b0  3d c0 73 63 72 24 2c 72  29 2b 22 20 22 2b c2 73  |=.scr$,r)+" "+.s|
000005c0  63 72 24 2c 31 32 37 2d  72 29 0d 02 f8 1b 74 74  |cr$,127-r)....tt|
000005d0  3d 74 74 2d 32 3a 73 63  72 3d 73 63 72 2b 31 3a  |=tt-2:scr=scr+1:|
000005e0  f2 75 70 64 74 0d 03 02  2c e7 62 70 3d 30 80 b3  |.updt...,.bp=0..|
000005f0  28 32 30 29 3d 32 30 62  70 3d 31 3a 45 25 3d 31  |(20)=20bp=1:E%=1|
00000600  37 2b 78 2a 38 3a 46 25  3d 32 33 39 2d 79 2a 31  |7+x*8:F%=239-y*1|
00000610  36 0d 03 0c 05 e1 0d 03  16 08 dd f2 62 70 0d 03  |6...........bp..|
00000620  20 14 46 25 3d 46 25 2d  36 3a 57 25 3d 33 3a d6  | .F%=F%-6:W%=3:.|
00000630  53 25 0d 03 2a 2f 45 3d  45 25 2f 34 3a e7 46 25  |S%..*/E=E%/4:.F%|
00000640  3c 34 38 80 45 3e 58 2d  31 80 45 3c 58 2b 38 62  |<48.E>X-1.E<X+8b|
00000650  70 3d 30 3a 74 61 3d b3  28 35 29 3a f2 62 73 6e  |p=0:ta=.(5):.bsn|
00000660  64 0d 03 34 0e e7 46 25  3c 33 32 62 70 3d 30 0d  |d..4..F%<32bp=0.|
00000670  03 3e 13 e7 62 70 3d 30  57 25 3d 32 35 39 3a d6  |.>..bp=0W%=259:.|
00000680  53 25 0d 03 48 05 e1 0d  03 52 0a dd f2 62 73 6e  |S%..H....R...bsn|
00000690  64 0d 03 85 1e e7 74 61  3d 31 80 b3 28 38 29 3d  |d.....ta=1..(8)=|
000006a0  38 74 74 3d 30 8b e7 74  61 3d 31 74 61 3d 32 0d  |8tt=0..ta=1ta=2.|
000006b0  03 86 1d e7 74 61 3d 32  73 63 72 3d 73 63 72 2b  |....ta=2scr=scr+|
000006c0  35 3a f2 75 70 64 74 3a  74 61 3d 30 0d 03 87 23  |5:.updt:ta=0...#|
000006d0  e7 74 61 3d 33 80 6c 76  73 3c 35 6c 76 73 3d 6c  |.ta=3.lvs<5lvs=l|
000006e0  76 73 2b 31 3a f2 75 70  64 74 3a 74 61 3d 30 0d  |vs+1:.updt:ta=0.|
000006f0  03 88 10 d4 31 2c 31 2c  74 61 2a 32 38 2c 35 0d  |....1,1,ta*28,5.|
00000700  03 8e 05 e1 0d 03 e8 1f  dd f2 63 6c 72 3a ef 32  |..........clr:.2|
00000710  38 2c 30 2c 32 37 2c 33  39 2c 30 2c 31 32 2c 32  |8,0,27,39,0,12,2|
00000720  36 3a e1 0d 03 f2 0b dd  f2 74 69 74 6c 65 0d 03  |6:.......title..|
00000730  fc 9b 73 63 72 24 3d 22  41 20 20 20 42 42 43 43  |..scr$="A   BBCC|
00000740  43 44 44 44 45 20 20 45  41 20 20 20 42 20 43 20  |CDDDE  EA   B C |
00000750  43 20 20 44 45 20 45 20  41 41 41 41 42 20 43 43  |C  DE E AAAAB CC|
00000760  43 44 44 44 45 45 20 20  41 20 20 41 42 20 43 20  |CDDDEE  A  AB C |
00000770  20 44 20 44 45 20 45 20  41 41 41 41 42 20 43 43  | D DE E AAAAB CC|
00000780  43 44 44 44 45 20 20 45  20 20 20 20 20 20 20 20  |CDDDE  E        |
00000790  20 20 20 20 20 20 20 20  45 45 45 20 20 44 44 44  |        EEE  DDD|
000007a0  20 47 47 47 20 41 41 41  45 20 20 45 20 44 20 44  | GGG AAAE  E D D|
000007b0  20 47 47 47 20 41 20 41  45 45 45 20 20 44 44 44  | GGG A AEEE  DDD|
000007c0  20 43 43 43 20 41 20 41  22 0d 04 06 08 f2 63 6c  | CCC A A".....cl|
000007d0  72 0d 04 10 20 e3 42 3d  30 b8 38 3a e3 41 3d 30  |r... .B=0.8:.A=0|
000007e0  b8 31 35 3a f2 74 68 67  28 41 2c 42 29 3a ed 3a  |.15:.thg(A,B):.:|
000007f0  ed 0d 04 1a 15 f7 8d 54  50 67 3a 61 24 3d 22 22  |.......TPg:a$=""|
00000800  3a 62 24 3d 22 22 0d 04  1c 09 f2 65 78 63 68 0d  |:b$="".....exch.|
00000810  04 1f 07 d1 3d 30 0d 04  24 15 f5 3a e7 91 3e 32  |....=0..$..:..>2|
00000820  30 30 f2 65 78 63 68 3a  d1 3d 30 0d 04 26 09 fd  |00.exch:.=0..&..|
00000830  a6 2d 39 39 0d 04 2d 08  f2 63 6c 72 0d 04 2e 05  |.-99..-..clr....|
00000840  e1 0d 04 2f af dd f2 77  69 6e 3a f1 8a 35 2c 32  |.../...win:..5,2|
00000850  30 29 22 59 6f 75 20 68  61 76 65 20 63 6f 6d 70  |0)"You have comp|
00000860  6c 65 74 65 64 20 42 52  45 41 4b 20 44 4f 57 4e  |leted BREAK DOWN|
00000870  21 22 8a 31 35 2c 32 32  29 22 73 63 6f 72 69 6e  |!".15,22)"scorin|
00000880  67 20 3a 22 3b 73 63 72  3b 8a 31 30 2c 32 34 29  |g :";scr;.10,24)|
00000890  22 50 72 65 73 73 20 53  50 41 43 45 20 74 6f 20  |"Press SPACE to |
000008a0  70 6c 61 79 22 3a e3 41  3d 30 b8 32 30 30 88 38  |play":.A=0.200.8|
000008b0  3a d4 31 2c 2d 31 35 2c  41 2c 31 3a d4 32 2c 2d  |:.1,-15,A,1:.2,-|
000008c0  31 34 2c 41 2b 31 36 2c  31 3a d4 31 2c 2d 31 33  |14,A+16,1:.1,-13|
000008d0  2c 41 2b 32 38 2c 31 3a  d4 32 2c 2d 31 32 2c 41  |,A+28,1:.2,-12,A|
000008e0  2b 34 38 2c 31 3a ed 3a  f5 fd a6 2d 39 39 3a e1  |+48,1:.:...-99:.|
000008f0  0d 04 38 0a dd f2 65 78  63 68 0d 04 3d 20 61 24  |..8...exch..= a$|
00000900  3d 62 24 3a f3 62 24 3a  e7 62 24 3d 22 2a 2a 2a  |=b$:.b$:.b$="***|
00000910  22 f7 8d 54 50 67 3a f3  62 24 0d 04 42 13 61 3d  |"..TPg:.b$..B.a=|
00000920  a9 28 61 24 29 3a 62 3d  a9 28 62 24 29 0d 04 4c  |.(a$):b=.(b$)..L|
00000930  0f e3 49 3d 61 2f 32 b8  30 88 2d 31 0d 04 56 20  |..I=a/2.0.-1..V |
00000940  f1 8a 31 39 2d 49 2c 32  34 29 22 20 22 c0 61 24  |..19-I,24)" ".a$|
00000950  2c 49 29 c2 61 24 2c 49  29 22 20 22 0d 04 5b 1a  |,I).a$,I)" "..[.|
00000960  d4 31 2c 30 2c 49 2a 31  30 2c 31 3a d4 30 2c 2d  |.1,0,I*10,1:.0,-|
00000970  31 35 2c 37 2c 31 0d 04  60 05 ed 0d 04 61 31 63  |15,7,1..`....a1c|
00000980  3d b3 28 37 29 3a 64 3d  b3 28 37 29 3a 65 3d b3  |=.(7):d=.(7):e=.|
00000990  28 37 29 3a e7 20 63 3d  64 20 84 20 64 3d 65 20  |(7):. c=d . d=e |
000009a0  84 20 63 3d 65 20 e5 20  8d 44 61 44 0d 04 62 20  |. c=e . .DaD..b |
000009b0  ef 31 39 2c 31 2c 63 3b  30 3b 31 39 2c 32 2c 64  |.19,1,c;0;19,2,d|
000009c0  3b 30 3b 31 39 2c 33 2c  65 3b 30 3b 0d 04 6a 0c  |;0;19,3,e;0;..j.|
000009d0  e3 49 3d 31 b8 62 2f 32  0d 04 74 1a f1 8a 32 30  |.I=1.b/2..t...20|
000009e0  2d 49 2c 32 34 29 c0 62  24 2c 49 29 c2 62 24 2c  |-I,24).b$,I).b$,|
000009f0  49 29 0d 04 79 1a d4 31  2c 30 2c 49 2a 31 30 2c  |I)..y..1,0,I*10,|
00000a00  31 3a d4 30 2c 2d 31 35  2c 37 2c 31 0d 04 7e 05  |1:.0,-15,7,1..~.|
00000a10  ed 0d 04 88 05 e1 0d 27  10 5c dc 22 62 79 20 4a  |.......'.\."by J|
00000a20  6f 73 68 75 61 20 57 65  73 74 62 75 72 79 20 20  |oshua Westbury  |
00000a30  31 39 39 32 22 2c 22 66  6f 72 20 42 42 43 20 50  |1992","for BBC P|
00000a40  44 22 2c 22 70 72 65 73  73 20 53 50 41 43 45 42  |D","press SPACEB|
00000a50  41 52 20 74 6f 20 70 6c  61 79 22 2c 22 5a 20 6c  |AR to play","Z l|
00000a60  65 66 74 20 58 20 72 69  67 68 74 22 2c 22 2a 2a  |eft X right","**|
00000a70  2a 22 0d ff                                       |*"..|
00000a74
G/S/BALGAME.m0
G/S/BALGAME.m1
G/S/BALGAME.m2
G/S/BALGAME.m4
G/S/BALGAME.m5