Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav » Q.MapB

Q.MapB

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 » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav
Filename: Q.MapB
Read OK: ✔
File size: 1045 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10CLS
   20PRINT"BEEB BODY BUILDING COURSE"
   30PRINT"SOUND SAMPLE MANAPULATOR"
   40PRINT"MAIN PROGRAM"
   50PRINT"By Mike Cook"
   60PRINT
   70*FX4,1
   80DIM CL% &20,ANOTE% 96
   90octave$="cCdDefFgGaAb":REM CAPS=# (C=c sharp)
  100PROC_NINT
  110POINT=0
  120CD%=180
  130?&FE67=0
  140?&FE66=CD%
  150D%=0 :REM DISPLAY MODE
  160REPEAT
  170IF D%=0 THEN PRINTTAB(0,30);SPC(38);
  180IF D%=0 THEN PRINTTAB(0,30);"(S sp 8 R P)";
  190REPEAT
  200P1%=POINT*16
  210IF D%=0 THEN PRINT TAB(P1% MOD 40,P1% DIV 40); ELSE PLOT0,-32,0:PRINT"<";:MOVE 1024,1032-(POINT*32):PRINT"<";
  220A$=GET$
  230IF D% THEN PLIM%=&1F ELSE PLIM%=&20
  240IF A$=CHR$(138) THEN POINT=POINT+1:IF POINT>PLIM% THEN POINT=0
  250IF A$=CHR$(139) THEN POINT=POINT-1:IF POINT<0 THEN POINT=PLIM%
  260UNTIL NOT(A$=";" OR A$="-")
  270IF D%=0 THEN ?&80=POINT+&50:?&73=POINT+&30 ELSE ?&80=&50:?&73=&30
  280IF A$="S" THEN M%=-1:VDU22,1:VDU4:D%=0:POINT=0:?&70=00:?&71=&30:CALL G%
  290IF A$=" " AND D%=1 THEN A$="8"
  300IF A$=" " AND D%=0 THEN ?&72=00:?&73=&30:?&80=&70:CALL U%
  310IF A$="8" THEN ?&72=00:CALL U%
  320IF A$="R" THEN PROC_RATE
  330IF A$="P" AND D%=0 THEN PROC_ADJUST:VDU22,4:VDU5:PROC_PLOT
  340IF A$="C" AND D%=1 THEN PROC_SCALE(0,POINT):PROC_PLOT
  350IF A$="F" AND D%=1 THEN PROC_FRACTION:PROC_SCALE(F,POINT):PROC_PLOT
  360IF A$="M" AND D%=1 THEN PRINT"M":PLOT 0,-32,0:M%=POINT
  370IF A$="V" AND D%=1 THEN PROC_FADE:PROC_PLOT
  380IF A$="D" AND D%=1 THEN PROC_FDUMP:PROC_PLOT
  390IF A$="L" THEN VDU22,4:VDU5:D%=1:PROC_FLOAD:PROC_PLOT
  400IF A$="J" AND D%=1 THEN PROC_MERGE:PROC_PLOT
  410IF A$="J" AND D%=0 THEN PROC_JOIN
  420IF A$="T" AND D%=1 THEN PROC_TUNE:?&FE66=CD%:PROC_PLOT
  430IF A$="K" AND D%=1 THEN PROC_PLAY:?&FE66=CD%:PROC_PLOT
  440UNTIL FALSE
  450DEF PROC_FLOAD
  460PROC_GNAME("LOADING SOUND")
  470PROC_CLI("LOAD "," 3000")
  480ENDPROC
  490DEF PROC_MERGE
  500PROC_GNAME("JOINING SOUND")
  510PROC_CLI("LOAD "," 5000")
  520PROC_JOIN
  530ENDPROC
  540DEF PROC_JOIN
  550?&70=0
  560?&71=&30
  570?&72=0
  580?&73=&50
  590CALL J%
  600ENDPROC
  610DEF PROC_FDUMP
  620PROC_GNAME("SAVING SOUND")
  630PROC_CLI("SAVE "," 3000 5000")
  640ENDPROC
  650DEF PROC_GNAME(P$)
  660CLG
  670MOVE 0,1008
  680PRINTP$;" FILE NAME ";
  690INPUT F$
  700ENDPROC
  710DEF PROC_CLI(P1$,P2$)
  720$CL%=P1$+"S."+F$+P2$
  730X%=CL% MOD 256
  740Y%=CL% DIV 256
  750CALL &FFF7
  760ENDPROC
  770DEF PROC_FADE
  780IF M%<0 OR POINT=M% THEN ENDPROC
  790MOVE 1100,1032-(M%*32)
  800PRINT"Mark";
  810PLOT 0,-128,-64
  820INPUT MF
  830MOVE 1048,1032-(POINT*32)
  840PRINT"Pointer";
  850PLOT 0,-224,-64
  860INPUT F
  870IF M%>POINT THEN F%=POINT:T%=M%:EF=MF:SF=F ELSE T%=POINT:F%=M%:EF=F:SF=MF
  880F=(SF-EF)/(T%-F%)
  890IF SF>EF THEN F=-F
  900CLG
  910MOVE 0,1000
  920PRINT"CALCULATING ";T%-F%;" NEW LINES "
  930PRINTF%;" TO ";T%
  940PRINT"WORKED OUT LINE :- ";
  950FOR E%=F% TO T%
  960PROC_SCALE(SF,E%)
  970PRINTE%;" ";
  980SF=SF+F
  990NEXT
 1000ENDPROC
 1010DEF PROC_FRACTION
 1020MOVE 1024,836
 1030PRINT"FRACTION"
 1040MOVE 1030,772
 1050INPUT F
 1060ENDPROC
 1070DEF PROC_SCALE(S,POINT)
 1080FOR A%=POINT*256+&3000 TO (POINT+1)*256+&3000
 1090B%=(?A%-&80)*S+&80
 1100IF B%>&100 THEN B%=&FF
 1110IF B%<0 THEN B%=0
 1120?A%=B%
 1130NEXT
 1140ENDPROC
 1150DEF PROC_ADJUST
 1160IF POINT=0 THEN ENDPROC
 1170OS%=POINT*256
 1180FOR A%=&3000 TO &5000 STEP 4
 1190!A%=!(A%+OS%)
 1200NEXT
 1210POINT=0
 1220ENDPROC
 1230DEF PROC_RATE
 1240IF D%=0 THEN PRINT TAB(0,30); ELSE MOVE 0,500
 1250PRINT"DELAY ";CD%;" INPUT NEW VALUE ";
 1260INPUT CD%
 1270?&FE66=CD%
 1280IF D%=1 THEN PROC_PLOT
 1290ENDPROC
 1300DEF PROC_PLOT
 1310CLG
 1320D%=1
 1330?&70=&00:?&71=&2F
 1340FOR A=0 TO 31
 1350?&74=(A-1)*8
 1360?&71=?&71+1
 1370CALL L%
 1380NEXT
 1390GCOL 3,1
 1400PLOT 0,-32,0
 1410PRINT"<";
 1420ENDPROC
 1430DEF PROC_NINT
 1440LOCAL F,FI,R
 1450FOR C%=1 TO 4
 1460RESTORE 1600
 1470FOR A%=ANOTE%+(C%-1)*24 TO ANOTE%+(C%-1)*24+22 STEP 2
 1480READ F
 1485F=F/4
 1490IF C%<>2 THEN F=F*2^(C%-2)
 1500FI=F*256*50E-6
 1510?A%=INT(FI)
 1520T%=0
 1530R=FI-INT(FI)
 1540FOR B%=1 TO 8
 1550IF R>2^-B% THEN R=R-2^-B%:T%=T%+2^(8-B%)
 1560NEXT
 1570A%?1=T%
 1580NEXT
 1590NEXT
 1600DATA 261.6256,277.18,293.6648,311.13
 1610DATA 329.6276,349.2282,369.99,391.9954
 1620DATA 415.31,440.000,456.16,493.8833
 1630ENDPROC
 1640DEF PROC_PLAY
 1650CLS
 1660PRINT TAB(0,8);"Play the keyboard"
 1670PRINT"SPACE changes the octave"
 1680PRINT TAB(0,12);"RETURN key to end"
 1690L$="AWSEDFTGYHUJKOLP;:[]"
 1700?&76=&30
 1710P%=0
 1720REPEAT
 1730X$=GET$
 1740A%=INSTR(L$,X$)
 1750IF A%=0 THEN 1800
 1760A%=(A%-1+P%)*2
 1770?&74=ANOTE%?(A%+1)
 1780?&75=ANOTE%?A%
 1790CALL &C00
 1800IF X$=" " THEN P%=P%+12: PRINT TAB(0,10);"OCTIVE ";(P%/12)+1
 1810IF P%=48 THEN P%=-12:GOTO 1800
 1820UNTIL X$=CHR$13
 1830ENDPROC
 1840DEF PROC_SOUND(F%,L%)
 1850K%=2*((F%-1)DIV4)-2
 1860IF K%>193 THEN ENDPROC
 1870?&74=ANOTE%?(K%+1)
 1880?&75=ANOTE%?K%
 1890?&76=L%*16
 1900CALL &C00
 1910ENDPROC
 1920DEFPROC_TUNE
 1930RESTORE 2090
 1940Q%=0
 1950READ N$
 1960IF N$="END" THEN ENDPROC
 1970IF N$="P" THEN PROC_PAUSE:GOTO 1950
 1980IF LEFT$(N$,1)="O" THEN Q%=VAL(RIGHT$(N$,1)):GOTO1950
 1990T%=VAL(RIGHT$(N$,1))
 2000A$=LEFT$(N$,1)
 2010F%=INSTR(octave$,A$)*4+1+48*(Q%-1)
 2020PROC_SOUND(F%,T%)
 2030GOTO1950
 2040DEF PROC_PAUSE
 2050TIME=0
 2060REPEAT:UNTIL TIME>5
 2070ENDPROC
 2080REM * FRERE JACQUES *
 2090DATA O1,f2,g2,a2,f2,P,f2,g2,a2,f2,P
 2100DATA a2,A2,O2,c6,P,O1,a2,A2,O2,c6,P,P
 2110DATA c1,d1,c1,O1,A1,a3,f3,P,P
 2120DATA O2,c1,d1,c1,O1,A1,a3,f3,P,P
 2130DATA f2,c2,f4,P,f2,c2,f4
 2140DATA END


�
 �"BEEB BODY BUILDING COURSE"
�"SOUND SAMPLE MANAPULATOR"
(�"MAIN PROGRAM"
2�"By Mike Cook"
<�
F
*FX4,1
P� CL% &20,ANOTE% 96
Z/octave$="cCdDefFgGaAb":� CAPS=# (C=c sharp)
d
�_NINT
nPOINT=0
xCD%=180
�?&FE67=0
�?&FE66=CD%
�D%=0 :� DISPLAY MODE
��
�� D%=0 � �0,30);�(38);
�$� D%=0 � �0,30);"(S sp 8 R P)";
��
�P1%=POINT*16
�Q� D%=0 � � �P1% � 40,P1% � 40); � �0,-32,0:�"<";:� 1024,1032-(POINT*32):�"<";
�A$=�
� � D% � PLIM%=&1F � PLIM%=&20
�7� A$=�(138) � POINT=POINT+1:� POINT>PLIM% � POINT=0
�7� A$=�(139) � POINT=POINT-1:� POINT<0 � POINT=PLIM%
� �(A$=";" � A$="-")
>� D%=0 � ?&80=POINT+&50:?&73=POINT+&30 � ?&80=&50:?&73=&30
@� A$="S" � M%=-1:�22,1:�4:D%=0:POINT=0:?&70=00:?&71=&30:� G%
"� A$=" " � D%=1 � A$="8"
,4� A$=" " � D%=0 � ?&72=00:?&73=&30:?&80=&70:� U%
6� A$="8" � ?&72=00:� U%
@� A$="R" � �_RATE
J.� A$="P" � D%=0 � �_ADJUST:�22,4:�5:�_PLOT
T-� A$="C" � D%=1 � �_SCALE(0,POINT):�_PLOT
^8� A$="F" � D%=1 � �_FRACTION:�_SCALE(F,POINT):�_PLOT
h-� A$="M" � D%=1 � �"M":� 0,-32,0:M%=POINT
r#� A$="V" � D%=1 � �_FADE:�_PLOT
|$� A$="D" � D%=1 � �_FDUMP:�_PLOT
�+� A$="L" � �22,4:�5:D%=1:�_FLOAD:�_PLOT
�$� A$="J" � D%=1 � �_MERGE:�_PLOT
�� A$="J" � D%=0 � �_JOIN
�.� A$="T" � D%=1 � �_TUNE:?&FE66=CD%:�_PLOT
�.� A$="K" � D%=1 � �_PLAY:?&FE66=CD%:�_PLOT
�� �
�
� �_FLOAD
��_GNAME("LOADING SOUND")
��_CLI("LOAD "," 3000")
��
�
� �_MERGE
��_GNAME("JOINING SOUND")
��_CLI("LOAD "," 5000")

�_JOIN
�
� �_JOIN
&
?&70=0
0?&71=&30
:
?&72=0
D?&73=&50
N� J%
X�
b
� �_FDUMP
l�_GNAME("SAVING SOUND")
v�_CLI("SAVE "," 3000 5000")
��
�� �_GNAME(P$)
��
�� 0,1008
��P$;" FILE NAME ";
�� F$
��
�� �_CLI(P1$,P2$)
�$CL%=P1$+"S."+F$+P2$
�X%=CL% � 256
�Y%=CL% � 256
�� &FFF7
��
� �_FADE
� M%<0 � POINT=M% � �
� 1100,1032-(M%*32)
 �"Mark";
*� 0,-128,-64
4� MF
>� 1048,1032-(POINT*32)
H�"Pointer";
R� 0,-224,-64
\� F
fF� M%>POINT � F%=POINT:T%=M%:EF=MF:SF=F � T%=POINT:F%=M%:EF=F:SF=MF
pF=(SF-EF)/(T%-F%)
z� SF>EF � F=-F
��
�� 0,1000
�'�"CALCULATING ";T%-F%;" NEW LINES "
��F%;" TO ";T%
��"WORKED OUT LINE :- ";
�� E%=F% � T%
��_SCALE(SF,E%)
��E%;" ";
�SF=SF+F
��
��
�� �_FRACTION
�� 1024,836
�"FRACTION"
� 1030,772
� F
$�
.� �_SCALE(S,POINT)
8.� A%=POINT*256+&3000 � (POINT+1)*256+&3000
BB%=(?A%-&80)*S+&80
L� B%>&100 � B%=&FF
V� B%<0 � B%=0
`
?A%=B%
j�
t�
~� �_ADJUST
�� POINT=0 � �
�OS%=POINT*256
�� A%=&3000 � &5000 � 4
�!A%=!(A%+OS%)
��
�POINT=0
��
�� �_RATE
� � D%=0 � � �0,30); � � 0,500
�&�"DELAY ";CD%;" INPUT NEW VALUE ";
�	� CD%
�?&FE66=CD%
� D%=1 � �_PLOT

�
� �_PLOT
�
(D%=1
2?&70=&00:?&71=&2F
<� A=0 � 31
F?&74=(A-1)*8
P?&71=?&71+1
Z� L%
d�
n	� 3,1
x
� 0,-32,0
�	�"<";
��
�� �_NINT
�� F,FI,R
�� C%=1 � 4
�
� �D@F
�3� A%=ANOTE%+(C%-1)*24 � ANOTE%+(C%-1)*24+22 � 2
�� F
�	F=F/4
�� C%<>2 � F=F*2^(C%-2)
�FI=F*256*50E-6
�
?A%=�(FI)
�T%=0
�R=FI-�(FI)
� B%=1 � 8
(� R>2^-B% � R=R-2^-B%:T%=T%+2^(8-B%)
�
"A%?1=T%
,�
6�
@%� 261.6256,277.18,293.6648,311.13
J'� 329.6276,349.2282,369.99,391.9954
T$� 415.31,440.000,456.16,493.8833
^�
h� �_PLAY
r�
|� �0,8);"Play the keyboard"
��"SPACE changes the octave"
� � �0,12);"RETURN key to end"
�L$="AWSEDFTGYHUJKOLP;:[]"
�?&76=&30
�P%=0
��
�X$=�
�A%=�L$,X$)
�� A%=0 � �THG
�A%=(A%-1+P%)*2
�?&74=ANOTE%?(A%+1)
�?&75=ANOTE%?A%
�
� &C00
5� X$=" " � P%=P%+12: � �0,10);"OCTIVE ";(P%/12)+1
� P%=48 � P%=-12:� �THG
� X$=�13
&�
0� �_SOUND(F%,L%)
:K%=2*((F%-1)�4)-2
D� K%>193 � �
N?&74=ANOTE%?(K%+1)
X?&75=ANOTE%?K%
b?&76=L%*16
l
� &C00
v�
���_TUNE
�
� �TjH
�Q%=0
�� N$
�� N$="END" � �
�� N$="P" � �_PAUSE:� �t^G
�%� �N$,1)="O" � Q%=�(�N$,1)):�t^G
�T%=�(�N$,1))
�
A$=�N$,1)
�!F%=�octave$,A$)*4+1+48*(Q%-1)
��_SOUND(F%,T%)
�	�t^G
�
� �_PAUSE
�=0
�:� �>5
�
 � * FRERE JACQUES *
*$� O1,f2,g2,a2,f2,P,f2,g2,a2,f2,P
4&� a2,A2,O2,c6,P,O1,a2,A2,O2,c6,P,P
>� c1,d1,c1,O1,A1,a3,f3,P,P
H!� O2,c1,d1,c1,O1,A1,a3,f3,P,P
R� f2,c2,f4,P,f2,c2,f4
\	� END
�
00000000  0d 00 0a 05 db 0d 00 14  20 f1 22 42 45 45 42 20  |........ ."BEEB |
00000010  42 4f 44 59 20 42 55 49  4c 44 49 4e 47 20 43 4f  |BODY BUILDING CO|
00000020  55 52 53 45 22 0d 00 1e  1f f1 22 53 4f 55 4e 44  |URSE"....."SOUND|
00000030  20 53 41 4d 50 4c 45 20  4d 41 4e 41 50 55 4c 41  | SAMPLE MANAPULA|
00000040  54 4f 52 22 0d 00 28 13  f1 22 4d 41 49 4e 20 50  |TOR"..(.."MAIN P|
00000050  52 4f 47 52 41 4d 22 0d  00 32 13 f1 22 42 79 20  |ROGRAM"..2.."By |
00000060  4d 69 6b 65 20 43 6f 6f  6b 22 0d 00 3c 05 f1 0d  |Mike Cook"..<...|
00000070  00 46 0a 2a 46 58 34 2c  31 0d 00 50 17 de 20 43  |.F.*FX4,1..P.. C|
00000080  4c 25 20 26 32 30 2c 41  4e 4f 54 45 25 20 39 36  |L% &20,ANOTE% 96|
00000090  0d 00 5a 2f 6f 63 74 61  76 65 24 3d 22 63 43 64  |..Z/octave$="cCd|
000000a0  44 65 66 46 67 47 61 41  62 22 3a f4 20 43 41 50  |DefFgGaAb":. CAP|
000000b0  53 3d 23 20 28 43 3d 63  20 73 68 61 72 70 29 0d  |S=# (C=c sharp).|
000000c0  00 64 0a f2 5f 4e 49 4e  54 0d 00 6e 0b 50 4f 49  |.d.._NINT..n.POI|
000000d0  4e 54 3d 30 0d 00 78 0b  43 44 25 3d 31 38 30 0d  |NT=0..x.CD%=180.|
000000e0  00 82 0c 3f 26 46 45 36  37 3d 30 0d 00 8c 0e 3f  |...?&FE67=0....?|
000000f0  26 46 45 36 36 3d 43 44  25 0d 00 96 18 44 25 3d  |&FE66=CD%....D%=|
00000100  30 20 3a f4 20 44 49 53  50 4c 41 59 20 4d 4f 44  |0 :. DISPLAY MOD|
00000110  45 0d 00 a0 05 f5 0d 00  aa 1b e7 20 44 25 3d 30  |E.......... D%=0|
00000120  20 8c 20 f1 8a 30 2c 33  30 29 3b 89 28 33 38 29  | . ..0,30);.(38)|
00000130  3b 0d 00 b4 24 e7 20 44  25 3d 30 20 8c 20 f1 8a  |;...$. D%=0 . ..|
00000140  30 2c 33 30 29 3b 22 28  53 20 73 70 20 38 20 52  |0,30);"(S sp 8 R|
00000150  20 50 29 22 3b 0d 00 be  05 f5 0d 00 c8 10 50 31  | P)";.........P1|
00000160  25 3d 50 4f 49 4e 54 2a  31 36 0d 00 d2 51 e7 20  |%=POINT*16...Q. |
00000170  44 25 3d 30 20 8c 20 f1  20 8a 50 31 25 20 83 20  |D%=0 . . .P1% . |
00000180  34 30 2c 50 31 25 20 81  20 34 30 29 3b 20 8b 20  |40,P1% . 40); . |
00000190  f0 30 2c 2d 33 32 2c 30  3a f1 22 3c 22 3b 3a ec  |.0,-32,0:."<";:.|
000001a0  20 31 30 32 34 2c 31 30  33 32 2d 28 50 4f 49 4e  | 1024,1032-(POIN|
000001b0  54 2a 33 32 29 3a f1 22  3c 22 3b 0d 00 dc 08 41  |T*32):."<";....A|
000001c0  24 3d be 0d 00 e6 20 e7  20 44 25 20 8c 20 50 4c  |$=.... . D% . PL|
000001d0  49 4d 25 3d 26 31 46 20  8b 20 50 4c 49 4d 25 3d  |IM%=&1F . PLIM%=|
000001e0  26 32 30 0d 00 f0 37 e7  20 41 24 3d bd 28 31 33  |&20...7. A$=.(13|
000001f0  38 29 20 8c 20 50 4f 49  4e 54 3d 50 4f 49 4e 54  |8) . POINT=POINT|
00000200  2b 31 3a e7 20 50 4f 49  4e 54 3e 50 4c 49 4d 25  |+1:. POINT>PLIM%|
00000210  20 8c 20 50 4f 49 4e 54  3d 30 0d 00 fa 37 e7 20  | . POINT=0...7. |
00000220  41 24 3d bd 28 31 33 39  29 20 8c 20 50 4f 49 4e  |A$=.(139) . POIN|
00000230  54 3d 50 4f 49 4e 54 2d  31 3a e7 20 50 4f 49 4e  |T=POINT-1:. POIN|
00000240  54 3c 30 20 8c 20 50 4f  49 4e 54 3d 50 4c 49 4d  |T<0 . POINT=PLIM|
00000250  25 0d 01 04 18 fd 20 ac  28 41 24 3d 22 3b 22 20  |%..... .(A$=";" |
00000260  84 20 41 24 3d 22 2d 22  29 0d 01 0e 3e e7 20 44  |. A$="-")...>. D|
00000270  25 3d 30 20 8c 20 3f 26  38 30 3d 50 4f 49 4e 54  |%=0 . ?&80=POINT|
00000280  2b 26 35 30 3a 3f 26 37  33 3d 50 4f 49 4e 54 2b  |+&50:?&73=POINT+|
00000290  26 33 30 20 8b 20 3f 26  38 30 3d 26 35 30 3a 3f  |&30 . ?&80=&50:?|
000002a0  26 37 33 3d 26 33 30 0d  01 18 40 e7 20 41 24 3d  |&73=&30...@. A$=|
000002b0  22 53 22 20 8c 20 4d 25  3d 2d 31 3a ef 32 32 2c  |"S" . M%=-1:.22,|
000002c0  31 3a ef 34 3a 44 25 3d  30 3a 50 4f 49 4e 54 3d  |1:.4:D%=0:POINT=|
000002d0  30 3a 3f 26 37 30 3d 30  30 3a 3f 26 37 31 3d 26  |0:?&70=00:?&71=&|
000002e0  33 30 3a d6 20 47 25 0d  01 22 1c e7 20 41 24 3d  |30:. G%..".. A$=|
000002f0  22 20 22 20 80 20 44 25  3d 31 20 8c 20 41 24 3d  |" " . D%=1 . A$=|
00000300  22 38 22 0d 01 2c 34 e7  20 41 24 3d 22 20 22 20  |"8"..,4. A$=" " |
00000310  80 20 44 25 3d 30 20 8c  20 3f 26 37 32 3d 30 30  |. D%=0 . ?&72=00|
00000320  3a 3f 26 37 33 3d 26 33  30 3a 3f 26 38 30 3d 26  |:?&73=&30:?&80=&|
00000330  37 30 3a d6 20 55 25 0d  01 36 1b e7 20 41 24 3d  |70:. U%..6.. A$=|
00000340  22 38 22 20 8c 20 3f 26  37 32 3d 30 30 3a d6 20  |"8" . ?&72=00:. |
00000350  55 25 0d 01 40 15 e7 20  41 24 3d 22 52 22 20 8c  |U%..@.. A$="R" .|
00000360  20 f2 5f 52 41 54 45 0d  01 4a 2e e7 20 41 24 3d  | ._RATE..J.. A$=|
00000370  22 50 22 20 80 20 44 25  3d 30 20 8c 20 f2 5f 41  |"P" . D%=0 . ._A|
00000380  44 4a 55 53 54 3a ef 32  32 2c 34 3a ef 35 3a f2  |DJUST:.22,4:.5:.|
00000390  5f 50 4c 4f 54 0d 01 54  2d e7 20 41 24 3d 22 43  |_PLOT..T-. A$="C|
000003a0  22 20 80 20 44 25 3d 31  20 8c 20 f2 5f 53 43 41  |" . D%=1 . ._SCA|
000003b0  4c 45 28 30 2c 50 4f 49  4e 54 29 3a f2 5f 50 4c  |LE(0,POINT):._PL|
000003c0  4f 54 0d 01 5e 38 e7 20  41 24 3d 22 46 22 20 80  |OT..^8. A$="F" .|
000003d0  20 44 25 3d 31 20 8c 20  f2 5f 46 52 41 43 54 49  | D%=1 . ._FRACTI|
000003e0  4f 4e 3a f2 5f 53 43 41  4c 45 28 46 2c 50 4f 49  |ON:._SCALE(F,POI|
000003f0  4e 54 29 3a f2 5f 50 4c  4f 54 0d 01 68 2d e7 20  |NT):._PLOT..h-. |
00000400  41 24 3d 22 4d 22 20 80  20 44 25 3d 31 20 8c 20  |A$="M" . D%=1 . |
00000410  f1 22 4d 22 3a f0 20 30  2c 2d 33 32 2c 30 3a 4d  |."M":. 0,-32,0:M|
00000420  25 3d 50 4f 49 4e 54 0d  01 72 23 e7 20 41 24 3d  |%=POINT..r#. A$=|
00000430  22 56 22 20 80 20 44 25  3d 31 20 8c 20 f2 5f 46  |"V" . D%=1 . ._F|
00000440  41 44 45 3a f2 5f 50 4c  4f 54 0d 01 7c 24 e7 20  |ADE:._PLOT..|$. |
00000450  41 24 3d 22 44 22 20 80  20 44 25 3d 31 20 8c 20  |A$="D" . D%=1 . |
00000460  f2 5f 46 44 55 4d 50 3a  f2 5f 50 4c 4f 54 0d 01  |._FDUMP:._PLOT..|
00000470  86 2b e7 20 41 24 3d 22  4c 22 20 8c 20 ef 32 32  |.+. A$="L" . .22|
00000480  2c 34 3a ef 35 3a 44 25  3d 31 3a f2 5f 46 4c 4f  |,4:.5:D%=1:._FLO|
00000490  41 44 3a f2 5f 50 4c 4f  54 0d 01 90 24 e7 20 41  |AD:._PLOT...$. A|
000004a0  24 3d 22 4a 22 20 80 20  44 25 3d 31 20 8c 20 f2  |$="J" . D%=1 . .|
000004b0  5f 4d 45 52 47 45 3a f2  5f 50 4c 4f 54 0d 01 9a  |_MERGE:._PLOT...|
000004c0  1c e7 20 41 24 3d 22 4a  22 20 80 20 44 25 3d 30  |.. A$="J" . D%=0|
000004d0  20 8c 20 f2 5f 4a 4f 49  4e 0d 01 a4 2e e7 20 41  | . ._JOIN..... A|
000004e0  24 3d 22 54 22 20 80 20  44 25 3d 31 20 8c 20 f2  |$="T" . D%=1 . .|
000004f0  5f 54 55 4e 45 3a 3f 26  46 45 36 36 3d 43 44 25  |_TUNE:?&FE66=CD%|
00000500  3a f2 5f 50 4c 4f 54 0d  01 ae 2e e7 20 41 24 3d  |:._PLOT..... A$=|
00000510  22 4b 22 20 80 20 44 25  3d 31 20 8c 20 f2 5f 50  |"K" . D%=1 . ._P|
00000520  4c 41 59 3a 3f 26 46 45  36 36 3d 43 44 25 3a f2  |LAY:?&FE66=CD%:.|
00000530  5f 50 4c 4f 54 0d 01 b8  07 fd 20 a3 0d 01 c2 0d  |_PLOT..... .....|
00000540  dd 20 f2 5f 46 4c 4f 41  44 0d 01 cc 1c f2 5f 47  |. ._FLOAD....._G|
00000550  4e 41 4d 45 28 22 4c 4f  41 44 49 4e 47 20 53 4f  |NAME("LOADING SO|
00000560  55 4e 44 22 29 0d 01 d6  1a f2 5f 43 4c 49 28 22  |UND")....._CLI("|
00000570  4c 4f 41 44 20 22 2c 22  20 33 30 30 30 22 29 0d  |LOAD "," 3000").|
00000580  01 e0 05 e1 0d 01 ea 0d  dd 20 f2 5f 4d 45 52 47  |......... ._MERG|
00000590  45 0d 01 f4 1c f2 5f 47  4e 41 4d 45 28 22 4a 4f  |E....._GNAME("JO|
000005a0  49 4e 49 4e 47 20 53 4f  55 4e 44 22 29 0d 01 fe  |INING SOUND")...|
000005b0  1a f2 5f 43 4c 49 28 22  4c 4f 41 44 20 22 2c 22  |.._CLI("LOAD ","|
000005c0  20 35 30 30 30 22 29 0d  02 08 0a f2 5f 4a 4f 49  | 5000")....._JOI|
000005d0  4e 0d 02 12 05 e1 0d 02  1c 0c dd 20 f2 5f 4a 4f  |N.......... ._JO|
000005e0  49 4e 0d 02 26 0a 3f 26  37 30 3d 30 0d 02 30 0c  |IN..&.?&70=0..0.|
000005f0  3f 26 37 31 3d 26 33 30  0d 02 3a 0a 3f 26 37 32  |?&71=&30..:.?&72|
00000600  3d 30 0d 02 44 0c 3f 26  37 33 3d 26 35 30 0d 02  |=0..D.?&73=&50..|
00000610  4e 08 d6 20 4a 25 0d 02  58 05 e1 0d 02 62 0d dd  |N.. J%..X....b..|
00000620  20 f2 5f 46 44 55 4d 50  0d 02 6c 1b f2 5f 47 4e  | ._FDUMP..l.._GN|
00000630  41 4d 45 28 22 53 41 56  49 4e 47 20 53 4f 55 4e  |AME("SAVING SOUN|
00000640  44 22 29 0d 02 76 1f f2  5f 43 4c 49 28 22 53 41  |D")..v.._CLI("SA|
00000650  56 45 20 22 2c 22 20 33  30 30 30 20 35 30 30 30  |VE "," 3000 5000|
00000660  22 29 0d 02 80 05 e1 0d  02 8a 11 dd 20 f2 5f 47  |").......... ._G|
00000670  4e 41 4d 45 28 50 24 29  0d 02 94 05 da 0d 02 9e  |NAME(P$)........|
00000680  0c ec 20 30 2c 31 30 30  38 0d 02 a8 16 f1 50 24  |.. 0,1008.....P$|
00000690  3b 22 20 46 49 4c 45 20  4e 41 4d 45 20 22 3b 0d  |;" FILE NAME ";.|
000006a0  02 b2 08 e8 20 46 24 0d  02 bc 05 e1 0d 02 c6 14  |.... F$.........|
000006b0  dd 20 f2 5f 43 4c 49 28  50 31 24 2c 50 32 24 29  |. ._CLI(P1$,P2$)|
000006c0  0d 02 d0 18 24 43 4c 25  3d 50 31 24 2b 22 53 2e  |....$CL%=P1$+"S.|
000006d0  22 2b 46 24 2b 50 32 24  0d 02 da 10 58 25 3d 43  |"+F$+P2$....X%=C|
000006e0  4c 25 20 83 20 32 35 36  0d 02 e4 10 59 25 3d 43  |L% . 256....Y%=C|
000006f0  4c 25 20 81 20 32 35 36  0d 02 ee 0b d6 20 26 46  |L% . 256..... &F|
00000700  46 46 37 0d 02 f8 05 e1  0d 03 02 0c dd 20 f2 5f  |FF7.......... ._|
00000710  46 41 44 45 0d 03 0c 19  e7 20 4d 25 3c 30 20 84  |FADE..... M%<0 .|
00000720  20 50 4f 49 4e 54 3d 4d  25 20 8c 20 e1 0d 03 16  | POINT=M% . ....|
00000730  17 ec 20 31 31 30 30 2c  31 30 33 32 2d 28 4d 25  |.. 1100,1032-(M%|
00000740  2a 33 32 29 0d 03 20 0c  f1 22 4d 61 72 6b 22 3b  |*32).. .."Mark";|
00000750  0d 03 2a 10 f0 20 30 2c  2d 31 32 38 2c 2d 36 34  |..*.. 0,-128,-64|
00000760  0d 03 34 08 e8 20 4d 46  0d 03 3e 1a ec 20 31 30  |..4.. MF..>.. 10|
00000770  34 38 2c 31 30 33 32 2d  28 50 4f 49 4e 54 2a 33  |48,1032-(POINT*3|
00000780  32 29 0d 03 48 0f f1 22  50 6f 69 6e 74 65 72 22  |2)..H.."Pointer"|
00000790  3b 0d 03 52 10 f0 20 30  2c 2d 32 32 34 2c 2d 36  |;..R.. 0,-224,-6|
000007a0  34 0d 03 5c 07 e8 20 46  0d 03 66 46 e7 20 4d 25  |4..\.. F..fF. M%|
000007b0  3e 50 4f 49 4e 54 20 8c  20 46 25 3d 50 4f 49 4e  |>POINT . F%=POIN|
000007c0  54 3a 54 25 3d 4d 25 3a  45 46 3d 4d 46 3a 53 46  |T:T%=M%:EF=MF:SF|
000007d0  3d 46 20 8b 20 54 25 3d  50 4f 49 4e 54 3a 46 25  |=F . T%=POINT:F%|
000007e0  3d 4d 25 3a 45 46 3d 46  3a 53 46 3d 4d 46 0d 03  |=M%:EF=F:SF=MF..|
000007f0  70 15 46 3d 28 53 46 2d  45 46 29 2f 28 54 25 2d  |p.F=(SF-EF)/(T%-|
00000800  46 25 29 0d 03 7a 12 e7  20 53 46 3e 45 46 20 8c  |F%)..z.. SF>EF .|
00000810  20 46 3d 2d 46 0d 03 84  05 da 0d 03 8e 0c ec 20  | F=-F.......... |
00000820  30 2c 31 30 30 30 0d 03  98 27 f1 22 43 41 4c 43  |0,1000...'."CALC|
00000830  55 4c 41 54 49 4e 47 20  22 3b 54 25 2d 46 25 3b  |ULATING ";T%-F%;|
00000840  22 20 4e 45 57 20 4c 49  4e 45 53 20 22 0d 03 a2  |" NEW LINES "...|
00000850  11 f1 46 25 3b 22 20 54  4f 20 22 3b 54 25 0d 03  |..F%;" TO ";T%..|
00000860  ac 1b f1 22 57 4f 52 4b  45 44 20 4f 55 54 20 4c  |..."WORKED OUT L|
00000870  49 4e 45 20 3a 2d 20 22  3b 0d 03 b6 10 e3 20 45  |INE :- ";..... E|
00000880  25 3d 46 25 20 b8 20 54  25 0d 03 c0 12 f2 5f 53  |%=F% . T%....._S|
00000890  43 41 4c 45 28 53 46 2c  45 25 29 0d 03 ca 0c f1  |CALE(SF,E%).....|
000008a0  45 25 3b 22 20 22 3b 0d  03 d4 0b 53 46 3d 53 46  |E%;" ";....SF=SF|
000008b0  2b 46 0d 03 de 05 ed 0d  03 e8 05 e1 0d 03 f2 10  |+F..............|
000008c0  dd 20 f2 5f 46 52 41 43  54 49 4f 4e 0d 03 fc 0e  |. ._FRACTION....|
000008d0  ec 20 31 30 32 34 2c 38  33 36 0d 04 06 0f f1 22  |. 1024,836....."|
000008e0  46 52 41 43 54 49 4f 4e  22 0d 04 10 0e ec 20 31  |FRACTION"..... 1|
000008f0  30 33 30 2c 37 37 32 0d  04 1a 07 e8 20 46 0d 04  |030,772..... F..|
00000900  24 05 e1 0d 04 2e 16 dd  20 f2 5f 53 43 41 4c 45  |$....... ._SCALE|
00000910  28 53 2c 50 4f 49 4e 54  29 0d 04 38 2e e3 20 41  |(S,POINT)..8.. A|
00000920  25 3d 50 4f 49 4e 54 2a  32 35 36 2b 26 33 30 30  |%=POINT*256+&300|
00000930  30 20 b8 20 28 50 4f 49  4e 54 2b 31 29 2a 32 35  |0 . (POINT+1)*25|
00000940  36 2b 26 33 30 30 30 0d  04 42 16 42 25 3d 28 3f  |6+&3000..B.B%=(?|
00000950  41 25 2d 26 38 30 29 2a  53 2b 26 38 30 0d 04 4c  |A%-&80)*S+&80..L|
00000960  16 e7 20 42 25 3e 26 31  30 30 20 8c 20 42 25 3d  |.. B%>&100 . B%=|
00000970  26 46 46 0d 04 56 11 e7  20 42 25 3c 30 20 8c 20  |&FF..V.. B%<0 . |
00000980  42 25 3d 30 0d 04 60 0a  3f 41 25 3d 42 25 0d 04  |B%=0..`.?A%=B%..|
00000990  6a 05 ed 0d 04 74 05 e1  0d 04 7e 0e dd 20 f2 5f  |j....t....~.. ._|
000009a0  41 44 4a 55 53 54 0d 04  88 11 e7 20 50 4f 49 4e  |ADJUST..... POIN|
000009b0  54 3d 30 20 8c 20 e1 0d  04 92 11 4f 53 25 3d 50  |T=0 . .....OS%=P|
000009c0  4f 49 4e 54 2a 32 35 36  0d 04 9c 1a e3 20 41 25  |OINT*256..... A%|
000009d0  3d 26 33 30 30 30 20 b8  20 26 35 30 30 30 20 88  |=&3000 . &5000 .|
000009e0  20 34 0d 04 a6 11 21 41  25 3d 21 28 41 25 2b 4f  | 4....!A%=!(A%+O|
000009f0  53 25 29 0d 04 b0 05 ed  0d 04 ba 0b 50 4f 49 4e  |S%).........POIN|
00000a00  54 3d 30 0d 04 c4 05 e1  0d 04 ce 0c dd 20 f2 5f  |T=0.......... ._|
00000a10  52 41 54 45 0d 04 d8 20  e7 20 44 25 3d 30 20 8c  |RATE... . D%=0 .|
00000a20  20 f1 20 8a 30 2c 33 30  29 3b 20 8b 20 ec 20 30  | . .0,30); . . 0|
00000a30  2c 35 30 30 0d 04 e2 26  f1 22 44 45 4c 41 59 20  |,500...&."DELAY |
00000a40  22 3b 43 44 25 3b 22 20  49 4e 50 55 54 20 4e 45  |";CD%;" INPUT NE|
00000a50  57 20 56 41 4c 55 45 20  22 3b 0d 04 ec 09 e8 20  |W VALUE ";..... |
00000a60  43 44 25 0d 04 f6 0e 3f  26 46 45 36 36 3d 43 44  |CD%....?&FE66=CD|
00000a70  25 0d 05 00 13 e7 20 44  25 3d 31 20 8c 20 f2 5f  |%..... D%=1 . ._|
00000a80  50 4c 4f 54 0d 05 0a 05  e1 0d 05 14 0c dd 20 f2  |PLOT.......... .|
00000a90  5f 50 4c 4f 54 0d 05 1e  05 da 0d 05 28 08 44 25  |_PLOT.......(.D%|
00000aa0  3d 31 0d 05 32 15 3f 26  37 30 3d 26 30 30 3a 3f  |=1..2.?&70=&00:?|
00000ab0  26 37 31 3d 26 32 46 0d  05 3c 0e e3 20 41 3d 30  |&71=&2F..<.. A=0|
00000ac0  20 b8 20 33 31 0d 05 46  10 3f 26 37 34 3d 28 41  | . 31..F.?&74=(A|
00000ad0  2d 31 29 2a 38 0d 05 50  0f 3f 26 37 31 3d 3f 26  |-1)*8..P.?&71=?&|
00000ae0  37 31 2b 31 0d 05 5a 08  d6 20 4c 25 0d 05 64 05  |71+1..Z.. L%..d.|
00000af0  ed 0d 05 6e 09 e6 20 33  2c 31 0d 05 78 0d f0 20  |...n.. 3,1..x.. |
00000b00  30 2c 2d 33 32 2c 30 0d  05 82 09 f1 22 3c 22 3b  |0,-32,0....."<";|
00000b10  0d 05 8c 05 e1 0d 05 96  0c dd 20 f2 5f 4e 49 4e  |.......... ._NIN|
00000b20  54 0d 05 a0 0c ea 20 46  2c 46 49 2c 52 0d 05 aa  |T..... F,FI,R...|
00000b30  0e e3 20 43 25 3d 31 20  b8 20 34 0d 05 b4 0a f7  |.. C%=1 . 4.....|
00000b40  20 8d 44 40 46 0d 05 be  33 e3 20 41 25 3d 41 4e  | .D@F...3. A%=AN|
00000b50  4f 54 45 25 2b 28 43 25  2d 31 29 2a 32 34 20 b8  |OTE%+(C%-1)*24 .|
00000b60  20 41 4e 4f 54 45 25 2b  28 43 25 2d 31 29 2a 32  | ANOTE%+(C%-1)*2|
00000b70  34 2b 32 32 20 88 20 32  0d 05 c8 07 f3 20 46 0d  |4+22 . 2..... F.|
00000b80  05 cd 09 46 3d 46 2f 34  0d 05 d2 1a e7 20 43 25  |...F=F/4..... C%|
00000b90  3c 3e 32 20 8c 20 46 3d  46 2a 32 5e 28 43 25 2d  |<>2 . F=F*2^(C%-|
00000ba0  32 29 0d 05 dc 12 46 49  3d 46 2a 32 35 36 2a 35  |2)....FI=F*256*5|
00000bb0  30 45 2d 36 0d 05 e6 0d  3f 41 25 3d a8 28 46 49  |0E-6....?A%=.(FI|
00000bc0  29 0d 05 f0 08 54 25 3d  30 0d 05 fa 0e 52 3d 46  |)....T%=0....R=F|
00000bd0  49 2d a8 28 46 49 29 0d  06 04 0e e3 20 42 25 3d  |I-.(FI)..... B%=|
00000be0  31 20 b8 20 38 0d 06 0e  28 e7 20 52 3e 32 5e 2d  |1 . 8...(. R>2^-|
00000bf0  42 25 20 8c 20 52 3d 52  2d 32 5e 2d 42 25 3a 54  |B% . R=R-2^-B%:T|
00000c00  25 3d 54 25 2b 32 5e 28  38 2d 42 25 29 0d 06 18  |%=T%+2^(8-B%)...|
00000c10  05 ed 0d 06 22 0b 41 25  3f 31 3d 54 25 0d 06 2c  |....".A%?1=T%..,|
00000c20  05 ed 0d 06 36 05 ed 0d  06 40 25 dc 20 32 36 31  |....6....@%. 261|
00000c30  2e 36 32 35 36 2c 32 37  37 2e 31 38 2c 32 39 33  |.6256,277.18,293|
00000c40  2e 36 36 34 38 2c 33 31  31 2e 31 33 0d 06 4a 27  |.6648,311.13..J'|
00000c50  dc 20 33 32 39 2e 36 32  37 36 2c 33 34 39 2e 32  |. 329.6276,349.2|
00000c60  32 38 32 2c 33 36 39 2e  39 39 2c 33 39 31 2e 39  |282,369.99,391.9|
00000c70  39 35 34 0d 06 54 24 dc  20 34 31 35 2e 33 31 2c  |954..T$. 415.31,|
00000c80  34 34 30 2e 30 30 30 2c  34 35 36 2e 31 36 2c 34  |440.000,456.16,4|
00000c90  39 33 2e 38 38 33 33 0d  06 5e 05 e1 0d 06 68 0c  |93.8833..^....h.|
00000ca0  dd 20 f2 5f 50 4c 41 59  0d 06 72 05 db 0d 06 7c  |. ._PLAY..r....||
00000cb0  1f f1 20 8a 30 2c 38 29  3b 22 50 6c 61 79 20 74  |.. .0,8);"Play t|
00000cc0  68 65 20 6b 65 79 62 6f  61 72 64 22 0d 06 86 1f  |he keyboard"....|
00000cd0  f1 22 53 50 41 43 45 20  63 68 61 6e 67 65 73 20  |."SPACE changes |
00000ce0  74 68 65 20 6f 63 74 61  76 65 22 0d 06 90 20 f1  |the octave"... .|
00000cf0  20 8a 30 2c 31 32 29 3b  22 52 45 54 55 52 4e 20  | .0,12);"RETURN |
00000d00  6b 65 79 20 74 6f 20 65  6e 64 22 0d 06 9a 1d 4c  |key to end"....L|
00000d10  24 3d 22 41 57 53 45 44  46 54 47 59 48 55 4a 4b  |$="AWSEDFTGYHUJK|
00000d20  4f 4c 50 3b 3a 5b 5d 22  0d 06 a4 0c 3f 26 37 36  |OLP;:[]"....?&76|
00000d30  3d 26 33 30 0d 06 ae 08  50 25 3d 30 0d 06 b8 05  |=&30....P%=0....|
00000d40  f5 0d 06 c2 08 58 24 3d  be 0d 06 cc 0e 41 25 3d  |.....X$=.....A%=|
00000d50  a7 4c 24 2c 58 24 29 0d  06 d6 11 e7 20 41 25 3d  |.L$,X$)..... A%=|
00000d60  30 20 8c 20 8d 54 48 47  0d 06 e0 12 41 25 3d 28  |0 . .THG....A%=(|
00000d70  41 25 2d 31 2b 50 25 29  2a 32 0d 06 ea 16 3f 26  |A%-1+P%)*2....?&|
00000d80  37 34 3d 41 4e 4f 54 45  25 3f 28 41 25 2b 31 29  |74=ANOTE%?(A%+1)|
00000d90  0d 06 f4 12 3f 26 37 35  3d 41 4e 4f 54 45 25 3f  |....?&75=ANOTE%?|
00000da0  41 25 0d 06 fe 0a d6 20  26 43 30 30 0d 07 08 35  |A%..... &C00...5|
00000db0  e7 20 58 24 3d 22 20 22  20 8c 20 50 25 3d 50 25  |. X$=" " . P%=P%|
00000dc0  2b 31 32 3a 20 f1 20 8a  30 2c 31 30 29 3b 22 4f  |+12: . .0,10);"O|
00000dd0  43 54 49 56 45 20 22 3b  28 50 25 2f 31 32 29 2b  |CTIVE ";(P%/12)+|
00000de0  31 0d 07 12 1b e7 20 50  25 3d 34 38 20 8c 20 50  |1..... P%=48 . P|
00000df0  25 3d 2d 31 32 3a e5 20  8d 54 48 47 0d 07 1c 0c  |%=-12:. .THG....|
00000e00  fd 20 58 24 3d bd 31 33  0d 07 26 05 e1 0d 07 30  |. X$=.13..&....0|
00000e10  14 dd 20 f2 5f 53 4f 55  4e 44 28 46 25 2c 4c 25  |.. ._SOUND(F%,L%|
00000e20  29 0d 07 3a 15 4b 25 3d  32 2a 28 28 46 25 2d 31  |)..:.K%=2*((F%-1|
00000e30  29 81 34 29 2d 32 0d 07  44 10 e7 20 4b 25 3e 31  |).4)-2..D.. K%>1|
00000e40  39 33 20 8c 20 e1 0d 07  4e 16 3f 26 37 34 3d 41  |93 . ...N.?&74=A|
00000e50  4e 4f 54 45 25 3f 28 4b  25 2b 31 29 0d 07 58 12  |NOTE%?(K%+1)..X.|
00000e60  3f 26 37 35 3d 41 4e 4f  54 45 25 3f 4b 25 0d 07  |?&75=ANOTE%?K%..|
00000e70  62 0e 3f 26 37 36 3d 4c  25 2a 31 36 0d 07 6c 0a  |b.?&76=L%*16..l.|
00000e80  d6 20 26 43 30 30 0d 07  76 05 e1 0d 07 80 0b dd  |. &C00..v.......|
00000e90  f2 5f 54 55 4e 45 0d 07  8a 0a f7 20 8d 54 6a 48  |._TUNE..... .TjH|
00000ea0  0d 07 94 08 51 25 3d 30  0d 07 9e 08 f3 20 4e 24  |....Q%=0..... N$|
00000eb0  0d 07 a8 12 e7 20 4e 24  3d 22 45 4e 44 22 20 8c  |..... N$="END" .|
00000ec0  20 e1 0d 07 b2 1d e7 20  4e 24 3d 22 50 22 20 8c  | ...... N$="P" .|
00000ed0  20 f2 5f 50 41 55 53 45  3a e5 20 8d 74 5e 47 0d  | ._PAUSE:. .t^G.|
00000ee0  07 bc 25 e7 20 c0 4e 24  2c 31 29 3d 22 4f 22 20  |..%. .N$,1)="O" |
00000ef0  8c 20 51 25 3d bb 28 c2  4e 24 2c 31 29 29 3a e5  |. Q%=.(.N$,1)):.|
00000f00  8d 74 5e 47 0d 07 c6 10  54 25 3d bb 28 c2 4e 24  |.t^G....T%=.(.N$|
00000f10  2c 31 29 29 0d 07 d0 0d  41 24 3d c0 4e 24 2c 31  |,1))....A$=.N$,1|
00000f20  29 0d 07 da 21 46 25 3d  a7 6f 63 74 61 76 65 24  |)...!F%=.octave$|
00000f30  2c 41 24 29 2a 34 2b 31  2b 34 38 2a 28 51 25 2d  |,A$)*4+1+48*(Q%-|
00000f40  31 29 0d 07 e4 12 f2 5f  53 4f 55 4e 44 28 46 25  |1)....._SOUND(F%|
00000f50  2c 54 25 29 0d 07 ee 09  e5 8d 74 5e 47 0d 07 f8  |,T%)......t^G...|
00000f60  0d dd 20 f2 5f 50 41 55  53 45 0d 08 02 07 d1 3d  |.. ._PAUSE.....=|
00000f70  30 0d 08 0c 0b f5 3a fd  20 91 3e 35 0d 08 16 05  |0.....:. .>5....|
00000f80  e1 0d 08 20 17 f4 20 2a  20 46 52 45 52 45 20 4a  |... .. * FRERE J|
00000f90  41 43 51 55 45 53 20 2a  0d 08 2a 24 dc 20 4f 31  |ACQUES *..*$. O1|
00000fa0  2c 66 32 2c 67 32 2c 61  32 2c 66 32 2c 50 2c 66  |,f2,g2,a2,f2,P,f|
00000fb0  32 2c 67 32 2c 61 32 2c  66 32 2c 50 0d 08 34 26  |2,g2,a2,f2,P..4&|
00000fc0  dc 20 61 32 2c 41 32 2c  4f 32 2c 63 36 2c 50 2c  |. a2,A2,O2,c6,P,|
00000fd0  4f 31 2c 61 32 2c 41 32  2c 4f 32 2c 63 36 2c 50  |O1,a2,A2,O2,c6,P|
00000fe0  2c 50 0d 08 3e 1e dc 20  63 31 2c 64 31 2c 63 31  |,P..>.. c1,d1,c1|
00000ff0  2c 4f 31 2c 41 31 2c 61  33 2c 66 33 2c 50 2c 50  |,O1,A1,a3,f3,P,P|
00001000  0d 08 48 21 dc 20 4f 32  2c 63 31 2c 64 31 2c 63  |..H!. O2,c1,d1,c|
00001010  31 2c 4f 31 2c 41 31 2c  61 33 2c 66 33 2c 50 2c  |1,O1,A1,a3,f3,P,|
00001020  50 0d 08 52 19 dc 20 66  32 2c 63 32 2c 66 34 2c  |P..R.. f2,c2,f4,|
00001030  50 2c 66 32 2c 63 32 2c  66 34 0d 08 5c 09 dc 20  |P,f2,c2,f4..\.. |
00001040  45 4e 44 0d ff                                    |END..|
00001045
Q.MapB.m0
Q.MapB.m1
Q.MapB.m2
Q.MapB.m4
Q.MapB.m5

© Dominic Ford 2021–2024.

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