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 » Electron » Micropower.ADF » BumbleBee/BUMBLE1
- Personal collection » Acorn hard disk » zipped_disks » elk08 » micropower/BumbleBee/BUMBLE1
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape19a_acorn_micropower_bumble_bee.wav » BUMBLE
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape19a_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<�������� ��� "