Home » Personal collection » Acorn tapes » Commercial_Releases » micropower_tape11a_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_tape11a_acorn_croaker.wav |
Filename: | CRK |
Read OK: | ✔ |
File size: | 2000 bytes |
Load address: | 0E00 |
Exec address: | 8023 |
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);H%(0)"0";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);H%(0)"0";�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 �7,&1F88,&1FA9 �0 %( ��c�a�e����c�e00033000e0aa1a0e0����3�0��������00022000�a��c�a�e����c�e00033000�� �r���p�L�` "