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 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc117_D-BBC117.dsd » B.BALGAME
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_34.ADF » G/S/BALGAME
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