Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » BumbleBee/BUMBLE1
BumbleBee/BUMBLE1
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 » Micropower.ADF |
| Filename: | BumbleBee/BUMBLE1 |
| Read OK: | ✔ |
| File size: | 1C40 bytes |
| Load address: | 1900 |
| Exec address: | 8023 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- AEW website » micropower » micropower_tapes_Bumble-Bee_BumbleBee_E.uef » BUMBLE
- Personal collection » Acorn ADFS disks » Zipped » zipped_disks » elk08 » micropower/BumbleBee/BUMBLE1
- Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » BumbleBee/BUMBLE1
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape22a_acorn_micropower_bumble_bee.wav » BUMBLE
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape22a_acorn_micropower_bumble_bee.wav » BUMBLE
File contents
132DATA5
2300MODE5:LOMEM=&3600:HIMEM=&5800
2305DIM BIT(4):AC=0
2400VDU23,1,0;0;0;0;19,1,6;0;
2500READ T%:VDU19,3,T%;0;
2600COLOUR131:CLS
2700L%=96:R%=1184
2800GCOL0,0
2900FOR X%=0 TO 1248 STEP 24
3000MOVE X%,0:DRAW X%,1025
3100MOVE 0,X%*.8333:DRAW 1280,X%*.8333
3200NEXT
3300PROCb(L%,64,R%,256)
3500COLOUR0:COLOUR130
3600PROCs(6,2,"MICRO",FALSE)
3700PROCs(6,5,"POWER",FALSE)
4400COLOUR0
4500VDU 28,2,28,17,24,23,1,1;0;0;0;0;
4600?(PAGE+&1C0D)=PAGE DIV256+&1B:CALLPAGE+&1C00
4700PRINT" Do you want to"''" use joysticks?";:A$=GET$:PRINTA$:IF A$="Y"ORA$="y"THEN PROCjoy ELSE !&140=0
4800CLS:*/BEE
5200END
5300DEFPROCa(A%,B%,C%,D%,E%)
5400VDU24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
5500ENDPROC
5600
5700DEFPROCb(A%,B%,C%,D%)
5800PROCa(A%,B%,C%,D%,1)
5900PROCa(A%+16,B%+16,C%+16,D%+16,2)
6000ENDPROC
6100
6200DEFPROCd(X%,Y%,C%)
6300LOCAL A%,B%
6400A%=&5800+320*Y%+X%*16
6500VDU 31,X%,Y%,C%
6600FORB%=0TO7
6700?(A%+320+B%)=?(A%+B%DIV2+4)
6800?(A%+328+B%)=?(A%+B%DIV2+12)
6900NEXT
7000FOR B%=7 TO 0 STEP -1
7100?(A%+B%)=?(A%+B%DIV2)
7200?(A%+B%+8)=?(A%+8+B%DIV2)
7300NEXT
7400ENDPROC
7500DEFPROCs(X%,Y%,A$,F%)
7600LOCAL A%
7700FOR A%=1 TO LEN A$
7800IF F% THEN PROCd(X%+A%-1,Y%,ASCMID$(A$,A%)) ELSE PROCl(X%+A%*2-2,Y%,ASCMID$(A$,A%))
7900NEXT
8000ENDPROC
8100
8200DEFPROCl(x%,y%,L%)
8300LOCAL A%,B%:A%=x%*64:B%=32*(31-y%)
8400PROCb(A%-32,B%-32,A%+64,B%+32)
8500VDU 31,x%,y%,L%
8600ENDPROC
9000DEFPROCjoy
9100VDU7:A=INKEY(100):CLS:PRINT" Please enter"''"joystick address ";
9200ADD=0:T=4
9250REPEAT
9300REPEAT A$=GET$:X=INSTR("0123456789ABCDEFabcdefOo"+CHR$127+CHR$13,A$):UNTIL X<>0
9310IF X=25 AND T<4THEN VDU8,32,8:ADD=ADD-(ADD AND ((16^T)*15)):T=T+1:GOTO9300
9320IF X=23 OR X=24THEN X=1
9350IF X>16 AND X<25THEN X=X-6
9400IF T>0 AND X<17 PRINTA$;:ADD=ADD+(X-1)*16^(T-1):T=T-1
9500UNTILT=0 AND X=26
9600VDU7:CLS:PRINT" Enter code"''" 0 if not known "';
9605A$="":T=1:REPEAT
9610REPEAT B$=GET$:X=INSTR("0123456789OI"+CHR$13+"oi"+CHR$127,B$):UNTILX<>0:IFX=11ORX=14THENX=1
9612IFX=12ORX=15THENX=2
9620IFX=16ANDT>1THENT=T-1:VDU8,32,8:A$=LEFT$(A$,T):GOTO9610
9630IFT<4 ANDX<11THENPRINTB$;:A$=A$+STR$(X-1):T=T+1
9640UNTIL X=13 ANDT>1
9650VDU7:A=EVALA$:IF A$="0"THENPROCrcode:GOTO9760
9700IFA<1 OR (A>120 AND A<129) OR A>248 THEN PRINT''" Please check !":A=INKEY(200):GOTO9600
9710A$="43210":AC=255*((A-1) DIV128):A=(A-1)MOD128
9720R=A DIV24:A=A MOD24:IFR>0FORT=1TOR:A$=RIGHT$(A$,1)+LEFT$(A$,4):NEXT
9730R=A DIV6:A=A MOD6:IFR>0FORT=1TOR:A$=MID$(A$,4,1)+LEFT$(A$,3)+RIGHT$(A$,1):NEXT
9740R=A DIV2:A=A MOD2:IFR>0FORT=1TOR:A$=MID$(A$,3,1)+LEFT$(A$,2)+RIGHT$(A$,2):NEXT
9750 IFA=1THENA$=MID$(A$,2,1)+LEFT$(A$,1)+RIGHT$(A$,3)
9760!&140=ADD:?&142=AC:!&143=EVAL("&FFF"+A$)
9770ENDPROC
9780DEFPROCrcode
9790BF=0:PROCrbits("Centre stick",1):BF=1
9800T=BIT(0)+BIT(1)+BIT(2)+BIT(3)+BIT(4):IFT<>0ANDT<>5THEN9790
9802IFT=5THENAC=255ELSEAC=0
9805FORX=0TO4:BIT(X)=0:NEXT
9810PROCrbits("Move down",1)
9820PROCrbits("Move right",3)
9830PROCrbits("Move left",2)
9840PROCrbits("Press fire",4)
9850A$=STR$(BIT(4))+STR$(BIT(3))+STR$(BIT(2))+STR$(BIT(1))+STR$(BIT(0))
9855AC=AC EOR255
9860ENDPROC
9870DEFPROCrbits(M$,B)
9880CLS:PRINTM$
9890A=?ADD:F=0:FORX=0TO4:T=B*(((A EOR AC) AND 2^X)/2^X):IFT<>0THENBIT(X)=T:F=1
9895NEXT
9897IFF=0ANDBF=1THEN9890ELSEVDU7
9898CLS:PRINT" Release":REPEAT UNTIL (?ADD AND 31)=0 OR(?ADD AND 31)=31
9900ENDPROC
��5
��5:�=&3600:�=&5800
� BIT(4):AC=0
`�23,1,0;0;0;0;19,1,6;0;
�� T%:�19,3,T%;0;
(
�131:�
�L%=96:R%=1184
��0,0
T� X%=0 � 1248 � 24
�� X%,0:� X%,1025
� 0,X%*.8333:� 1280,X%*.8333
��
��b(L%,64,R%,256)
��0:�130
�s(6,2,"MICRO",�)
t�s(6,5,"POWER",�)
0�0
�#� 28,2,28,17,24,23,1,1;0;0;0;0;
�"?(�+&1C0D)=� �256+&1B:+&1C00
\S�" Do you want to"''" use joysticks?";:A$=�:�A$:� A$="Y"�A$="y"� �joy � !&140=0
��:*/BEE
P�
���a(A%,B%,C%,D%,E%)
C�24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
|�
�
D��b(A%,B%,C%,D%)
��a(A%,B%,C%,D%,1)
!�a(A%+16,B%+16,C%+16,D%+16,2)
p�
�
8��d(X%,Y%,C%)
�� A%,B%
A%=&5800+320*Y%+X%*16
d� 31,X%,Y%,C%
��B%=0�7
,?(A%+320+B%)=?(A%+B%�2+4)
�?(A%+328+B%)=?(A%+B%�2+12)
��
X� B%=7 � 0 � -1
�?(A%+B%)=?(A%+B%�2)
?(A%+B%+8)=?(A%+8+B%�2)
��
��
L��s(X%,Y%,A$,F%)
�� A%
� A%=1 � � A$
x>� F% � �d(X%+A%-1,Y%,��A$,A%)) � �l(X%+A%*2-2,Y%,��A$,A%))
��
@�
�
��l(x%,y%,L%)
l"� A%,B%:A%=x%*64:B%=32*(31-y%)
��b(A%-32,B%-32,A%+64,B%+32)
!4� 31,x%,y%,L%
!��
#( ��joy
#�9�7:A=�(100):�:�" Please enter"''"joystick address ";
#�
ADD=0:T=4
$"�
$T<� A$=�:X=�"0123456789ABCDEFabcdefOo"+�127+�13,A$):� X<>0
$^A� X=25 � T<4� �8,32,8:ADD=ADD-(ADD � ((16^T)*15)):T=T+1:�DTd
$h� X=23 � X=24� X=1
$�� X>16 � X<25� X=X-6
$�3� T>0 � X<17 �A$;:ADD=ADD+(X-1)*16^(T-1):T=T-1
%�T=0 � X=26
%�/�7:�:�" Enter code"''" 0 if not known "';
%�A$="":T=1:�
%�C� B$=�:X=�"0123456789OI"+�13+"oi"+�127,B$):�X<>0:�X=11�X=14�X=1
%��X=12�X=15�X=2
%�+�X=16�T>1�T=T-1:�8,32,8:A$=�A$,T):�tJe
%�&�T<4 �X<11��B$;:A$=A$+�(X-1):T=T+1
%�� X=13 �T>1
%�"�7:A=�A$:� A$="0"��rcode:�T`f
%�I�A<1 � (A>120 � A<129) � A>248 � �''" Please check !":A=�(200):�t@e
%�.A$="43210":AC=255*((A-1) �128):A=(A-1)�128
%�1R=A �24:A=A �24:�R>0�T=1�R:A$=�A$,1)+�A$,4):�
&8R=A �6:A=A �6:�R>0�T=1�R:A$=�A$,4,1)+�A$,3)+�A$,1):�
&8R=A �2:A=A �2:�R>0�T=1�R:A$=�A$,3,1)+�A$,2)+�A$,2):�
&# �A=1�A$=�A$,2,1)+�A$,1)+�A$,3)
& )!&140=ADD:?&142=AC:!&143=�("&FFF"+A$)
&*�
&4��rcode
&>&BF=0:�rbits("Centre stick",1):BF=1
&H8T=BIT(0)+BIT(1)+BIT(2)+BIT(3)+BIT(4):�T<>0�T<>5��T~f
&J�T=5�AC=255�AC=0
&M�X=0�4:BIT(X)=0:�
&R�rbits("Move down",1)
&\�rbits("Move right",3)
&f�rbits("Move left",2)
&p�rbits("Press fire",4)
&z8A$=�(BIT(4))+�(BIT(3))+�(BIT(2))+�(BIT(1))+�(BIT(0))
&AC=AC �255
&��
&���rbits(M$,B)
&� �:�M$
&�CA=?ADD:F=0:�X=0�4:T=B*(((A � AC) � 2^X)/2^X):�T<>0�BIT(X)=T:F=1
&��
&��F=0�BF=1��tbf��7
&�5�:�" Release":� � (?ADD � 31)=0 �(?ADD � 31)=31
&��
�3<�Y���ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ����0ff ftp���� ���ф�� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ww wwww ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���ffffttp�������0���� �Ç���� ���ffff fff���� ��ݻ��� ���ffff fff���� ��ݻ��� ���wwww wwwf ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �f ffvv0t������� ��ÇpaC x��� ����ѻ ���� �f ffff f� ���� ݻ ���� �f ffff f� ���� ݻ ���� �w wwww wfff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����fff ftp����`���� ��33pp���88x�����������Ё�������� ��� ����fff ffff��� ���ݻ�� ����fff ffff��� ���ݻ�� ����www wwww ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� ffff � ���p�������� ���� 3333 ��V��x���������������
<�Y��� ���� �� ffff ff ���� �� ���� �� ffff ff ���� �� ���� �� wwww wwff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffff �� ���� �� ���� ff ffvt0��������������C x���pp����� 3333 tt0tttt0����������������00<�������� ��� "