Home » Personal collection » Acorn tapes » Commercial_Releases » micropower_tape12a_acorn_croaker.wav » CRK
CRK
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 tapes » Commercial_Releases » micropower_tape12a_acorn_croaker.wav |
| Filename: | CRK |
| Read OK: | ✔ |
| File size: | 2000 bytes |
| Load address: | 0E00 |
| Exec address: | 8023 |
Duplicates
There are 8 duplicate copies of this file in the archive:
- AEW website » acp_pres » acp_pres_3_5_discs_Pres-Games-Disc-1_A-PRE1.adf » 3/CRK
- AEW website » micropower » micropower_3_5_discs_Croaker_HA-CROA.adf » CRK
- AEW website » acp_pres » acp_pres_5_25_discs_Pres-Games-Disc-1_D-PRE1.ssd » 3.CRK
- AEW website » beau_jolly » beau_jolly_5_25_discs_5-Computer-Hits-1_HD-5COM.ssd » E.CRK
- AEW website » micropower » micropower_5_25_discs_Croaker_HD-CROA.ssd » CRK
- AEW website » micropower » micropower_tapes_Croaker_Croaker_E.uef » CRK
- Personal collection » Acorn ADFS disks » Zipped » zipped_disks » elk08 » micropower/Croaker/CRK
- Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Croaker/CRK
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape12a_acorn_croaker.wav » CRK
File contents
10REM CROAKER
20*FX11,0
30MODE1:HIMEM=&1D00:DIMH%(5),A$(5),A%(10):H%=0:FORF%=1TO10:READA%(F%):NEXT:C$="CHRIS BUTLER":FORF%=0TO4:H%(F%)=100:A$(F%)="Micro Power":NEXT:A$(0)=C$:H%(0)=1253:*FX200,3
40CLS:S%=0:FORF%=0TO4:S%=S%+F%?&2328*10^F%:NEXT:F%=-1:REPEATF%=F%+1:UNTILF%=5ORS%>H%(F%):IFF%<>5INPUTTAB(0,5)"YOU ARE IN THE TOP 5"'"NAME",N$:N$=LEFT$(N$,12):FORG%=4TOF%STEP-1:H%(G%+1)=H%(G%):A$(G%+1)=A$(G%):NEXT:H%(F%)=S%:A$(F%)=N$
50MODE2:HIMEM=&1D00:COLOUR5:PRINT"SCORE:";S%"0";:COLOUR7:PRINTTAB(12)"HI:";H%(0)"0":COLOUR3:PRINT''TAB(4)"PROGRAM POWER"':COLOUR1:PRINTTAB(6)"presents"TAB(3,10)"by":VDU5:MOVE400,700:GCOL0,3:PRINTC$:MOVE395,696:GCOL0,1:PRINTC$:VDU4
60VDU23,1,0;0;0;0;:*FX4,1
70PRINTTAB(7,12)"(C) 1983":FORF%=0TO4:COLOUR2:PRINTTAB(0,14+F%*2);F%+1".";:COLOUR7:PRINTA$(F%);:COLOUR1:PRINTTAB(15);H%(F%)"0":NEXT:COLOUR8:PRINTTAB(4,30)"SPACE to PLAY"
80COLOUR2:PRINTTAB(3,24)"A=up N=left"''" Z=down M=right"''" T=Music On/Off"
90FORF%=&4480TO&4600STEP64:!&86=F%:CALL&2335:NEXT:F%=0
100F%=F%+1:IFF%>16GOTO90
110COLOUR2:PRINTTAB(4,8)LEFT$("C R O A K E R",F%):Q%=INKEY(50):IFQ%<>32GOTO100
130CLS:VDU19,15,2;0;:L%=0:!&2328=0:?&2334=5:ONERRORGOTO140
140L%=L%+1:IF?&2334=0GOTO40
160FORF%=0TO14:VDU19,F%,0;0;:NEXT:VDU19,15,2;0;:COLOUR15:PRINTTAB(5,17)"GET READY"TAB(6,15)"PHASE ";L%:VDU30:COLOUR132:FORF%=1TO14:PRINTSTRING$(17," "):NEXT:COLOUR128:FORF%=1TO7:PRINTSTRING$(17," ")':NEXT:FORF%=0TO512STEP32:PROCP(F%,0,A%(9))
170PROCP(F%,1,A%(9)):PROCP(F%,2,A%(9)):PROCP(F%,14,A%(9)):PROCP(F%,26,A%(9)):NEXT:IFL%<9PROCP(FNr(10,8),4,A%(1))
180IFL%>1PROCP(8*(RND(10)+30),4,&20FB) ELSEPROCP(8*(RND(10)+30),4,A%(1))
190PROCP(FNr(30,8),6,A%(2)):PROCP(FNr(8,8),8,A%(3)):IFL%<5PROCP(8*(RND(8)+20),8,A%(3))
200IFL%>1PROCP(8*(RND(8)+40),8,&2174) ELSEPROCP(8*(RND(8)+40),8,A%(3))
210IFL%<4PROCP(FNr(8,8),10,A%(4))
220PROCP(8*(RND(8)+20),10,A%(4)):IFL%<6PROCP(8*(RND(8)+40),10,A%(4))
230PROCP(FNr(10,8),12,A%(1)):IFL%<8PROCP(8*(RND(10)+30),12,A%(1))
240IFL%>2PROCP(FNr(8,8),16,A%(10)):IFL%>6PROCP(8*(RND(8)+20),16,A%(10))
250PROCP(8*(RND(8)+40),16,A%(10)):B%=L%+1:IFB%>3B%=3
260FORF%=0TO3:FORA%=0TOB%-1:PROCP(8*(RND(30/B%)+A%*60/B%)+8,18+F%*2,A%(5+F%)):NEXT,:GCOL0,7:MOVE10,1023:DRAW10,156:DRAW1060,156:DRAW1060,1023:DRAW10,1023:GCOL0,0:MOVE0,1023:DRAW0,156:MOVE1070,156:DRAW1070,1023:MOVE1075,156:DRAW1075,1023
270MOVE1080,156:DRAW1080,1023:?&232E=0:?&232F=0:?&2330=11-L%:PRINTTAB(0,28)"HI:";TAB(9,28)"SC:";TAB(0,30)"TIME:";TAB(3,28);"0000";TAB(16,28);"0"TAB(5,15);STRING$(10," ")TAB(5,17);STRING$(10," "):VDU20,19,&D,7;0;19,15,2;2;:COLOUR15
280CALL&2B06
290END
300DEFPROCP(X%,Y%,L%):!&70=&3000+X%+Y%*640:!&72=L%:CALL&2C18:ENDPROC
310DEFFNr(R%,A%)=8*RND(R%)+A%
320DATA&1D00,&1D79,&1E42,&1E93,&1EE4,&1F0D,&1F36,&1F5F,&1F88,&1FA9
� CROAKER *FX11,0 ��1:�=&1D00:�H%(5),A$(5),A%(10):H%=0:�F%=1�10:�A%(F%):�:C$="CHRIS BUTLER":�F%=0�4:H%(F%)=100:A$(F%)="Micro Power":�:A$(0)=C$:H%(0)=1253:*FX200,3 (��:S%=0:�F%=0�4:S%=S%+F%?&2328*10^F%:�:F%=-1:�F%=F%+1:�F%=5�S%>H%(F%):�F%<>5�0,5)"YOU ARE IN THE TOP 5"'"NAME",N$:N$=�N$,12):�G%=4�F%�-1:H%(G%+1)=H%(G%):A$(G%+1)=A$(G%):�:H%(F%)=S%:A$(F%)=N$ 2��2:�=&1D00:�5:�"SCORE:";S%"0";:�7:�12)"HI:";H%(0)"0":�3:�''�4)"PROGRAM POWER"':�1:�6)"presents"�3,10)"by":�5:�400,700:�0,3:�C$:�395,696:�0,1:�C$:�4 <�23,1,0;0;0;0;:*FX4,1 Fq�7,12)"(C) 1983":�F%=0�4:�2:�0,14+F%*2);F%+1".";:�7:�A$(F%);:�1:�15);H%(F%)"0":�:�8:�4,30)"SPACE to PLAY" PI�2:�3,24)"A=up N=left"''" Z=down M=right"''" T=Music On/Off" Z,�F%=&4480�&4600�64:!&86=F%:�&2335:�:F%=0 dF%=F%+1:�F%>16�DZ@ n7�2:�4,8)�"C R O A K E R",F%):Q%=�(50):�Q%<>32�Dd@ �0�:�19,15,2;0;:L%=0:!&2328=0:?&2334=5:��tL@ �L%=L%+1:�?&2334=0�Th@ ���F%=0�14:�19,F%,0;0;:�:�19,15,2;0;:�15:�5,17)"GET READY"�6,15)"PHASE ";L%:�30:�132:�F%=1�14:��17," "):�:�128:�F%=1�7:��17," ")':�:�F%=0�512�32:�P(F%,0,A%(9)) �]�P(F%,1,A%(9)):�P(F%,2,A%(9)):�P(F%,14,A%(9)):�P(F%,26,A%(9)):�:�L%<9�P(�r(10,8),4,A%(1)) �;�L%>1�P(8*(�(10)+30),4,&20FB) ��P(8*(�(10)+30),4,A%(1)) �I�P(�r(30,8),6,A%(2)):�P(�r(8,8),8,A%(3)):�L%<5�P(8*(�(8)+20),8,A%(3)) �9�L%>1�P(8*(�(8)+40),8,&2174) ��P(8*(�(8)+40),8,A%(3)) ��L%<4�P(�r(8,8),10,A%(4)) �:�P(8*(�(8)+20),10,A%(4)):�L%<6�P(8*(�(8)+40),10,A%(4)) �8�P(�r(10,8),12,A%(1)):�L%<8�P(8*(�(10)+30),12,A%(1)) �=�L%>2�P(�r(8,8),16,A%(10)):�L%>6�P(8*(�(8)+20),16,A%(10)) �/�P(8*(�(8)+40),16,A%(10)):B%=L%+1:�B%>3B%=3 ��F%=0�3:�A%=0�B%-1:�P(8*(�(30/B%)+A%*60/B%)+8,18+F%*2,A%(5+F%)):�,:�0,7:�10,1023:�10,156:�1060,156:�1060,1023:�10,1023:�0,0:�0,1023:�0,156:�1070,156:�1070,1023:�1075,156:�1075,1023 ��1080,156:�1080,1023:?&232E=0:?&232F=0:?&2330=11-L%:�0,28)"HI:";�9,28)"SC:";�0,30)"TIME:";�3,28);"0000";�16,28);"0"�5,15);�10," ")�5,17);�10," "):�20,19,&D,7;0;19,15,2;2;:�15 �&2B06 "� ,7��P(X%,Y%,L%):!&70=&3000+X%+Y%*640:!&72=L%:�&2C18:� 6ݤr(R%,A%)=8*�(R%)+A% @@�&1D00,&1D79,&1E42,&1E93,&1EE4,&1F0D,&1F36,&1F5F,&1F88,&1FA9 �F5F,&1F88,&1FA9 �0 %( ��c�a�e����c�e00033000e0aa1a0e0����3�0��������00022000�a��c�a�e����c�e00033000�� �r���p�L�` "