04-11-88/DRUMS

Home » CEEFAX disks » telesoftware10.adl » 04-11-88/DRUMS

04-11-88/DRUMS

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 » CEEFAX disks » telesoftware10.adl
Filename:	04-11-88/DRUMS
Read OK:	✔
File size:	16FE bytes
Load address:	FFFF1900
Exec address:	FFFF8023

File contents

   10REM Thunder Drums
   20REM by Matthew Holroyd
   30REM (c) The Micro User
   40REM ==================
   50PROCreloc(&1100):seqlen=30
   60MODE2:DIMseq(seqlen),cd(36),sd(36)
   70FOR W%=10 TO 360 STEP 10:cd(W%/10)=COSRADW%:sd(W%/10)=SINRADW%:NEXT
   80PROCvars:PROCinst:PROCset:PROCstart
   90IF Q%<3 AND T=0 THEN PROCauto
  100PROCkeys:IF INKEY-17 PROCvars:PROCstart:GOTO90
  110IF D%>0 THENPROChit
  120IF wr%=1 THEN PROCvars:PROCstart
  130GOTO90
  140DEFPROChit:IF Q%<3 AND T=1 THENPROCcheck
  150IF Q%<3 AND count=len% THEN T=0
  160IF Q%=2 AND T=0 THEN GOTO 180
  170VDU19,D%,1,0;0;
  180PROCsound(D%-6)
  190TIME=0:REPEAT UNTIL TIME=7
  200IF D%>12 THENVDU19,D%,3,0;0; ELSE VDU19,D%,7,0;0;
  210ENDPROC
  220DEFPROCkeys
  230IF D%>0 THEN GOTO 340
  240Z%=FNkey
  250IF Z%=98 D%=7:ENDPROC
  260IF Z%=104 D%=8:ENDPROC
  270IF Z%=97 D%=9:ENDPROC
  280IF Z%=66 D%=10:ENDPROC
  290IF Z%=82 D%=11:ENDPROC
  300IF Z%=99 D%=12:ENDPROC
  310IF Z%=88 D%=13:ENDPROC
  320IF Z%=65 D%=14:ENDPROC
  330IF Z%=81 D%=15:ENDPROC
  340D%=0:REPEAT UNTIL Z%<>FNkey
  350ENDPROC
  360DEFFNkey:LOCAL A%:A%=122
  370=(USR(&FFF4)AND&FF00)DIV&100
  380DEFPROCsound(S)
  390ON S GOTO 410,420,430,440,450,460,470,480,490
  400ENDPROC
  410SOUND1,1,5,1:SOUND0,2,2,1:GOTO400
  420SOUND1,1,10,1:SOUND0,2,5,1:GOTO400
  430SOUND1,3,20,1:SOUND0,-12,2,1:GOTO400
  440SOUND1,3,16,1:SOUND0,-12,2,1:GOTO400
  450SOUND1,3,12,1:SOUND0,-12,2,1:GOTO400
  460SOUND1,3,5,1:SOUND0,-12,2,1:GOTO400
  470ENVELOPE4,2,0,0,0,2,3,4,126,0,0,-2,126,126:SOUND0,4,4,2:GOTO400
  480ENVELOPE4,2,0,0,0,2,3,4,126,0,0,-4,126,126:SOUND0,4,5,2:GOTO400
  490ENVELOPE4,8,-1,-1,0,1,1,4,126,0,0,-18,126,126:SOUND0,4,6,1:GOTO400
  500DEFPROCauto
  510TIME=0:REPEAT UNTIL TIME=120
  520IF len%=seqlen THEN PROCwin:wr%=1:ENDPROC
  530len%=len%+1:seq(len%)=RND(9)+6
  540FOR W%=1 TO len%
  550TIME=0:REPEAT UNTIL TIME=25
  560D%=seq(W%):PROChit
  570NEXT W%
  580count=0:T=1:D%=0:ENDPROC
  590DEFPROCcheck:count=count+1
  600IF D%=seq(count) THEN ENDPROC ELSE PROCwrong
  610ENDPROC
  620DEFPROCwrong:wr%=1
  630SOUND0,-15,2,5:COLOUR2:PRINTTAB(6,3);"WRONG!";:TIME=0:REPEAT UNTIL TIME=200:PRINTTAB(6,3);"      ";
  640ENDPROC
  650DEFPROCset
  660VDU17,128,12:RESTORE960
  670VDU23,1,0;0;0;0;:FOR W%=7 TO 15:VDU19,W%,0,0;0;:NEXT W%:VDU19,6,4,0;0;19,3,0,0;0;
  680ENVELOPE1,1,2,0,-3,1,1,2,120,0,-13,-6,126,126:ENVELOPE2,1,0,0,0,1,1,2,120,0,-15,-5,126,126:ENVELOPE3,2,1,0,-1,1,2,1,123,0,-4,-19,124,126
  690PROCthree("THUNDER KING",250,1000,4,3)
  700VDU18,0,3:step=200:pos=0:FOR W%=1 TO 6:pos=pos+step:MOVE0,pos:DRAW1279,pos:step=step/2:NEXT W%
  710FOR W%=1 TO 29
  720IF W%=1 OR W%=13 OR W%=14 OR W%=15 THEN READ F%,E%,R%,C%:PROCcirc(F%,E%,R%,C%):NEXT W%
  730IF W%=17 THEN VDU18,0,132,24,810;230;1090;370;16,26
  740IF W%=21 THEN VDU18,0,132,24,510;360;770;450;16,26
  750READ F%,E%,A%,B%,C%:PROCell(F%,E%,A%,B%,C%)
  760NEXT W%:FORW%=0 TO 15:VDU19,W%,1,0;0;:NEXT W%:TIME=0:REPEAT UNTIL TIME=10:FORW%=1 TO 7:VDU19,W%,W%,0;0;:NEXT W%:FORW%=8 TO 12:VDU19,W%,7,0;0;:NEXT W%
  770VDU19,13,3,0;0;19,14,3,0;0;19,15,3,0;0;19,0,0,0;0;:D%=8:PROChit:D%=15:PROChit
  780ENDPROC
  790DEFPROCstart
  800VDU17,6:PRINTTAB(1,2);"1";TAB(1,3);"2";TAB(1,4);"3";TAB(3,5);"Press 1,2 or 3";
  810VDU17,3:PRINTTAB(3,2);"Game 1";TAB(3,3);"Game 2";TAB(3,4);"Practice";
  820IF INKEY(-49) THEN Q%=1:GOTO860
  830IF INKEY(-50) THEN Q%=2:GOTO860
  840IF INKEY(-18) THEN Q%=3:GOTO860
  850GOTO 820
  860VDU28,0,5,16,2,12,26
  870IF Q%=3 THEN PROCshow
  880ENDPROC
  890DEFPROCcirc(F%,E%,R%,C%)
  900VDU18,0,C%,29,F%;E%;:n=0:th=2*PI/30:MOVE R%,0:FOR T%=1 TO 30:n=n+th:S%=R%*COS(n):A%=R%*SIN(n):MOVE0,0:PLOT85,S%,A%:NEXT T%:VDU29,0;0;
  910ENDPROC
  920DEFPROCell(F%,E%,A%,B%,C%)
  930VDU18,0,C%:MOVE F%+A%,E%:FOR T%=1 TO 36:cos=cd(T%):sin=sd(T%):R%=1/SQR(cos*cos/(A%*A%)+sin*sin/(B%*B%)):X%=R%*cos:Y%=R%*sin:MOVE F%+A%,E%:PLOT 85,F%+X%,E%+Y%:NEXT T%
  940ENDPROC
  950REM * base shell *
  960DATA 640,330,200,4
  970REM * mid tom *
  980DATA 640,580,120,80,6,640,580,115,75,0,640,580,105,65,10
  990REM * left tom *
 1000DATA 415,500,120,80,4,425,530,120,80,6,425,530,115,75,0,425,530,105,65,9
 1010REM * right tom *
 1020DATA 860,470,120,80,4,860,520,120,80,6,860,520,115,75,0,860,520,105,65,11
 1030REM * base skin *
 1040DATA 640,300,200,6,640,300,190,0,640,300,180,7
 1050REM * floor tom *
 1060DATA 950,220,150,45,6,950,230,145,45,4
 1070DATA 950,370,150,45,6,950,370,140,35,0,950,365,130,35,12
 1080REM * snare *
 1090DATA 640,365,135,40,6,640,375,130,40,4
 1100DATA 640,460,135,40,6,640,460,130,35,0,640,460,120,25,8
 1110REM * cymbals *
 1120DATA 1000,750,175,70,13,400,730,150,60,15,280,640,170,80,0,275,635,170,80,14
 1130DEFPROCvars
 1140T=0:len%=0:count=0:wr%=0
 1150ENDPROC
 1160DEFPROCwin:VDU19,6,2,0;0;
 1170DATA 9,6,9,6,11,6,9,6,9,6,11,3,11,3,10,3,10,3,12,3,12,3,9,6,9,6,11,6,9,6,9,6,12,3,11,3,11,3,10,3,11,3,11,6,9,6,9,6,11,6,9,6,12,3,11,3,11,3,10,3,12,3,11,3,11,3,10,3,7,25,15,20,8,3,8,3,8,3,7,3,8,3,8,3,8,3,8,3
 1180DATA 12,3,8,3,12,3,12,3,11,3,14,6,9,3,9,3,10,3,10,3,11,3,11,3,12,3,12,12,7,3,8,12,15,3,13,0
 1190RESTORE1170
 1200FOR W%=1 TO 62
 1210READ D%,time
 1220PROChit
 1230TIME=0:REPEAT UNTIL TIME=time
 1240NEXT W%
 1250VDU19,6,6,0;0;
 1260PROCthree("WELL DONE",335,900,5,7)
 1270*FX15,0
 1280A$=GET$:VDU28,0,5,18,2,12,26
 1290ENDPROC
 1300DEFPROCthree(M$,X,Y,B,G)
 1310VDU5,18,0,G
 1320MOVEX,Y:PRINTM$
 1330VDU18,0,B
 1340MOVEX+10,Y-4:PRINTM$
 1350VDU4,23,1,0;0;0;0;:ENDPROC
 1360DEFPROCshow
 1370RESTORE1510
 1380FOR W%=1 TO 9
 1390READ K$,U%,I%,L%
 1400COLOUR L%+128:COLOUR1
 1410PRINTTAB(U%,I%);K$;
 1420NEXT W%:COLOUR128:PRINTTAB(1,2);"Q-Quit";
 1430*FX15,1
 1440A$=GET$
 1450RESTORE1510
 1460FOR W%=1 TO 9
 1470READ K$,U%,I%,L%
 1480COLOUR L%+128:COLOURL%
 1490PRINTTAB(U%,I%);K$;
 1500NEXT W%
 1510DATA "Spce",8,23,7,"?",10,17,8,"Z",6,15,9,"X",9,13,10,"C",13,15,11,"V",14,20,12,"}",15,8,13,"A",4,11,14,"S",6,8,15
 1520VDU17,128,28,0,5,13,2,12,26:ENDPROC
 1530DEFPROCinst
 1540RESTORE1620
 1550VDU17,132,12
 1560FOR W%=1 TO 35
 1570READ M$,X,Y,V
 1580PROCthree(M$,X,Y,V,0)
 1590IF W%=18 THEN A$=GET$:CLS
 1600NEXT W%
 1610A$=GET$:IF A$=" "THEN ENDPROC ELSE GOTO1610
 1620DATA "THUNDER KING",250,1000,3
 1630DATA "After the drum kit",64,900,7,"is drawn (takes",160,850,7,"about 47 secs)",192,800,7,"There is a choice",96,750,7,"of :",96,700,7,"Game 1",352,650,6,"Game 2",352,600,6,"Practice",352,550,6
 1640DATA "Game 1",64,450,3
 1650DATA "The computer will",100,400,7,"play a series of",100,350,7,"drum strikes and",100,300,7,"you must repeat",100,250,7,"this sequence to",100,200,7,"progress. Each",100,150,7,"time a new note",100,100,7,"is added.",100,50,7
 1660DATA "THUNDER DRUMS",250,1000,3
 1670DATA "Game 2",64,900,3
 1680DATA "This is a more",100,850,7,"difficult version",100,800,7,"of Game 1. As the",100,750,7,"notes are played,",100,700,7,"the drum heads do",100,650,7,"not light up.",100,600,7
 1690DATA "Both games are won",64,500,6,"when 30 notes have",64,450,6,"been repeated",64,400,6,"correctly.",64,350,6
 1700DATA "Practice",64,250,3,"This choice shows",100,200,7,"the keys & allows",100,150,7,"free practice.",100,100,7,"PRESS SPACE",250,50,3
 1710DEF PROCreloc(Q%):CLS:*TAPE
 1720P%=PAGE:IF P%<=Q% ENDPROC
 1730L%=TOP-P%:PRINTCHR$129CHR$136"Relocating...";
 1740FOR M%=0 TO L%-1 STEP 4
 1750Q%!M%=P%!M%:SOUND17,-4,255*M%/L%,1
 1760NEXT:PAGE=Q%:A%=138:X%=0:*FX15
 1770$&100="OLD"+CHR$13+"RUN"+CHR$6+CHR$13
 1780FOR L%=&100 TO &108:Y%=?L%
 1790Z%=USR&FFF4:NEXT:VDU21:END


� Thunder Drums
� by Matthew Holroyd
� (c) The Micro User
(� ==================
2�reloc(&1100):seqlen=30
<!�2:�seq(seqlen),cd(36),sd(36)
F6� W%=10 � 360 � 10:cd(W%/10)=��W%:sd(W%/10)=��W%:�
P�vars:�inst:�set:�start
Z� Q%<3 � T=0 � �auto
d#�keys:� �-17 �vars:�start:�DZ@
n� D%>0 ��hit
x� wr%=1 � �vars:�start
�	�DZ@
���hit:� Q%<3 � T=1 ��check
�� Q%<3 � count=len% � T=0
�� Q%=2 � T=0 � � �tt@
��19,D%,1,0;0;
��sound(D%-6)
��=0:� � �=7
�*� D%>12 ��19,D%,3,0;0; � �19,D%,7,0;0;
��
�
��keys
�� D%>0 � � �DTA
�Z%=�key
�� Z%=98 D%=7:�
� Z%=104 D%=8:�
� Z%=97 D%=9:�
� Z%=66 D%=10:�
"� Z%=82 D%=11:�
,� Z%=99 D%=12:�
6� Z%=88 D%=13:�
@� Z%=65 D%=14:�
J� Z%=81 D%=15:�
TD%=0:� � Z%<>�key
^�
hݤkey:� A%:A%=122
r=(�(&FFF4)�&FF00)�&100
|��sound(S)
�6� S � �tZA,�tdA,�tnA,�txA,�dBA,�dLA,�dVA,�d`A,�djA
��
��1,1,5,1:�0,2,2,1:�tPA
��1,1,10,1:�0,2,5,1:�tPA
��1,3,20,1:�0,-12,2,1:�tPA
��1,3,16,1:�0,-12,2,1:�tPA
��1,3,12,1:�0,-12,2,1:�tPA
��1,3,5,1:�0,-12,2,1:�tPA
�6�4,2,0,0,0,2,3,4,126,0,0,-2,126,126:�0,4,4,2:�tPA
�6�4,2,0,0,0,2,3,4,126,0,0,-4,126,126:�0,4,5,2:�tPA
�9�4,8,-1,-1,0,1,1,4,126,0,0,-18,126,126:�0,4,6,1:�tPA
�
��auto
��=0:� � �=120
 � len%=seqlen � �win:wr%=1:�
 len%=len%+1:seq(len%)=�(9)+6
� W%=1 � len%
&�=0:� � �=25
0D%=seq(W%):�hit
:� W%
Dcount=0:T=1:D%=0:�
N��check:count=count+1
X � D%=seq(count) � � � �wrong
b�
l��wrong:wr%=1
vA�0,-15,2,5:�2:�6,3);"WRONG!";:�=0:� � �=200:�6,3);"      ";
��
�	��set
��17,128,12:��d@C
�I�23,1,0;0;0;0;:� W%=7 � 15:�19,W%,0,0;0;:� W%:�19,6,4,0;0;19,3,0,0;0;
�w�1,1,2,0,-3,1,1,2,120,0,-13,-6,126,126:�2,1,0,0,0,1,1,2,120,0,-15,-5,126,126:�3,2,1,0,-1,1,2,1,123,0,-4,-19,124,126
�'�three("THUNDER KING",250,1000,4,3)
�T�18,0,3:step=200:pos=0:� W%=1 � 6:pos=pos+step:�0,pos:�1279,pos:step=step/2:� W%
�� W%=1 � 29
�J� W%=1 � W%=13 � W%=14 � W%=15 � � F%,E%,R%,C%:�circ(F%,E%,R%,C%):� W%
�1� W%=17 � �18,0,132,24,810;230;1090;370;16,26
�0� W%=21 � �18,0,132,24,510;360;770;450;16,26
�)� F%,E%,A%,B%,C%:�ell(F%,E%,A%,B%,C%)
�o� W%:�W%=0 � 15:�19,W%,1,0;0;:� W%:�=0:� � �=10:�W%=1 � 7:�19,W%,W%,0;0;:� W%:�W%=8 � 12:�19,W%,7,0;0;:� W%
I�19,13,3,0;0;19,14,3,0;0;19,15,3,0;0;19,0,0,0;0;:D%=8:�hit:D%=15:�hit
�
��start
 @�17,6:�1,2);"1";�1,3);"2";�1,4);"3";�3,5);"Press 1,2 or 3";
*:�17,3:�3,2);"Game 1";�3,3);"Game 2";�3,4);"Practice";
4� �(-49) � Q%=1:�D\C
>� �(-50) � Q%=2:�D\C
H� �(-18) � Q%=3:�D\C
R
� �TtC
\�28,0,5,16,2,12,26
f� Q%=3 � �show
p�
z��circ(F%,E%,R%,C%)
�q�18,0,C%,29,F%;E%;:n=0:th=2*�/30:� R%,0:� T%=1 � 30:n=n+th:S%=R%*�(n):A%=R%*�(n):�0,0:�85,S%,A%:� T%:�29,0;0;
��
���ell(F%,E%,A%,B%,C%)
���18,0,C%:� F%+A%,E%:� T%=1 � 36:cos=cd(T%):sin=sd(T%):R%=1/�(cos*cos/(A%*A%)+sin*sin/(B%*B%)):X%=R%*cos:Y%=R%*sin:� F%+A%,E%:� 85,F%+X%,E%+Y%:� T%
��
�� * base shell *
�� 640,330,200,4
�� * mid tom *
�9� 640,580,120,80,6,640,580,115,75,0,640,580,105,65,10
�� * left tom *
�I� 415,500,120,80,4,425,530,120,80,6,425,530,115,75,0,425,530,105,65,9
�� * right tom *
�J� 860,470,120,80,4,860,520,120,80,6,860,520,115,75,0,860,520,105,65,11
� * base skin *
/� 640,300,200,6,640,300,190,0,640,300,180,7
� * floor tom *
$'� 950,220,150,45,6,950,230,145,45,4
.9� 950,370,150,45,6,950,370,140,35,0,950,365,130,35,12
8� * snare *
B'� 640,365,135,40,6,640,375,130,40,4
L8� 640,460,135,40,6,640,460,130,35,0,640,460,120,25,8
V� * cymbals *
`M� 1000,750,175,70,13,400,730,150,60,15,280,640,170,80,0,275,635,170,80,14
j
��vars
tT=0:len%=0:count=0:wr%=0
~�
���win:�19,6,2,0;0;
��� 9,6,9,6,11,6,9,6,9,6,11,3,11,3,10,3,10,3,12,3,12,3,9,6,9,6,11,6,9,6,9,6,12,3,11,3,11,3,10,3,11,3,11,6,9,6,9,6,11,6,9,6,12,3,11,3,11,3,10,3,12,3,11,3,11,3,10,3,7,25,15,20,8,3,8,3,8,3,7,3,8,3,8,3,8,3,8,3
�\� 12,3,8,3,12,3,12,3,11,3,14,6,9,3,9,3,10,3,10,3,11,3,11,3,12,3,12,12,7,3,8,12,15,3,13,0
�	��tRD
�� W%=1 � 62
�
� D%,time
��hit
��=0:� � �=time
�� W%
��19,6,6,0;0;
�#�three("WELL DONE",335,900,5,7)
�*FX15,0
A$=�:�28,0,5,18,2,12,26

�
��three(M$,X,Y,B,G)

�5,18,0,G
(�X,Y:�M$
2�18,0,B
<�X+10,Y-4:�M$
F�4,23,1,0;0;0;0;:�
P
��show
Z	��dfE
d� W%=1 � 9
n� K$,U%,I%,L%
x� L%+128:�1
��U%,I%);K$;
�� W%:�128:�1,2);"Q-Quit";
�*FX15,1
�A$=�
�	��dfE
�� W%=1 � 9
�� K$,U%,I%,L%
�� L%+128:�L%
��U%,I%);K$;
�� W%
�s� "Spce",8,23,7,"?",10,17,8,"Z",6,15,9,"X",9,13,10,"C",13,15,11,"V",14,20,12,"}",15,8,13,"A",4,11,14,"S",6,8,15
��17,128,28,0,5,13,2,12,26:�
�
��inst
	��DTF
�17,132,12
� W%=1 � 35
"� M$,X,Y,V
,�three(M$,X,Y,V,0)
6� W%=18 � A$=�:�
@� W%
JA$=�:� A$=" "� � � �DJF
T� "THUNDER KING",250,1000,3
^�� "After the drum kit",64,900,7,"is drawn (takes",160,850,7,"about 47 secs)",192,800,7,"There is a choice",96,750,7,"of :",96,700,7,"Game 1",352,650,6,"Game 2",352,600,6,"Practice",352,550,6
h� "Game 1",64,450,3
r�� "The computer will",100,400,7,"play a series of",100,350,7,"drum strikes and",100,300,7,"you must repeat",100,250,7,"this sequence to",100,200,7,"progress. Each",100,150,7,"time a new note",100,100,7,"is added.",100,50,7
| � "THUNDER DRUMS",250,1000,3
�� "Game 2",64,900,3
��� "This is a more",100,850,7,"difficult version",100,800,7,"of Game 1. As the",100,750,7,"notes are played,",100,700,7,"the drum heads do",100,650,7,"not light up.",100,600,7
�p� "Both games are won",64,500,6,"when 30 notes have",64,450,6,"been repeated",64,400,6,"correctly.",64,350,6
��� "Practice",64,250,3,"This choice shows",100,200,7,"the keys & allows",100,150,7,"free practice.",100,100,7,"PRESS SPACE",250,50,3
�� �reloc(Q%):�:*TAPE
�P%=�:� P%<=Q% �
�&L%=�P-P%:�129�136"Relocating...";
�� M%=0 � L%-1 � 4
�"Q%!M%=P%!M%:�17,-4,255*M%/L%,1
��:�=Q%:A%=138:X%=0:*FX15
� $&100="OLD"+�13+"RUN"+�6+�13
�� L%=&100 � &108:Y%=?L%
�Z%=�&FFF4:�:�21:�
�

00000000  0d 00 0a 13 f4 20 54 68  75 6e 64 65 72 20 44 72  |..... Thunder Dr|
00000010  75 6d 73 0d 00 14 18 f4  20 62 79 20 4d 61 74 74  |ums..... by Matt|
00000020  68 65 77 20 48 6f 6c 72  6f 79 64 0d 00 1e 18 f4  |hew Holroyd.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 0d 00 28 18 f4  20 3d 3d 3d 3d 3d 3d 3d  |ser..(.. =======|
00000050  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 00 32 1b f2  |===========..2..|
00000060  72 65 6c 6f 63 28 26 31  31 30 30 29 3a 73 65 71  |reloc(&1100):seq|
00000070  6c 65 6e 3d 33 30 0d 00  3c 21 eb 32 3a de 73 65  |len=30..<!.2:.se|
00000080  71 28 73 65 71 6c 65 6e  29 2c 63 64 28 33 36 29  |q(seqlen),cd(36)|
00000090  2c 73 64 28 33 36 29 0d  00 46 36 e3 20 57 25 3d  |,sd(36)..F6. W%=|
000000a0  31 30 20 b8 20 33 36 30  20 88 20 31 30 3a 63 64  |10 . 360 . 10:cd|
000000b0  28 57 25 2f 31 30 29 3d  9b b2 57 25 3a 73 64 28  |(W%/10)=..W%:sd(|
000000c0  57 25 2f 31 30 29 3d b5  b2 57 25 3a ed 0d 00 50  |W%/10)=..W%:...P|
000000d0  1b f2 76 61 72 73 3a f2  69 6e 73 74 3a f2 73 65  |..vars:.inst:.se|
000000e0  74 3a f2 73 74 61 72 74  0d 00 5a 18 e7 20 51 25  |t:.start..Z.. Q%|
000000f0  3c 33 20 80 20 54 3d 30  20 8c 20 f2 61 75 74 6f  |<3 . T=0 . .auto|
00000100  0d 00 64 23 f2 6b 65 79  73 3a e7 20 a6 2d 31 37  |..d#.keys:. .-17|
00000110  20 f2 76 61 72 73 3a f2  73 74 61 72 74 3a e5 8d  | .vars:.start:..|
00000120  44 5a 40 0d 00 6e 10 e7  20 44 25 3e 30 20 8c f2  |DZ@..n.. D%>0 ..|
00000130  68 69 74 0d 00 78 1a e7  20 77 72 25 3d 31 20 8c  |hit..x.. wr%=1 .|
00000140  20 f2 76 61 72 73 3a f2  73 74 61 72 74 0d 00 82  | .vars:.start...|
00000150  09 e5 8d 44 5a 40 0d 00  8c 1e dd f2 68 69 74 3a  |...DZ@......hit:|
00000160  e7 20 51 25 3c 33 20 80  20 54 3d 31 20 8c f2 63  |. Q%<3 . T=1 ..c|
00000170  68 65 63 6b 0d 00 96 1d  e7 20 51 25 3c 33 20 80  |heck..... Q%<3 .|
00000180  20 63 6f 75 6e 74 3d 6c  65 6e 25 20 8c 20 54 3d  | count=len% . T=|
00000190  30 0d 00 a0 19 e7 20 51  25 3d 32 20 80 20 54 3d  |0..... Q%=2 . T=|
000001a0  30 20 8c 20 e5 20 8d 74  74 40 0d 00 aa 11 ef 31  |0 . . .tt@.....1|
000001b0  39 2c 44 25 2c 31 2c 30  3b 30 3b 0d 00 b4 10 f2  |9,D%,1,0;0;.....|
000001c0  73 6f 75 6e 64 28 44 25  2d 36 29 0d 00 be 0f d1  |sound(D%-6).....|
000001d0  3d 30 3a f5 20 fd 20 91  3d 37 0d 00 c8 2a e7 20  |=0:. . .=7...*. |
000001e0  44 25 3e 31 32 20 8c ef  31 39 2c 44 25 2c 33 2c  |D%>12 ..19,D%,3,|
000001f0  30 3b 30 3b 20 8b 20 ef  31 39 2c 44 25 2c 37 2c  |0;0; . .19,D%,7,|
00000200  30 3b 30 3b 0d 00 d2 05  e1 0d 00 dc 0a dd f2 6b  |0;0;...........k|
00000210  65 79 73 0d 00 e6 13 e7  20 44 25 3e 30 20 8c 20  |eys..... D%>0 . |
00000220  e5 20 8d 44 54 41 0d 00  f0 0b 5a 25 3d a4 6b 65  |. .DTA....Z%=.ke|
00000230  79 0d 00 fa 12 e7 20 5a  25 3d 39 38 20 44 25 3d  |y..... Z%=98 D%=|
00000240  37 3a e1 0d 01 04 13 e7  20 5a 25 3d 31 30 34 20  |7:...... Z%=104 |
00000250  44 25 3d 38 3a e1 0d 01  0e 12 e7 20 5a 25 3d 39  |D%=8:...... Z%=9|
00000260  37 20 44 25 3d 39 3a e1  0d 01 18 13 e7 20 5a 25  |7 D%=9:...... Z%|
00000270  3d 36 36 20 44 25 3d 31  30 3a e1 0d 01 22 13 e7  |=66 D%=10:..."..|
00000280  20 5a 25 3d 38 32 20 44  25 3d 31 31 3a e1 0d 01  | Z%=82 D%=11:...|
00000290  2c 13 e7 20 5a 25 3d 39  39 20 44 25 3d 31 32 3a  |,.. Z%=99 D%=12:|
000002a0  e1 0d 01 36 13 e7 20 5a  25 3d 38 38 20 44 25 3d  |...6.. Z%=88 D%=|
000002b0  31 33 3a e1 0d 01 40 13  e7 20 5a 25 3d 36 35 20  |13:...@.. Z%=65 |
000002c0  44 25 3d 31 34 3a e1 0d  01 4a 13 e7 20 5a 25 3d  |D%=14:...J.. Z%=|
000002d0  38 31 20 44 25 3d 31 35  3a e1 0d 01 54 15 44 25  |81 D%=15:...T.D%|
000002e0  3d 30 3a f5 20 fd 20 5a  25 3c 3e a4 6b 65 79 0d  |=0:. . Z%<>.key.|
000002f0  01 5e 05 e1 0d 01 68 15  dd a4 6b 65 79 3a ea 20  |.^....h...key:. |
00000300  41 25 3a 41 25 3d 31 32  32 0d 01 72 1a 3d 28 ba  |A%:A%=122..r.=(.|
00000310  28 26 46 46 46 34 29 80  26 46 46 30 30 29 81 26  |(&FFF4).&FF00).&|
00000320  31 30 30 0d 01 7c 0e dd  f2 73 6f 75 6e 64 28 53  |100..|...sound(S|
00000330  29 0d 01 86 36 ee 20 53  20 e5 20 8d 74 5a 41 2c  |)...6. S . .tZA,|
00000340  8d 74 64 41 2c 8d 74 6e  41 2c 8d 74 78 41 2c 8d  |.tdA,.tnA,.txA,.|
00000350  64 42 41 2c 8d 64 4c 41  2c 8d 64 56 41 2c 8d 64  |dBA,.dLA,.dVA,.d|
00000360  60 41 2c 8d 64 6a 41 0d  01 90 05 e1 0d 01 9a 1b  |`A,.djA.........|
00000370  d4 31 2c 31 2c 35 2c 31  3a d4 30 2c 32 2c 32 2c  |.1,1,5,1:.0,2,2,|
00000380  31 3a e5 8d 74 50 41 0d  01 a4 1c d4 31 2c 31 2c  |1:..tPA.....1,1,|
00000390  31 30 2c 31 3a d4 30 2c  32 2c 35 2c 31 3a e5 8d  |10,1:.0,2,5,1:..|
000003a0  74 50 41 0d 01 ae 1e d4  31 2c 33 2c 32 30 2c 31  |tPA.....1,3,20,1|
000003b0  3a d4 30 2c 2d 31 32 2c  32 2c 31 3a e5 8d 74 50  |:.0,-12,2,1:..tP|
000003c0  41 0d 01 b8 1e d4 31 2c  33 2c 31 36 2c 31 3a d4  |A.....1,3,16,1:.|
000003d0  30 2c 2d 31 32 2c 32 2c  31 3a e5 8d 74 50 41 0d  |0,-12,2,1:..tPA.|
000003e0  01 c2 1e d4 31 2c 33 2c  31 32 2c 31 3a d4 30 2c  |....1,3,12,1:.0,|
000003f0  2d 31 32 2c 32 2c 31 3a  e5 8d 74 50 41 0d 01 cc  |-12,2,1:..tPA...|
00000400  1d d4 31 2c 33 2c 35 2c  31 3a d4 30 2c 2d 31 32  |..1,3,5,1:.0,-12|
00000410  2c 32 2c 31 3a e5 8d 74  50 41 0d 01 d6 36 e2 34  |,2,1:..tPA...6.4|
00000420  2c 32 2c 30 2c 30 2c 30  2c 32 2c 33 2c 34 2c 31  |,2,0,0,0,2,3,4,1|
00000430  32 36 2c 30 2c 30 2c 2d  32 2c 31 32 36 2c 31 32  |26,0,0,-2,126,12|
00000440  36 3a d4 30 2c 34 2c 34  2c 32 3a e5 8d 74 50 41  |6:.0,4,4,2:..tPA|
00000450  0d 01 e0 36 e2 34 2c 32  2c 30 2c 30 2c 30 2c 32  |...6.4,2,0,0,0,2|
00000460  2c 33 2c 34 2c 31 32 36  2c 30 2c 30 2c 2d 34 2c  |,3,4,126,0,0,-4,|
00000470  31 32 36 2c 31 32 36 3a  d4 30 2c 34 2c 35 2c 32  |126,126:.0,4,5,2|
00000480  3a e5 8d 74 50 41 0d 01  ea 39 e2 34 2c 38 2c 2d  |:..tPA...9.4,8,-|
00000490  31 2c 2d 31 2c 30 2c 31  2c 31 2c 34 2c 31 32 36  |1,-1,0,1,1,4,126|
000004a0  2c 30 2c 30 2c 2d 31 38  2c 31 32 36 2c 31 32 36  |,0,0,-18,126,126|
000004b0  3a d4 30 2c 34 2c 36 2c  31 3a e5 8d 74 50 41 0d  |:.0,4,6,1:..tPA.|
000004c0  01 f4 0a dd f2 61 75 74  6f 0d 01 fe 11 d1 3d 30  |.....auto.....=0|
000004d0  3a f5 20 fd 20 91 3d 31  32 30 0d 02 08 20 e7 20  |:. . .=120... . |
000004e0  6c 65 6e 25 3d 73 65 71  6c 65 6e 20 8c 20 f2 77  |len%=seqlen . .w|
000004f0  69 6e 3a 77 72 25 3d 31  3a e1 0d 02 12 20 6c 65  |in:wr%=1:.... le|
00000500  6e 25 3d 6c 65 6e 25 2b  31 3a 73 65 71 28 6c 65  |n%=len%+1:seq(le|
00000510  6e 25 29 3d b3 28 39 29  2b 36 0d 02 1c 11 e3 20  |n%)=.(9)+6..... |
00000520  57 25 3d 31 20 b8 20 6c  65 6e 25 0d 02 26 10 d1  |W%=1 . len%..&..|
00000530  3d 30 3a f5 20 fd 20 91  3d 32 35 0d 02 30 13 44  |=0:. . .=25..0.D|
00000540  25 3d 73 65 71 28 57 25  29 3a f2 68 69 74 0d 02  |%=seq(W%):.hit..|
00000550  3a 08 ed 20 57 25 0d 02  44 16 63 6f 75 6e 74 3d  |:.. W%..D.count=|
00000560  30 3a 54 3d 31 3a 44 25  3d 30 3a e1 0d 02 4e 19  |0:T=1:D%=0:...N.|
00000570  dd f2 63 68 65 63 6b 3a  63 6f 75 6e 74 3d 63 6f  |..check:count=co|
00000580  75 6e 74 2b 31 0d 02 58  20 e7 20 44 25 3d 73 65  |unt+1..X . D%=se|
00000590  71 28 63 6f 75 6e 74 29  20 8c 20 e1 20 8b 20 f2  |q(count) . . . .|
000005a0  77 72 6f 6e 67 0d 02 62  05 e1 0d 02 6c 11 dd f2  |wrong..b....l...|
000005b0  77 72 6f 6e 67 3a 77 72  25 3d 31 0d 02 76 41 d4  |wrong:wr%=1..vA.|
000005c0  30 2c 2d 31 35 2c 32 2c  35 3a fb 32 3a f1 8a 36  |0,-15,2,5:.2:..6|
000005d0  2c 33 29 3b 22 57 52 4f  4e 47 21 22 3b 3a d1 3d  |,3);"WRONG!";:.=|
000005e0  30 3a f5 20 fd 20 91 3d  32 30 30 3a f1 8a 36 2c  |0:. . .=200:..6,|
000005f0  33 29 3b 22 20 20 20 20  20 20 22 3b 0d 02 80 05  |3);"      ";....|
00000600  e1 0d 02 8a 09 dd f2 73  65 74 0d 02 94 14 ef 31  |.......set.....1|
00000610  37 2c 31 32 38 2c 31 32  3a f7 8d 64 40 43 0d 02  |7,128,12:..d@C..|
00000620  9e 49 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |.I.23,1,0;0;0;0;|
00000630  3a e3 20 57 25 3d 37 20  b8 20 31 35 3a ef 31 39  |:. W%=7 . 15:.19|
00000640  2c 57 25 2c 30 2c 30 3b  30 3b 3a ed 20 57 25 3a  |,W%,0,0;0;:. W%:|
00000650  ef 31 39 2c 36 2c 34 2c  30 3b 30 3b 31 39 2c 33  |.19,6,4,0;0;19,3|
00000660  2c 30 2c 30 3b 30 3b 0d  02 a8 77 e2 31 2c 31 2c  |,0,0;0;...w.1,1,|
00000670  32 2c 30 2c 2d 33 2c 31  2c 31 2c 32 2c 31 32 30  |2,0,-3,1,1,2,120|
00000680  2c 30 2c 2d 31 33 2c 2d  36 2c 31 32 36 2c 31 32  |,0,-13,-6,126,12|
00000690  36 3a e2 32 2c 31 2c 30  2c 30 2c 30 2c 31 2c 31  |6:.2,1,0,0,0,1,1|
000006a0  2c 32 2c 31 32 30 2c 30  2c 2d 31 35 2c 2d 35 2c  |,2,120,0,-15,-5,|
000006b0  31 32 36 2c 31 32 36 3a  e2 33 2c 32 2c 31 2c 30  |126,126:.3,2,1,0|
000006c0  2c 2d 31 2c 31 2c 32 2c  31 2c 31 32 33 2c 30 2c  |,-1,1,2,1,123,0,|
000006d0  2d 34 2c 2d 31 39 2c 31  32 34 2c 31 32 36 0d 02  |-4,-19,124,126..|
000006e0  b2 27 f2 74 68 72 65 65  28 22 54 48 55 4e 44 45  |.'.three("THUNDE|
000006f0  52 20 4b 49 4e 47 22 2c  32 35 30 2c 31 30 30 30  |R KING",250,1000|
00000700  2c 34 2c 33 29 0d 02 bc  54 ef 31 38 2c 30 2c 33  |,4,3)...T.18,0,3|
00000710  3a 73 74 65 70 3d 32 30  30 3a 70 6f 73 3d 30 3a  |:step=200:pos=0:|
00000720  e3 20 57 25 3d 31 20 b8  20 36 3a 70 6f 73 3d 70  |. W%=1 . 6:pos=p|
00000730  6f 73 2b 73 74 65 70 3a  ec 30 2c 70 6f 73 3a df  |os+step:.0,pos:.|
00000740  31 32 37 39 2c 70 6f 73  3a 73 74 65 70 3d 73 74  |1279,pos:step=st|
00000750  65 70 2f 32 3a ed 20 57  25 0d 02 c6 0f e3 20 57  |ep/2:. W%..... W|
00000760  25 3d 31 20 b8 20 32 39  0d 02 d0 4a e7 20 57 25  |%=1 . 29...J. W%|
00000770  3d 31 20 84 20 57 25 3d  31 33 20 84 20 57 25 3d  |=1 . W%=13 . W%=|
00000780  31 34 20 84 20 57 25 3d  31 35 20 8c 20 f3 20 46  |14 . W%=15 . . F|
00000790  25 2c 45 25 2c 52 25 2c  43 25 3a f2 63 69 72 63  |%,E%,R%,C%:.circ|
000007a0  28 46 25 2c 45 25 2c 52  25 2c 43 25 29 3a ed 20  |(F%,E%,R%,C%):. |
000007b0  57 25 0d 02 da 31 e7 20  57 25 3d 31 37 20 8c 20  |W%...1. W%=17 . |
000007c0  ef 31 38 2c 30 2c 31 33  32 2c 32 34 2c 38 31 30  |.18,0,132,24,810|
000007d0  3b 32 33 30 3b 31 30 39  30 3b 33 37 30 3b 31 36  |;230;1090;370;16|
000007e0  2c 32 36 0d 02 e4 30 e7  20 57 25 3d 32 31 20 8c  |,26...0. W%=21 .|
000007f0  20 ef 31 38 2c 30 2c 31  33 32 2c 32 34 2c 35 31  | .18,0,132,24,51|
00000800  30 3b 33 36 30 3b 37 37  30 3b 34 35 30 3b 31 36  |0;360;770;450;16|
00000810  2c 32 36 0d 02 ee 29 f3  20 46 25 2c 45 25 2c 41  |,26...). F%,E%,A|
00000820  25 2c 42 25 2c 43 25 3a  f2 65 6c 6c 28 46 25 2c  |%,B%,C%:.ell(F%,|
00000830  45 25 2c 41 25 2c 42 25  2c 43 25 29 0d 02 f8 6f  |E%,A%,B%,C%)...o|
00000840  ed 20 57 25 3a e3 57 25  3d 30 20 b8 20 31 35 3a  |. W%:.W%=0 . 15:|
00000850  ef 31 39 2c 57 25 2c 31  2c 30 3b 30 3b 3a ed 20  |.19,W%,1,0;0;:. |
00000860  57 25 3a d1 3d 30 3a f5  20 fd 20 91 3d 31 30 3a  |W%:.=0:. . .=10:|
00000870  e3 57 25 3d 31 20 b8 20  37 3a ef 31 39 2c 57 25  |.W%=1 . 7:.19,W%|
00000880  2c 57 25 2c 30 3b 30 3b  3a ed 20 57 25 3a e3 57  |,W%,0;0;:. W%:.W|
00000890  25 3d 38 20 b8 20 31 32  3a ef 31 39 2c 57 25 2c  |%=8 . 12:.19,W%,|
000008a0  37 2c 30 3b 30 3b 3a ed  20 57 25 0d 03 02 49 ef  |7,0;0;:. W%...I.|
000008b0  31 39 2c 31 33 2c 33 2c  30 3b 30 3b 31 39 2c 31  |19,13,3,0;0;19,1|
000008c0  34 2c 33 2c 30 3b 30 3b  31 39 2c 31 35 2c 33 2c  |4,3,0;0;19,15,3,|
000008d0  30 3b 30 3b 31 39 2c 30  2c 30 2c 30 3b 30 3b 3a  |0;0;19,0,0,0;0;:|
000008e0  44 25 3d 38 3a f2 68 69  74 3a 44 25 3d 31 35 3a  |D%=8:.hit:D%=15:|
000008f0  f2 68 69 74 0d 03 0c 05  e1 0d 03 16 0b dd f2 73  |.hit...........s|
00000900  74 61 72 74 0d 03 20 40  ef 31 37 2c 36 3a f1 8a  |tart.. @.17,6:..|
00000910  31 2c 32 29 3b 22 31 22  3b 8a 31 2c 33 29 3b 22  |1,2);"1";.1,3);"|
00000920  32 22 3b 8a 31 2c 34 29  3b 22 33 22 3b 8a 33 2c  |2";.1,4);"3";.3,|
00000930  35 29 3b 22 50 72 65 73  73 20 31 2c 32 20 6f 72  |5);"Press 1,2 or|
00000940  20 33 22 3b 0d 03 2a 3a  ef 31 37 2c 33 3a f1 8a  | 3";..*:.17,3:..|
00000950  33 2c 32 29 3b 22 47 61  6d 65 20 31 22 3b 8a 33  |3,2);"Game 1";.3|
00000960  2c 33 29 3b 22 47 61 6d  65 20 32 22 3b 8a 33 2c  |,3);"Game 2";.3,|
00000970  34 29 3b 22 50 72 61 63  74 69 63 65 22 3b 0d 03  |4);"Practice";..|
00000980  34 19 e7 20 a6 28 2d 34  39 29 20 8c 20 51 25 3d  |4.. .(-49) . Q%=|
00000990  31 3a e5 8d 44 5c 43 0d  03 3e 19 e7 20 a6 28 2d  |1:..D\C..>.. .(-|
000009a0  35 30 29 20 8c 20 51 25  3d 32 3a e5 8d 44 5c 43  |50) . Q%=2:..D\C|
000009b0  0d 03 48 19 e7 20 a6 28  2d 31 38 29 20 8c 20 51  |..H.. .(-18) . Q|
000009c0  25 3d 33 3a e5 8d 44 5c  43 0d 03 52 0a e5 20 8d  |%=3:..D\C..R.. .|
000009d0  54 74 43 0d 03 5c 16 ef  32 38 2c 30 2c 35 2c 31  |TtC..\..28,0,5,1|
000009e0  36 2c 32 2c 31 32 2c 32  36 0d 03 66 12 e7 20 51  |6,2,12,26..f.. Q|
000009f0  25 3d 33 20 8c 20 f2 73  68 6f 77 0d 03 70 05 e1  |%=3 . .show..p..|
00000a00  0d 03 7a 17 dd f2 63 69  72 63 28 46 25 2c 45 25  |..z...circ(F%,E%|
00000a10  2c 52 25 2c 43 25 29 0d  03 84 71 ef 31 38 2c 30  |,R%,C%)...q.18,0|
00000a20  2c 43 25 2c 32 39 2c 46  25 3b 45 25 3b 3a 6e 3d  |,C%,29,F%;E%;:n=|
00000a30  30 3a 74 68 3d 32 2a af  2f 33 30 3a ec 20 52 25  |0:th=2*./30:. R%|
00000a40  2c 30 3a e3 20 54 25 3d  31 20 b8 20 33 30 3a 6e  |,0:. T%=1 . 30:n|
00000a50  3d 6e 2b 74 68 3a 53 25  3d 52 25 2a 9b 28 6e 29  |=n+th:S%=R%*.(n)|
00000a60  3a 41 25 3d 52 25 2a b5  28 6e 29 3a ec 30 2c 30  |:A%=R%*.(n):.0,0|
00000a70  3a f0 38 35 2c 53 25 2c  41 25 3a ed 20 54 25 3a  |:.85,S%,A%:. T%:|
00000a80  ef 32 39 2c 30 3b 30 3b  0d 03 8e 05 e1 0d 03 98  |.29,0;0;........|
00000a90  19 dd f2 65 6c 6c 28 46  25 2c 45 25 2c 41 25 2c  |...ell(F%,E%,A%,|
00000aa0  42 25 2c 43 25 29 0d 03  a2 96 ef 31 38 2c 30 2c  |B%,C%).....18,0,|
00000ab0  43 25 3a ec 20 46 25 2b  41 25 2c 45 25 3a e3 20  |C%:. F%+A%,E%:. |
00000ac0  54 25 3d 31 20 b8 20 33  36 3a 63 6f 73 3d 63 64  |T%=1 . 36:cos=cd|
00000ad0  28 54 25 29 3a 73 69 6e  3d 73 64 28 54 25 29 3a  |(T%):sin=sd(T%):|
00000ae0  52 25 3d 31 2f b6 28 63  6f 73 2a 63 6f 73 2f 28  |R%=1/.(cos*cos/(|
00000af0  41 25 2a 41 25 29 2b 73  69 6e 2a 73 69 6e 2f 28  |A%*A%)+sin*sin/(|
00000b00  42 25 2a 42 25 29 29 3a  58 25 3d 52 25 2a 63 6f  |B%*B%)):X%=R%*co|
00000b10  73 3a 59 25 3d 52 25 2a  73 69 6e 3a ec 20 46 25  |s:Y%=R%*sin:. F%|
00000b20  2b 41 25 2c 45 25 3a f0  20 38 35 2c 46 25 2b 58  |+A%,E%:. 85,F%+X|
00000b30  25 2c 45 25 2b 59 25 3a  ed 20 54 25 0d 03 ac 05  |%,E%+Y%:. T%....|
00000b40  e1 0d 03 b6 14 f4 20 2a  20 62 61 73 65 20 73 68  |...... * base sh|
00000b50  65 6c 6c 20 2a 0d 03 c0  13 dc 20 36 34 30 2c 33  |ell *..... 640,3|
00000b60  33 30 2c 32 30 30 2c 34  0d 03 ca 11 f4 20 2a 20  |30,200,4..... * |
00000b70  6d 69 64 20 74 6f 6d 20  2a 0d 03 d4 39 dc 20 36  |mid tom *...9. 6|
00000b80  34 30 2c 35 38 30 2c 31  32 30 2c 38 30 2c 36 2c  |40,580,120,80,6,|
00000b90  36 34 30 2c 35 38 30 2c  31 31 35 2c 37 35 2c 30  |640,580,115,75,0|
00000ba0  2c 36 34 30 2c 35 38 30  2c 31 30 35 2c 36 35 2c  |,640,580,105,65,|
00000bb0  31 30 0d 03 de 12 f4 20  2a 20 6c 65 66 74 20 74  |10..... * left t|
00000bc0  6f 6d 20 2a 0d 03 e8 49  dc 20 34 31 35 2c 35 30  |om *...I. 415,50|
00000bd0  30 2c 31 32 30 2c 38 30  2c 34 2c 34 32 35 2c 35  |0,120,80,4,425,5|
00000be0  33 30 2c 31 32 30 2c 38  30 2c 36 2c 34 32 35 2c  |30,120,80,6,425,|
00000bf0  35 33 30 2c 31 31 35 2c  37 35 2c 30 2c 34 32 35  |530,115,75,0,425|
00000c00  2c 35 33 30 2c 31 30 35  2c 36 35 2c 39 0d 03 f2  |,530,105,65,9...|
00000c10  13 f4 20 2a 20 72 69 67  68 74 20 74 6f 6d 20 2a  |.. * right tom *|
00000c20  0d 03 fc 4a dc 20 38 36  30 2c 34 37 30 2c 31 32  |...J. 860,470,12|
00000c30  30 2c 38 30 2c 34 2c 38  36 30 2c 35 32 30 2c 31  |0,80,4,860,520,1|
00000c40  32 30 2c 38 30 2c 36 2c  38 36 30 2c 35 32 30 2c  |20,80,6,860,520,|
00000c50  31 31 35 2c 37 35 2c 30  2c 38 36 30 2c 35 32 30  |115,75,0,860,520|
00000c60  2c 31 30 35 2c 36 35 2c  31 31 0d 04 06 13 f4 20  |,105,65,11..... |
00000c70  2a 20 62 61 73 65 20 73  6b 69 6e 20 2a 0d 04 10  |* base skin *...|
00000c80  2f dc 20 36 34 30 2c 33  30 30 2c 32 30 30 2c 36  |/. 640,300,200,6|
00000c90  2c 36 34 30 2c 33 30 30  2c 31 39 30 2c 30 2c 36  |,640,300,190,0,6|
00000ca0  34 30 2c 33 30 30 2c 31  38 30 2c 37 0d 04 1a 13  |40,300,180,7....|
00000cb0  f4 20 2a 20 66 6c 6f 6f  72 20 74 6f 6d 20 2a 0d  |. * floor tom *.|
00000cc0  04 24 27 dc 20 39 35 30  2c 32 32 30 2c 31 35 30  |.$'. 950,220,150|
00000cd0  2c 34 35 2c 36 2c 39 35  30 2c 32 33 30 2c 31 34  |,45,6,950,230,14|
00000ce0  35 2c 34 35 2c 34 0d 04  2e 39 dc 20 39 35 30 2c  |5,45,4...9. 950,|
00000cf0  33 37 30 2c 31 35 30 2c  34 35 2c 36 2c 39 35 30  |370,150,45,6,950|
00000d00  2c 33 37 30 2c 31 34 30  2c 33 35 2c 30 2c 39 35  |,370,140,35,0,95|
00000d10  30 2c 33 36 35 2c 31 33  30 2c 33 35 2c 31 32 0d  |0,365,130,35,12.|
00000d20  04 38 0f f4 20 2a 20 73  6e 61 72 65 20 2a 0d 04  |.8.. * snare *..|
00000d30  42 27 dc 20 36 34 30 2c  33 36 35 2c 31 33 35 2c  |B'. 640,365,135,|
00000d40  34 30 2c 36 2c 36 34 30  2c 33 37 35 2c 31 33 30  |40,6,640,375,130|
00000d50  2c 34 30 2c 34 0d 04 4c  38 dc 20 36 34 30 2c 34  |,40,4..L8. 640,4|
00000d60  36 30 2c 31 33 35 2c 34  30 2c 36 2c 36 34 30 2c  |60,135,40,6,640,|
00000d70  34 36 30 2c 31 33 30 2c  33 35 2c 30 2c 36 34 30  |460,130,35,0,640|
00000d80  2c 34 36 30 2c 31 32 30  2c 32 35 2c 38 0d 04 56  |,460,120,25,8..V|
00000d90  11 f4 20 2a 20 63 79 6d  62 61 6c 73 20 2a 0d 04  |.. * cymbals *..|
00000da0  60 4d dc 20 31 30 30 30  2c 37 35 30 2c 31 37 35  |`M. 1000,750,175|
00000db0  2c 37 30 2c 31 33 2c 34  30 30 2c 37 33 30 2c 31  |,70,13,400,730,1|
00000dc0  35 30 2c 36 30 2c 31 35  2c 32 38 30 2c 36 34 30  |50,60,15,280,640|
00000dd0  2c 31 37 30 2c 38 30 2c  30 2c 32 37 35 2c 36 33  |,170,80,0,275,63|
00000de0  35 2c 31 37 30 2c 38 30  2c 31 34 0d 04 6a 0a dd  |5,170,80,14..j..|
00000df0  f2 76 61 72 73 0d 04 74  1c 54 3d 30 3a 6c 65 6e  |.vars..t.T=0:len|
00000e00  25 3d 30 3a 63 6f 75 6e  74 3d 30 3a 77 72 25 3d  |%=0:count=0:wr%=|
00000e10  30 0d 04 7e 05 e1 0d 04  88 16 dd f2 77 69 6e 3a  |0..~........win:|
00000e20  ef 31 39 2c 36 2c 32 2c  30 3b 30 3b 0d 04 92 cf  |.19,6,2,0;0;....|
00000e30  dc 20 39 2c 36 2c 39 2c  36 2c 31 31 2c 36 2c 39  |. 9,6,9,6,11,6,9|
00000e40  2c 36 2c 39 2c 36 2c 31  31 2c 33 2c 31 31 2c 33  |,6,9,6,11,3,11,3|
00000e50  2c 31 30 2c 33 2c 31 30  2c 33 2c 31 32 2c 33 2c  |,10,3,10,3,12,3,|
00000e60  31 32 2c 33 2c 39 2c 36  2c 39 2c 36 2c 31 31 2c  |12,3,9,6,9,6,11,|
00000e70  36 2c 39 2c 36 2c 39 2c  36 2c 31 32 2c 33 2c 31  |6,9,6,9,6,12,3,1|
00000e80  31 2c 33 2c 31 31 2c 33  2c 31 30 2c 33 2c 31 31  |1,3,11,3,10,3,11|
00000e90  2c 33 2c 31 31 2c 36 2c  39 2c 36 2c 39 2c 36 2c  |,3,11,6,9,6,9,6,|
00000ea0  31 31 2c 36 2c 39 2c 36  2c 31 32 2c 33 2c 31 31  |11,6,9,6,12,3,11|
00000eb0  2c 33 2c 31 31 2c 33 2c  31 30 2c 33 2c 31 32 2c  |,3,11,3,10,3,12,|
00000ec0  33 2c 31 31 2c 33 2c 31  31 2c 33 2c 31 30 2c 33  |3,11,3,11,3,10,3|
00000ed0  2c 37 2c 32 35 2c 31 35  2c 32 30 2c 38 2c 33 2c  |,7,25,15,20,8,3,|
00000ee0  38 2c 33 2c 38 2c 33 2c  37 2c 33 2c 38 2c 33 2c  |8,3,8,3,7,3,8,3,|
00000ef0  38 2c 33 2c 38 2c 33 2c  38 2c 33 0d 04 9c 5c dc  |8,3,8,3,8,3...\.|
00000f00  20 31 32 2c 33 2c 38 2c  33 2c 31 32 2c 33 2c 31  | 12,3,8,3,12,3,1|
00000f10  32 2c 33 2c 31 31 2c 33  2c 31 34 2c 36 2c 39 2c  |2,3,11,3,14,6,9,|
00000f20  33 2c 39 2c 33 2c 31 30  2c 33 2c 31 30 2c 33 2c  |3,9,3,10,3,10,3,|
00000f30  31 31 2c 33 2c 31 31 2c  33 2c 31 32 2c 33 2c 31  |11,3,11,3,12,3,1|
00000f40  32 2c 31 32 2c 37 2c 33  2c 38 2c 31 32 2c 31 35  |2,12,7,3,8,12,15|
00000f50  2c 33 2c 31 33 2c 30 0d  04 a6 09 f7 8d 74 52 44  |,3,13,0......tRD|
00000f60  0d 04 b0 0f e3 20 57 25  3d 31 20 b8 20 36 32 0d  |..... W%=1 . 62.|
00000f70  04 ba 0d f3 20 44 25 2c  74 69 6d 65 0d 04 c4 08  |.... D%,time....|
00000f80  f2 68 69 74 0d 04 ce 12  d1 3d 30 3a f5 20 fd 20  |.hit.....=0:. . |
00000f90  91 3d 74 69 6d 65 0d 04  d8 08 ed 20 57 25 0d 04  |.=time..... W%..|
00000fa0  e2 10 ef 31 39 2c 36 2c  36 2c 30 3b 30 3b 0d 04  |...19,6,6,0;0;..|
00000fb0  ec 23 f2 74 68 72 65 65  28 22 57 45 4c 4c 20 44  |.#.three("WELL D|
00000fc0  4f 4e 45 22 2c 33 33 35  2c 39 30 30 2c 35 2c 37  |ONE",335,900,5,7|
00000fd0  29 0d 04 f6 0b 2a 46 58  31 35 2c 30 0d 05 00 1b  |)....*FX15,0....|
00000fe0  41 24 3d be 3a ef 32 38  2c 30 2c 35 2c 31 38 2c  |A$=.:.28,0,5,18,|
00000ff0  32 2c 31 32 2c 32 36 0d  05 0a 05 e1 0d 05 14 17  |2,12,26.........|
00001000  dd f2 74 68 72 65 65 28  4d 24 2c 58 2c 59 2c 42  |..three(M$,X,Y,B|
00001010  2c 47 29 0d 05 1e 0d ef  35 2c 31 38 2c 30 2c 47  |,G).....5,18,0,G|
00001020  0d 05 28 0c ec 58 2c 59  3a f1 4d 24 0d 05 32 0b  |..(..X,Y:.M$..2.|
00001030  ef 31 38 2c 30 2c 42 0d  05 3c 11 ec 58 2b 31 30  |.18,0,B..<..X+10|
00001040  2c 59 2d 34 3a f1 4d 24  0d 05 46 16 ef 34 2c 32  |,Y-4:.M$..F..4,2|
00001050  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a e1 0d 05  |3,1,0;0;0;0;:...|
00001060  50 0a dd f2 73 68 6f 77  0d 05 5a 09 f7 8d 64 66  |P...show..Z...df|
00001070  45 0d 05 64 0e e3 20 57  25 3d 31 20 b8 20 39 0d  |E..d.. W%=1 . 9.|
00001080  05 6e 11 f3 20 4b 24 2c  55 25 2c 49 25 2c 4c 25  |.n.. K$,U%,I%,L%|
00001090  0d 05 78 0f fb 20 4c 25  2b 31 32 38 3a fb 31 0d  |..x.. L%+128:.1.|
000010a0  05 82 10 f1 8a 55 25 2c  49 25 29 3b 4b 24 3b 0d  |.....U%,I%);K$;.|
000010b0  05 8c 1e ed 20 57 25 3a  fb 31 32 38 3a f1 8a 31  |.... W%:.128:..1|
000010c0  2c 32 29 3b 22 51 2d 51  75 69 74 22 3b 0d 05 96  |,2);"Q-Quit";...|
000010d0  0b 2a 46 58 31 35 2c 31  0d 05 a0 08 41 24 3d be  |.*FX15,1....A$=.|
000010e0  0d 05 aa 09 f7 8d 64 66  45 0d 05 b4 0e e3 20 57  |......dfE..... W|
000010f0  25 3d 31 20 b8 20 39 0d  05 be 11 f3 20 4b 24 2c  |%=1 . 9..... K$,|
00001100  55 25 2c 49 25 2c 4c 25  0d 05 c8 10 fb 20 4c 25  |U%,I%,L%..... L%|
00001110  2b 31 32 38 3a fb 4c 25  0d 05 d2 10 f1 8a 55 25  |+128:.L%......U%|
00001120  2c 49 25 29 3b 4b 24 3b  0d 05 dc 08 ed 20 57 25  |,I%);K$;..... W%|
00001130  0d 05 e6 73 dc 20 22 53  70 63 65 22 2c 38 2c 32  |...s. "Spce",8,2|
00001140  33 2c 37 2c 22 3f 22 2c  31 30 2c 31 37 2c 38 2c  |3,7,"?",10,17,8,|
00001150  22 5a 22 2c 36 2c 31 35  2c 39 2c 22 58 22 2c 39  |"Z",6,15,9,"X",9|
00001160  2c 31 33 2c 31 30 2c 22  43 22 2c 31 33 2c 31 35  |,13,10,"C",13,15|
00001170  2c 31 31 2c 22 56 22 2c  31 34 2c 32 30 2c 31 32  |,11,"V",14,20,12|
00001180  2c 22 7d 22 2c 31 35 2c  38 2c 31 33 2c 22 41 22  |,"}",15,8,13,"A"|
00001190  2c 34 2c 31 31 2c 31 34  2c 22 53 22 2c 36 2c 38  |,4,11,14,"S",6,8|
000011a0  2c 31 35 0d 05 f0 1f ef  31 37 2c 31 32 38 2c 32  |,15.....17,128,2|
000011b0  38 2c 30 2c 35 2c 31 33  2c 32 2c 31 32 2c 32 36  |8,0,5,13,2,12,26|
000011c0  3a e1 0d 05 fa 0a dd f2  69 6e 73 74 0d 06 04 09  |:.......inst....|
000011d0  f7 8d 44 54 46 0d 06 0e  0e ef 31 37 2c 31 33 32  |..DTF.....17,132|
000011e0  2c 31 32 0d 06 18 0f e3  20 57 25 3d 31 20 b8 20  |,12..... W%=1 . |
000011f0  33 35 0d 06 22 0e f3 20  4d 24 2c 58 2c 59 2c 56  |35..".. M$,X,Y,V|
00001200  0d 06 2c 16 f2 74 68 72  65 65 28 4d 24 2c 58 2c  |..,..three(M$,X,|
00001210  59 2c 56 2c 30 29 0d 06  36 14 e7 20 57 25 3d 31  |Y,V,0)..6.. W%=1|
00001220  38 20 8c 20 41 24 3d be  3a db 0d 06 40 08 ed 20  |8 . A$=.:...@.. |
00001230  57 25 0d 06 4a 1c 41 24  3d be 3a e7 20 41 24 3d  |W%..J.A$=.:. A$=|
00001240  22 20 22 8c 20 e1 20 8b  20 e5 8d 44 4a 46 0d 06  |" ". . . ..DJF..|
00001250  54 1f dc 20 22 54 48 55  4e 44 45 52 20 4b 49 4e  |T.. "THUNDER KIN|
00001260  47 22 2c 32 35 30 2c 31  30 30 30 2c 33 0d 06 5e  |G",250,1000,3..^|
00001270  c2 dc 20 22 41 66 74 65  72 20 74 68 65 20 64 72  |.. "After the dr|
00001280  75 6d 20 6b 69 74 22 2c  36 34 2c 39 30 30 2c 37  |um kit",64,900,7|
00001290  2c 22 69 73 20 64 72 61  77 6e 20 28 74 61 6b 65  |,"is drawn (take|
000012a0  73 22 2c 31 36 30 2c 38  35 30 2c 37 2c 22 61 62  |s",160,850,7,"ab|
000012b0  6f 75 74 20 34 37 20 73  65 63 73 29 22 2c 31 39  |out 47 secs)",19|
000012c0  32 2c 38 30 30 2c 37 2c  22 54 68 65 72 65 20 69  |2,800,7,"There i|
000012d0  73 20 61 20 63 68 6f 69  63 65 22 2c 39 36 2c 37  |s a choice",96,7|
000012e0  35 30 2c 37 2c 22 6f 66  20 3a 22 2c 39 36 2c 37  |50,7,"of :",96,7|
000012f0  30 30 2c 37 2c 22 47 61  6d 65 20 31 22 2c 33 35  |00,7,"Game 1",35|
00001300  32 2c 36 35 30 2c 36 2c  22 47 61 6d 65 20 32 22  |2,650,6,"Game 2"|
00001310  2c 33 35 32 2c 36 30 30  2c 36 2c 22 50 72 61 63  |,352,600,6,"Prac|
00001320  74 69 63 65 22 2c 33 35  32 2c 35 35 30 2c 36 0d  |tice",352,550,6.|
00001330  06 68 17 dc 20 22 47 61  6d 65 20 31 22 2c 36 34  |.h.. "Game 1",64|
00001340  2c 34 35 30 2c 33 0d 06  72 e2 dc 20 22 54 68 65  |,450,3..r.. "The|
00001350  20 63 6f 6d 70 75 74 65  72 20 77 69 6c 6c 22 2c  | computer will",|
00001360  31 30 30 2c 34 30 30 2c  37 2c 22 70 6c 61 79 20  |100,400,7,"play |
00001370  61 20 73 65 72 69 65 73  20 6f 66 22 2c 31 30 30  |a series of",100|
00001380  2c 33 35 30 2c 37 2c 22  64 72 75 6d 20 73 74 72  |,350,7,"drum str|
00001390  69 6b 65 73 20 61 6e 64  22 2c 31 30 30 2c 33 30  |ikes and",100,30|
000013a0  30 2c 37 2c 22 79 6f 75  20 6d 75 73 74 20 72 65  |0,7,"you must re|
000013b0  70 65 61 74 22 2c 31 30  30 2c 32 35 30 2c 37 2c  |peat",100,250,7,|
000013c0  22 74 68 69 73 20 73 65  71 75 65 6e 63 65 20 74  |"this sequence t|
000013d0  6f 22 2c 31 30 30 2c 32  30 30 2c 37 2c 22 70 72  |o",100,200,7,"pr|
000013e0  6f 67 72 65 73 73 2e 20  45 61 63 68 22 2c 31 30  |ogress. Each",10|
000013f0  30 2c 31 35 30 2c 37 2c  22 74 69 6d 65 20 61 20  |0,150,7,"time a |
00001400  6e 65 77 20 6e 6f 74 65  22 2c 31 30 30 2c 31 30  |new note",100,10|
00001410  30 2c 37 2c 22 69 73 20  61 64 64 65 64 2e 22 2c  |0,7,"is added.",|
00001420  31 30 30 2c 35 30 2c 37  0d 06 7c 20 dc 20 22 54  |100,50,7..| . "T|
00001430  48 55 4e 44 45 52 20 44  52 55 4d 53 22 2c 32 35  |HUNDER DRUMS",25|
00001440  30 2c 31 30 30 30 2c 33  0d 06 86 17 dc 20 22 47  |0,1000,3..... "G|
00001450  61 6d 65 20 32 22 2c 36  34 2c 39 30 30 2c 33 0d  |ame 2",64,900,3.|
00001460  06 90 b2 dc 20 22 54 68  69 73 20 69 73 20 61 20  |.... "This is a |
00001470  6d 6f 72 65 22 2c 31 30  30 2c 38 35 30 2c 37 2c  |more",100,850,7,|
00001480  22 64 69 66 66 69 63 75  6c 74 20 76 65 72 73 69  |"difficult versi|
00001490  6f 6e 22 2c 31 30 30 2c  38 30 30 2c 37 2c 22 6f  |on",100,800,7,"o|
000014a0  66 20 47 61 6d 65 20 31  2e 20 41 73 20 74 68 65  |f Game 1. As the|
000014b0  22 2c 31 30 30 2c 37 35  30 2c 37 2c 22 6e 6f 74  |",100,750,7,"not|
000014c0  65 73 20 61 72 65 20 70  6c 61 79 65 64 2c 22 2c  |es are played,",|
000014d0  31 30 30 2c 37 30 30 2c  37 2c 22 74 68 65 20 64  |100,700,7,"the d|
000014e0  72 75 6d 20 68 65 61 64  73 20 64 6f 22 2c 31 30  |rum heads do",10|
000014f0  30 2c 36 35 30 2c 37 2c  22 6e 6f 74 20 6c 69 67  |0,650,7,"not lig|
00001500  68 74 20 75 70 2e 22 2c  31 30 30 2c 36 30 30 2c  |ht up.",100,600,|
00001510  37 0d 06 9a 70 dc 20 22  42 6f 74 68 20 67 61 6d  |7...p. "Both gam|
00001520  65 73 20 61 72 65 20 77  6f 6e 22 2c 36 34 2c 35  |es are won",64,5|
00001530  30 30 2c 36 2c 22 77 68  65 6e 20 33 30 20 6e 6f  |00,6,"when 30 no|
00001540  74 65 73 20 68 61 76 65  22 2c 36 34 2c 34 35 30  |tes have",64,450|
00001550  2c 36 2c 22 62 65 65 6e  20 72 65 70 65 61 74 65  |,6,"been repeate|
00001560  64 22 2c 36 34 2c 34 30  30 2c 36 2c 22 63 6f 72  |d",64,400,6,"cor|
00001570  72 65 63 74 6c 79 2e 22  2c 36 34 2c 33 35 30 2c  |rectly.",64,350,|
00001580  36 0d 06 a4 87 dc 20 22  50 72 61 63 74 69 63 65  |6..... "Practice|
00001590  22 2c 36 34 2c 32 35 30  2c 33 2c 22 54 68 69 73  |",64,250,3,"This|
000015a0  20 63 68 6f 69 63 65 20  73 68 6f 77 73 22 2c 31  | choice shows",1|
000015b0  30 30 2c 32 30 30 2c 37  2c 22 74 68 65 20 6b 65  |00,200,7,"the ke|
000015c0  79 73 20 26 20 61 6c 6c  6f 77 73 22 2c 31 30 30  |ys & allows",100|
000015d0  2c 31 35 30 2c 37 2c 22  66 72 65 65 20 70 72 61  |,150,7,"free pra|
000015e0  63 74 69 63 65 2e 22 2c  31 30 30 2c 31 30 30 2c  |ctice.",100,100,|
000015f0  37 2c 22 50 52 45 53 53  20 53 50 41 43 45 22 2c  |7,"PRESS SPACE",|
00001600  32 35 30 2c 35 30 2c 33  0d 06 ae 18 dd 20 f2 72  |250,50,3..... .r|
00001610  65 6c 6f 63 28 51 25 29  3a db 3a 2a 54 41 50 45  |eloc(Q%):.:*TAPE|
00001620  0d 06 b8 13 50 25 3d 90  3a e7 20 50 25 3c 3d 51  |....P%=.:. P%<=Q|
00001630  25 20 e1 0d 06 c2 26 4c  25 3d b8 50 2d 50 25 3a  |% ....&L%=.P-P%:|
00001640  f1 bd 31 32 39 bd 31 33  36 22 52 65 6c 6f 63 61  |..129.136"Reloca|
00001650  74 69 6e 67 2e 2e 2e 22  3b 0d 06 cc 15 e3 20 4d  |ting...";..... M|
00001660  25 3d 30 20 b8 20 4c 25  2d 31 20 88 20 34 0d 06  |%=0 . L%-1 . 4..|
00001670  d6 22 51 25 21 4d 25 3d  50 25 21 4d 25 3a d4 31  |."Q%!M%=P%!M%:.1|
00001680  37 2c 2d 34 2c 32 35 35  2a 4d 25 2f 4c 25 2c 31  |7,-4,255*M%/L%,1|
00001690  0d 06 e0 1c ed 3a d0 3d  51 25 3a 41 25 3d 31 33  |.....:.=Q%:A%=13|
000016a0  38 3a 58 25 3d 30 3a 2a  46 58 31 35 0d 06 ea 20  |8:X%=0:*FX15... |
000016b0  24 26 31 30 30 3d 22 4f  4c 44 22 2b bd 31 33 2b  |$&100="OLD"+.13+|
000016c0  22 52 55 4e 22 2b bd 36  2b bd 31 33 0d 06 f4 1b  |"RUN"+.6+.13....|
000016d0  e3 20 4c 25 3d 26 31 30  30 20 b8 20 26 31 30 38  |. L%=&100 . &108|
000016e0  3a 59 25 3d 3f 4c 25 0d  06 fe 15 5a 25 3d ba 26  |:Y%=?L%....Z%=.&|
000016f0  46 46 46 34 3a ed 3a ef  32 31 3a e0 0d ff        |FFF4:.:.21:...|
000016fe

04-11-88/DRUMS.m0

04-11-88/DRUMS.m1

04-11-88/DRUMS.m2

04-11-88/DRUMS.m4

04-11-88/DRUMS.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .