Home » Personal collection » Acorn ADFS disks » Electron » Superior_collection_3.ADF » 10HITS-3/Centibug/CENTI
10HITS-3/Centibug/CENTI
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 » Superior_collection_3.ADF |
Filename: | 10HITS-3/Centibug/CENTI |
Read OK: | ✔ |
File size: | 1E77 bytes |
Load address: | 0E00 |
Exec address: | 2C00 |
Duplicates
There are 10 duplicate copies of this file in the archive:
- AEW website » acp_pres » acp_pres_3_5_discs_Pres-Games-Disc-6_A-PRE6.adf » 7/CENTI
- AEW website » superior » superior_3_5_discs_Centibug_HA-CENT.adf » CENTI
- AEW website » acp_pres » acp_pres_5_25_discs_Pres-Games-Disc-6_D-PRE6.ssd » 7.CENTI
- AEW website » beau_jolly » beau_jolly_5_25_discs_10-Computer-Hits-3_HD-10C3.dsd » A.CENTI
- AEW website » superior » superior_5_25_discs_Centibug_HD-CENT.ssd » CENTI
- AEW website » superior » superior_tapes_Centibug_Centibug_E.uef » .
- AEW website » superior » superior_tapes_Centipede_Centibug_E.uef » .
- Personal collection » Acorn ADFS disks » Electron » Superior_collection_3.ADF » 10HITS-3/Centibug/CENTI
- Personal collection » Acorn hard disk » zipped_disks » elk06 » supcol3/10HITS-3/Centibug/CENTI
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape05a_acorn_computer_hits_3.wav » CENTI
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape05b_acorn_computer_hits_3.wav » CENTI
File contents
356REMLENANDINTERRORpLEN/ERRORqLEN0TIMEpLOADPAGECOLOURGCOLqINKEYqEND7PAGEREADORpTIMEpORIGINpLOADLOADLOADLOADLOADLOADLOADPAGEPROCGCOLqINKEYqEND:PAGELOCAL`KPAGE>ZCLSTO#DELETECLS,&ENDPROCFORkg1AND\ 200LOMEM=&2FC9 300ONERRORRUN 400*FX9,15 500*FX10,70 600ENVELOPE1,1,-4,-1,-1,40,40,30,127,0,-1,-2,126,126:ENVELOPE2,1,3,4,5,6,2,4,127,-1,0,-3,127,115:ENVELOPE3,1,4,-1,-2,20,25,15,105,0,-1,-2,105,104:ENVELOPE4,1,5,10,15,5,10,15,126,-50,-1,-1,126,125 1000VDU23,224,255,255,255,255,255,255,255,255 1100*TV255,1 1200@%=1:MODE1:GOSUB4300:R%=&2F70:P%=&2F84:H%=0:!1232=!14 1300FORI%=0TO4:R%!(4*I%)=0:P%?(13*I%)=13:NEXT 1400MODE2:GOSUB6600:CALL&2AB8 1500VDU5:GCOL0,3:MOVE388,1008:PRINT"CENTIBUG"CHR$4 1600COLOUR132:PRINT'" 0"; 1700I%=13:IFH%<1:I%=14 1800IFH%>99:I%=12 1900PRINTSPCI%;10*H%;TAB(0,2); 1950GOSUB7000 2000CALL&2900 2100*FX15,1 2200I%=?&2FC7:J%=?&2FC6:O%=1000*(I%DIV16)+100*(I%MOD16)+10*(J%DIV16)+(J%MOD16) 2300MODE1 2400C%=1:FORI%=16TO0STEP-4:IFO%>R%!I% C%=I% 2500NEXT:IFC%=1PRINT' 2600PRINT"Score: ";O%*10".":IFC%=1GOTO3300 2700IFC%<16FORI%=4TOC%/4+1STEP-1:R%!(4*I%)=R%!(4*I%-4):$(P%+I%*13)=$(P%+I%*13-13):NEXT 2800R%!C%=O% 2900PRINT''"Your score is ranked number ";(C%DIV4)+1;"." 3000PRINT'"What is your name? ";:REPEAT:UNTILINKEY(10)=-1 3100*FX15,1 3200INPUT""$&3000:?&300C=13:$(13*(C%DIV4)+P%)=$&3000 3300PRINT''''''SPC3STRING$(30,"*")'SPC3"*"SPC28"*" 3400GOSUB6600:FORI%=0TO4:PRINT" * "; 3700COLOUR2:PRINTI%+1;". ";$(P%+13*I%);TAB(25);:@%=5:PRINT10*(R%!(4*I%));TAB(31);:COLOUR3:PRINT" *":@%=1 3800NEXT:PRINT" *"SPC28"*"'SPC3STRING$(30,"*")'''' 3900COLOUR1:PRINT''SPC11"PRESS SPACE BAR ";:COLOUR3 4000IFO%>H% H%=O% 4100*FX15,1 4200REPEAT:UNTILGET=32:GOTO1400 4300GOSUB6700 4400FORI%=255TO10STEP-12:SOUND1,-12,I%,2:SOUND2,-12,I%,2:NEXT:SOUND1,2,75,2 4500PRINT'SPC5"Do you want instructions? "; 4600*FX15,1 4700REPEATA%=GET:UNTILA%=78 ORA%=89 ORA%=110 ORA%=121:PRINTCHR$A%;:IFA%=78 ORA%=110PRINT:GOTO6200 4800MODE2:GOSUB6600:GOSUB7000 4810COLOUR6:PRINTTAB(7,2);"SCORING"' :COLOUR1 4815PRINTTAB(8,10);"200 POINTS":PRINTTAB(7,13);"1000 POINTS":PRINTTAB(8,16);"500 POINTS":PRINTTAB(8,19);"100 POINTS":PRINTTAB(9,22);"50 POINTS" 4820FORI%=0TO&1F:I%?&4960=I%?&19A0:I%?&4980=I%?&19C0:I%?&50F0=I%?&1940:I%?&5870=I%?&19E0:I%?&5FF0=I%?&1A00:I%?&6770=I%?&1900:NEXT 4900COLOUR3:PRINTTAB(3,30)"PRESS SPACE BAR"; 5000*FX15,1 5100REPEATUNTILGET=32 5200MODE1 5300GOSUB6700 5310PRINT'SPC4"The object of the game is to"'SPC4"prevent the centibug from"'SPC4"reaching the bottom of the"'SPC4"screen." 5400PRINT''SPC4"The following keys are used:" 5500PRINTSPC4"Z moves the laser base left." 5600PRINTSPC4"X moves the laser base right." 5700PRINTSPC4"DELETE fires the laser."'' 5800PRINTSPC4"Extra laser bases are awarded" 5900PRINTSPC4"when your score reaches 10000" 6000PRINTSPC4"points and 20000 points."'' 6100PRINTSPC4"If you want to alter the skill"'SPC4"level at the end of the game,"'SPC4"press the ESCAPE key. To exit"'SPC4"from the game, press BREAK."' 6200PRINT''SPC5"Which skill level (1-6)? "; 6300*FX15,1 6400REPEATA%=GET:UNTILA%>48 ANDA%<55:VDUA%:?&2FC5=A%-48:GOSUB6600:CALL&2B49 6600VDU23;8202;0;0;0;:RETURN 6700COLOUR1:PRINTSPC14"CENTIBUG"':COLOUR2:PRINTSPC7"(C) R.M.P. Hanson. 1982"':COLOUR3:RETURN 7000VDU19,9,6;0;19,8,3;0;19,11,1;0;19,12,2;0;19,13,3;0;19,14,1;0;19,15,5;0;:RETURN
dJ��p�/�q�0�p���q�q�7��p�pȑp����������q�q�:��`K�>Z۸#��,&��kg1�\ ��=&2FC9 ,� �*FX9,15 �*FX10,70 X��1,1,-4,-1,-1,40,40,30,127,0,-1,-2,126,126:�2,1,3,4,5,6,2,4,127,-1,0,-3,127,115:�3,1,4,-1,-2,20,25,15,105,0,-1,-2,105,104:�4,1,5,10,15,5,10,15,126,-50,-1,-1,126,125 �+�23,224,255,255,255,255,255,255,255,255 L*TV255,1 �2@%=1:�1:�dLP:R%=&2F70:P%=&2F84:H%=0:!1232=!14 '�I%=0�4:R%!(4*I%)=0:P%?(13*I%)=13:� x�2:�dHY:�&2AB8 �#�5:�0,3:�388,1008:�"CENTIBUG"�4 @�132:�'" 0"; �I%=13:�H%<1:I%=14 �H%>99:I%=12 l�I%;10*H%;�0,2); � �DX[ � �&2900 4*FX15,1 �FI%=?&2FC7:J%=?&2FC6:O%=1000*(I%�16)+100*(I%�16)+10*(J%�16)+(J%�16) ��1 `$C%=1:�I%=16�0�-4:�O%>R%!I% C%=I% � �:�C%=1�' ("�"Score: ";O%*10".":�C%=1�ddL �L�C%<16�I%=4�C%/4+1�-1:R%!(4*I%)=R%!(4*I%-4):$(P%+I%*13)=$(P%+I%*13-13):� �R%!C%=O% T2�''"Your score is ranked number ";(C%�4)+1;"." �(�'"What is your name? ";:�:��(10)=-1 *FX15,1 �.�""$&3000:?&300C=13:$(13*(C%�4)+P%)=$&3000 �!�''''''�3�30,"*")'�3"*"�28"*" H�dHY:�I%=0�4:�" * "; tN�2:�I%+1;". ";$(P%+13*I%);�25);:@%=5:�10*(R%!(4*I%));�31);:�3:�" *":@%=1 �"�:�" *"�28"*"'�3�30,"*")'''' <$�1:�''�11"PRESS SPACE BAR ";:�3 ��O%>H% H%=O% *FX15,1 h�:��=32:�DxE � �TlZ 06�I%=255�10�-12:�1,-12,I%,2:�2,-12,I%,2:�:�1,2,75,2 �%�'�5"Do you want instructions? "; �*FX15,1 \C�A%=�:�A%=78 �A%=89 �A%=110 �A%=121:�A%;:�A%=78 �A%=110�:�TxX ��2:�dHY:�DX[ ��6:�7,2);"SCORING"' :�1 �l�8,10);"200 POINTS":�7,13);"1000 POINTS":�8,16);"500 POINTS":�8,19);"100 POINTS":�9,22);"50 POINTS" �{�I%=0�&1F:I%?&4960=I%?&19A0:I%?&4980=I%?&19C0:I%?&50F0=I%?&1940:I%?&5870=I%?&19E0:I%?&5FF0=I%?&1A00:I%?&6770=I%?&1900:� $ �3:�3,30)"PRESS SPACE BAR"; �*FX15,1 � ���=32 P�1 � �TlZ �o�'�4"The object of the game is to"'�4"prevent the centibug from"'�4"reaching the bottom of the"'�4"screen." '�''�4"The following keys are used:" |%�4"Z moves the laser base left." �&�4"X moves the laser base right." D"�4"DELETE fires the laser."'' �&�4"Extra laser bases are awarded" &�4"when your score reaches 10000" p#�4"points and 20000 points."'' Ԍ�4"If you want to alter the skill"'�4"level at the end of the game,"'�4"press the ESCAPE key. To exit"'�4"from the game, press BREAK."' 8&�''�5"Which skill level (1-6)? "; �*FX15,1 5�A%=�:�A%>48 �A%<55:�A%:?&2FC5=A%-48:�dHY:�&2B49 ��23;8202;0;0;0;:� ,<�1:�14"CENTIBUG"':�2:�7"(C) R.M.P. Hanson. 1982"':�3:� XK�19,9,6;0;19,8,3;0;19,11,1;0;19,12,2;0;19,13,3;0;19,14,1;0;19,15,5;0;:� �,:;0:� �;19,15,5;0;:� �14,1;0;19,15,5;0;:� �;;0;19,15,5;0;:� �;� �1;� �29�1;001;:� �;0;:� �1,15,5;0;:� �05;0;:� �X)��LW���F`� ����� �` "*A@EPQT������ � t�< �U* �@��`�{�|�P��PP�����PPP� ��� PP �� EEEE ������ ����ώ A����A ������À�������@ ����Â